mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-25 19:51:55 +00:00
81 lines
3.3 KiB
Plaintext
81 lines
3.3 KiB
Plaintext
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-11 06:56
|
||
|
||
Source File: TRACE.card
|
||
START PASS 1
|
||
|
||
.00.0 0000 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
|
||
0021 +9999000000
|
||
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
START PASS 2
|
||
|
||
.00.0 1 0000 ERROR DEFN 100
|
||
.00.0 2 0000 0 9000 38 0000 TRACE BCS *,9
|
||
.00.0 3 0001 8 4400 28 0015 DLB 8 Y+,44,0
|
||
.00.0 4 0002 6 0000 31 0121 HOLD BOF 6 ERROR+21
|
||
.00.0 5 0003 8 0000 42 0000 TR1 LDB 8 TRACE
|
||
.00.0 6 0004 8 0000 40 0020 STA 8 HOLD0
|
||
.00.0 7 0005 1 0000 10 9999 CAD - 9999
|
||
.00.0 8 0006 8 4410 40 0002 STA 8 HOLD,44
|
||
.00.0 9 0007 8 4400 36 0015 BFA 8 Y+,44,0
|
||
.00.0 10 0008 1 0000 10 0000 *A CAD - 0
|
||
.00.0 11 0009 8 0410 18 0003 CFA 8 TR1,04
|
||
.00.0 12 0010 8 0001 35 0012 BCU 8 *+2
|
||
.00.0 13 0011 8 0002 20 0008 IBB 8 A-,2
|
||
.00.0 14 0012 8 0001 12 0002 ADA 8 HOLD
|
||
.00.0 15 0013 8 0000 12 0021 ADD 8 +9999000000
|
||
.00.0 16 0014 8 0000 31 0015 BOF 8 *+1
|
||
.00.0 17 0015 7 0003 44 0000 *Y F4247 3,44,0
|
||
.00.0 18 0016 0 4400 36 0002 BFA 2,44,0
|
||
.00.0 19 0017 8 0000 42 0000 *Z LDB 8 TRACE
|
||
.00.0 20 0018 8 0000 10 0020 CAD 8 HOLD0
|
||
.00.0 21 0019 1 0000 30 0000 BUN - 0
|
||
.00.0 22 0020 0 0000 00 0000 HOLD0 CNST 0
|
||
.00.0 23 0021 LOCN LOCN *+1
|
||
.00.0 24 0022 4 0000 99 0000 CNST 40000990000
|
||
.00.0 25 0023 2 6359 41 4345 CNST $TRACE ERROR=1 $
|
||
0024 2 0045 59 5956
|
||
0025 2 5933 81 0000
|
||
.00.0 26 0026 9 0000 00 0000 CNST 90000000000
|
||
.00.0 27 0027 LOCN LOCN
|
||
.00.0 28 0021 FINI TRACE
|
||
0021 0 9999 00 0000 +9999000000
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
8 *A..1 15 *Y..1 17 *Z..1 21 +9999000000 8 BMOD
|
||
100 ERROR 2 HOLD 20 HOLD0 21 LOCN 1 RLO
|
||
3 TR1 0 TRACE
|
||
|
||
END PASS 2, ERRORS = 0
|