(main)QUATTRPC
        org     $A000
        setdp   *<-8

KTST    equ     $E809
        
main    pshs    d,x,y,u,dp,cc
        
wait    jsr     KTST
        bcs     wait

        lda     #*<-8
        tfr     a,dp

        ldx     #zik

* speed -> duree ligne
        lda     ,x+
        ldb     #129        ; 256*224/4/111
        mul
        tfr     d,y

* lecture sequence
rdseq   ldu     ,x++
        bne     iniptn
        ldx     #zikbak
        bra     rdseq

* lecture d'une ligne pattern
iniptn
        jsr     KTST        ; test clavier
        bcs     exit
        
        ldd     ,u
        beq     rdseq
        std     <noise
        
        ldd     2,u
        sta     <ch1rat
        stb     <ch2rat
        ldd     4,u
        sta     <ch3rat
        stb     <ch4rat
        
        ldd     6,u
        std     <ch1frq
        ldd     8,u
        std     <ch2frq
        ldd     10,u
        std     <ch3frq
        ldd     12,u
        std     <ch4frq

        bsr     playptn
        bra     rdseq
        
exit    puls    d,x,y,u,dp,cc,pc

* joue un pattern Y=durée
playptn pshs    cc,d,x,y,u
        orcc    #$50
        sts     <savsp
        lds     #$E7C0
*       ldd     ,s
        ldd     #$30
*       andb    #255-8
        tfr     d,x     ; x=buzzer 0
        eorb    #8
        tfr     d,u     ; u=buzzer 1

playlp  set     *

* oscillo 1
        ldd     #0      ; 3
        addd    #0      ; 4
ch1frq  set     *-2     ; freq
        std     <*-5    ; 5
        cmpa    #$80    ; 2 (rap. cyclique)
ch1rat  set     *-1
        blo     ch1zer  ; 3
        stu     ,s      ; 5
        bra     ch1end  ; 3
ch1zer  stx     ,s      ; 5
        bra     ch1end  ; 3
ch1end  set     *       ; 25=3+4+5+2+3+5+3

* oscillo 2
        ldd     #0      ; 3
        addd    #0      ; 4
ch2frq  set     *-2     ; freq
        std     <*-5    ; 5
        cmpa    #$80    ; 2 (rap. cyclique)
ch2rat  set     *-1
        blo     ch2zer  ; 3
        stu     ,s      ; 5
        bra     ch2end  ; 3
ch2zer  stx     ,s      ; 5
        bra     ch2end  ; 3
ch2end  set     *       ; 25=3+4+5+2+3+5+3

* oscillo 3
        ldd     #0      ; 3
        addd    #0      ; 4
ch3frq  set     *-2     ; freq
        std     <*-5    ; 5
        cmpa    #$80    ; 2 (rap. cyclique)
ch3rat  set     *-1
        blo     ch3zer  ; 3
        stu     ,s      ; 5
        bra     ch3end  ; 3
ch3zer  stx     ,s      ; 5
        bra     ch3end  ; 3
ch3end  set     *       ; 25=3+4+5+2+3+5+3

* oscillo 4 / noise
        ldd     #0      ; 3
noise   set     *
        lsla            ; 2
        adca    #0      ; 2
*       nop
*       adda    #0
        addd    #0      ; 4
ch4frq  set     *-2     ; freq
        std     <noise-2    ; 5
        cmpa    #$80    ; 2 (rap. cyclique)
ch4rat  set     *-1
        blo     ch4zer  ; 3
        stu     ,s      ; 5
        bra     ch4end  ; 3
ch4zer  stx     ,s      ; 5
        bra     ch4end  ; 3
ch4end  set     *       ; 29=3+2+2+4+5+2+3+5+3

* bouclage
        leay    -1,y    ; 4
        bne     playlp  ; 3=>111
        
        lds     #0
savsp   set     *-2
        puls    cc,d,x,y,u,pc

        includ  ZIK
        
        end     main
(include)ZIK.ASM
* morceau musique
zik
 fcb 6 ;speed

*sequence
zikbak
* fdb ptn,0
 fdb ptn0
 fdb ptn0
 fdb ptn1
 fdb ptn0
 fdb ptn5
 fdb ptn3
 fdb ptn4
 fdb ptn6
 fdb 0

