home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / MLITEST.SRC.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  85 lines
  1. ; READ DIRECTORY FOR CURRENT PREFIX
  2. ;
  3.          ORG   $6000
  4. ;
  5. MLI      EQU   $BF00
  6. ;
  7. START    LDA   MLI           ;IF PRODOS NOT ACTIVE, ABEND
  8.          CMP   #$4C
  9.          BNE   MLIERROR
  10. ;
  11.          JSR   MLI
  12.          DFB   $C7           ;GET CURRENT PREFIX
  13.          DW    PARMGETP
  14.          BCS   MLIERROR
  15. ;
  16.          JSR   MLI
  17.          DFB   $C8           ;OPEN FILE
  18.          DW    OPENPRM
  19.          BCS   MLIERROR
  20. ;
  21.          LDA   OPENREF
  22.          STA   POSNREF
  23.          STA   READREF
  24.          STA   CLOSREF
  25. ;
  26.          JSR   MLI
  27.          DFB   $CA    ; READ REQUEST
  28.          DW    READPARM
  29.          BCS   MLIERROR
  30. ;
  31.          JSR   MLI
  32.          DFB   $CC    ; CLOSE REQUEST
  33.          DW    CLOSPARM
  34.          BCS   MLIERROR
  35. ;
  36.          RTS
  37. ;
  38. MLIERROR JSR   $FDDA         ;PRINT RETURN CODE AND ABEND IF MLI ERROR
  39.          BRK
  40. ;
  41. ;======================================= 
  42. OPENPRM  DFB  $03
  43.          DW   PATHNAME      ;PATHNAME ADDRESS
  44.          DW   MLIBUFR       ;FILE BUFFER ADDRESS
  45. OPENREF  DFB  $00                        ;REFERENCE NUMBER
  46. ;
  47. ;
  48. PARMGETP DFB  $01
  49.          DW   PATHNAME
  50. ;
  51. PATHNAME DFB  0
  52.          ASC  '               '
  53.          ASC  '               '
  54.          ASC  '               '
  55.          ASC  '               '
  56.          ASC  '   '
  57. ;
  58. ;
  59. FILENAME DFB  0
  60.          ASC  '               '
  61. ;
  62. ;
  63. POSNPARM DFB  $02
  64. POSNREF  DFB  $01            ;FILE REFERENCE #
  65. POSNL    DFB  $00            ;NEW FILE POSITION
  66. POSNM    DFB  $00
  67. POSNH    DFB  $00
  68. ;
  69. READPARM DFB  $04
  70. READREF  DFB  $01            ;FILE REFERENCE #
  71. READBUF  DW   $2000        ;DATA BUFFER ADDRESS
  72. READLEN  DW   $0800        ; REQUESTED LENGTH
  73.          DW   $0000        ; ACTUAL LENGTH
  74. ;
  75. CLOSPARM DFB  $01
  76. CLOSREF  DFB  $01            ;REFERENCE #
  77. ;
  78. ;=================================================
  79. EOF      DFB  $FF            ;EOF MARKER
  80. ;
  81. ;ADJUST ORIGIN BELOW DEPENDING ON LENGTH OF CODE
  82. ;
  83.          ORG  START+$100
  84. MLIBUFR  DS   $400
  85.