.CHARSET 1251 ; Файл 7-3m .ORG 0 A0: ; с адреса 28 115 M E CX GSB A95 M 8 GSB A95 M 0 GSB A95 M 4 GSB A95 M 7 GSB A30 RM 1 GSB A95 RM 2 GSB A95 RM 3 GSB A95 GOTO A0 A30: ; с адреса 17 RM 7 1 + ENT ENT 2 - / M 9 F ANS 2 <-> / RM 7 F SQRT * M 6 RM 8 F X=0 A70 RM 6 RM 0 RM 4 * F SQRT * M 2 RM 0 RM 9 * RM 2 - M 1 RM 4 RM 9 * RM 2 - M 3 RTN A70: ; с адреса 48 RM 0 RM 4 * F 1/X F SQRT RM 6 * M 5 F 1/X M 2 RM 9 RM 0 / RM 5 - F 1/X M 1 RM 9 RM 4 / RM 5 - F 1/X M 3 A94: ; с адреса 110 RTN A95: ; с адреса 5 , 8 , 11 , 14 , 20 , 23 , 26 RM E PP M 9026 ; Вывод строки из памяти программ (Строка комментариев) 5 + M E <-> M D CX ENT ENT ENT RM D R/S P GOTO A94 .DB 0FFh .DB 0FFh K ABS .DB 2Fh K D->MS .DB 3Fh .DB 0FFh RTN K GSB 8 .DB 3Dh .DB 3Fh .DB 0FFh RTN K GSB D .DB 3Dh .DB 3Fh .DB 0FFh M E .DB 3Dh .DB 3Fh .DB 0FFh .DB 0FFh RTN K ABS .DB 3Dh .DB 0FFh .DB 0FFh RTN K SGN .DB 3Dh .DB 0FFh .DB 0FFh RTN K D->M .DB 3Dh .END