arithr START 0 .komentar1
    SHIFTR A, 10, X
    LDS #11  .komentar2
    LDT #5
    .komentar3
    LDA ZERO
    ADDR S, A
    ADDR T, A
    STA sum 
    
    .komentar4
    LDA ZERO 
    ADDR S, A 
    SUBR T, A
    STA diff

    LDA ZERO 
    ADDR S, A
    MULR T, A
    STA prod

    LDA ZERO 
    ADDR S, A
    DIVR T, A
    STA quot

    LDA ZERO
    ADDR S, A
LOOP SUBR T, A .komentar5
    COMPR A, T
    JGT LOOP
    JEQ LOOP
    STA mod 
HALT J HALT 
    END arithr

ZERO WORD 0 
sum RESW 1
diff RESW 1
prod RESW 1
quot RESW 1 .komentar6
mod RESW 1
.komentar7