mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-24 19:34:04 +00:00
f288264276
1. Updated compiler and library sources after second proofing pass. 2. Updated Generator and Compiler object code and build decks. 3. Updated Generator and Compiler loadable object tapes. 4. Corrections to BAC-Assembler and enhancements for additional card/tape output options. 5. Minor corrections to GEN-Assembler. 6. Updates to miscellaneous utilities and example programs.
138 lines
6.4 KiB
Plaintext
138 lines
6.4 KiB
Plaintext
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-11 06:49
|
||
|
||
Source File: ROMXX.card
|
||
START PASS 1
|
||
|
||
.00.0 0000 ERROR DEFN 100
|
||
.00.0 0000 SQRT DEFN 200
|
||
.00.0 0000 ROMXX F4247 3,1,0
|
||
.00.0 0001 DLB 8 *-1,44,0
|
||
.00.0 0002 BOF 6 ERROR+21
|
||
.00.0 0003 LDR 8 ROM2
|
||
.00.0 0004 STR 8 B+,04
|
||
.00.0 0005 CFA 6 ERROR+51,00 =1.0=
|
||
.00.0 0006 BCH 8 B+
|
||
.00.0 0007 BFA 8 E+,22,51
|
||
.00.0 0008 BZA 8 F+
|
||
.00.0 0009 STA 6 ERROR+52
|
||
.00.0 0010 FMU 6 ERROR+52
|
||
.00.0 0011 SLT 2
|
||
.00.0 0012 STR 8 E+,02
|
||
.00.0 0013 LBC 8 E+
|
||
.00.0 0014 SRT - 51
|
||
.00.0 0015 SUB 8 +1000000000
|
||
.00.0 0016 SLT 10
|
||
.00.0 0017 SUB 6 ERROR+48 =5(11)=
|
||
.00.0 0018 SUB 6 ERROR+48
|
||
.00.0 0019 SLT 10
|
||
.00.0 0020 BOF 8 *+2
|
||
.00.0 0021 F4248 51,12,+1
|
||
.00.0 0022 DLB 8 *-1,44,0
|
||
.00.0 0023 *D BFA 8 C+,11,0
|
||
.00.0 0024 STB 8 E+,04
|
||
.00.0 0025 LDR 8 E+
|
||
.00.0 0026 SLT 18
|
||
.00.0 0027 *G LDB 8 ROMXX
|
||
.00.0 0028 BUN 6 SQRT+2
|
||
.00.0 0029 *C SLT 1
|
||
.00.0 0030 DBB 8 D-,1
|
||
.00.0 0031 *E LSA 1
|
||
.00.0 0032 *F FAD 6 ERROR+51 =1.0=
|
||
.00.0 0033 BUN 8 G-
|
||
.00.0 0034 *B LDR 8 ROM1
|
||
.00.0 0035 LDB 8 ROMXX
|
||
.00.0 0036 BUN 6 ERROR+7
|
||
.00.0 0037 ROM1 CNST $ROMXX$
|
||
.00.0 0038 ROM2 HLT 8 ROM1
|
||
.00.0 0039 ROM3 CAD 8 +5115707963
|
||
.00.0 0040 LDR 6 ERROR+52
|
||
.00.0 0041 BZR - 0
|
||
.00.0 0042 SLT 0
|
||
.00.0 0043 BUN - 0
|
||
.00.0 0044 LOCN LOCN *+3
|
||
.00.0 0047 CNST 40000990000
|
||
.00.0 0048 CNST $ROMXX,REAL(REAL) ERROR=1 SQRT=2 $
|
||
.00.0 0055 CNST 90000000000
|
||
.00.0 0056 LOCN LOCN
|
||
.00.0 0044 FINI ROMXX
|
||
0044 +1000000000
|
||
0045 +0000000001
|
||
0046 +5115707963
|
||
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
START PASS 2
|
||
|
||
.00.0 1 0000 ERROR DEFN 100
|
||
.00.0 2 0000 SQRT DEFN 200
|
||
.00.0 3 0000 7 0003 01 0000 ROMXX F4247 3,1,0
|
||
.00.0 4 0001 8 4400 28 0000 DLB 8 *-1,44,0
|
||
.00.0 5 0002 6 0000 31 0121 BOF 6 ERROR+21
|
||
.00.0 6 0003 8 0000 41 0038 LDR 8 ROM2
|
||
.00.0 7 0004 8 0411 40 0034 STR 8 B+,04
|
||
.00.0 8 0005 6 0010 18 0151 CFA 6 ERROR+51,00 =1.0=
|
||
.00.0 9 0006 8 0000 34 0034 BCH 8 B+
|
||
.00.0 10 0007 8 2251 36 0031 BFA 8 E+,22,51
|
||
.00.0 11 0008 8 0000 36 0032 BZA 8 F+
|
||
.00.0 12 0009 6 0000 40 0152 STA 6 ERROR+52
|
||
.00.0 13 0010 6 0000 24 0152 FMU 6 ERROR+52
|
||
.00.0 14 0011 0 0001 49 0002 SLT 2
|
||
.00.0 15 0012 8 0211 40 0031 STR 8 E+,02
|
||
.00.0 16 0013 8 0001 42 0031 LBC 8 E+
|
||
.00.0 17 0014 1 0001 48 0051 SRT - 51
|
||
.00.0 18 0015 8 0000 13 0044 SUB 8 +1000000000
|
||
.00.0 19 0016 0 0001 49 0010 SLT 10
|
||
.00.0 20 0017 6 0000 13 0148 SUB 6 ERROR+48 =5(11)=
|
||
.00.0 21 0018 6 0000 13 0148 SUB 6 ERROR+48
|
||
.00.0 22 0019 0 0001 49 0010 SLT 10
|
||
.00.0 23 0020 8 0000 31 0022 BOF 8 *+2
|
||
.00.0 24 0021 8 0051 12 0045 F4248 51,12,+1
|
||
.00.0 25 0022 8 4400 28 0021 DLB 8 *-1,44,0
|
||
.00.0 26 0023 8 1100 36 0029 *D BFA 8 C+,11,0
|
||
.00.0 27 0024 8 0412 40 0031 STB 8 E+,04
|
||
.00.0 28 0025 8 0000 41 0031 LDR 8 E+
|
||
.00.0 29 0026 0 0001 49 0018 SLT 18
|
||
.00.0 30 0027 8 0000 42 0000 *G LDB 8 ROMXX
|
||
.00.0 31 0028 6 0000 30 0202 BUN 6 SQRT+2
|
||
.00.0 32 0029 0 0001 49 0001 *C SLT 1
|
||
.00.0 33 0030 8 0001 21 0023 DBB 8 D-,1
|
||
.00.0 34 0031 0 0001 43 0000 *E LSA 1
|
||
.00.0 35 0032 6 0000 22 0151 *F FAD 6 ERROR+51 =1.0=
|
||
.00.0 36 0033 8 0000 30 0027 BUN 8 G-
|
||
.00.0 37 0034 8 0000 41 0037 *B LDR 8 ROM1
|
||
.00.0 38 0035 8 0000 42 0000 LDB 8 ROMXX
|
||
.00.0 39 0036 6 0000 30 0107 BUN 6 ERROR+7
|
||
.00.0 40 0037 2 5956 54 6767 ROM1 CNST $ROMXX$
|
||
.00.0 41 0038 8 0000 00 0037 ROM2 HLT 8 ROM1
|
||
.00.0 42 0039 8 0000 10 0046 ROM3 CAD 8 +5115707963
|
||
.00.0 43 0040 6 0000 41 0152 LDR 6 ERROR+52
|
||
.00.0 44 0041 1 0000 37 0000 BZR - 0
|
||
.00.0 45 0042 0 0001 49 0000 SLT 0
|
||
.00.0 46 0043 1 0000 30 0000 BUN - 0
|
||
.00.0 47 0044 LOCN LOCN *+3
|
||
.00.0 48 0047 4 0000 99 0000 CNST 40000990000
|
||
.00.0 49 0048 2 5956 54 6767 CNST $ROMXX,REAL(REAL) ERROR=1 SQRT=2 $
|
||
0049 2 2359 45 4153
|
||
0050 2 2459 45 4153
|
||
0051 2 0400 45 5959
|
||
0052 2 5659 33 8100
|
||
0053 2 6258 59 6333
|
||
0054 2 8200 00 0000
|
||
.00.0 50 0055 9 0000 00 0000 CNST 90000000000
|
||
.00.0 51 0056 LOCN LOCN
|
||
.00.0 52 0044 FINI ROMXX
|
||
0044 0 1000 00 0000 +1000000000
|
||
0045 0 0000 00 0001 +0000000001
|
||
0046 0 5115 70 7963 +5115707963
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
34 *B..1 29 *C..1 23 *D..1 31 *E..1 32 *F..1
|
||
27 *G..1 45 +0000000001 44 +1000000000 46 +5115707963 8 BMOD
|
||
100 ERROR 44 LOCN 1 RLO 37 ROM1 38 ROM2
|
||
39 ROM3 0 ROMXX 200 SQRT
|
||
|
||
END PASS 2, ERRORS = 0
|