git.sur5r.net Git - cc65/blob - kclose.s

   1 ;
   2 ; Ullrich von Bassewitz, 22.11.2002
   3 ;
   4 ; CLOSE replacement function
   5 ;
   6
   7         .export         CLOSE
   8
   9         .include        "plus4.inc"
  10
  11 .segment        "LOWCODE"               ; Must go into low memory
  12
  13 .proc   CLOSE
  14         sta     ENABLE_ROM              ; Enable the ROM
  15         clc                             ; Force C64 compatible behaviour
  16         jsr     $FFC3                   ; Call the ROM routine
  17         sta     ENABLE_RAM              ; Switch back to RAM
  18         rts                             ; Return to caller
  19 .endproc
  20
  21