XX set 1000
YY set 1000
ZZ set 1000/2
TT set 1000/2
ptn
 fdb $128b,$8080,$8080,XX,YY,ZZ,TT,0

*pattern data
ptn0
 fdb $128b,$8080,$8080,$060,$0c1,$183,$000
 fdb $128b,$8080,$8080,$060,$0e6,$000,$000
 fdb $4889,$8080,$8020,$060,$122,$030,$63d
 fdb $4889,$8080,$8020,$060,$159,$030,$63d
 fdb $128b,$8080,$8040,$0c1,$183,$183,$335
 fdb $4889,$8080,$8040,$0c1,$1cc,$000,$000
 fdb $4889,$8080,$8020,$0c1,$244,$030,$63d
 fdb $4889,$8080,$8020,$0c1,$2b2,$030,$63d
 fdb $128b,$8040,$8020,$060,$0c1,$183,$000
 fdb $128b,$8040,$8020,$060,$0e6,$000,$000
 fdb $4889,$8040,$8020,$060,$122,$030,$63d
 fdb $4889,$8040,$8020,$060,$159,$030,$63d
 fdb $128b,$8040,$8040,$0c1,$183,$183,$335
 fdb $4889,$8040,$8040,$0c1,$1cc,$000,$000
 fdb $4889,$8040,$8020,$0c1,$244,$030,$63d
 fdb $4889,$8040,$8020,$0c1,$2b2,$030,$63d
 fdb $128b,$8020,$8020,$060,$0c1,$183,$000
 fdb $128b,$8020,$8020,$060,$0e6,$000,$000
 fdb $4889,$8020,$8020,$060,$122,$030,$63d
 fdb $4889,$8020,$8020,$060,$159,$030,$63d
 fdb $128b,$8020,$8040,$0c1,$183,$183,$335
 fdb $4889,$8020,$8040,$0c1,$1cc,$000,$000
 fdb $4889,$8020,$8020,$0c1,$244,$030,$63d
 fdb $4889,$8020,$8020,$0c1,$2b2,$030,$63d
 fdb $128b,$8010,$8020,$073,$0c1,$183,$000
 fdb $128b,$8010,$8020,$073,$0e6,$000,$000
 fdb $4889,$8010,$8020,$073,$122,$039,$63d
 fdb $4889,$8010,$8020,$073,$159,$039,$63d
 fdb $128b,$8010,$8040,$0e6,$183,$183,$335
 fdb $4889,$8010,$8040,$0e6,$1cc,$000,$000
 fdb $4889,$8010,$8020,$0e6,$244,$039,$63d
 fdb $4889,$8010,$8020,$0e6,$2b2,$039,$63d
 fdb $128b,$8010,$8020,$060,$0c1,$183,$000
 fdb $128b,$8010,$8020,$060,$0e6,$000,$000
 fdb $4889,$8010,$8020,$060,$122,$030,$63d
 fdb $4889,$8010,$8020,$060,$159,$030,$63d
 fdb $128b,$8010,$8040,$0c1,$183,$183,$335
 fdb $4889,$8010,$8040,$0c1,$1cc,$000,$000
 fdb $4889,$8010,$8020,$0c1,$244,$030,$63d
 fdb $4889,$8010,$8020,$0c1,$2b2,$030,$63d
 fdb $128b,$8020,$8020,$060,$0c1,$183,$000
 fdb $128b,$8020,$8020,$060,$0e6,$000,$000
 fdb $4889,$8020,$8020,$060,$122,$030,$63d
 fdb $4889,$8020,$8020,$060,$159,$030,$63d
 fdb $128b,$8020,$8040,$0c1,$183,$183,$335
 fdb $4889,$8020,$8040,$0c1,$1cc,$000,$000
 fdb $4889,$8020,$8020,$0c1,$244,$030,$63d
 fdb $4889,$8020,$8020,$0c1,$2b2,$030,$63d
 fdb $128b,$8040,$8020,$060,$0c1,$183,$000
 fdb $128b,$8040,$8020,$060,$0e6,$000,$000
 fdb $4889,$8040,$8020,$060,$122,$030,$63d
 fdb $4889,$8040,$8020,$060,$159,$030,$63d
 fdb $128b,$8040,$8040,$0c1,$183,$183,$335
 fdb $4889,$8040,$8040,$0c1,$1cc,$000,$000
 fdb $4889,$8040,$8020,$0c1,$244,$030,$63d
 fdb $4889,$8040,$8020,$0c1,$2b2,$030,$63d
 fdb $128b,$8080,$8020,$122,$0c1,$183,$000
 fdb $128b,$8080,$8020,$122,$0e6,$000,$000
 fdb $4889,$8080,$8020,$122,$122,$0b6,$63d
 fdb $4889,$8080,$8020,$122,$159,$0b6,$63d
 fdb $128b,$8080,$8040,$0e6,$183,$183,$335
 fdb $4889,$8080,$8020,$0e6,$1cc,$000,$33c
 fdb $4889,$8080,$8020,$0e6,$244,$0b6,$63d
 fdb $4889,$8080,$8010,$0e6,$2b2,$0b6,$26c
 fdb 0

