F2 n r rn regexp implementation

This commit is contained in:
aljazbrodar. 2026-01-01 15:35:30 +01:00
parent 30c2693812
commit b39b75baff
2 changed files with 197 additions and 49 deletions

View file

@ -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