F2 n r rn regexp implementation
This commit is contained in:
parent
30c2693812
commit
b39b75baff
2 changed files with 197 additions and 49 deletions
|
|
@ -19,8 +19,14 @@ arithr START 0 .komentar1
|
|||
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
|
||||
|
|
@ -31,6 +37,12 @@ LOOP SUBR T, A .komentar5
|
|||
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
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue