1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-04-25 11:41:59 +00:00
Files
pkimpel.retro-220/software/BALGOL/BALGOL-Library/FXFL-List.lst
Paul Kimpel f288264276 Commit BALGOL compiler reconstruction WIP as of 2018-01-11:
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.
2018-01-12 08:16:52 -08:00

57 lines
2.2 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
Assembler for the Burroughs 220 BALGOL Compiler & Library -- 2018-01-11 06:24
Source File: FXFL.card
START PASS 1
.00.0 0000 FLOAT DEFN 100
.00.0 0000 FLFL DEFN 200
.00.0 0000 ERROR DEFN 300
.00.0 0000 FXFL CLB
.00.0 0001 LDB 8 FXFL
.00.0 0002 STB 6 FLFL,04
.00.0 0003 STR 6 ERROR+50 C
.00.0 0004 STR 6 ERROR+49 B
.00.0 0005 STP 6 FLOAT
.00.0 0006 BUN 6 FLOAT
.00.0 0007 LDR 6 ERROR+50 C
.00.0 0008 BUN 6 FLFL+2
.00.0 0009 CNST 40000990000
.00.0 0010 CNST $FX*FL FLOAT=1 FL*FL=2 ERROR=3 $
.00.0 0016 CNST 90000000000
.00.0 0017 FINI 1
END PASS 1, ERRORS = 0
START PASS 2
.00.0 1 0000 FLOAT DEFN 100
.00.0 2 0000 FLFL DEFN 200
.00.0 3 0000 ERROR DEFN 300
.00.0 4 0000 0 0004 45 0000 FXFL CLB
.00.0 5 0001 8 0000 42 0000 LDB 8 FXFL
.00.0 6 0002 6 0412 40 0200 STB 6 FLFL,04
.00.0 7 0003 6 0001 40 0350 STR 6 ERROR+50 C
.00.0 8 0004 6 0001 40 0349 STR 6 ERROR+49 B
.00.0 9 0005 6 0000 44 0100 STP 6 FLOAT
.00.0 10 0006 6 0000 30 0100 BUN 6 FLOAT
.00.0 11 0007 6 0000 41 0350 LDR 6 ERROR+50 C
.00.0 12 0008 6 0000 30 0202 BUN 6 FLFL+2
.00.0 13 0009 4 0000 99 0000 CNST 40000990000
.00.0 14 0010 2 4667 14 4653 CNST $FX*FL FLOAT=1 FL*FL=2 ERROR=3 $
0011 2 0046 53 5641
0012 2 6333 81 0046
0013 2 5314 46 5333
0014 2 8200 45 5959
0015 2 5659 33 8300
.00.0 15 0016 9 0000 00 0000 CNST 90000000000
.00.0 16 0017 FINI 1
SYMBOL TABLE
8 BMOD 300 ERROR 200 FLFL 100 FLOAT 0 FXFL
1 RLO
END PASS 2, ERRORS = 0