cc65/libsrc/pet/checkst.s

;
; Ullrich von Bassewitz, 19.11.2002
;
; The kernal open routines do not return a carry on error, so check the IEEE
; status, set carry flag and return
;

        .export         checkst
        .importzp       ST


.proc   checkst

        lda     ST
        beq     @L1
        lda     #5              ; ### Device not present
        sec
        rts

@L1:    clc
        rts

.endproc
Added kernal replacement routines git-svn-id: svn://svn.cc65.org/cc65/trunk@1546 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-20 01:31:56 +00:00			`;`
			`; Ullrich von Bassewitz, 19.11.2002`
			`;`
			`; The kernal open routines do not return a carry on error, so check the IEEE`
			`; status, set carry flag and return`
			`;`

			`.export checkst`
Turned the 'ST' status byte into a symbol resolved by the linker in order to allow to use it from code living in the 'cbm' directory. Moved getdevice.s from 'c64'/'c128' to 'cbm' making use of the new 'ST' setup. git-svn-id: svn://svn.cc65.org/cc65/trunk@5834 b7a2c559-68d2-44c3-8de9-860c34a00d81 2012-09-30 18:20:15 +00:00			`.importzp ST`
Added kernal replacement routines git-svn-id: svn://svn.cc65.org/cc65/trunk@1546 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-20 01:31:56 +00:00

			`.proc checkst`

			`lda ST`
			`beq @L1`
			`lda #5 ; ### Device not present`
			`sec`
			`rts`

			`@L1: clc`
			`rts`

			`.endproc`