LDA $15

ORA $17

BEQ KeineEingabe

LDA #$80

TSB $0DAE

RTS

KeineEingabe:

LDA #$80

TRB $0DAE

RTS

;;;;;;;;;;;;;;;;;;;;;;;;;

;; 

;; S-RTC Patch

;;     by

;; wiiqwertyuiop

;;

;; This patch will enable the S-RTC chip for *SMW*

;; It gives you a real time clock to use in game.

;; Useful for day/night system or even making your hack change with the seasons.

;;

;;;;;;;;;;;;;;;;;;;;;;;;;



header

lorom



;;;;;;;;;;;;;;;;;;;;;;;;;



!Freespace =    $33B000	;

!TimeSet =      $7FC7E0		; If not zero time has been set (preferably one that doesnt get cleared). If it's zero time will be set. 1 byte needed.

;!FreezeTime =   $7FC7E1	; If not zero, time won't increase.

!FreeRAM =      $7FC7E2	; This is the RAM/SRAM the time will get stored to. 12 bytes needed.



;; Set time:



!SecondsLow =   $7FC7F4	; You can also use values for all of these if you wish

!SecondsHigh =  $7FC7F5

!MinutesLow =   $7FC7F6	

!MinutesHigh =  $7FC7F7

!HoursLow =     $7FC7F8

!HoursHigh =    $7FC7F9

!DayLow =       $7FC7FA

!DayHigh =      $7FC7FB

!Month =        $7FC7FC

!YearLow =      $7FC7FD

!YearHigh =     $7FC7FE

!Century =      $7FC7FF



;;

;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;; Hijacks:

;;



org $0081A4		;

JML Test		;

NOP

NOP



org $00FFD6		;\

db $55			;/



org !Freespace

!CodeSize = Ending-Routine  

db "STAR"

dw !CodeSize-$01

dw !CodeSize-$01^$FFFF

Routine:

;=========================

;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;; Code below:



Test:			;

    STZ $1DFA

    STZ $1dFC



LDA !TimeSet		;\

CMP #$EA		; | Check if the time has been set already, if so, branch

BEQ +			;/

JSR INIT		; Set things up

+			;

;LDA !FreezeTime		;\ If it's not time to increase time, branch

;BNE DontRead		;/

JSR ReadReady		;\ Check if we are ready for reading, if not return

BCC DontRead		;/

JSR ReadReady		; For some reason it needs to be read twice

LDX #$00		;\

KeepReading:		; |

LDA $2800		; |

AND #$0F		; | Read time

STA !FreeRAM,x		; |

INX			; |

CPX #$0C		; |

BNE KeepReading		;/

DontRead:		;

JML $0081AA		;/



INIT:			;

LDA #$0E		;\

AND #$0F		; | Invoke command

STA $2801		;/

LDA #$04		;\

AND #$0F		; | Set 24-hour mode(?)

STA $2801		;/

LDA #$0D		;\

AND #$0F		; | Terminate command

STA $2801		;/

LDA #$0E		;\

AND #$0F		; | Invoke command

STA $2801		;/

LDA #$00		;\

AND #$0F		; | Set time command

STA $2801		;/

LDA !SecondsLow		;\

AND #$0F		; | Seconds low byte

STA $2801		;/

LDA !SecondsHigh	;\

AND #$0F		; | Seconds high byte

STA $2801		;/

LDA !MinutesLow		;\

AND #$0F		; | Minutes low byte

STA $2801		;/

LDA !MinutesHigh	;\

AND #$0F		; | Minutes high byte

STA $2801		;/

LDA !HoursLow		;\

AND #$0F		; | Hours low byte

STA $2801		;/

LDA !HoursHigh		;\

AND #$0F		; | Hours high byte

STA $2801		;/

LDA !DayLow		;\

AND #$0F		; | Day low byte

STA $2801		;/

LDA !DayHigh		;\

AND #$0F		; | Day high byte

STA $2801		;/

LDA !Month		;\

AND #$0F		; | Month

STA $2801		;/

LDA !YearLow		;\

AND #$0F		; | Year low byte

STA $2801		;/

LDA !YearHigh		;\

AND #$0F		; | Year high byte

STA $2801		;/

LDA !Century		;\

AND #$0F		; | Century

STA $2801		;/

LDA #$0D		;\

AND #$0F		; | Terminate command

STA $2801		;/

LDA #$EA		;\ Good to go.

STA !TimeSet		;/ 

RTS			;



ReadReady:		;

LDA $2800		;\

AND #$0F		; | If we are not ready to read yet, branch

CMP #$0F		; |

BNE NotReady		;/

SEC			; We can read now

RTS			;



NotReady:		;

CLC			; Don't read yet

RTS			;

Ending: