Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-29 07:49:20 +00:00
Code Issues Projects Releases Wiki Activity

Document offset params for DRAW_BITMAP

Browse Source
This commit is contained in:
Joshua Bell 2017-09-24 17:57:57 -07:00
parent d51708fa43
commit 7da8d58ee0
2 changed files with 194 additions and 154 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
desk.acc/a2d.inc
View File

@ -150,9 +150,11 @@ A2D_DRAW_BITMAP := $14 ; Draw pattern
;; (input length 16 bytes)
;; .word left
;; .word top
;; .addr pattern pattern is 7 bits per byte, 0 = black, 1 = white
;; .byte stride pattern width in bytes
;; .byte 0,0,0,0,0 ???
;; .addr bitmap bitmap is 7 bits per byte, 0 = black, 1 = white
;; .byte stride bitmap width in bytes
;; .byte 0 ???
;; .word hoffset offset within bitmap definition
;; .word voffset
;; .word width pixels
;; .word height pixels

334
desk.acc/calculator.s
View File

@ -241,236 +241,272 @@ flag: .byte A2D_CZP_OVERWRITE
border_br := 2 ; (bottom/right)
.proc btn_c
.word col1_left - border_lt
.word row1_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00 ; ???
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col1_left - border_lt
top: .word row1_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte 'c'
pos: .word col1_left + 6, row1_bot
box: .word col1_left,row1_top,col1_right,row1_bot
.endproc
.proc btn_e
.word col2_left - border_lt
.word row1_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col2_left - border_lt
top: .word row1_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte 'e'
.word col2_left + 6, row1_bot
pos: .word col2_left + 6, row1_bot
box: .word col2_left,row1_top,col2_right,row1_bot
.endproc
.proc btn_eq
.word col3_left - border_lt
.word row1_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col3_left - border_lt
top: .word row1_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '='
.word col3_left + 6, row1_bot
pos: .word col3_left + 6, row1_bot
box: .word col3_left,row1_top,col3_right,row1_bot
.endproc
.proc btn_mul
.word col4_left - border_lt
.word row1_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col4_left - border_lt
top: .word row1_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '*'
.word col4_left + 6, row1_bot
pos: .word col4_left + 6, row1_bot
box: .word col4_left,row1_top,col4_right,row1_bot
.endproc
.proc btn_7
.word col1_left - border_lt
.word row2_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col1_left - border_lt
top: .word row2_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '7'
.word col1_left + 6, row2_bot
pos: .word col1_left + 6, row2_bot
box: .word col1_left,row2_top,col1_right,row2_bot
.endproc
.proc btn_8
.word col2_left - border_lt
.word row2_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col2_left - border_lt
top: .word row2_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '8'
.word col2_left + 6, row2_bot
pos: .word col2_left + 6, row2_bot
box: .word col2_left,row2_top,col2_right,row2_bot
.endproc
.proc btn_9
.word col3_left - border_lt
.word row2_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col3_left - border_lt
top: .word row2_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '9'
.word col3_left + 6, row2_bot
pos: .word col3_left + 6, row2_bot
box: .word col3_left,row2_top,col3_right,row2_bot
.endproc
.proc btn_div
.word col4_left - border_lt
.word row2_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col4_left - border_lt
top: .word row2_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '/'
.word col4_left + 6, row2_bot
pos: .word col4_left + 6, row2_bot
box: .word col4_left,row2_top,col4_right,row2_bot
.endproc
.proc btn_4
.word col1_left - border_lt
.word row3_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col1_left - border_lt
top: .word row3_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '4'
.word col1_left + 6, row3_bot
pos: .word col1_left + 6, row3_bot
box: .word col1_left,row3_top,col1_right,row3_bot
.endproc
.proc btn_5
.word col2_left - border_lt
.word row3_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col2_left - border_lt
top: .word row3_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '5'
.word col2_left + 6, row3_bot
pos: .word col2_left + 6, row3_bot
box: .word col2_left,row3_top,col2_right,row3_bot
.endproc
.proc btn_6
.word col3_left - border_lt
.word row3_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col3_left - border_lt
top: .word row3_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '6'
.word col3_left + 6, row3_bot
pos: .word col3_left + 6, row3_bot
box: .word col3_left,row3_top,col3_right,row3_bot
.endproc
.proc btn_sub
.word col4_left - border_lt
.word row3_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col4_left - border_lt
top: .word row3_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '-'
.word col4_left + 6, row3_bot
pos: .word col4_left + 6, row3_bot
box: .word col4_left,row3_top,col4_right,row3_bot
.endproc
.proc btn_1
.word col1_left - border_lt
.word row4_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col1_left - border_lt
top: .word row4_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '1'
.word col1_left + 6, row4_bot
pos: .word col1_left + 6, row4_bot
box: .word col1_left,row4_top,col1_right,row4_bot
.endproc
.proc btn_2
.word col2_left - border_lt
.word row4_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col2_left - border_lt
top: .word row4_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '2'
.word col2_left + 6, row4_bot
pos: .word col2_left + 6, row4_bot
box: .word col2_left,row4_top,col2_right,row4_bot
.endproc
.proc btn_3
.word col3_left - border_lt
.word row4_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
left: .word col3_left - border_lt
top: .word row4_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '3'
.word col3_left + 6, row4_bot
pos: .word col3_left + 6, row4_bot
box: .word col3_left,row4_top,col3_right,row4_bot
.endproc
.proc btn_0
.word col1_left - border_lt
.word row5_top - border_lt
.addr wide_button_bitmap
.byte 8 ; bitmap_stride (bytes)
.byte $00,$00,$00,$00,$00
.word 49 ; 0 is extra wide
.word button_height + border_lt + border_br
.byte '0'
.word col1_left + 6, row5_bot
left: .word col1_left - border_lt
top: .word row5_top - border_lt
bitmap: .addr wide_button_bitmap
stride: .byte 8 ; bitmap_stride (bytes)
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word 49 ; 0 is extra wide
height: .word button_height + border_lt + border_br
label: .byte '0'
pos: .word col1_left + 6, row5_bot
box: .word col1_left,row5_top,col2_right,row5_bot
.endproc
.proc btn_dec
.word col3_left - border_lt
.word row5_top - border_lt
.addr button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word button_height + border_lt + border_br
.byte '.'
.word col3_left + 6 + 2, row5_bot ; + 2 to center the label
left: .word col3_left - border_lt
top: .word row5_top - border_lt
bitmap: .addr button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word button_height + border_lt + border_br
label: .byte '.'
pos: .word col3_left + 6 + 2, row5_bot ; + 2 to center the label
box: .word col3_left,row5_top,col3_right,row5_bot
.endproc
.proc btn_add
.word col4_left - border_lt
.word row4_top - border_lt
.addr tall_button_bitmap
.byte bitmap_stride
.byte $00,$00,$00,$00,$00
.word button_width + border_lt + border_br
.word 27 ; + is extra tall
.byte '+'
.word col4_left + 6, row5_bot
left: .word col4_left - border_lt
top: .word row4_top - border_lt
bitmap: .addr tall_button_bitmap
stride: .byte bitmap_stride
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word button_width + border_lt + border_br
height: .word 27 ; + is extra tall
label: .byte '+'
pos: .word col4_left + 6, row5_bot
box: .word col4_left,row4_top,col4_right,row5_bot
.endproc
.byte 0 ; sentinel
@ -665,7 +701,9 @@ left: .word 115 ; overwritten
top: .word $FFF7 ; overwritten
bitmap:.addr pixels
stride: .byte 1
.byte 0,0,0,0,0 ; ???
.byte 0 ; ???
hoffset:.word 0
voffset:.word 0
width: .word 6
height: .word 5
;; (not part of struct, but not referenced outside)
@ -681,7 +719,7 @@ pixels: .byte px(%1000001)
.proc state_params
left: .word 0
top: .word 0
addr: .word 0
saddr: .word 0
stride: .word 0
hoffset:.word 0
voffset:.word 0