rekurzija manjka se izpis
This commit is contained in:
parent
e6d4b3694a
commit
414325bf95
7 changed files with 133 additions and 2 deletions
33
vaja2/sklad/stack.lst
Normal file
33
vaja2/sklad/stack.lst
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
00000 prog START 0
|
||||
00000 4B2003 JSUB stackinit
|
||||
|
||||
00003 3F2FFD HALT J HALT
|
||||
00006 END prog
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
00006 0F2010 stackinit STA oldvalue
|
||||
00009 B400 CLEAR A
|
||||
0000B 012011 LDA #stack
|
||||
0000E 0F200B STA stackptr
|
||||
00011 B400 CLEAR A
|
||||
00013 032003 LDA oldvalue
|
||||
00016 4F0000 RSUB
|
||||
|
||||
|
||||
. stackpush
|
||||
. RSUB
|
||||
|
||||
|
||||
. stackpop
|
||||
. RSUB
|
||||
|
||||
|
||||
00019 000000 oldvalue WORD 0
|
||||
0001C 000000 stackptr WORD 0
|
||||
0001F 00....00 stack RESW 1000
|
||||
Loading…
Add table
Add a link
Reference in a new issue