device	ZXSPECTRUM128
;---------------------------------------------------------------------------------
PAGE0		equ	#82
PAGE1		equ	#A2
PAGE2		equ	#C2
PAGE3		equ	#E2
RGMOD		equ	#C9
RGADR		equ	#89
PORT_Y		equ	#89

		ORG   8100h-512
code_start		

;--------EXE-file header:---------------------------------------------------------
		dw 5845h     ; EXE Signature
		db 45h       ; Reserved (EXE type)
		db 00h       ; Version of EXE file
		dw 0200h     ; Code offset
		dw 0000h
		dw 0000h     ; Primary loader size or 0 (no primary loader)
		dw 0000h     ; Reserved
		dw 0000h     ; Reserved
		dw 0000h     ; Reserved
		dw START     ; Loading address
		dw START     ; Starting address (register PC)
		dw 0C000h    ; Stack address (register SP)
		ds 490       ; Reserved
;-------------------------------------------------------------------------------
START		ld	a,0x81
		ld	bc,0x0050
		rst	0x10
		jp	c,VMError
		
		LD 	A,0x50
		OUT 	(PAGE3),A
;-------- Draw plasma ----------------------------------------------------------
		ld	bc,0	;y
loop_y		push	bc

		ld	de,320	;x
		ld	a,c
		out	(PORT_Y),a

loop_x		ld	hl,plasm_tab
		add	hl,de
		ld	a,(hl)

		ld	hl,plasm_tab
		add	hl,bc
		add	a,(hl)	;color

		ld	hl,#c000-1		
		add	hl,de
		ld	(hl),a	;draw

		dec	de
		ld	a,d
		or	e
		jr	nz,loop_x

		pop	bc
		inc	c
		jr	nz,loop_y
		
;-------- Palette cycling------------------------------------------------------
main_loop		halt

		ld	b,0
		ld	c,0
		ld	de,pal_R_tab
		ld	ix,pal_G_tab
		ld	iy,pal_B_tab

loop_color		ld	a,c
		out	(PORT_Y),a

		ld	hl,#c000+992		
		ld	a,(de)
		ld	(hl),a
		inc	hl
		ld	a,(ix+0)
		ld	(hl),a
		inc	hl
		ld	a,(iy+0)
		ld	(hl),a
		
		inc	de,ix,iy
		inc	c
		djnz	loop_color
		;
		ld	a,(pal_R_tab)
		ld	hl,pal_R_tab+1
		ld	de,pal_R_tab
		ld	bc,255
		ldir
		ld	(pal_R_tab+255),a
		;
		ld	a,(pal_B_tab)
		ld	hl,pal_B_tab+1
		ld	de,pal_B_tab
		ld	bc,255
		ldir
		ld	(pal_B_tab+255),a
		;
		ld	a,(pal_G_tab)
		ld	hl,pal_G_tab+1
		ld	de,pal_G_tab
		ld	bc,255
		ldir
		ld	(pal_G_tab+255),a		
;---------------------------------------------------------------------------------		
        		ld   c,33h	; check keypress
        		rst   10h
		or	a
		jr	z,main_loop
;---------------------------------------------------------------------------------
Exit		ld	bc,0x0041
		rst	0x10
VMError		ld	hl,ErrorMessage
		ld	bc,0x005c
		rst	0x10
		jr	Exit
ErrorMessage		db	"videomode error",0x0d,0x0a,0x00
;------ precalculated data -------------------------------------------------------
plasm_tab		db 31,30,30,29,29,28,27,27,26,26,26,25,25,25,25,25
		db 25,25,25,25,25,25,25,25,25,26,26,26,27,27,28,28
		db 29,29,30,30,31,32,32,33,34,34,35,36,37,38,38,39
		db 40,41,42,43,44,44,45,46,47,48,49,50,50,51,52,53
		db 54,55,55,56,57,58,58,59,60,61,61,62,62,63,64,64
		db 65,65,66,66,67,67,67,68,68,68,68,69,69,69,69,69
		db 69,70,70,70,70,70,70,69,69,69,69,69,69,68,68,68
		db 68,67,67,67,67,66,66,66,65,65,64,64,64,63,63,62
		db 62,62,61,61,60,60,60,59,59,59,58,58,58,57,57,57
		db 57,56,56,56,56,56,55,55,55,55,55,55,55,55,55,55
		db 55,56,56,56,56,56,57,57,57,58,58,58,59,59,60,60
		db 61,61,62,63,63,64,65,65,66,67,68,68,69,70,71,72
		db 73,73,74,75,76,77,78,79,80,81,82,82,83,84,85,86
		db 87,88,89,90,90,91,92,93,94,94,95,96,96,97,98,98
		db 99,99,100,100,101,101,102,102,102,102,103,103,103,103,103,103
		db 103,103,103,103,102,102,102,101,101,100,100,99,99,98,98,97
		db 96,95,94,93,92,92,90,89,88,87,86,85,84,82,81,80
		db 78,77,75,74,72,71,69,68,66,65,63,61,60,58,56,55
		db 53,51,50,48,46,45,43,42,40,38,37,35,33,32,30,29
		db 27,26,25,23,22,20,19,18,17,15,14,13,12,11,10,9
		db 8,8,7,6,5,5,4,4,3,3,3,2,2,2,2,2
		db 2,2,2,2,3,3,3,4,4,5,5,6,7,8,8,9
		db 10,11,12,14,15,16,17,19,20,21,23,24,26,27,29,31
		db 32,34,36,37,39,41,43,45,47,48,50,52,54,56,58,60
		db 62,64,66,68,70,72,74,75,77,79,81,83,85,86,88,90
		db 92,93,95,97,98,100,101,103,104,105,107,108,109,110,112,113
		db 114,115,116,116,117,118,119,119,120,120,121,121,122,122,122,122
		db 122,122,122,122,122,122,122,122,121,121,120,120,119,119,118,117
		db 116,116,115,114,113,112,111,110,109,107,106,105,104,102,101,100
		db 98,97,95,94,93,91,90,88,86,85,83,82,80,79,77,75
		db 74,72,71,69,68,66,65,63,62,60,59,57,56,54,53,52
		db 50,49,48,47,45,44,43,42,41,40,39,38,37,36,35,35
		;
