2003-12-19 00:12:08 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 2003-12-19
|
|
|
|
|
;
|
|
|
|
|
; READST kernal call
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export READST
|
|
|
|
|
|
2003-12-20 23:13:26 +00:00
|
|
|
.import sys_bank, restore_bank
|
|
|
|
|
.import sysp0: zp, ktmp: zp
|
|
|
|
|
|
2003-12-19 00:12:08 +00:00
|
|
|
.include "cbm610.inc"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.proc READST
|
|
|
|
|
|
2003-12-20 23:13:26 +00:00
|
|
|
jsr sys_bank
|
|
|
|
|
sty ktmp ; Save Y register
|
|
|
|
|
ldy #ST
|
|
|
|
|
lda (sysp0),y ; Load ST from system bank
|
|
|
|
|
ldy ktmp
|
|
|
|
|
jmp restore_bank ; Will set condition codes on A
|
2003-12-19 00:12:08 +00:00
|
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
