33 lines
1 KiB
Text
33 lines
1 KiB
Text
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
|