1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
cc65/libsrc/pet/kclose.s

23 lines
359 B
ArmAsm
Raw Normal View History

;
; Ullrich von Bassewitz, 19.11.2002
;
; CLOSE replacement function for the PETs
;
.export CLOSE
.include "pet.inc"
.proc CLOSE
ldx PET_DETECT
cpx #PET_4000
bne @L1
jmp $F2E2 ; BASIC 4
@L1: jmp $F2AE ; BASIC 2&3
.endproc