Data commit

Task/Machine-code/Action-/machine-code.action

@@ -0,0 +1,26 @@
+DEFINE ADC="$6D"
+DEFINE CLC="$18"
+DEFINE JSR="$20"
+DEFINE LDA="$AD"
+DEFINE RTS="$60"
+DEFINE STA="$8D"
+
+PROC Main()
+  BYTE ARRAY buf(20)
+  BYTE a=[19],b=[37],s
+  CARD addr
+
+  addr=buf
+  Poke(addr,CLC) addr==+1
+  Poke(addr,LDA) addr==+1
+  PokeC(addr,@a) addr==+2
+  Poke(addr,ADC) addr==+1
+  PokeC(addr,@b) addr==+2
+  Poke(addr,STA) addr==+1
+  PokeC(addr,@s) addr==+2
+  Poke(addr,RTS) addr==+1
+
+  [JSR buf] ;run the machine code stored on buf
+
+  PrintF("%B+%B=%B%E",a,b,s)
+RETURN