home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SHAPESFT / MSXMENU2.ZIP / MSXMENU2.MSA / SCRAPBIN / KRKOSKA.S < prev    next >
Text File  |  1985-11-20  |  15KB  |  1,056 lines
  1.  
  2. ;       DON'T FUCK ROUND
  3. ; the angel of death is my mother.
  4.  
  5.  
  6.  CLR.L -(SP)       ; Enter supervisor mode.
  7.  MOVE.W #$20,-(SP) ; Super.
  8.  TRAP #1
  9.  ADDQ.L #6,SP
  10.  MOVE.L D0,SV
  11.  
  12.  
  13. SL EQU $FF8800
  14. SD EQU $FF8802
  15.  move.b #7,sl
  16.  move.b #%11111000,sd
  17.  
  18.  MOVE.B #$08,SL
  19.  MOVE.B #15,SD
  20.  MOVE.B #$0,SL
  21.  MOVE.B #96,SD
  22.  
  23.  MOVE.B #$01,SL
  24.  MOVE.B #$00,SD
  25.  
  26.  
  27. bi
  28.  MOVE.B $469,D0
  29. FT CMP.B $469,D0
  30.  BEQ.S FT
  31.  
  32.  bsr vbi
  33.  
  34.  
  35.  CMP.B #97,$FFFC02
  36.  BNE BI
  37.  
  38.     lea    $ff8800,a0    get sound chip 
  39.     move.b    #7,(a0)
  40.     move.b    #%11111111,2(a0) cut out lingering noise
  41.     move.l #$8000000,$ff8800 
  42.     move.l #$9000000,$ff8800 
  43.     move.l #$a000000,$ff8800 
  44.  
  45.  MOVE #$777,$FF8240  
  46.  clr $FF8240+30
  47.  MOVE.L SV,-(SP)
  48.  MOVE #$20,-(SP)
  49.  TRAP #1
  50.  ADDQ.L #6,SP
  51.  
  52.  CLR -(SP)
  53.  TRAP #1
  54.  
  55.  
  56.  
  57.  
  58. VBI  
  59.  movem.l d0-d3/a0-a6,-(sp)
  60. ; add.b #230,dri
  61. ; BCC FLO
  62.  
  63.  
  64.  
  65.  
  66. ;\\\\\\\\\\\\\
  67.  MOVE.L UPTO,A2
  68.  MOVE CUNT,D3
  69.  MOVE.B 33(A2),D4
  70. SSU SUBQ.W #1,D3
  71.  BPL.S PART1
  72.  
  73. COP
  74.  MOVE.L #1,PNT0
  75.  MOVE.L #1,PNT1
  76.  MOVE.L #1,PNT2
  77.  MOVE.L #1,PNT3
  78.  MOVE.L #1,PNT4
  79.  MOVE.L #1,PNT5
  80.  MOVE.L #1,PNT6
  81.  MOVE.L #$9000000,SL
  82.  
  83.  ADD.L #36,a2
  84.  CMP.L #CHAN0,A2
  85.  BNE.S LLA
  86.  LEA DOTH,A2
  87. LLA
  88.  MOVE 34(A2),D3
  89.  MOVE.B 33(A2),D4
  90. PART1
  91.  CLR.B D2
  92.  BTST #1,D4
  93.  BEQ.S W1
  94.  MOVE.L (A2),A1
  95.  MOVE.L 4(A2),A0
  96.  BSR CHAN0
  97.  
  98. W1 BTST #2,D4
  99.  BEQ.S W2
  100.  MOVE.L 8(A2),A1
  101.  MOVE.L 12(A2),A0
  102.  BSR CHAN0
  103. W2 MOVEQ.B #1,D2
  104.  BTST #3,D4
  105.  BEQ.S W3
  106.  MOVE.L 16(A2),A1
  107.  MOVE.L 20(A2),A0
  108.  BSR CHAN0
  109. W3 BTST #4,D4
  110.  BEQ.S W4
  111.  MOVE.L 24(A2),A1
  112.  MOVE.L 28(A2),A0
  113.  BSR CHAN0
  114. W4 MOVE.L A2,UPTO
  115.  MOVE D3,CUNT
  116. ;--END OF VBI
  117. ;--------EXIT
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124. flo
  125.  
  126.  movem.l (sp)+,d0-d3/a0-a6 
  127. killer rts
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134. SV DC.L 0
  135.  
  136.  DC.B " (C) G.WHEATON.  45 GOLDRILL AVE BOLTON. LANCS, U.K. "
  137.  
  138.  
  139. UPTO DC.L EE-36
  140. CUNT DC.W 0
  141.  EVEN
  142. ;\\RUNNING ORDER SEQUENCE
  143.  
  144. ee
  145. doth
  146.  
  147.  DC.L PNT5,fr
  148.  DC.L PNT1,mb1 en
  149.  DC.L PNT2,mb
  150.  DC.L PNT3,drm3
  151.  DC.B 1,%00011110
  152.  DC.W -1+64*8
  153.  
  154.  DC.L PNT5,sud
  155.  DC.L PNT1,sud1
  156.  DC.L PNT2,sud
  157.  DC.L PNT3,drm3
  158.  DC.B 1,%00011110
  159.  DC.W -1+64*8
  160.  
  161.  
  162.  
  163.  
  164.  DC.L PNT5,mb en1
  165.  DC.L PNT1,mb1 en
  166.  DC.L PNT2,mb
  167.  DC.L PNT3,drm3
  168.  DC.B 1,%00011110
  169.  DC.W -1+64*4
  170.  
  171.  DC.L PNT5,mbc2 
  172.  DC.L PNT1,mbc1 
  173.  DC.L PNT2,mbc2
  174.  DC.L PNT3,drm
  175.  DC.B 1,%00011110
  176.  DC.W -1+64*4
  177.  
  178.  DC.L PNT5,mb en1
  179.  DC.L PNT1,mb1 en
  180.  DC.L PNT2,mb
  181.  DC.L PNT3,drm4
  182.  DC.B 1,%00011110
  183.  DC.W -1+64*4
  184.  
  185.  
  186.  DC.L PNT5,mbe
  187.  DC.L PNT1,mbe+4 en
  188.  DC.L PNT2,mbe
  189.  DC.L PNT3,drm4
  190.  DC.B 1,%00011110
  191.  DC.W -1+64*2
  192.  
  193.  DC.L PNT5,mbc1 
  194.  DC.L PNT1,mbc1+4 
  195.  DC.L PNT2,mbc1+8
  196.  DC.L PNT3,drm
  197.  DC.B 1,%00011110
  198.  DC.W -1+64*2
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207. CHAN0
  208. ;\\\\\\\\\\\\\\\\\\\\\\
  209.  MOVE (A1),D0
  210.  ADD D0,A0
  211.  MOVE.L (A0),D1  ;GET NOTE 0 & DURATION
  212.  MOVE.B 13(A1),D5
  213.  EXT.W D5
  214.  SWAP D1
  215.  ADD D5,D1
  216.  SWAP D1
  217.  CMP #$FFFF,D1
  218.  BNE CON2
  219.  CLR (A1)        ;RESET TO START
  220.  SUB D0,A0
  221.  MOVE.L (A0),D1
  222. CON2
  223.  SUBQ.B #1,3(A1)    ;NP0
  224.  BNE STILLON
  225.  MOVE.L D1,6(A1) ;TMP0  \D1.W IS DURATION
  226.  MOVE.L D1,20(A1);TEMP  HOLD NOTE
  227.  MOVE.B 26(A1),4(A1)   ;VOL0
  228.  MOVE D1,2(A1)   ;NP0  \SET NEW DURATION
  229.  ADDQ.W #4,(A1)        ; & INC POINTER
  230. STILLON
  231. ;\\VOLUME
  232. RFF
  233. ;\\\\\\\\\EFFECTS\\\\\\\\\\
  234. NV0 
  235.  MOVE.B 2(A1),D0
  236.  CMP.B #4,D0
  237.  BNE DOIT
  238.  ADDQ.B #1,4(A1)
  239.  RTS
  240. DOIT 
  241.  
  242. DZZ
  243.  MOVE.B #7,SL
  244.  MOVE.B #%11111000,SD
  245.  BRA FCC
  246. EFCT
  247.  
  248.  DC.L FINK,VIB,WARB,DRUM,slip,WB1,WRP,SLW
  249.  DC.L SLR,HOLD,TWERP,SLR1,inup,wwq,Half
  250.  dc.l holl,coll,foll,aoll,eoll
  251.  REPT 11
  252.  DC.L FINK
  253.  ENDR
  254.  
  255. FCC LEA EFCT,A6
  256.  AND #31,D0 
  257.  ASL #2,D0
  258.  MOVE.L (A6,D0),A0
  259.  JSR (A0)
  260.  
  261. MAZ ADDQ.B #1,4(A1)          ;VOL0
  262.  MOVE.B 11(A1),SL
  263.  MOVE.B 21(A1),SD   ;TMP0+1
  264.  MOVE.B 12(A1),SL
  265.  MOVE.B 20(A1),SD   ;TMP0
  266.  CLR D0
  267.  MOVE.B 4(A1),D0
  268.  MOVE.B 10(A1),SL
  269.  MOVE.B 28(A1,D0),D2    ;VOL0
  270.  MOVE.B D2,SD
  271.  
  272. fink rts
  273.  
  274. ;-------EFFECTS ROUTINES--------
  275. ;1-256---DELAYED--VIBRATO-------
  276.  
  277. coll 
  278.  addq.b #1,4(a1)
  279.  bra wwq
  280.  
  281. VV EOR.B #1,MC
  282.  BEQ.S SDC
  283.  
  284.  
  285. VIB 
  286.  
  287. WWQ 
  288.  MOVE 16(A1),D1
  289.  ADD D1,18(A1)
  290.  MOVE 14(A1),D1
  291.  CMP 18(A1),D1
  292.  BLT.S RIST
  293. KJ NEG D1
  294.  CMP 18(A1),D1
  295.  BGT.S RIST
  296. SAZ MOVE 6(A1),D1
  297.  ADD 18(A1),D1
  298.  MOVE D1,20(A1)
  299. SDC RTS
  300. RIST NEG 16(A1)
  301.  BRA.S SAZ
  302.  
  303. ;2-512------WARB DW-----------
  304. XX DC.B 0,0
  305.  
  306. WARB 
  307. SAX 
  308.  ADDQ.B #2,4(A1)
  309.  lSR 20(A1)
  310.  CMP #28,20(A1)
  311.  BGT.S PLOP
  312.  
  313.  MOVE 6(A1),20(A1)
  314. PLOP RTS
  315.  
  316.  
  317. ;3--768--------DRUM-----------
  318. DRUM 
  319.  
  320.  SUBQ.B #1,19(A1)
  321.  MOVE.B #7,SL
  322.  MOVE.B #%11011000,SD
  323.  MOVE.B #6,SL
  324.  MOVE.B 19(A1),SD
  325.  
  326.  MOVE.B #5,SL
  327.  MOVE.B 32(A2),SD
  328.  
  329.  MOVE.B #4,SL
  330.  MOVE.B 21(A1),D0
  331.  ASL.B #5,D0
  332.  MOVE.B D0,SD
  333. JUNK RTS
  334.  
  335.  
  336. lil dc.b 0,0
  337.  
  338. ;------4 1024
  339. slip 
  340.  
  341.  
  342. ;5--1280--
  343. WB1 
  344.  moveq.w #0,d1
  345.  move.b 4(a1),d1
  346.  CMP #32,d1
  347.  BLT wwq 
  348.  
  349.  move.b #32,4(a1)
  350.  subq.w #6,6(a1)
  351.  cmp #81*8,6(a1)
  352.  bgT.s warp
  353.  
  354.  move #81*8,6(a1) 
  355.  
  356. warp BRA wwq
  357.  
  358.  
  359.  
  360.  
  361. ;6--1536-----WARB UP---------
  362. WRP 
  363. SDX 
  364.  addq.b #1,4(a1)
  365.  LSR 20(A1)
  366.  CMP #65,20(A1)
  367.  BGT PLAP
  368.  MOVE 6(A1),20(A1)
  369. PLAP bra vib
  370.  
  371.  
  372. ;7--1792---SLIDE-UP--WARBLE
  373. SLW 
  374.  MOVE.B #15,4(A1)
  375.  ADD.W #49,20(A1)
  376.  RTS
  377.  
  378.  
  379. ; MOVE.B #7,4(a1)
  380. ; BRA wwq
  381.  
  382. ;--2048---SLIDE UP CONST VOL 
  383. SLR 
  384.  MOVE.B #10,4(A1)
  385.  SUB.W #43,20(A1)
  386.  RTS
  387.  
  388.  
  389.  
  390. YIN DC.B 0,0
  391. ;9--2304-------HOLD-------------
  392. HOLD MOVE.B #50,4(A1)
  393.  RTS
  394.  
  395. ;------10 2560
  396. TWERP 
  397.  MOVE.B #7,SL
  398.  MOVE.B #%11011100,SD
  399.  MOVE.B #6,SL
  400.  MOVE.B 19(A1),SD
  401.  RTS
  402.  
  403.  
  404.  rts
  405.  
  406.  
  407. ;11-------2816 SLIDE UP WITH ADSR
  408. SLR1
  409.  addq.b #1,4(a1) 
  410. dip rts
  411.  
  412.  
  413. tp dc.b 0,0
  414. ;12-------3072  
  415. inup
  416.  addq.b #3,4(a1)
  417.  bra WWQ
  418.  
  419.  
  420. ;13-
  421.  
  422.  
  423. ;
  424. ;14--------dw A
  425. half
  426.  ADDQ.B #1,RONK
  427.  move.b RONK,d1
  428.  and #3,d1
  429.  asl #1,d1
  430.  move dw(pc,d1),20(a1)
  431.  rts
  432.  
  433. dw dc.w 144,96,72,96/2
  434.  
  435. ronk dc.b 0,0
  436.  
  437. ;15--------DW G
  438. holl
  439.  tst.b 4(a1)
  440.  bne VIB
  441.  
  442.  move.b #20,4(a1) 
  443.  BRA VIB
  444.  
  445.  
  446.  
  447.  
  448. ;17--------DW F
  449. Foll
  450.  move.b #15,4(a1)
  451.  
  452. ;18--------DW Am
  453. aoll
  454.  
  455.  addq.b #2,4(A1)
  456.  addq.b #1,RONK
  457.  move.b RONK,d1
  458.  and #3,d1
  459.  asl #1,d1
  460.  move aq(pc,d1),20(a1)
  461.  rts
  462.  
  463. aq dc.w 108,72,54,45
  464.  
  465.  
  466. ;19--------DW E
  467. eoll
  468.  addq.b #2,4(A1)
  469.  BRA WARB VIB
  470.  
  471.  
  472.  
  473.  
  474. ;\\\\\\\\\\\\\\DATAS\\\\\\\\\\\\\\\
  475. ;\\NOTE 1ST WORD. DURATION 2ND WORD
  476. ;\\\LEAD
  477. PNT0 DC.W 0
  478. NP0 DC.W 1
  479.  DC.W 0
  480.  DC.L 0
  481.  DC.B 9,2,3
  482.  DC.B 1      ;ADD TO NOTE
  483.  DC.W 5      ;VIB LIMIT
  484.  DC.W 3      ;16(A1)  ADD
  485.  DC.W 0      ;VIB 18(A1)
  486.  DC.L 0      ;TMP NOTE 20(A1)
  487.  DC.B 1,1    ;VIB RATE 24(A1)
  488.  DC.B 0,0    ;INITIAL VOL
  489. ;ADSR  28(A1)
  490.  
  491.  DC.B 15,14,13,13,12,12,12,11,11,11
  492.  DC.B 10,9
  493.  
  494.  dcb.b    50,9
  495.  dcb.b    50,8
  496.  DCb.B  50,7
  497.  DCb.B  50,6
  498.  
  499.  
  500.  
  501.  EVEN
  502. ;\\\MIDDLE
  503. PNT1 DC.W 0
  504.  DC.W 1       ;EFFECT & DURATION 2(A1)
  505.  DC.B 0,0
  506.  DC.L 0
  507.  DC.B 9,2,3
  508.  DC.B 0       ;ADD  13(A1)
  509.  DC.W 4       ;VIB LIMIT
  510.  DC.W 3       ;VIB ADD 16(A1)
  511.  DC.W 0       ;VIB 18(A1)
  512.  DC.L 0       ;TEMP NOTE 20(A1)
  513.  DC.B 1,1     ;VIB RATE  24)A1)
  514.  DC.B 0,0     ;INITIAL VOL
  515. ;ADSR  28(A1)
  516.  
  517.  DC.B 15,15,15,14,14,14,13,13,13,13
  518.  
  519.  dcb.b 8,12
  520.  dcb.b 8,11
  521.  dcb.b 8,10
  522.  dcb.b 8,9
  523.  dcb.b 120,8
  524.  dcb.b 40,6
  525.  dcb.b 40,5
  526.  
  527.  
  528.  
  529.  
  530.  EVEN
  531. ;\\\BASS
  532. PNT2 DC.W 0
  533.  DC.W 1          ;2(A1) DURATION
  534.  DC.B 0,0        ;4(A1)
  535.  DC.L 0          ;6
  536.  DC.B 10,4,5     ;10(A1) VOL REG
  537.  DC.B 1          ;ADD TO NOTE 13(A1)
  538.  DC.W 2          ;VIB LIMIT
  539.  DC.W 3          ;VIBRATO ADD 16(A1)
  540.  DC.W 2          ;VIB 18(A1)
  541.  DC.L 0          ;TMP NOTE 20(A1)
  542.  DC.B 1,1        ;VIB RATE
  543.  DC.B 0,0        ;INITIAL VOL 26(A1)
  544. ;\ADSR  28(A1)
  545. ADSR
  546. *-*
  547.  dc.b 15,15,15,14,14,13,12,12
  548.  
  549.  DCB.B 8,12
  550.  DCB.B 8,11
  551.  DCB.B 20,10
  552.  DCB.B 10,9
  553.  DCB.B 10,8
  554.  DCB.B 20,7
  555.  DCB.B 20,5
  556.  DCB.B 50,4
  557.  DCB.B 150,3
  558.  
  559.  
  560.  
  561.  
  562.  EVEN
  563. PNT3 DC.W 0
  564. NP3 DC.W 1      ;2(A1) DURATION
  565.  DC.B 0,0        ;4(A1)
  566.  DC.L 0          ;6
  567.  DC.B 10,6,11    ;10(A1) VOL REG
  568.  DC.B -1         ;ADD  13(A1)
  569.  DC.W 4          ;VIB LIMIT
  570.  DC.W 3          ;VIBRATO ADD 16(A1)
  571.  DC.W 0          ;VIB 18(A1)
  572.  DC.L 0          ;TMP NOTE 20(A1)
  573.  DC.B 1,1        ;VIB RATE
  574.  DC.B 0,0        ;INITIAL VOL 26(A1)
  575. ;\ADSR  28(A1)
  576.  
  577.  
  578.  DC.B 15,15,14,13,12,11,11,11
  579.  DC.B 10,9,8,8,7,7,6,5,4,3,2,1
  580.  
  581.  
  582.  
  583.  EVEN
  584. PNT4 DC.W 0
  585. NP4 DC.W 1      ;2(A1) DURATION
  586.  DC.B 0,0        ;4(A1)
  587.  DC.L 0
  588.  DC.B 9,2,3      ;10(A1) VOL REG
  589.  DC.B 0          ;ADD 13(A1)
  590.  DC.W 3          ;VIB LIMIT
  591.  DC.W 4          ;VIBRATO ADD 16(A1)
  592.  DC.W 0          ;VIB 18(A1)
  593.  DC.L 0          ;TMP NOTE 20(A1)
  594.  DC.B 1,1        ;VIB RATE
  595.  DC.B 0,0        ;INITIAL VOL 26(A1)
  596. ;\ADSR  28(A1)
  597.  
  598.  DC.B 11,11,11,12,12,12
  599.  
  600.  DCB.B 10,13
  601.  DC.B 13,13,12,12,11,11
  602.  DCB.B 5,10
  603.  DCB.B 22,8
  604.  DCB.B 22,6
  605.  
  606.  
  607.  
  608.  
  609.  
  610. PNT5 DC.W 0
  611.  DC.W 1       ;EFFECT & DURATION 2(A1)
  612.  DC.B 0,0
  613.  DC.L 0
  614.  DC.B 8,0,1
  615.  DC.B 0       ;ADD  13(A1)
  616.  DC.W 2       ;VIB LIMIT
  617.  DC.W 1       ;VIB ADD 16(A1)
  618.  DC.W 0       ;VIB 18(A1)
  619.  DC.L 0       ;TEMP NOTE 20(A1)
  620.  DC.B 1,1     ;VIB RATE  24)A1)
  621.  DC.B 0,0     ;INITIAL VOL
  622. ;ADSR  28(A1)
  623.  
  624.  dc.b 15,15,14,14,13
  625.  DCb.B 6,12
  626.  DCb.B 6,11
  627.  DCb.B 2,12
  628.  DCb.B 2,11
  629.  DCb.B 2,10
  630.  DCb.B 2,9
  631.  DCb.B 10,8
  632.  DCb.B 50,7
  633.  DCb.B 50,6
  634.  DCb.B 20,5
  635.  DCb.B 20,4
  636.  DCb.B 80,3
  637.  
  638.  
  639. PNT6 DC.W 0
  640.  DC.W 1       ;EFFECT & DURATION 2(A1)
  641.  DC.B 0,0
  642.  DC.L 0
  643.  DC.B 9,2,3
  644.  DC.B 0       ;ADD  13(A1)
  645.  DC.W 4       ;VIB LIMIT
  646.  DC.W 5       ;VIB ADD 16(A1)
  647.  DC.W 0       ;VIB 18(A1)
  648.  DC.L 0       ;TEMP NOTE 20(A1)
  649.  DC.B 1,1     ;VIB RATE  24)A1)
  650.  DC.B 0,0     ;INITIAL VOL
  651. ;ADSR  28(A1)
  652.  
  653.  DC.B 15,15,14,14,13,12,13,12,12,12,11,11,11,10,10,10
  654.  DC.B 14,13,13,13,13,12,12,11
  655.  dc.b 13,12,11,11,10,10,9,8
  656.  dc.b 13,12,11,11,10,10,9,8
  657.  dc.b 13,12,11,11,10,10,9,8
  658.  dc.b 13,12,11,11,10,10,9,8
  659.  dc.b 12,12,11,11,10,10,9,8
  660.  dc.b 12,12,11,11,10,10,9,8
  661.  dc.b 12,12,11,11,10,10,9,8
  662.  dc.b 11,11,10,10,9,8,7,6
  663.  dc.b 11,11,10,10,9,8,7,6
  664.  dc.b 11,11,10,10,9,8,7,6
  665.  dc.b 11,11,10,10,9,8,7,6
  666.  dc.b 10,10,9,8,7,6,5,4
  667.  dc.b 10,10,9,8,7,6,5,4
  668.  dc.b 10,10,9,8,7,6,5,4
  669.  dc.b 10,10,9,8,7,6,5,4
  670.  dc.b 8,7,6,5,4,3,2,1
  671.  dc.b 8,7,6,5,4,3,2,1
  672.  dc.b 8,7,6,5,4,3,2,1
  673.  dc.b 8,7,6,5,4,3,2,1
  674.  dc.b 8,7,6,5,4,3,2,1
  675.  dc.b 6,5,4,3,2,1,1,1
  676.  dc.b 6,5,4,3,2,1,1,1
  677.  dc.b 6,5,4,3,2,1,1,1
  678.  dc.b 6,5,4,3,2,1,1,1
  679.  dc.b 5,4,3,2,1,1,1,1
  680.  dc.b 5,4,3,2,1,1,1,1
  681.  dc.b 5,4,3,2,1,1,1,1
  682.  dc.b 5,4,3,2,1,1,1,1
  683.  dc.b 5,4,3,2,1,1,1,1
  684.  
  685.  
  686.  
  687.  EVEN
  688. TE2 DC.W 2,3
  689.  
  690. MAX DC.B 71,32,87,72,69,65,84,79,78
  691. DRI DC.B 251,0
  692. MIN DC.B 0,0
  693. MC DC.B 0,0
  694.  EVEN
  695.  
  696. ;-----------MUSIC DATA
  697.  
  698. D=2304
  699. v=256
  700.  
  701. NULL DC.W 2,128+2304
  702.  DC.W $FFFF,$FFFF
  703.  
  704.  
  705. drm
  706.  dc.w 2,1+2560
  707.  dc.w 0,7+1024
  708.  dc.w 2,1+2560
  709.  dc.w 0,7+1024
  710.  dc.w 2,1+2560
  711.  
  712.  dc.w 0,7+1024
  713.  dc.w 2,1+2560
  714.  dc.w 0,7+1024
  715.  dc.w 2,1+2560
  716.  dc.w 0,7+1024
  717.  
  718.  dc.w 8,3+768
  719.  dc.w 8,5+1024
  720.  
  721.  dc.w 2,1+2560
  722.  dc.w 0,7+1024
  723.  
  724. drm1
  725.  dc.w 2,1+2560
  726.  dc.w 0,7+1024
  727.  
  728.  DC.W $FFFF,$FFFF
  729.  
  730. drm3
  731.  dc.w 31,3+768
  732.  dc.w 8,21+1024
  733.  dc.w 2,1+2560
  734.  dc.w 0,7+1024
  735.  
  736.  dc.w 1,4+768
  737.  dc.w 8,8+12+1024
  738.  
  739.  dc.w 0,1+768
  740.  dc.w 8,15+1024
  741.  dc.w 0,1+768
  742.  dc.w 8,15+1024
  743.  dc.w 8,3+768
  744.  dc.w 8,5+1024
  745.  
  746.  dc.w 1,2+768
  747.  dc.w 1,4+1024
  748.  
  749.  dc.w 8,10+1024
  750.  
  751.  dc.w 5,16+2560 
  752.  
  753.  DC.W $FFFF,$FFFF
  754.  
  755. drm4
  756.  dc.w 31,3+768
  757.  dc.w 8,21+1024
  758.  dc.w 2,1+2560
  759.  dc.w 0,7+1024
  760.  
  761.  dc.w 1,4+768
  762.  dc.w 8,8+12+1024
  763.  
  764.  dc.w 0,1+768
  765.  dc.w 0,15+1024
  766.  dc.w 0,1+768
  767.  dc.w 0,15+1024
  768.  dc.w 8,3+768
  769.  dc.w 0,5+1024
  770.  
  771.  dc.w 1,2+768
  772.  dc.w 0,6+1024
  773.  
  774.  dc.w 4,2+768
  775.  dc.w 0,6+1024
  776.  
  777.  dc.w 1,2+768
  778.  dc.w 0,6+1024
  779.  
  780.  ;dc.w 1,2+768
  781.  dc.w 0,8+1024
  782.  
  783.  DC.W $FFFF,$FFFF
  784.  
  785.  
  786.  
  787.  
  788. WOO
  789.  DC.W 0,2*96+D
  790.  DC.W 0,48+D
  791. woo21
  792.  DC.W 162*16,54+2048
  793.  DC.W 162*8,36+1792
  794.  DC.W $FFFF,$FFFF
  795.  
  796. WOO1
  797.  DC.W 0,2*96+D
  798.  DC.W 0,96+D
  799.  
  800. woo2
  801.  DC.W 108*4,48+1792
  802.  DC.W $FFFF,$FFFF
  803. e=15*256
  804. s=2
  805.  
  806. men
  807.  DC.W 216*s,24 +v
  808.  DC.W 108*s,16 +v
  809.  DC.W 121*s,16 +v
  810.  DC.W 128*s,8 + v
  811.  
  812.  DC.W 144*s,24+v
  813.  
  814.  DC.W 108*s,16 +v
  815.  DC.W 121*s,16 +v
  816.  DC.W 128*s,8 +v
  817.  DC.W 144*s,24+v
  818.  
  819.  DC.W 108*s,16 +v
  820.  DC.W 121*s,16 +v
  821.  DC.W 128*s,8 +v
  822.  DC.W 144*s,24+v
  823.  
  824.  DC.W 108*s,16+v
  825.  DC.W 121*s,16+v
  826.  DC.W 128*s,8+v
  827.  
  828.  DC.W $FFFF,$FFFF
  829.  
  830. men1
  831.  DC.W 85*4,1+e
  832.  DC.W 54*4,1+e
  833.  DC.W 72*4,1+e
  834.  DC.W $FFFF,$FFFF
  835.  
  836.  
  837. mb
  838.  DC.W 121*16,8+v
  839.  DC.W 108*16,8+v
  840.  DC.W 108*8,8+v
  841.  DC.W 108*16,8+v
  842.  DC.W 108*16,8+v
  843.  DC.W 108*16,8+v
  844.  DC.W 108*16,8+v
  845.  DC.W 108*16,8+v
  846.  
  847.  DC.W $FFFF,$FFFF
  848.  
  849. mb1
  850.  DC.W 121*8,8+v
  851.  DC.W 108*8,8+v
  852.  DC.W 108*4,8+v
  853.  DC.W 108*8,8+v
  854.  DC.W 108*16,4+v
  855.  DC.W 108*16,4+v
  856.  DC.W 108*16,4+v
  857.  DC.W 108*16,4+v
  858.  DC.W 108*8,8+v
  859.  DC.W 108*8,8+v
  860.  
  861.  DC.W $FFFF,$FFFF
  862.  
  863.  
  864.  
  865. mbc2
  866.  DC.W 182*8,8+v
  867.  DC.W 162*8,8+v
  868.  DC.W 162*4,8+v
  869.  DC.W 162*16,8+v
  870.  DC.W 162*8,8+v
  871.  DC.W 162*4,8+v
  872.  DC.W 162*8,8+v
  873.  DC.W 162*8,8+v
  874.  
  875.  
  876.  DC.W 182*8,8+v
  877.  DC.W 162*8,8+v
  878.  DC.W 162*4,8+v
  879.  DC.W 162*16,8+v
  880.  DC.W 162*8,8+v
  881.  DC.W 162*1,24+v
  882. ; DC.W 162*8,8+v
  883. ; DC.W 162*8,8+v
  884.  
  885.  DC.W $FFFF,$FFFF
  886.  
  887. mbc
  888.  DC.W 162*8,8+v
  889.  DC.W 162*8,8+v
  890.  DC.W 162*4,8+v
  891.  DC.W 0,8+d
  892.  
  893.  DC.W 162*8,8+v
  894.  DC.W 162*8,8+v
  895.  DC.W 162*16,8+v
  896.  DC.W 81,8+d
  897.  
  898.  DC.W $FFFF,$FFFF
  899.  
  900. mbc1
  901.  DC.W 162*16,8+v
  902.  DC.W 162*16,8+v
  903.  DC.W 162*8,8+v
  904.  DC.W $FFFF,$FFFF
  905.  
  906.  
  907. mbe
  908.  DC.W 144*8,8+v
  909.  DC.W 144*8,8+v
  910.  DC.W 144*4,8+v
  911.  DC.W 0,8+d
  912.  
  913.  DC.W 144*8,8+v
  914.  DC.W 144*8,8+v
  915.  DC.W 144*16,8+v
  916.  DC.W 72,8+d
  917.  
  918.  DC.W $FFFF,$FFFF
  919.  
  920.  
  921.  
  922. u=2
  923. man
  924.  DC.W 162*u,24 +v
  925.  DC.W 216*u,16 +v
  926.  DC.W 216*u,16 +v
  927.  DC.W 216*u,8 +v
  928.  
  929.  DC.W 192*u,24 +v
  930.  DC.W 192*u,16 +v
  931.  DC.W 192*u,16 +v
  932.  DC.W 192*u,8 +v
  933.  
  934.  DC.W 172*u,24 +v
  935.  DC.W 172*u,16 +v
  936.  DC.W 172*u,16 +v
  937.  DC.W 172*u,8 +v
  938.  
  939.  DC.W 192*u,24+v
  940.  DC.W 192*u,16+v
  941.  DC.W 192*u,16+v
  942.  DC.W 192*u,8+v
  943.  dc.w 217*u,32
  944.  
  945.  DC.W $FFFF,$FFFF
  946. j=2
  947. c=0
  948. man1
  949.  DC.W 81*4,1+e
  950.  DC.W 108*4,1+e
  951.  DC.W 128*4,1+e
  952.  DC.W $FFFF,$FFFF
  953.  
  954.  
  955.  
  956. t=512
  957. n=2
  958. fr1
  959.  DC.W 216*s,3 +v
  960.  
  961.  
  962. r=1
  963. fr
  964.  dc.w 108/2,4+t
  965.  dc.w 102/2,4+t
  966.  dc.w 96/2,8+t
  967.  
  968.  dc.w 102/2,4+t
  969.  dc.w 96/2,4+t
  970.  dc.w 91/2,8+t 
  971.  
  972.  dc.w 96/2,4+t
  973.  dc.w 91/2,4+t 
  974.  dc.w 85/2,8+t
  975.  
  976.  dc.w 91/2,4+t 
  977.  dc.w 85/2,4+t
  978.  dc.w 81/2,8+t
  979.  
  980.  dc.w 72/2,4+t
  981.  dc.w 85/2,4+t 
  982.  dc.w 108/2,8+t
  983.  
  984.  dc.w 81/2,4+t
  985.  dc.w 96/2,4+t 
  986.  dc.w 121/2,8+t
  987.  
  988.  dc.w 85/2,4+t
  989.  dc.w 102/2,4+t 
  990.  dc.w 128/2,8+t
  991.  
  992.  dc.w 108/2,4+t
  993.  dc.w 121/2,4+t 
  994.  dc.w 144/2,8+t
  995.  
  996.  
  997.  dc.w 108/4,4+t
  998.  dc.w 102/4,4+t
  999.  dc.w 96/4,8+t
  1000.  
  1001.  dc.w 102/4,4+t
  1002.  dc.w 96/4,4+t
  1003.  dc.w 91/4,8+t 
  1004.  
  1005.  dc.w 96/4,4+t
  1006.  dc.w 91/4,4+t 
  1007.  dc.w 85/4,8+t
  1008.  
  1009.  dc.w 91/4,4+t 
  1010.  dc.w 85/4,4+t
  1011.  dc.w 81/4,8+t
  1012.  
  1013.  dc.w 72/4,4+t
  1014.  dc.w 85/4,4+t 
  1015.  dc.w 108/4,8+t
  1016.  
  1017.  dc.w 81/4,4+t
  1018.  dc.w 96/4,4+t 
  1019.  dc.w 121/4,8+t
  1020.  
  1021.  dc.w 85/4,4+t
  1022.  dc.w 102/4,4+t 
  1023.  dc.w 128/4,8+t
  1024.  
  1025.  dc.w 108/4,4+t
  1026.  dc.w 121/4,4+t 
  1027.  dc.w 144/4,8+t
  1028.  
  1029.  DC.W $FFFF,$FFFF
  1030.  
  1031.  
  1032. sud
  1033.  dc.w 121*8,112+v
  1034.  dc.w 108*8,8
  1035.  dc.w 108*8,8
  1036.  dc.w 121*8,56+v
  1037.  dc.w 108*8,8
  1038.  dc.w 121*8,8
  1039.  dc.w 121*8,8
  1040.  dc.w 121*16,12
  1041.  dc.w 0,4+d
  1042.  dc.w 114*8,16
  1043.  dc.w 114*16,12
  1044.  dc.w 0,4+d
  1045.  dc.w 108*8,128+v
  1046.  dc.w 121*16,64+d
  1047.  dc.w 108*16,128+d
  1048.  
  1049. sud1
  1050.  dc.w 121*16,255+d
  1051.  dc.w 108*16,255+d
  1052.  DC.W $FFFF,$FFFF
  1053.  
  1054.  
  1055.  
  1056.