986 lines
13 KiB
ArmAsm
986 lines
13 KiB
ArmAsm
|
|
;---------------------------------------------------------------------
|
|
.importzp ptr1, ptr2, ptr3, ptr4, sreg
|
|
.importzp sp
|
|
|
|
.import pushax
|
|
.import incsp2
|
|
|
|
.import _ctk_80col_screencolors
|
|
.import _ctk_80col_screenpattern
|
|
|
|
.import _ctk_80col_lefttab
|
|
.import _ctk_80col_righttab
|
|
|
|
.import _ctk_80col_cursx
|
|
.import _ctk_80col_cursy
|
|
.import _ctk_80col_color
|
|
.import _ctk_80col_underline
|
|
.import _ctk_80col_reversed
|
|
|
|
.import _ctk_80col_yscreenaddr
|
|
.import _ctk_80col_yhiresaddr
|
|
|
|
.import _ctk_80col_windowparams
|
|
|
|
.import _ctk_80col_bitmapptr
|
|
|
|
.import _ctk_80col_versionstring
|
|
.import _ctk_80col_versionstring_len
|
|
|
|
.import _ctk_80col_theme
|
|
|
|
.export _ctk_80col_cclear
|
|
.export _ctk_80col_chline
|
|
.export _ctk_80col_cputc
|
|
.export _ctk_80col_cputsn
|
|
|
|
.export _ctk_80col_clear_line
|
|
.export _ctk_80col_draw_bitmapline
|
|
|
|
.export _ctk_80col_draw_windowborders
|
|
|
|
;---------------------------------------------------------------------
|
|
|
|
ptr5 = sreg
|
|
|
|
;; Offsets in the theme struct
|
|
|
|
ulcornerpattern = 8
|
|
titlebarpattern = ulcornerpattern+8
|
|
urcornerpattern = titlebarpattern+8
|
|
rborderpattern = urcornerpattern+8
|
|
lrcornerpattern = rborderpattern+8
|
|
lowerborderpattern = lrcornerpattern+8
|
|
llcornerpattern = lowerborderpattern+8
|
|
lborderpattern = llcornerpattern+8
|
|
|
|
|
|
buttonleftpattern = lborderpattern+8
|
|
buttonrightpattern = buttonleftpattern+8
|
|
|
|
|
|
.bss
|
|
tmp01: .res 1
|
|
tmpl: .res 1
|
|
tmpf: .res 1
|
|
tmpc: .res 1
|
|
tmpw: .res 1
|
|
tmpptr: .res 2
|
|
|
|
tmpy: .res 1
|
|
tmph: .res 1
|
|
|
|
;; Window border parameters
|
|
w: .res 1
|
|
wpw = 0
|
|
h: .res 1
|
|
wph = 1
|
|
clipy1: .res 1
|
|
wpclipy1 = 2
|
|
clipy2: .res 1
|
|
wpclipy2 = 3
|
|
color1: .res 1
|
|
wpcolor1 = 4
|
|
color2: .res 1
|
|
wpcolor2 = 5
|
|
titlecolor: .res 1
|
|
wptitlecolor = 6
|
|
titlelen: .res 1
|
|
wptitlelen = 7
|
|
title: .res 2
|
|
wptitle = 8
|
|
|
|
;---------------------------------------------------------------------
|
|
.data
|
|
;---------------------------------------------------------------------
|
|
.code
|
|
setupptrs:
|
|
;; Find hires address.
|
|
lda _ctk_80col_cursy
|
|
asl
|
|
tax
|
|
lda _ctk_80col_yhiresaddr,x
|
|
sta ptr2
|
|
lda _ctk_80col_yhiresaddr+1,x
|
|
sta ptr2+1
|
|
|
|
;; Add X coordinate to the hires address.
|
|
lda #0
|
|
sta ptr1+1
|
|
lda _ctk_80col_cursx
|
|
asl
|
|
rol ptr1+1
|
|
; asl
|
|
; rol ptr1+1
|
|
asl
|
|
rol ptr1+1
|
|
clc
|
|
adc ptr2
|
|
and #$f8
|
|
sta ptr2
|
|
lda ptr2+1
|
|
adc ptr1+1
|
|
sta ptr2+1
|
|
|
|
;; Find screen address.
|
|
lda _ctk_80col_cursy
|
|
asl
|
|
tax
|
|
lda _ctk_80col_cursx
|
|
lsr
|
|
clc
|
|
adc _ctk_80col_yscreenaddr,x
|
|
sta ptr1
|
|
lda _ctk_80col_yscreenaddr+1,x
|
|
adc #0
|
|
sta ptr1+1
|
|
|
|
;; Turn off interrupts, prepare $01 to store color data in RAM
|
|
;; under I/O area.
|
|
sei
|
|
lda $01
|
|
sta tmp01
|
|
and #$f8
|
|
sta $01
|
|
rts
|
|
;---------------------------------------------------------------------
|
|
restore01:
|
|
lda tmp01
|
|
sta $01
|
|
cli
|
|
rts
|
|
;---------------------------------------------------------------------
|
|
_ctk_80col_cclear:
|
|
sta tmpl
|
|
cmp #0
|
|
bne @norts
|
|
rts
|
|
@norts:
|
|
|
|
jsr setupptrs
|
|
|
|
ldy tmpl
|
|
lda _ctk_80col_color
|
|
:
|
|
sta (ptr1),y
|
|
dey
|
|
bpl :-
|
|
|
|
;; Store either $00 or $ff in hires memory, depending on the
|
|
;; reversed flag
|
|
|
|
ldx tmpl
|
|
lda _ctk_80col_reversed
|
|
beq @noff
|
|
lda #$ff
|
|
@noff:
|
|
sta tmpf
|
|
|
|
|
|
@loop1:
|
|
ldy #7
|
|
lda tmpf
|
|
@loop2:
|
|
sta (ptr2),y
|
|
dey
|
|
bpl @loop2
|
|
|
|
lda ptr2
|
|
clc
|
|
adc #8
|
|
sta ptr2
|
|
bcc @noinc
|
|
inc ptr2+1
|
|
@noinc:
|
|
|
|
inc _ctk_80col_cursx
|
|
|
|
dex
|
|
bpl @loop1
|
|
|
|
jmp restore01
|
|
;---------------------------------------------------------------------
|
|
_ctk_80col_chline:
|
|
sta tmpl
|
|
cmp #0
|
|
bne @norts
|
|
rts
|
|
@norts:
|
|
|
|
jsr setupptrs
|
|
|
|
;; Store horizontal line pattern in hires memory
|
|
ldx tmpl
|
|
@loop1:
|
|
ldy #0
|
|
lda #$00
|
|
sta (ptr2),y
|
|
iny
|
|
lda #$00
|
|
sta (ptr2),y
|
|
iny
|
|
lda #$00
|
|
sta (ptr2),y
|
|
iny
|
|
lda #$ff
|
|
sta (ptr2),y
|
|
iny
|
|
lda #$ff
|
|
sta (ptr2),y
|
|
iny
|
|
lda #$00
|
|
sta (ptr2),y
|
|
iny
|
|
lda #$00
|
|
sta (ptr2),y
|
|
iny
|
|
lda #$00
|
|
sta (ptr2),y
|
|
|
|
|
|
lda ptr2
|
|
clc
|
|
adc #8
|
|
sta ptr2
|
|
bcc @noinc
|
|
inc ptr2+1
|
|
@noinc:
|
|
|
|
inc _ctk_80col_cursx
|
|
|
|
dex
|
|
bne @loop1
|
|
|
|
jmp restore01
|
|
;---------------------------------------------------------------------
|
|
_ctk_80col_cputc:
|
|
sta tmpc
|
|
|
|
jsr setupptrs
|
|
|
|
;; Turn on font ROM
|
|
lda tmp01
|
|
and #$f8
|
|
ora #$01
|
|
sta $01
|
|
|
|
lda #0
|
|
sta ptr1+1
|
|
|
|
;; Convert from PETSCII to screen encoding
|
|
lda tmpc
|
|
eor #$e0
|
|
clc
|
|
adc #$20
|
|
bpl @cont
|
|
adc #$40
|
|
bpl @cont
|
|
eor #$a0
|
|
@cont:
|
|
ldx _ctk_80col_reversed
|
|
beq :+
|
|
eor #$80
|
|
:
|
|
|
|
;; Convert to address in character ROM
|
|
asl
|
|
rol ptr1+1
|
|
asl
|
|
rol ptr1+1
|
|
asl
|
|
rol ptr1+1
|
|
sta ptr1
|
|
lda #$d8
|
|
adc ptr1+1
|
|
sta ptr1+1
|
|
|
|
lda _ctk_80col_cursx
|
|
and #1
|
|
beq @left
|
|
|
|
;; Print on hires screen, bottom-up. If we should underline,
|
|
;; we do this by eor:ing the bottom line with #$ff
|
|
ldy #7
|
|
lda (ptr1),y
|
|
ldx _ctk_80col_underline
|
|
beq @rightnounderline
|
|
eor #$ff
|
|
@rightnounderline:
|
|
tax
|
|
lda (ptr2),y
|
|
and #$f0
|
|
ora _ctk_80col_righttab,x
|
|
sta (ptr2),y
|
|
dey
|
|
@rightloop:
|
|
lda (ptr1),y
|
|
tax
|
|
lda (ptr2),y
|
|
and #$f0
|
|
ora _ctk_80col_righttab,x
|
|
sta (ptr2),y
|
|
dey
|
|
bpl @rightloop
|
|
|
|
inc _ctk_80col_cursx
|
|
|
|
jmp restore01
|
|
|
|
@left:
|
|
;; Print on hires screen, bottom-up. If we should underline,
|
|
;; we do this by eor:ing the bottom line with #$ff
|
|
ldy #7
|
|
lda (ptr1),y
|
|
ldx _ctk_80col_underline
|
|
beq @nounderline
|
|
eor #$ff
|
|
@nounderline:
|
|
tax
|
|
lda (ptr2),y
|
|
and #$0f
|
|
ora _ctk_80col_lefttab,x
|
|
sta (ptr2),y
|
|
dey
|
|
@loop:
|
|
lda (ptr1),y
|
|
tax
|
|
lda (ptr2),y
|
|
and #$0f
|
|
ora _ctk_80col_lefttab,x
|
|
sta (ptr2),y
|
|
dey
|
|
bpl @loop
|
|
|
|
|
|
|
|
inc _ctk_80col_cursx
|
|
|
|
jmp restore01
|
|
;---------------------------------------------------------------------
|
|
_ctk_80col_cputsn:
|
|
sta tmpl
|
|
cmp #0
|
|
bne :+
|
|
jmp incsp2
|
|
:
|
|
|
|
jsr setupptrs
|
|
|
|
;; Turn on font ROM
|
|
lda tmp01
|
|
and #$f8
|
|
ora #$01
|
|
sta $01
|
|
|
|
;; Output each character from the string
|
|
lda #0
|
|
sta tmpc
|
|
ldy #0
|
|
lda (sp),y
|
|
sta ptr3
|
|
iny
|
|
lda (sp),y
|
|
sta ptr3+1
|
|
|
|
@loop1:
|
|
|
|
|
|
lda #0
|
|
sta ptr1+1
|
|
|
|
ldy tmpc
|
|
lda (ptr3),y
|
|
bne :+
|
|
jmp @end
|
|
:
|
|
|
|
;; Convert from PETSCII to screen encoding
|
|
eor #$e0
|
|
clc
|
|
adc #$20
|
|
bpl @cont
|
|
adc #$40
|
|
bpl @cont
|
|
eor #$a0
|
|
@cont:
|
|
ldx _ctk_80col_reversed
|
|
beq :+
|
|
eor #$80
|
|
:
|
|
|
|
;; Convert to address in character ROM
|
|
asl
|
|
rol ptr1+1
|
|
asl
|
|
rol ptr1+1
|
|
asl
|
|
rol ptr1+1
|
|
sta ptr1
|
|
lda #$d8
|
|
adc ptr1+1
|
|
sta ptr1+1
|
|
|
|
lda _ctk_80col_cursx
|
|
and #1
|
|
beq @left
|
|
|
|
;; Print on hires screen, bottom-up. If we should underline,
|
|
;; we do this by eor:ing the bottom line with #$ff
|
|
ldy #7
|
|
lda (ptr1),y
|
|
ldx _ctk_80col_underline
|
|
beq @rightnounderline
|
|
eor #$ff
|
|
@rightnounderline:
|
|
tax
|
|
lda (ptr2),y
|
|
and #$f0
|
|
ora _ctk_80col_righttab,x
|
|
sta (ptr2),y
|
|
dey
|
|
@rightloop:
|
|
lda (ptr1),y
|
|
tax
|
|
lda (ptr2),y
|
|
and #$f0
|
|
ora _ctk_80col_righttab,x
|
|
sta (ptr2),y
|
|
dey
|
|
bpl @rightloop
|
|
|
|
|
|
lda ptr2
|
|
clc
|
|
adc #8
|
|
sta ptr2
|
|
bcc :+
|
|
inc ptr2+1
|
|
:
|
|
|
|
inc _ctk_80col_cursx
|
|
|
|
jmp @loopend
|
|
|
|
@left:
|
|
;; Print on hires screen, bottom-up. If we should underline,
|
|
;; we do this by eor:ing the bottom line with #$ff
|
|
ldy #7
|
|
lda (ptr1),y
|
|
ldx _ctk_80col_underline
|
|
beq @nounderline
|
|
eor #$ff
|
|
@nounderline:
|
|
tax
|
|
lda (ptr2),y
|
|
and #$0f
|
|
ora _ctk_80col_lefttab,x
|
|
sta (ptr2),y
|
|
dey
|
|
@loop:
|
|
lda (ptr1),y
|
|
tax
|
|
lda (ptr2),y
|
|
and #$0f
|
|
ora _ctk_80col_lefttab,x
|
|
sta (ptr2),y
|
|
dey
|
|
bpl @loop
|
|
|
|
inc _ctk_80col_cursx
|
|
@loopend:
|
|
inc tmpc
|
|
lda tmpc
|
|
cmp tmpl
|
|
beq :+
|
|
jmp @loop1
|
|
:
|
|
|
|
@end:
|
|
jsr restore01
|
|
|
|
jmp incsp2
|
|
;---------------------------------------------------------------------
|
|
_ctk_80col_clear_line:
|
|
sta tmpl
|
|
asl
|
|
tax
|
|
lda _ctk_80col_yscreenaddr,x
|
|
sta ptr1
|
|
lda _ctk_80col_yscreenaddr+1,x
|
|
sta ptr1+1
|
|
lda _ctk_80col_yhiresaddr,x
|
|
sta ptr2
|
|
lda _ctk_80col_yhiresaddr+1,x
|
|
sta ptr2+1
|
|
|
|
sei
|
|
lda $01
|
|
sta tmp01
|
|
and #$f8
|
|
sta $01
|
|
|
|
ldy #39
|
|
ldx tmpl
|
|
lda _ctk_80col_screencolors,x
|
|
:
|
|
sta (ptr1),y
|
|
dey
|
|
bpl :-
|
|
|
|
lda tmpl
|
|
asl
|
|
asl
|
|
asl
|
|
tax
|
|
ldy #0
|
|
:
|
|
lda _ctk_80col_screenpattern,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+1,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+2,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+3,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+4,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+5,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+6,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+7,x
|
|
sta (ptr2),y
|
|
iny
|
|
bne :-
|
|
|
|
inc ptr2+1
|
|
|
|
:
|
|
lda _ctk_80col_screenpattern,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+1,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+2,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+3,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+4,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+5,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+6,x
|
|
sta (ptr2),y
|
|
iny
|
|
lda _ctk_80col_screenpattern+7,x
|
|
sta (ptr2),y
|
|
iny
|
|
cpy #$40
|
|
bne :-
|
|
|
|
lda tmpl
|
|
cmp #24
|
|
bne :+
|
|
|
|
sta _ctk_80col_cursy
|
|
lda #2
|
|
sta _ctk_80col_cursx
|
|
|
|
jsr restore01
|
|
|
|
lda #<_ctk_80col_versionstring
|
|
ldx #>_ctk_80col_versionstring
|
|
jsr pushax
|
|
lda _ctk_80col_versionstring_len
|
|
jmp _ctk_80col_cputsn
|
|
:
|
|
jmp restore01
|
|
;---------------------------------------------------------------------
|
|
_ctk_80col_draw_bitmapline:
|
|
sta tmpl
|
|
cmp #0
|
|
bne :+
|
|
rts
|
|
:
|
|
|
|
jsr setupptrs
|
|
|
|
ldy #0
|
|
lda _ctk_80col_color
|
|
:
|
|
sta (ptr1),y
|
|
iny
|
|
cpy tmpl
|
|
bne :-
|
|
|
|
lda _ctk_80col_bitmapptr
|
|
sta ptr1
|
|
lda _ctk_80col_bitmapptr+1
|
|
sta ptr1+1
|
|
|
|
ldy #0
|
|
ldx #0
|
|
:
|
|
lda (ptr1),y
|
|
sta (ptr2),y
|
|
iny
|
|
inx
|
|
cpx #8
|
|
bne :-
|
|
|
|
ldx #0
|
|
|
|
dec tmpl
|
|
bne :-
|
|
|
|
jmp restore01
|
|
;---------------------------------------------------------------------
|
|
_ctk_80col_draw_windowborders:
|
|
|
|
jsr setupptrs
|
|
|
|
lda _ctk_80col_windowparams + wpclipy1
|
|
beq :+
|
|
jmp @nofirstline
|
|
:
|
|
|
|
;; Draw first line of the border, including the window title
|
|
|
|
;; Start with filling color memory
|
|
lda _ctk_80col_windowparams + wpw
|
|
sta tmpw
|
|
|
|
|
|
ldy #0
|
|
lda _ctk_80col_windowparams + wptitlecolor
|
|
:
|
|
sta (ptr1),y
|
|
iny
|
|
cpy tmpw
|
|
bcc :-
|
|
|
|
dec tmpw
|
|
|
|
;; Set color for upper right corner
|
|
sta (ptr1),y
|
|
iny
|
|
sta (ptr1),y
|
|
|
|
|
|
;; Turn on font ROM for drawing the title
|
|
lda tmp01
|
|
and #$f8
|
|
ora #$01
|
|
sta $01
|
|
|
|
;; Use a temporary pointer (ptr3) rather than ptr2 so we can
|
|
;; reuse it later.
|
|
lda ptr2
|
|
sta ptr3
|
|
lda ptr2+1
|
|
sta ptr3+1
|
|
|
|
;; Draw upper left corner
|
|
ldy #7
|
|
:
|
|
lda _ctk_80col_theme+ulcornerpattern,y
|
|
sta (ptr3),y
|
|
dey
|
|
bpl :-
|
|
|
|
lda ptr3
|
|
clc
|
|
adc #$8
|
|
sta ptr3
|
|
bcc :+
|
|
inc ptr3+1
|
|
:
|
|
|
|
|
|
;; Draw window title bar pattern
|
|
@titlebarloop:
|
|
ldy #7
|
|
:
|
|
lda _ctk_80col_theme+titlebarpattern,y
|
|
sta (ptr3),y
|
|
dey
|
|
bpl :-
|
|
|
|
lda ptr3
|
|
clc
|
|
adc #$8
|
|
sta ptr3
|
|
bcc :+
|
|
inc ptr3+1
|
|
:
|
|
;; Loop until we are three characters away from right border
|
|
;; to avoid flickering since we would be overwriting the close
|
|
;; button.
|
|
dec tmpw
|
|
bpl @titlebarloop
|
|
|
|
;; Draw upper right corner piece
|
|
ldy #7
|
|
:
|
|
lda _ctk_80col_theme+urcornerpattern,y
|
|
sta (ptr3),y
|
|
dey
|
|
bpl :-
|
|
|
|
|
|
@nofirstline:
|
|
|
|
|
|
ldx _ctk_80col_windowparams + wph
|
|
inx
|
|
stx tmph
|
|
|
|
;; Draw left and right borders
|
|
|
|
;; Fill color memory (pointer in ptr1, setup by setupptrs)
|
|
|
|
;; First check how much we actually should draw by inspecting
|
|
;; the clipy1 and clipy2 fields in the _ctk_80col_windowparams
|
|
;; structure
|
|
|
|
lda #1
|
|
sta tmpy
|
|
|
|
ldx _ctk_80col_windowparams + wpclipy1
|
|
@clipy1loop:
|
|
cpx #0
|
|
beq @clipy1loopend
|
|
lda ptr1
|
|
clc
|
|
adc #$28
|
|
sta ptr1
|
|
bcc :+
|
|
inc ptr1+1
|
|
:
|
|
lda ptr3
|
|
clc
|
|
adc #$40
|
|
sta ptr3
|
|
lda ptr3+1
|
|
adc #1
|
|
sta ptr3+1
|
|
|
|
inc tmpy
|
|
|
|
dex
|
|
jmp @clipy1loop
|
|
@clipy1loopend:
|
|
|
|
lda ptr1
|
|
clc
|
|
adc #$28
|
|
sta ptr1
|
|
bcc :+
|
|
inc ptr1+1
|
|
:
|
|
|
|
ldx tmpy
|
|
ldy _ctk_80col_windowparams + wpw
|
|
iny
|
|
sty tmpw
|
|
@bordercloop:
|
|
cpx _ctk_80col_windowparams + wpclipy2
|
|
beq @bordercloopend
|
|
|
|
ldy tmpw
|
|
lda _ctk_80col_windowparams + wpcolor2
|
|
sta (ptr1),y
|
|
ldy #0
|
|
lda _ctk_80col_windowparams + wpcolor1
|
|
sta (ptr1),y
|
|
|
|
lda ptr1
|
|
clc
|
|
adc #$28
|
|
sta ptr1
|
|
bcc :+
|
|
inc ptr1+1
|
|
:
|
|
|
|
inx
|
|
cpx tmph
|
|
bcc @bordercloop
|
|
beq @bordercloop
|
|
@bordercloopend:
|
|
|
|
|
|
;; Fill color memory for lower border, if clipy2 allows
|
|
cpx _ctk_80col_windowparams + wpclipy2
|
|
beq @noclowerborder
|
|
|
|
lda ptr1
|
|
sec
|
|
sbc #$28
|
|
sta ptr1
|
|
bcs :+
|
|
dec ptr1+1
|
|
:
|
|
|
|
ldy _ctk_80col_windowparams + wpw
|
|
lda _ctk_80col_windowparams + wpcolor2
|
|
@lbordercloop:
|
|
sta (ptr1),y
|
|
dey
|
|
bne @lbordercloop
|
|
|
|
@noclowerborder:
|
|
|
|
;; Draw right border
|
|
ldx tmpy
|
|
@rborderloop:
|
|
cpx _ctk_80col_windowparams + wpclipy2
|
|
beq @rborderloopend
|
|
|
|
lda ptr3
|
|
clc
|
|
adc #$40
|
|
sta ptr3
|
|
lda ptr3+1
|
|
adc #1
|
|
sta ptr3+1
|
|
|
|
ldy #7
|
|
:
|
|
lda _ctk_80col_theme+rborderpattern,y
|
|
sta (ptr3),y
|
|
dey
|
|
bpl :-
|
|
|
|
inx
|
|
cpx tmph
|
|
bne @rborderloop
|
|
@rborderloopend:
|
|
|
|
cpx _ctk_80col_windowparams + wpclipy2
|
|
beq @norbordercorner
|
|
|
|
lda ptr3
|
|
clc
|
|
adc #$40
|
|
sta ptr3
|
|
lda ptr3+1
|
|
adc #1
|
|
sta ptr3+1
|
|
|
|
;; Draw lower right corner, if clipy2 allows it
|
|
ldy #7
|
|
:
|
|
lda _ctk_80col_theme+lrcornerpattern,y
|
|
sta (ptr3),y
|
|
dey
|
|
bpl :-
|
|
|
|
@norbordercorner:
|
|
|
|
stx tmpy
|
|
|
|
;; Draw lower border
|
|
ldx _ctk_80col_windowparams + wpw
|
|
|
|
@lowerborderloop:
|
|
lda ptr3
|
|
sec
|
|
sbc #$8
|
|
sta ptr3
|
|
bcs :+
|
|
dec ptr3+1
|
|
:
|
|
|
|
lda tmpy
|
|
cmp _ctk_80col_windowparams + wpclipy2
|
|
beq @nolowerborder
|
|
|
|
ldy #7
|
|
:
|
|
lda _ctk_80col_theme+lowerborderpattern,y
|
|
sta (ptr3),y
|
|
dey
|
|
bpl :-
|
|
@nolowerborder:
|
|
|
|
dex
|
|
bne @lowerborderloop
|
|
|
|
lda ptr3
|
|
sec
|
|
sbc #$8
|
|
sta ptr3
|
|
bcs :+
|
|
dec ptr3+1
|
|
:
|
|
|
|
|
|
ldx tmpy
|
|
cpx tmph
|
|
bne @nolbordercorner
|
|
|
|
;; Draw lower left corner, if clipy2 allows it
|
|
ldy #7
|
|
:
|
|
lda _ctk_80col_theme+llcornerpattern,y
|
|
sta (ptr3),y
|
|
dey
|
|
bpl :-
|
|
|
|
lda ptr3
|
|
sec
|
|
sbc #$40
|
|
sta ptr3
|
|
lda ptr3+1
|
|
sbc #1
|
|
sta ptr3+1
|
|
|
|
@nolbordercorner:
|
|
|
|
;; Draw left border
|
|
|
|
|
|
|
|
@lborderloop:
|
|
cpx #1
|
|
beq @lborderloopend
|
|
cpx _ctk_80col_windowparams + wpclipy1
|
|
bcc @lborderloopend
|
|
|
|
ldy #7
|
|
:
|
|
lda _ctk_80col_theme+lborderpattern,y
|
|
sta (ptr3),y
|
|
dey
|
|
bpl :-
|
|
|
|
lda ptr3
|
|
sec
|
|
sbc #$40
|
|
sta ptr3
|
|
lda ptr3+1
|
|
sbc #1
|
|
sta ptr3+1
|
|
|
|
dex
|
|
jmp @lborderloop
|
|
|
|
@lborderloopend:
|
|
|
|
|
|
jmp restore01
|
|
;---------------------------------------------------------------------
|
|
|