Код:
.MAC SYSGEN.CND+RK1:DW.MAC/OB
U 12 .MCALL .PUSH .POP .TTYOUT .TTYIN .
SCCA
OQ 1539 001440 10$: .Push <R4,R5>
OQ 1602 001466 .Push R5
OQ 1635 001614 .Pop R5
OQ 1638 001624 Key: .Push <R1,R2,R3>
OQ 1652 001672 .Pop <R3,R2,R1>
OQ 1656 001702 .Pop <R3,R2,R1>
OQ 1688 001774 .Push R0
OQ 1697 002020 .Pop R0
OQ 1698 002020 .Push R2
OQ 1701 002030 .Pop R2
OQ 1704 002030 .Push R3
OQ 1727 002062 .Pop R3
OQ 1795 002400 40$: .Pop <R5,R4>
OQ 1861 002572 .Push <R1,R2>
OQ 1871 002630 u2: .Pop <R2,R1>
OQ 1876 002640 .Push <R1,R2,R0>
OQ 1884 002670 .Pop R0
OQ 1886 002672 10$: .Pop R0
OQ 1902 002752 .Push <R1,R2>
OQ 1915 002772 .Push <R0,R1,R2>
OQ 1921 003020 .Pop <R2,R1,R0>
OQ 1925 003022 .Push <R0,R1,R3> ;R0 - nu
mber, R1 - field lenght (nonzero!)
OQ 1956 003056 .Pop <R3,R1,R0>
OQ 1960 003060 .PUSH <R0,R1,R2> ;R0 - nu
mber, R1 - field lenght (nonzero!)
OQ 1969 003106 CmnRts: .POP <R2,R1,R0> ;Common
return sequence
OQ 1973 003110 .Push <R0,R1,R2> ;R0 - dr
ive number
OQ 1978 003126 .Push R0
OQ 1981 003146 .Pop R0
OQ 1987 003160 .Push <R0,R1,R2,R1>
OQ 1992 003176 .Pop R0
OQ 2002 003224 .Push <R0,R1,R2,R1>
OQ 2007 003242 .Pop R0
OQ 2018 003302 .Push <R0,R1,R2,R1>
OQ 2023 003320 .Pop R0
OQ 2037 003416 .Push <R0,R1,R2,R1>
OQ 2042 003434 .Pop R0
OQ 2049 003460 .Push <R0,R1,R2,R1>
OQ 2054 003476 .Pop R0
OQ 2070 003610 .Push <R0,R1,R2,R3>
OQ 2095 003736 .Pop R3
OQ 2129 003756 SIZCK1: .Push <R2,R3>
OQ 2206 004156 120$: .Pop <R3,R2>
OQ 2229 004174 .PUSH R5
OQ 2232 004202 .POP R5
?MACRO-E-Errors detected: 45
DK:DW=DK:SYSGEN.CND,RK1:DW.MAC
Система RT11 v.5.07 чистая, установлена из оригинального дистрибутива..