home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / AZTEC-C / AZ-CROOT.LBR / LDLDR.ASM < prev   
Assembly Source File  |  2000-06-30  |  768b  |  68 lines
  1. ; LDLDR.ASM -- asm support for Manx pipes
  2.  
  3. closec    equ    16
  4. reads    equ    20
  5. sdma    equ    26
  6.  
  7. fcb    equ    5ch
  8. tpa    equ    100h
  9. tbuff    equ    80h
  10. bdos    equ    05h
  11. bdosv    equ    06h
  12.  
  13. loader:
  14.     lxi    d,tpa
  15.  
  16. load1:
  17.     push    d
  18.     push    b
  19.     mvi    c,sdma
  20.     call    bdos
  21.     pop    d
  22.     push    d
  23.     mvi    c,reads
  24.     call    bdos
  25.     pop    b
  26.     pop    d
  27.     ora    a
  28.     jz    tpa - 8
  29.     mov    d,b
  30.     mov    e,c
  31.     mvi    c,closec
  32.     call    bdos
  33.     
  34.     mvi    c,sdma
  35.     lxi    d,tbuff
  36.     call    bdos
  37.     jmp    tpa
  38.  
  39. load2:
  40.     lxi    h,80h
  41.     dad    d
  42.     xchg
  43.     jmp    tpa-46
  44.  
  45.     public    loadldr_
  46.  
  47. loadldr_:
  48.     lxi    d,loader
  49.     lxi    h,tpa-49
  50.     mvi    b,49
  51.  
  52. L1:
  53.     ldax    d
  54.     mov    m,a
  55.     inx    d
  56.     inx    h
  57.  
  58.     dcr    b
  59.     jnz    L1
  60.     lxi    b,fcb
  61.     lxi    d,tpa
  62.     lhld    bdosv
  63.     sphl
  64.  
  65.     jmp    tpa-49
  66.  
  67.     end
  68.