mirror of https://github.com/nmlgc/ReC98.git
105 lines
1.5 KiB
NASM
105 lines
1.5 KiB
NASM
|
; master library - PC98
|
||
|
|
;
|
||
|
|
; Description:
|
||
|
|
; テキスト画面への外字文字列の書き込み
|
||
|
|
; 幅指定なし・属性あり
|
||
|
|
;
|
||
|
|
; Function/Procedures:
|
||
|
|
; void gaiji_putsa( unsigned x, unsigned y, char *strp, unsigned atrb ) ;
|
||
|
|
;
|
||
|
|
; Parameters:
|
||
|
|
; unsigned x 左端の座標 ( 0 〜 79 )
|
||
|
|
; unsigned y 上端の座標 ( 0 〜 24 )
|
||
|
|
; char * strp 外字文字列の先頭アドレス ( NULLは禁止 )
|
||
|
|
; unsigned atrb 属性
|
||
|
|
;
|
||
|
|
; Returns:
|
||
|
|
; none
|
||
|
|
;
|
||
|
|
; Binding Target:
|
||
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
||
|
|
;
|
||
|
|
; Running Target:
|
||
|
|
; PC-9801
|
||
|
|
;
|
||
|
|
; Requiring Resources:
|
||
|
|
; CPU: 8086
|
||
|
|
;
|
||
|
|
; Notes:
|
||
|
|
;
|
||
|
|
;
|
||
|
|
; Compiler/Assembler:
|
||
|
|
; TASM 3.0
|
||
|
|
; OPTASM 1.6
|
||
|
|
;
|
||
|
|
; Author:
|
||
|
|
; 恋塚昭彦
|
||
|
|
;
|
||
|
|
; Revision History:
|
||
|
|
; 92/11/24 Initial
|
||
|
|
; 93/1/26 bugfix
|
||
|
|
|
||
|
|
func GAIJI_PUTSA
|
||
|
|
mov DX,BP ; push BP
|
||
|
|
mov BP,SP
|
||
|
|
|
||
|
|
push SI
|
||
|
|
push DI
|
||
|
|
|
||
|
|
; 引数
|
||
|
|
@@x = (RETSIZE+2+DATASIZE)*2
|
||
|
|
@@y = (RETSIZE+1+DATASIZE)*2
|
||
|
|
@@strp = (RETSIZE+1)*2
|
||
|
|
@@atrb = (RETSIZE+0)*2
|
||
|
|
|
||
|
|
mov AX,[BP + @@y] ; アドレス計算
|
||
|
|
mov DI,AX
|
||
|
|
shl AX,1
|
||
|
|
shl AX,1
|
||
|
|
add DI,AX
|
||
|
|
shl DI,1 ; DI = y * 10
|
||
|
|
add DI,TextVramSeg
|
||
|
|
mov ES,DI
|
||
|
|
mov DI,[BP + @@x]
|
||
|
|
shl DI,1
|
||
|
|
|
||
|
|
_push DS
|
||
|
|
_lds SI,[BP+@@strp]
|
||
|
|
mov CX,DI
|
||
|
|
mov BX,[BP+@@atrb]
|
||
|
|
|
||
|
|
mov BP,DX ; pop BP
|
||
|
|
|
||
|
|
lodsb
|
||
|
|
or AL,AL
|
||
|
|
je short @@EXITLOOP
|
||
|
|
EVEN
|
||
|
|
@@SLOOP:
|
||
|
|
mov AH,AL
|
||
|
|
mov AL,0
|
||
|
|
rol AX,1
|
||
|
|
shr AX,1
|
||
|
|
adc AL,56h
|
||
|
|
stosw
|
||
|
|
or AH,80h
|
||
|
|
stosw
|
||
|
|
|
||
|
|
lodsb
|
||
|
|
or AL,AL
|
||
|
|
jne short @@SLOOP
|
||
|
|
@@EXITLOOP:
|
||
|
|
|
||
|
|
; 属性の書き込み
|
||
|
|
xchg CX,DI
|
||
|
|
sub CX,DI
|
||
|
|
shr CX,1
|
||
|
|
mov AX,BX ; atrb
|
||
|
|
add DI,2000h
|
||
|
|
rep stosw
|
||
|
|
|
||
|
|
_pop DS
|
||
|
|
pop DI
|
||
|
|
pop SI
|
||
|
|
ret (3+datasize)*2
|
||
|
|
endfunc
|