mirror of https://github.com/nmlgc/ReC98.git
74 lines
1.0 KiB
NASM
74 lines
1.0 KiB
NASM
|
; master library - PC98
|
||
|
|
;
|
||
|
|
; Description:
|
||
|
|
; テキスト画面全体を指定文字・指定属性で埋める
|
||
|
|
;
|
||
|
|
; Function/Procedures:
|
||
|
|
; void text_fillca( unsigned chr, unsigned atrb ) ;
|
||
|
|
;
|
||
|
|
; Parameters:
|
||
|
|
; unsigned chr 文字(現在は ANKのみ)
|
||
|
|
; 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/15 Initial
|
||
|
|
; 92/12/22 あー、shl xx,1が4行続いてたので、CL=4,shl xx,CLにしたのね
|
||
|
|
|
||
|
|
func TEXT_FILLCA
|
||
|
|
mov BX,BP
|
||
|
|
mov BP,SP
|
||
|
|
push DI
|
||
|
|
|
||
|
|
; 引数
|
||
|
|
chr = (RETSIZE+1)*2
|
||
|
|
atrb = (RETSIZE+0)*2
|
||
|
|
|
||
|
|
xor AX,AX
|
||
|
|
mov ES,AX
|
||
|
|
mov AL,ES:0712h ; 行数
|
||
|
|
inc AX
|
||
|
|
mov DX,AX
|
||
|
|
shl DX,1
|
||
|
|
shl DX,1
|
||
|
|
add DX,AX
|
||
|
|
mov CL,4
|
||
|
|
shl DX,CL ; DX = 行数 * 80
|
||
|
|
mov CX,DX
|
||
|
|
|
||
|
|
mov ES,TextVramSeg
|
||
|
|
xor DI,DI
|
||
|
|
mov AX,[BP + chr]
|
||
|
|
rep stosw
|
||
|
|
|
||
|
|
mov CX,DX
|
||
|
|
mov DI,2000h
|
||
|
|
mov AX,[BP + atrb]
|
||
|
|
rep stosw
|
||
|
|
|
||
|
|
pop DI
|
||
|
|
mov BP,BX
|
||
|
|
ret 4
|
||
|
|
endfunc
|