;=============================================================================
;                               demo_1.asm
; Just the first demo, which should correspond to lesson #1 of Denthor
;                               Algorithm
; D1: Initialize video mode
; D2:
; D3:
;(C)I don't take any responsibility for the use of this program
;                           Zedr0n -- connection closed
;=============================================================================
;=============================================================================
; .Com declaration
;=============================================================================
.MODEL TINY
LOCALS @@
;=============================================================================
; Data definition/declaration
;=============================================================================
.DATA
COLOR STRUC                     ;
        R DB ?
        G DB ?
        B DB ?
COLOR ENDS
;-----------------------------------------------------------------------------
; Equals
;-----------------------------------------------------------------------------

;-----------------------------------------------------------------------------
; Constants
;-----------------------------------------------------------------------------

;-----------------------------------------------------------------------------
; File variables
;-----------------------------------------------------------------------------
CUR COLOR ?
PAL COLOR 64 DUP(?) 
;-----------------------------------------------------------------------------
; Stack variables
;-----------------------------------------------------------------------------


.CODE
.386
ORG 100H
;=============================================================================
; Code segment
;=============================================================================
START:                          ;
D1:
        MOV AX,0013H            ;
        INT 10H                 ;
        PUSH 0A000H     ;
        POP ES                  ;

        CALL WAIT_RETRACE
        MOV AL,0FH              ;
        XOR BX,BX               ;
        XOR DX,DX               ;
        MOV CX,320*200          ;
        CALL PUTPIXEL
D2:
        XOR AH,AH               ;
        INT 16H

	CALL GRABPAL		;
	CALL FADEDOWN

        XOR AH,AH               ;
        INT 16H
	
 	CALL FADEUP
D3:
        MOV AX,3H               ;
        INT 10H

        RET
;=============================================================================
; Procedures
;=============================================================================
INCLUDE ..\LIB\MCGA.INC         ;
INCLUDE ..\LIB\PAL.INC
INCLUDE ..\LIB\READPAL.INC
INCLUDE ..\LIB\BLACKOUT.INC
INCLUDE ..\LIB\FADEUP.INC
INCLUDE ..\LIB\FADEDOWN.INC


END START