home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Information / HACK5A.SFX / hack5-3 < prev   
Encoding:
Text File  |  1990-02-12  |  18.0 KB  |  801 lines
  1.  
  2.   LDY TMPREGOFST
  3.   LDA PORTAVAL,X   ;CHECK FOR PORTAMENTO
  4.   BEQ DRUMS        ;NONE
  5.  
  6.   AND #$7E         ;TOAD UNWANTED BITS
  7.   STA TEMPSTORE
  8.  
  9.   LDA PORTAVAL,X   ;BIT0 SIGNALS UP/DOWN
  10.   AND #$01
  11.   BEQ PORTUP
  12.  
  13.   SEC              ;PORTAMENTO DOWN
  14.   LDA SAVEFREQLO,X ;SUB PORTAVAL FROM
  15.   SBC TEMPSTORE    ;CURRENT FREQUENCY
  16.   STA SAVEFREQLO,X
  17.   STA $D400,Y
  18.   LDA SAVEFREQHI,X
  19.   SBC #$00         ;(WORD ARITHMETIC)
  20.   STA SAVEFREQHI,X
  21.   STA $D401,Y
  22.   JMP DRUMS
  23.  
  24. PORTUP =*
  25.  
  26.   CLC              ;PORTAMENTO UP
  27.   LDA SAVEFREQLO,X ;ADD PORTVAL TO
  28.   ADC TEMPSTORE    ;CURRENT FREQUENCY
  29.   STA SAVEFREQLO,X
  30.   STA $D400,Y
  31.   LDA SAVEFREQHI,X
  32.   ADC #$00
  33.   STA SAVEFREQHI,X
  34.   STA $D401,Y
  35.  
  36.  
  37. ;BIT0 INSTRFX ARE THE DRUM ROUTINES
  38. ;THE ACTUAL DRUM TIMBRE DEPENDS ON THE
  39. ;CRTL REGISTER VALUE FOR THE INSTRUMENT:
  40. ;CTRLREG 0 IS ALWAYS NOISE
  41. ;CTRLREG X IS NOISE FOR 1ST VBL AND X
  42. ;FROM THEN ON
  43.  
  44. ;SEE THAT THE DRUM IS MADE BY RAPID HI
  45. ;TO LOW FREQUENCY SLIDE WITH FAST ATTACK
  46. ;AND DECAY
  47.  
  48. DRUMS =*
  49.  
  50.   LDA INSTRFX      ;CHECK IF DRUMS
  51.   AND #$01         ;NEEDED THIS INSTR
  52.   BEQ SKYDIVE
  53.  
  54.   LDA SAVEFREQHI,X ;DON'T BOTHER IF FREQ
  55.   BEQ SKYDIVE      ;CAN'T GO ANY LOWER
  56.  
  57.   LDA LENGTHLEFT,X ;OR IF THE NOTE HAS
  58.   BEQ SKYDIVE      ;FINISHED
  59.  
  60.   LDA SAVELNTHCC,X ;CHECK IF THIS IS THE
  61.   AND #$1F         ;FIRST VBL FOR THIS
  62.   SEC              ;INSTRUMENT-NOTE
  63.   SBC #$01
  64.   CMP LENGTHLEFT,X
  65.   LDY TMPREGOFST
  66.   BCC FIRSTIME
  67.  
  68.   LDA SAVEFREQHI,X ;NOT THE FIRST TIME
  69.   DEC SAVEFREQHI,X ;SO DEC FREQHI FOR
  70.   STA $D401,Y      ;DRUM SOUND
  71.  
  72.   LDA VOICECTRL,X  ;IF CTRLREG IS 0 THEN
  73.   AND #$FE         ;NOISE IS USED ALWAYS
  74.   BNE DUMPCTRL
  75.  
  76. FIRSTIME =*
  77.  
  78.   LDA SAVEFREQHI,X ;NOISE IS USED FOR
  79.   STA $D401,Y      ;THE FIRST VBL ALSO
  80.   LDA #$80         ;(SET NOISE)
  81.  
  82. DUMPCTRL =*
  83.  
  84.   STA $D404,Y
  85.  
  86.  
  87. ;BIT1 INSTRFX IS THE SKYDIVE
  88. ;A LONG PORTAMENTO-DOWN FROM THE NOTE
  89. ;TO ZEROFREQ
  90.  
  91. SKYDIVE =*
  92.  
  93.   LDA INSTRFX      ;CHECK IF SKYDIVE
  94.   AND #$02         ;NEEDED THIS INSTR
  95.   BEQ OCTARP
  96.  
  97.   LDA COUNTER      ;EVERY 2ND VBL
  98.   AND #$01
  99.   BEQ OCTARP
  100.  
  101.   LDA SAVEFREQHI,X ;CHECK IF SKYDIVE
  102.   BEQ OCTARP        ;ALREADY COMPLETE
  103.  
  104.   DEC SAVEFREQHI,X ;DECR AND SAVE THE
  105.   LDY TMPREGOFST   ;HIGH BYTE FREQ
  106.   STA $D401,Y
  107.  
  108.  
  109. ;BIT2 INSTRFX IS AN OCTAVE ARPEGGIO
  110. ;PRETTY TAME HUH?
  111.  
  112. OCTARP =*
  113.  
  114.   LDA INSTRFX      ;CHECK IF ARPT NEEDED
  115.   AND #$04
  116.   BEQ LOOPCONT
  117.  
  118.   LDA COUNTER      ;ONLY 2 ARPT VALUES
  119.   AND #$01
  120.   BEQ +
  121.  
  122.   LDA NOTENUM,X    ;ODD, NOTE+12
  123.   CLC
  124.   ADC #$0C
  125.   JMP ++
  126.  
  127. + LDA NOTENUM,X    ;EVEN, NOTE
  128.  
  129. + ASL              ;DUMP THE CORRESPONDING
  130.   TAY              ;FREQUENCIES
  131.   LDA FREQUENZLO,Y
  132.   STA TEMPFREQ
  133.   LDA FREQUENZHI,Y
  134.   LDY TMPREGOFST
  135.   STA $D401,Y
  136.   LDA TEMPFREQ
  137.   STA $D400,Y
  138.  
  139.  
  140. ;==========
  141. ;END OF DBF LOOP
  142.  
  143. LOOPCONT =*
  144.  
  145.   DEX              ;DBF MAINLOOP
  146.   BMI MUSICEND
  147.   JMP MAINLOOP
  148.  
  149. MUSICEND =*
  150.  
  151.   RTS
  152.  
  153.  
  154. ;====================================
  155. ;FREQUENZ DATA
  156. ;====================================
  157.  
  158. FREQUENZLO .BYT $16
  159. FREQUENZHI .BYT $01
  160.  .BYT $27,$01,$38,$01,$4B,$01
  161.  .BYT $5F,$01,$73,$01,$8A,$01,$A1,$01
  162.  .BYT $BA,$01,$D4,$01,$F0,$01,$0E,$02
  163.  .BYT $2D,$02,$4E,$02,$71,$02,$96,$02
  164.  .BYT $BD,$02,$E7,$02,$13,$03,$42,$03
  165.  .BYT $74,$03,$A9,$03,$E0,$03,$1B,$04
  166.  .BYT $5A,$04,$9B,$04,$E2,$04,$2C,$05
  167.  .BYT $7B,$05,$CE,$05,$27,$06,$85,$06
  168.  .BYT $E8,$06,$51,$07,$C1,$07,$37,$08
  169.  .BYT $B4,$08,$37,$09,$C4,$09,$57,$0A
  170.  .BYT $F5,$0A,$9C,$0B,$4E,$0C,$09,$0D
  171.  .BYT $D0,$0D,$A3,$0E,$82,$0F,$6E,$10
  172.  .BYT $68,$11,$6E,$12,$88,$13,$AF,$14
  173.  .BYT $EB,$15,$39,$17,$9C,$18,$13,$1A
  174.  .BYT $A1,$1B,$46,$1D,$04,$1F,$DC,$20
  175.  .BYT $D0,$22,$DC,$24,$10,$27,$5E,$29
  176.  .BYT $D6,$2B,$72,$2E,$38,$31,$26,$34
  177.  .BYT $42,$37,$8C,$3A,$08,$3E,$B8,$41
  178.  .BYT $A0,$45,$B8,$49,$20,$4E,$BC,$52
  179.  .BYT $AC,$57,$E4,$5C,$70,$62,$4C,$68
  180.  .BYT $84,$6E,$18,$75,$10,$7C,$70,$83
  181.  .BYT $40,$8B,$70,$93,$40,$9C,$78,$A5
  182.  .BYT $58,$AF,$C8,$B9,$E0,$C4,$98,$D0
  183.  .BYT $08,$DD,$30,$EA,$20,$F8,$2E,$FD
  184.  
  185.  
  186. REGOFFSETS .BYT $00,$07,$0E
  187. TMPREGOFST .BYT $00
  188. POSOFFSET  .BYT $00,$00,$00
  189. PATOFFSET  .BYT $00,$00,$00
  190. LENGTHLEFT .BYT $00,$00,$00
  191. SAVELNTHCC .BYT $00,$00,$00
  192. VOICECTRL  .BYT $00,$00,$00
  193. NOTENUM    .BYT $00,$00,$00
  194. INSTRNR    .BYT $00,$00,$00
  195. APPENDFL   .BYT $00
  196. TEMPLNTHCC .BYT $00
  197. TEMPFREQ   .BYT $00
  198. TEMPSTORE  .BYT $00
  199. TEMPCTRL   .BYT $00
  200. VIBRDEPTH  .BYT $00
  201. PULSEVALUE .BYT $00
  202. TMPVDIFLO  .BYT $00
  203. TMPVDIFHI  .BYT $00
  204. TMPVFRQLO  .BYT $00
  205. TMPVFRQHI  .BYT $00
  206. OSCILATVAL .BYT $00
  207. PULSEDELAY .BYT $00,$00,$00
  208. PULSEDIR   .BYT $00,$00,$00
  209. SPEED      .BYT $00
  210. RESETSPD   .BYT $01
  211. INSTNUMBY8 .BYT $00
  212. MSTATUS    .BYT $C0
  213. SAVEFREQHI .BYT $00,$00,$00
  214. SAVEFREQLO .BYT $00,$00,$00
  215. PORTAVAL   .BYT $00,$00,$00
  216. INSTRFX    .BYT $00
  217. PULSESPEED .BYT $00
  218. COUNTER    .BYT $00
  219. CURRTRKHI  .BYT $00,$00,$00
  220. CURRTRKLO  .BYT $00,$00,$00
  221.  
  222.  
  223. ;====================================
  224. ;MONTY ON THE RUN MAIN THEME
  225. ;====================================
  226.  
  227. SONGS =*
  228.  .BYT <MONTYMAINTR1
  229.  .BYT <MONTYMAINTR2
  230.  .BYT <MONTYMAINTR3
  231.  .BYT >MONTYMAINTR1
  232.  .BYT >MONTYMAINTR2
  233.  .BYT >MONTYMAINTR3
  234.  
  235.  
  236. ;====================================
  237. ;POINTERS TO THE PATTERNS
  238.  
  239. ;LOW POINTERS
  240. PATPTL =*
  241.  .BYT <PTN00
  242.  .BYT <PTN01
  243.  .BYT <PTN02
  244.  .BYT <PTN03
  245.  .BYT <PTN04
  246.  .BYT <PTN05
  247.  .BYT <PTN06
  248.  .BYT <PTN07
  249.  .BYT <PTN08
  250.  .BYT <PTN09
  251.  .BYT <PTN0A
  252.  .BYT <PTN0B
  253.  .BYT <PTN0C
  254.  .BYT <PTN0D
  255.  .BYT <PTN0E
  256.  .BYT <PTN0F
  257.  .BYT <PTN10
  258.  .BYT <PTN11
  259.  .BYT <PTN12
  260.  .BYT <PTN13
  261.  .BYT <PTN14
  262.  .BYT <PTN15
  263.  .BYT <PTN16
  264.  .BYT <PTN17
  265.  .BYT <PTN18
  266.  .BYT <PTN19
  267.  .BYT <PTN1A
  268.  .BYT <PTN1B
  269.  .BYT <PTN1C
  270.  .BYT <PTN1D
  271.  .BYT <PTN1E
  272.  .BYT <PTN1F
  273.  .BYT <PTN20
  274.  .BYT <PTN21
  275.  .BYT <PTN22
  276.  .BYT <PTN23
  277.  .BYT <PTN24
  278.  .BYT <PTN25
  279.  .BYT <PTN26
  280.  .BYT <PTN27
  281.  .BYT <PTN28
  282.  .BYT <PTN29
  283.  .BYT <PTN2A
  284.  .BYT <PTN2B
  285.  .BYT <PTN2C
  286.  .BYT <PTN2D
  287.  .BYT 0
  288.  .BYT <PTN2F
  289.  .BYT <PTN30
  290.  .BYT <PTN31
  291.  .BYT <PTN32
  292.  .BYT <PTN33
  293.  .BYT <PTN34
  294.  .BYT <PTN35
  295.  .BYT <PTN36
  296.  .BYT <PTN37
  297.  .BYT <PTN38
  298.  .BYT <PTN39
  299.  .BYT <PTN3A
  300.  .BYT <PTN3B
  301.  
  302. ;HIGH POINTERS
  303. PATPTH =*
  304.  .BYT >PTN00
  305.  .BYT >PTN01
  306.  .BYT >PTN02
  307.  .BYT >PTN03
  308.  .BYT >PTN04
  309.  .BYT >PTN05
  310.  .BYT >PTN06
  311.  .BYT >PTN07
  312.  .BYT >PTN08
  313.  .BYT >PTN09
  314.  .BYT >PTN0A
  315.  .BYT >PTN0B
  316.  .BYT >PTN0C
  317.  .BYT >PTN0D
  318.  .BYT >PTN0E
  319.  .BYT >PTN0F
  320.  .BYT >PTN10
  321.  .BYT >PTN11
  322.  .BYT >PTN12
  323.  .BYT >PTN13
  324.  .BYT >PTN14
  325.  .BYT >PTN15
  326.  .BYT >PTN16
  327.  .BYT >PTN17
  328.  .BYT >PTN18
  329.  .BYT >PTN19
  330.  .BYT >PTN1A
  331.  .BYT >PTN1B
  332.  .BYT >PTN1C
  333.  .BYT >PTN1D
  334.  .BYT >PTN1E
  335.  .BYT >PTN1F
  336.  .BYT >PTN20
  337.  .BYT >PTN21
  338.  .BYT >PTN22
  339.  .BYT >PTN23
  340.  .BYT >PTN24
  341.  .BYT >PTN25
  342.  .BYT >PTN26
  343.  .BYT >PTN27
  344.  .BYT >PTN28
  345.  .BYT >PTN29
  346.  .BYT >PTN2A
  347.  .BYT >PTN2B
  348.  .BYT >PTN2C
  349.  .BYT >PTN2D
  350.  .BYT 0
  351.  .BYT >PTN2F
  352.  .BYT >PTN30
  353.  .BYT >PTN31
  354.  .BYT >PTN32
  355.  .BYT >PTN33
  356.  .BYT >PTN34
  357.  .BYT >PTN35
  358.  .BYT >PTN36
  359.  .BYT >PTN37
  360.  .BYT >PTN38
  361.  .BYT >PTN39
  362.  .BYT >PTN3A
  363.  .BYT >PTN3B
  364.  
  365.  
  366. ;====================================
  367. ;TRACKS
  368. ;====================================
  369.  
  370. ;TRACK1
  371. MONTYMAINTR1 =*
  372.  .BYT $11,$14,$17,$1A,$00,$27,$00,$28
  373.  .BYT $03,$05,$00,$27,$00,$28,$03,$05
  374.  .BYT $07,$3A,$14,$17,$00,$27,$00,$28
  375.  .BYT $2F,$30,$31,$31,$32,$33,$33,$34
  376.  .BYT $34,$34,$34,$34,$34,$34,$34,$35
  377.  .BYT $35,$35,$35,$35,$35,$36,$12,$37
  378.  .BYT $38,$09,$2A,$09,$2B,$09,$0A,$09
  379.  .BYT $2A,$09,$2B,$09,$0A,$0D,$0D,$0F
  380.  .BYT $FF
  381.  
  382. ;TRACK2
  383. MONTYMAINTR2 =*
  384.  .BYT $12,$15,$18,$1B,$2D,$39,$39
  385.  .BYT $39,$39,$39,$39,$2C,$39,$39,$39
  386.  .BYT $39,$39,$39,$2C,$39,$39,$39,$01
  387.  .BYT $01,$29,$29,$2C,$15,$18,$39,$39
  388.  .BYT $39,$39,$39,$39,$39,$39,$39,$39
  389.  .BYT $39,$39,$39,$39,$39,$39,$39,$39
  390.  .BYT $39,$39,$39,$39,$39,$39,$39,$39
  391.  .BYT $39,$39,$39,$39,$39,$01,$01,$01
  392.  .BYT $29,$39,$39,$39,$01,$01,$01,$29
  393.  .BYT $39,$39,$39,$39,$FF
  394.  
  395. ;TRACK3
  396. MONTYMAINTR3 =*
  397.  .BYT $13,$16,$19
  398.  .BYT $1C,$02,$02,$1D,$1E,$02,$02,$1D
  399.  .BYT $1F,$04,$04,$20,$20,$06,$02,$02
  400.  .BYT $1D,$1E,$02,$02,$1D,$1F,$04,$04
  401.  .BYT $20,$20,$06,$08,$08,$08,$08,$21
  402.  .BYT $21,$21,$21,$22,$22,$22,$23,$22
  403.  .BYT $24,$25,$3B,$26,$26,$26,$26,$26
  404.  .BYT $26,$26,$26,$26,$26,$26,$26,$26
  405.  .BYT $26,$26,$26,$02,$02,$1D,$1E,$02
  406.  .BYT $02,$1D,$1F,$2F,$2F,$2F,$2F,$2F
  407.  .BYT $2F,$2F,$2F,$2F,$2F,$2F,$2F,$2F
  408.  .BYT $0B,$0B,$1D,$1D,$0B,$0B,$1D,$0B
  409.  .BYT $0B,$0B,$0C,$0C,$1D,$1D,$1D,$10
  410.  .BYT $0B,$0B,$1D,$1D,$0B,$0B,$1D,$0B
  411.  .BYT $0B,$0B,$0C,$0C,$1D,$1D,$1D,$10
  412.  .BYT $0B,$1D,$0B,$1D,$0B,$1D,$0B,$1D
  413.  .BYT $0B,$0C,$1D,$0B,$0C,$23,$0B,$0B
  414.  .BYT $FF
  415.  
  416.  
  417. ;====================================
  418. ;PATTERNS
  419. ;====================================
  420.  
  421. PTN00 =*
  422.  .BYT $83,$00,$37,$01,$3E,$01,$3E,$03
  423.  .BYT $3D,$03,$3E,$03,$43,$03,$3E,$03
  424.  .BYT $3D,$03,$3E,$03,$37,$01,$3E,$01
  425.  .BYT $3E,$03,$3D,$03,$3E,$03,$43,$03
  426.  .BYT $42,$03,$43,$03,$45,$03,$46,$01
  427.  .BYT $48,$01,$46,$03,$45,$03,$43,$03
  428.  .BYT $4B,$01,$4D,$01,$4B,$03,$4A,$03
  429.  .BYT $48,$FF
  430.  
  431. PTN27 =*
  432.  .BYT $1F,$4A,$FF
  433.  
  434. PTN28 =*
  435.  .BYT $03,$46,$01,$48,$01,$46,$03,$45
  436.  .BYT $03,$4A,$0F,$43,$FF
  437.  
  438. PTN03 =*
  439.  .BYT $BF,$06
  440.  .BYT $48,$07,$48,$01,$4B,$01,$4A,$01
  441.  .BYT $4B,$01,$4A,$03,$4B,$03,$4D,$03
  442.  .BYT $4B,$03,$4A,$3F,$48,$07,$48,$01
  443.  .BYT $4B,$01,$4A,$01,$4B,$01,$4A,$03
  444.  .BYT $4B,$03,$4D,$03,$4B,$03,$48,$3F
  445.  .BYT $4C,$07,$4C,$01,$4F,$01,$4E,$01
  446.  .BYT $4F,$01,$4E,$03,$4F,$03,$51,$03
  447.  .BYT $4F,$03,$4E,$3F,$4C,$07,$4C,$01
  448.  .BYT $4F,$01,$4E,$01,$4F,$01,$4E,$03
  449.  .BYT $4F,$03,$51,$03,$4F,$03,$4C,$FF
  450.  
  451. PTN05 =*
  452.  .BYT $83,$04,$26,$03,$29,$03,$28,$03
  453.  .BYT $29,$03,$26,$03,$35,$03,$34,$03
  454.  .BYT $32,$03,$2D,$03,$30,$03,$2F,$03
  455.  .BYT $30,$03,$2D,$03,$3C,$03,$3B,$03
  456.  .BYT $39,$03,$30,$03,$33,$03,$32,$03
  457.  .BYT $33,$03,$30,$03,$3F,$03,$3E,$03
  458.  .BYT $3C,$03,$46,$03,$45,$03,$43,$03
  459.  .BYT $3A,$03,$39,$03,$37,$03,$2E,$03
  460.  .BYT $2D,$03,$26,$03,$29,$03,$28,$03
  461.  .BYT $29,$03,$26,$03,$35,$03,$34,$03
  462.  .BYT $32,$03,$2D,$03,$30,$03,$2F,$03
  463.  .BYT $30,$03,$2D,$03,$3C,$03,$3B,$03
  464.  .BYT $39,$03,$30,$03,$33,$03,$32,$03
  465.  .BYT $33,$03,$30,$03,$3F,$03,$3E,$03
  466.  .BYT $3C,$03,$34,$03,$37,$03,$36,$03
  467.  .BYT $37,$03,$34,$03,$37,$03,$3A,$03
  468.  .BYT $3D
  469.  
  470. PTN3A =*
  471.  .BYT $03,$3E,$07,$3E,$07,$3F,$07
  472.  .BYT $3E,$03,$3C,$07,$3E,$57,$FF
  473.  
  474. PTN07 =*
  475.  .BYT $8B
  476.  .BYT $00,$3A,$01,$3A,$01,$3C,$03,$3D
  477.  .BYT $03,$3F,$03,$3D,$03,$3C,$0B,$3A
  478.  .BYT $03,$39,$07,$3A,$81,$06,$4B,$01
  479.  .BYT $4D,$01,$4E,$01,$4D,$01,$4E,$01
  480.  .BYT $4D,$05,$4B,$81,$00,$3A,$01,$3C
  481.  .BYT $01,$3D,$03,$3F,$03,$3D,$03,$3C
  482.  .BYT $03,$3A,$03,$39,$1B,$3A,$0B,$3B
  483.  .BYT $01,$3B,$01,$3D,$03,$3E,$03,$40
  484.  .BYT $03,$3E,$03,$3D,$0B,$3B,$03,$3A
  485.  .BYT $07,$3B,$81,$06,$4C,$01,$4E,$01
  486.  .BYT $4F,$01,$4E,$01,$4F,$01,$4E,$05
  487.  .BYT $4C,$81,$00,$3B,$01,$3D,$01,$3E
  488.  .BYT $03,$40,$03,$3E,$03,$3D,$03,$3B
  489.  .BYT $03,$3A,$1B,$3B,$8B,$05,$35,$03
  490.  .BYT $33,$07,$32,$03,$30,$03,$2F,$0B
  491.  .BYT $30,$03,$32,$0F,$30,$0B,$35,$03
  492.  .BYT $33,$07,$32,$03,$30,$03,$2F,$1F
  493.  .BYT $30,$8B,$00,$3C,$01,$3C,$01,$3E
  494.  .BYT $03,$3F,$03,$41,$03,$3F,$03,$3E
  495.  .BYT $0B,$3D,$01,$3D,$01,$3F,$03,$40
  496.  .BYT $03,$42,$03,$40,$03,$3F,$03,$3E
  497.  .BYT $01,$3E,$01,$40,$03,$41,$03,$40
  498.  .BYT $03,$3E,$03,$3D,$03,$3E,$03,$3C
  499.  .BYT $03,$3A,$01,$3A,$01,$3C,$03,$3D
  500.  .BYT $03,$3C,$03,$3A,$03,$39,$03,$3A
  501.  .BYT $03,$3C,$FF
  502.  
  503. PTN09 =*
  504.  .BYT $83,$00,$32,$01,$35,$01,$34,$03
  505.  .BYT $32,$03,$35,$03,$34,$03,$32,$03
  506.  .BYT $35,$01,$34,$01,$32,$03,$32,$03
  507.  .BYT $3A,$03,$39,$03,$3A,$03,$32,$03
  508.  .BYT $3A,$03,$39,$03,$3A,$FF
  509.  
  510. PTN2A =*
  511.  .BYT $03,$34,$01,$37,$01,$35,$03,$34
  512.  .BYT $03,$37,$03,$35,$03,$34,$03,$37
  513.  .BYT $01,$35,$01,$34,$03,$34,$03,$3A
  514.  .BYT $03,$39,$03,$3A,$03,$34,$03,$3A
  515.  .BYT $03,$39,$03,$3A,$FF
  516.  
  517. PTN2B =*
  518.  .BYT $03,$39,$03,$38,$03,$39,$03,$3A
  519.  .BYT $03,$39,$03,$37,$03,$35,$03,$34
  520.  .BYT $03,$35,$03,$34,$03,$35,$03,$37
  521.  .BYT $03,$35,$03,$34,$03,$32,$03,$31
  522.  .BYT $FF
  523.  
  524. PTN0A =*
  525.  .BYT $03
  526.  .BYT $37,$01,$3A,$01,$39,$03,$37,$03
  527.  .BYT $3A,$03,$39,$03,$37,$03,$3A,$01
  528.  .BYT $39,$01,$37,$03,$37,$03,$3E,$03
  529.  .BYT $3D,$03,$3E,$03,$37,$03,$3E,$03
  530.  .BYT $3D,$03,$3E,$03,$3D,$01,$40,$01
  531.  .BYT $3E,$03,$3D,$03,$40,$01,$3E,$01
  532.  .BYT $3D,$03,$40,$03,$3E,$03,$40,$03
  533.  .BYT $40,$01,$43,$01,$41,$03,$40,$03
  534.  .BYT $43,$01,$41,$01,$40,$03,$43,$03
  535.  .BYT $41,$03,$43,$03,$43,$01,$46,$01
  536.  .BYT $45,$03,$43,$03,$46,$01,$45,$01
  537.  .BYT $43,$03,$46,$03,$45,$03,$43,$01
  538.  .BYT $48,$01,$49,$01,$48,$01,$46,$01
  539.  .BYT $45,$01,$46,$01,$45,$01,$43,$01
  540.  .BYT $41,$01,$43,$01,$41,$01,$40,$01
  541.  .BYT $3D,$01,$39,$01,$3B,$01,$3D,$FF
  542.  
  543. PTN0D =*
  544.  .BYT $01,$3E,$01,$39,$01,$35,$01,$39
  545.  .BYT $01,$3E,$01,$39,$01,$35,$01,$39
  546.  .BYT $03,$3E,$01,$41,$01,$40,$03,$40
  547.  .BYT $01,$3D,$01,$3E,$01,$40,$01,$3D
  548.  .BYT $01,$39,$01,$3D,$01,$40,$01,$3D
  549.  .BYT $01,$39,$01,$3D,$03,$40,$01,$43
  550.  .BYT $01,$41,$03,$41,$01,$3E,$01,$40
  551.  .BYT $01,$41,$01,$3E,$01,$39,$01,$3E
  552.  .BYT $01,$41,$01,$3E,$01,$39,$01,$3E
  553.  .BYT $03,$41,$01,$45,$01,$43,$03,$43
  554.  .BYT $01,$40,$01,$41,$01,$43,$01,$40
  555.  .BYT $01,$3D,$01,$40,$01,$43,$01,$40
  556.  .BYT $01,$3D,$01,$40,$01,$46,$01,$43
  557.  .BYT $01,$45,$01,$46,$01,$44,$01,$43
  558.  .BYT $01,$40,$01,$3D,$FF
  559.  
  560. PTN0F =*
  561.  .BYT $01,$3E,$01
  562.  .BYT $39,$01,$35,$01,$39,$01,$3E,$01
  563.  .BYT $39,$01,$35,$01,$39,$01,$3E,$01
  564.  .BYT $39,$01,$35,$01,$39,$01,$3E,$01
  565.  .BYT $39,$01,$35,$01,$39,$01,$3E,$01
  566.  .BYT $3A,$01,$37,$01,$3A,$01,$3E,$01
  567.  .BYT $3A,$01,$37,$01,$3A,$01,$3E,$01
  568.  .BYT $3A,$01,$37,$01,$3A,$01,$3E,$01
  569.  .BYT $3A,$01,$37,$01,$3A,$01,$40,$01
  570.  .BYT $3D,$01,$39,$01,$3D,$01,$40,$01
  571.  .BYT $3D,$01,$39,$01,$3D,$01,$40,$01
  572.  .BYT $3D,$01,$39,$01,$3D,$01,$40,$01
  573.  .BYT $3D,$01,$39,$01,$3D,$01,$41,$01
  574.  .BYT $3E,$01,$39,$01,$3E,$01,$41,$01
  575.  .BYT $3E,$01,$39,$01,$3E,$01,$41,$01
  576.  .BYT $3E,$01,$39,$01,$3E,$01,$41,$01
  577.  .BYT $3E,$01,$39,$01,$3E,$01,$43,$01
  578.  .BYT $3E,$01,$3A,$01,$3E,$01,$43,$01
  579.  .BYT $3E,$01,$3A,$01,$3E,$01,$43,$01
  580.  .BYT $3E,$01,$3A,$01,$3E,$01,$43,$01
  581.  .BYT $3E,$01,$3A,$01,$3E,$01,$43,$01
  582.  .BYT $3F,$01,$3C,$01,$3F,$01,$43,$01
  583.  .BYT $3F,$01,$3C,$01,$3F,$01,$43,$01
  584.  .BYT $3F,$01,$3C,$01,$3F,$01,$43,$01
  585.  .BYT $3F,$01,$3C,$01,$3F,$01,$45,$01
  586.  .BYT $42,$01,$3C,$01,$42,$01,$45,$01
  587.  .BYT $42,$01,$3C,$01,$42,$01,$48,$01
  588.  .BYT $45,$01,$42,$01,$45,$01,$4B,$01
  589.  .BYT $48,$01,$45,$01,$48,$01,$4B,$01
  590.  .BYT $4A,$01,$48,$01,$4A,$01,$4B,$01
  591.  .BYT $4A,$01,$48,$01,$4A,$01,$4B,$01
  592.  .BYT $4A,$01,$48,$01,$4A,$01,$4C,$01
  593.  .BYT $4E,$03,$4F,$FF
  594.  
  595. PTN11 =*
  596.  .BYT $BF,$06,$56,$1F,$57,$1F,$56,$1F
  597.  .BYT $5B,$1F,$56,$1F,$57,$1F,$56,$1F
  598.  .BYT $4F,$FF
  599.  
  600. PTN12 =*
  601.  .BYT $BF,$0C,$68,$7F,$7F,$7F,$7F,$7F
  602.  .BYT $7F,$7F,$FF
  603.  
  604. PTN13 =*
  605.  .BYT $BF,$08,$13,$3F,$13,$3F,$13,$3F
  606.  .BYT $13,$3F,$13,$3F,$13,$3F,$13,$1F
  607.  .BYT $13,$FF
  608.  
  609. PTN14 =*
  610.  .BYT $97,$09,$2E,$03,$2E,$1B,$32,$03
  611.  .BYT $32,$1B,$31,$03,$31,$1F,$34,$43
  612.  .BYT $17,$32,$03,$32,$1B,$35,$03,$35
  613.  .BYT $1B,$34,$03,$34,$0F,$37,$8F,$0A
  614.  .BYT $37,$43,$FF
  615.  
  616. PTN15 =*
  617.  .BYT $97,$09,$2B,$03,$2B,$1B,$2E,$03
  618.  .BYT $2E,$1B,$2D,$03,$2D,$1F,$30,$43
  619.  .BYT $17,$2E,$03,$2E,$1B,$32,$03,$32
  620.  .BYT $1B,$31,$03,$31,$0F,$34,$8F,$0A
  621.  .BYT $34,$43,$FF
  622.  
  623. PTN16 =*
  624.  .BYT $0F,$1F,$0F,$1F,$0F,$1F,$0F,$1F
  625.  .BYT $0F,$1F,$0F,$1F,$0F,$1F,$0F,$1F
  626.  .BYT $0F,$1F,$0F,$1F,$0F,$1F,$0F,$1F
  627.  .BYT $0F,$1F,$0F,$1F,$0F,$1F,$0F,$1F
  628.  .BYT $FF
  629.  
  630. PTN17 =*
  631.  .BYT $97,$09,$33,$03,$33,$1B,$37,$03
  632.  .BYT $37,$1B,$36,$03,$36,$1F,$39,$43
  633.  .BYT $17,$37,$03,$37,$1B,$3A,$03,$3A
  634.  .BYT $1B,$39,$03,$39,$2F,$3C,$21,$3C
  635.  .BYT $21,$3D,$21,$3E,$21,$3F,$21,$40
  636.  .BYT $21,$41,$21,$42,$21,$43,$21,$44
  637.  .BYT $01,$45,$FF
  638.  
  639. PTN18 =*
  640.  .BYT $97,$09,$30,$03,$30,$1B,$33,$03
  641.  .BYT $33,$1B,$32,$03,$32,$1F,$36,$43
  642.  .BYT $17,$33,$03,$33,$1B,$37,$03,$37
  643.  .BYT $1B,$36,$03,$36,$2F,$39,$21,$39
  644.  .BYT $21,$3A,$21,$3B,$21,$3C,$21,$3D
  645.  .BYT $21,$3E,$21,$3F,$21,$40,$21,$41
  646.  .BYT $01,$42,$FF
  647.  
  648. PTN19 =*
  649.  .BYT $0F,$1A,$0F,$1A,$0F,$1A,$0F,$1A
  650.  .BYT $0F,$1A,$0F,$1A,$0F,$1A,$0F,$1A
  651.  .BYT $0F,$1A,$0F,$1A,$0F,$1A,$0F,$1A
  652.  .BYT $0F,$1A,$0F,$1A,$0F,$1A,$0F,$1A
  653.  .BYT $FF
  654.  
  655. PTN1A =*
  656.  .BYT $1F,$46,$BF,$0A,$46,$7F,$7F,$FF
  657.  
  658. PTN1B =*
  659.  .BYT $1F,$43,$BF,$0A,$43,$7F,$FF
  660.  
  661. PTN1C =*
  662.  .BYT $83,$02,$13,$03,$13,$03,$1E,$03
  663.  .BYT $1F,$03,$13,$03,$13,$03,$1E,$03
  664.  .BYT $1F,$03,$13,$03,$13,$03,$1E,$03
  665.  .BYT $1F,$03,$13,$03,$13,$03,$1E,$03
  666.  .BYT $1F,$03,$13,$03,$13,$03,$1E,$03
  667.  .BYT $1F,$03,$13,$03,$13,$03,$1E,$03
  668.  .BYT $1F,$03,$13,$03,$13,$03,$1E,$03
  669.  .BYT $1F,$03,$13,$03,$13,$03,$1E,$03
  670.  .BYT $1F,$FF
  671.  
  672. PTN29 =*
  673.  .BYT $8F,$0B,$38,$4F,$FF
  674.  
  675. PTN2C =*
  676.  .BYT $83,$0E,$32,$07,$32,$07,$2F,$07
  677.  .BYT $2F,$03,$2B,$87,$0B,$46,$83,$0E
  678.  .BYT $2C,$03,$2C,$8F,$0B,$32,$FF
  679.  
  680. PTN2D =*
  681.  .BYT $43,$83,$0E,$32,$03,$32,$03,$2F
  682.  .BYT $03,$2F,$03,$2C,$87,$0B,$38,$FF
  683.  
  684. PTN39 =*
  685.  .BYT $83,$01
  686.  .BYT $43,$01,$4F,$01,$5B,$87,$03,$2F
  687.  .BYT $83,$01,$43,$01,$4F,$01,$5B,$87
  688.  .BYT $03,$2F,$83,$01,$43,$01,$4F,$01
  689.  .BYT $5B,$87,$03,$2F,$83,$01,$43,$01
  690.  .BYT $4F,$01,$5B,$87,$03,$2F,$83,$01
  691.  .BYT $43,$01,$4F,$01,$5B,$87,$03,$2F
  692.  .BYT $83,$01,$43,$01,$4F,$01,$5B,$87
  693.  .BYT $03,$2F
  694.  
  695. PTN01 =*
  696.  .BYT $83,$01,$43,$01,$4F,$01,$5B,$87
  697.  .BYT $03,$2F,$83,$01,$43,$01,$4F,$01
  698.  .BYT $5B,$87,$03,$2F,$FF
  699.  
  700. PTN02 =*
  701.  .BYT $83,$02,$13,$03,$13,$03,$1F,$03
  702.  .BYT $1F,$03,$13,$03,$13,$03,$1F,$03
  703.  .BYT $1F,$FF
  704.  
  705. PTN1D =*
  706.  .BYT $03,$15,$03,$15,$03,$1F,$03,$21
  707.  .BYT $03,$15,$03,$15,$03,$1F,$03,$21
  708.  .BYT $FF
  709.  
  710. PTN1E =*
  711.  .BYT $03,$1A,$03,$1A,$03,$1C,$03,$1C
  712.  .BYT $03,$1D,$03,$1D,$03,$1E,$03,$1E
  713.  .BYT $FF
  714.  
  715. PTN1F =*
  716.  .BYT $03,$1A,$03,$1A,$03,$24,$03,$26
  717.  .BYT $03,$13,$03,$13,$07,$1F,$FF
  718.  
  719. PTN04 =*
  720.  .BYT $03,$18,$03,$18,$03,$24,$03,$24
  721.  .BYT $03,$18,$03,$18,$03,$24,$03,$24
  722.  .BYT $03,$20,$03,$20,$03,$2C,$03,$2C
  723.  .BYT $03,$20,$03,$20,$03,$2C,$03,$2C
  724.  .BYT $FF
  725.  
  726. PTN20 =*
  727.  .BYT $03,$19,$03,$19,$03
  728.  .BYT $25,$03,$25,$03,$19,$03,$19,$03
  729.  .BYT $25,$03,$25,$03,$21,$03,$21,$03
  730.  .BYT $2D,$03,$2D,$03,$21,$03,$21,$03
  731.  .BYT $2D,$03,$2D,$FF
  732.  
  733. PTN06 =*
  734.  .BYT $03,$1A,$03,$1A
  735.  .BYT $03,$26,$03,$26,$03,$1A,$03,$1A
  736.  .BYT $03,$26,$03,$26,$03,$15,$03,$15
  737.  .BYT $03,$21,$03,$21,$03,$15,$03,$15
  738.  .BYT $03,$21,$03,$21,$03,$18,$03,$18
  739.  .BYT $03,$24,$03,$24,$03,$18,$03,$18
  740.  .BYT $03,$24,$03,$24,$03,$1F,$03,$1F
  741.  .BYT $03,$2B,$03,$2B,$03,$1F,$03,$1F
  742.  .BYT $03,$2B,$03,$2B,$03,$1A,$03,$1A
  743.  .BYT $03,$26,$03,$26,$03,$1A,$03,$1A
  744.  .BYT $03,$26,$03,$26,$03,$15,$03,$15
  745.  .BYT $03,$21,$03,$21,$03,$15,$03,$15
  746.  .BYT $03,$21,$03,$21,$03,$18,$03,$18
  747.  .BYT $03,$24,$03,$24,$03,$18,$03,$18
  748.  .BYT $03,$24,$03,$24,$03,$1C,$03,$1C
  749.  .BYT $03,$28,$03,$28,$03,$1C,$03,$1C
  750.  .BYT $03,$28,$03,$28
  751.  
  752. PTN3B =*
  753.  .BYT $83,$04,$36,$07
  754.  .BYT $36,$07,$37,$07,$36,$03,$33,$07
  755.  .BYT $32,$57,$FF
  756.  
  757. PTN08 =*
  758.  .BYT $83,$02,$1B,$03,$1B,$03,$27,$03
  759.  .BYT $27,$03,$1B,$03,$1B,$03,$27,$03
  760.  .BYT $27,$FF
  761.  
  762. PTN21 =*
  763.  .BYT $03,$1C,$03,$1C,$03,$28,$03,$28
  764.  .BYT $03,$1C,$03,$1C,$03,$28,$03,$28
  765.  .BYT $FF
  766.  
  767. PTN22 =*
  768.  .BYT $03,$1D,$03,$1D,$03,$29,$03,$29
  769.  .BYT $03,$1D,$03,$1D,$03,$29,$03,$29
  770.  .BYT $FF
  771.  
  772. PTN23 =*
  773.  .BYT $03,$18,$03,$18,$03,$24,$03,$24
  774.  .BYT $03,$18,$03,$18,$03,$24,$03,$24
  775.  .BYT $FF
  776.  
  777. PTN24 =*
  778.  .BYT $03,$1E,$03,$1E,$03,$2A,$03,$2A
  779.  .BYT $03,$1E,$03,$1E,$03,$2A,$03,$2A
  780.  .BYT $FF
  781.  
  782. PTN25 =*
  783.  .BYT $83,$05,$26,$01,$4A,$01,$34,$03
  784.  .BYT $29,$03,$4C,$03,$4A,$03,$31,$03
  785.  .BYT $4A,$03,$24,$03,$22,$01,$46,$01
  786.  .BYT $30,$03,$25,$03,$48,$03,$46,$03
  787.  .BYT $2D,$03,$46,$03,$24,$FF
  788.  
  789. PTN0B =*
  790.  .BYT $83,$02,$1A,$03,$1A,$03,$26,$03
  791.  .BYT $26,$03,$1A,$03,$1A,$03,$26,$03
  792.  .BYT $26,$FF
  793.  
  794. PTN0C =*
  795.  .BYT $03,$13,$03,$13,$03,$1D,$03,$1F
  796.  .BYT $03,$13,$03,$13,$03,$1D,$03,$1F
  797.  .BYT $FF
  798.  
  799. PTN26 =*
  800.  .BYT $87,$02,$1A,$87,$03,$2F,$83,$02
  801.