mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-26 03:58:45 +00:00
59 lines
2.2 KiB
Plaintext
59 lines
2.2 KiB
Plaintext
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-11 06:18
|
||
|
||
Source File: FLOAT.card
|
||
START PASS 1
|
||
|
||
.00.0 0000 FLOAT CRB
|
||
.00.0 0001 *B BFA 8 A+,22,0
|
||
.00.0 0002 SRA 1
|
||
.00.0 0003 IBB 8 B-,1
|
||
.00.0 0004 *A SRT 8
|
||
.00.0 0005 CAD 9 C+
|
||
.00.0 0006 SLT 8
|
||
.00.0 0007 FAD 8 D+
|
||
.00.0 0008 LDB 8 FLOAT
|
||
.00.0 0009 BUN - 0
|
||
.00.0 0010 *C CNST 58
|
||
.00.0 0011 +59
|
||
.00.0 0012 +60
|
||
.00.0 0013 *D +5800000000
|
||
.00.0 0014 CNST 40000990000
|
||
.00.0 0015 CNST $FLOAT,REAL(INTEGER) $
|
||
.00.0 0019 CNST 90000000000
|
||
.00.0 0020 FINI FLOAT
|
||
|
||
|
||
END PASS 1, ERRORS = 0
|
||
|
||
START PASS 2
|
||
|
||
.00.0 1 0000 0 0006 45 0000 FLOAT CRB
|
||
.00.0 2 0001 8 2200 36 0004 *B BFA 8 A+,22,0
|
||
.00.0 3 0002 0 0000 48 0001 SRA 1
|
||
.00.0 4 0003 8 0001 20 0001 IBB 8 B-,1
|
||
.00.0 5 0004 0 0001 48 0008 *A SRT 8
|
||
.00.0 6 0005 9 0000 10 0010 CAD 9 C+
|
||
.00.0 7 0006 0 0001 49 0008 SLT 8
|
||
.00.0 8 0007 8 0000 22 0013 FAD 8 D+
|
||
.00.0 9 0008 8 0000 42 0000 LDB 8 FLOAT
|
||
.00.0 10 0009 1 0000 30 0000 BUN - 0
|
||
.00.0 11 0010 0 0000 00 0058 *C CNST 58
|
||
.00.0 12 0011 0 0000 00 0059 +59
|
||
.00.0 13 0012 0 0000 00 0060 +60
|
||
.00.0 14 0013 0 5800 00 0000 *D +5800000000
|
||
.00.0 15 0014 4 0000 99 0000 CNST 40000990000
|
||
.00.0 16 0015 2 4653 56 4163 CNST $FLOAT,REAL(INTEGER) $
|
||
0016 2 2359 45 4153
|
||
0017 2 2449 55 6345
|
||
0018 2 4745 59 0400
|
||
.00.0 17 0019 9 0000 00 0000 CNST 90000000000
|
||
.00.0 18 0020 FINI FLOAT
|
||
|
||
|
||
SYMBOL TABLE
|
||
|
||
4 *A..1 1 *B..1 10 *C..1 13 *D..1 8 BMOD
|
||
0 FLOAT 1 RLO
|
||
|
||
END PASS 2, ERRORS = 0
|