ptn1
 fdb $128b,$8080,$8080,$081,$102,$183,$000
 fdb $128b,$8080,$8080,$081,$133,$000,$000
 fdb $4889,$8080,$8020,$081,$183,$040,$63d
 fdb $4889,$8080,$8020,$081,$1cc,$040,$63d
 fdb $128b,$8080,$8040,$102,$205,$183,$335
 fdb $4889,$8080,$8040,$102,$266,$000,$000
 fdb $4889,$8080,$8020,$102,$306,$040,$63d
 fdb $4889,$8080,$8020,$102,$399,$040,$63d
 fdb $128b,$8080,$8020,$081,$102,$183,$000
 fdb $128b,$8080,$8020,$081,$133,$000,$000
 fdb $4889,$8080,$8020,$081,$183,$040,$63d
 fdb $4889,$8080,$8020,$081,$1cc,$040,$63d
 fdb $128b,$8080,$8040,$102,$205,$183,$335
 fdb $4889,$8080,$8040,$102,$266,$000,$000
 fdb $4889,$8080,$8020,$102,$306,$040,$63d
 fdb $4889,$8080,$8020,$102,$399,$040,$63d
 fdb $128b,$8040,$8020,$081,$102,$183,$000
 fdb $128b,$8040,$8020,$081,$133,$000,$000
 fdb $4889,$8040,$8020,$081,$183,$040,$63d
 fdb $4889,$8040,$8020,$081,$1cc,$040,$63d
 fdb $128b,$8040,$8040,$102,$205,$183,$335
 fdb $4889,$8040,$8040,$102,$266,$000,$000
 fdb $4889,$8040,$8020,$102,$306,$040,$63d
 fdb $4889,$8040,$8020,$102,$399,$040,$63d
 fdb $128b,$8040,$8020,$099,$102,$183,$000
 fdb $128b,$8040,$8020,$099,$133,$000,$000
 fdb $4889,$8040,$8020,$099,$183,$04c,$63d
 fdb $4889,$8040,$8020,$099,$1cc,$04c,$63d
 fdb $128b,$8040,$8040,$133,$205,$183,$335
 fdb $4889,$8040,$8040,$133,$266,$000,$000
 fdb $4889,$8040,$8020,$133,$306,$04c,$63d
 fdb $4889,$8040,$8020,$133,$399,$04c,$63d
 fdb $128b,$8020,$8020,$081,$102,$183,$000
 fdb $128b,$8020,$8020,$081,$133,$000,$000
 fdb $4889,$8020,$8020,$081,$183,$040,$63d
 fdb $4889,$8020,$8020,$081,$1cc,$040,$63d
 fdb $128b,$8020,$8040,$102,$205,$183,$335
 fdb $4889,$8020,$8040,$102,$266,$000,$000
 fdb $4889,$8020,$8020,$102,$306,$040,$63d
 fdb $4889,$8020,$8020,$102,$399,$040,$63d
 fdb $128b,$8020,$8020,$081,$102,$183,$000
 fdb $128b,$8020,$8020,$081,$133,$000,$000
 fdb $4889,$8020,$8020,$081,$183,$040,$63d
 fdb $4889,$8020,$8020,$081,$1cc,$040,$63d
 fdb $128b,$8020,$8040,$102,$205,$183,$335
 fdb $4889,$8020,$8040,$102,$266,$000,$000
 fdb $4889,$8020,$8020,$102,$306,$040,$63d
 fdb $4889,$8020,$8020,$102,$399,$040,$63d
 fdb $128b,$8010,$8020,$081,$102,$183,$000
 fdb $128b,$8010,$8020,$081,$133,$000,$000
 fdb $4889,$8010,$8020,$081,$183,$040,$63d
 fdb $4889,$8010,$8020,$081,$1cc,$040,$63d
 fdb $128b,$8010,$8040,$102,$205,$183,$335
 fdb $4889,$8010,$8040,$102,$266,$000,$000
 fdb $4889,$8010,$8020,$102,$306,$040,$63d
 fdb $4889,$8010,$8020,$102,$399,$040,$63d
 fdb $128b,$8010,$8020,$056,$102,$183,$000
 fdb $128b,$8010,$8020,$056,$133,$000,$000
 fdb $4889,$8010,$8020,$056,$183,$0b6,$63d
 fdb $4889,$8010,$8020,$056,$1cc,$0b6,$63d
 fdb $128b,$8010,$8040,$0ac,$205,$183,$335
 fdb $4889,$8010,$8020,$0ac,$266,$000,$33c
 fdb $4889,$8010,$8020,$0ac,$306,$0b6,$63d
 fdb $4889,$8010,$8010,$0ac,$399,$0b6,$26c
 fdb 0

