38 lines
560 B
NASM
38 lines
560 B
NASM
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
|