Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-08-13 13:25:03 +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
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 width pixels
;; .word height ;; .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 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 width pixels
000800 2 ;; .word height 000800 2 ;; .word height
000800 2 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
000800 2 A2D_UNK_0C := $0C ; Unknown - used in calculator 000800 2 A2D_UNK_0C := $0C ; Unknown - used in calculator
000800 2 000800 2
@@ -466,19 +467,19 @@ Current file: stf.s
000948 1 00 L0948: .byte $00 000948 1 00 L0948: .byte $00
000949 1 00 L0949: .byte $00 000949 1 00 L0949: .byte $00
00094A 1 00094A 1
00094A 1 ;; params of a $08 call 00094A 1 params_end := * + 4 ; bug in original? (harmless as this is static)
00094A 1 00 00 00 00 L094A: .byte $00,$00,$00,$00 00094A 1 ;;; ----------------------------------------
00094E 1 00094A 1
00094E 1 params_end: 00094A 1 black_pattern:
00094E 1 ;;; ---------------------------------------- 00094A 1 00 00 00 00 .byte $00,$00,$00,$00,$00,$00,$00,$00
00094E 1 00094E 1 00 00 00 00
00094E 1 window_id := $64
00094E 1
00094E 1 00 00 00 00 .byte $00,$00,$00,$00
000952 1 000952 1
000952 1 ;; start of a $08 call 000952 1 white_pattern:
000952 1 FF FF FF FF L0952: .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF 000952 1 FF FF FF FF .byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
000956 1 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 00095A 1 00 L095A: .byte $00
00095B 1 FA L095B: .byte $FA 00095B 1 FA L095B: .byte $FA
00095C 1 01 L095C: .byte $01 00095C 1 01 L095C: .byte $01
@@ -1260,11 +1261,11 @@ Current file: stf.s
000E1D 1 .endproc 000E1D 1 .endproc
000E1D 1 000E1D 1
000E1D 1 ;; called on scroll 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 000E21 1 52 09
000E23 1 20 00 40 11 A2D_CALL A2D_CLEAR_BOX, text_box::hoffset 000E23 1 20 00 40 11 A2D_CALL A2D_CLEAR_BOX, text_box::hoffset
000E27 1 B0 09 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 000E2D 1 4A 09
000E2F 1 60 rts 000E2F 1 60 rts
000E30 1 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 L0948: .byte $00
L0949: .byte $00 L0949: .byte $00
;; params of a $08 call params_end := * + 4 ; bug in original? (harmless as this is static)
L094A: .byte $00,$00,$00,$00
params_end:
;;; ---------------------------------------- ;;; ----------------------------------------
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 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 L095A: .byte $00
L095B: .byte $FA L095B: .byte $FA
L095C: .byte $01 L095C: .byte $01
@@ -980,9 +979,9 @@ end: rts
.endproc .endproc
;; called on scroll ;; 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 A2D_CLEAR_BOX, text_box::hoffset
A2D_CALL $08, L094A ; possibly hides cursor? A2D_CALL A2D_SET_PATTERN, black_pattern
rts rts
;;; ================================================== ;;; ==================================================