; указываем ассемблеру, что целевая платформа - spectrum128(pentagon)
    device zxspectrum128
    
    ; адрес на который компилировать
    org #6100
	ei
    
begin_file:

	ld d,13


;fon:
	ld hl,#5800
	ld b,256
.loop
	ld (hl),a
	inc l
	djnz .loop
	
	ld hl,#5900
	ld b,256
.loop
	ld (hl),a
	inc l
	djnz .loop
	
	ld hl,#5a00	
	ld b,256
.loop
	ld (hl),d
	inc l
	djnz .loop
	
	
;moon:
	ld hl,#590d
	ld b,6
.loop
	ld (hl),65
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l
	inc l
	djnz .loop
	
	ld hl,#5912
	ld b,6
.loop
	ld (hl),65
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l 
	inc l
	inc l
	inc l
	inc l
	inc l
	inc l
	djnz .loop
	
	ld hl,#590d
	ld b,6
.loop
	ld (hl),65
	inc l
	djnz .loop
	
	ld hl,#59ad
	ld b,6
.loop
	ld (hl),65
	inc l
	djnz .loop
	
	
moon:
	ld hl,#4e0d
	ld (hl),1	
	inc h
	ld (hl),3
	
	ld hl,#490e
	ld (hl),1
	inc h
	ld (hl),7
	inc h
	ld (hl),31
	inc h 
	ld (hl),63
	inc h 
	ld (hl),127
	inc h 
	ld (hl),255
	inc h 
	ld (hl),255
	
	ld hl,#590f
	ld (hl),72
	ld hl,#5910
	ld (hl),72
	ld hl,#480f
	ld (hl),224
	inc l
	ld (hl),7
	
	ld hl,#4911
	ld (hl),128
	inc h 
	ld (hl),224
	inc h
	ld (hl),248
	inc h 
	ld (hl),252
	inc h 
	ld (hl),254
	inc h 
	ld(hl),255
	inc h 
	ld(hl),255
	
	ld hl,#4e12
	ld (hl),128
	inc h 
	ld (hl),192
	
	ld hl,#482d
	ld (hl),3
	inc h 
	ld (hl),7
	inc h 
	ld (hl),15
	inc h
	ld (hl),31
	inc h
	ld (hl),31
	inc h 
	ld (hl),63
	inc h
	ld (hl),63
	inc h 
	ld (hl),127
	
	ld hl,#594d
	ld (hl),72
	ld hl,#596d
	ld (hl),72
	ld hl,#484d
	ld (hl),128
	inc h 
	ld (hl),128
	inc h
	ld (hl),128
	ld hl,#4d6d
	ld (hl),128
	inc h 
	ld (hl),128
	inc h
	ld (hl),128
	
	ld hl,#488d
	ld (hl),127
	inc h 
	ld (hl),63
	inc h 
	ld (hl),63
	inc h 
	ld (hl),31
	inc h 
	ld (hl),31
	inc h 
	ld (hl),15
	inc h 
	ld (hl),7
	inc h 
	ld (hl),3
	
	ld hl,#48ad
	ld (hl),3
	inc h 
	ld (hl),1
	
	ld hl,#48ae
	ld (hl),255
	inc h 
	ld (hl),255
	inc h 
	ld (hl),127
	inc h
	ld (hl),63
	inc h 
	ld (hl),31
	inc h 
	ld (hl),7
	inc h 
	ld (hl),1
	
	ld hl,#59af
	ld (hl),72
	ld hl,#59b0
	ld (hl),72
	ld hl,#4faf
	ld (hl),224
	inc l
	ld (hl),7
	
	ld hl,#48b1
	ld (hl),255
	inc h 
	ld (hl),255
	inc h 
	ld (hl),254
	inc h 
	ld (hl),252
	inc h 
	ld (hl),248
	inc h 
	ld (hl),224
	inc h 
	ld (hl),128
	
	ld hl,#48b2
	ld (hl),192
	inc h 
	ld (hl),128
	
	ld hl,#4832
	ld (hl),192
	inc h 
	ld (hl),224
	inc h 
	ld (hl),240
	inc h
	ld (hl),248
	inc h 
	ld (hl),248
	inc h 
	ld (hl),252
	inc h 
	ld (hl),252
	inc h 
	ld (hl),254
	
	ld hl,#5952
	ld (hl),72
	ld hl,#5972
	ld (hl),72
	ld hl,#4852
	ld (hl),1
	inc h 
	ld (hl),1
	inc h
	ld (hl),1
	ld hl,#4d72
	ld (hl),1
	inc h
	ld (hl),1
	inc h 
	ld (hl),1
	
	ld hl,#4892
	ld (hl),254
	inc h 
	ld (hl),252
	inc h 
	ld (hl),252
	inc h 
	ld (hl),248
	inc h
	ld (hl),248
	inc h 
	ld (hl),240
	inc h 
	ld (hl),224
	inc h 
	ld (hl),192
	
	
	ld b,4
	ld hl,#592e
