mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-25 03:35:52 +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.
36 lines
5.6 KiB
Plaintext
36 lines
5.6 KiB
Plaintext
1 HEAD THE LIBRARY ERROR SUBROUTINE .00.0
|
|
1 ERROR DEFN * .00.0
|
|
1 ERA STP 8 C+ .00.0
|
|
1 BUN 8 A+ .00.0
|
|
1 MSGA CNST $RESULT OUT OF RANGE IN $ .00.0
|
|
1 ERB STP 8 C+ .00.0
|
|
1 BUN 8 A+ .00.0
|
|
1 MSGB CNST $RESULT UNDEFINED FOR $ .00.0
|
|
1 ERC STP 8 C+ .00.0
|
|
1 BUN 8 A+ .00.0
|
|
1 MSGC CNST $RESULT ILL-DEFINED FOR $ .00.0
|
|
1 ERD CLL 8 OUT+5 .00.0
|
|
1 STP 8 C+ .00.0
|
|
1 BUN 8 A++2 .00.0
|
|
1 Z CNST 0 .00.0
|
|
1 MSGD CNST $ ARITHMETIC OVERFLOW$ .00.0
|
|
1 *A STR 8 OUT+5 .00.0
|
|
1 CAR .00.0
|
|
1 STB 8 B+,04 .00.0
|
|
1 LDB 8 OUT1 .00.0
|
|
1 *C RTF *,5 .00.0
|
|
1 F4246 1106,44,0100 .00.0
|
|
1 F4246 OUT,30,0100 .00.0
|
|
1 *B BUN * .00.0
|
|
1 OUT CNST 0,0,0,0,0,0,0,0,0,0,0 .00.0
|
|
1 H CNST 5000000000 .00.0
|
|
1 B CNST 0 .00.0
|
|
1 C CNST 0 .00.0
|
|
1 ONE CNST 5110000000 .00.0
|
|
1 A CNST 0 .00.0
|
|
1 OUT1 HLT 8 OUT .00.0
|
|
1 CNST 40000990000 .00.0
|
|
1 CNST $ERROR RITE=1 $ .00.0
|
|
1 CNST 90000000000 .00.0
|
|
1 FINI ERROR .00.0
|