home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 511.lha / kd_freq.library_v3.00 / Programming / glue.asm next >
Encoding:
Assembly Source File  |  1991-06-07  |  2.2 KB  |  114 lines
  1. ;    KD_FReqBase
  2. ;    Glue.asm for Manx/Lattice/etc.
  3. ;    By: Khalid Aldoseri.
  4.  
  5. ;    Note:    Please use NewFReq() instead of FReq(), NewPath()
  6. ;        instead of Path() and NewPatMatch() instead of
  7. ;        PatMatch().  The old versions of the calls are here
  8. ;        for backwards compatibility only!
  9.  
  10.  
  11. ;Some public definitions
  12.  
  13.     SECTION    glue,CODE
  14.  
  15.     XREF    _KD_FReqBase
  16.     XDEF    _FReq
  17.     XDEF    _Path
  18.     XDEF    _PatMatch
  19.     XDEF    _NewFReq
  20.     XDEF    _CreateFRequest
  21.     XDEF    _DeleteFRequest
  22.     XDEF    _NewPath
  23.     XDEF    _NewPatMatch
  24.     XDEF    _NextSelectEntry
  25.     XDEF    _FlushFRBuffers
  26.  
  27. ;LVO Equates
  28.  
  29. _LVOFReq        EQU    -30
  30. _LVOPath        EQU    -36
  31. _LVOPatMatch        EQU    -42
  32. _LVONewFReq        EQU    -48
  33. _LVOCreateFRequest    EQU    -54
  34. _LVODeleteFRequest    EQU    -60
  35. _LVONewPath        EQU    -66
  36. _LVONewPatMatch        EQU    -72
  37. _LVONextSelectEntry    EQU    -78
  38. _LVOFlushFRBuffers    EQU    -84
  39.  
  40.  
  41. ;Glue routines
  42.  
  43. ; success = NewFReq(struct FRequester *)
  44. ;   D0                     A0
  45.  
  46. _NewFReq:        move.l    _KD_FReqBase,A6
  47.             move.l    4(sp),a0
  48.             jmp    _LVONewFReq(A6)
  49.  
  50. ; success = CreateFRequest()
  51. ;   D0
  52.  
  53. _CreateFRequest:    move.l    _KD_FReqBase,A6
  54.             jmp    _LVOCreateFRequest(A6)
  55.  
  56. ; void DeleteFRequest(struct FRequester *)
  57. ;                            A0
  58.  
  59. _DeleteFRequest:    move.l    _KD_FReqBase,A6
  60.             move.l    4(sp),a0
  61.             jmp    _LVODeleteFRequest(A6)
  62.  
  63. ; void NewPath(filename)
  64. ;                 A0
  65.  
  66. _NewPath:        move.l    _KD_FReqBase,A6
  67.             move.l    4(sp),a0
  68.             jmp    _LVONewPath(A6)
  69.  
  70.  
  71. ; success = NewPatMatch(filename,pattern)
  72. ;   D0                     A0      A1
  73.  
  74. _NewPatMatch:        move.l    _KD_FReqBase,A6
  75.             move.l    8(sp),a0
  76.             move.l    4(sp),a1
  77.             jmp    _LVONewPatMatch(A6)
  78.  
  79.  
  80. ; success = NextSelectEntry(struct FileRequester *)
  81.  
  82. _NextSelectEntry:    move.l    _KD_FReqBase,A6
  83.             move.l    4(sp),a0
  84.             jmp    _LVONextSelectEntry(A6)
  85.  
  86. ; void FlushFRBuffers(struct FRequester *)
  87. ;                            A0
  88.  
  89. _FlushFRBuffers:    move.l    _KD_FReqBase,A6
  90.             move.l    4(sp),a0
  91.             jmp    _LVOFlushFRBuffers(A6)
  92.  
  93.  
  94. ;Obsolete calls!  For backwards compatibility only!
  95.  
  96. ; success = FReq(screen,reqtitle,filename,directory,pattern,flags,extras)
  97.  
  98. _FReq:        move.l    _KD_FReqBase,A6
  99.         jmp    _LVOFReq(A6)
  100.  
  101. ; void Path(filename)
  102.  
  103. _Path:        move.l    _KD_FReqBase,A6
  104.         jmp    _LVOPath(A6)
  105.  
  106. ; success = PatMatch(pattern,filename)
  107.  
  108. _PatMatch:    move.l    _KD_FReqBase,A6
  109.         jmp    _LVOPatMatch(A6)
  110.  
  111.             END
  112.  
  113.         ; Copyright 1990,1991  Khalid Aldoseri.
  114.