2014-08-26 22:52:29 +00:00
|
|
|
; superimpose & master library module
|
|
|
|
|
;
|
|
|
|
|
; Description:
|
|
|
|
|
; 画面を白からじわじわと正常にする
|
|
|
|
|
;
|
|
|
|
|
; Functions/Procedures:
|
|
|
|
|
; void palette_white_in( speed ) ;
|
|
|
|
|
;
|
|
|
|
|
; Parameters:
|
|
|
|
|
; speed 遅延時間(vsync単位) 0=遅延なし
|
|
|
|
|
;
|
|
|
|
|
; Returns:
|
|
|
|
|
;
|
|
|
|
|
;
|
|
|
|
|
; Binding Target:
|
|
|
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
|
|
|
|
;
|
|
|
|
|
; Running Target:
|
|
|
|
|
; PC-9801V
|
|
|
|
|
;
|
|
|
|
|
; Requiring Resources:
|
|
|
|
|
; CPU: 8086
|
|
|
|
|
;
|
|
|
|
|
; Notes:
|
|
|
|
|
;
|
|
|
|
|
;
|
|
|
|
|
; Compiler/Assembler:
|
|
|
|
|
; TASM 3.0
|
|
|
|
|
; OPTASM 1.6
|
|
|
|
|
;
|
|
|
|
|
; Author:
|
|
|
|
|
; Kazumi(奥田 仁)
|
|
|
|
|
; 恋塚(恋塚昭彦)
|
|
|
|
|
;
|
|
|
|
|
; Revision History:
|
|
|
|
|
;
|
|
|
|
|
;$Id: whitein.asm 0.01 93/02/19 20:14:23 Kazumi Rel $
|
|
|
|
|
;
|
|
|
|
|
; 93/ 3/20 Initial: master.lib <- super.lib 0.22b
|
|
|
|
|
; 93/ 9/13 [M0.21] palette_show使用(忘れてた(^^;)
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
func PALETTE_WHITE_IN ; palette_white_in() {
|
|
|
|
|
mov BX,SP
|
|
|
|
|
push SI
|
|
|
|
|
push DI
|
|
|
|
|
; 引数
|
2018-03-20 18:26:44 +00:00
|
|
|
@@speed = (RETSIZE+0)*2
|
|
|
|
|
mov SI,SS:[BX+@@speed]
|
2014-08-26 22:52:29 +00:00
|
|
|
|
|
|
|
|
mov PaletteTone,200
|
|
|
|
|
call VSYNC_WAIT ; 表示タイミングあわせ
|
|
|
|
|
@@MLOOP:
|
|
|
|
|
call PALETTE_SHOW
|
|
|
|
|
mov DI,SI
|
|
|
|
|
cmp DI,0
|
|
|
|
|
jle short @@SKIP
|
|
|
|
|
@@VWAIT:
|
|
|
|
|
call VSYNC_WAIT
|
|
|
|
|
dec DI
|
|
|
|
|
jnz short @@VWAIT
|
|
|
|
|
@@SKIP:
|
|
|
|
|
|
|
|
|
|
sub PaletteTone,6
|
|
|
|
|
cmp PaletteTone,100
|
|
|
|
|
jg short @@MLOOP
|
|
|
|
|
|
|
|
|
|
mov PaletteTone,100
|
|
|
|
|
call PALETTE_SHOW
|
|
|
|
|
pop DI
|
|
|
|
|
pop SI
|
|
|
|
|
ret 2
|
|
|
|
|
endfunc ; }
|
