LOCK.I

[Table of Contents]

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

• function lock(var fylename:pathstring):integer;

Source Code

function lock(var fylename:pathstring):integer;
    var
        fullname:pathstring;
    begin
        lock:=0;
        add_device(fylename,fullname);
#a
      stx  lxsave
      ldx  #$10
lopn1 lda  $340,x
      cmp  #$ff
      beq  lopn2
      txa
      clc
      adc  #$10
      tax
      cpx  #$80
      bne  lopn1
      ldy  #$81
      jmp  lleave
lxsave db 0
lopn2 lda  #$23
      sta  $342,x
      lda  #5
      clc
      adc  _sp
      sta  $344,x
      lda  #0
      adc  _sp+1
      sta  $345,x
      jsr  $e456
lleave tya
      ldy  #25
      sta  (_sp),y
      ldx  lxsave
#
end;