arithr START 0 .komentar1
    LDX #10
    SHIFTR A, 10
    LDS #11  .komentar2
    LDT #5
    LDA ZERO
    ADDR S, A
    ADDR T, A
    STA sum
    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
one BYTE 123 .KOMETA R 
sum RESW 1
diff RESW 1
prod RESW 1
quot RESW 1 .komentar6
mod RESW 1
 	WORD 400 . WER
