FontFactory/mirrorcharcmds.asm at main · TheSoftwareStudio/FontFactory · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
;===============================================================================
; Mirror editing character commands
;===============================================================================

;
; Command handler : mirror editing character up/down (horizontal)
;
Align
mirrorcharhorz
        LDA #<editgridhome
        STA workgridposlo
        LDA #>editgridhome
        STA workgridposhi

        LDX #$00

loop22
        LDY #$00

loop21
        LDA (workgridposlo),Y

dataidx28
        STA workingchar,Y
        INY
        CPY #$08
        BNE loop21

        CLC
        LDA dataidx28+1
        ADC #$08
        STA dataidx28+1
        CLC
        LDA workgridposlo
        ADC #$28
        STA workgridposlo
        LDA workgridposhi
        ADC #$00
        STA workgridposhi
        INX
        CPX #$08
        BNE loop22

        LDX #$00

loop24
        LDA editgridtoprowfwdlo,X
        STA workgridposlo
        LDA #$04
        STA workgridposhi
        LDA workingchartoprowrevlo,X
        STA dataidx29+1
        LDY #$00

loop23
        TYA
        PHA
        LDY #$00

dataidx29
        LDA workingchar+7
        STA (workgridposlo),Y
        PLA
        TAY
        CLC
        LDA dataidx29+1
        ADC #$08
        STA dataidx29+1
        CLC
        LDA workgridposlo
        ADC #$28
        STA workgridposlo
        LDA workgridposhi
        ADC #$00
        STA workgridposhi
        INY
        CPY #$08
        BNE loop23

        INX
        CPX #$08
        BNE loop24

        LDA #<workingchar
        STA dataidx28+1
        LDA #<workingchar+7
        STA dataidx29+1

        JSR storeditgrid
        RTS

;
; Command handler : mirror editing character left/right (vertical)
;
mirrorcharvert
        LDA #<editgridhome
        STA workgridposlo
        LDA #>editgridhome
        STA workgridposhi

        LDX #$00

nextmirrorchar
        LDY #$00

savemirrorvars
        LDA (workgridposlo),Y

dataidx30
        STA workingchar,Y
        INY
        CPY #$08
        BNE savemirrorvars

        CLC
        LDA dataidx30+1
        ADC #$08
        STA dataidx30+1
        CLC
        LDA workgridposlo
        ADC #$28
        STA workgridposlo
        LDA workgridposhi
        ADC #$00
        STA workgridposhi
        INX
        CPX #$08
        BNE nextmirrorchar

        LDA #<workingchar
        STA dataidx30+1
        LDA #$41                ; line 8 of 8*8 editing grid
        STA workgridposlo
        LDA #$05                ; line 8 of 8*8 editing grid
        STA workgridposhi

        LDX #$00

nextmirrorcalc
        LDY #$00

loadmirrorvars
        LDA workingchar,Y
        STA (workgridposlo),Y
        INY
        CPY #$08
        BNE loadmirrorvars

        SEC
        LDA workgridposlo
        SBC #$28
        STA workgridposlo
        LDA workgridposhi
        SBC #$00
        STA workgridposhi
        CLC
        LDA loadmirrorvars+1
        ADC #$08
        STA loadmirrorvars+1
        INX
        CPX #$08
        BNE nextmirrorcalc

        LDA #<workingchar
        STA loadmirrorvars+1
        JSR storeditgrid
        RTS