TIP: Click on subject to list as thread! ANSI
echo: 80xxx
to: MERVYN BALDWIN
from: BARRY BLOCK
date: 1997-05-29 15:33:00
subject: Re: diffuse.asm

Hello Mervyn,
 BB> Anyone want to share a screen clearing routine?
 JV> This only works properly in the Northern Hemisphere.
 MB> I'm up there and couldn't get it to go in a translation for A86.
     I did :-)
     ...(fade.asm that you posted)...
     You implied that this bat will restore the screen?
 MB> I have a BAT file I use often
 MB> @echo off
 MB> mode con: lines=43
 MB> mode con: rate=32 delay=1
     This did not restore the screen after running the fade.
     I added some code to detect a keypress, clear it, and
     invoke a mode3 screen. Then your batch would set 43 lines.
     Also removed all the delay loops!
     They did nothing, here (ET-4000 isa vga card).
     I would rather fade up the screen.
     Here is the A86 format code.
;----------------------------------------------------------------
;FADE. From PC magV4#12p296. (UK Edition)
;Translated from DEBUG script to A86.
;Fades VGA screen. Recover by setting mode.
;posted by Mervyn Baldwin (vyn@abaldwin.demon.co.uk) 28-May-97
;added keypress check and restore mode3 by Barry Block 29-May-97
mov ax,1017h            ;read block colour regs
xor bx,bx               ;1st. reg to read
mov cx,40h              ;regs to read
mov dx,offset buffer    ;to hold reg values
int 10h
mov cx,40h
L1:
push cx
mov cx,0c0
mov si,offset buffer
L2:
cmp b[si],0
je >L3
dec b[si]
L3:
inc si
loop L2
mov ax,1012h            ;set block colour regs
xor bx,bx               ;1st. reg to set
mov cx,40h              ;regs to set
mov dx,offset buffer    ;of stored values
int 10h
pop cx
loop L1
L4:
mov ah,1                ;check for keypress
int 16h
jz L4
mov ax,0C00h            ;clear keybuffer
int 21h
mov ax,0003             ;set mode 3
int 10h
int 20h                 ;exit to dos
buffer:
;----------------------------------------------------------------
 MB> I also have a FADEUP from same source if anybody needs it.
     I would like it, though I think it will only inc the loop
     instead of "decing" it.
Kind regards, Barry
---------------
* Origin: EBO-BBS A'dam +31-20-6002828 (2:280/901.42)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.