Files
grassmudhorse.rs/plus1100.gmh.source
2020-05-10 01:39:48 +08:00

37 lines
271 B
Plaintext

// a = 0
push 10
push 0
store
// b = 0
push 0
definelabel 1111
// b += a
// a += 1
push 10
retrieve
push 1
add
dup
push 10
swap
store
add
// if a < 100 goto 1111
push 10
retrieve
push 100
sub
gotolabell0 1111
// print b
stdoutnum
// print \n
push 10
stdoutchar
end