Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-01-05 18:29:21 +00:00
Code Issues Projects Releases Wiki Activity

Identify SET_FILL_MODE

Browse Source
This commit is contained in:
Joshua Bell 2017-09-10 10:40:08 -07:00
parent 2fbbd23f20
commit 57e80d7240
2 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
desk.acc/a2d.inc
View File

@ -63,7 +63,8 @@ A2D_SET_BOX2 := $06 ; set vs. intersect? (not quite)
;; .word width pixels
;; .word height
A2D_UNK_07 := $07 ; Unknown - used in calculator; set fill mode?
A2D_SET_FILL_MODE := $07
;; .byte mode 0 = normal, 6 = xor (<4, >=4)
A2D_SET_PATTERN := $08
;; .byte r0...r7 8x8 pixel pattern for A2D_CLEAR_BOX calls
@ -268,6 +269,10 @@ A2D_SCROLL_PART_BELOW := 4
A2D_SCROLL_PART_AFTER := 4
A2D_SCROLL_PART_THUMB := 5
;;; Used in A2D_SET_FILL_MODE
A2D_SFM_NORMAL := 0
A2D_SFM_XOR := 6
;;; Used in A2D_CREATE_WINDOW
A2D_CWF_NOTITLE := 1 << 0
A2D_CWF_ADDCLOSE := 1 << 1

17
desk.acc/calculator.s
View File

@ -714,10 +714,15 @@ height: .word 0 ; QUERY_SCREEN call sets to screen_height-1
.word screen_height - menu_bar_height - 2
.endproc
L0CA3: .byte $00 ; arg for "normal" fill mode?
.proc fill_mode_normal
mode: .byte A2D_SFM_NORMAL
.endproc
.byte $01,$02 ; ??
L0CA6: .byte $06 ; arg for "xor" fill mode?
.proc fill_mode_xor
mode: .byte A2D_SFM_XOR
.endproc
window_width := 130
window_height := 96
@ -780,7 +785,7 @@ L0D18: sta ALTZPON
A2D_CALL A2D_CREATE_WINDOW, create_window_params
A2D_CALL A2D_QUERY_SCREEN, box_params
A2D_CALL A2D_SET_BOX1, box_params ; set clipping bounds?
A2D_CALL $2B
A2D_CALL $2B ; reset drawing state?
lda #$01
sta input_state_params::state
A2D_CALL $2D, input_state_params
@ -899,7 +904,7 @@ exit: lda LCBANK1
.byte $0C
.addr 0
lda ROMIN2
A2D_CALL $1A, L08D5
A2D_CALL $1A, L08D5 ; ??? one byte input value?
.proc do_close
;; Copy following routine to ZP and invoke it
@ -1459,7 +1464,7 @@ end: jsr display_buffer1
sty c13_addr+1
sty restore_addr+1
A2D_CALL A2D_SET_PATTERN, black_pattern
A2D_CALL $07, L0CA6 ; set mode XOR ?
A2D_CALL A2D_SET_FILL_MODE, fill_mode_xor
sec
ror button_state
@ -1495,7 +1500,7 @@ inside: lda button_state ; inside, and down
done: lda button_state ; high bit set if button down
beq :+
A2D_CALL A2D_FILL_RECT, 0, restore_addr ; Inverts back to normal
: A2D_CALL $07, L0CA3 ; Normal draw mode??
: A2D_CALL A2D_SET_FILL_MODE, fill_mode_normal ; Normal draw mode??
lda button_state
rts
.endproc