1
0
mirror of https://github.com/cc65/cc65.git synced 2024-06-15 17:30:06 +00:00
cc65/libsrc/pet/checkst.s
cuz ae38242db9 Added kernal replacement routines
git-svn-id: svn://svn.cc65.org/cc65/trunk@1546 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-11-20 01:31:56 +00:00

27 lines
399 B
ArmAsm

;
; Ullrich von Bassewitz, 19.11.2002
;
; The kernal open routines do not return a carry on error, so check the IEEE
; status, set carry flag and return
;
.export checkst
.include "pet.inc"
.proc checkst
lda ST
beq @L1
lda #5 ; ### Device not present
sec
rts
@L1: clc
rts
.endproc