1
0
mirror of https://github.com/cc65/cc65.git synced 2024-10-31 04:04:49 +00:00
cc65/libsrc/cbm610/kreadst.s
cuz 16f737af65 Minor changes and cleanup
git-svn-id: svn://svn.cc65.org/cc65/trunk@2796 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-12-20 23:38:42 +00:00

27 lines
551 B
ArmAsm

;
; Ullrich von Bassewitz, 2003-12-19
;
; READST kernal call
;
.export READST
.import sys_bank, restore_bank
.import sysp0: zp, ktmp: zp
.include "cbm610.inc"
.proc READST
jsr sys_bank
sty ktmp ; Save Y register
ldy #$9C ; STATUS
lda (sysp0),y ; Load STATUS from system bank
ldy ktmp
jmp restore_bank ; Will set condition codes on A
.endproc