Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-26 23:29:11 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop Seg 1: ZP usage vs. state param breakthrough

Browse Source
This commit is contained in:
Joshua Bell 2017-10-06 21:10:34 -07:00
parent 73e1ad5846
commit e222654103
2 changed files with 28 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
desk.acc/a2d.inc
View File

@ -59,7 +59,7 @@ A2D_QUERY_SCREEN := $03 ; Get screen state
;; .res 8 pattern ;; .res 8 pattern
;; .byte mskand AND mask, default $FF ;; .byte mskand AND mask, default $FF
;; .byte mskor ORA mask, default $00 ;; .byte mskor ORA mask, default $00
;; .byte 0,0,0,0 ??? ;; .byte 0,0,0,0 ??? position - (x, y)
;; .byte hthick horizontal pen thickness ;; .byte hthick horizontal pen thickness
;; .byte vthick vertical pen thickness ;; .byte vthick vertical pen thickness
;; .byte 0 ??? fill mode? ;; .byte 0 ??? fill mode?

41
desktop/s1_aux1.s
View File

@ -20,11 +20,23 @@ LD2D0 := $D2D0
;;; ZP Usage ;;; ZP Usage
;; $E0-$E7 - Pattern ;; $D0-$F3 - Drawing state
;; $E8-$E9 - ??? (set by $9 call) ;; $D0-$DF - Box
;; $EA-$ED - position (x/y words) ;; $D0-D1 - left
;; $EE-$EF - thickness (h/v bytes) ;; $D2-D3 - top
;; $F1 - text mask ;; $D4-D5 - addr
;; $D6-D7 - stride
;; $D8-D9 - hoff
;; $DA-DB - voff
;; $DC-DD - width
;; $DE-DF - height
;; $E0-$E7 - Pattern
;; $E8-$E9 - ??? (set by $9 call) - therefore set mskand/mskor ???
;; $EA-$ED - position (x/y words) - YAAAAAAS!!!!!!
;; $EE-$EF - thickness (h/v bytes)
;; $F0 - ???
;; $F1 - text mask
;; $F2-$F3 - font
PATTERN := $E0 PATTERN := $E0
POS := $EA POS := $EA
@ -4358,14 +4370,14 @@ L6751: .byte $66
;;; ================================================== ;;; ==================================================
;;; $2B IMPL
L6752: .byte $00 L6752: .byte $00
L6753: .byte $00 L6753: .byte $00
L6754: .byte $00 L6754: .byte $00
L6755: .res 128, 0 L6755: .res 128, 0
.byte $00,$00,$00 .byte $00,$00,$00
;;; ==================================================
L67D8: php L67D8: php
sei sei
lda #$00 lda #$00
@ -4471,11 +4483,12 @@ L685E: .byte $1D
L685F: .byte $25 L685F: .byte $25
L6860: .byte $68 L6860: .byte $68
L6861: .byte $37 L6861: .byte $37
L6862: pla L6862: .byte $68
L6863: .byte $5D L6863: .byte $5D
L6864: pla L6864: .byte $68
L6865: phy L6865: .byte $5A
L6866: pla L6866: .byte $68
L6867: lda L6823 L6867: lda L6823
sta L0082 sta L0082
lda L6824 lda L6824
@ -4550,7 +4563,7 @@ L68E1: lda $BF,y
rts rts
L68EA: sty YPOS L68EA: sty YPOS
ldy #$00 ldy #0
sty YPOS+1 sty YPOS+1
L68F0: sta XPOS L68F0: sta XPOS
stx XPOS+1 stx XPOS+1
@ -4568,12 +4581,12 @@ L6900: jsr L6906
L6906: sta L0082 L6906: sta L0082
stx L0083 stx L0083
clc clc
adc #$01 adc #1
bcc L6910 bcc L6910
inx inx
L6910: sta $A1 L6910: sta $A1
stx $A2 stx $A2
ldy #$00 ldy #0
lda (L0082),y lda (L0082),y
sta $A3 sta $A3
rts rts