开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > Windows CE > 查看源码
tmc.asx
资源名称：tcpmp.rar　[点击查看]
上传用户：wstnjxml
上传日期：2014-04-03
资源大小：7248k
文件大小：12k
源码类别：

Windows CE

开发平台：

C/C++

tmc.asx：源码内容
  1. *---------------*
  2. *  TMC  Player  *
  3. *Jaskier/Taquart*
  4. *---------------*
  6.  org $0500
  8. byte equ $fa
  9. bajt equ $fb
  10. addr equ $fc
  11. adrsng equ $fe
  13. player equ *
  14.  jmp init
  15.  jmp play
  16.  jmp sound
  18. maxvol dta b(15)
  19. volume dta d'        '
  20. freqen dta d'        '
  21. kanal  dta d'        '
  22. aktwys dta d'        '
  23. numdzw dta d'        '
  24. audctl dta d'        '
  25. aud1   dta b(0)
  26. aud2   dta b(0)
  28. voltab dta d'                '
  29.  dta d'        !!!!!!!!'
  30.  dta d'    !!!!!!!!""""'
  31.  dta d'   !!!!!"""""###'
  32.  dta d'  !!!!""""####$$'
  33.  dta d'  !!!"""###$$$%%'
  34.  dta d'  !!"""##$$$%%&&'
  35.  dta d'  !!""##$$%%&&'''''
  36.  dta d' !!""##$$%%&&''''('
  37.  dta d' !!""#$$%%&''''(()'
  38.  dta d' !!"##$%%&''''())*'
  39.  dta d' !!"#$$%&''''()**+'
  40.  dta d' !""#$%&&''()**+,'
  41.  dta d' !"##$%&''()**+,-'
  42.  dta d' !"#$%&''''()*+,-.'
  43.  dta d' !"#$%&''()*+,-./'
  45. frqtab dta b(0),b($f1),b($e4),b($d7)
  46.  dta b($cb),b($c0),b($b5),b($aa)
  47.  dta b($a1),b($98),b($8f),b($87)
  48.  dta b($7f),b($78),b($72),b($6b)
  49.  dta b($65),b($5f),b($5a),b($55)
  50.  dta b($50),b($4b),b($47),b($43)
  51.  dta b($3f),b($3c),b($38),b($35)
  52.  dta b($32),b($2f),b($2c),b($2a)
  53.  dta b($27),b($25),b($23),b($21)
  54.  dta b($1f),b($1d),b($1c),b($1a)
  55.  dta b($18),b($17),b($16),b($14)
  56.  dta b($13),b($12),b($11),b($10)
  57.  dta b(15),b(14),b(13),b(12)
  58.  dta b(11),b(10),b(9),b(8)
  59.  dta b(7),b(6),b(5),b(4)
  60.  dta b(3),b(2),b(1),b(0)
  62.  dta b(0),b($f2),b($e6),b($da)
  63.  dta b($ce),b($bf),b($b6),b($aa)
  64.  dta b($a1),b($98),b($8f),b($89)
  65.  dta b($80),b($7a),b($71),b($6b)
  66.  dta b($65),b($5f),b($5c),b($56)
  67.  dta b($50),b($4d),b($47),b($44)
  68.  dta b($3e),b($3c),b($38),b($35)
  69.  dta b($32),b($2f),b($2d),b($2a)
  70.  dta b($28),b($25),b($23),b($21)
  71.  dta b($1f),b($1d),b($1c),b($1a)
  72.  dta b($18),b($17),b($16),b($14)
  73.  dta b($13),b($12),b($11),b($10)
  74.  dta b(15),b(14),b(13),b(12)
  75.  dta b(11),b(10),b(9),b(8)
  76.  dta b(7),b(6),b(5),b(4)
  77.  dta b(3),b(2),b(1),b(0)
  79.  dta b(0),b($ff),b($f1),b($e4)
  80.  dta b($d8),b($ca),b($c0),b($b5)
  81.  dta b($ab),b($a2),b($99),b($8e)
  82.  dta b($87),b($7f),b($79),b($73)
  83.  dta b($70),b($66),b($61),b($5a)
  84.  dta b($55),b($52),b($4b),b($48)
  85.  dta b($43),b($3f),b($3c),b($39)
  86.  dta b($37),b($33),b($30),b($2d)
  87.  dta b($2a),b($28),b($25),b($24)
  88.  dta b($21),b($1f),b($1e),b($1c)
  89.  dta b($1b),b($19),b($17),b($16)
  90.  dta b($15),b($13),b($12),b($11)
  91.  dta b($10),b(15),b(14),b(13)
  92.  dta b(12),b(11),b(10),b(9)
  93.  dta b(8),b(7),b(6),b(5)
  94.  dta b(4),b(3),b(2),b(1)
  96.  dta b(0),b($f3),b($e6),b($d9)
  97.  dta b($cc),b($c1),b($b5),b($ad)
  98.  dta b($a2),b($99),b($90),b($88)
  99.  dta b($80),b($79),b($72),b($6c)
  100.  dta b($66),b($60),b($5b),b($55)
  101.  dta b($51),b($4c),b($48),b($44)
  102.  dta b($40),b($3c),b($39),b($35)
  103.  dta b($32),b($2f),b($2d),b($2a)
  104.  dta b($28),b($25),b($23),b($21)
  105.  dta b($1f),b($1d),b($1c),b($1a)
  106.  dta b($18),b($17),b($16),b($14)
  107.  dta b($13),b($12),b($11),b($10)
  108.  dta b(15),b(14),b(13),b(12)
  109.  dta b(11),b(10),b(9),b(8)
  110.  dta b(7),b(6),b(5),b(4)
  111.  dta b(3),b(2),b(1),b(0)
  113. basslo dta b(0),b($f2),b($33),b($96)
  114.  dta b($e2),b($38),b($8c),b($00)
  115.  dta b($6a),b($e8),b($6a),b($ef)
  116.  dta b($80),b($08),b($ae),b($46)
  117.  dta b($e6),b($95),b($41),b($f6)
  118.  dta b($b0),b($6e),b($30),b($f6)
  119.  dta b($bb),b($84),b($52),b($22)
  120.  dta b($f4),b($c8),b($a0),b($7a)
  121.  dta b($55),b($34),b($14),b($f5)
  122.  dta b($d8),b($bd),b($a4),b($8d)
  123.  dta b($77),b($60),b($4e),b($38)
  124.  dta b($27),b($15),b($06),b($f7)
  125.  dta b($e8),b($db),b($cf),b($c3)
  126.  dta b($b8),b($ac),b($a2),b($9a)
  127.  dta b($90),b($88),b($7f),b($78)
  128.  dta b($70),b($6a),b($64),b($5e)
  130. basshi dta b(0),b(13),b(13),b(12)
  131.  dta b(11),b(11),b(10),b(10)
  132.  dta b(9),b(8),b(8),b(7)
  133.  dta b(7),b(7),b(6),b(6)
  134.  dta b(5),b(5),b(5),b(4)
  135.  dta b(4),b(4),b(4),b(3)
  136.  dta b(3),b(3),b(3),b(3)
  137.  dta b(2),b(2),b(2),b(2)
  138.  dta b(2),b(2),b(2),b(1)
  139.  dta b(1),b(1),b(1),b(1)
  140.  dta b(1),b(1),b(1),b(1)
  141.  dta b(1),b(1),b(1),b(0)
  142.  dta b(0),b(0),b(0),b(0)
  143.  dta b(0),b(0),b(0),b(0)
  144.  dta b(0),b(0),b(0),b(0)
  145.  dta b(0),b(0),b(0),b(0)
  147. czygrx dta d'        '
  148. pozwpt dta d'        '
  149. delay  dta d'        '
  150. numptr dta d'        '
  151. poddzw dta d'        '
  152. wysdzw dta d'        '
  153. znksz  dta d'        '
  154. frq    dta d'        '
  155. vol1ch dta d'        '
  156. vol2ch dta d'        '
  157. adcvl1 dta d'        '
  158. adcvl2 dta d'        '
  159. adrsnl dta d'        '
  160. adrsnh dta d'        '
  161. slupy  dta d'        '
  162. opad1  dta d'        '
  163. opad2  dta d'        '
  164. lopad1 dta d'        '
  165. lopad2 dta d'        '
  166. typ    dta d'        '
  167. param  dta d'        '
  168. pomoc1 dta d'        '
  169. pomoc2 dta d'        '
  170. czekaj dta d'        '
  171. dtyp   dta d'        '
  172. ltyp   dta d'        '
  173. ilperm dta d'        '
  174. aperm  dta d'        '
  175. dperm  dta d'        '
  176. lperm  dta d'        '
  177. kolejn dta d'        '
  178. tempo  dta b(0)
  179. ltempo dta b(0)
  180. pozptr dta b(0)
  181. czygrc dta b(0)
  183. przeci dta b(4),b(5),b(6),b(7)
  184.  dta b(0),b(1),b(2),b(3)
  185. audtb1 dta b(4),b(2),b(0),b(0)
  186.  dta b(4),b(2),b(0),b(0)
  187. audtb2 dta b(0),b(16),b(0),b(8)
  188.  dta b(0),b(16),b(0),b(8)
  190. play lda czygrc
  191.  beq r1-3
  192.  lda pozptr
  193.  cmp #64
  194.  bcc r1
  195.  dec ltempo
  196.  beq *+5
  197.  jmp sound
  199.  ldx #7
  200.  lda #0
  201. p1 sta pozwpt,x
  202.  sta delay,x
  203.  dex
  204.  bpl p1
  205.  sta pozptr
  206.  tax
  207.  ldy #15
  208. p2 lda (adrsng),y
  209.  bpl p3
  210.  dey
  211.  lda (adrsng),y
  212.  bpl *+5
  213.  jmp stop
  214.  stx addr
  215.  asl @
  216.  asl @
  217.  rol addr
  218.  asl @
  219.  rol addr
  220.  asl @
  221.  rol addr
  222. zm0 adc #0
  223.  sta adrsng
  224.  lda addr
  225. zm1 adc #0
  226.  sta adrsng+1
  227.  bcc p2-2
  228. p3 sta numptr,x
  229.  dey
  230.  lda (adrsng),y
  231.  sta poddzw,x
  232.  inx
  233.  dey
  234.  bpl p2
  235.  clc
  236.  lda adrsng
  237.  adc #16
  238.  sta adrsng
  239.  bcc *+4
  240.  inc adrsng+1
  241.  jmp sound
  243. r1 dec ltempo
  244.  bpl r1-3
  245.  inc pozptr
  246.  lda tempo
  247.  sta ltempo
  248.  ldx #7
  249. r2 dec delay,x
  250.  bmi *+5
  251.  jmp r14
  252.  ldy numptr,x
  253. zm2 lda $ffff,y
  254.  sta addr
  255. zm3 lda $ffff,y
  256.  sta addr+1
  257.  ldy pozwpt,x
  258. r3 lda (addr),y
  259.  bne r4
  260.  jsr nparam
  261.  jmp r13
  262. r4 cmp #$40
  263.  bcs r5
  264.  adc poddzw,x
  265.  sta wysdzw,x
  266.  jsr nparam
  267.  ldy numdzw,x
  268.  jsr dzwiek
  269.  jmp r13
  270. r5 bne r8
  271.  iny
  272.  inc pozwpt,x
  273.  lda (addr),y
  274.  bpl r6
  275.  sta bajt
  276.  jsr nparam
  277.  lda bajt
  278. r6 and #$7f
  279.  bne r7
  280.  lda #64
  281.  sta pozptr
  282.  bne r13
  283. r7 sta tempo
  284.  sta ltempo
  285.  bne r13
  286. r8 cmp #$80
  287.  bcs r11
  288.  and #$3f
  289.  adc poddzw,x
  290.  sta wysdzw,x
  291.  iny
  292.  inc pozwpt,x
  293.  lda (addr),y
  294.  and #127
  295.  bne r9
  296.  lda #64
  297.  sta pozptr
  298.  bne r10
  299. r9 sta tempo
  300.  sta ltempo
  301. r10 jsr nparam
  302.  ldy numdzw,x
  303.  jsr dzwiek
  304.  jmp r13
  305. r11 cmp #$c0
  306.  bcs r12
  307.  and #$3f
  308.  sta numdzw,x
  309.  iny
  310.  inc pozwpt,x
  311.  jmp r3
  312. r12 and #$3f
  313.  sta delay,x
  314. r13 inc pozwpt,x
  315. r14 dex
  316.  bmi sound
  317.  jmp r2
  319. sound ldx #7
  320. p5 lda czygrx,x
  321.  beq p6
  322.  jsr graj
  323.  lda audctl,x
  324.  and audtb1,x
  325.  beq p6
  326.  ldy #71
  327.  lda (addr),y
  328.  clc
  329.  adc aktwys,x
  330.  sta aktwys+2,x
  331.  tay
  332.  lda frqtab,y
  333.  sec
  334.  adc pomoc1,x
  335.  sta frq+2,x
  336. p6 dex
  337.  bpl p5
  339.  asl maxvol
  340.  asl maxvol
  341.  asl maxvol
  342.  asl maxvol
  343.  inx
  344.  stx addr
  345.  stx addr+1
  346.  ldx #7
  347. p9 txa
  348.  tay
  349.  lda vol1ch,y
  350.  bne p10
  351.  ldy przeci,x
  352.  lda vol2ch,y
  353.  bne p10
  354.  txa
  355.  tay
  356.  lda #0
  357. p10 sta byte
  358.  tya
  359.  sta kanal,x
  360.  lda frq,y
  361.  sta freqen,x
  362.  lda audctl,y
  363.  sta bajt
  364.  ora addr+1
  365.  sta addr+1
  366.  lda bajt
  367.  and audtb1,x
  368.  beq p11
  369.  lda frq+2,y
  370.  sta freqen+2,x
  371. p11 lda bajt
  372.  and audtb2,x
  373.  beq p12
  374.  lda aktwys,y
  375.  and #$3f
  376.  tay
  377.  iny
  378.  sty addr
  379.  lda basshi-1,y
  380.  sta freqen,x
  381.  jmp p13
  382. p12 ldy addr
  383.  beq p13
  384.  lda basslo-1,y
  385.  sta freqen,x
  386.  lda #0
  387.  sta addr
  388. p13 lda byte
  389.  ora maxvol
  390.  tay
  391.  lda voltab,y
  392.  ldy kanal,x
  393.  ora znksz,y
  394.  sta volume,x
  395.  cpx #4
  396.  bne p14
  397.  lda addr+1
  398.  sta aud2
  399.  lda #0
  400.  sta addr+1
  401. p14 dex
  402.  bpl p9
  403.  lsr maxvol
  404.  lsr maxvol
  405.  lsr maxvol
  406.  lsr maxvol
  407.  lda addr+1
  408. quit ldx #3
  409.  stx $d21f
  410.  stx $d20f
  411.  ldx freqen+4
  412.  ldy freqen
  413.  stx $d210
  414.  sty $d200
  415.  ldx volume+4
  416.  ldy volume
  417.  stx $d211
  418.  sty $d201
  419.  ldx freqen+5
  420.  ldy freqen+1
  421.  stx $d212
  422.  sty $d202
  423.  ldx volume+5
  424.  ldy volume+1
  425.  stx $d213
  426.  sty $d203
  427.  ldx freqen+6
  428.  ldy freqen+2
  429.  stx $d214
  430.  sty $d204
  431.  ldx volume+6
  432.  ldy volume+2
  433.  stx $d215
  434.  sty $d205
  435.  ldx freqen+7
  436.  ldy freqen+3
  437.  stx $d216
  438.  sty $d206
  439.  ldx volume+7
  440.  ldy volume+3
  441.  stx $d217
  442.  sty $d207
  443.  sta aud1
  444.  ldx aud2
  445.  stx $d218
  446.  sta $d208
  447.  rts
  449. graj lda adrsnl,x
  450.  sta addr
  451.  lda adrsnh,x
  452.  sta addr+1
  453.  ldy slupy,x
  454.  cpy #63
  455.  beq n6
  456.  inc slupy,x
  457.  inc slupy,x
  458.  inc slupy,x
  459.  lda (addr),y
  460.  and #$f0
  461.  sta znksz,x
  462.  lda (addr),y
  463.  and #15
  464.  sec
  465.  sbc adcvl1,x
  466.  bpl n1
  467.  lda #0
  468. n1 sta vol1ch,x
  469.  iny
  470.  lda (addr),y
  471.  and #15
  472.  sec
  473.  sbc adcvl2,x
  474.  bpl n2
  475.  lda #0
  476. n2 sta vol2ch,x
  477.  lda (addr),y
  478.  and #$f0
  479.  beq n8
  480.  bpl n3
  481.  ldy #73
  482.  lda (addr),y
  483.  ldy slupy,x
  484.  dey
  485.  dey
  486.  bpl n4
  487. n3 lda #0
  488. n4 sta audctl,x
  489.  lda (addr),y
  490.  and #$70
  491.  beq n9
  492.  lsr @
  493.  lsr @
  494.  sta n5+1
  495.  lda #0
  496.  sta pomoc1,x
  497.  iny
  498.  lda (addr),y
  499. n5 bcc *
  500.  nop
  501.  nop
  502.  nop
  503.  nop
  504.  jmp a1
  505.  nop
  506.  jmp a2
  507.  nop
  508.  jmp a3
  509.  nop
  510.  jmp a4
  511.  nop
  512.  jmp a5
  513.  nop
  514.  jmp a6
  515.  nop
  516.  jmp a7
  517. n6 lda opad1,x
  518.  beq n7
  519.  dec lopad1,x
  520.  bne n7
  521.  sta lopad1,x
  522.  lda vol1ch,x
  523.  and #15
  524.  beq n7
  525.  dec vol1ch,x
  526. n7 lda opad2,x
  527.  beq n8
  528.  dec lopad2,x
  529.  bne n8
  530.  sta lopad2,x
  531.  lda vol2ch,x
  532.  and #15
  533.  beq n8
  534.  dec vol2ch,x
  535. n8 ldy #72
  536.  lda (addr),y
  537.  sta audctl,x
  538. n9 lda aperm,x
  539.  clc
  540.  adc #63
  541.  tay
  542.  lda (addr),y
  543.  adc wysdzw,x
  544.  sta aktwys,x
  545.  tay
  546.  lda frqtab,y
  547.  sta frq,x
  548.  dec lperm,x
  549.  bpl m1
  550.  lda dperm,x
  551.  sta lperm,x
  552.  lda kolejn,x
  553.  beq m6
  554.  clc
  555.  adc aperm,x
  556.  sta aperm,x
  557.  beq m7
  558.  cmp ilperm,x
  559.  bne m1
  560.  lda #$fe
  561. m7 clc
  562.  adc #1
  563.  sta kolejn,x
  564.  bne m1
  565. m6 inc aperm,x
  566.  lda ilperm,x
  567.  cmp aperm,x
  568.  bcs m1
  569.  lda #0
  570.  sta aperm,x
  571. m1 lda czekaj,x
  572.  beq m2
  573.  dec czekaj,x
  574.  rts
  575. m2 lda pomoc2,x
  576.  sta byte
  577.  lda param,x
  578.  sta bajt
  579.  jsr m4
  580.  dec ltyp,x
  581.  bpl m4-1
  582.  lda byte
  583.  sta pomoc2,x
  584.  lda bajt
  585.  sta param,x
  586.  lda dtyp,x
  587.  sta ltyp,x
  588.  rts
  589. m4 lda typ,x
  590.  sta m5+1
  591. m5 bpl *
  592.  jmp typ0
  593.  nop
  594.  jmp typ1
  595.  nop
  596.  jmp typ2
  597.  nop
  598.  jmp typ3
  599.  nop
  600.  jmp typ4
  601.  nop
  602.  jmp typ5
  603.  nop
  604.  jmp typ6
  605.  nop
  606.  jmp typ7
  608. typ1 lda byte
  609.  inc byte
  610.  and #3
  611.  lsr @
  612.  bcc t2
  613.  bne typ6
  614.  lda bajt
  615. t1 sta pomoc1,x
  616.  clc
  617.  adc frq,x
  618.  sta frq,x
  619. typ0 rts
  620. t2 lda #0
  621.  sta pomoc1,x
  622.  rts
  623. typ2 jsr t5
  624.  jmp t1
  625. typ3 jsr t5
  626.  clc
  627.  adc aktwys,x
  628.  jmp a5
  629. typ4 lda byte
  630.  sta pomoc1,x
  631.  clc
  632.  adc frq,x
  633. t3 sta frq,x
  634.  lda byte
  635.  clc
  636.  adc bajt
  637.  sta byte
  638.  rts
  639. typ5 lda aktwys,x
  640.  sec
  641.  sbc byte
  642.  sta aktwys,x
  643.  tay
  644.  lda frqtab,y
  645.  jmp t3
  646. typ6 lda frq,x
  647.  sec
  648.  sbc bajt
  649.  sta frq,x
  650.  sec
  651.  lda #0
  652.  sbc bajt
  653.  sta pomoc1,x
  654.  rts
  655. typ7 lda ltyp,x
  656.  bne typ0
  657.  lda bajt
  658.  bpl t4
  659.  lda vol2ch,x
  660.  beq typ0
  661.  lda vol1ch,x
  662.  cmp #15
  663.  beq typ0
  664.  inc vol1ch,x
  665.  rts
  666. t4 lda vol1ch,x
  667.  beq typ0
  668.  lda vol2ch,x
  669.  cmp #15
  670.  beq typ0
  671.  inc vol2ch,x
  672.  rts
  673. t5 ldy byte
  674.  lda bajt
  675.  bmi t6
  676.  iny
  677.  iny
  678. t6 dey
  679.  tya
  680.  sta byte
  681.  cmp bajt
  682.  bne t7
  683.  lda bajt
  684.  eor #$ff
  685.  sta bajt
  686. t7 tya
  687.  rts
  689. a2 adc frq,x
  690. a1 sta frq,x
  691.  rts
  692. a3 ldy wysdzw,x
  693.  adc frqtab,y
  694.  sta frq,x
  695.  tya
  696.  sta aktwys,x
  697.  rts
  698. a4 and $d20a
  699.  sta frq,x
  700.  rts
  701. a7 adc wysdzw,x
  702. a5 sta aktwys,x
  703.  tay
  704.  lda frqtab,y
  705.  sta frq,x
  706.  rts
  707. a6 sta aktwys,x
  708.  tay
  709.  lda frq,x
  710.  adc frqtab,y
  711.  sta frq,x
  712.  rts
  714. nparam iny
  715.  inc pozwpt,x
  716.  lda (addr),y
  717.  lsr @
  718.  lsr @
  719.  lsr @
  720.  lsr @
  721.  sta adcvl1,x
  722.  lda (addr),y
  723.  and #15
  724.  sta adcvl2,x
  725.  rts
  727. songx jsr stop
  728.  ldy #15
  729. zm4 lda #0
  730.  sta adrsng
  731. zm5 lda #0
  732.  sta adrsng+1
  733. d5 txa
  734.  beq inic
  735. d3 lda (adrsng),y
  736.  bpl d4
  737.  dex
  738. d4 clc
  739.  lda adrsng
  740.  adc #16
  741.  sta adrsng
  742.  bcc d5
  743.  inc adrsng+1
  744.  bcs d5
  746. playx jsr stop
  747.  lda #0
  748.  sta addr
  749.  txa
  750.  asl @
  751.  asl @
  752.  rol addr
  753.  asl @
  754.  rol addr
  755.  asl @
  756.  rol addr
  757. zm6 adc #0
  758.  sta adrsng
  759.  lda addr
  760. zm7 adc #0
  761.  sta adrsng+1
  762. inic lda #64
  763.  sta pozptr
  764.  lda #1
  765.  sta ltempo
  766.  sta czygrc
  767.  rts
  769. init cmp #$10
  770.  bcc songx
  771.  cmp #$20
  772.  bcc playx
  773.  cmp #$30
  774.  bcs *+5
  775.  jmp d2
  776.  cmp #$40
  777.  bcs i1
  778.  txa
  779.  and #15
  780.  beq i1-1
  781.  sta tempo
  782.  rts
  783. i1 cmp #$50
  784.  bcc stop
  785.  cmp #$60
  786.  bcs i2
  787.  lda #0
  788. i3 sta czygrc
  789.  rts
  790. i2 cmp #$70
  791.  bcc i3
  793.  lda #1
  794.  sta ltempo
  795.  lda #64
  796.  sta pozptr
  797.  sty addr
  798.  stx addr+1
  799.  ldy #30
  800.  lda (addr),y
  801.  sta tempo
  802.  lda addr
  803.  clc
  804.  adc #32
  805.  sta zm8+1
  806.  bcc *+3
  807.  inx
  808.  stx zm8+2
  809.  clc
  810.  adc #$40
  811.  sta zm9+1
  812.  bcc *+3
  813.  inx
  814.  stx zm9+2
  815.  clc
  816.  adc #$40
  817.  sta zm2+1
  818.  bcc *+3
  819.  inx
  820.  stx zm2+2
  821.  clc
  822.  adc #$80
  823.  sta zm3+1
  824.  bcc *+3
  825.  inx
  826.  stx zm3+2
  827.  clc
  828.  adc #$80
  829.  sta adrsng
  830.  sta zm0+1
  831.  sta zm4+1
  832.  sta zm6+1
  833.  bcc *+3
  834.  inx
  835.  stx adrsng+1
  836.  stx zm1+1
  837.  stx zm5+1
  838.  stx zm7+1
  840. stop ldy #7
  841.  lda #0
  842.  sta czygrc
  843. d9 sta $d200,y
  844.  sta $d210,y
  845.  sta volume,y
  846.  sta vol1ch,y
  847.  sta vol2ch,y
  848.  sta audctl,y
  849.  sta czygrx,y
  850.  dey
  851.  bpl d9
  852.  sta $d208
  853.  sta $d218
  854.  sta aud1
  855.  sta aud2
  856.  rts
  858. d1 sta vol1ch,x
  859.  sta vol2ch,x
  860.  sta audctl,x
  861.  lda wysdzw,x
  862.  sta aktwys,x
  863.  rts
  864. d0 tya
  865.  eor #$f0
  866.  lsr @
  867.  lsr @
  868.  lsr @
  869.  lsr @
  870.  sta adcvl1,x
  871.  tya
  872.  and #15
  873.  eor #15
  874.  sta adcvl2,x
  875.  rts
  876. d2 and #7
  877.  sta addr
  878.  txa
  879.  ldx addr
  880.  and #$3f
  881.  beq d0
  882.  sta wysdzw,x
  883. dzwiek lda #0
  884.  sta czygrx,x
  885. zm8 lda $ffff,y
  886.  sta adrsnl,x
  887.  sta addr
  888. zm9 lda $ffff,y
  889.  sta adrsnh,x
  890.  sta addr+1
  891.  ora addr
  892.  beq d1
  893.  ldy #74
  894.  lda (addr),y
  895.  sta opad1,x
  896.  sta lopad1,x
  897.  iny
  898.  lda (addr),y
  899.  sta opad2,x
  900.  sta lopad2,x
  901.  iny
  902.  lda (addr),y
  903.  and #$70
  904.  lsr @
  905.  lsr @
  906.  sta typ,x
  907.  lda (addr),y
  908.  and #15
  909.  sta param,x
  910.  lda (addr),y
  911.  bpl d7
  912.  lda param,x
  913.  eor #$ff
  914.  clc
  915.  adc #1
  916.  sta param,x
  917. d7 iny
  918.  lda (addr),y
  919.  sta czekaj,x
  920.  iny
  921.  lda (addr),y
  922.  and #$3f
  923.  sta dtyp,x
  924.  sta ltyp,x
  925.  iny
  926.  lda (addr),y
  927.  and #$80
  928.  beq d8
  929.  lda #1
  930. d8 sta kolejn,x
  931.  lda (addr),y
  932.  and #$70
  933.  lsr @
  934.  lsr @
  935.  lsr @
  936.  lsr @
  937.  sta ilperm,x
  938.  bne d6
  939.  sta kolejn,x
  940. d6 lda (addr),y
  941.  and #15
  942.  sta dperm,x
  943.  sta lperm,x
  944.  dey
  945.  lda (addr),y
  946.  and #$c0
  947.  clc
  948.  adc wysdzw,x
  949.  sta wysdzw,x
  950.  sta aktwys,x
  951.  tay
  952.  lda frqtab,y
  953.  sta frq,x
  954.  lda #0
  955.  sta slupy,x
  956.  sta pomoc1,x
  957.  sta pomoc2,x
  958.  sta aperm,x
  959.  lda #1
  960.  sta czygrx,x
  961.  rts
  963. endplr end