home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
fish
/
programming
/
aztecarp_436
/
src
/
tracker.asm
< prev
next >
Wrap
Assembly Source File
|
1990-12-05
|
3KB
|
147 lines
; Glue routines for arp.library and MANX/AZTEC 'C'
; Copyright (C) 1987, Scott Ballantyne
; Use at your own risk, etc., etc.
; May be freely used.
INCLUDE "exec/execbase.i"
INCLUDE "libraries/arpbase.i"
INCLUDE "libraries/dosextens.i"
; Variables used by 'C' to access certain extra arplibrary returns
dseg
public _ArpBase
cseg
*-------------------------------------------------------------------------
xdef _ArpAllocMem
_ArpAllocMem:
movem.l 4(sp),d0-d1
pea (a6)
move.l _ArpBase,a6
jsr -390(a6)
move.l (sp)+,a6
bra Check_Save
*-------------------------------------------------------------------------
xdef _ArpOpen
_ArpOpen:
movem.l 4(sp),d1-d2
pea (a6)
move.l _ArpBase,a6
jsr -396(a6)
move.l (sp)+,a6
bra Check_Save
*-------------------------------------------------------------------------
xdef _ArpDupLock
_ArpDupLock:
move.l 4(sp),d1
pea (a6)
move.l _ArpBase,a6
jsr -402(a6)
move.l (sp)+,a6
bra Check_Save
*-------------------------------------------------------------------------
xdef _ArpLock
_ArpLock:
movem.l 4(sp),d1/d2
pea (a6)
move.l _ArpBase,a6
jsr -408(a6)
move.l (sp)+,a6
bra Check_Save
*-------------------------------------------------------------------------
xdef _ArpAlloc
_ArpAlloc:
move.l 4(sp),d0
pea (a6)
move.l _ArpBase,a6
jsr -384(a6)
move.l (sp)+,a6
bra Check_Save
*-------------------------------------------------------------------------
xdef _RListAlloc
_RListAlloc:
move.l 4(sp),a0
move.l 8(sp),d0
pea (a6)
move.l _ArpBase,a6
jsr -414(a6)
move.l (sp)+,a6
bra Check_Save
*-------------------------------------------------------------------------
xdef _ArpOpenLibrary
_ArpOpenLibrary:
move.l 4(sp),a1
move.l 8(sp),d0
pea (a6)
move.l _ArpBase,a6
jsr -654(a6)
move.l (sp)+,a6
bra Check_Save
*-------------------------------------------------------------------------
xdef _ArpAllocFreq
_ArpAllocFreq:
pea (a6)
move.l _ArpBase,a6
jsr -660(a6)
move.l (sp)+,a6
bra Check_Save
*-------------------------------------------------------------------------
xdef _GetTracker
_GetTracker:
pea (a6)
move.l _ArpBase,a6
jsr -486(a6)
move.l (sp)+,a6
tst.l d0
beq 1$ ; No tracker, ERROR!
move.l 4(sp),d1
move.w d1,dt_ID(a1) ; Save ID (It was LONG)
1$ move.l a1,d0 ; Put into return register
bra Save_Second ; Also save it...
Check_Save:
tst.l d0 ; Check for return error...
beq Exit_Fail ; If error, skip setting...
Save_Second:
move.l (4).w,a0 ; This used to be _SysBase absolutely
; referenced. -olsen
move.l ThisTask(a0),a0
move.l a1,pr_Result2(a0)
Exit_Fail:
rts
END