mirror of https://github.com/nmlgc/ReC98.git
[Reduction] #249-250: super_put_8
This commit is contained in:
nmlgc
parent
7efab8b20f
commit
2d8f579e14
|
|
@ -0,0 +1,181 @@
|
|||
; superimpose & master library module
|
||||
;
|
||||
; Description:
|
||||
; パターン表示 [横8dot単位]
|
||||
;
|
||||
; Functions/Procedures:
|
||||
; void super_put_8( int x, int y, int num ) ;
|
||||
;
|
||||
; Parameters:
|
||||
; x,y 座標
|
||||
; num パターン番号
|
||||
;
|
||||
; Returns:
|
||||
; none
|
||||
;
|
||||
; Binding Target:
|
||||
; Microsoft-C / Turbo-C / Turbo Pascal
|
||||
;
|
||||
; Running Target:
|
||||
; PC-9801V
|
||||
;
|
||||
; Requiring Resources:
|
||||
; CPU: V30
|
||||
; GRCG
|
||||
;
|
||||
; Notes:
|
||||
;
|
||||
;
|
||||
; Compiler/Assembler:
|
||||
; TASM 3.0
|
||||
; OPTASM 1.6
|
||||
;
|
||||
; Author:
|
||||
; Kazumi(奥田 仁)
|
||||
; 恋塚(恋塚昭彦)
|
||||
;
|
||||
; Revision History:
|
||||
;
|
||||
;$Id: superpt8.asm 0.07 92/05/29 20:37:21 Kazumi Rel $
|
||||
;
|
||||
; 93/ 3/20 Initial: master.lib <- super.lib 0.22b
|
||||
; 93/ 5/ 4 [M0.16]
|
||||
;
|
||||
|
||||
func SUPER_PUT_8
|
||||
push BP
|
||||
mov BP,SP
|
||||
push DS
|
||||
push SI
|
||||
push DI
|
||||
|
||||
@@x = (RETSIZE+3)*2
|
||||
@@y = (RETSIZE+2)*2
|
||||
@@num = (RETSIZE+1)*2
|
||||
|
||||
mov CX,[BP+@@x]
|
||||
mov AX,[BP+@@y]
|
||||
mov BX,[BP+@@num]
|
||||
|
||||
mov BP,AX ;-+
|
||||
shl AX,2 ; |
|
||||
add BP,AX ; |DI=y*80
|
||||
shl BP,4 ;-+
|
||||
shr CX,3 ;CX=x/8
|
||||
add BP,CX ;GVRAM offset address
|
||||
shl BX,1 ;integer size & near pointer
|
||||
mov AX,super_patsize[BX] ;pattern size (1-8)
|
||||
xor SI,SI
|
||||
mov DS,super_patdata[BX] ;BX+2 -> BX
|
||||
|
||||
mov BL,AH
|
||||
xor BH,BH
|
||||
mov DX,80
|
||||
sub DL,AH
|
||||
mov AH,AL
|
||||
|
||||
mov CX,0a800h
|
||||
mov ES,CX
|
||||
|
||||
mov AL,0c0h ;RMW mode
|
||||
out 7ch,AL
|
||||
mov AL,0
|
||||
out 7eh,AL
|
||||
out 7eh,AL
|
||||
out 7eh,AL
|
||||
out 7eh,AL
|
||||
call SUPERPT8_DISP ;cls
|
||||
|
||||
mov AL,11001110b
|
||||
out 7ch,AL ;RMW mode
|
||||
mov AL,0ffh
|
||||
out 7eh,AL
|
||||
out 7eh,AL
|
||||
out 7eh,AL
|
||||
out 7eh,AL
|
||||
|
||||
call SUPERPT8_DISP
|
||||
mov AL,11001101b
|
||||
out 7ch,AL ;RMW mode
|
||||
call SUPERPT8_DISP
|
||||
mov AL,11001011b
|
||||
out 7ch,AL ;RMW mode
|
||||
call SUPERPT8_DISP
|
||||
mov AL,11000111b
|
||||
out 7ch,AL ;RMW mode
|
||||
call SUPERPT8_DISP
|
||||
|
||||
xor AL,AL
|
||||
out 7ch,AL ;grcg off
|
||||
|
||||
pop DI
|
||||
pop SI
|
||||
pop DS
|
||||
pop BP
|
||||
ret 6
|
||||
endfunc
|
||||
|
||||
;
|
||||
; 表示サブルーチン
|
||||
;
|
||||
SUPERPT8_DISP proc near
|
||||
mov DI,BP
|
||||
|
||||
mov AL,AH
|
||||
test DI,1
|
||||
jnz short @@ODD_ADDRESS
|
||||
|
||||
shr BX,1
|
||||
jb short @@EAOS
|
||||
|
||||
EVEN
|
||||
@@EAES:
|
||||
mov CX,BX
|
||||
rep movsw
|
||||
add DI,DX
|
||||
dec AL
|
||||
jnz short @@EAES
|
||||
shl BX,1
|
||||
ret
|
||||
|
||||
EVEN
|
||||
@@EAOS:
|
||||
mov CX,BX
|
||||
rep movsw
|
||||
movsb
|
||||
add DI,DX
|
||||
dec AL
|
||||
jnz short @@EAOS
|
||||
stc
|
||||
rcl BX,1
|
||||
ret
|
||||
EVEN
|
||||
|
||||
@@ODD_ADDRESS:
|
||||
shr BX,1
|
||||
jb short @@OAOS
|
||||
EVEN
|
||||
@@OAES:
|
||||
mov CX,BX
|
||||
dec CX
|
||||
movsb
|
||||
rep movsw
|
||||
movsb
|
||||
add DI,DX
|
||||
dec AL
|
||||
jnz short @@OAES
|
||||
shl BX,1
|
||||
ret
|
||||
|
||||
EVEN
|
||||
@@OAOS:
|
||||
mov CX,BX
|
||||
movsb
|
||||
rep movsw
|
||||
add DI,DX
|
||||
dec AL
|
||||
jnz short @@OAOS
|
||||
stc
|
||||
rcl BX,1
|
||||
ret
|
||||
SUPERPT8_DISP endp
|
||||
141
th01_zunsoft.asm
141
th01_zunsoft.asm
|
|
@ -595,14 +595,14 @@ loc_7AE:
|
|||
mov al, ds:2873h
|
||||
cbw
|
||||
push ax
|
||||
call sub_E9C
|
||||
call super_put_8
|
||||
push 140h
|
||||
push 0C0h
|
||||
mov al, ds:2873h
|
||||
cbw
|
||||
inc ax
|
||||
push ax
|
||||
call sub_E9C
|
||||
call super_put_8
|
||||
|
||||
loc_7CB:
|
||||
pop bp
|
||||
|
|
@ -751,142 +751,7 @@ include libs/master.lib/dos_ropen.asm
|
|||
include libs/master.lib/super_entry_bfnt.asm
|
||||
include libs/master.lib/super_cancel_pat.asm
|
||||
include libs/master.lib/super_entry_pat.asm
|
||||
|
||||
; =============== S U B R O U T I N E =======================================
|
||||
|
||||
; Attributes: bp-based frame
|
||||
|
||||
sub_E9C proc near
|
||||
|
||||
arg_0 = word ptr 4
|
||||
arg_2 = word ptr 6
|
||||
arg_4 = word ptr 8
|
||||
|
||||
push bp
|
||||
mov bp, sp
|
||||
push ds
|
||||
push si
|
||||
push di
|
||||
mov cx, [bp+arg_4]
|
||||
mov ax, [bp+arg_2]
|
||||
mov bx, [bp+arg_0]
|
||||
mov bp, ax
|
||||
shl ax, 2
|
||||
add bp, ax
|
||||
shl bp, 4
|
||||
shr cx, 3
|
||||
add bp, cx
|
||||
shl bx, 1
|
||||
mov ax, [bx+2DC6h]
|
||||
xor si, si
|
||||
mov ds, word ptr [bx+29C6h]
|
||||
mov bl, ah
|
||||
xor bh, bh
|
||||
mov dx, 50h
|
||||
sub dl, ah
|
||||
mov ah, al
|
||||
mov cx, 0A800h
|
||||
mov es, cx
|
||||
assume es:nothing
|
||||
mov al, 0C0h
|
||||
out 7Ch, al
|
||||
mov al, 0
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
call sub_F18
|
||||
mov al, 0CEh
|
||||
out 7Ch, al
|
||||
mov al, 0FFh
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
call sub_F18
|
||||
mov al, 0CDh
|
||||
out 7Ch, al
|
||||
call sub_F18
|
||||
mov al, 0CBh
|
||||
out 7Ch, al
|
||||
call sub_F18
|
||||
mov al, 0C7h
|
||||
out 7Ch, al
|
||||
call sub_F18
|
||||
xor al, al
|
||||
out 7Ch, al
|
||||
pop di
|
||||
pop si
|
||||
pop ds
|
||||
pop bp
|
||||
retn 6
|
||||
sub_E9C endp
|
||||
|
||||
|
||||
; =============== S U B R O U T I N E =======================================
|
||||
|
||||
|
||||
sub_F18 proc near
|
||||
mov di, bp
|
||||
mov al, ah
|
||||
test di, 1
|
||||
jnz short loc_F44
|
||||
shr bx, 1
|
||||
jb short loc_F34
|
||||
|
||||
loc_F26:
|
||||
mov cx, bx
|
||||
rep movsw
|
||||
add di, dx
|
||||
dec al
|
||||
jnz short loc_F26
|
||||
shl bx, 1
|
||||
retn
|
||||
; ---------------------------------------------------------------------------
|
||||
nop
|
||||
|
||||
loc_F34:
|
||||
mov cx, bx
|
||||
rep movsw
|
||||
movsb
|
||||
add di, dx
|
||||
dec al
|
||||
jnz short loc_F34
|
||||
stc
|
||||
rcl bx, 1
|
||||
retn
|
||||
; ---------------------------------------------------------------------------
|
||||
nop
|
||||
|
||||
loc_F44:
|
||||
shr bx, 1
|
||||
jb short loc_F58
|
||||
|
||||
loc_F48:
|
||||
mov cx, bx
|
||||
dec cx
|
||||
movsb
|
||||
rep movsw
|
||||
movsb
|
||||
add di, dx
|
||||
dec al
|
||||
jnz short loc_F48
|
||||
shl bx, 1
|
||||
retn
|
||||
; ---------------------------------------------------------------------------
|
||||
|
||||
loc_F58:
|
||||
mov cx, bx
|
||||
movsb
|
||||
rep movsw
|
||||
add di, dx
|
||||
dec al
|
||||
jnz short loc_F58
|
||||
stc
|
||||
rcl bx, 1
|
||||
retn
|
||||
sub_F18 endp
|
||||
|
||||
include libs/master.lib/super_put_8.asm
|
||||
include libs/master.lib/super_free.asm
|
||||
include libs/master.lib/super_entry_at.asm
|
||||
|
||||
|
|
|
|||
140
th05_main.asm
140
th05_main.asm
|
|
@ -4061,143 +4061,7 @@ locret_40E5:
|
|||
retf
|
||||
sub_40CE endp
|
||||
|
||||
|
||||
; =============== S U B R O U T I N E =======================================
|
||||
|
||||
; Attributes: bp-based frame
|
||||
|
||||
sub_40E6 proc far
|
||||
|
||||
arg_0 = word ptr 6
|
||||
arg_2 = word ptr 8
|
||||
arg_4 = word ptr 0Ah
|
||||
|
||||
push bp
|
||||
mov bp, sp
|
||||
push ds
|
||||
push si
|
||||
push di
|
||||
mov cx, [bp+arg_4]
|
||||
mov ax, [bp+arg_2]
|
||||
mov bx, [bp+arg_0]
|
||||
mov bp, ax
|
||||
shl ax, 2
|
||||
add bp, ax
|
||||
shl bp, 4
|
||||
shr cx, 3
|
||||
add bp, cx
|
||||
shl bx, 1
|
||||
mov ax, [bx+2A9Eh]
|
||||
xor si, si
|
||||
mov ds, word ptr [bx+269Eh]
|
||||
mov bl, ah
|
||||
xor bh, bh
|
||||
mov dx, 50h ; 'P'
|
||||
sub dl, ah
|
||||
mov ah, al
|
||||
mov cx, 0A800h
|
||||
mov es, cx
|
||||
assume es:nothing
|
||||
mov al, 0C0h ; 'À'
|
||||
out 7Ch, al
|
||||
mov al, 0
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
call sub_4162
|
||||
mov al, 0CEh ; 'Î'
|
||||
out 7Ch, al
|
||||
mov al, 0FFh
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
out 7Eh, al
|
||||
call sub_4162
|
||||
mov al, 0CDh ; 'Í'
|
||||
out 7Ch, al
|
||||
call sub_4162
|
||||
mov al, 0CBh ; 'Ë'
|
||||
out 7Ch, al
|
||||
call sub_4162
|
||||
mov al, 0C7h ; 'Ç'
|
||||
out 7Ch, al
|
||||
call sub_4162
|
||||
xor al, al
|
||||
out 7Ch, al
|
||||
pop di
|
||||
pop si
|
||||
pop ds
|
||||
pop bp
|
||||
retf 6
|
||||
sub_40E6 endp
|
||||
|
||||
|
||||
; =============== S U B R O U T I N E =======================================
|
||||
|
||||
|
||||
sub_4162 proc near
|
||||
mov di, bp
|
||||
mov al, ah
|
||||
test di, 1
|
||||
jnz short loc_418E
|
||||
shr bx, 1
|
||||
jb short loc_417E
|
||||
|
||||
loc_4170:
|
||||
mov cx, bx
|
||||
rep movsw
|
||||
add di, dx
|
||||
dec al
|
||||
jnz short loc_4170
|
||||
shl bx, 1
|
||||
retn
|
||||
; ---------------------------------------------------------------------------
|
||||
nop
|
||||
|
||||
loc_417E:
|
||||
mov cx, bx
|
||||
rep movsw
|
||||
movsb
|
||||
add di, dx
|
||||
dec al
|
||||
jnz short loc_417E
|
||||
stc
|
||||
rcl bx, 1
|
||||
retn
|
||||
; ---------------------------------------------------------------------------
|
||||
nop
|
||||
|
||||
loc_418E:
|
||||
shr bx, 1
|
||||
jb short loc_41A2
|
||||
|
||||
loc_4192:
|
||||
mov cx, bx
|
||||
dec cx
|
||||
movsb
|
||||
rep movsw
|
||||
movsb
|
||||
add di, dx
|
||||
dec al
|
||||
jnz short loc_4192
|
||||
shl bx, 1
|
||||
retn
|
||||
; ---------------------------------------------------------------------------
|
||||
|
||||
loc_41A2:
|
||||
mov cx, bx
|
||||
movsb
|
||||
rep movsw
|
||||
add di, dx
|
||||
dec al
|
||||
jnz short loc_41A2
|
||||
stc
|
||||
rcl bx, 1
|
||||
retn
|
||||
sub_4162 endp
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
include libs/master.lib/super_put_8.asm
|
||||
db 0
|
||||
|
||||
; =============== S U B R O U T I N E =======================================
|
||||
|
|
@ -29199,7 +29063,7 @@ loc_1115E:
|
|||
push si
|
||||
push word ptr [bp-2]
|
||||
push di
|
||||
call sub_40E6
|
||||
call super_put_8
|
||||
inc word ptr [bp-4]
|
||||
add si, 40h ; '@'
|
||||
inc di
|
||||
|
|
|
|||
Loading…
Reference in New Issue