supermario/base/SuperMarioProj.1994-02-09/OS/Clock.a

;
;	File:		Clock.a
;
;	Contains:	This file contains routines to directly access the clock.
;
;	Copyright:	© 1985-1993 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;	   <SM8>	12/13/93	PN		Roll in KAOs and Horror changes to support Malcom and AJ
;									machines.
;	   <SM7>	 11/9/93	KW		added eieioSTP macros.  Only expanded for CygnusX1 ROM
;	   <SM6>	 5/28/92	kc		Change the conventions of ValidatePRAM so that it can be called
;									by bsr instead of bsr6.
;	   <SM5>	 5/28/92	kc		Added Register saves/.restores to ValidatePRAM.
;	   <SM4>	 5/28/92	kc		Roll in Horror Changes. Comments follow:
;		<H2>	 11/6/91	SWC		Re-wrote clock and PRAM routines to be table-driven so that
;									future expansion should be really simple (and clean). Hardware
;									dependent routines will now be found in ClockPRAMPrimitives.a.
;									Moved PRamIO here from ClockPatches.a since that was all that
;									was left there.
;	   <SM3>	 5/17/92	kc		Prepend via equates with "v".
;	   <SM2>	  5/5/92	SES		Rolled in ReadDateTime patch functionality from PatchIIciROM.a.
;									This patch is only for machines with Egret. Egret's tick handler
;									was modified to update the Time lowmem global, so ReadTime
;									simply returns with noErr if on an Egret-based machine.
;		<15>	10/18/91	JSM		Get rid of all the stupid conditionals.
;		<14>	 8/29/91	JSM		Cleanup header.
;		<13>	 6/12/91	LN		Changed #include 'HardwareEqu.a' to 'HardwarePrivateEqu.a'
;		<12>	 9/14/90	MSH		Removed the lame video-based PRAM scheme for Waimea and power
;									manager based clock.  TIM has a conventional RTC.
;		<11>	  7/3/90	CCH		Fixed problem with PRAMIO writes.
;		<10>	 5/14/90	MSH		Test for clock in Power Manager used wrong bits.
;		 <9>	 4/12/90	MSH		Fixed the Waimea PRAM interface to use the universal tables
;									correctly.
;		 <8>	 3/27/90	HJR		Add Conditional so that HcMac will build.
;		 <7>	 3/22/90	MSH		SysUtil and Clock rewritten to place all hardware dependent
;									routines in clock and to remove redundant parameter RAM reading
;									and writing routines. Also added Waimea versions of these
;									routines.
;		 <6>	 2/28/90	GMR		Made changes for Egret code to match new Egret equates.
;		 <5>	 2/12/90	GMR		Added ENDIF to fix build for MacPP,HcMac.
;		 <4>	 2/11/90	GMR		Fixed WriteEgretPRAM, to delay 100us at end of packet, to give
;									Egret time to see completion (fixes a lock up problem).
;		 <3>	 2/10/90	GMR		Made ValidatePRAM universal, to support Egret. Pram calls now
;									temporarily use Egret's Wr6805Addr command instead of WrPram
;									until 6805 code is fixed in next mask.
;		 <2>	  2/4/90	GMR		Added partial Egret support, in ReadXPram, WriteXPram, and new
;									low level ReadPramByte (for use before Egret manager is
;									initialized, e.g. by MMU.a). Still need Egret version of
;									ValidatePRAM
;	   <1.6>	 6/16/89	SWC		PRAM validation didn't: shifted one byte too many, but doesn't
;									anymore.
;	   <1.5>	 6/15/89	SWC		Added ValidatePRAM to validate, and if necessary, initialize
;									PRAM at start time.
;	   <1.4>	 4/13/89	GGD		Removed the support for the Rev7 MacII logic board, and all of
;									the ugly conditionals that were needed to support it. Removed
;									usage of nEqu.d and StartMacs. Removed conditionals which
;									supported two spellings of vRTCEnb (with and without the 'v'),
;									and made the spellings consistent in HardwareEqu.a, changed to
;									use bit definition equate instead of hard coded constants for
;									vRTCData. Converted to feature based conditionals. Added offset
;									vBufB to via accesses to clarify which register is being
;									accessed. Changed interface to ClkNoMem to have caller pass in
;									VIA base address in A1.
;	   <1.3>	  3/6/89	GGD		Moved OneSecInt handler from IntHnd to Clock.a.
;	   <1.2>	 2/16/89	rwh		Removed conditionals for non-working Vias.
;	   <1.1>	11/10/88	CCH		Fixed Header.
;	   <1.0>	 11/9/88	CCH		Adding to EASE.
;	  <•1.3>	 9/23/88	CCH		Got rid of inc.sum.d and empty nFiles
;	   <1.2>	 9/16/88	rwh		Roll-in onMvMac changes
;	   <1.1>	 6/10/88	MSH		Changes made in Feb 88 did not get rolled into ease... Brian!
;	   <1.0>	 2/10/88	BBM		Adding file for the first time into EASE…
;	  <C968>	11/18/87	rwh		Fix C880 - no RTS5 @ end of ClkNoMem for non-Laguna machines!
;	  <C914>	10/29/87	rwh		Port to Modern Victorian (onMvMac)
;	  <C919>	10/27/87	MSH		Bug fixes mostly, but did add a XPram mapping table for Laguna.
;	  <C916>	10/21/87	MSH		Forgot to load some pointers before call pmgr for Laguna.
;	  <C880>	  9/3/87	MSH		Port to HcMac (Laguna) requires power manager interface. Does
;									not support parameter ram bytes $60-$DF. ReadFrClk, SendToClk
;									not supported. Removed ReadPram IMPORT, nobody uses it.
;	  <C206>	 10/9/86	bbm		Modified to mpw aincludes.
;	  <C112>	  8/7/86	RDC		Added changes for new NuMac hardware (clk now same as Mac)
;	   <C56>	 6/26/86	WRL		Put ClkNoMem, ReadFrClk, and SendToClk back in this file (from
;									StartInit).
;		<C1>	 4/15/86	RDC		Enabled access to XPRamRead and XPRamWrite routines for Reno
;									(NuMac)
;				 2/19/86	BBM		Made some modifications to work under MPW
;				10/31/85	BBM		arithmetic done wrong in Read/WriteXPRam.
;				10/30/85	LAK		No longer call ReadPram after extended read/write. Use jump
;									table vector rather than GetTrapAddress.
;				10/29/85	BBM		needed to save one more register across ClkNoMem call.
;				10/25/85	RDC		Removed MidMac equate for clock routines (now moved to
;									startmain)
;				10/23/85	BBM		Changed calling interface to ReadXPRam and WriteXPRam. Also now
;									checks if new clock chip present before executing ReadXPRam and
;									WriteXPRam.
;				 10/3/85	so		these routines can be called from the start code (before memory
;									test). This is done via three macros: RTS5, BSR6 and RTS6. Also
;									supported is the extended command for reads and writes to the
;									new clock chip for mac. The entry for the lowest level routine
;									just added is ClkNoMem, and it is accessed via BSR5. Added two
;									new traps to access all of extra parameter ram, ReadXPRam and
;									WriteXPRam.
;				 10/2/85	BBM		made the lowest level routines not use any memory (like the
;									stack),
;				 7/24/85	RDC		new today - moved from Sysutil.text added changes for MidMac to
;									use new interface, int levels
;___________________________________________________________________________________

			BLANKS	ON
			STRING	ASIS

			PRINT	OFF						;											<C56>
			LOAD	'StandardEqu.d'
			INCLUDE	'HardwarePrivateEqu.a'
			INCLUDE	'UniversalEqu.a'		;											<1.5>
			INCLUDE	'IOPrimitiveEqu.a'		;											<H2>
			PRINT	ON						;											<C56>

