rekurzija manjka se izpis
This commit is contained in:
parent
e6d4b3694a
commit
414325bf95
7 changed files with 133 additions and 2 deletions
|
|
@ -36,7 +36,15 @@ loop_e LDCH stevke, X
|
|||
RMO T, A
|
||||
COMP #0
|
||||
JEQ HALT
|
||||
JSUB fakulteta_r
|
||||
JSUB stackinit
|
||||
JSUB fakulteta_r
|
||||
. JSUB izpis
|
||||
STA temp
|
||||
CLEAR A
|
||||
CLEAR T
|
||||
CLEAR S
|
||||
CLEAR X
|
||||
J prog
|
||||
HALT J HALT
|
||||
END prog
|
||||
|
||||
|
|
@ -84,7 +92,7 @@ stackpop STA oldvalue
|
|||
CLEAR A
|
||||
LDA oldvalue
|
||||
RSUB
|
||||
|
||||
temp WORD 0
|
||||
device BYTE X'FA'
|
||||
stevke BYTE 100
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue