]> git.sur5r.net Git - cc65/blob - libsrc/pet/checkst.s
cfg/atari-xex.cfg: fix typo in comment
[cc65] / 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