Clock		PROC	EXPORT
			EXPORT	OneSecInt				;											<1.3>
			EXPORT	ReadXPRam,WriteXPRam
			EXPORT	ValidatePRAM,PramIO

			IMPORT	PRAMInit				;											<1.5>
			IMPORT	PRAMInitTbl				;											<1.5>
			
			PRINT	  NOGEN
		IF NOT BlackBirdDebug THEN
;_______________________________________________________________________				<1.3>
;
; Routine:		OneSecInt
;
; Arguments:	A1 (input)  -- Address of VIA1
;
; Function: 	Services 1-second interrupt from clock . . .
;
; NOTE:	This handler expects that the interrupt is still pending, and clears
;		it by clearing the CA2 interrupt flag on VIA 1 (base address passed
;		in register A1).  This is correct for all current hardware implementations
;		but may not be in the future.
; 		we support alarm clock flash here in the system code: other functions may
;		start the flash simply by clearing bit 1 of AlarmState
;
; AlarmState	bit 7 = flash parity
;				bit 6 = 1 to enable initial beep
;				bit 5 = set to 0 every second by this code (flag to GNEFilter)
;				bit 1 = 0 to start flashing
;				bit 0 = 0 for global flash enable
;
;_______________________________________________________________________

OneSecInt	MOVE.B	#1<<ifCA2,VIFR(A1)		; clear the interrupt						<1.4>
			ADDQ.L	#1,Time					; count the second
			BCLR	#5,AlarmState			; flag GNEFilter to flash if enabled

			TST.B	SPVolCtl				; bit 7 is alarm enable
			BPL.S	@done					; exit if not enabled
			MOVE.L	SPAlarm,D0
			BEQ.S	@done					; exit if no alarm
			CMP.L	Time,D0 				; is it past time?
			BHI.S	@done					; exit if not