.loop 
	ld (hl),76
	inc l 
	djnz .loop 
	
	ld b,4
	ld hl,#594e
.loop 
	ld (hl),76
	inc l 
	djnz .loop 
	
	ld b,4
	ld hl,#596e
.loop 
	ld (hl),76
	inc l 
	djnz .loop  
	
	ld b,4
	ld hl,#598e
.loop 
	ld (hl),76
	inc l 
	djnz .loop 
	
	ld hl,#592f
	ld (hl),78
	
	ld hl,#5951
	ld (hl),102
	
	
	
	
	ld hl,#482f
	ld (hl),14 : inc h : ld (hl),31 : inc h : ld (hl),63 : inc h : ld (hl),63 : inc h : ld (hl),62 : inc h : ld (hl),24
	dec l : inc h 
	ld (hl),16 : inc h : ld (hl),56
	ld hl,#484e
	ld (hl),56 : inc h : ld (hl),56 : inc h :ld (hl),56 : inc h : ld (hl),60 : inc h : ld (hl),60 : inc h : ld (hl),62 : inc h : ld (hl),62 : inc h : ld (hl),62
	ld hl,#486e
	ld (hl),31 : inc h : ld (hl),31 : inc h : ld (hl),31 : inc h : ld (hl),15 : inc h : ld (hl),15 : inc h : ld (hl),7 : inc h : ld (hl),33 : inc h : ld (hl),96
	ld  hl,#496f 
	ld (hl),128 : inc h : ld (hl),192 : inc h : ld (hl),224 : inc h : ld (hl),240 : inc h : ld (hl),240 : inc h : ld (hl),224
	ld hl,#488e 
	ld (hl),6 : inc h : ld (hl),15 : inc h : ld (hl),15 : inc h : ld (hl),14
	ld hl,#4f8f
	ld (hl),7
	ld hl,#4a30
	ld (hl),1 : inc h : ld (hl),3 : inc h : ld (hl),15 : inc h : ld (hl),31 : inc h : ld (hl),31 : inc h : ld (hl),63
	inc l 
	ld (hl),254 : dec h : ld (hl),254 : dec h : ld (hl),252 : dec h : ld (hl),252 : dec h : ld (hl),240 : dec h : ld (hl),128
	ld hl,#4851
	ld (hl),40 : inc h : ld (hl),84 : inc h : ld (hl),40 : inc h : ld (hl),92 : inc h : ld (hl),62 : inc h : ld (hl),31 : inc h : ld (hl),15 : inc h : ld (hl),6
	ld hl,#4850
	ld (hl),63 : inc h : ld (hl),63 : inc h : ld (hl),31 : inc h : ld (hl),31 : inc h : ld (hl),15 : inc h : ld (hl),3 : inc h : ld (hl),1
	ld hl,#4870
	ld (hl),28 : inc h : ld (hl),63 : inc h : ld (hl),63 : inc h : ld (hl),63 : inc h : ld (hl),31 : inc h : ld (hl),7 : inc h : ld (hl),7 : inc h : ld (hl),3
	ld hl,#4871 
	ld (hl),255 : inc h : ld (hl),126 : inc h : ld (hl),188 : inc h : ld (hl),192 : inc h : ld (hl),254 : inc h : ld (hl),255 : inc h : ld (hl),255 : inc h : ld (hl),240
	
	
	

	
	
	
	
	
	
	
sea:
	ld hl,#530f
	ld (hl),15
	inc l
	ld (hl),248
	inc h 
	ld (hl),252
	dec l 
	ld (hl),31
	inc h 
	ld (hl),15
	inc l
	ld (hl),248
	
	ld hl,#502d
	ld (hl),1
	inc l 
	ld (hl),255
	inc l 
	ld (hl),252
	inc h 
	ld (hl),192
	dec l 
	ld (hl),255
	dec l 
	ld (hl),7
	inc h 
	ld (hl),31
	inc l 
	ld (hl),252
	ld hl,#542e
	ld (hl),1
	inc l 
	ld (hl),254
	inc h 
	ld (hl),255
	dec l 
	ld (hl),3
	inc h 
	ld (hl),1
	inc l 
	ld (hl),254
	
	ld hl,#5030
	ld (hl),127
	inc l 
	ld (hl),248
	inc h 
	ld (hl),252 
	dec l 
	ld (hl),255
	inc h 
	ld (hl),127
	inc l 
	ld (hl),224
	ld hl,#5531
	ld (hl),30
	inc h 
	ld (hl),63
	
	ld hl,#534d
	ld (hl),30
	inc h 
	ld (hl),63
	inc l 
	ld (hl),254
	inc h 
	ld (hl),255
	dec l 
	ld (hl),63
	inc h 
	ld (hl),63
	inc l 
	ld (hl),255
	inc h 
	ld (hl),254
	dec l 
	ld (hl),31
	
	ld hl,#534f
	ld (hl),1
	inc l 
	ld (hl),255
	inc l 
	ld (hl),192
	inc l 
	inc h 
	ld (hl),192 
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),3
	inc h 
	ld (hl),1
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),224
	inc h 
	ld (hl),224 
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	inc h
	ld (hl),1 
	inc l 
	ld (hl),255
	inc l 
	ld (hl),252
	
	ld hl,#526d
	ld (hl),7
	inc l 
	ld (hl),255
	inc l 
	ld (hl),128
	inc h 
	ld (hl),192 
	dec l 
	ld (hl),255
	dec l 
	ld (hl),15
	inc h 
	ld (hl),15
	inc l 
	ld (hl),255
	inc l 
	inc h 
	ld (hl),252
	dec l 
	ld (hl),31
	inc h
	ld (hl),127
	inc l 
	ld (hl),254
	inc h 
	ld (hl),192
	dec l 
	ld (hl),63
	
	ld hl,#558c
	ld (hl),127
	inc l 
	ld (hl),255
	inc l 
	ld (hl),128
	inc l 
	inc h 
	ld (hl),192
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	inc h 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),224
	inc h 
	ld (hl),192
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),1
	ld hl,#50ab
	ld (hl),63
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),254
	inc l 
	inc h 
	ld (hl),128
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),3
	inc h 
	ld (hl),31
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),252
	inc h 
	ld (hl),254
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),63
	inc h 
	ld (hl),63
	inc l 
	ld (hl),255
	inc l 
	ld (hl),241
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),252
	inc h 
	dec l 
	dec l 
	ld (hl),127
	dec l 
	ld (hl),128
	dec l 
	ld (hl),255
	dec l 
	ld (hl),31
	
	ld hl,#50b0
	ld (hl),31
	inc l 
	ld (hl),192
	inc h 
	ld (hl),240
	dec l 
	ld (hl),63
	
	ld hl,#5190
	ld (hl),1
	inc l 
	ld (hl),255
	inc l 
	ld (hl),254
	inc l 
	inc h 
	ld (hl),192
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),3
	inc h 
	ld (hl),3
	ld b,4      
.loop 
	inc l
	ld (hl),255
	djnz .loop 
	inc l 
	inc h 
	ld (hl),128
	ld b,4
.loop 
	dec l 
	ld (hl),255
	djnz .loop
	dec l 
	ld (hl),3
	inc h 
	ld (hl),1
	ld b,4      
.loop 
	inc l
	ld (hl),255
	djnz .loop 	
	inc l 
	ld (hl),192
	inc h 
	ld (hl),192
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),63
	inc h 
	ld (hl),127
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),192
	ld hl,#50b5
	ld (hl),128
	ld b,3
