commit - dc58ab0616d7d9dcf3eea536f0b46ad34789c05c
commit + 38d647e04720e44516cc6b829b52496a74d448c4
blob - 284cdd22f3c3f8306e3ebc49b41c49d3efeb7e4d
blob + 1fd795b36202ef6c7052d17c7c739d133569e6e6
--- BASASM.lst
+++ BASASM.lst
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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