cc65/libsrc/pet/kclose.s

;
; 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
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			`;`
			`; Ullrich von Bassewitz, 19.11.2002`
			`;`
			`; CLOSE replacement function for the PETs`
			`;`

			`.export CLOSE`

			`.include "pet.inc"`


			`.proc CLOSE`
Remove trailings spaces from CBM-related asm files 2019-03-22 21:54:05 +00:00
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			`ldx PET_DETECT`
			`cpx #PET_4000`
			`bne @L1`
			`jmp $F2E2 ; BASIC 4`
			`@L1: jmp $F2AE ; BASIC 2&3`

			`.endproc`