Added kernal replacement routines
git-svn-id: svn://svn.cc65.org/cc65/trunk@1546 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
19
libsrc/pet/kckout.s
Normal file
19
libsrc/pet/kckout.s
Normal file
@@ -0,0 +1,19 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 19.11.2002
|
||||
;
|
||||
; CKOUT replacement function for the PETs
|
||||
;
|
||||
|
||||
.export CKOUT
|
||||
.import checkst
|
||||
|
||||
|
||||
.proc CKOUT
|
||||
|
||||
jsr $FFC9 ; Call kernal function
|
||||
jmp checkst ; Check status, return carry on error
|
||||
|
||||
.endproc
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user