stk 64
org 0
; var msg[5]
mov r1,80
mov r2,81
sto r1,r2
mov r1,86
mov r2,5
sto r1,r2
; msg = "Hello"
mov r1,81
mov r2,72
sto r1,r2
mov r1,82
mov r2,101
sto r1,r2
mov r1,83
mov r2,108
sto r1,r2
mov r1,84
mov r2,108
sto r1,r2
mov r1,85
mov r2,111
sto r1,r2
; for i=0; i < msg.size; i += 1
mov r1,87
mov r2,0
sto r1,r2
lbl 1
mov r1,87
rcl r2,r1
psh r2
psh 1
pop r1
pop r2
add r1, r2
psh r1
mov r1,87
pop r2
sto r1,r2
;   putchar 0$(msg + (i-1))
psh 0
mov r1,80
rcl r2,r1
psh r2
mov r1,87
rcl r2,r1
psh r2
psh 1
pop r1
pop r2
sub r2, r1
psh r2
pop r1
pop r2
add r1, r2
psh r1
pop r1
pop r2
rcl r2, r1
psh r2
out r2
mov r1,87
rcl r2,r1
psh r2
mov r1,86
rcl r2,r1
psh r2
pop r1
pop r2
lt_ r2, r1
psh r2
pop r2
jz_ r2,2
mov r1,87
rcl r2,r1
psh r2
psh 1
pop r1
pop r2
add r1, r2
psh r1
jmp 1
lbl 2
;
end