commit 5be51053e102d292dc994302c0c314c55e9e6bb2 from: Sven M. Hallberg date: Thu Jun 11 19:02:21 2026 UTC LINEUTIL.B.13 - use new high/incr syntax To match BASASM.30. 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 @@ -129,8 +129,8 @@ 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 @@ -153,7 +153,7 @@ 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 @@ -163,7 +163,7 @@ 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 @@ -184,7 +184,7 @@ 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 @@ -192,7 +192,7 @@ 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 @@ -203,7 +203,7 @@ 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 @@ -229,7 +229,7 @@ 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 @@ -239,7 +239,7 @@ 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 @@ -253,29 +253,29 @@ 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 @@ -292,7 +292,7 @@ 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 @@ -330,7 +330,7 @@ 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 @@ -368,11 +368,11 @@ 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 @@ -385,32 +385,32 @@ 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 @@ -419,7 +419,7 @@ 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 @@ -433,19 +433,19 @@ 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 @@ -463,11 +463,11 @@ 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 @@ -496,20 +496,20 @@ 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 @@ -520,14 +520,14 @@ 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 @@ -537,10 +537,10 @@ 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 @@ -553,9 +553,9 @@ 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 @@ -565,17 +565,17 @@ 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 @@ -597,11 +597,11 @@ 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 @@ -622,11 +622,11 @@ 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 @@ -640,8 +640,8 @@ 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 @@ -662,7 +662,7 @@ 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 @@ -671,7 +671,7 @@ 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 @@ -686,52 +686,52 @@ 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 @@ -742,14 +742,14 @@ 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!?) @@ -763,7 +763,7 @@ 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 @@ -771,14 +771,14 @@ 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 @@ -789,7 +789,7 @@ 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 (") @@ -809,8 +809,8 @@ 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 @@ -820,7 +820,7 @@ 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 @@ -829,62 +829,62 @@ 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 @@ -898,28 +898,28 @@ 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 @@ -927,23 +927,23 @@ 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 @@ -956,7 +956,7 @@ 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 @@ -964,7 +964,7 @@ 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 @@ -972,9 +972,9 @@ 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 @@ -986,16 +986,16 @@ 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 @@ -1005,10 +1005,10 @@ 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 @@ -1022,13 +1022,13 @@ 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 @@ -1039,31 +1039,31 @@ 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 @@ -1074,7 +1074,7 @@ 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 @@ -1084,30 +1084,30 @@ 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 @@ -1118,24 +1118,24 @@ 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 @@ -1145,58 +1145,58 @@ 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 @@ -1224,18 +1224,18 @@ 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)