home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / intui.lha / aslrequest.s < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.2 KB  |  90 lines
  1.  
  2.     
  3. ; -------> Asl Requester Library Test Program
  4.     
  5.     
  6.     SECTION asltest,code_c
  7.     
  8.     opt    o+,c-
  9.     
  10.     include    includes/libs.i
  11.  
  12. ; -------> Main Routine
  13.  
  14.     bsr    openASL
  15.     bsr    AllocASL
  16.  
  17.     bsr    openASLrequester
  18.  
  19.     bsr    FreeASL
  20.     bsr    closeASL
  21.     moveq.w    #0,d0
  22.     rts
  23.  
  24. ; -------> Open Asl Library (any version)    
  25.  
  26. OpenASL
  27.     move.l    $4.w,a6
  28.     lea    ASLname,a1
  29.     move.l    #0,d0
  30.     jsr    OpenLibrary(a6)
  31.     move.l    d0,ASLbase
  32.     rts
  33.  
  34. ; -------> Allocate File Requester Space
  35.  
  36. AllocASL
  37.     move.l    ASLbase,a6
  38.     moveq.l    #ASL_FileRequest,d0
  39.     lea    ASLtags,a0
  40.     jsr    AllocAslRequest(a6)
  41.     move.l    d0,Requesthd
  42.     rts
  43.         
  44. ; -------> Display Requester
  45.  
  46. OpenASLrequester
  47.     move.l    ASLbase,a6
  48.     move.l    Requesthd,a0
  49.     jsr    RequestFile(a6)
  50.     move.l    d0,reqoutput
  51.     rts
  52.     
  53. ; -------> Remove Requester Space
  54.  
  55. FreeASL
  56.     move.l    ASLbase,a6
  57.     move.l    Requesthd,a0
  58.     jsr    FreeFileRequest(a6)
  59.     rts
  60.     
  61. ; -------> Close Asl Library
  62.  
  63. CloseASL
  64.     move.l    $4.w,a6
  65.     move.l    ASLbase,a1
  66.     jsr    CloseLibrary(a6)
  67.     moveq.w    #0,d0
  68.     rts
  69.     
  70. ; -------> Data and Equates
  71.  
  72.  
  73. ASLname        dc.b    'asl.library',0
  74.     Even    
  75. ASLbase        dc.l    0    
  76. Requesthd    dc.l    0
  77. Reqoutput    dc.l    0
  78.  
  79. ASLtags
  80.         dc.l    ASL_Hail,TitleText
  81.         dc.l    ASL_Dir,Dirname
  82.         dc.l    ASL_Pattern,Pat
  83.         dc.l    TAG_Done
  84.  
  85.  
  86. TitleText    dc.b    'ASL request',0
  87. Dirname        dc.b    'Devpac2:',0
  88. Pat        dc.b    '#?',0
  89.     end
  90.