Platform-depend CTK support is modified to minimize size of module.
This commit is contained in:
matsutsuka
parent
9e1e31f3bb
commit
4381f4b964
6 changed files with 428 additions and 503 deletions
|
|
@ -7,7 +7,7 @@
|
|||
;;;
|
||||
;;; @author Takahide Matsutsuka <markn@markn.org>
|
||||
;;;
|
||||
;;; $Id: ctk-conio_arch-asm.cS,v 1.1 2007/09/19 12:46:15 matsutsuka Exp $
|
||||
;;; $Id: ctk-conio_arch-asm.cS,v 1.2 2007/09/29 04:10:00 matsutsuka Exp $
|
||||
;;;
|
||||
|
||||
;; uses preprocessor to enable definitions
|
||||
|
|
@ -21,26 +21,26 @@
|
|||
.globl _ctk_draw_dialog
|
||||
.globl _ctk_draw_widget
|
||||
.globl _ctk_draw_windowtitle_height
|
||||
.if CTK_CONF_MENUS
|
||||
.globl _ctk_draw_menus
|
||||
.endif
|
||||
.globl _ctk_draw_width
|
||||
.globl _ctk_draw_height
|
||||
|
||||
;; import symbols
|
||||
.globl _cputc_arch
|
||||
.globl _cputs_arch
|
||||
.globl _cputsn_arch
|
||||
.globl _gotoxy_arch
|
||||
.globl _clip_arch
|
||||
.globl _clearto_arch
|
||||
.globl _wherex_arch
|
||||
.globl _clearbox_arch
|
||||
.globl _drawbox_arch
|
||||
.if CTK_CONF_ICONS
|
||||
.globl _drawicon_arch
|
||||
.endif ; CTK_CONF_ICONS
|
||||
.globl _revers_arch
|
||||
.globl _chline_arch
|
||||
.globl _wherey_arch
|
||||
|
||||
.globl _cputc_arch_asm
|
||||
.globl _cputs_arch_asm
|
||||
.globl _cputsn_arch_asm
|
||||
.globl _clip_arch_asm
|
||||
.globl _clearto_arch_asm
|
||||
.globl _revers_arch_asm
|
||||
.globl _chline_arch_asm
|
||||
.globl _cvline_arch_asm
|
||||
.globl _gotoxy_arch_asm
|
||||
|
||||
;; offsets
|
||||
.globl _off_window_x
|
||||
.globl _off_window_y
|
||||
|
|
@ -63,10 +63,13 @@
|
|||
.globl _off_widget_textentry_xpos
|
||||
.globl _off_widget_textentry_ypos
|
||||
.globl _off_widget_textentry_state
|
||||
.if CTK_CONF_HYPERLINK
|
||||
.globl _off_widget_hyperlink_text
|
||||
.endif
|
||||
.if CTK_CONF_ICONS
|
||||
.globl _off_widget_icon_title
|
||||
.globl _off_widget_icon_textmap
|
||||
.endif ; CTK_CONF_ICONS
|
||||
.endif
|
||||
.if CTK_CONF_MENUS
|
||||
.globl _off_menu_title
|
||||
.globl _off_menu_active
|
||||
|
|
@ -78,7 +81,7 @@
|
|||
.globl _off_menus_open
|
||||
.globl _off_menus_menus
|
||||
.globl _off_menus_desktopmenu
|
||||
.endif ; CTK_CONF_MENUS
|
||||
.endif
|
||||
|
||||
.area _DATA
|
||||
|
||||
|
|
@ -94,8 +97,10 @@ _ctk_conio_arch_asm_start::
|
|||
;; return void
|
||||
;; ---------------------------------
|
||||
_ctk_draw_init:
|
||||
ld d, #SCREEN_HEIGHT
|
||||
ld e, #0
|
||||
xor a
|
||||
call _revers_arch_asm
|
||||
ld h, #SCREEN_HEIGHT
|
||||
ld l, #0
|
||||
jr _ctk_draw_clear_asm
|
||||
|
||||
;; ---------------------------------
|
||||
|
|
@ -111,21 +116,16 @@ _ctk_draw_clear:
|
|||
inc hl
|
||||
ld d, (hl) ; clipy2
|
||||
;; E = clip1, D = clip2
|
||||
ex de, hl
|
||||
_ctk_draw_clear_asm:
|
||||
push de
|
||||
call _clip_arch
|
||||
pop de
|
||||
ld a, d
|
||||
sub e
|
||||
ld h, a ; height
|
||||
ld l, #SCREEN_WIDTH ; width
|
||||
push hl
|
||||
ld l, #0 ; x
|
||||
ld h, e ; y
|
||||
push hl
|
||||
call _clearbox_arch
|
||||
pop hl
|
||||
pop hl
|
||||
call _clip_arch_asm
|
||||
ld a, h
|
||||
sub l ; A = clipy2 - clipy1
|
||||
ld b, a ; height
|
||||
ld c, #SCREEN_WIDTH ; width
|
||||
ld d, l ; y
|
||||
ld e, #0 ; x
|
||||
call _clearbox_arch_asm
|
||||
ret
|
||||
|
||||
_get_offset:
|
||||
|
|
@ -164,9 +164,8 @@ _ctk_draw_clear_window:
|
|||
ld e, (hl)
|
||||
inc hl
|
||||
ld d, (hl)
|
||||
push de
|
||||
call _clip_arch
|
||||
pop de
|
||||
ex de, hl
|
||||
call _clip_arch_asm
|
||||
;; clearbox_arch(window->x + 1, window->y + 2, window->w, window->h);
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
|
|
@ -177,11 +176,10 @@ _ctk_draw_clear_window:
|
|||
ld l, e ; HL = window
|
||||
|
||||
ld bc, #_off_window_h
|
||||
call _get_offset ; E = window->h
|
||||
ld a, e
|
||||
call _get_offset
|
||||
ld d, e ; D = window->h
|
||||
ld bc, #_off_window_w
|
||||
call _get_offset ; E = window->w
|
||||
ld d, a
|
||||
push de
|
||||
ld bc, #_off_window_y
|
||||
call _get_offset ; E = window->y
|
||||
|
|
@ -192,10 +190,8 @@ _ctk_draw_clear_window:
|
|||
call _get_offset ; E = window->x
|
||||
inc e
|
||||
ld d, a ; D = window->y + 2, E = window->x + 1
|
||||
push de
|
||||
call _clearbox_arch
|
||||
pop de
|
||||
pop de
|
||||
pop bc ; B = h, C = w
|
||||
call _clearbox_arch_asm
|
||||
ret
|
||||
|
||||
;; ---------------------------------
|
||||
|
|
@ -243,9 +239,8 @@ _ctk_draw_window:
|
|||
ld e, (hl)
|
||||
inc hl
|
||||
ld d, (hl)
|
||||
push de
|
||||
call _clip_arch
|
||||
pop de
|
||||
ex de, hl
|
||||
call _clip_arch_asm
|
||||
|
||||
;; DE = window
|
||||
;; A = focus = focus & CTK_FOCUS_WINDOW
|
||||
|
|
@ -270,11 +265,10 @@ _ctk_draw_window:
|
|||
;; return void
|
||||
;; ---------------------------------
|
||||
_draw_window_asm:
|
||||
;; drawbox_arch(window->x, window->y + 1, window->w, window->h);
|
||||
;; drawbox_asm(window->x, window->y + 1, window->w, window->h);
|
||||
push af ; focus
|
||||
ld h, d
|
||||
ld l, e ; HL = window
|
||||
push hl ; window
|
||||
ld bc, #_off_window_h
|
||||
call _get_offset
|
||||
ld a, e
|
||||
|
|
@ -288,14 +282,11 @@ _draw_window_asm:
|
|||
inc a
|
||||
ld bc, #_off_window_x
|
||||
call _get_offset
|
||||
ld d, a
|
||||
push de ; D = window->y + 1, E = window->x
|
||||
call _drawbox_arch
|
||||
pop de ; pop yx
|
||||
pop bc ; pop hw, Stack; window focus
|
||||
pop hl ; HL = window; Stack; focus
|
||||
inc d ; D = x = window->y + 2
|
||||
inc e ; E = y = window->x + 1
|
||||
ld d, a ; D = window->y + 1, E = window->x
|
||||
pop bc ; B = h, C = w, HL = window
|
||||
call _drawbox_asm
|
||||
inc d ; D = y = window->y + 2
|
||||
inc e ; E = x = window->x + 1
|
||||
push de ; Stack; yx focus
|
||||
|
||||
;; for(w = window->inactive; w != NULL; w = w->next) {
|
||||
|
|
@ -377,6 +368,7 @@ _draw_window_asm_next2: ; Stack; focused focus
|
|||
pop af
|
||||
ret
|
||||
|
||||
|
||||
;; ---------------------------------
|
||||
;; ctk_draw_widget(struct ctk_widget *w,
|
||||
;; unsigned char focus,
|
||||
|
|
@ -399,16 +391,14 @@ _ctk_draw_widget:
|
|||
inc hl
|
||||
ld b, (hl) ; clipy2
|
||||
push af ; focus
|
||||
push bc
|
||||
call _clip_arch
|
||||
pop bc
|
||||
ld h, b
|
||||
ld l, c
|
||||
call _clip_arch_asm
|
||||
push de ; Stack; widget focus
|
||||
ld h, d
|
||||
ld l, e
|
||||
ex de, hl ; HL = widget
|
||||
ld bc, #_off_widget_window
|
||||
call _get_offset
|
||||
ld h, d
|
||||
ld l, e ; HL = window
|
||||
ex de, hl ; HL = window
|
||||
ld bc, #_off_window_focused
|
||||
call _get_offset ; DE = focused
|
||||
pop bc ; pop widget, Stack focus
|
||||
|
|
@ -439,11 +429,11 @@ _ctk_draw_widget_nofocus:
|
|||
;; FALL THROUGH
|
||||
|
||||
;; ---------------------------------
|
||||
;; void draw_widget_asm(struct ctk_widget *w,
|
||||
;; static void draw_widget_asm(struct ctk_widget *w,
|
||||
;; unsigned char x, unsigned char y,
|
||||
;; unsigned char focus)
|
||||
;; Stack; retl reth
|
||||
;; in; a = focus, bc = yx, de = widget
|
||||
;; in; A = focus, BC = yx, DE = widget
|
||||
;; ____________
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
|
|
@ -453,7 +443,7 @@ _draw_widget_asm:
|
|||
push bc
|
||||
push af
|
||||
|
||||
push de
|
||||
push de ; Stack; w
|
||||
ld h, d
|
||||
ld l, e
|
||||
push af
|
||||
|
|
@ -472,15 +462,12 @@ _draw_widget_asm:
|
|||
add b
|
||||
ld b, a ; B = ypos, C = xpos
|
||||
pop af
|
||||
and #_CTK_FOCUS_WIDGET
|
||||
push af
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp ; Stack; w
|
||||
push bc ; Stack; yx, w
|
||||
call _gotoxy_arch
|
||||
pop bc
|
||||
pop hl ; Stack; null
|
||||
and a, #_CTK_FOCUS_WIDGET
|
||||
call _revers_arch_asm
|
||||
ld h, b
|
||||
ld l, c
|
||||
call _gotoxy_arch_asm
|
||||
pop hl ; Stack; null, HL = w
|
||||
push hl
|
||||
push bc
|
||||
ld bc, #_off_widget_type
|
||||
|
|
@ -496,20 +483,19 @@ _draw_widget_asm:
|
|||
jp z, _draw_widget_label
|
||||
cp a, #_CTK_WIDGET_BUTTON
|
||||
jp z, _draw_widget_button
|
||||
.if CTK_CONF_HYPERLINK
|
||||
cp a, #_CTK_WIDGET_HYPERLINK
|
||||
jp z, _draw_widget_hyperlink
|
||||
.endif
|
||||
cp a, #_CTK_WIDGET_TEXTENTRY
|
||||
jp z, _draw_widget_textentry
|
||||
.if CTK_CONF_ICONS
|
||||
cp a, #_CTK_WIDGET_ICON
|
||||
jp z, _draw_widget_icon
|
||||
.endif ; CTK_CONF_ICONS
|
||||
.endif
|
||||
_draw_widget_ret:
|
||||
xor a
|
||||
push af
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp
|
||||
call _revers_arch_asm
|
||||
|
||||
pop af
|
||||
pop bc
|
||||
|
|
@ -518,10 +504,8 @@ _draw_widget_ret:
|
|||
ret
|
||||
;; BC = ypos, xpos, HL = w, E = w->w, Stack; null
|
||||
_draw_widget_separator:
|
||||
push de
|
||||
inc sp
|
||||
call _chline_arch
|
||||
inc sp
|
||||
ld b, e
|
||||
call _chline_arch_asm
|
||||
jr _draw_widget_ret
|
||||
;; BC = ypos, xpos, HL = w, E = w->w, Stack; null
|
||||
_draw_widget_label:
|
||||
|
|
@ -542,36 +526,28 @@ _draw_widget_label_loop:
|
|||
or a
|
||||
jr z, _draw_widget_ret
|
||||
|
||||
push de
|
||||
push hl
|
||||
push bc
|
||||
call _gotoxy_arch
|
||||
pop bc
|
||||
pop hl
|
||||
pop de
|
||||
;; BC = ypos, xpos, H = h, L = w->w, DE = text
|
||||
push hl ; Stack; hw
|
||||
ld h, b
|
||||
ld l, c
|
||||
call _gotoxy_arch_asm
|
||||
pop hl
|
||||
;; cputsn_arch(text, w->w);
|
||||
ld a, l
|
||||
push hl
|
||||
push bc
|
||||
push af
|
||||
inc sp
|
||||
push de
|
||||
call _cputsn_arch
|
||||
push de ; Stack; text yx hw
|
||||
ld b, l
|
||||
call _cputsn_arch_asm ; DE = text
|
||||
pop de
|
||||
inc sp
|
||||
pop bc
|
||||
pop hl
|
||||
pop hl ; Stack; null
|
||||
;; clearto_arch(xpos + w->w);
|
||||
ld a, c
|
||||
add a, l
|
||||
push hl
|
||||
push de
|
||||
push bc
|
||||
push af
|
||||
inc sp
|
||||
call _clearto_arch
|
||||
inc sp
|
||||
call _clearto_arch_asm
|
||||
pop bc
|
||||
pop de
|
||||
pop hl
|
||||
|
|
@ -593,45 +569,38 @@ _draw_widget_button:
|
|||
push hl ; w
|
||||
push de ; w->w
|
||||
ld a, #0x5b ; '['
|
||||
push af
|
||||
inc sp
|
||||
call _cputc_arch
|
||||
inc sp
|
||||
call _cputc_arch_asm
|
||||
pop de
|
||||
pop hl
|
||||
push de
|
||||
ld a, e
|
||||
ld bc, #_off_widget_button_text
|
||||
call _get_offset
|
||||
push de
|
||||
call _cputsn_arch
|
||||
pop de
|
||||
pop de
|
||||
ld b, a
|
||||
call _cputsn_arch_asm
|
||||
ld a, #0x5d ; ']'
|
||||
push af
|
||||
inc sp
|
||||
call _cputc_arch
|
||||
inc sp
|
||||
call _cputc_arch_asm
|
||||
jp _draw_widget_ret
|
||||
.if CTK_CONF_HYPERLINK
|
||||
;; BC = ypos, xpos, HL = w, E = w->w, Stack; null
|
||||
_draw_widget_hyperlink:
|
||||
push de
|
||||
ld bc, #_off_widget_button_text
|
||||
ld a, e
|
||||
ld bc, #_off_widget_hyperlink_text
|
||||
call _get_offset
|
||||
push de
|
||||
call _cputsn_arch
|
||||
pop de
|
||||
pop de
|
||||
ld b, a
|
||||
call _cputsn_arch_asm
|
||||
jp _draw_widget_ret
|
||||
.endif
|
||||
|
||||
;; BC = ypos, xpos, HL = w, E = w->w, Stack; null
|
||||
_draw_widget_textentry: ; 0xc5dc sp=0xf97e
|
||||
_draw_widget_textentry: ; 0xc5dc sp=0xf97e ;widget=e3be
|
||||
;; e3cd;textentry.xpos<-b224
|
||||
;; stable variables;
|
||||
;; w->w, w->h, w->widget.textentry.{state,ypos,xpos), xscroll
|
||||
push ix
|
||||
ld ix, #-6
|
||||
add ix, sp
|
||||
ld sp, ix
|
||||
push bc
|
||||
push bc ; yx
|
||||
|
||||
ld 0(ix), e ; w->w
|
||||
ld bc, #_off_widget_h
|
||||
|
|
@ -648,16 +617,18 @@ _draw_widget_textentry: ; 0xc5dc sp=0xf97e
|
|||
ld bc, #_off_widget_textentry_xpos
|
||||
call _get_offset
|
||||
ld 4(ix), e ; w->widget.textentry.xpos
|
||||
|
||||
ld bc, #_off_widget_textentry_xpos
|
||||
call _get_offset
|
||||
|
||||
;; xscroll = 0;
|
||||
;; if(w->widget.textentry.xpos >= w->w - 1) {
|
||||
;; xscroll = w->widget.textentry.xpos - w->w + 1;
|
||||
;; }
|
||||
ld a, e
|
||||
inc a
|
||||
sub 0(ix) ; w->w
|
||||
sub 0(ix) ; xscroll = w->widget.textentry.xpos - w->w + 1
|
||||
jr nc, _draw_widget_textentry_next
|
||||
xor a
|
||||
xor a ; if (xscroll < 0) xscroll = 0
|
||||
_draw_widget_textentry_next: ; A = xscroll, Stack; yx - IX
|
||||
ld 5(ix), a ; w->widget.textentry.xscroll
|
||||
ld 5(ix), a ; xscroll
|
||||
|
||||
ld bc, #_off_widget_textentry_text
|
||||
call _get_offset ; DE = text
|
||||
|
|
@ -667,40 +638,32 @@ _draw_widget_textentry_next: ; A = xscroll, Stack; yx - IX
|
|||
;; L = counter, IX = sp, DE = text, BC = yx, Stack; null
|
||||
_draw_widget_textentry_loop1: ; 0xc629
|
||||
;; gotoxy_arch(xpos, ypos);
|
||||
push de
|
||||
push hl ; Stack; yx count text
|
||||
push bc
|
||||
call _gotoxy_arch
|
||||
push hl ; Stack; text
|
||||
ld h, b
|
||||
ld l, c
|
||||
call _gotoxy_arch_asm
|
||||
|
||||
;; if(w->widget.textentry.state == CTK_TEXTENTRY_EDIT &&
|
||||
;; w->widget.textentry.ypos == j)
|
||||
pop bc
|
||||
pop hl ; Stack; text
|
||||
pop de ; Stack; null
|
||||
pop hl ; Stack; null, BC = yx, DE = text, L = count
|
||||
push bc ; Stack; yx
|
||||
ld a, l
|
||||
cp a, 1(ix) ; j - w->h
|
||||
jp nc, _draw_widget_textentry_ret
|
||||
ld a, 2(ix) ; state
|
||||
or a
|
||||
or a ; state == EDIT?
|
||||
jr nz, _draw_widget_textentry_else
|
||||
ld a, 3(ix) ; ypos
|
||||
cp a, l
|
||||
cp a, l ; ypos == j?
|
||||
jr nz, _draw_widget_textentry_else
|
||||
;; revers_arch(0);
|
||||
push hl ; Stack count yx
|
||||
push de ; Stack text count yx
|
||||
xor a
|
||||
push af
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp
|
||||
call _revers_arch_asm
|
||||
;; cputc_arch('>');
|
||||
ld a, #0x3e ; '>'
|
||||
push af
|
||||
inc sp
|
||||
call _cputc_arch
|
||||
inc sp
|
||||
call _cputc_arch_asm
|
||||
|
||||
pop de ; Stack count yx
|
||||
push de ; Stack text count yx
|
||||
|
|
@ -713,7 +676,8 @@ _draw_widget_textentry_loop1: ; 0xc629
|
|||
|
||||
ld h, #0 ; loop counter
|
||||
;; for(i = 0; i < w->w; ++i)
|
||||
_draw_widget_textentry_loop2: ; 0xc666 Stack text count yx
|
||||
_draw_widget_textentry_loop2: ; 0xc39d Stack text count yx
|
||||
;; H = count2, DE = text[xscroll + i]
|
||||
ld a, h
|
||||
cp a, 0(ix) ; i - w->w
|
||||
jr nc, _draw_widget_textentry_loop2exit
|
||||
|
|
@ -722,44 +686,30 @@ _draw_widget_textentry_loop2: ; 0xc666 Stack text count yx
|
|||
ld a, 4(ix) ; w->w.widget.textentry.xpos
|
||||
sub 5(ix) ; xscroll
|
||||
sub h ; textentry.xpos - xscroll- i
|
||||
jr z, _draw_widget_textentry_revers1
|
||||
xor a
|
||||
jr _draw_widget_textentry_revers0
|
||||
_draw_widget_textentry_revers1:
|
||||
ld a, #00 ; flags don't change
|
||||
jr nz, _draw_widget_textentry_revers
|
||||
ld a, #01
|
||||
_draw_widget_textentry_revers0:
|
||||
push af
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp
|
||||
|
||||
_draw_widget_textentry_revers:
|
||||
call _revers_arch_asm
|
||||
;; DE = text, Stack; count2 text count1 yx
|
||||
;; cputc((c == 0) ? CH_SPACE : c);
|
||||
ld a, (de) ; ch
|
||||
or a
|
||||
jr nz, _draw_widget_textentry_nospace
|
||||
ld a, #CH_SPACE
|
||||
_draw_widget_textentry_nospace:
|
||||
push de
|
||||
push af
|
||||
inc sp
|
||||
call _cputc_arch
|
||||
inc sp
|
||||
call _cputc_arch_asm
|
||||
pop de
|
||||
pop hl ; Stack text count1 yx
|
||||
pop hl ; Stack text count1 yx, H = count2
|
||||
inc h
|
||||
inc de
|
||||
jr _draw_widget_textentry_loop2
|
||||
|
||||
_draw_widget_textentry_loop2exit: ; Stack text count yx
|
||||
xor a
|
||||
push af
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp
|
||||
call _revers_arch_asm
|
||||
ld a, #0x3c ; '<'
|
||||
push af
|
||||
inc sp
|
||||
call _cputc_arch
|
||||
inc sp
|
||||
call _cputc_arch_asm
|
||||
jr _draw_widget_textentry_endif
|
||||
|
||||
_draw_widget_textentry_else: ; 0xc68a DE = text, L = count1, Stack yx
|
||||
|
|
@ -767,19 +717,13 @@ _draw_widget_textentry_else: ; 0xc68a DE = text, L = count1, Stack yx
|
|||
ld a, #CH_VERTLINE
|
||||
push hl
|
||||
push de
|
||||
push af
|
||||
inc sp
|
||||
call _cputc_arch
|
||||
inc sp
|
||||
call _cputc_arch_asm
|
||||
pop de
|
||||
;; cputsn_arch(text, w->w);
|
||||
ld a, 0(ix) ; w->w
|
||||
push af
|
||||
inc sp
|
||||
ld b, 0(ix) ; w->w
|
||||
push de
|
||||
call _cputsn_arch
|
||||
pop de
|
||||
inc sp ; Stack j yx
|
||||
call _cputsn_arch_asm
|
||||
pop de ; Stack count1 yx
|
||||
;; clearto_arch(xpos + w->w + 1);
|
||||
pop hl
|
||||
pop bc
|
||||
|
|
@ -789,16 +733,10 @@ _draw_widget_textentry_else: ; 0xc68a DE = text, L = count1, Stack yx
|
|||
ld a, 0(ix) ; w->w
|
||||
add a, c
|
||||
inc a ; xpos + w->w + 1
|
||||
push af
|
||||
inc sp
|
||||
call _clearto_arch
|
||||
inc sp
|
||||
call _clearto_arch_asm
|
||||
;; cputc_arch(CH_VERTLINE);
|
||||
ld a, #CH_VERTLINE
|
||||
push af
|
||||
inc sp
|
||||
call _cputc_arch
|
||||
inc sp
|
||||
call _cputc_arch_asm
|
||||
_draw_widget_textentry_endif: ; Stack text count yx
|
||||
;; text += w->w
|
||||
pop de
|
||||
|
|
@ -825,19 +763,86 @@ _draw_widget_textentry_ret:
|
|||
jp _draw_widget_ret
|
||||
|
||||
.if CTK_CONF_ICONS
|
||||
;; BC = ypos, xpos, HL = w, E = w->w, Stack; null
|
||||
_draw_widget_icon:
|
||||
push bc ; Stack; yx
|
||||
ld bc, #_off_widget_icon_title
|
||||
call _get_offset
|
||||
push de
|
||||
push de ; Stack; title yx
|
||||
ld bc, #_off_widget_icon_textmap
|
||||
call _get_offset
|
||||
push de
|
||||
call _drawicon_arch
|
||||
pop de
|
||||
pop de
|
||||
jp _draw_widget_ret
|
||||
.endif ; CTK_CONF_ICONS
|
||||
pop hl ; HL = title, DE = textmap
|
||||
pop bc ; BC = yx
|
||||
|
||||
;; BC = yx, DE = textmap, HL = title
|
||||
push hl ; Stack; title
|
||||
ld h, b
|
||||
ld l, c ; HL = yx
|
||||
ld a, e
|
||||
or d
|
||||
jr z, _draw_widget_icon_title
|
||||
|
||||
;; push hl
|
||||
;; call _wherex_arch
|
||||
;; ld c, l
|
||||
;; call _wherey_arch
|
||||
;; ld b, l
|
||||
;; pop hl
|
||||
|
||||
ld a, #3 ; loop counter
|
||||
_draw_widget_icon_loop: ; HL = yx, DE = textmap, Stack; title
|
||||
call _gotoxy_arch_asm
|
||||
|
||||
push af ; Stack; loop title
|
||||
push hl ; DE = textmap, Stack; yx loop title
|
||||
|
||||
ld b, #3
|
||||
call _cputsn_arch_asm ; DE = DE + 3
|
||||
|
||||
pop hl
|
||||
pop af ; HL = yx, A = count, Stack; title
|
||||
|
||||
inc h ; y++
|
||||
dec a
|
||||
jr nz, _draw_widget_icon_loop
|
||||
;; Stack; title, HL = yx
|
||||
_draw_widget_icon_title:
|
||||
pop de ; Stack; null, HL = yx, DE = title
|
||||
push de ; Stack; title, HL = yx, DE = title
|
||||
ld b, h
|
||||
ld c, l ; BC = yx
|
||||
ex de, hl ; BC = yx, HL = title
|
||||
ld d, #0
|
||||
_draw_widget_icon_title_strlen:
|
||||
ld a, (hl)
|
||||
or a
|
||||
jr z, _draw_widget_icon_title_setpos
|
||||
inc hl
|
||||
inc d
|
||||
jr _draw_widget_icon_title_strlen
|
||||
;; D = len, BC = yx, Stack; title
|
||||
_draw_widget_icon_title_setpos:
|
||||
ld h, d ; H = len
|
||||
ld a, d
|
||||
add a, c ; x + len
|
||||
cp a, #SCREEN_WIDTH ; x + len - SCREEN_WIDTH
|
||||
jr c, _draw_widget_icon_title_show
|
||||
ld a, #SCREEN_WIDTH
|
||||
sub h
|
||||
ld c, a
|
||||
;; B = y, C = x; H = len, Stack; title
|
||||
_draw_widget_icon_title_show:
|
||||
ld a, h ; A = len
|
||||
ld h, b
|
||||
ld l, c
|
||||
call _gotoxy_arch_asm
|
||||
pop de ; DE = title
|
||||
ld b, a ; B = len
|
||||
call _cputsn_arch_asm
|
||||
jp _draw_widget_ret
|
||||
|
||||
.endif
|
||||
|
||||
.if CTK_CONF_MENUS
|
||||
;; ---------------------------------
|
||||
;; static void draw_menu(struct ctk_menu *m, struct ctk_menu *open)
|
||||
|
|
@ -855,16 +860,11 @@ _draw_menu_asm:
|
|||
push bc
|
||||
ld bc, #_off_menu_title
|
||||
call _get_offset ; DE = m->title
|
||||
push hl
|
||||
push de
|
||||
call _cputs_arch
|
||||
pop de ; Stack; menu open x
|
||||
push hl ; Stack; menu open x
|
||||
call _cputs_arch_asm
|
||||
;; cputc_arch(CH_SPACE);
|
||||
ld a, #CH_SPACE
|
||||
push af
|
||||
inc sp
|
||||
call _cputc_arch
|
||||
inc sp
|
||||
call _cputc_arch_asm
|
||||
|
||||
pop hl ; menu
|
||||
pop bc ; open, Stack; x
|
||||
|
|
@ -914,22 +914,16 @@ _draw_menu_loop1:
|
|||
jr nz, _draw_menu_next1
|
||||
xor a
|
||||
push hl
|
||||
push af
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp
|
||||
call _revers_arch_asm
|
||||
pop hl
|
||||
;; B = x, C = x2, D = y, HL = menu
|
||||
_draw_menu_next1: ; c4ae
|
||||
;; gotoxy_arch(x, y + 1);
|
||||
push hl
|
||||
push de
|
||||
inc d
|
||||
ld e, b
|
||||
push de
|
||||
call _gotoxy_arch
|
||||
pop de
|
||||
pop de ; D = y
|
||||
ld h, d
|
||||
ld l, b
|
||||
inc h
|
||||
call _gotoxy_arch_asm
|
||||
pop hl ; HL = menu, Stack; null
|
||||
;; if(m->items[y].title[0] == '-')
|
||||
push de
|
||||
|
|
@ -963,43 +957,31 @@ _draw_menu_next2:
|
|||
cp a, #0x2d ; '-'
|
||||
jr nz, _draw_menu_else
|
||||
;; chline_arch(CTK_CONF_MENUWIDTH);
|
||||
ld a, #CTK_CONF_MENUWIDTH
|
||||
push af
|
||||
inc sp
|
||||
call _chline_arch
|
||||
inc sp
|
||||
ld b, #CTK_CONF_MENUWIDTH
|
||||
call _chline_arch_asm
|
||||
jr _draw_menu_next3
|
||||
_draw_menu_else:
|
||||
;; cputs_arch(m->items[y].title);
|
||||
push de
|
||||
call _cputs_arch
|
||||
pop de
|
||||
call _cputs_arch_asm
|
||||
_draw_menu_next3:
|
||||
;; clearto_arch(x + CTK_CONF_MENUWIDTH);
|
||||
pop bc ; B = x, C = x2, Stack; menu y
|
||||
push bc
|
||||
ld a, b
|
||||
add a, #CTK_CONF_MENUWIDTH
|
||||
push af
|
||||
inc sp
|
||||
call _clearto_arch
|
||||
inc sp
|
||||
call _clearto_arch_asm
|
||||
;; revers_arch(1);
|
||||
ld a, #1
|
||||
push af
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp
|
||||
call _revers_arch_asm
|
||||
pop bc
|
||||
pop hl
|
||||
pop de
|
||||
inc d
|
||||
jr _draw_menu_loop1
|
||||
_draw_menu_ret: ; C = x2
|
||||
ld b, #0
|
||||
push bc
|
||||
call _gotoxy_arch
|
||||
pop bc
|
||||
ld h, #0
|
||||
ld l, c
|
||||
call _gotoxy_arch_asm
|
||||
_draw_menu_ret2:
|
||||
pop af
|
||||
ret
|
||||
|
|
@ -1014,18 +996,13 @@ _ctk_draw_menus:
|
|||
;; clip_arch(0, SCREEN_HEIGHT);
|
||||
ld h, #SCREEN_HEIGHT
|
||||
ld l, #0
|
||||
push hl
|
||||
call _clip_arch
|
||||
call _clip_arch_asm
|
||||
;; gotoxy_arch(0, 0);
|
||||
ld hl, #0
|
||||
ex (sp), hl
|
||||
call _gotoxy_arch
|
||||
ld h, #0
|
||||
call _gotoxy_arch_asm
|
||||
;; revers_arch(1);
|
||||
ld h, #1
|
||||
ex (sp), hl
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp ; Stack; null
|
||||
ld a, #1
|
||||
call _revers_arch_asm
|
||||
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
|
|
@ -1080,20 +1057,14 @@ _ctk_draw_menus_next2:
|
|||
sub b ; strlen(menus->desktopmenu->title)
|
||||
dec a ; SCREEN_WIDTH - strlen(menus->desktopmenu->title) - 1
|
||||
push hl
|
||||
push af
|
||||
inc sp
|
||||
call _clearto_arch
|
||||
inc sp
|
||||
call _clearto_arch_asm
|
||||
pop hl ; desktopmenu
|
||||
pop bc ; open, Stack; null
|
||||
call _draw_menu_asm
|
||||
xor a
|
||||
push af
|
||||
inc sp
|
||||
call _revers_arch
|
||||
inc sp
|
||||
call _revers_arch_asm
|
||||
ret
|
||||
.endif ; CTK_CONF_MENUS
|
||||
.endif
|
||||
|
||||
;; ---------------------------------
|
||||
;; unsigned char ctk_draw_width(void);
|
||||
|
|
@ -1115,4 +1086,90 @@ _ctk_draw_height:
|
|||
ld l, #SCREEN_HEIGHT
|
||||
ret
|
||||
|
||||
|
||||
;; ---------------------------------
|
||||
;; internal functions
|
||||
;; ---------------------------------
|
||||
|
||||
;; ---------------------------------
|
||||
;; static void clearbox_arch_asm(unsigned char x, y, w, h)
|
||||
;; Stack; retl reth
|
||||
;; AFBCDEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
;; DE = yx, B = h, C = w
|
||||
_clearbox_arch_asm:
|
||||
ld a, e
|
||||
add a, c
|
||||
ld c, a ; to_x = x + w
|
||||
ld h, d
|
||||
ld l, e
|
||||
_clearbox_arch_loop::
|
||||
call _gotoxy_arch_asm ; (x, y)
|
||||
push hl
|
||||
push bc ; B = h, HL = yx
|
||||
ld a, c
|
||||
call _clearto_arch_asm
|
||||
pop bc
|
||||
pop hl
|
||||
inc h ; y++
|
||||
djnz _clearbox_arch_loop
|
||||
ret
|
||||
|
||||
;; ---------------------------------
|
||||
;; void drawbox_asm(unsigned char x, y, w, h)
|
||||
;; Stack; retl reth
|
||||
;; B = h, C = w, D = y, E = x
|
||||
;; AF__________
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
_drawbox_asm:
|
||||
push bc
|
||||
push de
|
||||
push hl
|
||||
|
||||
ld h, d
|
||||
ld l, e
|
||||
inc h
|
||||
call _gotoxy_arch_asm ; (x, y + 1)
|
||||
dec h
|
||||
push hl
|
||||
push bc ; Stack; hw, yx, B = h
|
||||
call _cvline_arch_asm
|
||||
ld a, #CH_LLCORNER
|
||||
call _cputc_arch_asm
|
||||
pop bc
|
||||
push bc ; Stack; hw yx
|
||||
ld b, c ; w
|
||||
call _chline_arch_asm
|
||||
ld a, #CH_LRCORNER
|
||||
call _cputc_arch_asm
|
||||
pop bc
|
||||
pop hl
|
||||
call _gotoxy_arch_asm ; (x, y)
|
||||
push hl
|
||||
push bc ; Stack; hw yx
|
||||
ld a, #CH_ULCORNER
|
||||
call _cputc_arch_asm
|
||||
pop bc
|
||||
push bc ; Stack; hw yx
|
||||
ld b, c ; B = w
|
||||
call _chline_arch_asm
|
||||
ld a, #CH_URCORNER
|
||||
call _cputc_arch_asm
|
||||
pop bc ; B = h
|
||||
pop hl
|
||||
ld a, l
|
||||
inc a
|
||||
add a, c
|
||||
ld l, a ; L = x + 1 + w
|
||||
inc h ; H = y + 1
|
||||
call _gotoxy_arch_asm
|
||||
call _cvline_arch_asm
|
||||
|
||||
pop hl
|
||||
pop de
|
||||
pop bc
|
||||
ret
|
||||
|
||||
_ctk_conio_arch_asm_end::
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@
|
|||
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||||
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*
|
||||
* $Id: ctk-conio_arch-source.c,v 1.1 2007/09/11 12:12:59 matsutsuka Exp $
|
||||
* $Id: ctk-conio_arch-source.c,v 1.2 2007/09/29 04:10:00 matsutsuka Exp $
|
||||
*
|
||||
*/
|
||||
|
||||
|
|
@ -43,7 +43,7 @@
|
|||
#include "ctk/ctk.h"
|
||||
#include "ctk/ctk-draw.h"
|
||||
#include "contiki-conf.h"
|
||||
#include "ctk/ctk-arch.h"
|
||||
#include "ctk/ctk_arch.h"
|
||||
#include <string.h>
|
||||
|
||||
#ifndef NULL
|
||||
|
|
@ -176,7 +176,7 @@ draw_widget(struct ctk_widget *w,
|
|||
cputsn(w->widget.button.text, w->w);
|
||||
cputc(']');
|
||||
} else if (w->type == CTK_WIDGET_HYPERLINK) {
|
||||
cputsn(w->widget.button.text, w->w);
|
||||
cputsn(w->widget.hyperlink.text, w->w);
|
||||
} else if (w->type == CTK_WIDGET_TEXTENTRY) {
|
||||
text = w->widget.textentry.text;
|
||||
xscroll = 0;
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@
|
|||
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||||
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*
|
||||
* $Id: ctk-conio_arch.c,v 1.2 2007/09/19 12:46:15 matsutsuka Exp $
|
||||
* $Id: ctk-conio_arch.c,v 1.3 2007/09/29 04:10:00 matsutsuka Exp $
|
||||
*
|
||||
*/
|
||||
|
||||
|
|
@ -68,6 +68,10 @@ const u8_t off_widget_textentry_ypos = offsetof(struct ctk_widget, widget) +
|
|||
offsetof(struct ctk_widget_textentry, ypos);
|
||||
const u8_t off_widget_textentry_state = offsetof(struct ctk_widget, widget) +
|
||||
offsetof(struct ctk_widget_textentry, state);
|
||||
#if CTK_CONF_HYPERLINK
|
||||
const u8_t off_widget_hyperlink_text = offsetof(struct ctk_widget, widget) +
|
||||
offsetof(struct ctk_widget_hyperlink, text);
|
||||
#endif CTK_CONF_HYPERLINK
|
||||
|
||||
#if CTK_CONF_ICONS
|
||||
const u8_t off_widget_icon_title = offsetof(struct ctk_widget, widget) +
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@
|
|||
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||||
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*
|
||||
* $Id: ctk_arch-def.h,v 1.2 2007/09/19 12:46:15 matsutsuka Exp $
|
||||
* $Id: ctk_arch-def.h,v 1.3 2007/09/29 04:10:00 matsutsuka Exp $
|
||||
*
|
||||
*/
|
||||
|
||||
|
|
@ -116,7 +116,7 @@
|
|||
/* Define if text icon is used. */
|
||||
#define CTK_CONF_ICON_TEXTMAPS 1
|
||||
/* Define if bitmap icon is used. */
|
||||
#define CTK_CONF_ICON_BITMAPS 1
|
||||
#define CTK_CONF_ICON_BITMAPS 0
|
||||
/* Toggles support for closable windows. */
|
||||
#define CTK_CONF_WINDOWCLOSE 1
|
||||
/* Toggles support for movable windows. */
|
||||
|
|
@ -127,6 +127,10 @@
|
|||
#define CTK_CONF_MENUWIDTH 16
|
||||
/* Defines if screen saver is supported. */
|
||||
#define CTK_CONF_SCREENSAVER 0
|
||||
/* Defines if mouse is supported. */
|
||||
#define CTK_CONF_MOUSE_SUPPORT 0
|
||||
/* Defines if hyperlink is supported. */
|
||||
#define CTK_CONF_HYPERLINK 1
|
||||
|
||||
/* The maximum number of menu items in each menu. */
|
||||
#define CTK_CONF_MAXMENUITEMS 4
|
||||
|
|
@ -142,6 +146,12 @@
|
|||
/* Defines which key that is to be used for activating the menus */
|
||||
#define CTK_CONF_MENU_KEY CH_F1
|
||||
|
||||
#ifdef LIBCONIO_CONF_EXPORT
|
||||
#define LIBCONIO_EXPORT LIBCONIO_CONF_EXPORT
|
||||
#else /* LIBCONIO_CONF_EXPORT */
|
||||
#define LIBCONIO_EXPORT 0
|
||||
#endif /* LIBCONIO_CONF_EXPORT */
|
||||
|
||||
/* Imported symbols from ctk.h */
|
||||
|
||||
#define _CTK_FOCUS_NONE 0
|
||||
|
|
|
|||
|
|
@ -7,13 +7,14 @@
|
|||
;;;
|
||||
;;; @author Takahide Matsutsuka <markn@markn.org>
|
||||
;;;
|
||||
;;; $Id: libconio_arch-asm.cS,v 1.1 2007/09/19 12:46:15 matsutsuka Exp $
|
||||
;;; $Id: libconio_arch-asm.cS,v 1.2 2007/09/29 04:10:00 matsutsuka Exp $
|
||||
;;;
|
||||
|
||||
;; uses preprocessor to enable definitions
|
||||
#include "ctk_arch-def.h"
|
||||
|
||||
;; export symbols
|
||||
.if LIBCONIO_EXPORT
|
||||
.globl _cputc_arch
|
||||
.globl _cputs_arch
|
||||
.globl _cputsn_arch
|
||||
|
|
@ -23,11 +24,9 @@
|
|||
.globl _clearto_arch
|
||||
.globl _revers_arch
|
||||
.globl _clip_arch
|
||||
.endif
|
||||
.globl _wherex_arch
|
||||
.globl _drawbox_arch
|
||||
.globl _drawicon_arch
|
||||
.globl _clearbox_arch
|
||||
.globl _newline_arch
|
||||
.globl _wherey_arch
|
||||
|
||||
.area _DATA
|
||||
_screen_cursor:
|
||||
|
|
@ -42,45 +41,23 @@ _screen_reversed:
|
|||
.area _CODE
|
||||
|
||||
_libconio_arch_asm_start::
|
||||
.if 0
|
||||
;; input: B = y, C = x
|
||||
;; output: HL = offset
|
||||
;; ______HL____
|
||||
_calc_offset:
|
||||
push af
|
||||
push de
|
||||
ld a, b
|
||||
ld hl, #0
|
||||
ld de, #SCREEN_WIDTH
|
||||
_calc_offset_loop:
|
||||
or a
|
||||
jr z, _calc_offset_calcx
|
||||
add hl, de
|
||||
dec a
|
||||
jr _calc_offset_loop
|
||||
_calc_offset_calcx:
|
||||
ld d, #0
|
||||
ld e, c
|
||||
add hl, de
|
||||
pop de
|
||||
pop af
|
||||
ret
|
||||
.endif
|
||||
;; ---------------------------------
|
||||
;; void cputc(char ch);
|
||||
;; Stack; retl reth ch
|
||||
;; AFBCDEHL____
|
||||
;; return A=1 if output is succeeded, A=0 if not
|
||||
;; ---------------------------------
|
||||
.if LIBCONIO_EXPORT
|
||||
_cputc_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld a, (hl)
|
||||
.endif ; LIBCONIO_EXPORT
|
||||
;; ------------
|
||||
;; A = char
|
||||
;; AFBCDEHL____
|
||||
;; ------------
|
||||
_cputc_arch_asm:
|
||||
_cputc_arch_asm::
|
||||
push af
|
||||
ld bc, (#_screen_cursor) ;B=y, C=x
|
||||
ld de, (#_screen_clips) ;D=cy2, E=cy1
|
||||
|
|
@ -99,9 +76,6 @@ _cputc_arch_next2:
|
|||
cp a, #SCREEN_WIDTH ; cursx - SCREEN_WIDTH
|
||||
jr nc, _cputc_arch_ret_false ; if (cursx >= SCREEN_WIDTH)
|
||||
;; calculate offset
|
||||
.if 0
|
||||
call _calc_offset
|
||||
.else
|
||||
ld a, b ; A=y
|
||||
ld hl, #0
|
||||
ld de, #SCREEN_WIDTH
|
||||
|
|
@ -115,7 +89,7 @@ _cputc_arch_calcx:
|
|||
ld d, #0
|
||||
ld e, c
|
||||
add hl, de
|
||||
.endif
|
||||
|
||||
;; putchar
|
||||
pop af
|
||||
ld de, #VRAM_CHAR
|
||||
|
|
@ -149,19 +123,46 @@ _cputc_arch_ret_false:
|
|||
;; AFB_DEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
_cputs_arch:
|
||||
.if 1
|
||||
_cputs_arch::
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld e, (hl)
|
||||
inc hl
|
||||
ld d, (hl)
|
||||
.endif ; LIBCONIO_EXPORT
|
||||
|
||||
;; ------------
|
||||
;; DE = str
|
||||
;; AFB_DEHL____
|
||||
;; ------------
|
||||
_cputs_arch_asm::
|
||||
ld b, #SCREEN_WIDTH ; max length
|
||||
jr _cputsn_arch_asm ; take over B and DE
|
||||
|
||||
;; ---------------------------------
|
||||
;; void cputsn(char *str, unsigned char length);
|
||||
;; Stack; retl reth strl strh length
|
||||
;; AFB_DEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
.if LIBCONIO_EXPORT
|
||||
_cputsn_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld e, (hl)
|
||||
inc hl
|
||||
ld d, (hl)
|
||||
inc hl
|
||||
ld b, (hl)
|
||||
.endif ; LIBCONIO_EXPORT
|
||||
|
||||
;; ------------
|
||||
;; B = nchars
|
||||
;; DE = str
|
||||
;; AFB_DEHL____
|
||||
;; ------------
|
||||
_cputs_arch_loop:
|
||||
_cputsn_arch_asm::
|
||||
ld a, (de)
|
||||
or a
|
||||
ret z
|
||||
|
|
@ -171,24 +172,8 @@ _cputs_arch_loop:
|
|||
pop de
|
||||
pop bc
|
||||
inc de
|
||||
djnz _cputs_arch_loop
|
||||
djnz _cputsn_arch_asm
|
||||
ret
|
||||
|
||||
;; ---------------------------------
|
||||
;; void cputsn(char *str, unsigned char length);
|
||||
;; Stack; retl reth strl strh length
|
||||
;; AFB_DEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
_cputsn_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld e, (hl)
|
||||
inc hl
|
||||
ld d, (hl)
|
||||
inc hl
|
||||
ld b, (hl)
|
||||
jr _cputs_arch_loop ; take over B and DE
|
||||
|
||||
;; ---------------------------------
|
||||
;; void chline(unsigned char length);
|
||||
|
|
@ -196,6 +181,7 @@ _cputsn_arch:
|
|||
;; AFB_DEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
.if LIBCONIO_EXPORT
|
||||
_chline_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
|
|
@ -204,15 +190,13 @@ _chline_arch:
|
|||
;; B = length
|
||||
;; AFB_DEHL____
|
||||
;; ------------
|
||||
_chline_arch_asm:
|
||||
.endif
|
||||
_chline_arch_asm::
|
||||
ld a, #CH_HOLILINE
|
||||
_chline_arch_loop:
|
||||
push bc
|
||||
push af
|
||||
call _cputc_arch_asm
|
||||
pop af
|
||||
pop bc
|
||||
djnz _chline_arch_loop
|
||||
djnz _chline_arch_asm
|
||||
ret
|
||||
|
||||
;; ---------------------------------
|
||||
|
|
@ -221,23 +205,23 @@ _chline_arch_loop:
|
|||
;; AFB_DEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
.if LIBCONIO_EXPORT
|
||||
_cvline_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld b, (hl) ; length
|
||||
.endif ; LIBCONIO_EXPORT
|
||||
;; ------------
|
||||
;; B = length
|
||||
;; AFB_DEHL____
|
||||
;; ------------
|
||||
_cvline_arch_asm:
|
||||
ld a, #CH_VERTLINE
|
||||
_cvline_arch_asm::
|
||||
ld hl, (#_screen_cursor) ; H=y, L=x
|
||||
_cvline_arch_loop:
|
||||
ld a, #CH_VERTLINE
|
||||
push hl
|
||||
push bc
|
||||
push af
|
||||
call _cputc_arch_asm
|
||||
pop af
|
||||
pop bc
|
||||
pop hl
|
||||
inc h
|
||||
|
|
@ -251,19 +235,22 @@ _cvline_arch_loop:
|
|||
;; _F__DEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
_gotoxy_arch:
|
||||
.if 1
|
||||
_gotoxy_arch::
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld d, (hl) ; x
|
||||
inc hl
|
||||
ld e, (hl) ; y
|
||||
inc hl
|
||||
ld d, (hl) ; x
|
||||
ld l, e ; L=x
|
||||
ld h, d ; H=y
|
||||
.endif ; LIBCONIO_EXPORT
|
||||
|
||||
;; ------------
|
||||
;; D = x, E = y
|
||||
;; ______HL____
|
||||
;; H = x, L = y
|
||||
;; ____________
|
||||
;; ------------
|
||||
_gotoxy_arch_asm:
|
||||
ld l, d ; L=x
|
||||
ld h, e ; H=y
|
||||
_gotoxy_arch_asm::
|
||||
ld (#_screen_cursor), hl
|
||||
ret
|
||||
|
||||
|
|
@ -273,11 +260,17 @@ _gotoxy_arch_asm:
|
|||
;; AFBCDEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
.if LIBCONIO_EXPORT
|
||||
_clearto_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld a, (hl)
|
||||
_clearto_arch_loop:
|
||||
.endif ; LIBCONIO_EXPORT
|
||||
;; ------------
|
||||
;; A = to
|
||||
;; AFBCDEHL____
|
||||
;; ------------
|
||||
_clearto_arch_asm::
|
||||
ld hl, #_screen_cursor
|
||||
cp (hl) ; to - cursx
|
||||
ret z
|
||||
|
|
@ -288,7 +281,7 @@ _clearto_arch_loop:
|
|||
or a
|
||||
pop af
|
||||
ret z
|
||||
jr _clearto_arch_loop
|
||||
jr _clearto_arch_asm
|
||||
|
||||
;; ---------------------------------
|
||||
;; void revers_arch(unsigned char reverse)
|
||||
|
|
@ -296,10 +289,15 @@ _clearto_arch_loop:
|
|||
;; A_____HL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
.if LIBCONIO_EXPORT
|
||||
_revers_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld a, (hl)
|
||||
.endif ; LIBCONIO_EXPORT
|
||||
;; A = reverse
|
||||
;; ____________
|
||||
_revers_arch_asm::
|
||||
ld (#_screen_reversed), a
|
||||
ret
|
||||
|
||||
|
|
@ -309,6 +307,7 @@ _revers_arch:
|
|||
;; ____________
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
.if LIBCONIO_EXPORT
|
||||
_clip_arch:
|
||||
push af
|
||||
push hl
|
||||
|
|
@ -326,12 +325,20 @@ _clip_arch:
|
|||
pop hl
|
||||
pop af
|
||||
ret
|
||||
.endif
|
||||
;; ---------------------------------
|
||||
;; L = clipy1, H = clipy2
|
||||
;; ____________
|
||||
;; ---------------------------------
|
||||
_clip_arch_asm::
|
||||
ld (#_screen_clips), hl
|
||||
ret
|
||||
|
||||
;; ---------------------------------
|
||||
;; unsigned char wherex_arch()
|
||||
;; Stack; retl reth
|
||||
;; A_____HL____
|
||||
;; return void
|
||||
;; A______L____
|
||||
;; return x
|
||||
;; ---------------------------------
|
||||
_wherex_arch:
|
||||
ld a, (#_screen_cursor)
|
||||
|
|
@ -339,168 +346,17 @@ _wherex_arch:
|
|||
ret
|
||||
|
||||
;; ---------------------------------
|
||||
;; void drawbox_arch(unsigned char x, y, w, h)
|
||||
;; Stack; retl reth x y w h
|
||||
;; AFBCDEHL____
|
||||
;; return void
|
||||
;; unsigned char wherey_arch()
|
||||
;; Stack; retl reth
|
||||
;; A______L____
|
||||
;; return y
|
||||
;; ---------------------------------
|
||||
_drawbox_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld d, (hl) ; x
|
||||
inc hl
|
||||
ld e, (hl) ; y
|
||||
inc hl
|
||||
ld c, (hl) ; w
|
||||
inc hl
|
||||
ld b, (hl) ; h
|
||||
inc e
|
||||
call _gotoxy_arch_asm ; (x, y + 1)
|
||||
dec e
|
||||
push de
|
||||
push bc
|
||||
call _cvline_arch_asm
|
||||
ld a, #CH_LLCORNER
|
||||
call _cputc_arch_asm
|
||||
pop bc
|
||||
push bc ; Stack; BC DE
|
||||
ld b, c ; w
|
||||
call _chline_arch_asm
|
||||
ld a, #CH_LRCORNER
|
||||
call _cputc_arch_asm
|
||||
pop bc
|
||||
pop de
|
||||
call _gotoxy_arch_asm ; (x, y)
|
||||
push de
|
||||
push bc ; Stack; BC DE
|
||||
ld a, #CH_ULCORNER
|
||||
call _cputc_arch_asm
|
||||
pop bc
|
||||
push bc ; Stack; BC DE
|
||||
ld b, c
|
||||
call _chline_arch_asm
|
||||
ld a, #CH_URCORNER
|
||||
call _cputc_arch_asm
|
||||
pop bc ; B = h
|
||||
pop de
|
||||
ld a, d
|
||||
inc a
|
||||
add a, c
|
||||
ld d, a ; D = x + 1 + w
|
||||
inc e ; E = y + 1
|
||||
call _gotoxy_arch_asm
|
||||
call _cvline_arch_asm
|
||||
_wherey_arch:
|
||||
ld a, (#_screen_cursor + 1)
|
||||
ld l, a
|
||||
ret
|
||||
|
||||
.if CTK_CONF_ICONS
|
||||
;; ---------------------------------
|
||||
;; void drawicon_arch(char* textmap, char *title);
|
||||
;; Stack; retl reth textmapl textmaph titlel titleh
|
||||
;; AFBCDEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
_drawicon_arch:
|
||||
ld hl, #_screen_cursor
|
||||
ld b, (hl) ; x
|
||||
inc hl
|
||||
ld c, (hl) ; y
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld e, (hl)
|
||||
inc hl
|
||||
ld d, (hl) ; DE = textmap
|
||||
ld a, e
|
||||
or d
|
||||
ret z ; if (textmap == NULL) return;
|
||||
ld a, #3 ; loop counter
|
||||
_drawicon_arch_loop:
|
||||
push af
|
||||
push de
|
||||
ld d, b
|
||||
ld e, c
|
||||
call _gotoxy_arch_asm
|
||||
pop de
|
||||
push bc
|
||||
ld b, #3
|
||||
call _cputs_arch_loop ; DE = DE + 3
|
||||
pop bc
|
||||
pop af
|
||||
inc c ; y++
|
||||
dec a
|
||||
jr z, _drawicon_arch_title
|
||||
jr _drawicon_arch_loop
|
||||
;; B = x, C = y
|
||||
_drawicon_arch_title:
|
||||
ld hl, #4
|
||||
add hl, sp
|
||||
ld e, (hl)
|
||||
inc hl
|
||||
ld d, (hl) ; DE = title
|
||||
ld h, d
|
||||
ld l, e
|
||||
xor a
|
||||
push de
|
||||
ld d, #0
|
||||
_drawicon_arch_title_strlen:
|
||||
ld a, (hl)
|
||||
or a
|
||||
jr z, _drawicon_arch_title_setpos
|
||||
inc hl
|
||||
inc d
|
||||
jr _drawicon_arch_title_strlen
|
||||
_drawicon_arch_title_setpos:
|
||||
ld h, d ; H = len
|
||||
ld a, d
|
||||
pop de
|
||||
add a, b
|
||||
cp a, #SCREEN_WIDTH ; x + len - SCREEN_WIDTH
|
||||
jr c, _drawicon_arch_title_show
|
||||
ld a, #SCREEN_WIDTH
|
||||
sub h
|
||||
ld b, a
|
||||
;; B = x, C = y, DE = title, H = len
|
||||
_drawicon_arch_title_show:
|
||||
push de
|
||||
ld d, b
|
||||
ld e, c
|
||||
call _gotoxy_arch_asm
|
||||
pop de
|
||||
ld b, #SCREEN_WIDTH
|
||||
call _cputs_arch_loop
|
||||
ret
|
||||
.endif
|
||||
|
||||
;; ---------------------------------
|
||||
;; void clearbox_arch(unsigned char x, y, w, h)
|
||||
;; Stack; retl reth x y w h
|
||||
;; AFBCDEHL____
|
||||
;; return void
|
||||
;; ---------------------------------
|
||||
_clearbox_arch:
|
||||
ld hl, #2
|
||||
add hl, sp
|
||||
ld d, (hl) ; x
|
||||
inc hl
|
||||
ld e, (hl) ; y
|
||||
inc hl
|
||||
ld c, (hl) ; w
|
||||
inc hl
|
||||
ld b, (hl) ; h
|
||||
ld a, d
|
||||
add a, c
|
||||
ld c, a ; to_x
|
||||
_clearbox_arch_loop:
|
||||
call _gotoxy_arch_asm ; (x, y + 1)
|
||||
push de
|
||||
push bc
|
||||
ld a, c
|
||||
call _clearto_arch_loop
|
||||
pop bc
|
||||
pop de
|
||||
inc e
|
||||
djnz _clearbox_arch_loop
|
||||
ret
|
||||
|
||||
|
||||
.if 0
|
||||
_newline_arch:
|
||||
ld hl, #_screen_cursor
|
||||
xor a
|
||||
|
|
@ -521,5 +377,6 @@ _newline_arch_scroll:
|
|||
ld bc, #SCREEN_HEIGHT * #SCREEN_WIDTH - #SCREEN_WIDTH
|
||||
ldir
|
||||
ret
|
||||
.endif
|
||||
|
||||
_libconio_arch_asm_end::
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@
|
|||
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||||
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
*
|
||||
* $Id: libconio_arch.h,v 1.1 2007/09/19 12:46:15 matsutsuka Exp $
|
||||
* $Id: libconio_arch.h,v 1.2 2007/09/29 04:10:00 matsutsuka Exp $
|
||||
*
|
||||
*/
|
||||
|
||||
|
|
@ -41,22 +41,19 @@
|
|||
#ifndef __LIBCONIO_ARCH_H__
|
||||
#define __LIBCONIO_ARCH_H__
|
||||
|
||||
/* The following functions are used by assembler only */
|
||||
#if LIBCONIO_EXPORT
|
||||
void cputc_arch(char c);
|
||||
void cputs_arch(char *str);
|
||||
void cputsn_arch(char *str, unsigned char len);
|
||||
void chline_arch(unsigned char length);
|
||||
void cvline_arch(unsigned char length);
|
||||
void clip_arch(unsigned char clip1, unsigned char clip2);
|
||||
unsigned char wherex_arch();
|
||||
void gotoxy_arch(unsigned char x, unsigned char y);
|
||||
void clearto_arch(unsigned char to);
|
||||
void revers_arch(unsigned char reversed);
|
||||
void drawbox_arch(unsigned char x, unsigned char y,
|
||||
unsigned char w, unsigned char h);
|
||||
void drawicon_arch(unsigned char x, unsigned char y,
|
||||
char* textmap, char* title);
|
||||
void clearbox_arch(unsigned char x, unsigned char y,
|
||||
unsigned char w, unsigned char h);
|
||||
void newline_arch();
|
||||
#endif /* LIBCONIO_CONF_EXPORT */
|
||||
unsigned char wherex_arch();
|
||||
unsigned char wherey_arch();
|
||||
void gotoxy_arch(unsigned char x, unsigned char y);
|
||||
|
||||
#endif /* __LIBCONIO_ARCH_H__ */
|
||||
|
|
|
|||
Loading…
Reference in a new issue