mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-24 19:34:04 +00:00
144 lines
6.4 KiB
Plaintext
144 lines
6.4 KiB
Plaintext
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-11 06:13
|
||
|
||
Source File: FLFL.card
|
||
START PASS 1
|
||
|
||
.00.0 0000 ERROR DEFN 100
|
||
.00.0 0000 LOG DEFN 200
|
||
.00.0 0000 EXP DEFN 300
|
||
.00.0 0000 FIX DEFN 400
|
||
.00.0 0000 FLFL F4247 6,1,0
|
||
.00.0 0001 STR 6 ERROR+50 C
|
||
.00.0 0002 STB 8 A+,41
|
||
.00.0 0003 STA 6 ERROR+52
|
||
.00.0 0004 DLB 8 FLFL,44,0
|
||
.00.0 0005 BOF 6 ERROR+21
|
||
.00.0 0006 *C LDB 8 FLFL
|
||
.00.0 0007 BZA 8 D+
|
||
.00.0 0008 BMA 8 E+
|
||
.00.0 0009 *F STP 6 LOG
|
||
.00.0 0010 BUN 6 LOG
|
||
.00.0 0011 FMU 6 ERROR+50 C
|
||
.00.0 0012 BOF 8 G+
|
||
.00.0 0013 CFA 8 +5311282665
|
||
.00.0 0014 BCH 8 Y+
|
||
.00.0 0015 STP 6 EXP
|
||
.00.0 0016 BUN 6 EXP
|
||
.00.0 0017 *A LSA 0
|
||
.00.0 0018 *Z LDB 8 FLFL
|
||
.00.0 0019 BUN - 0
|
||
.00.0 0020 *D CFR 6 ERROR+24 =0=
|
||
.00.0 0021 BCH - 0
|
||
.00.0 0022 BUN 8 X+
|
||
.00.0 0023 *E SOH
|
||
.00.0 0024 SLT 10
|
||
.00.0 0025 STP 6 FIX
|
||
.00.0 0026 BUN 6 FIX
|
||
.00.0 0027 SOR
|
||
.00.0 0028 BZR 8 I+
|
||
.00.0 0029 *X LDB 8 FLFL
|
||
.00.0 0030 LDR 8 $FLFL$
|
||
.00.0 0031 BUN 6 ERROR+7
|
||
.00.0 0032 *I SLS 10
|
||
.00.0 0033 RND
|
||
.00.0 0034 SRS 4
|
||
.00.0 0035 STA 8 A-,41
|
||
.00.0 0036 CAA 6 ERROR+52
|
||
.00.0 0037 BUN 8 F-
|
||
.00.0 0038 *Y LDR 8 $FLFL$
|
||
.00.0 0039 LDB 8 FLFL
|
||
.00.0 0040 BUN 6 ERROR
|
||
.00.0 0041 *G CAD 6 ERROR+52
|
||
.00.0 0042 MUL 6 ERROR+50 C
|
||
.00.0 0043 BPA 8 Y-
|
||
.00.0 0044 CLA
|
||
.00.0 0045 BUN 8 Z-
|
||
.00.0 0046 LOCN LOCN *+2
|
||
.00.0 0048 CNST 40000990000
|
||
.00.0 0049 CNST $FL*FL ERROR=1 LOG=2 EXP=3 FIX=4 $
|
||
.00.0 0056 CNST 90000000000
|
||
.00.0 0057 LOCN LOCN
|
||
.00.0 0046 FINI 1
|
||
0046 +5311282665
|
||
0047 $FLFL
|
||
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
START PASS 2
|
||
|
||
.00.0 1 0000 ERROR DEFN 100
|
||
.00.0 2 0000 LOG DEFN 200
|
||
.00.0 3 0000 EXP DEFN 300
|
||
.00.0 4 0000 FIX DEFN 400
|
||
.00.0 5 0000 7 0006 01 0000 FLFL F4247 6,1,0
|
||
.00.0 6 0001 6 0001 40 0150 STR 6 ERROR+50 C
|
||
.00.0 7 0002 8 4112 40 0017 STB 8 A+,41
|
||
.00.0 8 0003 6 0000 40 0152 STA 6 ERROR+52
|
||
.00.0 9 0004 8 4400 28 0000 DLB 8 FLFL,44,0
|
||
.00.0 10 0005 6 0000 31 0121 BOF 6 ERROR+21
|
||
.00.0 11 0006 8 0000 42 0000 *C LDB 8 FLFL
|
||
.00.0 12 0007 8 0000 36 0020 BZA 8 D+
|
||
.00.0 13 0008 8 0001 33 0023 BMA 8 E+
|
||
.00.0 14 0009 6 0000 44 0200 *F STP 6 LOG
|
||
.00.0 15 0010 6 0000 30 0200 BUN 6 LOG
|
||
.00.0 16 0011 6 0000 24 0150 FMU 6 ERROR+50 C
|
||
.00.0 17 0012 8 0000 31 0041 BOF 8 G+
|
||
.00.0 18 0013 8 0000 18 0046 CFA 8 +5311282665
|
||
.00.0 19 0014 8 0000 34 0038 BCH 8 Y+
|
||
.00.0 20 0015 6 0000 44 0300 STP 6 EXP
|
||
.00.0 21 0016 6 0000 30 0300 BUN 6 EXP
|
||
.00.0 22 0017 0 0000 43 0000 *A LSA 0
|
||
.00.0 23 0018 8 0000 42 0000 *Z LDB 8 FLFL
|
||
.00.0 24 0019 1 0000 30 0000 BUN - 0
|
||
.00.0 25 0020 6 0001 18 0124 *D CFR 6 ERROR+24 =0=
|
||
.00.0 26 0021 1 0000 34 0000 BCH - 0
|
||
.00.0 27 0022 8 0000 30 0029 BUN 8 X+
|
||
.00.0 28 0023 0 0001 39 0000 *E SOH
|
||
.00.0 29 0024 0 0001 49 0010 SLT 10
|
||
.00.0 30 0025 6 0000 44 0400 STP 6 FIX
|
||
.00.0 31 0026 6 0000 30 0400 BUN 6 FIX
|
||
.00.0 32 0027 0 0000 39 0000 SOR
|
||
.00.0 33 0028 8 0000 37 0032 BZR 8 I+
|
||
.00.0 34 0029 8 0000 42 0000 *X LDB 8 FLFL
|
||
.00.0 35 0030 8 0000 41 0047 LDR 8 $FLFL$
|
||
.00.0 36 0031 6 0000 30 0107 BUN 6 ERROR+7
|
||
.00.0 37 0032 0 0002 49 0010 *I SLS 10
|
||
.00.0 38 0033 0 0000 16 0000 RND
|
||
.00.0 39 0034 0 0002 48 0004 SRS 4
|
||
.00.0 40 0035 8 4110 40 0017 STA 8 A-,41
|
||
.00.0 41 0036 6 0001 10 0152 CAA 6 ERROR+52
|
||
.00.0 42 0037 8 0000 30 0009 BUN 8 F-
|
||
.00.0 43 0038 8 0000 41 0047 *Y LDR 8 $FLFL$
|
||
.00.0 44 0039 8 0000 42 0000 LDB 8 FLFL
|
||
.00.0 45 0040 6 0000 30 0100 BUN 6 ERROR
|
||
.00.0 46 0041 6 0000 10 0152 *G CAD 6 ERROR+52
|
||
.00.0 47 0042 6 0000 14 0150 MUL 6 ERROR+50 C
|
||
.00.0 48 0043 8 0000 33 0038 BPA 8 Y-
|
||
.00.0 49 0044 0 0001 45 0000 CLA
|
||
.00.0 50 0045 8 0000 30 0018 BUN 8 Z-
|
||
.00.0 51 0046 LOCN LOCN *+2
|
||
.00.0 52 0048 4 0000 99 0000 CNST 40000990000
|
||
.00.0 53 0049 2 4653 14 4653 CNST $FL*FL ERROR=1 LOG=2 EXP=3 FIX=4 $
|
||
0050 2 0045 59 5956
|
||
0051 2 5933 81 0053
|
||
0052 2 5647 33 8200
|
||
0053 2 4567 57 3383
|
||
0054 2 0046 49 6733
|
||
0055 2 8400 00 0000
|
||
.00.0 54 0056 9 0000 00 0000 CNST 90000000000
|
||
.00.0 55 0057 LOCN LOCN
|
||
.00.0 56 0046 FINI 1
|
||
0046 0 5311 28 2665 +5311282665
|
||
0047 2 4653 46 5300 $FLFL
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
47 $FLFL 17 *A..1 6 *C..1 20 *D..1 23 *E..1
|
||
9 *F..1 41 *G..1 32 *I..1 29 *X..1 38 *Y..1
|
||
18 *Z..1 46 +5311282665 8 BMOD 100 ERROR 300 EXP
|
||
400 FIX 0 FLFL 46 LOCN 200 LOG 1 RLO
|
||
|
||
END PASS 2, ERRORS = 0
|