working on sicxe
This commit is contained in:
parent
1b990e190c
commit
d836b3955d
79 changed files with 2011 additions and 917 deletions
|
|
@ -1,33 +1,33 @@
|
|||
prog START 0
|
||||
JSUB sinit
|
||||
LDT #4
|
||||
STT @stkp
|
||||
JSUB spush
|
||||
JSUB spop
|
||||
CLEAR T
|
||||
LDT @stkp
|
||||
|
||||
halt J halt
|
||||
|
||||
.rutine za sklad
|
||||
sinit LDA #stkRESW .inicializiraj stkp
|
||||
STA stkp
|
||||
RSUB
|
||||
|
||||
spush LDA stkp .poveca stkp za 3
|
||||
ADD #3
|
||||
STA stkp
|
||||
RSUB
|
||||
|
||||
spop LDA stkp .zmanjsa stkp za 3
|
||||
SUB #3
|
||||
STA stkp
|
||||
RSUB
|
||||
|
||||
.podatki za sklad
|
||||
stkp WORD 0
|
||||
stkRESW WORD 1000
|
||||
|
||||
END prog
|
||||
|
||||
|
||||
prog START 0
|
||||
JSUB sinit
|
||||
LDT #4
|
||||
STT @stkp
|
||||
JSUB spush
|
||||
JSUB spop
|
||||
CLEAR T
|
||||
LDT @stkp
|
||||
|
||||
halt J halt
|
||||
|
||||
.rutine za sklad
|
||||
sinit LDA #stkRESW .inicializiraj stkp
|
||||
STA stkp
|
||||
RSUB
|
||||
|
||||
spush LDA stkp .poveca stkp za 3
|
||||
ADD #3
|
||||
STA stkp
|
||||
RSUB
|
||||
|
||||
spop LDA stkp .zmanjsa stkp za 3
|
||||
SUB #3
|
||||
STA stkp
|
||||
RSUB
|
||||
|
||||
.podatki za sklad
|
||||
stkp WORD 0
|
||||
stkRESW WORD 1000
|
||||
|
||||
END prog
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue