org 100h
	mov al,13h
	int 10h

	mov dx,3C8h
	xor ax,ax
	out dx,al
	inc dx
col64:
	mov al,ah
	cmp al,128
	jc trig3
	and al,127
trig3:
	cmp al,64
	jc trig1
	xor al,63
trig1:
	and al,63
	out dx,al

	push ax
	shr al,1
	out dx,al
	pop ax

	cmp al,32
	jc trig2
	xor al,31
trig2:
	and al,31
	shl al,1
	out dx,al

	inc ah
	jnz col64


; ----------- Sinegen ------------


	XOR	DI,DI
	xor cx,cx
	push word 09000h
	pop ds

Singen:
	MOV	[DI],CH
	ADD	CX,SI
	MOV	AX,56
	IMUL	CX
	SUB	SI,DX
	INC	DI
	JNZ	Singen

	push word 0a000h
	pop es
main:
plasma:
	inc bp
	xor di,di
	mov bl,200
ayloop:
	mov cx,320
axloop:
	mov ax,[bx]
	mov si,cx
	shl si,1
	add ax,[si+bx]
	mov si,bp
	add si,cx
	add ax,[si+bx]
	mov si,bp
	add si,bx
	add ax,[si+bx]

	stosb
	loop axloop
	dec bx
	jnz ayloop

	MOV	DX,3DAh
Vsync:
	IN	AL,DX
	AND	AL,8
	JZ	Vsync

	in al,60h
	dec al
	jnz main

	mov ax,03h
	int 10h
ret