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

   1 ;
   2 ; Ullrich von Bassewitz, 19.11.2002
   3 ;
   4 ; CLOSE replacement function for the PETs
   5 ;
   6
   7         .export         CLOSE
   8
   9         .include        "pet.inc"
  10
  11
  12 .proc   CLOSE
  13
  14         ldx     PET_DETECT
  15         cpx     #PET_4000
  16         bne     @L1
  17         jmp     $F2E2           ; BASIC 4
  18 @L1:    jmp     $F2AE           ; BASIC 2&3
  19
  20 .endproc
  21
  22