; указываем ассемблеру, что целевая платформа - spectrum128(pentagon)
    device zxspectrum128
    
    ; адрес на который компилировать
    org #6100
    
begin_file:
    
	ei
	out (#fe),a
    call #c000
	
	;ld sp, #60ff
	
    ld b,256
	ld hl,#5800
.loop
    ld (hl),a
	inc l 
	djnz .loop 

	ld b,256
	ld hl,#5900
.loop1
    ld (hl),a
	inc l 
	djnz .loop1 
   
	ld b,256
	ld hl,#5a00
.loop2
    ld (hl),a
	inc l 
	djnz .loop2
	
	ld b,3
	ld hl,#5826
.loop3
	ld (hl),56
	inc l 
	djnz .loop3
	
	ld b,3
	ld hl,#5845
.loop4
	ld (hl),56
	inc l 
	djnz .loop4 
	
	ld b,3
	ld hl,#5864
.loop5
	ld (hl),56
	inc l 
	djnz .loop5 
	
	ld b,4
	ld hl,#5883
.loop6
	ld (hl),56
	inc l 
	djnz .loop6 
	
	ld b,5
	ld hl,#58a3
.loop7
	ld (hl),56
	inc l 
	djnz .loop7 
	
	ld b,7
	ld hl,#58c3
.loop8
	ld (hl),56
	inc l 
	djnz .loop8 
	
	ld b,5
	ld hl,#58e4
.loop9
	ld (hl),56
	inc l 
	djnz .loop9 
	
	ld b,4
	ld hl,#5905
.loop10
	ld (hl),56
	inc l 
	djnz .loop10 
	
	ld b,3
	ld hl,#5926
.loop11
	ld (hl),56
	inc l 
	djnz .loop11 
	
	ld b,1
	ld hl,#5948
.loop12
	ld (hl),56
	inc l 
	djnz .loop12 
	
	
	
	
	ld b,3
	ld hl,#5837
.loop13
	ld (hl),56
	inc l 
	djnz .loop13 
	
	ld b,3
	ld hl,#5858
.loop14
	ld (hl),56
	inc l 
	djnz .loop14
	
	ld b,3
	ld hl,#5879
.loop15
	ld (hl),56
	inc l 
	djnz .loop15 
	
	ld b,4
	ld hl,#5899
.loop16
	ld (hl),56
	inc l 
	djnz .loop16 
	
	ld b,5
	ld hl,#58b8
.loop17
	ld (hl),56
	inc l 
	djnz .loop17 
	
	ld b,7
	ld hl,#58d6
.loop18
	ld (hl),56
	inc l 
	djnz .loop18 
	
	ld b,5
	ld hl,#58f7
.loop19
	ld (hl),56
	inc l 
	djnz .loop19 
	
	ld b,4
	ld hl,#5917
.loop20
	ld (hl),56
	inc l 
	djnz .loop20 
	
	ld b,3
	ld hl,#5937
.loop21
	ld (hl),56
	inc l 
	djnz .loop21 
	
	ld b,1
	ld hl,#5957
.loop22
	ld (hl),56
	inc l 
	djnz .loop22
	
	
	
	
	
	ld b,4
	ld hl,#58ae
.loop23
	ld (hl),16
	inc l 
	djnz .loop23 
	
	ld b,8
	ld hl,#58cc
.loop24

	ld (hl),16
	inc l 
	djnz .loop24
	
	ld b,10
	ld hl,#58eb
.loop25
	ld (hl),16
	inc l 
	djnz .loop25 
	
	ld b,12
	ld hl,#590a
.loop26
	ld (hl),16
	inc l 
	djnz .loop26
	
	ld b,12
	ld hl,#592a
.loop27
	ld (hl),16
	inc l 
	djnz .loop27 
	
	ld b,12
	ld hl,#594a
.loop28
	ld (hl),16
	inc l 
	djnz .loop28
	
	ld b,12
	ld hl,#596a
.loop29
	ld (hl),16
	inc l 
	djnz .loop29
	
	ld b,10
	ld hl,#598b
.loop31
	ld (hl),16
	inc l 
	djnz .loop31 
	
	ld b,12
	ld hl,#59aa
.loop32
	ld (hl),16
	inc l 
	djnz .loop32 
	
	ld b,12
	ld hl,#59ca
.loop33
	ld (hl),16
	inc l 
	djnz .loop33 
	
	ld b,12
	ld hl,#59ea
.loop34
	ld (hl),16
	inc l 
	djnz .loop34 
	
	ld b,12
	ld hl,#5a0a
.loop35

	ld (hl),16
	inc l 
	djnz .loop35
	
	ld b,10
	ld hl,#5a2b
.loop36
	ld (hl),16
	inc l 
	djnz .loop36 
	
	ld b,8
	ld hl,#5a4c
.loop37
	ld (hl),16
	inc l 
	djnz .loop37
	
	ld b,8
	ld hl,#5a6c
.loop38
	ld (hl),16
	inc l 
	djnz .loop38
	
	ld b,6
	ld hl,#5a8d
.loop39
	ld (hl),16
	inc l 
	djnz .loop39
	
	ld b,6
	ld hl,#5aad
.loop40
	ld (hl),16
	inc l 
	djnz .loop40
	
	ld b,4
	ld hl,#5ace
.loop41
	ld (hl),16
	inc l 
	djnz .loop41
	
	
	
	
	
	
	
	
	
	
	ld hl,#5a8e
	ld (hl),0
	ld hl,#5a91
	ld (hl),0
	
	
	
	
	
	
	
	ld hl,#598c
	ld (hl),208
	ld hl,#59ac
	ld (hl),208
	ld hl,#59ad
	ld (hl),208
	ld hl,#59cd
	ld (hl),208
	ld hl,#59ce
	ld (hl),208
	
	ld hl,#5993
	ld (hl),208
	ld hl,#59b3
	ld (hl),208
	ld hl,#59b2
	ld (hl),208
	ld hl,#59d2
	ld (hl),208
	ld hl,#59d1
	ld (hl),208
	


    ld a,0

loop


	call #c005
	halt
	
	ld hl,#594e
	ld a,(hl)
	add 8
	ld (hl),a
	ld hl,#596f
	ld (hl),a
	ld hl,#5970
	ld (hl),a
	ld hl,#5951
	ld (hl),a
	inc a
	
	;add 7
	jp loop 
	;ret
   
	org #c000
	inchob "Taurus.$c"
    
end_file:
    ; выводим размер банарника
    display "code size: ", /d, end_file - begin_file
    
    ; сохраняем sna(снапшот состояния) файл
    savesna "Taurus.sna", begin_file
    
    ; сохраняем метки
    labelslist "user.l"