mirror of
https://github.com/cc65/cc65.git
synced 2024-11-04 17:04:58 +00:00
23 lines
359 B
ArmAsm
23 lines
359 B
ArmAsm
|
;
|
||
|
|
; 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
|
||
|
|
|
||
|
|
|