home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Steel Sky In Game Ground / Lowe_SteelSkyInGameGround.adf / ground.data < prev    next >
Encoding:
Text File  |  1978-10-13  |  11.0 KB  |  812 lines
  1.  
  2. demo    equ 1        ;set to 0 to make returnable demo
  3.  
  4. develop    equ 1        ;set to zero for assembling data blks
  5.             ;or testing length of current data
  6.             ;set to 1 for music development
  7.  
  8.  
  9.  
  10.     ifne develop
  11.  
  12.     include c:ssig/driver.s
  13.  
  14.     endc
  15.  
  16.     opt p+
  17.             ;STEEL SKY GROUND DATA
  18.  
  19. b1
  20.  
  21.     dc.w    song_table-b1
  22.     dc.w    fxjump_table-b1
  23.  
  24.  
  25.  
  26.     ifeq develop
  27.  
  28.         ;  ALL EQUs
  29.  
  30. c00  equ  428*4
  31. db00  equ  404*4
  32. d00 equ  381*4
  33. eb00  equ  360*4
  34. e00  equ  339*4
  35. f00  equ  320*4
  36. gb00  equ  302*4
  37. g00  equ  285*4
  38. ab00 equ 269*4
  39. a00  equ  508*2
  40. bb00  equ  480*2
  41. b00  equ  453*2
  42.  
  43. c01  equ  428*2
  44. db01  equ  404*2
  45. d01 equ  381*2
  46. eb01  equ  360*2
  47. e01  equ  339*2
  48. f01  equ  320*2
  49. gb01  equ  302*2
  50. g01  equ  285*2
  51. ab01 equ 269*2
  52. a01  equ  508
  53. bb01  equ  480
  54. b01  equ  453
  55.  
  56. c02  equ  428
  57. db02  equ  404
  58. d02  equ  381
  59. eb02  equ  360
  60. e02  equ  339
  61. f02  equ  320
  62. gb02  equ  302
  63. g02  equ  285
  64. ab02 equ 269
  65. a02  equ  254
  66. bb02  equ  240
  67. b02  equ  226
  68.  
  69. c03  equ  214
  70. db03  equ  202
  71. d03  equ  190
  72. eb03  equ  180
  73. e03  equ  170
  74. f03  equ  160
  75. gb03  equ  151
  76. g03  equ  143
  77. ab03 equ 135
  78. a03  equ  127
  79.  
  80. bb03  equ  480*2
  81. b03  equ  453*2
  82.  
  83. c04  equ  428*2
  84. db04  equ  404*2
  85. d04 equ  381*2
  86. eb04  equ  360*2
  87. e04  equ  339*2
  88. f04  equ  320*2
  89. gb04  equ  302*2
  90. g04  equ  285*2
  91. ab04 equ 269*2
  92. a04  equ  508
  93. bb04  equ  480
  94. b04  equ  453
  95.  
  96. c05  equ  428
  97. db05  equ  404
  98. d05  equ  381
  99. eb05  equ  360
  100. e05  equ  339
  101. f05  equ  320
  102. gb05  equ  302
  103. g05  equ  285
  104. ab05 equ 269
  105. a05  equ  254
  106. bb05  equ  240
  107. b05  equ  226
  108.  
  109. c06  equ  214
  110. db06  equ  202
  111. d06  equ  190
  112. eb06  equ  180
  113. e06  equ  170
  114. f06  equ  160
  115. gb06  equ  151
  116. g06  equ  143
  117. ab06 equ 135
  118. a06  equ  127
  119. bb06  equ  480*2
  120. b06  equ  453*2
  121.  
  122. c07  equ  428*2
  123. db07  equ  404*2
  124. d07 equ  381*2
  125. eb07  equ  360*2
  126. e07  equ  339*2
  127. f07  equ  320*2
  128. gb07  equ  302*2
  129. g07  equ  285*2
  130. ab07 equ 269*2
  131. a07  equ  508
  132. bb07  equ  480
  133. b07  equ  453
  134.  
  135. c08  equ  428
  136. db08  equ  404
  137. d08  equ  381
  138. eb08  equ  360
  139. e08  equ  339
  140. f08  equ  320
  141. gb08  equ  302
  142. g08  equ  285
  143. ab08 equ 269
  144. a08  equ  254
  145. bb08  equ  240
  146. b08  equ  226
  147.  
  148.  
  149. v equ 0
  150.  
  151. no_loop equ 0
  152. loop equ 0
  153. chann1reg   equ $dff0a0    
  154. chann2reg   equ $dff0b0
  155. chann3reg   equ $dff0c0
  156. chann4reg   equ $dff0d0
  157. dmacon     equ $dff096
  158. int_bf_int   equ   $dff01e
  159. int_bf_w    equ   $dff09a
  160. vhposr     equ   $dff006
  161. in_line    equ   0
  162. new_snd    equ   4
  163. end_song     equ   1
  164. end_patt    equ   8
  165. new_env    equ   12
  166. pbend     equ   16
  167.  
  168.  
  169.  
  170. hi: equ 223
  171. lo:  equ 446
  172.  
  173. r22    equ 134
  174. r20    equ 179        ;correctum
  175. r19    equ 150
  176. r18    equ 178
  177. r17    equ 200
  178. r16:    equ 224        ;correctum
  179. r15:    equ 249
  180. r14    equ 280
  181. r13:    equ 305
  182. r12:    equ 333
  183. r11:    equ 361
  184. r10:    equ 389
  185. r9:    equ 419
  186. r8:    equ 446
  187. r7:    equ 446+112
  188. r6:    equ 446+223
  189. r5:    equ 446+223+112
  190. r4:    equ 446*2
  191. r3:    equ 446*3
  192. r2:    equ 446*4
  193. r1:    equ 446*8
  194.  
  195.  
  196. filter: equ $bfe001
  197. filter_on equ 44
  198. filter_off equ 48
  199.  
  200. modon     equ   20
  201. pboff     equ   24
  202. modoff     equ   28
  203. rest     equ 32
  204. end_fxp  equ 36
  205. end_fx3  equ 36
  206. end_fx4  equ 40
  207. acc    equ 52
  208. repeat    equ 56
  209. down      equ   1
  210. up       equ   2
  211.  
  212. fx    equ 0
  213.  
  214.     endc
  215.  
  216.     ;"""""""""""""""""""""""""""""""""""""""""""""""""
  217.  
  218. max_songs:    dc.l  3
  219.  
  220.     ;;; DATA
  221.  
  222. song_table:
  223.         dc.l s1d-b1,s2d-b1,s3d-b1,s4d-b1    ;danielle with loop
  224.         dc.l s1dnl-b1,s2dnl-b1,s3dnl-b1,s4dnl-b1  ;danielle no loop
  225.  
  226.  
  227. fxp:
  228.  
  229.  
  230. fxjump_table:  
  231.  
  232. max_fx    dc.l    10    ;number + 1 for test routines only
  233. ;______________________________________________________________________
  234.  
  235.  
  236. ;sstart: dc.l 0,end_song
  237.  
  238. ;pstart: dc.w end_patt
  239.  
  240.  
  241. ;----------------------------------
  242.  
  243. ;;;;;;;;;;;;;;;;;;;;;   Music Data ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  244.  
  245. cr  set   28
  246. q set  cr/2
  247. sq set q/2
  248. dsq set sq/4
  249.  
  250. tq1 set      7
  251. tq2 set   6
  252. tsq1 set  3
  253. tsq2 set 4
  254.  
  255. ss1:            ;;;;;;silence tune for test only
  256.  
  257.     dc.l    pr-b1
  258.       dc.l     0,end_song
  259.  
  260.  
  261.  
  262.  
  263. ;************************************************
  264.  
  265. songs:
  266.  
  267.  
  268. ;------------------------
  269. cr  set   24
  270. q set  cr/2
  271. sq set q/2
  272. dsq set sq/4
  273.  
  274. tcr1 set   16
  275. tcr2 set   16
  276.  
  277.  
  278. tq1 set      8
  279. tq2 set   8
  280. tsq1 set  3
  281. tsq2 set 4
  282.  
  283.  
  284. s1d
  285.     dc.l    track-b1
  286.  
  287.       dc.l     0,end_song
  288.  
  289.  
  290. s2d
  291.     dc.l    track-b1
  292.  
  293.       dc.l     0,end_song
  294.  
  295. s3d
  296.     dc.l    strings_snd-b1
  297.     ;dc.l    pri-b1
  298.  
  299.     dc.l    tune-b1
  300.  
  301.       dc.l     0,end_song
  302.  
  303. s4d
  304.     dc.l    pri-b1
  305.       dc.l     0,end_song
  306.  
  307.  
  308.  
  309.  
  310. s1dnl
  311.     dc.l    track-b1
  312.     dc.l    pri-b1
  313.  
  314.  
  315.       dc.l     0,end_song
  316.  
  317.  
  318. s2dnl
  319.     dc.l    track-b1
  320.     dc.l    pri-b1
  321.  
  322.       dc.l     0,end_song
  323.  
  324. s3dnl
  325.     dc.l    pri-b1
  326.  
  327.       dc.l     0,end_song
  328.  
  329. s4dnl
  330.     dc.l    pri-b1
  331.       dc.l     0,end_song
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338. pr:
  339.     dc.w    new_env
  340.     dc.l    rest_env-b1
  341.     dc.w    c03,cr*4
  342.     dc.w     end_patt
  343.  
  344.  
  345.  
  346. pri:
  347.     dc.w    rest,65000
  348.     dc.w    rest,65000
  349.     dc.w    rest,65000
  350.     dc.w    rest,65000
  351.     dc.w    rest,65000
  352.     dc.w    rest,65000
  353.     dc.w    rest,65000
  354.     dc.w end_patt
  355.  
  356. vr equ    0
  357. vr1 equ    0
  358.  
  359.  
  360. track
  361.     dc.w    new_env
  362.     dc.l    track_env-b1
  363.  
  364.     dc.w    new_snd
  365.     dc.l    trackp-b1
  366.     dc.w    298+8,cr*16
  367.  
  368.     dc.w    new_snd
  369.     dc.l    trackp-b1
  370.     dc.w    298+8,cr*16
  371.  
  372.     dc.w    new_snd
  373.     dc.l    trackp-b1
  374.     dc.w    298+8,cr*16
  375.  
  376.     dc.w    new_snd
  377.     dc.l    trackp-b1
  378.     dc.w    298+8,cr*16
  379.  
  380.  
  381.  
  382.  
  383.  
  384. ;-----------
  385.     dc.w    new_snd
  386.     dc.l    track2p-b1
  387.     dc.w    298+8,cr*8
  388.  
  389.     dc.w    new_snd
  390.     dc.l    track2p-b1
  391.     dc.w    298+8,cr*8
  392.  
  393.  
  394.     dc.w    new_snd
  395.     dc.l    track2p-b1
  396.     dc.w    298+8,cr*8
  397.  
  398.  
  399.     dc.w    new_snd
  400.     dc.l    track2p-b1
  401.     dc.w    298+8,cr*4
  402.  
  403.     dc.w    new_snd
  404.     dc.l    track3p-b1
  405.     dc.w    298+8,cr*4
  406. ;-------------------------
  407.  
  408.     dc.w    new_snd
  409.     dc.l    track2p-b1
  410.     dc.w    298+8,cr*8
  411.  
  412.  
  413.     dc.w    new_snd
  414.     dc.l    track2p-b1
  415.     dc.w    298+8,cr*4
  416.  
  417.     dc.w    new_snd
  418.     dc.l    track3p-b1
  419.     dc.w    298+8,cr*4
  420. ;-------------------------
  421.  
  422.     dc.w    new_snd
  423.     dc.l    track4p-b1
  424.     dc.w    298+8,cr*2
  425.  
  426.     dc.w    new_snd
  427.     dc.l    track4p-b1
  428.     dc.w    298+8,cr*2
  429.  
  430.     dc.w    new_snd
  431.     dc.l    track4p-b1
  432.     dc.w    298+8,cr*2
  433.  
  434.  
  435.     dc.w    new_snd
  436.     dc.l    track5p-b1
  437.     dc.w    298+8,cr
  438.  
  439.     dc.w    new_snd
  440.     dc.l    track5p-b1
  441.     dc.w    298+8,cr
  442.  
  443.  
  444.     dc.w     end_patt
  445.  
  446.  
  447.  
  448. tune
  449.     dc.w    c02,cr*3,d02,cr,eb02,cr*2,g02,cr*2
  450.     dc.w    a02,cr*3,g02,cr,d02,cr*3,g02,cr
  451.     dc.w    a02,cr*3,g02,cr,bb02,cr*3,g02,cr
  452.     dc.w    a02,cr*3,g02,cr,d02,cr*4
  453.  
  454.  
  455.     dc.w    c02,cr*3,d02,cr,eb02,cr*2,g02,cr*2
  456.     dc.w    a02,cr*3,g02,cr,d02,cr*3,g02,cr
  457.     dc.w    a02,cr*3,g02,cr,bb02,cr*3,g02,cr
  458.     dc.w    a02,cr*3,g02,cr,d02,cr*4
  459.  
  460.  
  461.     dc.w    g02,cr-2,rest,2,g02,sq-2,rest,2,g02,sq-2,rest,2
  462.     dc.w    g02,q,bb02,cr,g02,cr,a02,cr,c03,cr*2
  463.     dc.w    a02,cr
  464.  
  465.     dc.w    bb02,cr-2,rest,2,bb02,sq-2,rest,2,bb02,q-2,rest,2
  466.     dc.w    bb02,sq,d03,cr,bb02,cr
  467.  
  468.     dc.w    c03,cr*2,rest,q,a02,q,g02,q,f02,q
  469.  
  470.     dc.w    g02,cr-2,rest,2,g02,sq-2,rest,2,g02,sq-2,rest,2
  471.     dc.w    g02,q,bb02,cr,g02,cr,a02,cr,c03,cr*2
  472.     dc.w    a02,cr
  473.  
  474.     dc.w    bb02,cr-2,rest,2,bb02,sq-2,rest,2,bb02,q-2,rest,2
  475.     dc.w    bb02,sq,d03,cr,bb02,cr
  476.  
  477.     dc.w    c03,cr,eb03,cr+q,d03,q,c03,q,bb02,q
  478.  
  479.  
  480.     dc.w    g02,cr-2,rest,2,g02,sq-2,rest,2,g02,sq-2,rest,2
  481.     dc.w    g02,q,bb02,cr,g02,cr,a02,cr,c03,cr*2
  482.     dc.w    a02,cr
  483.  
  484.     dc.w    bb02,cr-2,rest,2,bb02,sq-2,rest,2,bb02,q-2,rest,2
  485.     dc.w    bb02,sq,d03,cr,bb02,cr
  486.  
  487.     dc.w    c03,cr,eb03,cr*2,f03,cr
  488.  
  489.     dc.w    d03,cr-2,rest,2,d03,sq-2,rest,2,d03,q-2,rest,2
  490.     dc.w    d03,sq,d03,cr,a02,cr
  491.  
  492.     dc.w    a02,cr-2,rest,2,a02,sq-2,rest,2,a02,q-2,rest,2
  493.     dc.w    a02,sq,a02,cr,a03,cr
  494.  
  495.  
  496.  
  497.     ;dc.w    g03,
  498.     dc.w     end_patt
  499.  
  500.  
  501.  
  502. ;--------------------
  503.  
  504. sounds:
  505.  
  506.  
  507.  
  508.  
  509. sine_snd:
  510.     dc.w    new_env
  511.     dc.l    sine_env_short-b1
  512.     dc.w    new_snd
  513.     dc.l    sinep-b1
  514.     dc.w     end_patt
  515.  
  516.  
  517. strings_snd:
  518.     dc.w    new_env
  519.     dc.l    strings_env-b1
  520.     dc.w    new_snd
  521.     dc.l    stringsp-b1
  522.     dc.w     end_patt
  523.  
  524.  
  525.  
  526.  
  527.  
  528. ;***********************************************
  529.  
  530. parameters:
  531.  
  532. iff    equ 108
  533.  
  534.     ; sample parameters
  535.  
  536.  
  537.  
  538.  
  539. ;snarep
  540. ;        dc.w 1  
  541. ;             dc.l snared
  542. ;             dc.w 2240/2  
  543. ;             dc.l restd
  544. ;             dc.w 16/2
  545. ;
  546.  
  547.  
  548. ;flutep
  549. ;        dc.w 1  
  550. ;             dc.l fluted+iff
  551. ;             dc.w 7278/2
  552. ;             dc.l fluted+4173+iff
  553. ;             dc.w 3106/2
  554.  
  555. ;sinep
  556. ;        dc.w 1  
  557. ;             dc.l sined
  558. ;             dc.w 16/2 
  559. ;             dc.l sined
  560. ;             dc.w 16/2
  561.  
  562.  
  563. ;orchhitp
  564. ;        dc.w 1  
  565. ;             dc.l orchhit8d+104
  566. ;             dc.w 5214/2 
  567. ;             dc.l restd
  568. ;             dc.w 16/2
  569.  
  570. ;tymprollp
  571. ;        dc.w 1  
  572. ;             dc.l tymprolld+104
  573. ;             dc.w 11234/2 
  574. ;             dc.l restd
  575. ;             dc.w 16/2
  576.  
  577. ;tympp
  578. ;        dc.w 1  
  579. ;             dc.l tymprolld+104+5504
  580. ;             dc.w 5730/2 
  581. ;             dc.l restd
  582. ;             dc.w 16/2
  583.  
  584.  
  585.  
  586.  
  587.  
  588. stringsp
  589.         dc.w 1  
  590.              dc.l strings1d+104+3208-b1
  591.              dc.w 6438/2 
  592.              dc.l strings1d+104+3208-b1
  593.              dc.w 6438/2 
  594.  
  595.  
  596.  
  597. trackp
  598.         dc.w 1  
  599.              dc.l track1d+104-b1
  600.              dc.w (92466)/2 
  601.              dc.l rest_data-b1
  602.              dc.w 16/2 
  603.  
  604.  
  605. track2p
  606.         dc.w 1  
  607.              dc.l track2d+104-b1
  608.              dc.w (87297-iff)/2 
  609.              dc.l rest_data-b1
  610.              dc.w 16/2 
  611.  
  612. track3p
  613.         dc.w 1  
  614.              dc.l track3d+104-b1
  615.              dc.w (30000-iff) 
  616.              dc.l rest_data-b1
  617.              dc.w 16/2 
  618.  
  619. track4p
  620.         dc.w 1  
  621.              dc.l track4d+104-b1
  622.              dc.w (30000-iff) 
  623.              dc.l rest_data-b1
  624.              dc.w 16/2 
  625.  
  626. track5p
  627.         dc.w 1  
  628.              dc.l track4d+5700-104-b1
  629.              dc.w (30000-iff) 
  630.              dc.l rest_data-b1
  631.              dc.w 16/2 
  632.  
  633.  
  634.  
  635.  
  636.  
  637.  
  638. hatop
  639.         dc.w 1  
  640.              dc.l hatod+104-b1
  641.              dc.w (6035-iff)/2 
  642.              dc.l rest_data-b1
  643.              dc.w 16/2 
  644.  
  645. hatcp
  646.         dc.w 1  
  647.              dc.l hatcd+104-b1
  648.              dc.w (1127-iff)/2 
  649.              dc.l rest_data-b1
  650.              dc.w 16/2 
  651.  
  652. snarep
  653.         dc.w 1  
  654.              dc.l snared+104-b1
  655.              dc.w (5095-iff)/2 
  656.              dc.l rest_data-b1
  657.              dc.w 16/2 
  658.  
  659. kickp
  660.         dc.w 1  
  661.              dc.l kickd+104-b1
  662.              dc.w (1128-iff)/2 
  663.              dc.l rest_data-b1
  664.              dc.w 16/2 
  665.  
  666.  
  667.  
  668.  
  669.  
  670. sinep
  671.         dc.w 1  
  672.              dc.l sined-b1
  673.              dc.w (32)/4 
  674.              dc.l sined-b1
  675.              dc.w (32)/4 
  676.  
  677.  
  678.  
  679. ;flute_snd:
  680. ;    dc.w    new_env
  681. ;    dc.l    flute_env-b1
  682. ;    dc.w    new_snd
  683. ;    dc.l    flutep-b1
  684. ;    dc.w     end_patt
  685.  
  686. ;flute_sndq:
  687. ;    dc.w    new_env
  688. ;    dc.l    flute_envq-b1
  689. ;    dc.w    new_snd
  690. ;    dc.l    flutep-b1
  691. ;     dc.w     end_patt
  692.  
  693.  
  694.  
  695.  
  696. ;pizpianop
  697. ;        dc.w 1  
  698. ;             dc.l pizpianod
  699. ;             dc.w 4032/2
  700. ;             dc.l restd
  701. ;             dc.w 16/2 
  702.  
  703. ;cellop
  704. ;        dc.w 1  
  705. ;             dc.l cellod+104
  706. ;             dc.w 9810/2
  707. ;             dc.l restd
  708. ;             dc.w 16/2 
  709.  
  710. ;crashp
  711. ;        dc.w 1  
  712. ;             dc.l crashd+104
  713. ;             dc.w 14701/2
  714. ;             dc.l restd
  715. ;             dc.w 16/2 
  716.  
  717.  
  718.  
  719. ;-----
  720.  
  721.  
  722.  
  723. envelopes:
  724.  
  725. chord_env:            dc.w 0,38,255
  726. chord_envq:            dc.w 0,8,255
  727. bass_env:            dc.w 0,58,255
  728. bass_envq:            dc.w 0,28,255
  729. oboe_env:            dc.w 0,28,255
  730. horn_env:            dc.w 0,38,255
  731. trumpet_env:            dc.w 0,28,255
  732. marimba_env:            dc.w 0,35,255
  733. perc_env:            dc.w 0,64,255
  734.  
  735.  
  736.  
  737.  
  738.  
  739. rest_env:            dc.w 0,0,0,0,0,0,0,0,255
  740. flute_env:            dc.w 0,20,255
  741. strings_env:            dc.w 0,38,255
  742. fhorn_env:            dc.w 0,18,255
  743. horn_envx:            dc.w 0,18,255
  744.  
  745. flute_envq:            dc.w 0,28,255
  746. sine_env_short:            dc.w 0,50,45,40,35,30,25,20,15,10,5,0,255
  747.  
  748.  
  749. loop_env:            dc.w 0,40,255
  750. track_env:            dc.w 0,60,255
  751.  
  752. hato_env            dc.w 0,64,255
  753. hatc_env            dc.w 0,64,255
  754. kick_env            dc.w 0,64,255
  755. snare_env            dc.w 0,64,255
  756.  
  757.  
  758.  
  759.  
  760. ;**************************************************
  761.  
  762. ;;THE FX SAMPLES ARE PULLED IN HERE...THis section can be anywhere
  763. ;; in lower memory,and in any order
  764.  
  765.  
  766.  
  767.  
  768.  
  769. track1d            incbin c:ssig/ground/track1.sam
  770. track2d            incbin c:ssig/ground/track2.sam
  771. track3d            incbin c:ssig/ground/track3.sam
  772. track4d            incbin c:ssig/ground/track4.sam
  773.  
  774. strings1d        incbin c:instruments/strings1.sam
  775.  
  776.  
  777. hatod            ;incbin c:ssig/danielle/hato.sam
  778. hatcd            ;incbin c:ssig/danielle/hatc.sam
  779. kickd            ;incbin c:ssig/danielle/kick.sam
  780. snared            ;incbin c:ssig/danielle/snare.sam
  781.  
  782.  
  783.  
  784. ;********************************************
  785.  
  786.  
  787. restd:
  788. rest_data:
  789.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  790.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  791.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  792.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  793.              dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  794. sined:
  795. sine_datad:
  796.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  797.              dc.w -127,-100,-50,-35,0,35,50,80,127
  798.              dc.w 127,80,50,25,0,-25,-50,-100,-127
  799.              dc.w -127,-100,-50,-35,0,35,50,80,127
  800.  
  801. endb1
  802. ;*************************************************
  803.  
  804.     end
  805.  
  806.  
  807.  
  808.  
  809.     dc.w modon,1,1,8,8,6,6
  810.     dc.w pbend,down,1,60000,32
  811.  
  812.