21 lines
488 B
Plaintext
21 lines
488 B
Plaintext
10 print chr$(147);
|
|
15 ml=8192
|
|
20 if peek(ml+3)<>173 and peek(ml+12)<>96 then gosub 100
|
|
30 for ad=ml to ml+2:poke ad,0:next
|
|
40 poke ml,7:poke ml+1,12
|
|
50 print "before:";peek(ml+2)
|
|
60 sys ml+3
|
|
70 print "after:";peek(ml+2)
|
|
80 end
|
|
100 rem machine language loader
|
|
105 for ad=ml+3 to ml+13
|
|
110 read b
|
|
115 poke ad,b
|
|
120 next
|
|
125 return
|
|
8195 data 24 :rem clc
|
|
8196 data 173,0,32 :rem lda $2000
|
|
8199 data 109,1,32 :rem adc $2001
|
|
8202 data 141,2,32 :rem sta $2002
|
|
8205 data 96 :rem rts
|