XIO.I

[Table of Contents]

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

• function xio(cmd,iocb,aux1,aux2:integer; var fyle:pathstring): Integer;

Source Code

function xio(cmd,iocb,aux1,aux2:integer; var fyle:pathstring): Integer;
    var
        fullfyle:pathstring;
    begin
        xio:=0;
        iocb:=iocb*16;
        add_device(fyle,fullfyle);
#A
     stx  _t
     ldy  #33
     lda  (_sp),y
     tax
     iny
     iny
     lda  (_sp),y
     sta  $342,x
     ldy  #31
     lda  (_sp),y
     sta  $34a,x
     dey
     dey
     lda  (_sp),y
     sta  $34b,x
     clc
     lda  #5
     adc  _sp
     sta  $344,x
     lda  #0
     adc  _sp+1
     sta  $345,x
     jsr  $e456
     tya
     ldy  #25
     sta  (_sp),y
     ldx  _t
#
end;