mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-18 00:47:46 +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.
61 lines
9.6 KiB
Plaintext
61 lines
9.6 KiB
Plaintext
1 HEAD THE LABEL PROCESSING SUBROUTINE .00.0
|
|
1 ERROR DEFN 100 .00.0
|
|
1 LABEL BCS *,8 .00.0
|
|
1 LDB 8 NUMLB .00.0
|
|
1 BOF 6 ERROR+21 .00.0
|
|
1 LDB 8 LABEL .00.0
|
|
1 DLB - 9998,44,1 .00.0
|
|
1 STB 8 HOLD .00.0
|
|
1 LDB 8 LABEL .00.0
|
|
1 DLB - 9999,44,0 .00.0
|
|
1 STA 8 HOLD1 .00.0
|
|
1 CAD - 0 .00.0
|
|
1 STA 6 ERROR+49 B .00.0
|
|
1 SRT 10 .00.0
|
|
1 STP 8 NUMLX .00.0
|
|
1 BSA 8 NUMLB,1 .00.0
|
|
1 STA 6 ERROR+44 .00.0
|
|
1 STR 6 ERROR+45 .00.0
|
|
1 CAA 8 HOLD .00.0
|
|
1 SUB 8 +10000 .00.0
|
|
1 SRT 10 .00.0
|
|
1 STP 8 NUMLX .00.0
|
|
1 BUN 8 NUMLB .00.0
|
|
1 STR 6 ERROR+46,08 .00.0
|
|
1 *I BUN 8 *+1 .00.0
|
|
1 IFL 6 ERROR+46,22,24 .00.0
|
|
1 IFL 6 ERROR+47,22,04 .00.0
|
|
1 IFL 8 I-,04,3 .00.0
|
|
1 BCS 8 PRINT,7 .00.0
|
|
1 EXIT LDB 8 LABEL .00.0
|
|
1 CAD 8 HOLD1 .00.0
|
|
1 BUN - 0 .00.0
|
|
1 REM .00.0
|
|
1 PRINT LDB 8 *+2 .00.0
|
|
1 RTF 6 ERROR+24,1 ZERO .00.0
|
|
1 RTF 6 ERROR+37,5 .00.0
|
|
1 STP 6 ERROR+36 .00.0
|
|
1 BUN 6 ERROR+34 .00.0
|
|
1 BUN 8 EXIT .00.0
|
|
1 REM .00.0
|
|
1 REM .00.0
|
|
1 NUMLB F4248 8001,45,LABEL+3 .00.0
|
|
1 SLA 1 .00.0
|
|
1 SLT 1 .00.0
|
|
1 SUB 8 +80 .00.0
|
|
1 IFL 8 NUMLB,11,8 .00.0
|
|
1 BOF 8 NUMLB+1 .00.0
|
|
1 IFL 8 *-1,11,5 .00.0
|
|
1 BOF 8 A+ .00.0
|
|
1 STA 6 ERROR+50 C .00.0
|
|
1 BUN 8 NUMLB .00.0
|
|
1 *A SRT 10 .00.0
|
|
1 CAD 6 ERROR+50 C .00.0
|
|
1 NUMLX BUN * .00.0
|
|
1 LOCN LOCN *+4 .00.0
|
|
1 CNST 40000990000 .00.0
|
|
1 CNST $LABEL ERROR=1 $ .00.0
|
|
1 CNST 90000000000 .00.0
|
|
1 LOCN LOCN .00.0
|
|
1 FINI LABEL .00.0
|