mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-02-26 00:34:04 +00:00
24 lines
3.7 KiB
Plaintext
24 lines
3.7 KiB
Plaintext
1 ERROR DEFN 100 .00.0
|
|
1 FIX CRB .00.0
|
|
1 SRT 8 .00.0
|
|
1 STA 8 A+,04 .00.0
|
|
1 LDB 8 A+ .00.0
|
|
1 *A CLA .00.0
|
|
1 IBB 8 B+,9949 .00.0
|
|
1 DBB 8 C+,10 .00.0
|
|
1 SLT - 11 .00.0
|
|
1 *B LDB 8 FIX .00.0
|
|
1 BUN - 0 .00.0
|
|
1 *C IOM 8 D+ .00.0
|
|
1 LDR 8 $FIX$ .00.0
|
|
1 LDB 8 FIX .00.0
|
|
1 BUN 6 ERROR .00.0
|
|
1 *D CLR .00.0
|
|
1 BUN 8 B- .00.0
|
|
1 LOCN LOCN *+1 .00.0
|
|
1 CNST 40000990000 .00.0
|
|
1 CNST $FIX,INTEGER(REAL) ERROR=1 $ .00.0
|
|
1 CNST 90000000000 .00.0
|
|
1 LOCN LOCN .00.0
|
|
1 FINI FIX .00.0
|