mirror of https://github.com/nmlgc/ReC98.git
202 lines
3.1 KiB
NASM
202 lines
3.1 KiB
NASM
; master library - graphic - packedpixel - put - hline - 8dot - PC98V
|
|
;
|
|
; Description:
|
|
; Copy of graph_pack_put_8() that does not clip the Y coordinate to
|
|
; ClipYH and ClipYT.
|
|
;
|
|
; Function/Procedures:
|
|
; void graph_pack_put_8_noclip( int x, int y, void far * linepat, int len ) ;
|
|
;
|
|
; Parameters:
|
|
; x 描画開始 x 座標( 0〜639, ただし8ドット単位に切り捨て )
|
|
; y 描画 y 座標( 0 〜 399(※400ライン表示のとき)
|
|
; linepat パターンデータの先頭アドレス
|
|
; len パターンデータの横ドット数
|
|
; ただし実際には8dot単位に切り詰めます。
|
|
;
|
|
; Returns:
|
|
; none
|
|
;
|
|
; Binding Target:
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
|
;
|
|
; Running Target:
|
|
; PC-9801V
|
|
;
|
|
; Requiring Resources:
|
|
; CPU: V30
|
|
;
|
|
; Notes:
|
|
; クリッピングは縦方向だけ gc_poly 相当の処理を行っています。
|
|
; 横は画面幅でクリッピングできます。
|
|
;
|
|
; Assembly Language Note:
|
|
;
|
|
;
|
|
; Compiler/Assembler:
|
|
; TASM 3.0
|
|
; OPTASM 1.6
|
|
;
|
|
; Author:
|
|
; 恋塚昭彦
|
|
; ZUN
|
|
;
|
|
; Revision History:
|
|
; (see graph_pack_put_8)
|
|
|
|
SCREEN_XBYTE equ 80
|
|
|
|
USE_GRCG = 0 ; 1にするとGRCGを使うが少し遅くなる(RA21+VMM386)
|
|
USE_TABLE = 1
|
|
|
|
ROTATE macro wreg,lh,ll
|
|
rept 2
|
|
rol wreg,1
|
|
RCL DH,1
|
|
rol wreg,1
|
|
RCL DL,1
|
|
rol wreg,1
|
|
RCL lh,1
|
|
rol wreg,1
|
|
RCL ll,1
|
|
endm
|
|
endm
|
|
GC_MODEREG equ 7ch
|
|
GC_TILEREG equ 7eh
|
|
|
|
|
|
MRETURN macro
|
|
pop DI
|
|
pop SI
|
|
pop BP
|
|
ret 5*2
|
|
EVEN
|
|
endm
|
|
|
|
retfunc GRPPP8NC_CLIPOUT
|
|
MRETURN
|
|
endfunc
|
|
|
|
func GRAPH_PACK_PUT_8_NOCLIP ; graph_pack_put_8_noclip() {
|
|
push BP
|
|
mov BP,SP
|
|
push SI
|
|
push DI
|
|
|
|
; 引数
|
|
@@x = (RETSIZE+5)*2
|
|
@@y = (RETSIZE+4)*2
|
|
@@linepat = (RETSIZE+2)*2
|
|
@@len = (RETSIZE+1)*2
|
|
|
|
mov AX,[BP+@@y]
|
|
mov CX,[BP+@@len]
|
|
sar CX,3 ; 8dot単位に切り捨てる
|
|
jle short GRPPP8NC_CLIPOUT
|
|
|
|
mov SI,[BP+@@linepat]
|
|
|
|
mov DI,[BP+@@x]
|
|
sar DI,3 ; xを8ドット単位に補正
|
|
jns short @@XNORMAL
|
|
add CX,DI
|
|
jle short GRPPP8NC_CLIPOUT
|
|
shl DI,2
|
|
add SI,DI
|
|
xor DI,DI
|
|
@@XNORMAL:
|
|
cmp DI,SCREEN_XBYTE
|
|
jge short GRPPP8NC_CLIPOUT
|
|
|
|
add CX,DI
|
|
cmp CX,SCREEN_XBYTE
|
|
jl short @@RIGHTCLIPPED
|
|
mov CX,SCREEN_XBYTE
|
|
@@RIGHTCLIPPED:
|
|
sub CX,DI
|
|
imul AX,AX,SCREEN_XBYTE
|
|
add DI,AX ; DI = draw address
|
|
|
|
IF USE_GRCG
|
|
pushf
|
|
CLI
|
|
mov AL,80h ; GC_TDW
|
|
out GC_MODEREG,AL
|
|
popf
|
|
ENDIF
|
|
|
|
; 描画開始
|
|
push DS
|
|
mov ES,ClipYT_seg
|
|
mov DS,[BP+@@linepat+2]
|
|
|
|
mov BP,CX
|
|
CLD
|
|
EVEN
|
|
@@XLOOP:
|
|
|
|
IF USE_TABLE
|
|
mov CL,2
|
|
|
|
mov BL,[SI]
|
|
mov BH,0
|
|
shl BX,CL
|
|
mov AX,word ptr CS:RotTbl[BX]
|
|
mov DX,word ptr CS:RotTbl[BX+2]
|
|
inc SI
|
|
REPT 3
|
|
shl AX,CL
|
|
shl DX,CL
|
|
mov BL,[SI]
|
|
mov BH,0
|
|
shl BX,CL
|
|
or AX,word ptr CS:RotTbl[BX]
|
|
or DX,word ptr CS:RotTbl[BX+2]
|
|
inc SI
|
|
ENDM
|
|
ELSE
|
|
mov CX,2
|
|
@@LOOP8:
|
|
lodsw
|
|
ROTATE AL,BH,BL
|
|
ROTATE AH,BH,BL
|
|
loop short @@LOOP8
|
|
mov AX,BX
|
|
ENDIF
|
|
|
|
IF USE_GRCG
|
|
out GC_TILEREG,AL
|
|
mov AL,AH
|
|
out GC_TILEREG,AL
|
|
mov AX,DX
|
|
out GC_TILEREG,AL
|
|
mov AL,AH
|
|
out GC_TILEREG,AL
|
|
stosb
|
|
ELSE
|
|
mov ES:[DI],AL ; 0a800h
|
|
mov BX,ES
|
|
mov ES:[DI+8000h],AH ; 0b000h
|
|
add BH,10h
|
|
mov ES,BX
|
|
mov ES:[DI],DL ; 0b800h
|
|
add BH,28h
|
|
mov ES,BX
|
|
mov ES:[DI],DH ; 0e000h
|
|
sub BH,38h
|
|
mov ES,BX
|
|
inc DI
|
|
ENDIF
|
|
|
|
dec BP
|
|
jnz short @@XLOOP
|
|
|
|
pop DS
|
|
|
|
IF USE_GRCG
|
|
mov AL,0
|
|
out GC_MODEREG,AL
|
|
ENDIF
|
|
MRETURN
|
|
endfunc ; }
|