mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-05-02 22:24:16 +00:00
83 lines
3.1 KiB
Plaintext
83 lines
3.1 KiB
Plaintext
|
||
|
||
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2017-12-21 08:20
|
||
|
||
Source File: FIX.card
|
||
|
||
START PASS 1
|
||
|
||
.00.0 0000 ERROR DEFN 100
|
||
.00.0 0000 FIX CRB
|
||
.00.0 0001 SRT 8
|
||
.00.0 0002 STA 8 A+,04
|
||
.00.0 0003 LDB 8 A+
|
||
.00.0 0004 *A CLA
|
||
.00.0 0005 IBB 8 B+,9949
|
||
.00.0 0006 DBB 8 C+,10
|
||
.00.0 0007 SLT - 11
|
||
.00.0 0008 *B LDB 8 FIX
|
||
.00.0 0009 BUN - 0
|
||
.00.0 0010 *C IOM 8 D+
|
||
.00.0 0011 LDR 8 $FIX$
|
||
.00.0 0012 LDB 8 FIX
|
||
.00.0 0013 BUN 6 ERROR
|
||
.00.0 0014 *D CLR
|
||
.00.0 0015 BUN 8 B-
|
||
.00.0 0016 LOCN LOCN *+1
|
||
.00.0 0017 CNST 40000990000
|
||
.00.0 0018 CNST $FIX,INTEGER(REAL) ERROR=1 $
|
||
.00.0 0024 CNST 90000000000
|
||
.00.0 0025 LOCN LOCN
|
||
.00.0 0016 FINI FIX
|
||
0016 $FIX
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
16 $FIX 4 *A..1 8 *B..1 10 *C..1 14 *D..1
|
||
8 BMOD 100 ERROR 0 FIX 16 LOCN 1 RLO
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
|
||
START PASS 2
|
||
|
||
.00.0 1 0000 ERROR DEFN 100
|
||
.00.0 2 0000 0 0006 45 0000 FIX CRB
|
||
.00.0 3 0001 0 0001 48 0008 SRT 8
|
||
.00.0 4 0002 8 0410 40 0004 STA 8 A+,04
|
||
.00.0 5 0003 8 0000 42 0004 LDB 8 A+
|
||
.00.0 6 0004 0 0001 45 0000 *A CLA
|
||
.00.0 7 0005 8 9949 20 0008 IBB 8 B+,9949
|
||
.00.0 8 0006 8 0010 21 0010 DBB 8 C+,10
|
||
.00.0 9 0007 1 0001 49 0011 SLT - 11
|
||
.00.0 10 0008 8 0000 42 0000 *B LDB 8 FIX
|
||
.00.0 11 0009 1 0000 30 0000 BUN - 0
|
||
.00.0 12 0010 8 0002 39 0014 *C IOM 8 D+
|
||
.00.0 13 0011 8 0000 41 0016 LDR 8 $FIX$
|
||
.00.0 14 0012 8 0000 42 0000 LDB 8 FIX
|
||
.00.0 15 0013 6 0000 30 0100 BUN 6 ERROR
|
||
.00.0 16 0014 0 0002 45 0000 *D CLR
|
||
.00.0 17 0015 8 0000 30 0008 BUN 8 B-
|
||
.00.0 18 0016 LOCN LOCN *+1
|
||
.00.0 19 0017 4 0000 99 0000 CNST 40000990000
|
||
.00.0 20 0018 2 4649 67 2349 CNST $FIX,INTEGER(REAL) ERROR=1 $
|
||
0019 2 5563 45 4745
|
||
0020 2 5924 59 4541
|
||
0021 2 5304 00 4559
|
||
0022 2 5956 59 0081
|
||
0023 2 0000 00 0000
|
||
.00.0 21 0024 9 0000 00 0000 CNST 90000000000
|
||
.00.0 22 0025 LOCN LOCN
|
||
.00.0 23 0016 FINI FIX
|
||
0016 2 4649 67 0000 $FIX
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
16 $FIX 4 *A..1 8 *B..1 10 *C..1 14 *D..1
|
||
8 BMOD 100 ERROR 0 FIX 16 LOCN 1 RLO
|
||
|
||
END PASS 2, ERRORS = 0
|
||
|