Metropoli BBS - animate.asm

VIEWER: animate.asm MODE: TEXT (ASCII)
SLOWDOWN            equ       0h
RED       equ       05h
GREEN     equ       02h
BLUE      equ       04h
WHITE     equ       08h
VGA_SEGMENT         equ       0a000h
SC_INDEX            equ       3c4h
MAP_MASK            equ       2
SCREEN_WIDTH        equ       80
SCREEN_HEIGHT       equ       350       ;???????????
WORD_OUTS_OK        equ       1
stack     segment   para stack 'STACK'
			 db        512 dup (?)
stack     ends
ObjectStructure     struc
Delay               dw        ?
BaseDelay           dw        ?
Image               dw        ?
XCoord              dw        ?
XInc                dw        ?
XLeftLimit          dw        ?
XRightLimit         dw        ?
YCoord              dw        ?
YInc                dw        ?
YTopLimit           dw        ?
YBottomLimit        dw        ?
PlaneSelect         db        ?
                    db        ?
ObjectStructure     ends
Data    segment word 'DATA'
Colors  db        000h
	db        03ch
	db        03ah
	db        03ch
	db        039h
	db        03ch
	db        03ah
	db        03ch
	db        03fh
	db        03ch
	db        03ah
	db        03ch
	db        039h
	db        03ch
	db        03ah
	db        03ch
	db        000h
Square  label     byte
	dw        48,6
	rept      8
	db        0,0,0,0,0,0
	endm
	.radix    2
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,00000000,00000000,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	db        0,11111111,11111111,11111111,11111111,0
	.radix    10
	rept	    8
	db	    0,0,0,0,0,0
	endm
Diamond	label	byte
	dw	48,6
	rept	8
	db	0,0,0,0,0,0
	endm
	.radix	2
	db        0,00000000,00000001,10000000,00000000,0
	db        0,00000000,00000011,11000000,00000000,0
	db        0,00000000,00000111,11100000,00000000,0
	db        0,00000000,00001111,11110000,00000000,0
	db        0,00000000,00011111,11111000,00000000,0
	db        0,00000000,00111110,01111100,00000000,0
	db        0,00000000,01111100,00111110,00000000,0
	db        0,00000000,11111000,00011111,00000000,0
	db        0,00000001,11110000,00001111,10000000,0
	db        0,00000011,11100000,00000111,11000000,0
	db        0,00000111,11000000,00000011,11100000,0
	db        0,00001111,10000001,10000001,11110000,0
	db        0,00011111,00000011,11000000,11111000,0
	db        0,00111110,00000111,11100000,01111100,0
	db        0,01111100,00001111,11110000,00111110,0
	db        0,11111000,00011111,11111000,00011111,0
	db        0,11111000,00011111,11111000,00011111,0
	db        0,01111100,00001111,11110000,00111110,0
	db        0,00111110,00000111,11100000,01111100,0
	db        0,00011111,00000011,11000000,11111000,0
	db        0,00001111,10000001,10000001,11110000,0
	db        0,00000111,11000000,00000011,11100000,0
	db        0,00000011,11100000,00000111,11000000,0
	db        0,00000001,11110000,00001111,10000000,0
	db        0,00000000,11111000,00011111,00000000,0
	db        0,00000000,01111100,00111110,00000000,0
	db        0,00000000,00111110,01111100,00000000,0
	db        0,00000000,00011111,11111000,00000000,0
	db        0,00000000,00001111,11110000,00000000,0
	db        0,00000000,00000111,11100000,00000000,0
	db        0,00000000,00000011,11000000,00000000,0
	db        0,00000000,00000001,10000000,00000000,0
	.radix	10
	rept	8
	db	0,0,0,0,0,0
	endm
	even
ObjectList	label	ObjectStructure
 ObjectStructure <1,21,Diamond,88,8,80,512,016,0,0,350,RED>
 ObjectStructure <1,15,Square ,296,8,112,480,144,0,0,350,RED>
 ObjectStructure <1,23,Diamond,88,8,80,512,256,0,0,350,RED>
 ObjectStructure <1,13,Square ,120,0,0,640,144,4,0,280,BLUE>
 ObjectStructure <1,11,Diamond,208,0,0,512,144,4,0,280,BLUE>
 ObjectStructure <1,08,Square ,296,0,0,512,144,4,0,288,BLUE>
 ObjectStructure <1,09,Diamond,384,0,0,512,144,4,0,288,BLUE>
 ObjectStructure <1,14,Square ,472,0,0,512,144,4,0,280,BLUE>
 ObjectStructure <1,08,Diamond,200,8,0,576,048,6,0,280,GREEN>
 ObjectStructure <1,08,Square ,248,8,0,576,096,6,0,280,GREEN>
 ObjectStructure <1,08,Diamond,296,8,0,576,144,6,0,280,GREEN>
 ObjectStructure <1,08,Square ,344,8,0,576,192,6,0,280,GREEN>
 ObjectStructure <1,08,Diamond,392,8,0,576,240,6,0,280,GREEN>
