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

   1 ;
   2 ; Ullrich von Bassewitz, 19.11.2002
   3 ;
   4 ; The kernal open routines do not return a carry on error, so check the IEEE
   5 ; status, set carry flag and return
   6 ;
   7
   8         .export         checkst
   9
  10         .include        "pet.inc"
  11
  12
  13 .proc   checkst
  14
  15         lda     ST
  16         beq     @L1
  17         lda     #5              ; ### Device not present
  18         sec
  19         rts
  20
  21 @L1:    clc
  22         rts
  23
  24 .endproc
  25
  26