ptn3
 fdb $128b,$8080,$8080,$0c1,$1cc,$244,$2b2
 fdb $128b,$8080,$8080,$0c1,$0e6,$244,$2b2
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$2b2
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$2b2
 fdb $128b,$4080,$8080,$0c1,$1cc,$244,$2b2
 fdb $128b,$4040,$8080,$0c1,$0e6,$244,$2b2
 fdb $128b,$4040,$4080,$0c1,$0e6,$122,$2b2
 fdb $128b,$4040,$4040,$0c1,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$2b2
 fdb $128b,$2040,$4040,$0c1,$1cc,$244,$2b2
 fdb $128b,$2020,$4040,$0c1,$0e6,$244,$2b2
 fdb $128b,$2020,$2040,$0c1,$0e6,$122,$2b2
 fdb $128b,$2020,$2020,$0c1,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$2b2
 fdb $128b,$1020,$2020,$0c1,$1cc,$244,$2b2
 fdb $128b,$1010,$2020,$0c1,$0e6,$244,$2b2
 fdb $128b,$1010,$1020,$0c1,$0e6,$122,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$1cc,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$2b2
 fdb $128b,$2010,$1010,$0c1,$1cc,$244,$2b2
 fdb $128b,$2020,$1010,$0c1,$0e6,$244,$2b2
 fdb $128b,$2020,$2010,$0c1,$0e6,$122,$2b2
 fdb $128b,$2020,$2020,$0c1,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$2b2
 fdb $128b,$4020,$2020,$0c1,$1cc,$244,$2b2
 fdb $128b,$4040,$2020,$0c1,$0e6,$244,$2b2
 fdb $128b,$4040,$4020,$0c1,$0e6,$122,$2b2
 fdb $128b,$4040,$4040,$0c1,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$2b2
 fdb $128b,$8040,$4040,$0c1,$1cc,$244,$2b2
 fdb $128b,$8080,$4040,$0c1,$0e6,$244,$2b2
 fdb $128b,$8080,$8040,$0c1,$0e6,$122,$2b2
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$2b2
 fdb 0

