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 >
Wrap
Assembly Source File
|
1991-06-07
|
2KB
|
114 lines
; KD_FReqBase
; Glue.asm for Manx/Lattice/etc.
; By: Khalid Aldoseri.
; Note: Please use NewFReq() instead of FReq(), NewPath()
; instead of Path() and NewPatMatch() instead of
; PatMatch(). The old versions of the calls are here
; for backwards compatibility only!
;Some public definitions
SECTION glue,CODE
XREF _KD_FReqBase
XDEF _FReq
XDEF _Path
XDEF _PatMatch
XDEF _NewFReq
XDEF _CreateFRequest
XDEF _DeleteFRequest
XDEF _NewPath
XDEF _NewPatMatch
XDEF _NextSelectEntry
XDEF _FlushFRBuffers
;LVO Equates
_LVOFReq EQU -30
_LVOPath EQU -36
_LVOPatMatch EQU -42
_LVONewFReq EQU -48
_LVOCreateFRequest EQU -54
_LVODeleteFRequest EQU -60
_LVONewPath EQU -66
_LVONewPatMatch EQU -72
_LVONextSelectEntry EQU -78
_LVOFlushFRBuffers EQU -84
;Glue routines
; success = NewFReq(struct FRequester *)
; D0 A0
_NewFReq: move.l _KD_FReqBase,A6
move.l 4(sp),a0
jmp _LVONewFReq(A6)
; success = CreateFRequest()
; D0
_CreateFRequest: move.l _KD_FReqBase,A6
jmp _LVOCreateFRequest(A6)
; void DeleteFRequest(struct FRequester *)
; A0
_DeleteFRequest: move.l _KD_FReqBase,A6
move.l 4(sp),a0
jmp _LVODeleteFRequest(A6)
; void NewPath(filename)
; A0
_NewPath: move.l _KD_FReqBase,A6
move.l 4(sp),a0
jmp _LVONewPath(A6)
; success = NewPatMatch(filename,pattern)
; D0 A0 A1
_NewPatMatch: move.l _KD_FReqBase,A6
move.l 8(sp),a0
move.l 4(sp),a1
jmp _LVONewPatMatch(A6)
; success = NextSelectEntry(struct FileRequester *)
_NextSelectEntry: move.l _KD_FReqBase,A6
move.l 4(sp),a0
jmp _LVONextSelectEntry(A6)
; void FlushFRBuffers(struct FRequester *)
; A0
_FlushFRBuffers: move.l _KD_FReqBase,A6
move.l 4(sp),a0
jmp _LVOFlushFRBuffers(A6)
;Obsolete calls! For backwards compatibility only!
; success = FReq(screen,reqtitle,filename,directory,pattern,flags,extras)
_FReq: move.l _KD_FReqBase,A6
jmp _LVOFReq(A6)
; void Path(filename)
_Path: move.l _KD_FReqBase,A6
jmp _LVOPath(A6)
; success = PatMatch(pattern,filename)
_PatMatch: move.l _KD_FReqBase,A6
jmp _LVOPatMatch(A6)
END
; Copyright 1990,1991 Khalid Aldoseri.