Data commit

Task/Machine-code/Commodore-BASIC/machine-code-2.basic

@@ -0,0 +1,20 @@
+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