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

   1 ;
   2 ; Ullrich von Bassewitz, 19.11.2002
   3 ;
   4 ; OPEN replacement function for the PETs
   5 ;
   6
   7         .export         OPEN
   8         .import         checkst
   9
  10         .include        "pet.inc"
  11
  12
  13 .proc   OPEN
  14
  15         lda     PET_DETECT
  16         cmp     #PET_4000
  17         bne     @L1
  18         jsr     $F563           ; BASIC 4
  19         jmp     checkst
  20
  21 @L1:    jsr     $F524           ; BASIC 2&3
  22         jmp     checkst
  23
  24 .endproc
  25
  26