25 lines
584 B
ArmAsm
25 lines
584 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"
|
|
|
|
; preserves X and Y, returns status in A and in status flags
|
|
.proc READST
|
|
|
|
jsr sys_bank
|
|
sty ktmp ; Save Y register
|
|
ldy #STATUS
|
|
lda (sysp0),y ; Load STATUS from system bank
|
|
ldy ktmp
|
|
jmp restore_bank ; Will set condition codes on A
|
|
|
|
.endproc
|