Machine code: Difference between revisions

=={{header|Action!}}==

<lang Action!>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</lang>

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Machine_code.png Screenshot from Atari 8-bit computer]

<pre>

19+37=56

</pre>