;         *= blok+$0c00


;phasz    .byte 0,0,0
;maxphas  .byte 2,2,2
;phasm1   .byte 0,0,0,0,0,0,0,0
;         .byte 0,0,0,0,0,0,0,0
;phasm2   .byte 0,0,0,0,0,0,0,0
;         .byte 0,0,0,0,0,0,0,0
;phasm3   .byte 0,0,0,0,0,0,0,0
;         .byte 0,0,0,0,0,0,0,0


phasz		= blok+$0c00 + (3*4)
maxphas		= phasz+3
phasm1		= maxphas+3
phasm2		= phasm1+16
phasm3		= phasm2+16


anic
		.block

		 jmp chan
form1a   jmp form1
form2a   jmp form2
form3a   jmp form3

b        = blok+$0900
c        = $c800

chan     dec c1+1
         bpl c1
         lda #2
         sta c1+1
c1       ldx #0
         dec phasz,x
         bpl c2
         lda maxphas,x
         sta phasz,x
c2       ldy phasz,x
         txa
         beq form1
         dex
         beq form2

form3    ldx phasm3,y
         ldy #7
n1       lda b+$0400,x
         sta c+$50,y
         lda b+$0408,x
         sta c+$58,y
         lda b+$0410,x
         sta c+$60,y
         lda b+$0418,x
         sta c+$68,y
         inx
         dey
         bpl n1
         rts

form2    ldx phasm2,y
         ldy #7
n2       lda b+$0100,x
         sta c+$30,y
         lda b+$0108,x
         sta c+$38,y
         lda b+$0110,x
         sta c+$40,y
         lda b+$0118,x
         sta c+$48,y
         inx
         dey
         bpl n2
         rts

form1    ldx phasm1,y
         ldy #4
n3       lda b+$0200,x
         sta c+0,y
         lda b+$0205,x
         sta c+8,y
         lda b+$020a,x
         sta c+16,y
         lda b+$020f,x
         sta c+24+3,y
         lda b+$0214,x
         sta c+32+3,y
         lda b+$0219,x
         sta c+40+3,y
         inx
         dey
         bpl n3
         rts

		 .block