stk 64
org 0
; while i < 5
lbl 1
;   putchar "A"
out 65
;   j = 0
psh 0
mov r1,81
pop r2
sto r1,r2
;   while j < 3
lbl 3
;       putchar "B"
out 66
;       j += 1
mov r1,81
rcl r2,r1
psh r2
psh 1
pop r1
pop r2
add r1, r2
psh r1
mov r1,81
pop r2
sto r1,r2
mov r1,81
rcl r2,r1
psh r2
psh 3
pop r1
pop r2
lt_ r2, r1
psh r2
pop r2
jz_ r2,4
jmp 3
lbl 4
;   if j == 3
mov r1,81
rcl r2,r1
psh r2
psh 3
pop r1
pop r2
eq_ r2, r1
psh r2
pop r2
jz_ r2,5
;       putchar "C"
out 67
lbl 5
;   i += 1
mov r1,80
rcl r2,r1
psh r2
psh 1
pop r1
pop r2
add r1, r2
psh r1
mov r1,80
pop r2
sto r1,r2
mov r1,80
rcl r2,r1
psh r2
psh 5
pop r1
pop r2
lt_ r2, r1
psh r2
pop r2
jz_ r2,2
jmp 1
lbl 2
;
end