; flash apple menu item if there's a window world

			BCLR	#1,AlarmState			; flag GNEFilter to flash
@done		RTS								;											<1.3>

		ENDIF
		
;••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••			<K2>
;  	This is a hack for the one second interrupt.  PG&E is suppose to be providing the interrupt
;	and it currently does not.  After it is working again, this code should disappear.
;	REALLY!!! Disappear...
;
		IF BlackBirdDebug THEN

OneSecInt	MOVEA.l A1, A0					;
			MOVE.l	#1000,D0				; 1 second
			MOVEA.l jPrimeTime, A1			; get pointer to the PrimeTime routine
			JSR		(A1)					; restart time manager task
			
			ADDQ.L	#1,Time					; count the second
			BCLR	#5,AlarmState			; flag GNEFilter to flash if enabled

; we support alarm clock flash here in the system code: other functions may
; start the flash simply by clearing bit 1 of AlarmState
;
; AlarmState	bit 7 = flash parity
;				bit 6 = 1 to enable initial beep
;				bit 5 = set to 0 every second by this code (flag to GNEFilter)
;				bit 1 = 0 to start flashing
;				bit 0 = 0 for global flash enable

			TST.B	SPVolCtl				; bit 7 is alarm enable
			BPL.S	@done					; exit if not enabled
			MOVE.L	SPAlarm,D0
			BEQ.S	@done					; exit if no alarm
			CMP.L	Time,D0 				; is it past time?
			BHI.S	@done					; exit if not

; flash apple menu item if there's a window world

			BCLR	#1,AlarmState			; flag GNEFilter to flash
@done		RTS								;											<1.3>

		
		ENDIF
;••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••			<K2>

;________________________________________________________________________________________
;
; Routine:	PramIO
;
; Inputs:	A0	-	pointer to table of base addresses
;			A1	-	pointer to ProductInfo record for this machine
;			A3	-	pointer to PRAM I/O buffer
;			D1	-	flags indicating which external features are valid
;			D3	-	bit      31: 0=read, 1=write
;					bits 30..16: number of PRAM bytes to read/write (1-256)
;					bits 15.. 0: starting PRAM address (0-255)
;
; Outputs:	none
;
; Trashes:	A3,D3
;
; Function:	reads/writes PRAM bytes from the caller's buffer before traps are set up
;________________________________________________________________________________________

PramIO		MOVEM.L	D0-D2/A0-A2,-(SP)		;														<H2>
			MOVEA.L	A1,A2					; point to the ProductInfo								<H2>
			ADDA.L	ProductInfo.ClockPRAMPtr(A1),A2	;  and get the address of its clock/PRAM table	<H2>
			MOVE.L	4*cpXPRAMIO(A2),D2		; get the offset to the routine							<H2>
			BEQ.S	@NoEntry				; -> this function is not supported						<H2>
			ADDA.L	D2,A2					; calculate the routine's address						<H2>
			JSR		(A2)					;  and call it											<H2>
@NoEntry	MOVEM.L (SP)+,D0-D2/A0-A2		;														<H2>
			RTS								;														<H2>

;________________________________________________________________________________________
;
; Routine:	ReadXPRAM, WriteXPRAM
;
; Inputs:	A0	-	pointer to caller's buffer
;			D0	-	[number of bytes to transfer][starting PRAM address]
;			D1	-	bit 12: 1=read, 0=write
;
; Outputs:	D0	-	result code
;
; Trashes:	none
;
; Function:	reads or writes extended PRAM bytes into the caller's buffer
;________________________________________________________________________________________

ReadXPRAM	MOVEM.L	A0-A3/D1-D3,-(SP)		;														<H2>
			MOVE.W	#($17<<8)+%11100000,D1	; control byte + mask for reg address[7..5]				<H2>
			BRA.S 	rwXCommon				;														<H2>

WriteXPRAM	MOVEM.L	A0-A3/D1-D3,-(SP)		;														<H2>
			MOVE.W	#($07<<8)+%11100000,D1	; control byte + mask for reg address[7..5]				<H2>

rwXCommon	BTST.B	#hwCbClock-8,HWCfgFlags	; do we have a new clock chip (256 PRAM bytes)?			<H2>
			BEQ.S 	@rwXPRAMErr				; -> no													<H2>

			MOVEA.L	UnivInfoPtr,A1			; point to this machine's product info					<H2>
			ADDA.L	ProductInfo.ClockPRAMPtr(A1),A1	;  and get the address of its clock/PRAM table	<H2>
			MOVE.L	4*cpXParam(A1),D3		; get the offset to the routine							<H2>
			BEQ.S	@NoEntry				; -> this function is not supported						<H2>
			ADDA.L	D3,A1					; calculate the routine's address						<H2>
			JSR		(A1)					;  and call it											<H2>
