mirror of
https://github.com/cc65/cc65.git
synced 2024-12-23 04:30:10 +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
|
||
|
|
|
||
|
|
|