.loop 
	dec l 
	ld (hl),255
	djnz .loop 
	inc h 
	ld (hl),127 
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc h
	dec l 
	dec l 
	ld (hl),30
	
	ld hl,#51d3
	ld (hl),195
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),128
	inc h 
	ld (hl),192 
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),225
	inc h 
	ld (hl),225
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),192
	inc h 
	ld (hl),192
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255
	dec l 
	ld (hl),195
	inc h 
	ld (hl),195
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),128
	inc h 
	dec l 
	ld (hl),224
	dec l 
	ld (hl),255
	dec l 
	ld (hl),135
	
	ld hl,#51ca
	ld (hl),3
	ld b,3
.loop 
	inc l 
	ld (hl),255
	djnz .loop
	inc l 
	ld (hl),254
	inc h 
	ld b,4
.loop 
	ld (hl),255
	dec l 
	djnz .loop 
	ld (hl),7
	inc h 
	ld (hl),31
	ld b,3
.loop 
	inc l 
	ld (hl),255
	djnz .loop 
	inc l 
	ld (hl),254
	dec l
	inc h 
	ld (hl),240
	dec l 
	ld (hl),255
	dec l 
	ld (hl),255 
	dec l 
	ld (hl),63
	inc h 
	ld (hl),127
	inc l 
	ld (hl),255
	inc l 
	ld (hl),255
	inc l 
	ld (hl),192
	inc h 
	ld (hl),240
	ld b,3
.loop 
	dec l 
	ld (hl),255
	djnz .loop 
	dec l 
	ld (hl),1
	inc h 
	ld (hl),15
	ld b,8
.loop 
	inc l 
	ld (hl),255
	djnz .loop 
	inc l 
	ld (hl),192
	ld b,6
.loop 
	dec h 
	ld (hl),255
	djnz .loop 
	dec l 
	ld b,4
.loop 
	inc h 
	ld (hl),255
	djnz .loop 
	inc h 
	ld (hl),7
	dec l 
	dec h 
	dec h 
	ld (hl),1
	dec h 
	ld (hl),1
	ld hl,#50e9
	ld (hl),127
	ld b,8
.loop 
	inc l 
	ld (hl),255
	djnz .loop 
	inc l 
	ld (hl),240
	inc h 
	ld (hl),248
	ld b,9
.loop 
	dec l 
	ld (hl),255
	djnz .loop 
	inc h 
	ld b,9 
.loop 
	ld (hl),255
	inc l 
	djnz .loop 
	ld (hl),240
	inc h 
	dec l 
	ld (hl),254
	ld b,8
.loop 
	dec l 
	ld (hl),255
	djnz .loop 
	inc h 
	ld (hl),127
	inc l 
	ld b,6
.loop 
	inc l 
	ld (hl),255
	djnz .loop 
	inc l 
	ld (hl),224
	inc h 
	dec l 
	ld (hl),252
	ld b,4
.loop 
	dec l 
	ld (hl),255
	djnz .loop 
	dec l 
	ld (hl),127
	inc h 
	ld (hl),127
	ld b,4
.loop 
	inc l 
	ld (hl),255
	djnz .loop 
	inc l 
	ld (hl),128
	inc h 
	ld (hl),128
	dec l 
	ld b,5
.loop 
	ld (hl),255
	dec l 
	djnz .loop 
	ld (hl),1
	
	
	
	
	
	
	ld hl,#5800 ; иправление трёх белых атрибутов, хз откуда они
	ld b,256
.loop
	ld (hl),a
	inc l
	djnz .loop	
	
taurus:
	ld hl,#5875 
	ld (hl),66
	ld hl,#4075
	call constellation
	
	ld hl,#5897
	ld (hl),66
	ld hl,#4097
	call constellation
	
	ld hl,#58b9
	ld (hl),66
	ld hl,#40b9
	call constellation
	
	ld hl,#58da
	ld (hl),66
	ld hl,#40da
	call constellation
	
	ld hl,#58db
	ld (hl),66
	ld hl,#40db
	call constellation
	
	ld hl,#58dd
	ld (hl),66
	ld hl,#40dd
	call constellation
	
	ld hl,#58d9
	ld (hl),66
	ld hl,#40d9
	call constellation1
	
	ld hl,#58d4
	ld (hl),66
	ld hl,#40d4
	call constellation
	
	
	
	
	
	
	
	
	
	