ObjectListEnd	label	ObjectStructure
Data	ends
OUT_WORD	macro
if WORD_OUTS_OK
	out	dx,ax
else
	out	dx,al
	inc	dx
	xchg	ah,al
	out	dx,al
	dec	dx
	xchg	ah,al
endif
	endm
CONSTANT_TO_INDEXED_REGISTER	macro ADDRESS,	INDEX,	VALUE
	mov	dx,ADDRESS
	mov	ax,(VALUE shl 8) + INDEX
	OUT_WORD
	endm
Code	segment
	assume	cs:Code, ds:Data
Start	proc	near
	cld
	mov     ax,Data
	mov	ds,ax
	mov	ax,0010h
	int	10h
	mov	ax,(10h shl 8) + 2
	push	ds
	pop	es
	mov	dx,offset Colors
	int	10h
	CONSTANT_TO_INDEXED_REGISTER SC_INDEX, MAP_MASK, 08H
	mov	ax,VGA_SEGMENT
	mov     es,ax
	sub	di,di
	mov	bp,SCREEN_HEIGHT/16
BackdropBlockLoop:
 ;   call    DrawGridCross
 ;   call    DrawGridVert
	dec	bp
	jnz	BackdropBlockLoop
 ;   call    DrawGridCross
AnimationLoop:
	mov bx,offset ObjectList
ObjectLoop:
	dec	[bx+Delay]
	jnz	DoNextObject
	mov	ax,[bx+BaseDelay]
	mov	[bx+Delay],ax
	mov	dx,SC_INDEX
	mov	ah,[bx+PlaneSelect]
	mov	al,MAP_MASK
	OUT_WORD
	mov	cx,[bx+XCoord]
	cmp	cx,[bx+XLeftLimit]
	ja	CheckXRightLimit
	neg	[bx+XInc]
CheckXRightLimit:
	cmp	cx,[bx+XRightLimit]
	jb	SetNewX
	neg	[bx+XInc]
SetNewX:
	add	cx,[bx+XInc]
	mov	[bx+XCoord],cx
	mov	dx,[bx+YCoord]
	cmp	dx,[bx+YTopLimit]
	ja	CheckYBottomLimit
	neg	[bx+YInc]
CheckYBottomLimit:
	cmp	dx,[bx+YBottomLimit]
	jb	SetNewY
	neg	[bx+YInc]
SetNewY:
	add	dx,[bx+YInc]
	mov	[bx+YCoord],dx
	mov	si,[bx+Image]
	call	DrawObject
DoNextObject:
	add	bx,size ObjectStructure
	cmp	bx,offset ObjectListEnd
	jb	ObjectLoop
if SLOWDOWN
	mov	cx,SLOWDOWN
DelayLoop:
	loop	DelayLoop
endif
CheckKey:
	mov	ah,1
	int	16h
	jz	AnimationLoop
	sub	ah,ah
	int	16h
	mov	ax,0003h
	int	10h
	mov	ah,4ch
	int	21h
Start	endp
DrawGridCross	proc	near
	mov	ax,0ffffh
	mov	cx,SCREEN_WIDTH/2-1
	rep	stosw
	mov	ax,0080h
	stosw
	ret
DrawGridCross	endp
DrawGridVert	proc	near
	mov	ax,0080h
	mov	dx,15
BackdropRowLoop:
	mov	cx,SCREEN_WIDTH/2
	rep	stosw
	dec	dx
	jnz	BackdropRowLoop
	ret
DrawGridVert	endp
DrawObject	proc	near
	mov	ax,SCREEN_WIDTH
	mul	dx
	shr	cx,1
	shr	cx,1
	shr	cx,1
	add	ax,cx
	mov	di,ax
	lodsw
	mov	dx,ax
	lodsw
	mov	bp,SCREEN_WIDTH
	sub	bp,ax
DrawLoop:
	mov	cx,ax
	rep	movsb
	add	di,bp
	dec	dx
	jnz	DrawLoop
	ret
DrawObject	endp
Code	ends
	end	Start
[ RETURN TO DIRECTORY ]