home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
581b.lha
/
MoveSuperStuff
/
ShowMSS.asm
< prev
next >
Wrap
Assembly Source File
|
1991-08-12
|
863b
|
56 lines
; include macros
INCDIR MAC:
INCLUDE "sysmacs.i"
INCLUDE "libmacs.i"
INCLUDE "dosmacs.i"
INCEQUS ALL
; STDOPT DEBUG
STDOPT
INCLIB string
INCLIB dos
INCLIB resource
INCLIB tube
; jump pc data
INITSYS DOS,VANILLA,CLI,NOWB
MOVEQ #20,D0
MOVE.L D0,ReturnCode(GP)
; Print relocation info.
LIBBASE exec,A6
btst.b #AFB_68010,AttnFlags+1(A6)
beq.s NoVBR
move.l A5,-(SP)
lea GetVBR(PC),A5
CALL Supervisor
move.l (SP)+,A5
PRINTF <'Vector Base: $%lx',10>,<D4>
bra.s ShowSysStack
NoVBR:
PRINTF <'This machine aint gots no vector base register',10>
ShowSysStack:
PRINTF <'System stack base: $%lx and top: $%lx',10>,<SysStkLower(A6),SysStkUpper(A6)>
; Done, purge the output buffer and cleanup
Exit:
CLRERR
CLR.L ReturnCode(GP)
ErrorExit:
STDERR
NoErrorStringSet:
RTS
; Subroutines.
GetVBR:
DC.W $4E7A,$4801 ; movec.l VBR,D4
RTE
END