10 X=0
20 READ A$
30 IF A$="###" THEN 70
40 POKE &HFFF+X,VAL("&H"+A$)
50 X=X+1
60 GOTO 20
70 EXEC &HFFF
80 FOR X=0 TO 30
90 PRINT PEEK(&H2000+X*4)*16777216+PEEK(&H2000+X*4+1)*65536+PEEK(&H2000+X*4+2)*256+PEEK(&H2000+X*4+3)
100 NEXT X
110 END
120 DATA 41          ' switch to RISC mode
130 DATA 30,18,C0,00 ' 1000
140 DATA 30,10,00,01 ' 1004
150 DATA 30,20,00,01 ' 1008
160 DATA 30,42,00,01 ' 100C
170 DATA 61,42,00,0D ' 1010
180 DATA 30,21,00,01 ' 1014
190 DATA 31,08,86,00 ' 1018
200 DATA 33,29,00,1F ' 101C
210 DATA 30,10,C0,00 ' 1020
220 DATA 30,18,40,00 ' 1024
230 DATA 50,02,06,00 ' 1028
240 DATA 30,42,00,04 ' 102C
250 DATA 71,01,41,F8 ' 1030
260 DATA 41,00,00,00 ' 1034
270 DATA 39          ' 6809 RTS instruction
280 DATA ###
RUN