basic parsing done
This commit is contained in:
parent
1055ccd52f
commit
47f6a2ae5d
3 changed files with 76 additions and 25 deletions
|
|
@ -1,33 +1,26 @@
|
|||
arithr START 0 .komentar1
|
||||
LDX #10
|
||||
LDX #10
|
||||
SHIFTR A, 10, X
|
||||
LDS #11 .komentar2
|
||||
LDT #5
|
||||
NOBASE .koment
|
||||
NOBASE
|
||||
BASE ZERO .KOMENTAR
|
||||
ORG tab-tab
|
||||
LAB NOBASE
|
||||
EQU
|
||||
LAB NOBASE .koment
|
||||
.komentar3
|
||||
LDA ZERO
|
||||
ADDR S, A
|
||||
ADDR T, A
|
||||
STA sum
|
||||
|
||||
STA sum
|
||||
|
||||
.komentar4
|
||||
LDA ZERO
|
||||
ADDR S, A
|
||||
LDA ZERO
|
||||
ADDR S, A
|
||||
SUBR T, A
|
||||
STA diff
|
||||
|
||||
LDA ZERO
|
||||
LDA ZERO
|
||||
ADDR S, A
|
||||
MULR T, A
|
||||
STA prod
|
||||
|
||||
LDA ZERO
|
||||
LDA ZERO
|
||||
ADDR S, A
|
||||
DIVR T, A
|
||||
STA quot
|
||||
|
|
@ -38,15 +31,17 @@ LOOP SUBR T, A .komentar5
|
|||
COMPR A, T
|
||||
JGT LOOP
|
||||
JEQ LOOP
|
||||
STA mod
|
||||
HALT J HALT
|
||||
STA mod
|
||||
HALT J HALT
|
||||
END arithr
|
||||
|
||||
ZERO WORD 0
|
||||
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
|
||||
.komentar7
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue