home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
466.lha
/
AztecArp_v1.9
/
Source.LZH
/
aztecglue.asm
< prev
next >
Wrap
Assembly Source File
|
1990-12-05
|
10KB
|
694 lines
; General arp.library glue code, built using the MapFD program
; supplied with Aztec 5.0 and some small hacks to get Printf and its
; cousins work right though this doesn't imply any guarantee.
;
; This code could - as usual - be a lot shorter since I've put all
; glue routines into one single file instead of creating small single
; modules to be linked into a big linker lib. I could easily say
; that this was done for debugging purposes, but the truth is: I'm
; too lazy. Change anything you want, might as well work with Lattice.
;
; Note: 1) Tracked functions are commented out.
; 2) To enable words for Toupper define INT16 (longs are default)
;
; 10-Mar-90: Olsen did the recreation (yes he did).
; 31-Jul-90: Fixed wrong library offsets
xref _ArpBase
section text,code ; Make the asm happy
; xdef _ArpAllocMem
;_ArpAllocMem:
; pea (a6)
; move.l _ArpBase,a6
; movem.l 8(sp),d0/d1
; jsr -390(a6)
; move.l (sp)+,a6
; rts
; xdef _ArpAllocFreq
;_ArpAllocFreq:
; pea (a6)
; move.l _ArpBase,a6
; jsr -660(a6)
; move.l (sp)+,a6
; rts
; xdef _ArpAlloc
;_ArpAlloc:
; pea (a6)
; move.l _ArpBase,a6
; move.l 8(sp),d0
; jsr -384(a6)
; move.l (sp)+,a6
; rts
; xdef _ArpDupLock
;_ArpDupLock:
; pea (a6)
; move.l _ArpBase,a6
; move.l 8(sp),d1
; jsr -402(a6)
; move.l (sp)+,a6
; rts
; xdef _ArpLock
;_ArpLock:
; movem.l a6/d2,-(sp)
; move.l _ArpBase,a6
; movem.l 12(sp),d1/d2
; jsr -408(a6)
; movem.l (sp)+,a6/d2
; rts
; xdef _ArpOpen
;_ArpOpen:
; movem.l a6/d2,-(sp)
; move.l _ArpBase,a6
; movem.l 12(sp),d1/d2
; jsr -396(a6)
; movem.l (sp)+,a6/d2
; rts
; xdef _ArpOpenLibrary
;_ArpOpenLibrary:
; pea (a6)
; move.l _ArpBase,a6
; move.l 8(sp),a1
; move.l 12(sp),d0
; jsr -654(a6)
; move.l (sp)+,a6
; rts
; xdef _GetTracker
;_GetTracker:
; pea (a6)
; move.l _ArpBase,a6
; jsr -486(a6)
; move.l (sp)+,a6
; rts
; xdef _RListAlloc
;_RListAlloc:
; pea (a6)
; move.l _ArpBase,a6
; move.l 8(sp),a0
; move.l 12(sp),d0
; jsr -414(a6)
; move.l (sp)+,a6
; rts
xdef _AddDADevs
_AddDADevs:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
move.l 12(sp),d0
jsr -516(a6)
move.l (sp)+,a6
rts
xdef _AddDANode
_AddDANode:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
movem.l 16(sp),d0/d1
jsr -510(a6)
move.l (sp)+,a6
rts
xdef _AddResidentPrg
_AddResidentPrg:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d1/a0
jsr -582(a6)
move.l (sp)+,a6
rts
xdef _ArpExit
_ArpExit:
movem.l a6/d2,-(sp)
move.l _ArpBase,a6
movem.l 12(sp),d0/d2
jsr -378(a6)
movem.l (sp)+,a6/d2
rts
xdef _Assign
_Assign:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
jsr -336(a6)
move.l (sp)+,a6
rts
xdef _ASyncRun
_ASyncRun:
movem.l a6/a2,-(sp)
move.l _ArpBase,a6
movem.l 12(sp),a0/a1/a2
jsr -546(a6)
movem.l (sp)+,a6/a2
rts
xdef _Atol
_Atol:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -258(a6)
move.l (sp)+,a6
rts
xdef _BaseName
_BaseName:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -630(a6)
move.l (sp)+,a6
rts
xdef _BtoCStr
_BtoCStr:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
movem.l 12(sp),d0/d1
jsr -354(a6)
move.l (sp)+,a6
rts
xdef _CheckAbort
_CheckAbort:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -270(a6)
move.l (sp)+,a6
rts
xdef _CheckBreak
_CheckBreak:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d1/a1
jsr -276(a6)
move.l (sp)+,a6
rts
xdef _CheckSumPrg
_CheckSumPrg:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),d0
jsr -618(a6)
move.l (sp)+,a6
rts
xdef _CloseWindowSafely
_CloseWindowSafely:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
jsr -300(a6)
move.l (sp)+,a6
rts
xdef _CompareLock
_CompareLock:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/d1
jsr -456(a6)
move.l (sp)+,a6
rts
xdef _CreatePort
_CreatePort:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
move.l 12(sp),d0
jsr -306(a6)
move.l (sp)+,a6
rts
xdef _CreateTaskResList
_CreateTaskResList:
pea (a6)
move.l _ArpBase,a6
jsr -468(a6)
move.l (sp)+,a6
rts
xdef _CtoBStr
_CtoBStr:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
movem.l 12(sp),d0/d1
jsr -360(a6)
move.l (sp)+,a6
rts
xdef _DeletePort
_DeletePort:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -312(a6)
move.l (sp)+,a6
rts
xdef _DosAllocMem
_DosAllocMem:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),d0
jsr -342(a6)
move.l (sp)+,a6
rts
xdef _DosFreeMem
_DosFreeMem:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -348(a6)
move.l (sp)+,a6
rts
xdef _EscapeString
_EscapeString:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -264(a6)
move.l (sp)+,a6
rts
xdef _FileRequest
_FileRequest:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -294(a6)
move.l (sp)+,a6
rts
xdef _FindCLI
_FindCLI:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),d0
jsr -420(a6)
move.l (sp)+,a6
rts
xdef _FindFirst
_FindFirst:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/a0
jsr -438(a6)
move.l (sp)+,a6
rts
xdef _FindNext
_FindNext:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -444(a6)
move.l (sp)+,a6
rts
xdef _FindTaskResList
_FindTaskResList:
pea (a6)
move.l _ArpBase,a6
jsr -462(a6)
move.l (sp)+,a6
rts
xdef _FPrintf
_FPrintf:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/a0
lea.l 16(sp),a1
jsr -234(a6)
move.l (sp)+,a6
rts
xdef _FreeAccess
_FreeAccess:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -498(a6)
move.l (sp)+,a6
rts
xdef _FreeAnchorChain
_FreeAnchorChain:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -450(a6)
move.l (sp)+,a6
rts
xdef _FreeDAList
_FreeDAList:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -504(a6)
move.l (sp)+,a6
rts
xdef _FreeResList
_FreeResList:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -474(a6)
move.l (sp)+,a6
rts
xdef _FreeTaskResList
_FreeTaskResList:
pea (a6)
move.l _ArpBase,a6
jsr -372(a6)
move.l (sp)+,a6
rts
xdef _FreeTrackedItem
_FreeTrackedItem:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -480(a6)
move.l (sp)+,a6
rts
xdef _GADS
_GADS:
movem.l a6/a2/a3,-(sp)
move.l _ArpBase,a6
move.l 16(sp),a0
movem.l 20(sp),d0/a1/a2/a3
jsr -252(a6)
movem.l (sp)+,a6/a2/a3
rts
xdef _GetAccess
_GetAccess:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -492(a6)
move.l (sp)+,a6
rts
xdef _GetDevInfo
_GetDevInfo:
movem.l a6/a2,-(sp)
move.l _ArpBase,a6
move.l 12(sp),a2
jsr -366(a6)
movem.l (sp)+,a6/a2
rts
xdef _Getenv
_Getenv:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
move.l 16(sp),d0
jsr -282(a6)
move.l (sp)+,a6
rts
xdef _GetKeywordIndex
_GetKeywordIndex:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
jsr -648(a6)
move.l (sp)+,a6
rts
xdef _InitStdPacket
_InitStdPacket:
movem.l a6/a2,-(sp)
move.l _ArpBase,a6
movem.l 12(sp),d0/a0/a1/a2
jsr -324(a6)
movem.l (sp)+,a6/a2
rts
xdef _LDiv
_LDiv:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/d1
jsr -606(a6)
move.l (sp)+,a6
rts
xdef _LMod
_LMod:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/d1
jsr -612(a6)
move.l (sp)+,a6
rts
xdef _LMult
_LMult:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/d1
jsr -600(a6)
move.l (sp)+,a6
rts
xdef _LoadPrg
_LoadPrg:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),d1
jsr -552(a6)
move.l (sp)+,a6
rts
xdef _ObtainResidentPrg
_ObtainResidentPrg:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -576(a6)
move.l (sp)+,a6
rts
xdef _PathName
_PathName:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/a0
move.l 16(sp),d1
jsr -330(a6)
move.l (sp)+,a6
rts
xdef _PatternMatch
_PatternMatch:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
jsr -432(a6)
move.l (sp)+,a6
rts
xdef _PreParse
_PreParse:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
jsr -558(a6)
move.l (sp)+,a6
rts
xdef _Printf
_Printf:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0
lea.l 12(sp),a1
jsr -228(a6)
move.l (sp)+,a6
rts
xdef _Puts
_Puts:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a1
jsr -240(a6)
move.l (sp)+,a6
rts
xdef _QSort
_QSort:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
movem.l 12(sp),d0/d1/a1
jsr -426(a6)
move.l (sp)+,a6
rts
xdef _ReadLine
_ReadLine:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -246(a6)
move.l (sp)+,a6
rts
xdef _ReleaseResidentPrg
_ReleaseResidentPrg:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),d1
jsr -636(a6)
move.l (sp)+,a6
rts
xdef _RemResidentPrg
_RemResidentPrg:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -588(a6)
move.l (sp)+,a6
rts
xdef _SendPacket
_SendPacket:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/a0/a1
jsr -318(a6)
move.l (sp)+,a6
rts
xdef _Setenv
_Setenv:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
jsr -288(a6)
move.l (sp)+,a6
rts
xdef _SPrintf
_SPrintf:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),d0/a0
lea.l 16(sp),a1
jsr -642(a6)
move.l (sp)+,a6
rts
xdef _StamptoStr
_StamptoStr:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -564(a6)
move.l (sp)+,a6
rts
xdef _Strcmp
_Strcmp:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
jsr -522(a6)
move.l (sp)+,a6
rts
xdef _Strncmp
_Strncmp:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
move.l 16(sp),d0
jsr -528(a6)
move.l (sp)+,a6
rts
xdef _StrtoStamp
_StrtoStamp:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),a0
jsr -570(a6)
move.l (sp)+,a6
rts
xdef _SyncRun
_SyncRun:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
movem.l 16(sp),d0/d1
jsr -540(a6)
move.l (sp)+,a6
rts
xdef _TackOn
_TackOn:
pea (a6)
move.l _ArpBase,a6
movem.l 8(sp),a0/a1
jsr -624(a6)
move.l (sp)+,a6
rts
xdef _Toupper
_Toupper:
pea (a6)
move.l _ArpBase,a6
IF INT16
move.w 8(sp),d0
ELSE
move.l 8(sp),d0
ENDC
jsr -534(a6)
move.l (sp)+,a6
rts
xdef _UnLoadPrg
_UnLoadPrg:
pea (a6)
move.l _ArpBase,a6
move.l 8(sp),d1
jsr -594(a6)
move.l (sp)+,a6
rts
end ; Make the asm even happier