@NoEntry	MOVEM.L	(SP)+,A0-A3/D1-D3		;														<H2>
			RTS								;														<H2>

@rwXPRAMErr	MOVEQ 	#PRWrErr,D0 			; no extended PRAM so just return an error				<H2>
			BRA.S 	@NoEntry				;														<H2>


;________________________________________________________________________________________			<H2>
;
; Routine:	ValidatePRAM
;
; Inputs:	A6	-	return address
;			A0	-	pointer to table of base addresses
;			A1	-	pointer to ProductInfo record for this machine
;			D0	-	flags indicating which base addresses are valid
;			D1	-	flags indicating which external features are valid
;			D2	-	bits 31..16, hwCfgFlags info (possibly unknown)
;					bits 15.. 8, BoxFlag info (possibly unknown)
;					bits  7.. 0, Address Decoder Kind (zero if unknown)
;			D7	-	bits 31..16: logic board type
;					bits 15.. 0: CPU type (0 = 68000, 1 = 68010, etc)
;
; Outputs:	none
;
; Trashes:	A2,A3
;
; Function:	checks that parameter RAM is valid, and if it's not, initializes it to
;			its default state
;________________________________________________________________________________________

ValidatePRAM
			MOVEM.L	D0-D3/A0-A3,-(SP)		; register saves from StartINIT							<SM5>													<8.6>
			LEA		-256(SP),SP				; allocate a PRAM buffer on the stack					<H2>

			MOVEA.L	SP,A3					; point to the buffer									<H2>
			MOVE.L	#(0<<31)|\				; read													<H2>
					 (32<<16)|\				;  32 bytes												<H2>
					 (0<<0),D3				;   from PRAM address 0									<H2>
			BSR		PramIO					;														<H2>
			CMPI.B	#$A8,16(SP)				; is the "old" (20 byte) PRAM signature valid?			<H2>
			BEQ.S	@CheckXPRAM				; -> yes, move on										<H2>

			BIGLEA	PRAMInit,A3				; point to table of default values						<H2>
			MOVE.L	#(1<<31)|\				; write													<H2>
					 (16<<16)|\				;  16 bytes												<H2>
					 (16<<0),D3				;   starting at PRAM address 16							<H2>
			BSR		PramIO					; write out the first 16 bytes of original PRAM			<H2>

			BIGLEA	PRAMInit+16,A3			; point to table of default values						<H2>
			MOVE.L	#(1<<31)|\				; write													<H2>
					 (4<<16)|\				;  4 bytes												<H2>
					 (8<<0),D3				;   starting at PRAM address 8							<H2>
			BSR		PramIO					; write out the last 4 bytes of original PRAM			<H2>

@CheckXPRAM	LEA		@XPRAMSig,A3			;														<H2>
			MOVE.L	12(SP),D3				; are the extended PRAM signature bytes valid?			<H2>
			CMP.L	(A3),D3					;														<H2>
			BEQ.S	@Done					; -> yes, we're done									<H2>
			MOVE.L	#(1<<31)|\				; write													<H2>
					 (4<<16)|\				;  4 bytes												<H2>
					 (12<<0),D3				;   starting at PRAM address 12							<H2>
			BSR		PramIO					; write out the correct extended PRAM signature bytes	<H2>

			MOVEA.L	SP,A3					; point to our stack buffer								<H2>
			MOVEQ	#(256-32)/4-1,D3		;  and zero each byte									<H2>
@ClearBuf	CLR.L	(A3)+					;														<H2>
			DBRA	D3,@ClearBuf			;														<H2>

			BIGLEA	PRAMInitTbl,A2			; point to the table of default extended PRAM values	<H2>
			LEA		$76-32(SP),A3			;  and where they'll go in the buffer					<H2>
			MOVEQ	#$89-$76,D3				; copy them into the buffer								<H2>
@CopyXDefs	MOVE.B	(A2)+,(A3)+				;														<H2>
			DBRA	D3,@CopyXDefs			;														<H2>

			MOVEA.L	SP,A3					; point to the buffer									<H2>
			MOVE.L	#(1<<31)|\				; write													<H2>
					 ((256-32)<<16)|\		;  256-32 bytes											<H2>
					 (32<<0),D3				;   starting at PRAM address 32							<H2>
			BSR		PramIO					;														<H2>

@Done		
			LEA		256(SP),SP				; clean up the stack									<H2>
			MOVEM.L	(SP)+,D0-D3/A0-A3		; restore regs from StartINIT							<SM5>													<8.6>
			RTS								;														<H2>
		
@XPRAMSig	DC.L	'NuMc'					; extended PRAM validity bytes (slot-based machines)	<H2>


			END