57 lines
879 B
NASM
57 lines
879 B
NASM
arithr START 0 .komentar1
|
|
TEST SHIFTR A, 10, X . testing 0
|
|
TEST SVC 10, X . testing
|
|
LDS #11 .komentar2
|
|
LDT #5
|
|
.komentar3
|
|
LDA ZERO
|
|
ADDR S, A
|
|
ADDR T, A
|
|
STA sum
|
|
FIX
|
|
FLOAT
|
|
.komentar4
|
|
LDA ZERO
|
|
ADDR S, A
|
|
SUBR T, A
|
|
STA diff
|
|
HIO
|
|
LDA ZERO
|
|
ADDR S, A
|
|
MULR T, A
|
|
STA prod
|
|
|
|
SUBR A, X
|
|
SHIFTR A, 10
|
|
SHIFTL X, #101
|
|
LA DIVR S, T . en komentar
|
|
LDA ZERO
|
|
ADDR S, A
|
|
lab SHIFTR A, 5
|
|
CLR SHIFTR L, 100 .komentar
|
|
DIVR T, A
|
|
STA quot
|
|
FIX . s komentarjem
|
|
LDA ZERO
|
|
ADDR S, A
|
|
LOOP SUBR T, A .komentar5
|
|
COMPR A, T
|
|
JGT LOOP
|
|
JEQ LOOP
|
|
STA mod
|
|
Lab SVC #100
|
|
lab CLEAR A
|
|
SVC 10
|
|
TIXR S
|
|
test SVC @300 . se en komentar
|
|
LA TIXR T . komentar at the end
|
|
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
|