loop            ;мигающее 
	ld hl,#5a00
	ld b,256
	ld d,10
.loop
	ld (hl),d
	inc l
	djnz .loop
	
	
	ld hl,#4400
	call star
	ld hl,#5800 
	call flash2
	
	ld hl,#444e
	call star
	ld hl,#584e
	call flash1
	
	ld hl,#5a00	 
	ld b,256
	ld d,15
.loop
	ld (hl),d
	inc l
	djnz .loop
	
	ld hl,#447b
	call star
	ld hl,#587b
	call flash2
	
	ld hl,#44fc
	call star
	ld hl,#58fc
	call flash3
	
	ld hl,#5a00
	ld b,256
	ld d,13
.loop
	ld (hl),d
	inc l
	djnz .loop
	
	ld hl,#44a8
	call star
	ld hl,#58a8
	call flash1
	
	ld hl,#48cc
	call star
	ld hl,#59cc 
	call flash2
	
	ld hl,#4817
	call star
	ld hl,#5917 
	call flash3
	
	ld hl,#48a2
	call star
	ld hl,#59a2
	call flash1
	
	ld hl,#4856
	call star
	ld hl,#5956
	call flash3
	
	ld hl,#44af
	call star
	ld hl,#58af
	call flash2
	
	ld hl,#48b7
	call star
	ld hl,#59b7
	call flash1
	
	ld hl,#4408
	call star
	ld hl,#5808
	call flash3
	
	ld hl,#481f
	call star
	ld hl,#591f
	call flash2
	
	ld hl,#48f0
	call star
	ld hl,#59f0
	call flash3
	
	ld hl,#4887
	call star
	ld hl,#5987
	call flash3
	
	ld hl,#48a3
	call star
	ld hl,#59a3
	call flash1
	
	
	jp loop
	
star:
	ld (hl),32
	inc h
	ld (hl),112
	inc h
	ld (hl),32
	ret
	
flash1:
	ld b,256
	ld c,70
.loop  
	ld (hl),c
	djnz .loop 	
	ld b,256
	ld c,66
.loop 
	ld (hl),c 
	djnz .loop 
	ld b,256
	ld c,67
.loop  
	ld (hl),c 
	djnz .loop 
	ld b,256
	ld c,69
.loop  
	ld (hl),c 
	djnz .loop 
	ld b,1
	ld c,70
.loop  
	ld (hl),c 
	djnz .loop 
	ret
	
flash2:
	ld b,256
	ld c,70
.loop  
	ld (hl),c
	djnz .loop 	
	ld b,256
	ld c,66
.loop 
	ld (hl),c 
	djnz .loop 
	ld b,256
	ld c,67
.loop  
	ld (hl),c 
	djnz .loop 
	ld b,256
	ld c,69
.loop  
	ld (hl),c 
	djnz .loop 
	ld b,1
	ld c,71
.loop  
	ld (hl),c 
	djnz .loop 
	ret
	
flash3:
	ld b,256
	ld c,71
.loop  
	ld (hl),c
	djnz .loop 	
	ld b,256
	ld c,70
.loop 
	ld (hl),c 
	djnz .loop 
	ld b,256
	ld c,67
.loop  
	ld (hl),c 
	djnz .loop 
	ld b,256
	ld c,69
.loop  
	ld (hl),c 
	djnz .loop 
	ld b,1
	ld c,67
.loop  
	ld (hl),c 
	djnz .loop 
	ret
	
constellation:	
	ld (hl),64
	inc h 
	ld (hl),64
	inc h
	ld (hl),224
	inc h 
	ld (hl),224
	inc h 
	ld (hl),64
	inc h 
	ld (hl),64
	ret
	
constellation1:	 
	ld (hl),32
	inc h 
	ld (hl),32
	inc h
	ld (hl),112
	inc h 
	ld (hl),112
	inc h 
	ld (hl),32
	inc h 
	ld (hl),32
	ret
	
	
end_file:
    display "code size: ", /d, end_file - begin_file
	
	savesna "moonlight.sna", begin_file
	
	labelslist "user.1"