IOCB.I

[Table of Contents]

The IOCB.I include file resides on the Kyan Pascal 2.x Utilities Disk 1.

• function get_free_iocb():integer;

Source Code

function get_free_iocb():integer;
    begin
        get_free_iocb:=0;
#a
         stx _t
         ldx #$10
gfopn1   lda $340,x
         cmp #$ff
         beq gfopn2
         txa
         clc
         adc #$10
         tax
         cpx #$80
         bne gfopn1
         ldx #$81
gfopn2   txa
         ldy #5
         sta (_sp),y
         ldx _t
#
end;
%