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         .importzp       ST
  10
  11
  12 .proc   checkst
  13
  14         lda     ST
  15         beq     @L1
  16         lda     #5              ; ### Device not present
  17         sec
  18         rts
  19
  20 @L1:    clc
  21         rts
  22
  23 .endproc