IFND WHDLOAD_I WHDLOAD=1 IFND EXEC_EXECBASE_I INCLUDE exec/execbase.i ENDC IFND EXEC_TYPES_I INCLUDE exec/types.i ENDC IFND HARDWARE_CIA_I INCLUDE hardware/cia.i ENDC IFND HARDWARE_CUSTOM_I INCLUDE hardware/custom.i ENDC IFND HARDWARE_INTBITS_I INCLUDE hardware/intbits.i ENDC IFND HARDWARE_DMABITS_I INCLUDE hardware/dmabits.i ENDC IFND UTILITY_TAGITEM_I INCLUDE utility/tagitem.i ENDC ;some custom stuff BITDEF POTGO,OUTRY,15 BITDEF POTGO,DATRY,14 BITDEF POTGO,OUTRX,13 BITDEF POTGO,DATRX,12 BITDEF POTGO,OUTLY,11 BITDEF POTGO,DATLY,10 BITDEF POTGO,OUTLX,9 BITDEF POTGO,DATLX,8 BITDEF POTGO,START,0 _ciaa = $bfe001 _ciab = $bfd000 _custom = $dff000 ;============================================================================= ; misc ;============================================================================= SLAVE_DEFNAME MACRO dc.b "WHDLoad.Slave",0 ENDM SLAVE_SECURITY MACRO moveq #-1,d0 rts ENDM SLAVE_ID MACRO dc.b "WHDLOADS" ENDM SLAVE_HEADER MACRO SLAVE_SECURITY SLAVE_ID ENDM ;============================================================================= ; some useful macros ;============================================================================= **************************************************************** ***** write opcode ILLEGAL to specified address ill MACRO IFNE NARG-1 FAIL arguments "ill" ENDC move.w #$4afc,\1 ENDM **************************************************************** ***** write opcode RTS to specified address ret MACRO IFNE NARG-1 FAIL arguments "ret" ENDC move.w #$4e75,\1 ENDM **************************************************************** ***** write \1 times opcode NOP starting at address \2 nops MACRO IFNE NARG-2 FAIL arguments "nops" ENDC movem.l d0/a0,-(a7) IFGT \1-128 move.w #\1-1,d0 ELSE moveq #\1-1,d0 ENDC lea \2,a0 .lp\@ move.w #$4e71,(a0)+ dbf d0,.lp\@ movem.l (a7)+,d0/a0 ENDM **************************************************************** ***** write opcode JMP \2 to address \1 patch MACRO IFNE NARG-2 FAIL arguments "patch" ENDC move.w #$4ef9,\1 pea \2 move.l (a7)+,2+\1 ENDM **************************************************************** ***** write opcode JSR \2 to address \1 patchs MACRO IFNE NARG-2 FAIL arguments "patchs" ENDC move.w #$4eb9,\1 pea \2 move.l (a7)+,2+\1 ENDM **************************************************************** ***** wait that blitter has finished his job ***** (this is adapted from graphics.WaitBlit, see autodocs for ***** hardware bugs and possible problems ...) ***** if \1 is given it must be an address register containing _custom BLITWAIT MACRO IFEQ NARG-1 tst.b (dmaconr,\1) .waitb\@ tst.b (_ciaa) ;this avoids blitter slow down tst.b (_ciaa) btst #DMAB_BLTDONE-8,(dmaconr,\1) bne.b .waitb\@ tst.b (dmaconr,\1) ELSE tst.b (_custom+dmaconr) .waitb\@ tst.b (_ciaa) ;this avoids blitter slow down tst.b (_ciaa) btst #DMAB_BLTDONE-8,(_custom+dmaconr) bne.b .waitb\@ tst.b (_custom+dmaconr) ENDC ENDM **************************************************************** ***** wait of vertical blank ***** if \1 is given it must be an address register containing _custom waitvb MACRO IFEQ NARG-1 .loop1\@ btst #0,(vposr+1,\1) beq .loop1\@ .loop2\@ btst #0,(vposr+1,\1) bne .loop2\@ ELSE .loop1\@ btst #0,(_custom+vposr+1) beq .loop1\@ .loop2\@ btst #0,(_custom+vposr+1) bne .loop2\@ ENDC ENDM **************************************************************** ***** wait for pressing any button waitbutton MACRO IFNE NARG FAIL arguments "waitbutton" ENDC move.l a0,-(a7) lea (_custom),a0 .down\@ bsr .wait\@ btst #CIAB_GAMEPORT0,(ciapra+_ciaa) ;LMB beq .up\@ btst #POTGOB_DATLY-8,(potinp,a0) ;RMB beq .up\@ btst #CIAB_GAMEPORT1,(ciapra+_ciaa) ;FIRE bne .down\@ .up\@ bsr .wait\@ ;entprellen btst #CIAB_GAMEPORT0,(ciapra+_ciaa) ;LMB beq .up\@ btst #POTGOB_DATLY-8,(potinp,a0) ;RMB beq .up\@ btst #CIAB_GAMEPORT1,(ciapra+_ciaa) ;FIRE beq .up\@ bsr .wait\@ ;entprellen bra .done\@ .wait\@ waitvb a0 rts .done\@ move.l (a7)+,a0 ENDM **************************************************************** ***** flash the screen and wait for LMB blitz MACRO move #$4200,bplcon0+_custom move.l d0,-(a7) .lpbl\@ move.w d0,$dff180 subq.w #1,d0 btst #6,$bfe001 bne .lpbl\@ waitvb ;entprellen .lp2bl\@ move.w d0,$dff180 subq.w #1,d0 btst #6,$bfe001 beq .lp2bl\@ move.l (a7)+,d0 ENDM **************************************************************** ***** install Vertical-Blank-Interrupt which quits on LMB pressed QUITVBI MACRO move.l a0,-(a7) lea .vbi,a0 move.l a0,$6c bra .g .vbi btst #6,$bfe001 beq .vbi+1 ;create "address error" move.w #INTF_VERTB,_custom+intreq rte .g move.w #INTF_SETCLR|INTF_INTEN|INTF_VERTB,_custom+intena move.w #INTF_VERTB,_custom+intreq move.l (a7)+,a0 ENDM ;============================================================================= ; return-values for termination (resload_Abort) ;============================================================================= TDREASON_OK = -1 ;normal termination TDREASON_DOSREAD = 1 ;error with resload_ReadFile TDREASON_DOSWRITE = 2 ;error with resload_SaveFile/resload_SaveFileOffset TDREASON_EXCEPTION = 3 ;(private) TDREASON_RESET = 4 ;(private) TDREASON_DEBUG = 5 ;make coredump and quit TDREASON_DOSLIST = 6 ;error with resload_ListFiles TDREASON_DISKLOAD = 7 ;error with resload_DiskLoad TDREASON_DISKLOADDEV = 8 ;error with resload_DiskLoadDev TDREASON_WRONGVER = 9 ;an version check (e.g. crc16) has detected an ;unsupported version of data files TDREASON_MMUTABLE = 9995 ;(private) incomplete mmu translation tree TDREASON_BADSP = 9996 ;(private) illegal sp on entering whdload TDREASON_ILLEGALARGS = 9997 ;(private) illegal parameters to a resload_#? function TDREASON_BADVERSION = 9998 ;(private) resload_#? function call and bad ws_Version TDREASON_FALSEMODE = 9999 ;(private) internal mode check ;============================================================================= ; tagitems for various resload functions ;============================================================================= ENUM TAG_USER+$8000000 EITEM WHDLTAG_ATTNFLAGS_GET ;get the AttnFlags EITEM WHDLTAG_ECLOCKFREQ_GET ;get the EClockFrequency ;============================================================================= ; Slave Version 1..3 ;============================================================================= STRUCTURE WhdloadSlave,0 STRUCT ws_Security,4 ;moveq #-1,d0 + rts STRUCT ws_ID,8 ;"WHDLOADS" UWORD ws_Version ;version of Whdload that is required UWORD ws_Flags ;see below ULONG ws_BaseMemSize ;size of mem required by game ;(must be multiple of $1000, max=$200000) ULONG ws_ExecInstall ;address in BaseMem where is space for a fake ;ExecLibrary installed by the WHDLoad to ;survive a RESET ;for example $400 ;required are at least 84 Bytes ;=0 means unsupported RPTR ws_GameLoader ;start of slave-code ;will called from WHDLoad after init in ;SuperVisor ;slave must be 100.00% PC-RELATIVE ! RPTR ws_CurrentDir ;subdirectory in which WHDLoad should search ;for files RPTR ws_DontCache ;pattern string for files which must not cached ;starting WHDLoad 0.107 this is obsolete ;============================================================================= ; additional Version 4..5 ;============================================================================= UBYTE ws_keydebug ;raw key code to quit with debug ;works only if vbr is moved ! ;=0 means no key UBYTE ws_keyexit ;raw key code to exit ;works only if vbr is moved ! ;=0 means no key LABEL ws_SIZEOF ;============================================================================= ; Flags for ws_Flags BITDEF WHDL,Disk,0 ;means diskimages are used by the slave ;result is a different PRELOAD ;starting WHDLoad 0.107 this is obsolete BITDEF WHDL,NoError,1 ;if enabled every error occuring in a ;resload_#? function will immedately quit the ;slave, and whdload will prompt an error ;requester BITDEF WHDL,EmulTrap,2 ;if set and the vbr is moved TRAP #0-15 are ;emulated like the the autovectors ;============================================================================= ; resload_#? functions ; a JMP-tower in WHDLoad (similar to a library) ; base is given on startup via A0 ;============================================================================= STRUCTURE ResidentLoader,0 ULONG resload_Install ;(private) ULONG resload_Abort ; return to operating system ; IN: (a7) = ULONG success (one of TDREASON_xxx) ; (4,a7) = ULONG primary error code ; (8,a7) = ULONG secondary error code ; OUT : - ; DANGER this routine must called via JMP ! (not JSR) ULONG resload_LoadFile ; load to BaseMem ; IN : a0 = CPTR name of file ; a1 = APTR address ; OUT : d0 = BOOL success (size of file) ; d1 = ULONG dos errcode (0 if all went ok) ULONG resload_SaveFile ; save from BaseMem ; IN : d0 = LONG length to save ; a0 = CPTR name of file ; a1 = APTR address ; OUT : d0 = BOOL success ; d1 = ULONG dos errcode (0 if all went ok) ULONG resload_SetCACR ; sets the CACR (also ok with 68000's and from user-state) ; IN : d0 = ULONG new cacr ; d1 = ULONG mask (bits to change) ; OUT : d0 = ULONG old cacr ULONG resload_ListFiles ; list files in dir to buffer ; IN : d0 = ULONG buffer size (a1) ; a0 = CPTR name of directory to scan (relative) ; a1 = APTR buffer (MUST reside in Slave !!!) ; OUT : d0 = ULONG amount of listed names ; d1 = ULONG dos errcode (0 if all went ok) ULONG resload_Decrunch ; decrunch memory ; IN : a0 = APTR source ; a1 = APTR destination (can be equal to source) ; OUT : d0 = BOOL success (size of file unpacked) ULONG resload_LoadFileDecrunch ; IN : a0 = CPTR name of file (anywhere) ; a1 = APTR address (MUST inside BaseMem !!!) ; OUT : d0 = BOOL success (size of file) ; d1 = ULONG dos errcode (0 if all went ok) ULONG resload_FlushCache ; flush all caches ; IN : - ; OUT : - ULONG resload_GetFileSize ; IN : a0 = CPTR name of file ; OUT : d0 = LONG size of file or 0 if does'nt exist ULONG resload_DiskLoad ; IN : d0 = ULONG offset ; d1 = ULONG size ; d2 = ULONG disk number ; a0 = APTR destination ; OUT : d0 = BOOL success ; d1 = ULONG dos errorcode (if failed) ******* the following functions require ws_Version >= 2 ULONG resload_DiskLoadDev ; IN : d0 = ULONG offset ; d1 = ULONG size ; a0 = APTR destination ; a1 = APTR taglist ; OUT : d0 = BOOL success ; d1 = ULONG trackdisk errorcode (if failed) ******* the following functions require ws_Version >= 3 ULONG resload_CRC16 ; IN : d0 = ULONG length ; a0 = APTR address ; OUT : d0 = UWORD crc checksum ******* the following functions require ws_Version >= 5 ULONG resload_Control ; IN : a0 = APTR taglist ; OUT : d0 = BOOL success ULONG resload_SaveFileOffset ; save from BaseMem ; IN : d0 = ULONG length to save ; d1 = ULONG offset ; a0 = CPTR name of file ; a1 = APTR address ; OUT : d0 = BOOL success ; d1 = ULONG dos errcode (0 if all went ok) LABEL resload_SIZEOF ******* compatibility to older whdload versions : resload_CheckFileExist = resload_GetFileSize ;============================================================================= ENDC