Code: Select all
10 CLEAR1000
20 EXEC&HCFFA
30 ALL
40 ORG $5000
50 @START CLRB
60 @L1 LDX #$0400
70 @L2 STB ,X+
80 CMPX #$0600
90 BLO @L2
100 LDY #$1000
110 @L3 JSR $BBE5
120 CMPA #3
130 BEQ @BASIC
140 LEAY -1,Y
150 BNE @L3
160 INCB
170 BNE @L1
180 @BASIC LEAX -32,X
190 STX >$88
200 @END RTS
210 END @START
220 '
230 'DISPLAY SYMBOL TABLE
240 '
250 PRINT:FOR I=PEEK(33)*256+PEEK(34) TO PEEK(39)*256+PEEK(40) STEP 10
260 IF PEEK(I+4)<>0 THEN PRINT"@"; ELSE IF PEEK(&H0600)<>0 THEN PRINT"ERRORS":END ELSE END
270 FOR J=I+4 TO I+9:PRINT CHR$(PEEK(J));:NEXT J
280 PRINT,HEX$(PEEK(I)*256+PEEK(I+1)):NEXT I