Apple-2-SW/IIcSystemClock
1
0
Fork 0
mirror of https://github.com/a2stuff/IIcSystemClock.git synced 2024-06-01 03:41:30 +00:00
Code Issues Projects Releases Wiki Activity

constants for patches

Browse Source
This commit is contained in:
Joshua Bell 2019-12-08 16:18:50 -08:00
parent cedd5f0e0f
commit 75215cb031
1 changed files with 43 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
clock.system.s
View File

@ -21,6 +21,8 @@ X0EDGE2 := $C05D
MOUSE_BTN := $C063 MOUSE_BTN := $C063
kClockRoutineMaxLength = 125 ; Per ProDOS 8 TRM
L2000: L2000:
L2001 := * + 1 L2001 := * + 1
lda #$06 lda #$06
@ -137,6 +139,11 @@ L20C2: asl a
asl a asl a
bne L20CB bne L20CB
kPatchLength = $38
kPatch1Offset = $0
kPatch2Offset = $38
kPatch3Offset = $70
L20C8: lda DEVLST,x L20C8: lda DEVLST,x
L20CB: and #%01110000 ; slot L20CB: and #%01110000 ; slot
@ -150,21 +157,23 @@ L20CB: and #%01110000 ; slot
lda $07 lda $07
bne L20EE bne L20EE
beq L20FE beq L20FE
L20E3: ldy #$38 ; offset into patch #1 L20E3: ldy #kPatch2Offset
lda $07 lda $07
beq L20F0 beq apply_patch
ldy #$00 ; offset into patch #2 ldy #kPatch1Offset
jmp L20F0 jmp apply_patch
;; Patch bytes on top of driver ;; Patch bytes on top of driver
L20EE: ldy #$70 ; offset into patch #3 L20EE: ldy #kPatch3Offset
L20F0: ldx #$00
L20F2: lda L22E2,y apply_patch:
ldx #$00
: lda Patches,y
sta L2269,x sta L2269,x
iny iny
inx inx
cpx #$38 cpx #$38
bne L20F2 bne :-
L20FE: lda #$02 L20FE: lda #$02
sta L210F sta L210F
@ -200,7 +209,7 @@ L2135: ldy #$07
;; -------------------------------------------------- ;; --------------------------------------------------
L2145: lda #$00 L2145: lda #0
sta DATELO sta DATELO
sta DATELO+1 sta DATELO+1
sta TIMELO sta TIMELO
@ -267,26 +276,28 @@ L21D3: lda $1204
L21DF: lda RWRAM1 L21DF: lda RWRAM1
lda RWRAM1 lda RWRAM1
lda DATETIME+1 lda DATETIME+1
sta L2202 sta install_ptr
clc clc
adc #$76 adc #$76
sta L22B1 sta L22B1
lda DATETIME+2 lda DATETIME+2
sta L2203 sta install_ptr+1
adc #0 adc #0
sta L22B2 sta L22B2
;; Relocate clock driver ;; Relocate clock driver
ldy #kClockRoutineMaxLength - 1
ldy #$7C : lda Driver,y
L21FE: lda L2265,y install_ptr := * + 1
L2202 := * + 1
L2203 := * + 2
sta $F000,y sta $F000,y
dey dey
bpl L21FE bpl :-
;; Initialize the time (via driver)
jsr DATETIME jsr DATETIME
lda ROMIN2 lda ROMIN2
;; Chain
jmp L1000 jmp L1000
L2210: lda L11FF L2210: lda L11FF
@ -348,8 +359,8 @@ L2264: rts
;;; Clock Driver (Relocatable) ;;; Clock Driver (Relocatable)
;;; ============================================================ ;;; ============================================================
L2265: cld Driver: cld
cld cld ; TODO: Remove duplicate CLD
php php
sei sei
L2269: L2269:
@ -392,12 +403,13 @@ L228A := * + 1
L229F := * + 1 L229F := * + 1
sta PORT2_ACIA_COMMAND sta PORT2_ACIA_COMMAND
ldx #$06 ldx #$06
L22A3: lda $0201,x L22A3: lda $0201,x
L22A6: dec $0200,x : dec $0200,x
bmi L22B0 bmi L22B0
clc clc
adc #$0A adc #10
bcc L22A6 bcc :-
L22B0: L22B0:
L22B1 := * + 1 L22B1 := * + 1
L22B2 := * + 2 L22B2 := * + 2
@ -406,6 +418,7 @@ L22B2 := * + 2
dex dex
dex dex
bne L22A3 bne L22A3
L22BA: lda $0200 L22BA: lda $0200
asl a asl a
and #$E0 and #$E0
@ -438,9 +451,10 @@ L22DB := * + 1
;; Patches applied to driver (length $38, at offset 0) ;; Patches applied to driver (length $38, at offset 0)
Patches:
;; Patch #1 ;; Patch #1
patch1: patch1:
L22E2:
L22E3 := * + 1 L22E3 := * + 1
lda $C0E0 ; Set to $C0x0, n=slot+8 lda $C0E0 ; Set to $C0x0, n=slot+8
lda DISVBL lda DISVBL
@ -471,12 +485,12 @@ L2307: lda MOUSE_BTN
ldy #$04 ldy #$04
dex dex
bpl L2300 bpl L2300
.assert * - patch1 = $38, error, "Patch length" .assert * - patch1 = kPatchLength, error, "Patch length"
;; -------------------------------------------------- ;; --------------------------------------------------
;; Patch #2 ;; Patch #2
patch2: patch2:
.assert * - $38 = L22E2, error, "Offset changed" .assert * = Patches + kPatch2Offset, error, "Offset changed"
lda PORT2_ACIA_COMMAND lda PORT2_ACIA_COMMAND
nop nop
@ -513,12 +527,12 @@ L233A: lda PORT2_ACIA_STATUS
nop nop
nop nop
.assert * - patch2 = $38, error, "Patch length" .assert * - patch2 = kPatchLength, error, "Patch length"
;; -------------------------------------------------- ;; --------------------------------------------------
;; Patch #3 ;; Patch #3
patch3: patch3:
.assert * - $70 = L22E2, error, "Offset changed" .assert * = Patches + kPatch3Offset, error, "Offset changed"
lda ENVBL lda ENVBL
sta ENBXY sta ENBXY
@ -550,12 +564,12 @@ L236B: lda MOUSE_BTN
dex dex
bpl L2369 bpl L2369
lda DISVBL lda DISVBL
.assert * - patch3 = $38, error, "Patch length" .assert * - patch3 = kPatchLength, error, "Patch length"
;;; ============================================================ ;;; ============================================================
L238A: jsr L2265 L238A: jsr Driver
rts rts
L238E: jsr RDKEY L238E: jsr RDKEY