mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-02-10 10:10:49 +00:00
61 lines
9.6 KiB
Plaintext
61 lines
9.6 KiB
Plaintext
1 REM 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
|