Apple-2-SW/IIcSystemClock
1
0
Fork 0
mirror of https://github.com/a2stuff/IIcSystemClock.git synced 2024-06-09 10:29:26 +00:00
Code Issues Projects Releases Wiki Activity

disasm wip

Browse Source
This commit is contained in:
Joshua Bell 2020-10-05 20:42:23 -07:00
parent 150d822683
commit b4e57c6fdd
1 changed files with 54 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
clock.system.s
View File

@ -541,7 +541,7 @@ acia_command_patch2 := * + 1
bne :- bne :-
eor #%00001010 eor #%00001010
ldx #9 ; repeat delay and # of fields-1 ldx #9 ; repeat delay and # of digits-1
dey dey
bne command_loop bne command_loop
@ -552,7 +552,7 @@ acia_command_patch2 := * + 1
;; except first byte where it's high nibble ;; except first byte where it's high nibble
ldy #4 ; 4 bits per digit ldy #4 ; 4 bits per digit
bne read_status ; always bne read_status ; always; no waiting on first iteration
read_loop: read_loop:
delay := * + 1 delay := * + 1
@ -682,36 +682,52 @@ Patches:
;;; Patch 1: ;;; Patch 1:
.proc Patch1 .proc Patch1
;; Trigger reading
firmware_byte := * + 1 firmware_byte := * + 1
lda $C0E0 ; Set to $C0x0, n=slot+8 lda $C0E0 ; Set to $C0x0, n=slot+8
lda DISVBL lda DISVBL
ldy #$01
ldx #$16 ldy #1
L22EC: dex ldx #22
bne L22EC trigger_loop:
dex
bne trigger_loop
lda DISVBL,y lda DISVBL,y
ldx #$0B ldx #11
dey dey
bpl L22EC bpl trigger_loop
L22F7: dex
bne L22F7 : dex
ldx #$09 bne :-
ldy #$04
bne L2307 ;; ------------------------------
L2300: lda #$5D ;; Read bit out of register
;; 1 bit at a time in blocks of 4, giving
;; "MMDDhhmmss" in low nibble of each byte
;; except first byte where it's high nibble
ldx #9 ; # of digits - 1
ldy #4 ; 4 bits per digit
bne read_register ; always; no waiting on first iteration
;; Wait a bit
read_loop:
lda #kDefaultDelay
sec sec
L2303: sbc #$01 : sbc #1
bne L2303 bne :-
L2307: lda MOUSE_BTN
read_register:
lda MOUSE_BTN
rol a rol a
ror digits_buffer,x ror digits_buffer,x
lsr digits_buffer+1,x lsr digits_buffer+1,x
nop nop
dey dey
bne L2300 bne read_loop
ldy #$04 ldy #4 ; 4 bits per digit
dex dex
bpl L2300 bpl read_loop
.endproc .endproc
.assert .sizeof(Patch1) = kPatchLength, error, "Patch length" .assert .sizeof(Patch1) = kPatchLength, error, "Patch length"
Patch1_firmware_byte := Patch1::firmware_byte Patch1_firmware_byte := Patch1::firmware_byte
@ -746,7 +762,7 @@ command_loop:
;; except first byte where it's high nibble ;; except first byte where it's high nibble
ldy #4 ; 4 bits per digit ldy #4 ; 4 bits per digit
bne read_status ; always bne read_status ; always; no waiting on first iteration
read_loop: read_loop:
delay := * + 1 delay := * + 1
@ -779,6 +795,7 @@ read_status:
;;; Patch 3: ;;; Patch 3:
.proc Patch3 .proc Patch3
;; Trigger reading
lda ENVBL lda ENVBL
sta ENBXY sta ENBXY
sta X0EDGE1 sta X0EDGE1
@ -790,9 +807,18 @@ read_status:
ldx #$15 ldx #$15
L2364: dex L2364: dex
bne L2364 bne L2364
ldx #$09
L2369: ldy #$04 ;; ------------------------------
L236B: lda MOUSE_BTN ;; Read bit out of register
;; 1 bit at a time in blocks of 4, giving
;; "MMDDhhmmss" in low nibble of each byte
;; except first byte where it's high nibble
ldx #9 ; # of digits - 1
read_loop:
ldy #4 ; bits per digit
bit_loop:
lda MOUSE_BTN
rol a rol a
ror digits_buffer,x ror digits_buffer,x
lsr digits_buffer+1,x lsr digits_buffer+1,x
@ -805,9 +831,11 @@ L236B: lda MOUSE_BTN
nop nop
sta X0EDGE1 sta X0EDGE1
dey dey
bne L236B bne bit_loop
dex dex
bpl L2369 bpl read_loop
;; Finish up
lda DISVBL lda DISVBL
.endproc .endproc
.assert .sizeof(Patch3) = kPatchLength, error, "Patch length" .assert .sizeof(Patch3) = kPatchLength, error, "Patch length"