commit 002402cf274f1206271c31736820b465395d6a4f from: Sven M. Hallberg date: Thu Jun 11 18:41:30 2026 UTC LINEUTIL.B.12 - use local labels commit - 450286e314cf07530b6a8725bc7067b931fe18b0 commit + 002402cf274f1206271c31736820b465395d6a4f blob - d4e0ed969d1fa8a6067858f92b00864511750f4e blob + c3f92e22ed8d09c70c3f986c7a622a0b83b56703 Binary files LINEUTIL.B,PRG and LINEUTIL.B,PRG differ blob - a03ee2ebab0443b9fb2f5d1f4abb5d02b8327ee0 blob + 535201b337e64859046290aa9b8472662e75bb95 --- LINEUTIL.B.lst +++ LINEUTIL.B.lst @@ -120,29 +120,29 @@ 2110 DATA STYZ, T: REM SAVE LO(LEN) 2111 DATA LDY#, 0 2115 DATA CPX#, 0 -2116 DATA BEQR, MC3 -2130 DATA 'MC2: REM BLOCK COPY +2116 DATA BEQR, '3 +2130 DATA ''2: REM BLOCK COPY 2140 DATA LDA(Y, Q 2141 DATA STA(Y, P 2142 DATA INY 2145 DATA LDA(Y, Q: REM UNROLL (11%) 2146 DATA STA(Y, P 2147 DATA INY -2150 DATA BNER, MC2 +2150 DATA BNER, '2 2160 DATA INCZ, P+ 2161 DATA INCZ, Q+ 2165 DATA DEX -2166 DATA BNER, MC2 -2170 DATA 'MC3: REM PARTIAL BLOCK +2166 DATA BNER, '2 +2170 DATA ''3: REM PARTIAL BLOCK 2175 DATA LDAZ, T: REM LO(LEN) -2176 DATA BEQR, MCRET -2180 DATA 'MC4 +2176 DATA BEQR, 'RET +2180 DATA ''4 2181 DATA LDA(Y, Q 2182 DATA STA(Y, P 2183 DATA INY 2184 DATA CPYZ, T -2185 DATA BCCR, MC4 -2190 DATA 'MCRET +2185 DATA BCCR, '4 +2190 DATA ''RET 2191 DATA RTS 2199 REM 2200 DATA 'PUTSTR @@ -157,11 +157,11 @@ 2215 DATA LDY#, 0 2220 DATA 'PSLOOP 2225 DATA LDA(Y, P -2226 DATA BEQR, PSEND +2226 DATA BEQR, 'END 2227 DATA JSR, CHROUT 2228 DATA INY 2229 DATA JMP, PSLOOP -2230 DATA 'PSEND +2230 DATA ''END 2235 DATA TYA 2236 DATA LDYZ, P+ 2237 DATA RTS @@ -223,7 +223,7 @@ 2309 REM 2310 DATA LDA#, 0 2311 DATA STAZ, T -2320 DATA 'QR1 +2320 DATA ''1 2325 DATA SEC 2330 DATA TXA 2340 DATA SBCZ, P @@ -231,10 +231,10 @@ 2350 DATA TYA 2360 DATA SBCZ, P+ 2365 DATA TAY -2370 DATA BCCR, QR2 +2370 DATA BCCR, '2 2380 DATA INCZ, T -2390 DATA JMP, QR1 -2400 DATA 'QR2 +2390 DATA JMP, '1 +2400 DATA ''2 2410 DATA TXA 2412 DATA ADCZ, P 2414 DATA TAX @@ -295,31 +295,31 @@ 2711 DATA STYZ, P+ 2720 DATA LDY#, 0 2725 DATA STYZ, BLNSW: REM CURSOR ON -2730 DATA 'GS1 +2730 DATA ''1 2735 DATA STYZ, T: REM SAVE Y 2740 DATA JSR, GETIN -2741 DATA BEQR, GS1 +2741 DATA BEQR, '1 2745 DATA LDYZ, T: REM RESTORE Y 2750 DATA CMP#, 13: REM CR -2751 DATA BEQR, GS3 +2751 DATA BEQR, '3 2760 DATA CMP#, 20: REM DEL -2761 DATA BNER, GS2 +2761 DATA BNER, '2 2770 DATA TYA -2771 DATA BEQR, GS1 +2771 DATA BEQR, '1 2772 DATA DEY 2773 DATA LDA#, 20 2774 DATA JSR, CHROUT -2775 DATA JMP, GS1 -2780 DATA 'GS2 +2775 DATA JMP, '1 +2780 DATA ''2 2781 DATA CMP#, 32: REM SPC -2782 DATA BCCR, GS1 +2782 DATA BCCR, '1 2783 DATA CMP#, 127: REM DEL -2784 DATA BCSR, GS1 +2784 DATA BCSR, '1 2790 DATA STA(Y, P 2791 DATA INY 2795 DATA JSR, CHROUT -2796 DATA JMP, GS1 -2800 DATA 'GS3 +2796 DATA JMP, '1 +2800 DATA ''3 2810 DATA LDA#, 0 2820 DATA STA(Y, P 2821 DATA STYZ, T @@ -344,19 +344,19 @@ 2860 DATA STYZ, T 2861 DATA LDY#, 1: REM HI(PNEXT) 2862 DATA LDA(Y, P -2863 DATA BNER, CLN1 +2863 DATA BNER, '1 2864 DATA CLC: REM < 2865 DATA RTS -2870 DATA 'CLN1 +2870 DATA ''1 2871 DATA LDAZ, T 2872 DATA LDY#, 3 2873 DATA CMP(Y, P -2874 DATA BCCR, CLNRET -2875 DATA BNER, CLNRET +2874 DATA BCCR, 'RET +2875 DATA BNER, 'RET 2880 DATA TXA 2881 DATA DEY 2882 DATA CMP(Y, P -2890 DATA 'CLNRET +2890 DATA ''RET 2891 DATA RTS 2899 REM 2900 DATA 'ATOI @@ -373,14 +373,14 @@ 2921 DATA LDY#, 0 2925 DATA STXZ, Q 2926 DATA STXZ, Q+ -2930 DATA 'AI1 +2930 DATA ''1 2940 DATA LDA(Y, P -2941 DATA BEQR, AI2 +2941 DATA BEQR, '2 2949 REM 2950 DATA CMP#, 48: REM "0" -2951 DATA BCCR, AI2 +2951 DATA BCCR, '2 2960 DATA CMP#, 58: REM "9" -2961 DATA BCSR, AI2 +2961 DATA BCSR, '2 2970 DATA SEC 2971 DATA SBC#, 48 2980 DATA STAZ, T: REM SAVE DIGIT @@ -402,12 +402,12 @@ 3021 DATA LDAZ, T 3022 DATA ADCZ, Q 3023 DATA STAZ, Q -3024 DATA BCCR, AI3 +3024 DATA BCCR, '3 3025 DATA INCZ, Q+ -3026 DATA 'AI3 +3026 DATA ''3 3030 DATA INY -3040 DATA BNER, AI1 -3050 DATA 'AI2 +3040 DATA BNER, '1 +3050 DATA ''2 3055 DATA TYA 3056 DATA LDXZ, Q 3057 DATA LDYZ, Q+ @@ -446,10 +446,10 @@ 3242 DATA STY, NSTOP+ 3249 REM CMP NSTOP, NSTART 3250 DATA CPY, NSTART+ -3251 DATA BCCR, GSS1 -3252 DATA BNER, GSS1 +3251 DATA BCCR, '1 +3252 DATA BNER, '1 3253 DATA CPX, NSTART -3259 DATA 'GSS1 +3259 DATA ''1 3260 DATA RTS 3299 REM 3300 DATA 'FINDLINE @@ -480,21 +480,21 @@ 3328 REM 3330 DATA STXZ, T 3331 DATA STYZ, B -3340 DATA 'FN3 +3340 DATA ''3 3350 DATA LDY#, 1: REM -> PNEXT HI 3351 DATA LDA(Y, P -3352 DATA BEQR, FN5: REM RETURN +3352 DATA BEQR, '5: REM RETURN 3360 DATA LDY#, 3: REM -> LINENO HI 3361 DATA LDA(Y, P 3362 DATA CMPZ, B: REM HI BYTE -3363 DATA BCCR, FN4: REM A < M -3364 DATA BNER, FN5: REM A > M +3363 DATA BCCR, '4: REM A < M +3364 DATA BNER, '5: REM A > M 3365 DATA DEY 3366 DATA LDA(Y, P 3367 DATA CMPZ, T: REM LO BYTE -3368 DATA BCCR, FN4 -3369 DATA JMP, FN5: REM RETURN -3370 DATA 'FN4: REM NEXT LINE +3368 DATA BCCR, '4 +3369 DATA JMP, '5: REM RETURN +3370 DATA ''4: REM NEXT LINE 3375 DATA LDXZ, P 3376 DATA LDYZ, P+ 3377 DATA STXZ, Q @@ -506,8 +506,8 @@ 3384 DATA LDA(Y, P 3385 DATA STXZ, P 3386 DATA STAZ, P+ -3389 DATA JMP, FN3 -3390 DATA 'FN5 +3389 DATA JMP, '3 +3390 DATA ''5 3391 DATA LDXZ, P 3392 DATA LDYZ, P+ 3393 DATA RTS @@ -530,9 +530,9 @@ 3418 DATA LDY#, S.KETCOL↑ 3419 DATA JSR, PUTSTR 3420 DATA JSR, READNAT -3421 DATA BNER, GF1: REM LEN <> 0 +3421 DATA BNER, '1: REM LEN <> 0 3422 DATA LDXZ, FA: REM DEFAULT -3423 DATA 'GF1 +3423 DATA ''1 3424 DATA PLA: REM FILE NO 3425 DATA LDY#, 0: REM SEC ADDR 3426 DATA JSR, SETLFS @@ -558,8 +558,8 @@ 3513 DATA STYZ, P+ 3520 DATA LDY#, 1 3521 DATA LDA(Y, P -3522 DATA BEQR, FL2: REM EMPTY PRG -3530 DATA 'FL1 +3522 DATA BEQR, '2: REM EMPTY PRG +3530 DATA ''1 3531 DATA LDY#, 0 3532 DATA LDA(Y, P 3533 DATA STAZ, Q @@ -567,13 +567,13 @@ 3535 DATA LDA(Y, P 3536 DATA STAZ, Q+ 3540 DATA LDA(Y, Q -3541 DATA BEQR, FL2 +3541 DATA BEQR, '2 3550 DATA LDXZ, Q 3551 DATA LDYZ, Q+ 3552 DATA STXZ, P 3553 DATA STYZ, P+ -3555 DATA JMP, FL1 -3560 DATA 'FL2 +3555 DATA JMP, '1 +3560 DATA ''2 3570 DATA LDXZ, P 3571 DATA LDYZ, P+ 3572 DATA RTS @@ -599,18 +599,18 @@ 3610 DATA STXZ, Q 3611 DATA STYZ, Q+ 3612 DATA STAZ, B -3620 DATA 'DEA1 +3620 DATA ''1 3630 DATA LDAZ, P+ 3631 DATA CMPZ, Q+ -3632 DATA BCCR, DEA2: REM P < Q -3633 DATA BNER, DEA3: REM P > Q +3632 DATA BCCR, '2: REM P < Q +3633 DATA BNER, '3: REM P > Q 3634 DATA LDAZ, P 3635 DATA CMPZ, Q -3636 DATA BCSR, DEA3 -3637 DATA 'DEA2 +3636 DATA BCSR, '3 +3637 DATA ''2 3640 DATA LDY#, 1 3641 DATA LDA(Y, P -3642 DATA BEQR, DEA3: REM DONE +3642 DATA BEQR, '3: REM DONE 3645 DATA STAZ, T: REM SAVE PNEXT (HI) 3646 DATA DEY 3647 DATA LDA(Y, P @@ -627,8 +627,8 @@ 3680 DATA LDYZ, T 3681 DATA STXZ, P: REM NEXT LINE 3682 DATA STYZ, P+ -3690 DATA JMP, DEA1 -3691 DATA 'DEA3 +3690 DATA JMP, '1 +3691 DATA ''3 3692 DATA RTS 3699 REM 3700 DATA 'RELINK @@ -639,23 +639,23 @@ 3705 REM 3706 REM CLOBBERS: A, X, Y, T 3709 REM -3710 DATA 'RL1 +3710 DATA ''1 3711 DATA LDAZ, P+ 3712 DATA CMPZ, Q+ -3713 DATA BCCR, RL2 -3714 DATA BNER, RL4 +3713 DATA BCCR, '2 +3714 DATA BNER, '4 3715 DATA LDAZ, P 3716 DATA CMPZ, Q -3717 DATA BCSR, RL4: REM PSTOP REACHD -3720 DATA 'RL2 +3717 DATA BCSR, '4: REM PSTOP REACHD +3720 DATA ''2 3721 DATA LDY#, 1 3722 DATA LDA(Y, P -3723 DATA BEQR, RL4: REM PAST LAST LN +3723 DATA BEQR, '4: REM PAST LAST LN 3725 DATA LDY#, 3 -3730 DATA 'RL3: REM SCAN FOR NUL +3730 DATA ''3: REM SCAN FOR NUL 3735 DATA INY 3740 DATA LDA(Y, P -3741 DATA BNER, RL3: REM NEXT CHAR +3741 DATA BNER, '3: REM NEXT CHAR 3742 DATA INY: REM GO PAST NUL 3750 DATA CLC: REM ADV POINTER 3751 DATA TYA @@ -672,18 +672,18 @@ 3766 DATA LDYZ, T 3770 DATA STXZ, P 3771 DATA STYZ, P+ -3780 DATA JMP, RL1: REM NEXT LINE -3790 DATA 'RL4 +3780 DATA JMP, '1: REM NEXT LINE +3790 DATA ''4 3791 DATA RTS 3799 REM 3800 DATA 'GETSTASTOLINE 3810 DATA JSR, GETSTASTO -3811 DATA BCCR, GSL1: REM STOP < START -3812 DATA BNER, GSL2: REM > -3820 DATA 'GSL1 +3811 DATA BCCR, '1: REM STOP < START +3812 DATA BNER, '2: REM > +3820 DATA ''1 3821 DATA SEC: REM NSTART >= NSTOP 3822 DATA RTS -3825 DATA 'GSL2 +3825 DATA ''2 3830 REM LOCATE START LINE 3831 DATA LDX, NSTART 3832 DATA LDY, NSTART+ @@ -732,11 +732,11 @@ 4017 DATA STA, CNT.JUNK+ 4018 DATA STA, CNT.SPC 4019 DATA STA, CNT.SPC+ -4020 DATA 'LOOP +4020 DATA ''LOOP 4021 DATA LDA#, 1 4022 DATA TAY 4023 DATA LDA(Y, P -4024 DATA BNER, NOTDONE +4024 DATA BNER, 'NOTDONE 4025 REM COUNT THE TERMINATING NULL PTR 4026 DATA CLC 4027 DATA LDA, CNT.JUNK @@ -745,63 +745,63 @@ 4030 DATA LDA, CNT.JUNK+ 4031 DATA ADC#, 0 4032 DATA STA, CNT.JUNK+ -4034 DATA JMP, DONE: REM FAR BRANCH -4035 DATA 'NOTDONE +4034 DATA JMP, 'DONE: REM FAR BRANCH +4035 DATA ''NOTDONE 4040 DATA INC, CNT -4050 DATA BNER, LC0 +4050 DATA BNER, '0 4060 DATA INC, CNT+ -4070 DATA 'LC0 +4070 DATA ''0 4080 REM COUNT DIFFERENT TYPES OF LINE 4090 REM 1. SKIP SPACES (UNNECESSARY!?) 4100 DATA LDA#, 3: REM FIRST CHR-1 4101 DATA TAY -4105 DATA 'LC1 +4105 DATA ''1 4107 DATA INY: REM NEXT CHAR 4110 DATA LDA(Y, P: REM LOAD CHAR -4120 DATA BEQR, NEXT: REM END OF LINE +4120 DATA BEQR, 'NEXT:REM END OF LINE 4130 DATA CMP#, $20: REM SPACE -4140 DATA BNER, LC1.1:REM EXIT LOOP +4140 DATA BNER, '1.1: REM EXIT LOOP 4141 DATA INC, CNT.SPC -4142 DATA BNER, LC1: REM NO OVERFLOW +4142 DATA BNER, '1: REM NO OVERFLOW 4143 DATA INC, CNT.SPC+ -4148 DATA JMP, LC1: REM REPEAT -4149 DATA 'LC1.1 +4148 DATA JMP, '1: REM REPEAT +4149 DATA ''1.1 4150 REM 2. CHECK TOKEN 4160 DATA CMP#, $8F: REM REM-TOKEN -4170 DATA BNER, LC2 +4170 DATA BNER, '2 4180 DATA INC, CNT.REM -4181 DATA BNER, LC3 +4181 DATA BNER, '3 4182 DATA INC, CNT.REM+ -4183 DATA JMP, LC3 -4190 DATA 'LC2 +4183 DATA JMP, '3 +4190 DATA ''2 4200 DATA CMP#, $83: REM DATA-TOKEN -4210 DATA BNER, LC3 +4210 DATA BNER, '3 4220 DATA INC, CNT.DATA -4221 DATA BNER, LC3 +4221 DATA BNER, '3 4222 DATA INC, CNT.DATA+ -4223 DATA JMP, LC3 +4223 DATA JMP, '3 4229 REM 3. SCAN REST OF LINE -4230 DATA 'LC3 +4230 DATA ''3 4231 DATA INY: REM NEXT CHAR 4232 DATA LDA(Y, P: REM LOAD CHAR -4233 DATA BEQR, NEXT: REM END OF LINE +4233 DATA BEQR, 'NEXT:REM END OF LINE 4235 DATA CMP#, $20: REM SPACE -4240 DATA BNER, LC3.1 +4240 DATA BNER, '3.1 4241 DATA INC, CNT.SPC -4242 DATA BNER, LC3 +4242 DATA BNER, '3 4243 DATA INC, CNT.SPC+ -4248 DATA JMP, LC3 -4250 DATA 'LC3.1 +4248 DATA JMP, '3 +4250 DATA ''3.1 4251 DATA CMP#, $22: REM QUOTE (") -4252 DATA BNER, LC3 -4260 DATA 'LC3.2: REM SKIP STRING +4252 DATA BNER, '3 +4260 DATA ''3.2: REM SKIP STRING 4261 DATA INY 4262 DATA LDA(Y, P: REM LOAD NXT CHR -4263 DATA BEQR, NEXT: REM END OF LINE +4263 DATA BEQR, 'NEXT:REM END OF LINE 4265 DATA CMP#, $22 -4266 DATA BEQR, LC3: REM QUOTE CLOSED -4267 DATA JMP, LC3.2 -4400 DATA 'NEXT +4266 DATA BEQR, '3: REM QUOTE CLOSED +4267 DATA JMP, '3.2 +4400 DATA ''NEXT 4401 REM ACCUM. LINE LEN IN JUNK CTR 4410 DATA INY: REM COUNT ZERO 4411 DATA TYA @@ -821,16 +821,16 @@ 4428 DATA TAY 4430 DATA STXZ, P 4431 DATA STYZ, P+ -4490 DATA JMP, LOOP -4500 DATA 'DONE +4490 DATA JMP, 'LOOP +4500 DATA ''DONE 4501 REM PUSH "P" (251) PAST THE END 4502 DATA CLC 4503 DATA LDAZ, P 4504 DATA ADC#, 2 4505 DATA STAZ, P -4506 DATA BCCR, DONE.1 +4506 DATA BCCR, 'DONE.1 4507 DATA INCZ, P+ -4508 DATA 'DONE.1 +4508 DATA ''DONE.1 4509 REM CALCULATE TOTAL BYTES 4510 DATA SEC 4511 DATA LDAZ, P @@ -888,13 +888,14 @@ 4737 DATA JSR, PUTSTR 4990 DATA LDA#, 13: REM CR 4991 DATA JMP, CHROUT +4999 REM 5000 DATA 'LINECUT 5001 DATA JSR, PUTISTRLN 5002 DATA .DSZ, "=DELETE LINES" 5010 DATA JSR, GETSTASTOLINE -5011 DATA BCCR, LCU2: REM START < STOP +5011 DATA BCCR, '2: REM START < STOP 5012 DATA RTS -5020 DATA 'LCU2 +5020 DATA ''2 5260 REM SCAN AFTER STOP, ADJUST PTRS 5270 DATA LDX, PSTOP 5271 DATA LDY, PSTOP+ @@ -952,19 +953,19 @@ 6006 DATA JSR, FINDLAST 6007 DATA LDY#, 1 6008 DATA LDA(Y, P -6009 DATA BNER, LCA0: REM EMPTY PRG? +6009 DATA BNER, '0: REM EMPTY PRG? 6010 DATA LDA#, 0: REM DEFAULT 0 6011 DATA STA, TMP 6012 DATA STA, TMP+ -6013 DATA JMP, LCA1 -6015 DATA 'LCA0 +6013 DATA JMP, '1 +6015 DATA ''0 6016 DATA LDY#, 2 6017 DATA LDA(Y, P 6018 DATA STA, TMP 6019 DATA INY 6020 DATA LDA(Y, P 6021 DATA STA, TMP+ -6025 DATA 'LCA1 +6025 DATA ''1 6030 DATA JSR, GETFILE 6040 DATA SEC 6041 DATA LDAZ, VARTAB @@ -978,7 +979,7 @@ 6049 DATA LDA#, 0: REM L/V 6050 DATA JSR, LOAD 6051 DATA JSR, PUTLN -6052 DATA BCCR, LCA1.1 +6052 DATA BCCR, '1.1 6060 DATA LDA#, 0 6061 DATA TAY 6062 DATA STA(Y, P @@ -987,9 +988,8 @@ 6065 DATA LDX#, S.ERROR 6066 DATA LDY#, S.ERROR↑ 6067 DATA JSR, PUTSTRLN -6068 DATA 'LCARET 6069 DATA RTS -6070 DATA 'LCA1.1 +6070 DATA ''1.1 6071 DATA STXZ, Q: REM PSTOP 6072 DATA STYZ, Q+ 6075 REM CHECK FOR LINE NUMBER CLASH @@ -997,7 +997,7 @@ 6085 DATA LDX, TMP 6086 DATA LDY, TMP+ 6090 DATA JSR, CMPLINENO -6091 DATA BCCR, LCACOK +6091 DATA BCCR, 'COK 6110 REM NULL OFF THE NEW LINES, ABORT 6111 DATA LDA#, 0 6112 DATA TAY @@ -1011,7 +1011,7 @@ 6131 DATA LDY#, S.ABORT↑ 6132 DATA JSR, PUTSTRLN 6135 DATA RTS -6140 DATA 'LCACOK +6140 DATA ''COK 6170 REM SCAN & RELINK LINES 6171 DATA JSR, RELINK 6180 REM REWRITE TERMINATOR TO BE SAFE @@ -1035,9 +1035,9 @@ 6401 DATA JSR, PUTISTRLN 6402 DATA .DSZ, "=SAVE LINES" 6410 DATA JSR, GETSTASTOLINE -6411 DATA BCCR, LCL1 +6411 DATA BCCR, '1 6415 DATA RTS -6419 DATA 'LCL1 +6419 DATA ''1 6420 DATA LDX, NSTART 6421 DATA LDY, NSTART+ 6425 DATA JSR, FINDLINE @@ -1093,11 +1093,11 @@ 6564 DATA LDA#, P 6565 DATA JSR, SAVE 6566 DATA JSR, PUTLN -6567 DATA BCCR, LCLDONE +6567 DATA BCCR, 'DONE 6570 DATA LDX#, S.ERROR 6571 DATA LDY#, S.ERROR↑ 6572 DATA JSR, PUTSTRLN -6580 DATA 'LCLDONE +6580 DATA ''DONE 6581 DATA LDY#, 0 6582 DATA LDA, TMP: REM PNEXT LO 6583 DATA STA(Y, Q: REM -> PSTOP[0] @@ -1114,9 +1114,9 @@ 6601 DATA JSR, PUTISTRLN 6602 DATA .DSZ, "=SHIFT LINES" 6610 DATA JSR, GETSTASTOLINE -6611 DATA BCCR, LCH1 +6611 DATA BCCR, '1 6612 DATA RTS -6620 DATA 'LCH1 +6620 DATA ''1 6630 DATA LDX#, S.DEST 6631 DATA LDY#, S.DEST↑ 6632 DATA JSR, PUTSTR @@ -1130,16 +1130,16 @@ 6644 REM WHERE DELTA = NDEST - NSTART 6645 REM AND NPREV/NNEXT EXIST, RSP. 6650 DATA LDA, PPREV+ -6651 DATA BEQR, LCH2 +6651 DATA BEQR, '2 6652 DATA STAZ, P+ 6653 DATA LDA, PPREV 6654 DATA STAZ, P 6655 DATA LDX, NDEST 6656 DATA LDY, NDEST+ 6660 DATA JSR, CMPLINENO -6661 DATA BCCR, LCHCLASH -6662 DATA BEQR, LCHCLASH -6665 DATA 'LCH2 +6661 DATA BCCR, 'CLASH +6662 DATA BEQR, 'CLASH +6665 DATA ''2 6669 REM CALC. DELTA = NDEST - NSTART 6670 DATA SEC 6671 DATA LDA, NDEST @@ -1148,7 +1148,7 @@ 6674 DATA LDA, NDEST+ 6675 DATA SBC, NSTART+ 6676 DATA STA, DELTA+ -6677 DATA BCCR, LCH3: REM DELTA < 0 +6677 DATA BCCR, '3: REM DELTA < 0 6680 REM DETERMINE NLAST 6681 DATA LDA, PLAST 6682 DATA STAZ, P @@ -1167,19 +1167,19 @@ 6704 DATA TAX: REM LO BYTE -> X 6705 DATA LDA, NLAST+ 6706 DATA ADC, DELTA+ -6707 DATA BCSR, LCHCLASH +6707 DATA BCSR, 'CLASH 6708 DATA CMP#, 250: REM = $FA -6709 DATA BCSR, LCHCLASH +6709 DATA BCSR, 'CLASH 6710 REM 3. NLAST + DELTA < NNEXT 6711 DATA TAY: REM HI BYTE -> Y 6712 DATA LDA, PSTOP+ -6713 DATA BEQR, LCH3 +6713 DATA BEQR, '3 6714 DATA STAZ, P+ 6715 DATA LDA, PSTOP 6716 DATA STAZ, P 6720 DATA JSR, CMPLINENO -6721 DATA BCSR, LCHCLASH -6730 DATA 'LCH3 +6721 DATA BCSR, 'CLASH +6730 DATA ''3 6740 DATA LDX, PSTART 6741 DATA LDY, PSTART+ 6742 DATA STXZ, P @@ -1191,7 +1191,7 @@ 6750 DATA LDA#, 2: REM LINE NUMBER 6751 DATA JSR, DELTAPPLY 6752 DATA RTS -6760 DATA 'LCHCLASH +6760 DATA ''CLASH 6761 DATA LDX#, S.ECLASH 6762 DATA LDY#, S.ECLASH↑ 6763 DATA JSR, PUTSTRLN