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
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
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
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
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
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
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
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
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+
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
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
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
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
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
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
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
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
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
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+
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
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
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
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+
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
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
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
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
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
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
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]
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
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
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
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
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
