Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-26 12:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Identified SET_PATTERN call

Browse Source
This commit is contained in:
Joshua Bell 2017-09-02 20:23:14 -07:00
parent f5f015b941
commit 5df8a1929e
4 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
desk.acc/show.text.file/a2d.inc
View File

@ -36,7 +36,8 @@ A2D_TEXT_BOX2 := $06 ; Not sure what BOX1 vs. BOX2 is for
;; .word width pixels
;; .word height
A2D_UNK_08 := $08 ; Unknown - used frequently
A2D_SET_PATTERN := $08
;; .byte r0...r7 8x8 pixel pattern for A2D_CLEAR_BOX calls
A2D_UNK_0C := $0C ; Unknown - used in calculator

29
desk.acc/show.text.file/stf.list
View File

@ -113,7 +113,8 @@ Current file: stf.s
000800 2 ;; .word width pixels
000800 2 ;; .word height
000800 2
000800 2 A2D_UNK_08 := $08 ; Unknown - used frequently
000800 2 A2D_SET_PATTERN := $08
000800 2 ;; .byte r0...r7 8x8 pixel pattern for A2D_CLEAR_BOX calls
000800 2
000800 2 A2D_UNK_0C := $0C ; Unknown - used in calculator
000800 2
@ -466,19 +467,19 @@ Current file: stf.s
000948 1 00 L0948: .byte $00
000949 1 00 L0949: .byte $00
00094A 1
00094A 1 ;; params of a $08 call
00094A 1 00 00 00 00 L094A: .byte $00,$00,$00,$00
00094E 1
00094E 1 params_end:
00094E 1 ;;; ----------------------------------------
00094E 1
00094E 1 window_id := $64
00094E 1
00094E 1 00 00 00 00 .byte $00,$00,$00,$00
00094A 1 params_end := * + 4 ; bug in original? (harmless as this is static)
00094A 1 ;;; ----------------------------------------
00094A 1
00094A 1 black_pattern:
00094A 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$00,$00
00094E 1 00 00 00 00
000952 1
000952 1 ;; start of a $08 call
000952 1 FF FF FF FF L0952: .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
000952 1 white_pattern:
000952 1 FF FF FF FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
000956 1 FF FF FF FF
00095A 1
00095A 1 window_id := $64
00095A 1
00095A 1 00 L095A: .byte $00
00095B 1 FA L095B: .byte $FA
00095C 1 01 L095C: .byte $01
@ -1260,11 +1261,11 @@ Current file: stf.s
000E1D 1 .endproc
000E1D 1
000E1D 1 ;; called on scroll
000E1D 1 20 00 40 08 L0E1D: A2D_CALL $08, L0952
000E1D 1 20 00 40 08 L0E1D: A2D_CALL A2D_SET_PATTERN, white_pattern
000E21 1 52 09
000E23 1 20 00 40 11 A2D_CALL A2D_CLEAR_BOX, text_box::hoffset
000E27 1 B0 09
000E29 1 20 00 40 08 A2D_CALL $08, L094A ; possibly hides cursor?
000E29 1 20 00 40 08 A2D_CALL A2D_SET_PATTERN, black_pattern
000E2D 1 4A 09
000E2F 1 60 rts
000E30 1

BIN
desk.acc/show.text.file/stf.o
View File

Binary file not shown.

19
desk.acc/show.text.file/stf.s
View File

@ -206,18 +206,17 @@ L0947: .byte $00
L0948: .byte $00
L0949: .byte $00
;; params of a $08 call
L094A: .byte $00,$00,$00,$00
params_end:
params_end := * + 4 ; bug in original? (harmless as this is static)
;;; ----------------------------------------
black_pattern:
.byte $00,$00,$00,$00,$00,$00,$00,$00
white_pattern:
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
window_id := $64
.byte $00,$00,$00,$00
;; start of a $08 call
L0952: .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
L095A: .byte $00
L095B: .byte $FA
L095C: .byte $01
@ -980,9 +979,9 @@ end: rts
.endproc
;; called on scroll
L0E1D: A2D_CALL $08, L0952
L0E1D: A2D_CALL A2D_SET_PATTERN, white_pattern
A2D_CALL A2D_CLEAR_BOX, text_box::hoffset
A2D_CALL $08, L094A ; possibly hides cursor?
A2D_CALL A2D_SET_PATTERN, black_pattern
rts
;;; ==================================================