mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 02:29:52 +00:00
27 lines
551 B
ArmAsm
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 "cbm510.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
|
|
|
|
|