151 lines
2.2 KiB
NASM
151 lines
2.2 KiB
NASM
|
.MLIB "APMACS.LIB"
|
|||
|
.FILE "APTV.ASM"
|
|||
|
.TITLE " <<< AMUSEMENT PARK - TODDVIEW HOOKS >>>"
|
|||
|
.WIDTH 132
|
|||
|
.OPTION B,D,L,T
|
|||
|
.MNOLIST
|
|||
|
|
|||
|
**************************************************************************
|
|||
|
* *
|
|||
|
* COPYRIGHT (C) 1992 MIDWAY MANUFACTURING COMPANY. *
|
|||
|
* ALL RIGHTS RESERVED. *
|
|||
|
* *
|
|||
|
**************************************************************************
|
|||
|
|
|||
|
* GET THE SYSTEM STUFF
|
|||
|
.INCLUDE "AP.H"
|
|||
|
|
|||
|
.GLOBAL TVPATCH, TVPATCHX
|
|||
|
.GLOBAL TVBP, TVBPX
|
|||
|
|
|||
|
.DEF ROMTRAP
|
|||
|
|
|||
|
.REF QSNDRST
|
|||
|
|
|||
|
.TEXT
|
|||
|
|
|||
|
|
|||
|
*
|
|||
|
*HOOK CALLED WHENEVER TODDVIEW GAINS CONTROL OF THE PROCESSOR
|
|||
|
TVBP
|
|||
|
MMTM SP,A1,A14
|
|||
|
;CALLA QSNDRST
|
|||
|
|
|||
|
.IF 0 ;TUNIT & ROMTRAPON
|
|||
|
;DISABLE X2E -- ROM TRAP / A2D
|
|||
|
MOVW @INTENB,A14
|
|||
|
ANDNI X2E,A14
|
|||
|
MOVW A14,@INTENB
|
|||
|
.ENDIF
|
|||
|
|
|||
|
MMFM SP,A1,A14
|
|||
|
RETS
|
|||
|
|
|||
|
*
|
|||
|
*HOOK CALLED BEFORE TODDVIEW GIVES CONTROL BACK TO THE PROGRAM
|
|||
|
TVBPX
|
|||
|
MMTM SP,A1,A14
|
|||
|
|
|||
|
|
|||
|
MOVW @INTPEND,A1 ;GET PENDING BITS
|
|||
|
ANDNI DIE,A1 ;CLEAR DIE PENDING
|
|||
|
MOVW A1,@INTPEND
|
|||
|
|
|||
|
MMFM SP,A1,A14
|
|||
|
RETS
|
|||
|
|
|||
|
**
|
|||
|
** ROMTRAP - VECTOR FOR ROM TRAP INTERRUPT
|
|||
|
** A2D INTERRUPT HITS HERE TOO...
|
|||
|
**
|
|||
|
** JFL 11 JAN 93
|
|||
|
**
|
|||
|
ROMTRAP
|
|||
|
.IF TUNIT & DEBUG
|
|||
|
MMTM SP,A0,A1
|
|||
|
|
|||
|
;IS THIS THE A2D INTERRUPT?
|
|||
|
MOVW @TALKPORT,A0
|
|||
|
BTST B_A2D,A0
|
|||
|
JRNZ RTNOTA2D
|
|||
|
|
|||
|
;READ FROM A2D TO CLEAR IT
|
|||
|
MOVW @A2D_PORT,A0 ;TURN OFF A2D INTERRUPT
|
|||
|
|
|||
|
;WAIT A BIT TO LET LINE SETTLE (NEEDED?)
|
|||
|
MOVK 10,A0
|
|||
|
DSJ A0,$
|
|||
|
|
|||
|
;CHECK IF BOTH INTERRUPTS HAPPENED
|
|||
|
MOVW @INTPEND,A0 ;CHECK IF A2D CLEAR CAUSED PENDING TO GO AWAY
|
|||
|
ANDI X2E,A0
|
|||
|
JRZ RTX
|
|||
|
|
|||
|
TLOCKUP
|
|||
|
NOP ;DOES THIS EVER HAPPEN THAT BOTH GO OFF? NO WAY!
|
|||
|
|
|||
|
RTNOTA2D
|
|||
|
TLOCKUP ;WRITE TO ROM
|
|||
|
NOP ;WRITE TO ROM
|
|||
|
RTX
|
|||
|
MMFM SP,A0,A1
|
|||
|
.ENDIF
|
|||
|
RETI
|
|||
|
|
|||
|
TVPATCH:
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
.word 0
|
|||
|
TVPATCHX:
|
|||
|
|
|||
|
|
|||
|
|