home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / MLI.SRC.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  80 lines
  1.          JMP   DOMLI
  2. ;
  3. FILENAME DFB  $06            ;LENGTH OF FILENAME
  4.          ASC  '/HARD/         '
  5. ;
  6. MLIERROR JSR   $FDDA         ;PRINT RETURN CODE AND ABEND IF MLI ERROR
  7.          BRK
  8. ;
  9. DOMLI    JSR   MLI
  10.          DFB   $C8           ;OPEN FILE
  11.          DFB   >OPENPRM,<OPENPRM
  12.          BCS   MLIERROR
  13. ;
  14.          LDA   OPENREF
  15.          STA   POSNREF
  16.          STA   READREF
  17.          STA   CLOSREF
  18.          LDX   CURRTRK
  19. ;
  20.          LDX   CURRTRK
  21.          LDA   BUFRADRL,X
  22.          STA   READBUF
  23.          LDA   BUFRADRH,X
  24.          STA   READBUF+1
  25.          LDA   BUFRLENL,X
  26.          STA   READLEN
  27.          LDA   BUFRLENH,X
  28.          STA   READLEN+1
  29. ;
  30.          JSR   MLI
  31.          DFB   $CA    ; READ REQUEST
  32.          DFB   >READPARM,<READPARM
  33.          BCS   MLIERROR
  34. ;
  35.          JSR   MLI
  36.          DFB   $CC    ; CLOSE REQUEST
  37.          DFB   >CLOSPARM,<CLOSPARM
  38.          BCS   MLIERROR
  39. ;
  40. ; UPDATE POINTERS AFTER SUCCESSFUL READ FROM RAMDISK
  41. ;
  42.          LDX   CURRTRK
  43.          LDA   BUFRADRL,X
  44.          STA   CURADRL,X
  45.          LDA   BUFRADRH,X
  46.          STA   CURADRH,X
  47. ;
  48.          JSR   PRCSDLY       ;DO THE DELAY & JUMP BACK
  49.          JMP   MAINLINE
  50. ;
  51. ; 
  52. OPENPRM  DFB  $03
  53.          DFB  >FILENAME,<FILENAME        ;PATHNAME ADDRESS
  54.          DFB  >MLIBUFR,<MLIBUFR          ;FILE BUFFER ADDRESS
  55. OPENREF  DFB  $00                        ;REFERENCE NUMBER
  56. ;
  57. ;
  58. POSNPARM DFB  $02
  59. POSNREF  DFB  $01            ;FILE REFERENCE #
  60. POSNL    DFB  $00            ;NEW FILE POSITION
  61. POSNM    DFB  $00
  62. POSNH    DFB  $00
  63. ;
  64. READPARM DFB  $04
  65. READREF  DFB  $01            ;FILE REFERENCE #
  66. READBUF  DFB  $00,$20        ;DATA BUFFER ADDRESS
  67. READLEN  DFB  $00,$08        ; REQUESTED LENGTH
  68.          DFB  $00,$00        ; ACTUAL LENGTH
  69. ;
  70. CLOSPARM DFB  $01
  71. CLOSREF  DFB  $01            ;REFERENCE #
  72. ;
  73. ;
  74. EOF      DFB  $FF            ;EOF MARKER
  75. ;
  76. ;ADJUST ORIGIN BELOW DEPENDING ON LENGTH OF CODE
  77. ;
  78.          ORG  START+$600
  79. MLIBUFR  DS   $400
  80.