FontFactory/togglefocus.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
;===============================================================================
; Toggle focus between 8*8 and 20*6 grids
;===============================================================================

Align
swapwindowmaps
        LDA key2                ; print 20*6
        STA gridmodeaddr
        LDA key0
        STA gridmodeaddr+1
        LDA keyasterisk
        STA gridmodeaddr+2
        LDA key6
        STA gridmodeaddr+3

charcursorrow
        LDX charcrsrhomerow     ; TODO: this is modified outside of routine

charcursorcol
        LDY charcrsrhomecol
        CLC
        JSR krnl_plot

waitswapcmds
        JSR krnl_scnkey
        JSR krnl_getin
        LDX #$00

scanswapcmds
        CMP swapcmds,X
        BEQ waitswapcmds

        INX
        CPX #$0A
        BNE scanswapcmds

        CMP keyreturn
        BEQ swapwindowoff

        JSR krnl_chrout

        JSR showgridcursor
        JSR checkcharstick
        JMP charcursorrow

swapwindowoff
        LDA charcrsrhomerow
        STA charcursorrow+1
        LDA charcrsrhomecol
        STA charcursorcol+1

        LDA keyspace            ; print 8*8
        STA gridmodeaddr
        LDA key8
        STA gridmodeaddr+1
        LDA keyasterisk
        STA gridmodeaddr+2
        LDA key8
        STA gridmodeaddr+3
        RTS