1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-02-26 08:44:04 +00:00
Files
pkimpel.retro-220/software/BALGOL/BALGOL-Library/TRACE.baca

30 lines
1.1 KiB
Plaintext

.00.0 0100 ERROR DEFN 100
.00.0 0000 TRACE BCS *,9
.00.0 0001 DLB 8 Y+,44,0
.00.0 0002 HOLD BOF 6 ERROR+21
.00.0 0003 TR1 LDB 8 TRACE
.00.0 0004 STA 8 HOLD0
.00.0 0005 CAD - 9999
.00.0 0006 STA 8 HOLD,44
.00.0 0007 BFA 8 Y+,44,0
.00.0 0008 *A CAD - 0
.00.0 0009 CFA 8 TR1,04
.00.0 0010 BCU 8 *+2
.00.0 0011 IBB 8 A-,2
.00.0 0012 ADA 8 HOLD
.00.0 0013 ADD 8 +9999000000
.00.0 0014 BOF 8 *+1
.00.0 0015 *Y F4247 3,44,0
.00.0 0016 BFA 2,44,0
.00.0 0017 *Z LDB 8 TRACE
.00.0 0018 CAD 8 HOLD0
.00.0 0019 BUN - 0
.00.0 0020 HOLD0 CNST 0
.00.0 0021 LOCN LOCN *+1
.00.0 0022 CNST 40000990000
.00.0 0023 CNST $TRACE ERROR=1 $
.00.0 0026 CNST 90000000000
.00.0 0027 LOCN LOCN
.00.0 0021 FINI TRACE
21 +9999000000