;Compile into a .COM file
TITLE   CGA test program
.MODEL TINY
.8086           ;Use 8086 code

.CODE
.STARTUP

	MOV	AX,0B800h
	MOV     ES,AX           ;and ES to start of video mem for CGA
	XOR     DI,DI
	MOV     AX,0005h
	INT     10h
	MOV     AH,0Bh
	MOV     BX,0100h
	INT     10h
	XOR	AH,AH
	MOV	CX,255
LOOP1:
	HLT
	MOV	DI,2000D
LOOP2:

	MOV	ES:[DI],AH
	DEC	DI
	TEST	DI,DI
	JNZ	LOOP2
	INC	AH
	DEC	CX
	TEST	CX,CX
	JNZ	LOOP1

	MOV     AH,07h
	INT     21h             ;Wait for a keypress
	MOV     AX,0003h                ;Set back to text mode
	INT     10h
	MOV	DX,OFFSET AUTHOR	 ;Print my name
	MOV     AH,09h
	INT     21h

	MOV     AX,4C00H         ; Send exit code to dos
	INT     21H             ; Send command to DOS

AUTHOR		DB	"Made by Dennis Katsonis.",0ah,0dh,24h

END