commit - 157ff21cb9c18757bf8529fa8aaa0493b1518724
commit + 5be51053e102d292dc994302c0c314c55e9e6bb2
blob - c3f92e22ed8d09c70c3f986c7a622a0b83b56703
blob + ee51d07700a3c69ba7b086dfd664712f1cc2d222
Binary files LINEUTIL.B,PRG and LINEUTIL.B,PRG differ
blob - 535201b337e64859046290aa9b8472662e75bb95
blob + fc78e508443e0075a9466a8c1e451ba8313c66ba
--- LINEUTIL.B.lst
+++ LINEUTIL.B.lst
2146 DATA STA(Y, P
2147 DATA INY
2150 DATA BNER, '2
-2160 DATA INCZ, P+
-2161 DATA INCZ, Q+
+2160 DATA INCZ, P↑
+2161 DATA INCZ, Q↑
2165 DATA DEX
2166 DATA BNER, '2
2170 DATA ''3: REM PARTIAL BLOCK
2205 REM CLOBBERS: A, 251-252 (P)
2206 REM
2210 DATA STXZ, P: REM USER ZP AREA
-2211 DATA STYZ, P+
+2211 DATA STYZ, P↑
2215 DATA LDY#, 0
2220 DATA 'PSLOOP
2225 DATA LDA(Y, P
2229 DATA JMP, PSLOOP
2230 DATA ''END
2235 DATA TYA
-2236 DATA LDYZ, P+
+2236 DATA LDYZ, P↑
2237 DATA RTS
2239 REM
2240 DATA 'PUTLN
2260 DATA PLA: REM LO BYTE
2261 DATA STAZ, P
2262 DATA PLA
-2263 DATA STAZ, P+
+2263 DATA STAZ, P↑
2264 DATA LDY#, 1: REM RET ADDR + 1
2265 DATA JSR, PSLOOP
2268 DATA 'PISRET
2270 DATA CLC
2271 DATA ADCZ, P
2272 DATA TAX
-2273 DATA TYA: REM = P+
+2273 DATA TYA: REM = P↑
2274 DATA ADC#, 0
2275 DATA PHA
2276 DATA TXA
2281 DATA PLA
2282 DATA STAZ, P
2283 DATA PLA
-2284 DATA STAZ, P+
+2284 DATA STAZ, P↑
2285 DATA LDY#, 1
2286 DATA JSR, PSLOOP
2290 DATA TAX
2340 DATA SBCZ, P
2345 DATA TAX
2350 DATA TYA
-2360 DATA SBCZ, P+
+2360 DATA SBCZ, P↑
2365 DATA TAY
2370 DATA BCCR, '2
2380 DATA INCZ, T
2412 DATA ADCZ, P
2414 DATA TAX
2416 DATA TYA
-2418 DATA ADCZ, P+
+2418 DATA ADCZ, P↑
2420 DATA TAY
2422 DATA LDAZ, T
2423 DATA CLC
2505 REM
2510 DATA LDA#, 10000
2511 DATA STAZ, P
-2512 DATA LDA#, 10000↑
-2513 DATA STAZ, P+
+2512 DATA LDA#, 10000%
+2513 DATA STAZ, P↑
2520 DATA JSR, QUOTREM
2530 DATA ADC#, $30: REM "0"
2540 DATA JSR, CHROUT
2550 DATA LDA#, 1000
2551 DATA STAZ, P
-2552 DATA LDA#, 1000↑
-2553 DATA STAZ, P+
+2552 DATA LDA#, 1000%
+2553 DATA STAZ, P↑
2560 DATA JSR, QUOTREM
2570 DATA ADC#, $30
2580 DATA JSR, CHROUT
2590 DATA LDA#, 100
2591 DATA STAZ, P
2592 DATA LDA#, 0
-2593 DATA STAZ, P+
+2593 DATA STAZ, P↑
2600 DATA JSR, QUOTREM
2610 DATA ADC#, $30
2620 DATA JSR, CHROUT
2630 DATA LDA#, 10
2631 DATA STAZ, P
2632 DATA LDA#, 0
-2633 DATA STAZ, P+
+2633 DATA STAZ, P↑
2640 DATA JSR, QUOTREM
2650 DATA ADC#, $30
2651 DATA JSR, CHROUT
2705 REM CLOBBERS: T, P
2706 REM
2710 DATA STXZ, P
-2711 DATA STYZ, P+
+2711 DATA STYZ, P↑
2720 DATA LDY#, 0
2725 DATA STYZ, BLNSW: REM CURSOR ON
2730 DATA ''1
2826 DATA LDA#, 13
2827 DATA JSR, CHROUT
2830 DATA LDXZ, P
-2831 DATA LDYZ, P+
+2831 DATA LDYZ, P↑
2832 DATA LDAZ, T
2833 DATA RTS
2849 REM
2906 REM CLOBBERS: T, P, Q
2907 REM
2910 DATA STXZ, P
-2911 DATA STYZ, P+
+2911 DATA STYZ, P↑
2920 DATA LDX#, 0
2921 DATA LDY#, 0
2925 DATA STXZ, Q
-2926 DATA STXZ, Q+
+2926 DATA STXZ, Q↑
2930 DATA ''1
2940 DATA LDA(Y, P
2941 DATA BEQR, '2
2971 DATA SBC#, 48
2980 DATA STAZ, T: REM SAVE DIGIT
2985 DATA LDAZ, Q: REM SAVE VALUE
-2986 DATA LDXZ, Q+
+2986 DATA LDXZ, Q↑
2990 DATA ASLZ, Q: REM DBL 2X
-2991 DATA ROLZ, Q+
+2991 DATA ROLZ, Q↑
2992 DATA ASLZ, Q: REM DBL 4X
-2993 DATA ROLZ, Q+
+2993 DATA ROLZ, Q↑
3000 DATA CLC: REM ADD 5X
3001 DATA ADCZ, Q
3002 DATA STAZ, Q
3003 DATA TXA
-3004 DATA ADCZ, Q+
-3005 DATA STAZ, Q+
+3004 DATA ADCZ, Q↑
+3005 DATA STAZ, Q↑
3010 DATA ASLZ, Q: REM DBL 10X
-3011 DATA ROLZ, Q+
+3011 DATA ROLZ, Q↑
3020 DATA CLC: REM ADD DIGIT
3021 DATA LDAZ, T
3022 DATA ADCZ, Q
3023 DATA STAZ, Q
3024 DATA BCCR, '3
-3025 DATA INCZ, Q+
+3025 DATA INCZ, Q↑
3026 DATA ''3
3030 DATA INY
3040 DATA BNER, '1
3050 DATA ''2
3055 DATA TYA
3056 DATA LDXZ, Q
-3057 DATA LDYZ, Q+
+3057 DATA LDYZ, Q↑
3060 DATA RTS
3099 REM
3100 DATA 'READNAT
3103 REM A OUT: LENGTH CONSUMED
3104 REM
3110 DATA LDX#, BUF
-3111 DATA LDY#, BUF↑
+3111 DATA LDY#, BUF%
3120 DATA JSR, GETSTR
3125 DATA JSR, ATOI
3126 DATA CMP#, 0: REM LEN -> FLAGS
3205 REM CLOBBERS: A, X, Y, 2, P, Q
3206 REM
3210 DATA LDX#, S.START
-3211 DATA LDY#, S.START↑
+3211 DATA LDY#, S.START%
3212 DATA JSR, PUTSTR
3220 DATA JSR, READNAT
3221 DATA STX, NSTART
-3222 DATA STY, NSTART+
+3222 DATA STY, NSTART↑
3230 DATA LDX#, S.STOP
-3231 DATA LDY#, S.STOP↑
+3231 DATA LDY#, S.STOP%
3232 DATA JSR, PUTSTR
3240 DATA JSR, READNAT
3241 DATA STX, NSTOP
-3242 DATA STY, NSTOP+
+3242 DATA STY, NSTOP↑
3249 REM CMP NSTOP, NSTART
-3250 DATA CPY, NSTART+
+3250 DATA CPY, NSTART↑
3251 DATA BCCR, '1
3252 DATA BNER, '1
3253 DATA CPX, NSTART
3308 REM
3310 DATA LDAZ, TXTTAB
3311 DATA STAZ, P: REM -> P
-3312 DATA LDAZ, TXTTAB+
-3313 DATA STAZ, P+
+3312 DATA LDAZ, TXTTAB↑
+3313 DATA STAZ, P↑
3315 DATA LDA#, 0: REM PREV PTR
3316 DATA STAZ, Q
-3317 DATA STAZ, Q+
+3317 DATA STAZ, Q↑
3319 REM ...
3320 DATA 'FINDNEXT
3321 REM
3369 DATA JMP, '5: REM RETURN
3370 DATA ''4: REM NEXT LINE
3375 DATA LDXZ, P
-3376 DATA LDYZ, P+
+3376 DATA LDYZ, P↑
3377 DATA STXZ, Q
-3378 DATA STYZ, Q+
+3378 DATA STYZ, Q↑
3380 DATA LDY#, 0
3381 DATA LDA(Y, P
3382 DATA TAX
3383 DATA INY
3384 DATA LDA(Y, P
3385 DATA STXZ, P
-3386 DATA STAZ, P+
+3386 DATA STAZ, P↑
3389 DATA JMP, '3
3390 DATA ''5
3391 DATA LDXZ, P
-3392 DATA LDYZ, P+
+3392 DATA LDYZ, P↑
3393 DATA RTS
3399 REM
3400 DATA 'GETFILE
3405 REM
3409 DATA PHA: REM SAVE FILE NO
3410 DATA LDX#, S.DRVBRA
-3411 DATA LDY#, S.DRVBRA↑
+3411 DATA LDY#, S.DRVBRA%
3412 DATA JSR, PUTSTR
3413 DATA LDAZ, FA: REM CURRENT DEV
3414 DATA CLC
3415 DATA ADC#, 48: REM XXX PRINTBYTE
3416 DATA JSR, CHROUT
3417 DATA LDX#, S.KETCOL
-3418 DATA LDY#, S.KETCOL↑
+3418 DATA LDY#, S.KETCOL%
3419 DATA JSR, PUTSTR
3420 DATA JSR, READNAT
3421 DATA BNER, '1: REM LEN <> 0
3425 DATA LDY#, 0: REM SEC ADDR
3426 DATA JSR, SETLFS
3430 DATA LDX#, S.FILE
-3431 DATA LDY#, S.FILE↑
+3431 DATA LDY#, S.FILE%
3432 DATA JSR, PUTSTR
3433 DATA LDX#, BUF
-3434 DATA LDY#, BUF↑
+3434 DATA LDY#, BUF%
3435 DATA JSR, GETSTR
3437 DATA JSR, SETNAM
3441 DATA RTS
3505 REM CLOBBERS: A, X, Y, P, Q
3506 REM
3510 DATA LDXZ, TXTTAB
-3511 DATA LDYZ, TXTTAB+
+3511 DATA LDYZ, TXTTAB↑
3512 DATA STXZ, P
-3513 DATA STYZ, P+
+3513 DATA STYZ, P↑
3520 DATA LDY#, 1
3521 DATA LDA(Y, P
3522 DATA BEQR, '2: REM EMPTY PRG
3533 DATA STAZ, Q
3534 DATA INY
3535 DATA LDA(Y, P
-3536 DATA STAZ, Q+
+3536 DATA STAZ, Q↑
3540 DATA LDA(Y, Q
3541 DATA BEQR, '2
3550 DATA LDXZ, Q
-3551 DATA LDYZ, Q+
+3551 DATA LDYZ, Q↑
3552 DATA STXZ, P
-3553 DATA STYZ, P+
+3553 DATA STYZ, P↑
3555 DATA JMP, '1
3560 DATA ''2
3570 DATA LDXZ, P
-3571 DATA LDYZ, P+
+3571 DATA LDYZ, P↑
3572 DATA RTS
3579 REM
3580 DATA 'PUTNL
3608 REM CLOBBERS: A,X,Y,P,Q,T,B
3609 REM
3610 DATA STXZ, Q
-3611 DATA STYZ, Q+
+3611 DATA STYZ, Q↑
3612 DATA STAZ, B
3620 DATA ''1
-3630 DATA LDAZ, P+
-3631 DATA CMPZ, Q+
+3630 DATA LDAZ, P↑
+3631 DATA CMPZ, Q↑
3632 DATA BCCR, '2: REM P < Q
3633 DATA BNER, '3: REM P > Q
3634 DATA LDAZ, P
3662 DATA STA(Y, P
3663 DATA INY
3664 DATA LDA(Y, P
-3665 DATA ADC, DELTA+
+3665 DATA ADC, DELTA↑
3666 DATA STA(Y, P
3680 DATA LDYZ, T
3681 DATA STXZ, P: REM NEXT LINE
-3682 DATA STYZ, P+
+3682 DATA STYZ, P↑
3690 DATA JMP, '1
3691 DATA ''3
3692 DATA RTS
3706 REM CLOBBERS: A, X, Y, T
3709 REM
3710 DATA ''1
-3711 DATA LDAZ, P+
-3712 DATA CMPZ, Q+
+3711 DATA LDAZ, P↑
+3712 DATA CMPZ, Q↑
3713 DATA BCCR, '2
3714 DATA BNER, '4
3715 DATA LDAZ, P
3752 DATA ADCZ, P
3753 DATA TAX
3754 DATA LDA#, 0
-3755 DATA ADCZ, P+
+3755 DATA ADCZ, P↑
3760 DATA LDY#, 1
3761 DATA STA(Y, P
3762 DATA STAZ, T: REM SAVE HI BYTE
3765 DATA STA(Y, P
3766 DATA LDYZ, T
3770 DATA STXZ, P
-3771 DATA STYZ, P+
+3771 DATA STYZ, P↑
3780 DATA JMP, '1: REM NEXT LINE
3790 DATA ''4
3791 DATA RTS
3825 DATA ''2
3830 REM LOCATE START LINE
3831 DATA LDX, NSTART
-3832 DATA LDY, NSTART+
+3832 DATA LDY, NSTART↑
3833 DATA JSR, FINDLINE
3834 DATA STX, PSTART
-3835 DATA STY, PSTART+
+3835 DATA STY, PSTART↑
3840 REM SAVE PTR TO PRECEEDING LINE
3841 DATA LDXZ, Q
-3842 DATA LDYZ, Q+
+3842 DATA LDYZ, Q↑
3843 DATA STX, PPREV
-3844 DATA STY, PPREV+
+3844 DATA STY, PPREV↑
3850 REM LOCATE STOP LINE
3851 DATA LDX, NSTOP
-3852 DATA LDY, NSTOP+
+3852 DATA LDY, NSTOP↑
3853 DATA JSR, FINDNEXT
3854 DATA STX, PSTOP
-3855 DATA STY, PSTOP+
+3855 DATA STY, PSTOP↑
3860 REM SAVE PTR TO LAST LINE
3861 DATA LDXZ, Q
-3862 DATA LDYZ, Q+
+3862 DATA LDYZ, Q↑
3863 DATA STX, PLAST
-3864 DATA STY, PLAST+
+3864 DATA STY, PLAST↑
3870 REM CALC. DELTA = PSTART - PSTOP
3871 DATA SEC
3872 DATA LDA, PSTART
3873 DATA SBC, PSTOP
3874 DATA STA, DELTA
-3875 DATA LDA, PSTART+
-3876 DATA SBC, PSTOP+
-3877 DATA STA, DELTA+
+3875 DATA LDA, PSTART↑
+3876 DATA SBC, PSTOP↑
+3877 DATA STA, DELTA↑
3880 DATA RTS
3999 REM
4000 DATA 'LINECNT
4005 DATA LDXZ, TXTTAB
-4006 DATA LDYZ, TXTTAB+
+4006 DATA LDYZ, TXTTAB↑
4007 DATA STXZ, P
-4008 DATA STYZ, P+
+4008 DATA STYZ, P↑
4009 DATA LDA#, 0
4010 DATA STA, CNT
-4011 DATA STA, CNT+
+4011 DATA STA, CNT↑
4012 DATA STA, CNT.REM
-4013 DATA STA, CNT.REM+
+4013 DATA STA, CNT.REM↑
4014 DATA STA, CNT.DATA
-4015 DATA STA, CNT.DATA+
+4015 DATA STA, CNT.DATA↑
4016 DATA STA, CNT.JUNK
-4017 DATA STA, CNT.JUNK+
+4017 DATA STA, CNT.JUNK↑
4018 DATA STA, CNT.SPC
-4019 DATA STA, CNT.SPC+
+4019 DATA STA, CNT.SPC↑
4020 DATA ''LOOP
4021 DATA LDA#, 1
4022 DATA TAY
4027 DATA LDA, CNT.JUNK
4028 DATA ADC#, 2
4029 DATA STA, CNT.JUNK
-4030 DATA LDA, CNT.JUNK+
+4030 DATA LDA, CNT.JUNK↑
4031 DATA ADC#, 0
-4032 DATA STA, CNT.JUNK+
+4032 DATA STA, CNT.JUNK↑
4034 DATA JMP, 'DONE: REM FAR BRANCH
4035 DATA ''NOTDONE
4040 DATA INC, CNT
4050 DATA BNER, '0
-4060 DATA INC, CNT+
+4060 DATA INC, CNT↑
4070 DATA ''0
4080 REM COUNT DIFFERENT TYPES OF LINE
4090 REM 1. SKIP SPACES (UNNECESSARY!?)
4140 DATA BNER, '1.1: REM EXIT LOOP
4141 DATA INC, CNT.SPC
4142 DATA BNER, '1: REM NO OVERFLOW
-4143 DATA INC, CNT.SPC+
+4143 DATA INC, CNT.SPC↑
4148 DATA JMP, '1: REM REPEAT
4149 DATA ''1.1
4150 REM 2. CHECK TOKEN
4170 DATA BNER, '2
4180 DATA INC, CNT.REM
4181 DATA BNER, '3
-4182 DATA INC, CNT.REM+
+4182 DATA INC, CNT.REM↑
4183 DATA JMP, '3
4190 DATA ''2
4200 DATA CMP#, $83: REM DATA-TOKEN
4210 DATA BNER, '3
4220 DATA INC, CNT.DATA
4221 DATA BNER, '3
-4222 DATA INC, CNT.DATA+
+4222 DATA INC, CNT.DATA↑
4223 DATA JMP, '3
4229 REM 3. SCAN REST OF LINE
4230 DATA ''3
4240 DATA BNER, '3.1
4241 DATA INC, CNT.SPC
4242 DATA BNER, '3
-4243 DATA INC, CNT.SPC+
+4243 DATA INC, CNT.SPC↑
4248 DATA JMP, '3
4250 DATA ''3.1
4251 DATA CMP#, $22: REM QUOTE (")
4413 DATA ADC, CNT.JUNK
4414 DATA STA, CNT.JUNK
4415 DATA LDA#, 0
-4416 DATA ADC, CNT.JUNK+
-4417 DATA STA, CNT.JUNK+
+4416 DATA ADC, CNT.JUNK↑
+4417 DATA STA, CNT.JUNK↑
4420 REM ADVANCE (DEREF) LINE PTR
4421 DATA LDA#, 0
4422 DATA TAY
4427 DATA LDA(Y, P
4428 DATA TAY
4430 DATA STXZ, P
-4431 DATA STYZ, P+
+4431 DATA STYZ, P↑
4490 DATA JMP, 'LOOP
4500 DATA ''DONE
4501 REM PUSH "P" (251) PAST THE END
4504 DATA ADC#, 2
4505 DATA STAZ, P
4506 DATA BCCR, 'DONE.1
-4507 DATA INCZ, P+
+4507 DATA INCZ, P↑
4508 DATA ''DONE.1
4509 REM CALCULATE TOTAL BYTES
4510 DATA SEC
4511 DATA LDAZ, P
4512 DATA SBCZ, TXTTAB
4513 DATA STA, CNT.BS
-4514 DATA LDAZ, P+
-4515 DATA SBCZ, TXTTAB+
-4516 DATA STA, CNT.BS+
+4514 DATA LDAZ, P↑
+4515 DATA SBCZ, TXTTAB↑
+4516 DATA STA, CNT.BS↑
4520 REM CALCULATE JUNK = BS - "JUNK"
4525 DATA SEC
4527 DATA LDA, CNT.BS
4530 DATA SBC, CNT.JUNK
4535 DATA STA, CNT.JUNK
-4540 DATA LDA, CNT.BS+
-4550 DATA SBC, CNT.JUNK+
-4560 DATA STA, CNT.JUNK+
+4540 DATA LDA, CNT.BS↑
+4550 DATA SBC, CNT.JUNK↑
+4560 DATA STA, CNT.JUNK↑
4600 REM PRINT COUNTERS AND EXIT
4620 DATA LDX, CNT
-4630 DATA LDY, CNT+
+4630 DATA LDY, CNT↑
4640 DATA JSR, PRINTNAT
4650 DATA LDX#, S.LINES
-4651 DATA LDY#, S.LINES↑
+4651 DATA LDY#, S.LINES%
4652 DATA JSR, PUTSTR
4660 DATA LDX, CNT.REM
-4661 DATA LDY, CNT.REM+
+4661 DATA LDY, CNT.REM↑
4662 DATA JSR, PRINTNAT
4670 DATA LDX#, S.REM
-4671 DATA LDY#, S.REM↑
+4671 DATA LDY#, S.REM%
4672 DATA JSR, PUTSTR
4680 DATA LDX, CNT.DATA
-4681 DATA LDY, CNT.DATA+
+4681 DATA LDY, CNT.DATA↑
4682 DATA JSR, PRINTNAT
4690 DATA LDX#, S.DATA
-4691 DATA LDY#, S.DATA↑
+4691 DATA LDY#, S.DATA%
4692 DATA JSR, PUTSTR
4695 DATA LDA#, 13: REM CR
4696 DATA JSR, CHROUT
4700 DATA LDX, CNT.BS
-4701 DATA LDY, CNT.BS+
+4701 DATA LDY, CNT.BS↑
4702 DATA JSR, PRINTNAT
4710 DATA LDX#, S.BYTES
-4711 DATA LDY#, S.BYTES↑
+4711 DATA LDY#, S.BYTES%
4712 DATA JSR, PUTSTR
4720 DATA LDX, CNT.SPC
-4721 DATA LDY, CNT.SPC+
+4721 DATA LDY, CNT.SPC↑
4722 DATA JSR, PRINTNAT
4725 DATA LDX#, S.SPC
-4726 DATA LDY#, S.SPC↑
+4726 DATA LDY#, S.SPC%
4727 DATA JSR, PUTSTR
4730 DATA LDX, CNT.JUNK
-4731 DATA LDY, CNT.JUNK+
+4731 DATA LDY, CNT.JUNK↑
4732 DATA JSR, PRINTNAT
4735 DATA LDX#, S.JUNK
-4736 DATA LDY#, S.JUNK↑
+4736 DATA LDY#, S.JUNK%
4737 DATA JSR, PUTSTR
4990 DATA LDA#, 13: REM CR
4991 DATA JMP, CHROUT
5020 DATA ''2
5260 REM SCAN AFTER STOP, ADJUST PTRS
5270 DATA LDX, PSTOP
-5271 DATA LDY, PSTOP+
+5271 DATA LDY, PSTOP↑
5272 DATA STXZ, P
-5273 DATA STYZ, P+
+5273 DATA STYZ, P↑
5280 DATA LDXZ, STREND
-5281 DATA LDYZ, STREND+
+5281 DATA LDYZ, STREND↑
5290 DATA LDA#, 0: REM MODIFY PNEXT
5291 DATA JSR, DELTAPPLY
5300 REM COPY THE REMAINING DATA DOWN
5301 DATA LDX, PSTART: REM DST
-5302 DATA LDY, PSTART+
+5302 DATA LDY, PSTART↑
5303 DATA STXZ, P
-5304 DATA STYZ, P+
+5304 DATA STYZ, P↑
5305 DATA LDX, PSTOP: REM SRC
-5306 DATA LDY, PSTOP+
+5306 DATA LDY, PSTOP↑
5307 DATA STXZ, Q
-5308 DATA STYZ, Q+
+5308 DATA STYZ, Q↑
5310 DATA SEC: REM LEN=STREND-PSTOP
5311 DATA LDA, STREND
5312 DATA SBCZ, Q
5313 DATA TAY: REM Y = LO BYTE!
-5314 DATA LDA, STREND+
-5315 DATA SBCZ, Q+
+5314 DATA LDA, STREND↑
+5315 DATA SBCZ, Q↑
5316 DATA TAX: REM X = HI BYTE!
5320 DATA JSR, MEMCPY
5330 REM ADJUST VARTAB, ARYTAB, STREND
5341 DATA LDAZ, VARTAB
5342 DATA ADC, DELTA
5343 DATA STAZ, VARTAB
-5344 DATA LDAZ, VARTAB+
-5345 DATA ADC, DELTA+
-5346 DATA STAZ, VARTAB+
+5344 DATA LDAZ, VARTAB↑
+5345 DATA ADC, DELTA↑
+5346 DATA STAZ, VARTAB↑
5350 DATA CLC
5351 DATA LDAZ, ARYTAB
5352 DATA ADC, DELTA
5353 DATA STAZ, ARYTAB
-5354 DATA LDAZ, ARYTAB+
-5355 DATA ADC, DELTA+
-5356 DATA STAZ, ARYTAB+
+5354 DATA LDAZ, ARYTAB↑
+5355 DATA ADC, DELTA↑
+5356 DATA STAZ, ARYTAB↑
5360 DATA CLC
5361 DATA LDAZ, STREND
5362 DATA ADC, DELTA
5363 DATA STAZ, STREND
-5364 DATA LDAZ, STREND+
-5365 DATA ADC, DELTA+
-5366 DATA STAZ, STREND+
+5364 DATA LDAZ, STREND↑
+5365 DATA ADC, DELTA↑
+5366 DATA STAZ, STREND↑
5370 DATA RTS
5999 REM
6000 DATA 'LINECAT
6009 DATA BNER, '0: REM EMPTY PRG?
6010 DATA LDA#, 0: REM DEFAULT 0
6011 DATA STA, TMP
-6012 DATA STA, TMP+
+6012 DATA STA, TMP↑
6013 DATA JMP, '1
6015 DATA ''0
6016 DATA LDY#, 2
6018 DATA STA, TMP
6019 DATA INY
6020 DATA LDA(Y, P
-6021 DATA STA, TMP+
+6021 DATA STA, TMP↑
6025 DATA ''1
6030 DATA JSR, GETFILE
6040 DATA SEC
6042 DATA SBC#, 2: REM CUT NULL OFF
6043 DATA STAZ, P: REM PSTART
6044 DATA TAX
-6045 DATA LDAZ, VARTAB+
+6045 DATA LDAZ, VARTAB↑
6046 DATA SBC#, 0
-6047 DATA STAZ, P+
+6047 DATA STAZ, P↑
6048 DATA TAY
6049 DATA LDA#, 0: REM L/V
6050 DATA JSR, LOAD
6063 DATA INY
6064 DATA STA(Y, P
6065 DATA LDX#, S.ERROR
-6066 DATA LDY#, S.ERROR↑
+6066 DATA LDY#, S.ERROR%
6067 DATA JSR, PUTSTRLN
6069 DATA RTS
6070 DATA ''1.1
6071 DATA STXZ, Q: REM PSTOP
-6072 DATA STYZ, Q+
+6072 DATA STYZ, Q↑
6075 REM CHECK FOR LINE NUMBER CLASH
6080 REM COMPARE VS LAST LINE NUMBER
6085 DATA LDX, TMP
-6086 DATA LDY, TMP+
+6086 DATA LDY, TMP↑
6090 DATA JSR, CMPLINENO
6091 DATA BCCR, 'COK
6110 REM NULL OFF THE NEW LINES, ABORT
6114 DATA INY
6115 DATA STA(Y, P
6120 DATA LDX#, S.ECLASH
-6121 DATA LDY#, S.ECLASH↑
+6121 DATA LDY#, S.ECLASH%
6122 DATA JSR, PUTSTRLN
6130 DATA LDX#, S.ABORT
-6131 DATA LDY#, S.ABORT↑
+6131 DATA LDY#, S.ABORT%
6132 DATA JSR, PUTSTRLN
6135 DATA RTS
6140 DATA ''COK
6185 DATA STA(Y, P
6189 REM ADJUST VARTAB &C AND RET PSTOP
6190 DATA LDXZ, Q
-6191 DATA LDYZ, Q+
+6191 DATA LDYZ, Q↑
6192 DATA STXZ, VARTAB
-6193 DATA STYZ, VARTAB+
+6193 DATA STYZ, VARTAB↑
6194 DATA STXZ, ARYTAB
-6195 DATA STYZ, ARYTAB+
+6195 DATA STYZ, ARYTAB↑
6196 DATA STXZ, STREND
-6197 DATA STYZ, STREND+
+6197 DATA STYZ, STREND↑
6198 DATA RTS
6399 REM
6400 DATA 'LINECLP
6415 DATA RTS
6419 DATA ''1
6420 DATA LDX, NSTART
-6421 DATA LDY, NSTART+
+6421 DATA LDY, NSTART↑
6425 DATA JSR, FINDLINE
6430 DATA STX, PSTART
-6431 DATA STY, PSTART+
+6431 DATA STY, PSTART↑
6440 DATA LDX, NSTOP
-6441 DATA LDY, NSTOP+
+6441 DATA LDY, NSTOP↑
6442 DATA JSR, FINDNEXT
6445 DATA STX, PSTOP
-6446 DATA STY, PSTOP+
+6446 DATA STY, PSTOP↑
6450 DATA LDA#, 1: REM FILE NO
6451 DATA JSR, GETFILE
6455 REM "RELOCATE" PTRS REL TO 2049
6456 DATA LDX, PSTART
-6457 DATA LDY, PSTART+
+6457 DATA LDY, PSTART↑
6458 DATA STXZ, P
-6459 DATA STYZ, P+
+6459 DATA STYZ, P↑
6460 DATA SEC
6461 DATA LDA#, 2049
6462 DATA SBCZ, P
6463 DATA STA, DELTA
-6464 DATA LDA#, 2049↑
-6465 DATA SBCZ, P+
-6466 DATA STA, DELTA+
+6464 DATA LDA#, 2049%
+6465 DATA SBCZ, P↑
+6466 DATA STA, DELTA↑
6470 DATA LDX, PSTOP
-6471 DATA LDY, PSTOP+
+6471 DATA LDY, PSTOP↑
6475 DATA LDA#, 0
6476 DATA JSR, DELTAPPLY
6480 REM SAVE NEXT PNEXT
6485 DATA STA, TMP
6486 DATA INY
6487 DATA LDA(Y, Q
-6488 DATA STA, TMP+
+6488 DATA STA, TMP↑
6490 DATA LDA#, 0
6491 DATA STA(Y, Q
6492 DATA DEY
6552 DATA ADCZ, Q
6553 DATA TAX
6554 DATA LDA#, 0
-6555 DATA ADCZ, Q+
+6555 DATA ADCZ, Q↑
6556 DATA TAY
6560 DATA LDA, PSTART
6561 DATA STAZ, P
-6562 DATA LDA, PSTART+
-6563 DATA STAZ, P+
+6562 DATA LDA, PSTART↑
+6563 DATA STAZ, P↑
6564 DATA LDA#, P
6565 DATA JSR, SAVE
6566 DATA JSR, PUTLN
6567 DATA BCCR, 'DONE
6570 DATA LDX#, S.ERROR
-6571 DATA LDY#, S.ERROR↑
+6571 DATA LDY#, S.ERROR%
6572 DATA JSR, PUTSTRLN
6580 DATA ''DONE
6581 DATA LDY#, 0
6582 DATA LDA, TMP: REM PNEXT LO
6583 DATA STA(Y, Q: REM -> PSTOP[0]
6584 DATA INY
-6585 DATA LDA, TMP+: REM PNEXT HI
+6585 DATA LDA, TMP↑: REM PNEXT HI
6586 DATA STA(Y, Q: REM -> PSTOP[1]
6590 DATA LDX, PSTART
-6591 DATA LDY, PSTART+
+6591 DATA LDY, PSTART↑
6592 DATA STXZ, P
-6593 DATA STYZ, P+
+6593 DATA STYZ, P↑
6594 DATA JMP, RELINK: REM TAIL CALL
6599 REM
6600 DATA 'LINECHG
6612 DATA RTS
6620 DATA ''1
6630 DATA LDX#, S.DEST
-6631 DATA LDY#, S.DEST↑
+6631 DATA LDY#, S.DEST%
6632 DATA JSR, PUTSTR
6633 DATA JSR, READNAT
6634 DATA STX, NDEST
-6635 DATA STY, NDEST+
+6635 DATA STY, NDEST↑
6640 REM MUST VALIDATE:
6641 REM 1. NDEST > NPREV
6642 REM 2. NLAST + DELTA < 64000
6643 REM 3. NLAST + DELTA < NNEXT
6644 REM WHERE DELTA = NDEST - NSTART
6645 REM AND NPREV/NNEXT EXIST, RSP.
-6650 DATA LDA, PPREV+
+6650 DATA LDA, PPREV↑
6651 DATA BEQR, '2
-6652 DATA STAZ, P+
+6652 DATA STAZ, P↑
6653 DATA LDA, PPREV
6654 DATA STAZ, P
6655 DATA LDX, NDEST
-6656 DATA LDY, NDEST+
+6656 DATA LDY, NDEST↑
6660 DATA JSR, CMPLINENO
6661 DATA BCCR, 'CLASH
6662 DATA BEQR, 'CLASH
6671 DATA LDA, NDEST
6672 DATA SBC, NSTART
6673 DATA STA, DELTA
-6674 DATA LDA, NDEST+
-6675 DATA SBC, NSTART+
-6676 DATA STA, DELTA+
+6674 DATA LDA, NDEST↑
+6675 DATA SBC, NSTART↑
+6676 DATA STA, DELTA↑
6677 DATA BCCR, '3: REM DELTA < 0
6680 REM DETERMINE NLAST
6681 DATA LDA, PLAST
6682 DATA STAZ, P
-6683 DATA LDA, PLAST+
-6684 DATA STAZ, P+
+6683 DATA LDA, PLAST↑
+6684 DATA STAZ, P↑
6690 DATA LDY#, 2
6691 DATA LDA(Y, P
6692 DATA STA, NLAST
6693 DATA INY
6694 DATA LDA(Y, P
-6695 DATA STA, NLAST+
+6695 DATA STA, NLAST↑
6700 REM 2. NLAST + DELTA < 64000=FA00
6701 DATA CLC
6702 DATA LDA, NLAST
6703 DATA ADC, DELTA
6704 DATA TAX: REM LO BYTE -> X
-6705 DATA LDA, NLAST+
-6706 DATA ADC, DELTA+
+6705 DATA LDA, NLAST↑
+6706 DATA ADC, DELTA↑
6707 DATA BCSR, 'CLASH
6708 DATA CMP#, 250: REM = $FA
6709 DATA BCSR, 'CLASH
6710 REM 3. NLAST + DELTA < NNEXT
6711 DATA TAY: REM HI BYTE -> Y
-6712 DATA LDA, PSTOP+
+6712 DATA LDA, PSTOP↑
6713 DATA BEQR, '3
-6714 DATA STAZ, P+
+6714 DATA STAZ, P↑
6715 DATA LDA, PSTOP
6716 DATA STAZ, P
6720 DATA JSR, CMPLINENO
6721 DATA BCSR, 'CLASH
6730 DATA ''3
6740 DATA LDX, PSTART
-6741 DATA LDY, PSTART+
+6741 DATA LDY, PSTART↑
6742 DATA STXZ, P
-6743 DATA STYZ, P+
+6743 DATA STYZ, P↑
6744 DATA LDX, PSTOP
-6745 DATA LDY, PSTOP+
+6745 DATA LDY, PSTOP↑
6746 DATA STXZ, Q
-6747 DATA STYZ, Q+
+6747 DATA STYZ, Q↑
6750 DATA LDA#, 2: REM LINE NUMBER
6751 DATA JSR, DELTAPPLY
6752 DATA RTS
6760 DATA ''CLASH
6761 DATA LDX#, S.ECLASH
-6762 DATA LDY#, S.ECLASH↑
+6762 DATA LDY#, S.ECLASH%
6763 DATA JSR, PUTSTRLN
6764 DATA LDX#, S.ABORT
-6765 DATA LDY#, S.ABORT↑
+6765 DATA LDY#, S.ABORT%
6766 DATA JSR, PUTSTRLN
6767 DATA RTS
9000 REM
9110 DATA LDX#, 0
9111 DATA LDY#, $C0
9112 DATA STXZ, P
-9113 DATA STYZ, P+
+9113 DATA STYZ, P↑
9120 REM SRC = $801
9121 DATA LDX#, 1
9122 DATA LDY#, 8
9123 DATA STXZ, Q
-9124 DATA STYZ, Q+
+9124 DATA STYZ, Q↑
9130 REM LEN = VARTAB - $801
9131 DATA SEC
9132 DATA LDAZ, VARTAB
9133 DATA SBC#, 1
9134 DATA TAY
-9135 DATA LDAZ, VARTAB+
+9135 DATA LDAZ, VARTAB↑
9136 DATA SBC#, 8
9137 DATA TAX
9190 REM MEMCPY (TAIL CALL)
