home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
389.lha
/
dme_v1.40
/
src
/
afilereq.asm
< prev
next >
Wrap
Assembly Source File
|
1990-07-03
|
1KB
|
56 lines
; arpreq(hail,file,dir,window)
section text,CODE
xdef _arpreq
xref _LVOOldOpenLibrary
xref _LVOCloseLibrary
_LVOFileRequest equ -294
arp_name_text dc.b 'arp.library',0
_arpreq:
movem.l D2/D3/A6,-(sp)
lea.l fs(A4),A0
movem.l 4+12(sp),D0-D3 ;setup fields
movem.l D0-D3,(A0)
clr.w fs+16(A4)
move.l 4,A6
lea.l arp_name_text(pc),a1 ;open library
jsr _LVOOldOpenLibrary(a6)
tst.l d0
beq .done
move.l d0,a6
lea.l fs(a4),a0
jsr _LVOFileRequest(A6) ;call requestor
move.l D0,-(sp) ;return value
move.l A6,A1 ;CloseLibrary(arpbase)
move.l 4,A6
jsr _LVOCloseLibrary(A6)
move.l (sp)+,D0 ;return value
.done movem.l (sp)+,D2/D3/A6
rts
; BUG BUG BUG BUG. If this section put first BSS shows
; no space
section __MERGED,BSS
fs ds.l 1 ;hailing text
ds.l 1 ;file name
ds.l 1 ;directory
ds.l 1 ;window requesting
ds.w 1 ;LONG Align, idiots! set to 0
ds.l 1 ;func for wildcards
ds.l 1 ;func to call w/intuimessages
END