ptn4
 fdb $128b,$8080,$8080,$102,$1cc,$244,$2b2
 fdb $128b,$8080,$8080,$102,$133,$244,$2b2
 fdb $128b,$8080,$8080,$102,$133,$183,$2b2
 fdb $128b,$8080,$8080,$102,$133,$183,$1cc
 fdb $128b,$8080,$8080,$205,$133,$183,$1cc
 fdb $128b,$8080,$8080,$205,$266,$183,$1cc
 fdb $128b,$8080,$8080,$205,$266,$306,$1cc
 fdb $128b,$8080,$8080,$205,$266,$306,$399
 fdb $128b,$4080,$8080,$102,$266,$306,$399
 fdb $128b,$4040,$8080,$102,$133,$306,$399
 fdb $128b,$4040,$4080,$102,$133,$183,$399
 fdb $128b,$4040,$4040,$102,$133,$183,$1cc
 fdb $128b,$4040,$4040,$205,$133,$183,$1cc
 fdb $128b,$4040,$4040,$205,$266,$183,$1cc
 fdb $128b,$4040,$4040,$205,$266,$306,$1cc
 fdb $128b,$4040,$4040,$205,$266,$306,$399
 fdb $128b,$2040,$4040,$102,$266,$306,$399
 fdb $128b,$2020,$4040,$102,$133,$306,$399
 fdb $128b,$2020,$2040,$102,$133,$183,$399
 fdb $128b,$2020,$2020,$102,$133,$183,$1cc
 fdb $128b,$2020,$2020,$205,$133,$183,$1cc
 fdb $128b,$2020,$2020,$205,$266,$183,$1cc
 fdb $128b,$2020,$2020,$205,$266,$306,$1cc
 fdb $128b,$2020,$2020,$205,$266,$306,$399
 fdb $128b,$1020,$2020,$102,$266,$306,$399
 fdb $128b,$1010,$2020,$102,$133,$306,$399
 fdb $128b,$1010,$1020,$102,$133,$183,$399
 fdb $128b,$1010,$1010,$102,$133,$183,$1cc
 fdb $128b,$1010,$1010,$205,$133,$183,$1cc
 fdb $128b,$1010,$1010,$205,$266,$183,$1cc
 fdb $128b,$1010,$1010,$205,$266,$306,$1cc
 fdb $128b,$1010,$1010,$205,$266,$306,$399
 fdb $128b,$1010,$1010,$102,$266,$306,$399
 fdb $128b,$1010,$1010,$102,$133,$306,$399
 fdb $128b,$1010,$1010,$102,$133,$183,$399
 fdb $128b,$1010,$1010,$102,$133,$183,$1cc
 fdb $128b,$1010,$1010,$205,$133,$183,$1cc
 fdb $128b,$1010,$1010,$205,$266,$183,$1cc
 fdb $128b,$1010,$1010,$205,$266,$306,$1cc
 fdb $128b,$1010,$1010,$205,$266,$306,$399
 fdb $128b,$2010,$1010,$102,$266,$306,$399
 fdb $128b,$2020,$1010,$102,$133,$306,$399
 fdb $128b,$2020,$2010,$102,$133,$183,$399
 fdb $128b,$2020,$2020,$102,$133,$183,$1cc
 fdb $128b,$2020,$2020,$205,$133,$183,$1cc
 fdb $128b,$2020,$2020,$205,$266,$183,$1cc
 fdb $128b,$2020,$2020,$205,$266,$306,$1cc
 fdb $128b,$2020,$2020,$205,$266,$306,$399
 fdb $128b,$4020,$2020,$102,$266,$306,$399
 fdb $128b,$4040,$2020,$102,$133,$306,$399
 fdb $128b,$4040,$4020,$102,$133,$183,$399
 fdb $128b,$4040,$4040,$102,$133,$183,$1cc
 fdb $128b,$4040,$4040,$205,$133,$183,$1cc
 fdb $128b,$4040,$4040,$205,$266,$183,$1cc
 fdb $128b,$4040,$4040,$205,$266,$306,$1cc
 fdb $128b,$4040,$4040,$205,$266,$306,$399
 fdb $128b,$8040,$4040,$102,$266,$306,$399
 fdb $128b,$8080,$4040,$102,$133,$306,$399
 fdb $128b,$8080,$8040,$102,$133,$183,$399
 fdb $128b,$8080,$8080,$102,$133,$183,$1cc
 fdb $128b,$8080,$8080,$205,$133,$183,$1cc
 fdb $128b,$8080,$8080,$205,$266,$183,$1cc
 fdb $128b,$8080,$8080,$205,$266,$306,$1cc
 fdb $128b,$8080,$8080,$205,$266,$306,$399
 fdb 0

