3ca
;mode 12.asm


	INCLUDE DOS.INC
	INCLUDE BIOS.INC


	.DOSSEG
	.MODEL SMALL
	.386

	.STACK

	.DATA

plotx dw ?
ploty dw ?
color db ?


	.CODE
	.STARTUP


	 @setmode 12h

; Rensa sk„rmen:

        mov dx,03c4h
        mov ax,0f02h    ; 0fh = 1111b = alla bitplanen aktiva
        out dx,ax

        mov ax,0a000h
        mov es,ax
        xor di,di
	mov cx,640*480/8/4    ; Antalet words p† hela sk„rmen
	xor eax,eax
	rep stosd


	mov color,0
	mov di,0

	mov	  dx,3ceh
	mov	  ax,0f01h
	out	  dx,ax 	      ;Enable set/reset for all maps


	mov bl,10000000b
lopi:
	mov	  ah,bl
	mov	  al,08h
	out	  dx,ax 	      ;Set bit mask for pixel
	or	  byte ptr es:[di],0
	mov	  ah,color
	mov	  al,0
	out	  dx,ax 	      ;Set color bits in set/reset register
	or	  byte ptr es:[di],0

	inc color

	shr	  bl,1
	jnz	  lopi

	mov bl,10000000b
	inc di
	cmp di,2
	jnz lopi




	@getchar
	@setmode 3
	.exit

	END
.

0