.CHARSET 1251 ; Файл 7-9m .ORG 0 90 M E CX GSB A73 M A GSB A73 M B GSB A73 1EE6+/- * M C RM B RM C * F SQRT 2 * F PI * F 1/X M D A28: ; с адреса 71 GSB A73 M 7 F PI * 2 * M 8 RM B * RM 8 RM C * F 1/X - M 6 RM A GSB A73 RM 6 GSB A73 RM 6 RM A / F ARCTG M 9 RM 6 F X^2 RM A F X^2 + F SQRT GSB A73 RM 9 GSB A73 120 M E CX GSB A28 A73: ; с адреса 4 , 7 , 10 , 28 , 45 , 48 , 61 , 64 RM E PP M 9026 ; Вывод строки из памяти программ (Строка комментариев) 10 + M E <-> M 5 CX ENT ENT ENT RM 5 R/S RTN RTN .DB 3Dh .DB 3Fh F PI .DB 2Ch K GOTO E K GSB C .DB 0FFh .DB 0FFh .DB 0FFh M C .DB 3Dh .DB 3Fh F PI .DB 2Ch K GOTO 3 K GSB D .DB 0FFh .DB 0FFh .DB 0FFh M 3 .DB 3Dh .DB 3Fh F PI .DB 2Ch K GSB C K GSB A K X>=0 4 .DB 0FFh .DB 0FFh RM 6 .DB 3Dh .DB 3Fh F PI .DB 2Ch K GOTO 3 K X=0 6 .DB 0FFh .DB 0FFh .DB 0FFh K X!=0 8 .DB 3Dh F PI .DB 2Ch K GOTO E K GSB C .DB 0FFh .DB 0FFh .DB 0FFh .DB 0FFh K X!=0 9 .DB 3Dh F PI .DB 2Ch K GOTO E K GSB C .DB 0FFh .DB 0FFh .DB 0FFh .DB 0FFh K X!=0 C K X!=0 A K X!=0 C .DB 3Dh F PI .DB 2Ch K GOTO E K GSB C .DB 0FFh .DB 0FFh P M 43 F PI .DB 2Ch K GSB 3 K X=0 0 K GSB 0 K GSB 4 .END