ptn5
 fdb $128b,$8080,$8080,$0c1,$000,$000,$000
 fdb $128b,$8080,$8080,$0c1,$0e6,$000,$000
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$000
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$2b2
 fdb $128b,$4080,$8080,$0c1,$1cc,$244,$2b2
 fdb $128b,$4040,$8080,$0c1,$0e6,$244,$2b2
 fdb $128b,$4040,$4080,$0c1,$0e6,$122,$2b2
 fdb $128b,$4040,$4040,$0c1,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$2b2
 fdb $128b,$2040,$4040,$0c1,$1cc,$244,$2b2
 fdb $128b,$2020,$4040,$0c1,$0e6,$244,$2b2
 fdb $128b,$2020,$2040,$0c1,$0e6,$122,$2b2
 fdb $128b,$2020,$2020,$0c1,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$2b2
 fdb $128b,$1020,$2020,$0c1,$1cc,$244,$2b2
 fdb $128b,$1010,$2020,$0c1,$0e6,$244,$2b2
 fdb $128b,$1010,$1020,$0c1,$0e6,$122,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$1cc,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$2b2
 fdb $128b,$2010,$1010,$0c1,$1cc,$244,$2b2
 fdb $128b,$2020,$1010,$0c1,$0e6,$244,$2b2
 fdb $128b,$2020,$2010,$0c1,$0e6,$122,$2b2
 fdb $128b,$2020,$2020,$0c1,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$2b2
 fdb $128b,$4020,$2020,$0c1,$1cc,$244,$2b2
 fdb $128b,$4040,$2020,$0c1,$0e6,$244,$2b2
 fdb $128b,$4040,$4020,$0c1,$0e6,$122,$2b2
 fdb $128b,$4040,$4040,$0c1,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$2b2
 fdb $128b,$8040,$4040,$0c1,$1cc,$244,$2b2
 fdb $128b,$8080,$4040,$0c1,$0e6,$244,$2b2
 fdb $128b,$8080,$8040,$0c1,$0e6,$122,$2b2
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$2b2
 fdb 0

ptn6
 fdb $128b,$8080,$8080,$0c1,$266,$306,$399
 fdb $128b,$8080,$8080,$0c1,$0e6,$306,$399
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$399
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$2b2
 fdb $128b,$4080,$8080,$0c1,$1cc,$244,$2b2
 fdb $128b,$4040,$8080,$0c1,$0e6,$244,$2b2
 fdb $128b,$4040,$4080,$0c1,$0e6,$122,$2b2
 fdb $128b,$4040,$4040,$0c1,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$2b2
 fdb $128b,$2040,$4040,$0c1,$1cc,$244,$2b2
 fdb $128b,$2020,$4040,$0c1,$0e6,$244,$2b2
 fdb $128b,$2020,$2040,$0c1,$0e6,$122,$2b2
 fdb $128b,$2020,$2020,$0c1,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$2b2
 fdb $128b,$1020,$2020,$0c1,$1cc,$244,$2b2
 fdb $128b,$1010,$2020,$0c1,$0e6,$244,$2b2
 fdb $128b,$1010,$1020,$0c1,$0e6,$122,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$1cc,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$244,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$2b2
 fdb $128b,$1010,$1010,$0c1,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$0e6,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$122,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$159
 fdb $128b,$1010,$1010,$183,$1cc,$244,$2b2
 fdb $128b,$2010,$1010,$0c1,$1cc,$244,$2b2
 fdb $128b,$2020,$1010,$0c1,$0e6,$244,$2b2
 fdb $128b,$2020,$2010,$0c1,$0e6,$122,$2b2
 fdb $128b,$2020,$2020,$0c1,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$0e6,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$122,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$159
 fdb $128b,$2020,$2020,$183,$1cc,$244,$2b2
 fdb $128b,$4020,$2020,$0c1,$1cc,$244,$2b2
 fdb $128b,$4040,$2020,$0c1,$0e6,$244,$2b2
 fdb $128b,$4040,$4020,$0c1,$0e6,$122,$2b2
 fdb $128b,$4040,$4040,$0c1,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$0e6,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$122,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$159
 fdb $128b,$4040,$4040,$183,$1cc,$244,$2b2
 fdb $128b,$8040,$4040,$0c1,$1cc,$244,$2b2
 fdb $128b,$8080,$4040,$0c1,$0e6,$244,$2b2
 fdb $128b,$8080,$8040,$0c1,$0e6,$122,$2b2
 fdb $128b,$8080,$8080,$0c1,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$0e6,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$122,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$159
 fdb $128b,$8080,$8080,$183,$1cc,$244,$2b2
 fdb 0