commit 38d647e04720e44516cc6b829b52496a74d448c4 from: Sven M. Hallberg date: Tue Jun 2 21:15:44 2026 UTC regenerate listings commit - dc58ab0616d7d9dcf3eea536f0b46ad34789c05c commit + 38d647e04720e44516cc6b829b52496a74d448c4 blob - 284cdd22f3c3f8306e3ebc49b41c49d3efeb7e4d blob + 1fd795b36202ef6c7052d17c7c739d133569e6e6 --- BASASM.lst +++ BASASM.lst @@ -54,7 +54,7 @@ 148 REM 149 REM SUB: PARSE ARGUMENT, SYM OR NUM 150 EX = 0: B$ = A$ -151 HI = (RIGHT$(A$,1) = "^") +151 HI = (RIGHT$(A$,1) = "↑") 152 PL = (RIGHT$(A$,1) = "+") 153 IF NOT (HI OR PL) THEN 156 154 EX = 1 @@ -93,7 +93,7 @@ 194 FOR J = 0 TO L% - 1 195 R=A: A=INT(A/256): R=R-A*256 :REM/Q 196 POKE P + J, R -197 PRINT MID$(STR$(R), 2); "CLOSE"; +197 PRINT MID$(STR$(R), 2); " "; 198 NEXT: RETURN 199 REM 200 REM - ASSEMBLE REST OF DATA - blob - 3ad331729337833f6f2edba89ac62f102c4efcc7 blob + f928a014b6b68d8a6e3b720118dbe193b8d7bc53 --- LINECNT.B.lst +++ LINECNT.B.lst @@ -79,7 +79,7 @@ 192 FOR J = 0 TO L% - 1 193 R=A: A=INT(A/256): R=R-A*256 :REM/Q 194 POKE P + J, R -195 PRINT MID$(STR$(R), 2); "CLOSE"; +195 PRINT MID$(STR$(R), 2); " "; 196 NEXT: RETURN 199 REM 200 REM - ASSEMBLE REST OF DATA - blob - 30fb8908cf7b2c988d39da587123dccc65a11799 blob + 3c5236d22adc1a2fb809d599349a93a7803f703f --- LINEUTIL.B.lst +++ LINEUTIL.B.lst @@ -223,19 +223,19 @@ 2630 DATA LDY, CNT+ 2640 DATA JSR, PRINTNAT 2650 DATA LDX#, S.LINES -2651 DATA LDY#, S.LINES^ +2651 DATA LDY#, S.LINES↑ 2652 DATA JSR, PUTSTR 2660 DATA LDX, CNT.REM 2661 DATA LDY, CNT.REM+ 2662 DATA JSR, PRINTNAT 2670 DATA LDX#, S.REM -2671 DATA LDY#, S.REM^ +2671 DATA LDY#, S.REM↑ 2672 DATA JSR, PUTSTR 2680 DATA LDX, CNT.DATA 2681 DATA LDY, CNT.DATA+ 2682 DATA JSR, PRINTNAT 2690 DATA LDX#, S.DATA -2691 DATA LDY#, S.DATA^ +2691 DATA LDY#, S.DATA↑ 2692 DATA JSR, PUTSTR 2695 DATA LDA#, 13: REM CR 2696 DATA JSR, CHROUT @@ -243,19 +243,19 @@ 2701 DATA LDY, CNT.BS+ 2702 DATA JSR, PRINTNAT 2710 DATA LDX#, S.BYTES -2711 DATA LDY#, S.BYTES^ +2711 DATA LDY#, S.BYTES↑ 2712 DATA JSR, PUTSTR 2720 DATA LDX, CNT.SPC 2721 DATA LDY, CNT.SPC+ 2722 DATA JSR, PRINTNAT 2725 DATA LDX#, S.SPC -2726 DATA LDY#, S.SPC^ +2726 DATA LDY#, S.SPC↑ 2727 DATA JSR, PUTSTR 2730 DATA LDX, CNT.JUNK 2731 DATA LDY, CNT.JUNK+ 2732 DATA JSR, PRINTNAT 2735 DATA LDX#, S.JUNK -2736 DATA LDY#, S.JUNK^ +2736 DATA LDY#, S.JUNK↑ 2737 DATA JSR, PUTSTR 2990 DATA LDA#, 13: REM CR 2991 DATA JMP, CHROUT @@ -385,14 +385,14 @@ 3405 REM 3410 DATA LDA#, 10000 3411 DATA STAZ, P -3412 DATA LDA#, 10000^ +3412 DATA LDA#, 10000↑ 3413 DATA STAZ, P+ 3420 DATA JSR, QUOTREM 3430 DATA ADC#, $30: REM "0" 3440 DATA JSR, CHROUT 3450 DATA LDA#, 1000 3451 DATA STAZ, P -3452 DATA LDA#, 1000^ +3452 DATA LDA#, 1000↑ 3453 DATA STAZ, P+ 3460 DATA JSR, QUOTREM 3470 DATA ADC#, $30 @@ -526,7 +526,7 @@ 4003 REM A OUT: LENGTH CONSUMED 4004 REM 4010 DATA LDX#, BUF -4011 DATA LDY#, BUF^ +4011 DATA LDY#, BUF↑ 4020 DATA JSR, GETSTR 4025 DATA JSR, ATOI 4026 DATA CMP#, 0: REM LEN -> FLAGS @@ -578,13 +578,13 @@ 4205 REM CLOBBERS: A, X, Y, 2, P, Q 4206 REM 4210 DATA LDX#, S.START -4211 DATA LDY#, S.START^ +4211 DATA LDY#, S.START↑ 4212 DATA JSR, PUTSTR 4220 DATA JSR, READNAT 4221 DATA STX, NSTART 4222 DATA STY, NSTART+ 4230 DATA LDX#, S.STOP -4231 DATA LDY#, S.STOP^ +4231 DATA LDY#, S.STOP↑ 4232 DATA JSR, PUTSTR 4240 DATA JSR, READNAT 4241 DATA STX, NSTOP @@ -665,14 +665,14 @@ 4405 REM 4409 DATA PHA: REM SAVE FILE NO 4410 DATA LDX#, S.DRVBRA -4411 DATA LDY#, S.DRVBRA^ +4411 DATA LDY#, S.DRVBRA↑ 4412 DATA JSR, PUTSTR 4413 DATA LDAZ, FA: REM CURRENT DEV 4414 DATA CLC 4415 DATA ADC#, 48: REM XXX PRINTBYTE 4416 DATA JSR, CHROUT 4417 DATA LDX#, S.KETCOL -4418 DATA LDY#, S.KETCOL^ +4418 DATA LDY#, S.KETCOL↑ 4419 DATA JSR, PUTSTR 4420 DATA JSR, READNAT 4421 DATA BNER, GF1: REM LEN <> 0 @@ -682,10 +682,10 @@ 4425 DATA LDY#, 0: REM SEC ADDR 4426 DATA JSR, SETLFS 4430 DATA LDX#, S.FILE -4431 DATA LDY#, S.FILE^ +4431 DATA LDY#, S.FILE↑ 4432 DATA JSR, PUTSTR 4433 DATA LDX#, BUF -4434 DATA LDY#, BUF^ +4434 DATA LDY#, BUF↑ 4435 DATA JSR, GETSTR 4437 DATA JSR, SETNAM 4441 DATA RTS @@ -958,7 +958,7 @@ 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, PUTSTR 6068 DATA 'LCARET 6069 DATA RTS @@ -985,10 +985,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, PUTSTR 6130 DATA LDX#, S.ABORT -6131 DATA LDY#, S.ABORT^ +6131 DATA LDY#, S.ABORT↑ 6132 DATA JSR, PUTSTR 6135 DATA RTS 6140 DATA 'LCACOK @@ -1039,7 +1039,7 @@ 6461 DATA LDA#, 2049 6462 DATA SBCZ, P 6463 DATA STA, DELTA -6464 DATA LDA#, 2049^ +6464 DATA LDA#, 2049↑ 6465 DATA SBCZ, P+ 6466 DATA STA, DELTA+ 6470 DATA LDX, PSTOP @@ -1074,7 +1074,7 @@ 6565 DATA JSR, SAVE 6566 DATA BCCR, LCLDONE 6567 DATA LDX#, S.ERROR -6568 DATA LDY#, S.ERROR^ +6568 DATA LDY#, S.ERROR↑ 6569 DATA JSR, PUTSTR 6570 DATA 'LCLDONE 6571 DATA LDY#, 0 @@ -1097,7 +1097,7 @@ 6612 DATA RTS 6620 DATA 'LCH1 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 blob - 7673a67bb0e098eb30585a2e0c52bb6b10e812d2 blob + 407fcaee883c734098cba1adbccf7dcb9464dffb Binary files MANUAL.lst and MANUAL.lst differ blob - 98641926f601130338acae40b7f42881ccafc162 blob + 2b9b112f0f290acc26ca53a1f59328d4bc89fa23 --- PRINTNAT.B.lst +++ PRINTNAT.B.lst @@ -78,7 +78,7 @@ 191 FOR J = 1 TO L% 192 R=A: A=INT(A/256): R=R-A*256 :REM/Q 193 POKE P + J, R -194 PRINT MID$(STR$(R), 2); "CLOSE"; +194 PRINT MID$(STR$(R), 2); " "; 195 NEXT 196 RETURN 199 REM blob - a4c0d330745e968e58f0ba12d06f67b9683672f0 blob + 2c85b0f88c4fec4ffc526385580b0b27550b00bd --- TEST.B.lst +++ TEST.B.lst @@ -1,7 +1,7 @@ 1000 DATA 'START 1001 DATA JMP, STXRT 1002 DATA .DSZ, HALLO -1003 DATA .DB, HALLO^ +1003 DATA .DB, HALLO↑ 1004 DATA .DB, 1 2 3 1005 DATA PHA 1010 DATA BMIR, L1, RTI blob - 857845f947de38bbd543734cae27a7018bfa2651 blob + d2fa0681fddece8273e4107eca49b29e7b595d6c Binary files TV.lst and TV.lst differ