stk 64
org 0

lbl 1
                ; print "A"
                ; j = 0
    out 65
    psh 0
    mov r1,81
    pop r2
    sto r1,r2
                ; while j < 3
lbl 3
    out 66      ; print "B"
    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   ; j += 1
    mov r1,81
    rcl r2,r1
    psh r2
    psh 3
    pop r1
    pop r2
    lt_ r2, r1  ; (j < 3) ?
    psh r2
    pop r2
    jz_ r2,4    ; if no  jump to 4
    jmp 3       ; else   jump 3
lbl 4
    mov r1,81
    rcl r2,r1
    psh r2
    psh 3
    pop r1
    pop r2
    eq_ r2, r1  ; (j == 3) ?
    psh r2
    pop r2
    jz_ r2,5    ; if no  jump 5
    out 67      ; else   print 'B'
lbl 5
    mov r1,80
    rcl r2,r1
    psh r2
    psh 5
    pop r1
    pop r2
    lt_ r2, r1  ; (i < 5) ?
    psh r2
    pop r2
    jz_ r2,2    ; if no  jump 2
    jmp 1       ; else   jump 1
lbl 2
    mov r1,80   ; O KURWA TO JEST POZA PETLA XDDDDD
    rcl r2,r1
    psh r2
    psh 1
    pop r1
    pop r2
    add r1, r2
    psh r1
    mov r1,80
    pop r2
    sto r1,r2
    end