526 lines
9.1 KiB
Plaintext
526 lines
9.1 KiB
Plaintext
|
;;;
|
||
|
|
;;;
|
||
|
|
;;; libconio_arch-asm.hS
|
||
|
|
;;;
|
||
|
|
;;; Architecture depend libconio implementation.
|
||
|
|
;;; This assembler source contributes basically saving for speed and memory.
|
||
|
|
;;;
|
||
|
|
;;; @author Takahide Matsutsuka <markn@markn.org>
|
||
|
|
;;;
|
||
|
|
;;; $Id: libconio_arch-asm.cS,v 1.1 2007/09/19 12:46:15 matsutsuka Exp $
|
||
|
|
;;;
|
||
|
|
|
||
|
|
;; uses preprocessor to enable definitions
|
||
|
|
#include "ctk_arch-def.h"
|
||
|
|
|
||
|
|
;; export symbols
|
||
|
|
.globl _cputc_arch
|
||
|
|
.globl _cputs_arch
|
||
|
|
.globl _cputsn_arch
|
||
|
|
.globl _chline_arch
|
||
|
|
.globl _cvline_arch
|
||
|
|
.globl _gotoxy_arch
|
||
|
|
.globl _clearto_arch
|
||
|
|
.globl _revers_arch
|
||
|
|
.globl _clip_arch
|
||
|
|
.globl _wherex_arch
|
||
|
|
.globl _drawbox_arch
|
||
|
|
.globl _drawicon_arch
|
||
|
|
.globl _clearbox_arch
|
||
|
|
.globl _newline_arch
|
||
|
|
|
||
|
|
.area _DATA
|
||
|
|
_screen_cursor:
|
||
|
|
.ds 1 ; x
|
||
|
|
.ds 1 ; y
|
||
|
|
_screen_clips:
|
||
|
|
.ds 1 ; clip y1
|
||
|
|
.ds 1 ; clip y2
|
||
|
|
_screen_reversed:
|
||
|
|
.ds 1
|
||
|
|
|
||
|
|
.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
|
||
|
|
;; ---------------------------------
|
||
|
|
_cputc_arch:
|
||
|
|
ld hl, #2
|
||
|
|
add hl, sp
|
||
|
|
ld a, (hl)
|
||
|
|
;; ------------
|
||
|
|
;; A = char
|
||
|
|
;; AFBCDEHL____
|
||
|
|
;; ------------
|
||
|
|
_cputc_arch_asm:
|
||
|
|
push af
|
||
|
|
ld bc, (#_screen_cursor) ;B=y, C=x
|
||
|
|
ld de, (#_screen_clips) ;D=cy2, E=cy1
|
||
|
|
ld a, b
|
||
|
|
cp a, e
|
||
|
|
jr c, _cputc_arch_ret_false ; if (cursy < cy1)
|
||
|
|
cp a, d
|
||
|
|
jr z, _cputc_arch_next1
|
||
|
|
jr nc, _cputc_arch_ret_false ; if (cursy > cy2)
|
||
|
|
_cputc_arch_next1:
|
||
|
|
cp a, #SCREEN_HEIGHT ; cursy - SCREEN_HEIGHT
|
||
|
|
jr z, _cputc_arch_next2
|
||
|
|
jr nc, _cputc_arch_ret_false ; if (cursy > SCREEN_HEIGHT)
|
||
|
|
_cputc_arch_next2:
|
||
|
|
ld a, c
|
||
|
|
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
|
||
|
|
_cputc_arch_loop:
|
||
|
|
or a
|
||
|
|
jr z, _cputc_arch_calcx
|
||
|
|
add hl, de
|
||
|
|
dec a
|
||
|
|
jr _cputc_arch_loop
|
||
|
|
_cputc_arch_calcx:
|
||
|
|
ld d, #0
|
||
|
|
ld e, c
|
||
|
|
add hl, de
|
||
|
|
.endif
|
||
|
|
;; putchar
|
||
|
|
pop af
|
||
|
|
ld de, #VRAM_CHAR
|
||
|
|
push hl
|
||
|
|
add hl, de
|
||
|
|
ld (hl), a
|
||
|
|
pop hl
|
||
|
|
;; putattr
|
||
|
|
ld de, #VRAM_ATTR
|
||
|
|
add hl, de
|
||
|
|
ld a, (#_screen_reversed)
|
||
|
|
or a
|
||
|
|
jr z, _cputc_arch_normal
|
||
|
|
ld (hl), #COLOR_REVERSED
|
||
|
|
jr _cputc_arch_ret
|
||
|
|
_cputc_arch_normal:
|
||
|
|
ld (hl), #COLOR_NORMAL
|
||
|
|
ld a, #0x01
|
||
|
|
_cputc_arch_ret:
|
||
|
|
ld hl, #_screen_cursor
|
||
|
|
inc (hl)
|
||
|
|
ret
|
||
|
|
_cputc_arch_ret_false:
|
||
|
|
pop af
|
||
|
|
xor a
|
||
|
|
jr _cputc_arch_ret
|
||
|
|
|
||
|
|
;; ---------------------------------
|
||
|
|
;; void cputs_arch(char *str);
|
||
|
|
;; Stack; retl reth strl strh
|
||
|
|
;; AFB_DEHL____
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_cputs_arch:
|
||
|
|
ld hl, #2
|
||
|
|
add hl, sp
|
||
|
|
ld e, (hl)
|
||
|
|
inc hl
|
||
|
|
ld d, (hl)
|
||
|
|
ld b, #SCREEN_WIDTH ; max length
|
||
|
|
;; ------------
|
||
|
|
;; B = nchars
|
||
|
|
;; DE = str
|
||
|
|
;; AFB_DEHL____
|
||
|
|
;; ------------
|
||
|
|
_cputs_arch_loop:
|
||
|
|
ld a, (de)
|
||
|
|
or a
|
||
|
|
ret z
|
||
|
|
push bc
|
||
|
|
push de
|
||
|
|
call _cputc_arch_asm
|
||
|
|
pop de
|
||
|
|
pop bc
|
||
|
|
inc de
|
||
|
|
djnz _cputs_arch_loop
|
||
|
|
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);
|
||
|
|
;; Stack; retl reth length
|
||
|
|
;; AFB_DEHL____
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_chline_arch:
|
||
|
|
ld hl, #2
|
||
|
|
add hl, sp
|
||
|
|
ld b, (hl)
|
||
|
|
;; ------------
|
||
|
|
;; B = length
|
||
|
|
;; AFB_DEHL____
|
||
|
|
;; ------------
|
||
|
|
_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
|
||
|
|
ret
|
||
|
|
|
||
|
|
;; ---------------------------------
|
||
|
|
;; void cvline(unsigned char length);
|
||
|
|
;; Stack; retl reth length
|
||
|
|
;; AFB_DEHL____
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_cvline_arch:
|
||
|
|
ld hl, #2
|
||
|
|
add hl, sp
|
||
|
|
ld b, (hl) ; length
|
||
|
|
;; ------------
|
||
|
|
;; B = length
|
||
|
|
;; AFB_DEHL____
|
||
|
|
;; ------------
|
||
|
|
_cvline_arch_asm:
|
||
|
|
ld a, #CH_VERTLINE
|
||
|
|
ld hl, (#_screen_cursor) ; H=y, L=x
|
||
|
|
_cvline_arch_loop:
|
||
|
|
push hl
|
||
|
|
push bc
|
||
|
|
push af
|
||
|
|
call _cputc_arch_asm
|
||
|
|
pop af
|
||
|
|
pop bc
|
||
|
|
pop hl
|
||
|
|
inc h
|
||
|
|
ld (#_screen_cursor), hl
|
||
|
|
djnz _cvline_arch_loop
|
||
|
|
ret
|
||
|
|
|
||
|
|
;; ---------------------------------
|
||
|
|
;; void gotoxy(unsigned char x, unsigned char y)
|
||
|
|
;; Stack; retl reth x y
|
||
|
|
;; _F__DEHL____
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_gotoxy_arch:
|
||
|
|
ld hl, #2
|
||
|
|
add hl, sp
|
||
|
|
ld d, (hl) ; x
|
||
|
|
inc hl
|
||
|
|
ld e, (hl) ; y
|
||
|
|
;; ------------
|
||
|
|
;; D = x, E = y
|
||
|
|
;; ______HL____
|
||
|
|
;; ------------
|
||
|
|
_gotoxy_arch_asm:
|
||
|
|
ld l, d ; L=x
|
||
|
|
ld h, e ; H=y
|
||
|
|
ld (#_screen_cursor), hl
|
||
|
|
ret
|
||
|
|
|
||
|
|
;; ---------------------------------
|
||
|
|
;; void clearto_arch(unsigned char to)
|
||
|
|
;; Stack; retl reth to
|
||
|
|
;; AFBCDEHL____
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_clearto_arch:
|
||
|
|
ld hl, #2
|
||
|
|
add hl, sp
|
||
|
|
ld a, (hl)
|
||
|
|
_clearto_arch_loop:
|
||
|
|
ld hl, #_screen_cursor
|
||
|
|
cp (hl) ; to - cursx
|
||
|
|
ret z
|
||
|
|
ret c
|
||
|
|
push af
|
||
|
|
ld a, #CH_SPACE
|
||
|
|
call _cputc_arch_asm
|
||
|
|
or a
|
||
|
|
pop af
|
||
|
|
ret z
|
||
|
|
jr _clearto_arch_loop
|
||
|
|
|
||
|
|
;; ---------------------------------
|
||
|
|
;; void revers_arch(unsigned char reverse)
|
||
|
|
;; Stack; retl reth reverse
|
||
|
|
;; A_____HL____
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_revers_arch:
|
||
|
|
ld hl, #2
|
||
|
|
add hl, sp
|
||
|
|
ld a, (hl)
|
||
|
|
ld (#_screen_reversed), a
|
||
|
|
ret
|
||
|
|
|
||
|
|
;; ---------------------------------
|
||
|
|
;; void clip_arch(unsigned char clip1, unsigned char clip2)
|
||
|
|
;; Stack; retl reth clip1 clip2
|
||
|
|
;; ____________
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_clip_arch:
|
||
|
|
push af
|
||
|
|
push hl
|
||
|
|
push de
|
||
|
|
ld hl, #0x08
|
||
|
|
add hl, sp
|
||
|
|
ld de, #_screen_clips
|
||
|
|
ld a, (hl)
|
||
|
|
ld (de), a
|
||
|
|
inc hl
|
||
|
|
inc de
|
||
|
|
ld a, (hl)
|
||
|
|
ld (de), a
|
||
|
|
pop de
|
||
|
|
pop hl
|
||
|
|
pop af
|
||
|
|
ret
|
||
|
|
|
||
|
|
;; ---------------------------------
|
||
|
|
;; unsigned char wherex_arch()
|
||
|
|
;; Stack; retl reth
|
||
|
|
;; A_____HL____
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_wherex_arch:
|
||
|
|
ld a, (#_screen_cursor)
|
||
|
|
ld l, a
|
||
|
|
ret
|
||
|
|
|
||
|
|
;; ---------------------------------
|
||
|
|
;; void drawbox_arch(unsigned char x, y, w, h)
|
||
|
|
;; Stack; retl reth x y w h
|
||
|
|
;; AFBCDEHL____
|
||
|
|
;; return void
|
||
|
|
;; ---------------------------------
|
||
|
|
_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
|
||
|
|
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
|
||
|
|
|
||
|
|
_newline_arch:
|
||
|
|
ld hl, #_screen_cursor
|
||
|
|
xor a
|
||
|
|
ld (hl), a
|
||
|
|
inc hl
|
||
|
|
ld a, (hl)
|
||
|
|
inc a
|
||
|
|
cp a, #SCREEN_HEIGHT
|
||
|
|
jr nc, _newline_arch_scroll
|
||
|
|
ld (hl), a
|
||
|
|
ret
|
||
|
|
_newline_arch_scroll:
|
||
|
|
;; TODO: attr and specific impl
|
||
|
|
dec a
|
||
|
|
ld (hl), a
|
||
|
|
ld hl, #VRAM_CHAR + #SCREEN_WIDTH
|
||
|
|
ld de, #VRAM_CHAR
|
||
|
|
ld bc, #SCREEN_HEIGHT * #SCREEN_WIDTH - #SCREEN_WIDTH
|
||
|
|
ldir
|
||
|
|
ret
|
||
|
|
|
||
|
|
_libconio_arch_asm_end::
|