pal_R_tab		db 0,0,0,1,2,3,5,7,9,12,14,17,21,24,28,32
		db 36,41,46,50,55,61,66,72,77,83,89,95,101,107,113,119
		db 125,131,138,144,150,156,162,167,173,179,184,190,195,200,205,209
		db 214,218,222,226,229,232,235,238,240,243,245,246,247,248,249,249
		db 249,249,249,248,247,245,244,242,239,237,234,231,227,224,220,216
		db 212,207,202,197,192,187,182,176,170,165,159,153,147,141,134,128
		db 122,116,110,104,98,92,86,80,74,69,63,58,53,48,43,39
		db 34,30,26,22,19,16,13,10,8,6,4,3,1,0,0,0
		db 0,0,0,1,3,4,6,8,10,13,16,19,22,26,30,34
		db 39,43,48,53,58,63,69,74,80,86,92,98,104,110,116,122
		db 128,134,141,147,153,159,165,170,176,182,187,192,197,202,207,212
		db 216,220,224,227,231,234,237,239,242,244,245,247,248,249,249,249
		db 249,249,248,247,246,245,243,240,238,235,232,229,226,222,218,214
		db 209,205,200,195,190,184,179,173,167,162,156,150,144,138,131,125
		db 119,113,107,101,95,89,83,77,72,66,61,55,50,46,41,36
		db 32,28,24,21,17,14,12,9,7,5,3,2,1,0,0,0
		;
pal_G_tab		db 125,118,112,106,100,94,88,82,76,71,65,60,55,50,45,40
		db 36,32,28,24,20,17,14,11,9,7,5,3,2,1,0,0
		db 0,0,0,1,2,3,5,7,9,12,15,18,21,25,29,33
		db 37,41,46,51,56,61,67,72,78,84,90,96,102,108,114,120
		db 126,132,138,144,150,156,162,168,174,180,185,190,195,200,205,210
		db 214,218,222,226,230,233,236,238,241,243,245,246,248,248,249,249
		db 249,249,249,248,247,245,243,241,239,236,234,230,227,223,219,215
		db 211,206,202,197,192,186,181,175,170,164,158,152,146,140,134,128
		db 121,115,109,103,97,91,85,79,74,68,63,57,52,47,43,38
		db 34,30,26,22,19,15,13,10,8,6,4,2,1,0,0,0
		db 0,0,1,1,3,4,6,8,11,13,16,19,23,27,31,35
		db 39,44,49,54,59,64,69,75,81,87,93,99,105,111,117,123
		db 129,135,141,147,153,159,165,171,177,182,188,193,198,203,208,212
		db 216,220,224,228,231,234,237,240,242,244,246,247,248,249,249,249
		db 249,249,248,247,246,244,242,240,238,235,232,229,225,221,217,213
		db 209,204,199,194,189,184,178,173,167,161,155,149,143,137,131,125
		;
pal_B_tab		db 0,0,1,3,5,8,12,16,21,27,33,39,46,54,62,70
		db 79,88,97,106,115,125,134,143,153,162,171,180,188,196,204,211
		db 218,224,230,235,240,244,248,250,252,254,254,254,254,252,250,248
		db 244,240,235,230,224,218,211,204,196,188,180,171,162,153,143,134
		db 125,115,106,97,88,79,70,62,54,46,39,33,27,21,16,12
		db 8,5,3,1,0,0,0,1,3,5,8,12,16,21,27,33
		db 39,46,54,62,70,79,88,97,106,115,125,134,143,153,162,171
		db 180,188,196,204,211,218,224,230,235,240,244,248,250,252,254,254
		db 254,254,252,250,248,244,240,235,230,224,218,211,204,196,188,180
		db 171,162,153,143,134,125,115,106,97,88,79,70,62,54,46,39
		db 33,27,21,16,12,8,5,3,1,0,0,0,1,3,5,8
		db 12,16,21,27,33,39,46,54,62,70,79,88,97,106,115,125
		db 134,143,153,162,171,180,188,196,204,211,218,224,230,235,240,244
		db 248,250,252,254,254,254,254,252,250,248,244,240,235,230,224,218
		db 211,204,196,188,180,171,162,153,143,134,125,115,106,97,88,79
		db 70,62,54,46,39,33,27,21,16,12,8,5,3,1,0,0

;-------------------------------------------------------------------------------------------------
code_end		nop
		SAVEBIN "plasma2.exe", code_start, code_end - code_start