cc65/libsrc/plus4/kclose.s

;
; Ullrich von Bassewitz, 22.11.2002
;
; CLOSE replacement function
;

        .export         CLOSE

        .include        "plus4.inc"

.segment        "LOWCODE"               ; Must go into low memory

.proc   CLOSE
        sta     ENABLE_ROM              ; Enable the ROM
        clc                             ; Force C64 compatible behaviour
        jsr     $FFC3                   ; Call the ROM routine
        sta     ENABLE_RAM              ; Switch back to RAM
        rts                             ; Return to caller
.endproc
Added wrappers for the kernal functions git-svn-id: svn://svn.cc65.org/cc65/trunk@1587 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-22 22:16:20 +00:00			`;`
			`; Ullrich von Bassewitz, 22.11.2002`
			`;`
			`; CLOSE replacement function`
			`;`

			`.export CLOSE`

			`.include "plus4.inc"`

			`.segment "LOWCODE" ; Must go into low memory`

			`.proc CLOSE`
			`sta ENABLE_ROM ; Enable the ROM`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`clc ; Force C64 compatible behaviour`
Added wrappers for the kernal functions git-svn-id: svn://svn.cc65.org/cc65/trunk@1587 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-22 22:16:20 +00:00			`jsr $FFC3 ; Call the ROM routine`
			`sta ENABLE_RAM ; Switch back to RAM`
			`rts ; Return to caller`
			`.endproc`