33 lines
352 B
NASM
33 lines
352 B
NASM
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
|
|
|
|
|