home *** CD-ROM | disk | FTP | other *** search
- ; resgeta4.s -- This is needed for programs which intend to run as
- ; resident using ARP. Note that this does not
- ; require an opened arp.library.
- ;
- ; Created 02-18-88 by -+=SDB+=-
- ; Copyright (c) by Scott Ballantyne, may be freely used
- ; by Arp Supporters/users.
- ;
- ; Use at your own risk.
- ;
-
- INCLUDE "exec/types.i"
- INCLUDE "exec/exec_lib.i"
- INCLUDE "exec/execbase.i"
- INCLUDE "exec/memory.i"
- INCLUDE "exec/tasks.i"
- INCLUDE "exec/alerts.i"
- INCLUDE "libraries/arpbase.i"
-
- cseg
-
- public _geta4
- _geta4:
- far data
- movem.l d0-d1/a0-a1/a6,-(sp) ; max safety here...
- tst.l ___fromdisk__
- bne.s 1$
- move.l 4,a6
- move.l ThisTask(a6),a0
- lea.l TC_MEMENTRY(a0),a0
- lea.l PMEM(pc),a1
- SYSCALL FindName
- move.l d0,a0
- cmp.w #2,pm_Num(a0) ; check for data
- bne.s 1$ ; resident, but no data allocated.
- move.l pm_Data(a0),a4 ; get data pointer
- add.l #32766,a4 ; bias
- bra.s 2$
- 1$: lea.l __H1_org+32766,a4
- 2$: movem.l (sp)+,d0-d1/a0-a1/a6
- rts
-
- PMEM PMEM_NAME
-
-
- near data
-
- dseg
- ds 0
- public ___fromdisk__,__H1_org
- ___fromdisk__:
- dc.l 0 ; default is resident
-
-
-