home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Elysian Archive
/
AmigaElysianArchive.iso
/
wp_dtp
/
ty.lzh
/
segdamn.a
< prev
next >
Wrap
Text File
|
1989-09-14
|
1KB
|
38 lines
CSECT text
XDEF _myseg
XDEF _realLoadSeg
XDEF _realUnLoadSeg
XDEF _segname
XDEF _mLoadSeg
XDEF _mUnLoadSeg
_mLoadSeg: movea.l d1,a0
lea _segname,a1
lab2: move.b (a0)+,d0
cmp.b (a1)+,d0
bne.b lab1
tst.b d0
bne.b lab2
move.l _myseg,d0
bra.b lab3
lab1: movea.l _realLoadSeg,a0 ; arg still in d1
jsr (a0)
lab3: rts
_mUnLoadSeg: move.l _myseg,d0
cmp.l d1,d0
beq.b lab4
movea.l _realUnLoadSeg,a0
jsr (a0) ; arg still in d1
lab4: rts
_myseg: dc.l 0
_realLoadSeg: dc.l 0
_realUnLoadSeg: dc.l 0
_segname: dc.b ':utilities/ty',0
END