home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SHAPESFT / SSSOURCE.ZIP / SSSOURCE.MSA / SCRAPBIN / FAIR.S < prev    next >
Encoding:
Text File  |  1985-11-20  |  11.7 KB  |  859 lines
  1.  
  2.  CLR.L -(SP)       ; Enter supervisor mode.
  3.  MOVE.W #$20,-(SP) ; Super.
  4.  TRAP #1
  5.  ADDQ.L #6,SP
  6.  MOVE.L D0,SV
  7.  
  8.  
  9. SL EQU $FF8800
  10. SD EQU $FF8802
  11.  move.b #7,sl
  12.  move.b #%11111000,sd
  13.  
  14. ; MOVE.B #$08,SL
  15. ; MOVE.B #15,SD
  16. ; MOVE.B #$0,SL
  17. ; MOVE.B #96,SD
  18.  
  19. ; MOVE.B #$01,SL
  20. ; MOVE.B #$00,SD
  21.  
  22.  
  23. FF CMP.B #97,$FFFC02
  24.  ; BNE.S FF
  25.  
  26.  
  27. VBI  
  28.  movem.l d0-d3/a0-a6,-(sp)
  29.  MOVE.B DRI,D1
  30.  ADD.B D1,DRI+1
  31.  BCC FLO
  32.  
  33.  
  34.  
  35.  
  36. ;\\\\\\\\\\\\\
  37.  MOVE.L UPTO,A2
  38.  MOVE CUNT,D3
  39.  MOVE.B 33(A2),D4
  40. SSU SUBQ.W #1,D3
  41.  BPL.S PART1
  42.  
  43. COP
  44.  MOVE.L #1,PNT0
  45.  MOVE.L #1,PNT1
  46.  MOVE.L #1,PNT2
  47.  MOVE.L #1,PNT3
  48.  MOVE.L #1,PNT4
  49.  MOVE.L #1,PNT5
  50.  MOVE.L #$9000000,SL
  51.  
  52.  ADD.L #36,a2
  53.  CMP.L #CHAN0,A2
  54.  BNE.S LLA
  55.  LEA DOTH,A2
  56. LLA
  57.  MOVE 34(A2),D3
  58.  MOVE.B 33(A2),D4
  59. PART1
  60.  CLR.B D2
  61.  BTST #1,D4
  62.  BEQ.S W1
  63.  MOVE.L (A2),A1
  64.  MOVE.L 4(A2),A0
  65.  BSR CHAN0
  66.  
  67. W1 BTST #2,D4
  68.  BEQ.S W2
  69.  MOVE.L 8(A2),A1
  70.  MOVE.L 12(A2),A0
  71.  BSR CHAN0
  72. W2 MOVEQ.B #1,D2
  73.  BTST #3,D4
  74.  BEQ.S W3
  75.  MOVE.L 16(A2),A1
  76.  MOVE.L 20(A2),A0
  77.  BSR CHAN0
  78. W3 BTST #4,D4
  79.  BEQ.S W4
  80.  MOVE.L 24(A2),A1
  81.  MOVE.L 28(A2),A0
  82.  BSR CHAN0
  83. W4 MOVE.L A2,UPTO
  84.  MOVE D3,CUNT
  85. ;--END OF VBI
  86. ;--------EXIT
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93. FLO
  94.  MOVE.B $469,D0
  95. FT CMP.B $469,D0
  96.  BEQ.S FT
  97.  
  98.  
  99.  movem.l (sp)+,d0-d3/a0-a6 
  100. ;killer rts
  101.  
  102.  
  103.  CMP.B #97,$FFFC02
  104.  BNE VBI
  105.  
  106.  
  107.     lea    $ff8800,a0    get sound chip 
  108.     move.b    #7,(a0)
  109.     move.b    #%11111111,2(a0) cut out lingering noise
  110.     move.l #$8000000,$ff8800 
  111.     move.l #$9000000,$ff8800 
  112.     move.l #$a000000,$ff8800 
  113.  
  114.  MOVE #$777,$FF8240  
  115.  clr $FF8240+30
  116.  MOVE.L SV,-(SP)
  117.  MOVE #$20,-(SP)
  118.  TRAP #1
  119.  ADDQ.L #6,SP
  120.  
  121.  CLR -(SP)
  122.  TRAP #1
  123.  
  124.  
  125.  
  126.  
  127. SV DC.L 0
  128.  
  129.  DC.B " (C) G.WHEATON.  45 GOLDRILL AVE BOLTON. LANCS, U.K. "
  130.  
  131.  
  132. UPTO DC.L EE-36
  133. CUNT DC.W 0
  134.  EVEN
  135. ;\\RUNNING ORDER SEQUENCE
  136.  
  137. ee
  138. doth
  139.  DC.L PNT5,bull
  140.  DC.L PNT1,null B3
  141.  DC.L PNT2,t2
  142.  DC.L PNT3,drm
  143.  DC.B 1,%00001110
  144.  DC.W -1+64*12
  145.  
  146.  
  147.  DC.L PNT5,B2
  148.  DC.L PNT1,B3
  149.  DC.L PNT2,t2
  150.  DC.L PNT3,drm
  151.  DC.B 1,%00001110
  152.  DC.W -1+64*12
  153.  
  154.  DC.L PNT4,T1
  155.  DC.L PNT1,T2
  156.  DC.L PNT2,b2
  157.  DC.L PNT3,drm
  158.  DC.B 2,%00011110
  159.  DC.W -1+64*12
  160.  
  161.  DC.L PNT4,T1
  162.  DC.L PNT1,T2
  163.  DC.L PNT2,B1
  164.  DC.L PNT3,drm
  165.  DC.B 1,%00011110
  166.  DC.W -1+64*12
  167.  
  168.  DC.L PNT5,T1
  169.  DC.L PNT0,T2
  170.  DC.L PNT2,B1
  171.  DC.L PNT3,drm
  172.  DC.B 0,%00011110
  173.  DC.W -1+64*12
  174.  
  175.  
  176.  
  177.  
  178.  
  179. CHAN0
  180. ;\\\\\\\\\\\\\\\\\\\\\\
  181.  MOVE (A1),D0
  182.  ADD D0,A0
  183.  MOVE.L (A0),D1  ;GET NOTE 0 & DURATION
  184.  MOVE.B 13(A1),D5
  185.  EXT.W D5
  186.  SWAP D1
  187.  ADD D5,D1
  188.  SWAP D1
  189.  CMP #$FFFF,D1
  190.  BNE CON2
  191.  CLR (A1)        ;RESET TO START
  192.  SUB D0,A0
  193.  MOVE.L (A0),D1
  194. CON2
  195.  SUBQ.B #1,3(A1)    ;NP0
  196.  BNE STILLON
  197.  MOVE.L D1,6(A1) ;TMP0  \D1.W IS DURATION
  198.  MOVE.L D1,20(A1);TEMP  HOLD NOTE
  199.  MOVE.B 26(A1),4(A1)   ;VOL0
  200.  MOVE D1,2(A1)   ;NP0  \SET NEW DURATION
  201.  ADDQ.W #4,(A1)        ; & INC POINTER
  202. STILLON
  203. ;\\VOLUME
  204. RFF
  205. ;\\\\\\\\\EFFECTS\\\\\\\\\\
  206. NV0 
  207.  MOVE.B 2(A1),D0
  208.  CMP.B #4,D0
  209.  BNE DOIT
  210.  ADDQ.B #1,4(A1)
  211.  RTS
  212. DOIT 
  213.  
  214. DZZ
  215.  MOVE.B #7,SL
  216.  MOVE.B #%11111000,SD
  217.  BRA FCC
  218. EFCT
  219.  
  220.  DC.L FINK,VIB,WARB,DRUM,slip,WB1,WRP,SLW
  221.  DC.L SLR,HOLD,TWERP,SLR1,inup,wwq,Half
  222.  dc.l holl,coll,foll,aoll,eoll
  223.  REPT 11
  224.  DC.L FINK
  225.  ENDR
  226.  
  227. FCC LEA EFCT,A6
  228.  AND #31,D0 
  229.  ASL #2,D0
  230.  MOVE.L (A6,D0),A0
  231.  JSR (A0)
  232.  
  233. MAZ ADDQ.B #1,4(A1)          ;VOL0
  234.  MOVE.B 11(A1),SL
  235.  MOVE.B 21(A1),SD   ;TMP0+1
  236.  MOVE.B 12(A1),SL
  237.  MOVE.B 20(A1),SD   ;TMP0
  238.  CLR D0
  239.  MOVE.B 4(A1),D0
  240.  MOVE.B 10(A1),SL
  241.  MOVE.B 28(A1,D0),D2    ;VOL0
  242.  MOVE.B D2,SD
  243.  
  244. fink rts
  245.  
  246. ;-------EFFECTS ROUTINES--------
  247. ;1-256---DELAYED--VIBRATO-------
  248. VV EOR.B #1,MC
  249.  BEQ.S SDC
  250. VIB CMP.B #15,4(A1)
  251.  BLT warb SDC
  252.  
  253. WWQ 
  254.  
  255.  SUB.B #1,24(A1)
  256.  BNE SDC
  257.  MOVE.B 25(A1),24(A1)
  258.  MOVE 16(A1),D1
  259.  ADD D1,18(A1)
  260.  MOVE 14(A1),D1
  261.  CMP 18(A1),D1
  262.  BLT.S RIST
  263. KJ NEG D1
  264.  CMP 18(A1),D1
  265.  BGT.S RIST
  266. SAZ MOVE 6(A1),D1
  267.  ADD 18(A1),D1
  268.  MOVE D1,20(A1)
  269. SDC RTS
  270. RIST NEG 16(A1)
  271.  BRA.S SAZ
  272. ;2-512------WARB DW-----------
  273. XX DC.B 0,0
  274.  
  275. WARB 
  276. SAX 
  277.  ADDQ.B #1,4(A1)
  278.  Lsr 20(A1)
  279.  CMP #30,20(A1)
  280.  BGT.S PLOP
  281.  MOVE 6(A1),20(A1)
  282. PLOP RTS
  283.  
  284.  
  285. ;3--768--------DRUM-----------
  286. DRUM 
  287.  ;eor.b #1,lil
  288.  ;bne.s junk
  289.  SUBQ.B #4,19(A1)
  290.  MOVE.B #7,SL
  291.  MOVE.B #%11011000,SD
  292.  MOVE.B #6,SL
  293.  MOVE.B 19(A1),SD
  294.  MOVE.B #5,SL
  295.  MOVE.B 32(A2),SD
  296.  MOVE.B #4,SL
  297.  MOVE.B 19(A1),D0
  298.  ASL.B #5,D0
  299.  MOVE.B D0,SD
  300. JUNK RTS
  301.  
  302.  
  303. lil dc.b 0,0
  304.  
  305. ;------4 1024
  306. slip 
  307.  
  308.  
  309. ;5--1280--WARB CONSTANT VOLUME
  310. WB1 MOVE.B #5,4(A1)
  311.  BRA.s SAX
  312.  
  313. ;6--1536-----WARB UP---------
  314. WRP 
  315. SDX LSR 20(A1)
  316.  CMP #35,20(A1)
  317.  BGT PLAP
  318.  MOVE 6(A1),20(A1)
  319. PLAP bra vib
  320.  
  321.  
  322. ;7--1792---SLIDE-UP--WARBLE
  323. SLW 
  324.  MOVE.B #7,4(a1)
  325.  BRA wwq
  326.  
  327. ;--2048---SLIDE UP CONST VOL 
  328. SLR 
  329.  ADD.W #80,20(A1)
  330.  RTS
  331.  
  332. YIN DC.B 0,0
  333. ;9--2304-------HOLD-------------
  334. HOLD MOVE.B #50,4(A1)
  335.  RTS
  336.  
  337. ;------10 2560
  338. TWERP 
  339.  MOVE.B #8,4(a1)
  340.  rts
  341.  
  342.  
  343. ;11-------2816 SLIDE UP WITH ADSR
  344. SLR1
  345.  addq.b #1,4(a1) 
  346. dip rts
  347.  
  348.  
  349. tp dc.b 0,0
  350. ;12-------3072  
  351. inup
  352.  move.b #8,4(a1)
  353.  bra WWQ
  354.  
  355.  
  356. ;13-
  357.  
  358.  
  359. ;
  360. ;14--------dw A
  361. half
  362.  ADDQ.B #1,RONK
  363.  move.b RONK,d1
  364.  and #3,d1
  365.  asl #1,d1
  366.  move dw(pc,d1),20(a1)
  367.  rts
  368.  
  369. dw dc.w 144,96,72,96/2
  370.  
  371. ;15--------DW G
  372. holl
  373.  ADDQ.B #1,RONK
  374.  move.b RONK,d1
  375.  and #3,d1
  376.  asl #1,d1
  377.  move dq(pc,d1),20(a1)
  378.  rts
  379.  
  380. dq dc.w 162,108,81,64
  381.  
  382. ;16--------DW C
  383. Coll
  384.  ADDQ.B #1,RONK
  385.  move.b RONK,d1
  386.  and #3,d1
  387.  asl #1,d1
  388.  move Eq(pc,d1),20(a1)
  389.  rts
  390.  
  391. Eq dc.w 121,81,60,40
  392.  
  393.  
  394. ;17--------DW F
  395. Foll
  396.  ADDQ.B #1,RONK
  397.  move.b RONK,d1
  398.  and #3,d1
  399.  asl #1,d1
  400.  move Rq(pc,d1),20(a1)
  401.  rts
  402.  
  403. Rq dc.w 182,121,91,60
  404.  
  405.  
  406. ;18--------DW Am
  407. aoll
  408.  addq.b #1,RONK
  409.  move.b RONK,d1
  410.  and #3,d1
  411.  asl #1,d1
  412.  move aq(pc,d1),20(a1)
  413.  rts
  414.  
  415. aq dc.w 144,96,72,57,32
  416.  
  417. ;19--------DW E
  418. eoll
  419.  addq.b #1,RONK
  420.  move.b RONK,d1
  421.  and #3,d1
  422.  asl #1,d1
  423.  move eeq(pc,d1),20(a1)
  424.  rts
  425.  
  426. eeq dc.w 193,128,96,64
  427. RONK DC.B 0,0
  428.  
  429.  
  430.  
  431.  
  432.  
  433. ;\\\\\\\\\\\\\\DATAS\\\\\\\\\\\\\\\
  434. ;\\NOTE 1ST WORD. DURATION 2ND WORD
  435. ;\\\LEAD
  436. PNT0 DC.W 0
  437. NP0 DC.W 1
  438.  DC.W 0
  439.  DC.L 0
  440.  DC.B 9,2,3
  441.  DC.B 1      ;ADD TO NOTE
  442.  DC.W 11      ;VIB LIMIT
  443.  DC.W 7      ;16(A1)  ADD
  444.  DC.W 0      ;VIB 18(A1)
  445.  DC.L 0      ;TMP NOTE 20(A1)
  446.  DC.B 1,1    ;VIB RATE 24(A1)
  447.  DC.B 0,0    ;INITIAL VOL
  448. ;ADSR  28(A1)
  449.  
  450.  DC.B 15,15
  451.  DC.B 14,13,12,11,11,11,11,11,10,10,10,10
  452.  DC.B 9,9,9,9
  453.  DC.B 10,9,8,6,8,7,7,7,7
  454.  dcb.b    50,6
  455.  dcb.b    50,5
  456.  
  457.  
  458.  
  459.  EVEN
  460. ;\\\MIDDLE
  461. PNT1 DC.W 0
  462.  DC.W 1       ;EFFECT & DURATION 2(A1)
  463.  DC.B 0,0
  464.  DC.L 0
  465.  DC.B 9,2,3
  466.  DC.B 0       ;ADD  13(A1)
  467.  DC.W 3       ;VIB LIMIT
  468.  DC.W 2       ;VIB ADD 16(A1)
  469.  DC.W 0       ;VIB 18(A1)
  470.  DC.L 0       ;TEMP NOTE 20(A1)
  471.  DC.B 1,1     ;VIB RATE  24)A1)
  472.  DC.B 0,0     ;INITIAL VOL
  473. ;ADSR  28(A1)
  474.  
  475.  DCB.B 10,13
  476.  DC.B 12,11,10
  477.  DCB.B 10,0
  478.  DCB.B 10,0
  479.  
  480.  EVEN
  481. ;\\\BASS
  482. PNT2 DC.W 0
  483.  DC.W 1          ;2(A1) DURATION
  484.  DC.B 0,0        ;4(A1)
  485.  DC.L 0          ;6
  486.  DC.B 10,4,5     ;10(A1) VOL REG
  487.  DC.B 1          ;ADD TO NOTE 13(A1)
  488.  DC.W 5          ;VIB LIMIT
  489.  DC.W 8          ;VIBRATO ADD 16(A1)
  490.  DC.W 2          ;VIB 18(A1)
  491.  DC.L 0          ;TMP NOTE 20(A1)
  492.  DC.B 1,1        ;VIB RATE
  493.  DC.B 0,0        ;INITIAL VOL 26(A1)
  494. ;\ADSR  28(A1)
  495. ADSR
  496.  
  497.  DC.B 13,13,13,12,12,11,11,10,10
  498.  
  499.  dcb.b    155,9
  500.  
  501.  
  502.  
  503.  
  504.  EVEN
  505. PNT3 DC.W 0
  506. NP3 DC.W 1      ;2(A1) DURATION
  507.  DC.B 0,0        ;4(A1)
  508.  DC.L 0          ;6
  509.  DC.B 10,6,11    ;10(A1) VOL REG
  510.  DC.B -1         ;ADD  13(A1)
  511.  DC.W 4         ;VIB LIMIT
  512.  DC.W 1          ;VIBRATO ADD 16(A1)
  513.  DC.W 0          ;VIB 18(A1)
  514.  DC.L 0          ;TMP NOTE 20(A1)
  515.  DC.B 1,1        ;VIB RATE
  516.  DC.B 0,0        ;INITIAL VOL 26(A1)
  517. ;\ADSR  28(A1)
  518.  DC.B 15,15,15,12,10
  519.  DC.B 9,8,7,6,5,4,3,2,1
  520.  
  521.  
  522.  
  523.  EVEN
  524. PNT4 DC.W 0
  525. NP4 DC.W 1      ;2(A1) DURATION
  526.  DC.B 0,0        ;4(A1)
  527.  DC.L 0
  528.  DC.B 8,0,1      ;10(A1) VOL REG
  529.  DC.B 0          ;ADD 13(A1)
  530.  DC.W 3          ;VIB LIMIT
  531.  DC.W 4          ;VIBRATO ADD 16(A1)
  532.  DC.W 0          ;VIB 18(A1)
  533.  DC.L 0          ;TMP NOTE 20(A1)
  534.  DC.B 1,1        ;VIB RATE
  535.  DC.B 0,0        ;INITIAL VOL 26(A1)
  536. ;\ADSR  28(A1)
  537.  
  538.  DC.B 11,11,11,11,11,11,12,12,12,12,12,12,12,12
  539.  
  540.  DCB.B 10,13
  541.  DCB.B 10,12
  542.  DCB.B 10,11
  543.  DCB.B 10,10
  544.  DCB.B 22,5
  545.  DCB.B 22,3
  546.  
  547.  
  548.  
  549.  
  550.  
  551. PNT5 DC.W 0
  552.  DC.W 1       ;EFFECT & DURATION 2(A1)
  553.  DC.B 0,0
  554.  DC.L 0
  555.  DC.B 8,0,1
  556.  DC.B 0       ;ADD  13(A1)
  557.  DC.W 2       ;VIB LIMIT
  558.  DC.W 2       ;VIB ADD 16(A1)
  559.  DC.W 0       ;VIB 18(A1)
  560.  DC.L 0       ;TEMP NOTE 20(A1)
  561.  DC.B 1,1     ;VIB RATE  24)A1)
  562.  DC.B 0,0     ;INITIAL VOL
  563. ;ADSR  28(A1)
  564.  DC.B 15,15,14,13,12,11,10,10,10
  565.  DC.B 9
  566.  
  567.  DCb.B 10,8
  568.  DCb.B 20,7
  569.  DCb.B 30,6
  570.  DCb.B 140,5
  571.  
  572.  
  573.  
  574.  
  575.  EVEN
  576. TE2 DC.W 2,3
  577.  
  578. MAX DC.B 71,32,87,72,69,65,84,79,78
  579. DRI DC.B 251,0
  580. MIN DC.B 0,0
  581. MC DC.B 0,0
  582.  EVEN
  583.  
  584. ;-----------MUSIC DATA
  585.  
  586. D=2304
  587.  
  588. NULL DC.W 2,128+2304
  589.  DC.W $FFFF,$FFFF
  590.  
  591.  
  592. drm
  593.  dc.w 0,32+1024
  594.  dc.w 3,4+768
  595.  dc.w 0,12+1024
  596.  DC.W $FFFF,$FFFF
  597.  
  598.  
  599. DRMm 
  600.  DC.W 2,16+1024,0,1+768,18,7+768,2,8+1024
  601.  DC.W 2,16+1024,16,4+768,2,12+1024
  602.  
  603.  DC.W 2,16+1024,4,8+768,2,8+1024
  604.  DC.W 2,16+1024,16,4+768,2,12+1024
  605.  
  606.  DC.W 2,16+1024,4,8+768,2,8+1024
  607.  DC.W 2,16+1024,16,4+768,2,12+1024
  608.  
  609. V=256
  610. Q=4
  611. t1
  612.  
  613.  DC.W 144*Q,48+V
  614.  DC.W 193*Q,48+V
  615.  DC.W 144*Q,48+V
  616.  
  617.  DC.W 193*Q,16+V
  618.  DC.W 144*Q,16+V
  619.  DC.W 193*Q,16+V
  620.  
  621.  DC.W 162*Q,48+V
  622.  DC.W 217*Q,48+V
  623.  DC.W 162*Q,48+V
  624.  
  625.  DC.W 217*Q,16+V
  626.  DC.W 162*Q,16+V
  627.  DC.W 217*Q,16+V
  628.  
  629.  
  630.  DC.W 182*Q,48+V
  631.  DC.W 243*Q,48+V
  632.  DC.W 182*Q,48+V
  633.  
  634.  DC.W 243*Q,16+V
  635.  DC.W 182*Q,16+V
  636.  DC.W 243*Q,16+V
  637.  
  638.  DC.W 193*Q,48+V
  639.  DC.W 256*Q,48+V
  640.  DC.W 193*Q,48+V
  641.  
  642.  DC.W 193*Q,8+V
  643.  DC.W 193*Q,8+V
  644.  DC.W 172*Q,8+V
  645.  DC.W 172*Q,8+V
  646.  DC.W 153*Q,8+V
  647.  DC.W 153*Q,8+V
  648.  
  649.  
  650.  
  651.  DC.W $FFFF,$FFFF
  652.  
  653.  
  654. W=8
  655.  
  656. T2
  657.  DC.W 144*W,16
  658.  DC.W 144*W,4
  659.  DC.W 0,12+D
  660.  DC.W 144*W,4
  661.  DC.W 0,12+D
  662.  
  663.  DC.W 193*W,16
  664.  DC.W 144*W,4
  665.  DC.W 0,12+D
  666.  DC.W 144*W,4
  667.  DC.W 0,12+D
  668.  
  669.  DC.W 144*W,16
  670.  DC.W 144*W,4
  671.  DC.W 0,12+D
  672.  DC.W 144*W,4
  673.  DC.W 0,12+D
  674.  
  675.  DC.W 193*W,16
  676.  DC.W 144*W,4
  677.  DC.W 0,12+D
  678.  DC.W 144*W,4
  679.  DC.W 0,12+D
  680. **** G
  681.  
  682.  DC.W 162*W,16
  683.  DC.W 162*W,4
  684.  DC.W 0,12+D
  685.  DC.W 162*W,4
  686.  DC.W 0,12+D
  687.  
  688.  DC.W 217*W,16
  689.  DC.W 162*W,4
  690.  DC.W 0,12+D
  691.  DC.W 162*W,4
  692.  DC.W 0,12+D
  693.  
  694.  DC.W 162*W,16
  695.  DC.W 162*W,4
  696.  DC.W 0,12+D
  697.  DC.W 162*W,4
  698.  DC.W 0,12+D
  699.  
  700.  DC.W 217*W,16
  701.  DC.W 162*W,4
  702.  DC.W 0,12+D
  703.  DC.W 162*W,4
  704.  DC.W 0,12+D
  705. ****** F
  706.  
  707.  DC.W 182*W,16
  708.  DC.W 182*W,4
  709.  DC.W 0,12+D
  710.  DC.W 182*W,4
  711.  DC.W 0,12+D
  712.  
  713.  DC.W 243*W,16
  714.  DC.W 182*W,4
  715.  DC.W 0,12+D
  716.  DC.W 182*W,4
  717.  DC.W 0,12+D
  718.  
  719.  
  720.  DC.W 182*W,16
  721.  DC.W 182*W,4
  722.  DC.W 0,12+D
  723.  DC.W 182*W,4
  724.  DC.W 0,12+D
  725.  
  726.  DC.W 243*W,16
  727.  DC.W 182*W,4
  728.  DC.W 0,12+D
  729.  DC.W 182*W,4
  730.  DC.W 0,12+D
  731.  
  732. ******* C
  733.  
  734.  
  735.  DC.W 193*W,16
  736.  DC.W 193*W,4
  737.  DC.W 0,12+D
  738.  DC.W 193*W,4
  739.  DC.W 0,12+D
  740.  
  741.  DC.W 256*W,16
  742.  DC.W 193*W,4
  743.  DC.W 0,12+D
  744.  DC.W 193*W,4
  745.  DC.W 0,12+D
  746.  
  747.  DC.W 193*W,16
  748.  DC.W 193*W,4
  749.  DC.W 0,12+D
  750.  DC.W 193*W,4
  751.  DC.W 0,12+D
  752.  
  753.  DC.W 193*W,16
  754.  DC.W 172*W,16
  755.  DC.W 153*W,16
  756.  
  757.  
  758.  
  759.  DC.W $FFFF,$FFFF
  760.  
  761. g=13*256
  762. B=1
  763. B1
  764.  DC.W 144*B,48*2+g
  765.  DC.W 144*B,48*2+g
  766.  DC.W 162*B,48*2+g
  767.  DC.W 162*B,48*2+g
  768.  DC.W 243*B,48*2+g
  769.  DC.W 243*B,48*2+g
  770.  DC.W 256*B,48*2+g
  771.  DC.W 256*B,48*2+g
  772.  
  773.  
  774.  
  775. I=2
  776. R=1536
  777. B3 DC.W 0,5+2304
  778. B2
  779.  DC.W 144/I,48+R
  780.  DC.W 193/I,48+R
  781.  DC.W 144/I,48+R
  782.  
  783.  DC.W 193/I,16+R
  784.  DC.W 144/I,16+R
  785.  DC.W 193/I,16+R
  786.  
  787.  DC.W 162/I,48+R
  788.  DC.W 217/I,48+R
  789.  DC.W 162/I,48+R
  790.  
  791.  DC.W 217/I,16+R
  792.  DC.W 162/I,16+R
  793.  DC.W 217/I,16+R
  794.  
  795.  
  796.  DC.W 182/I,48+R
  797.  DC.W 243/I,48+R
  798.  DC.W 182/I,48+R
  799.  
  800.  DC.W 243/I,16+R
  801.  DC.W 182/I,16+R
  802.  DC.W 243/I,16+R
  803.  
  804.  DC.W 193/I,48+R
  805.  DC.W 256/I,48+R
  806.  DC.W 193/I,48+R
  807.  
  808.  DC.W 193/I,16+R
  809.  DC.W 172/I,16+R
  810.  DC.W 153/I,16+R
  811.  
  812.  
  813.  
  814.  DC.W $FFFF,$FFFF
  815.  
  816. XB=512
  817. wb=1536
  818. *-*
  819. bull
  820.  DC.W 144*W,128+wb
  821.  dc.w 0,16
  822.  dc.w 193,8+Xb
  823.  dc.w 193,8+Xb
  824.  dc.w 144,8+Xb
  825.  dc.w 144,8+Xb
  826.  dc.w 193,8+Xb
  827.  dc.w 193,8+Xb
  828.  
  829.  
  830. **** G
  831.  DC.W 162*W,128+wb
  832.  dc.w 0,16
  833.  dc.w 217,8+Xb
  834.  dc.w 217,8+Xb
  835.  dc.w 162,8+Xb
  836.  dc.w 162,8+Xb
  837.  dc.w 217,8+Xb
  838.  dc.w 217,8+Xb
  839.  
  840.  
  841. ****** F
  842.  DC.W 182*W,128+wb
  843.  dc.w 0,16
  844.  dc.w 243,1+Xb
  845.  dc.w 0,7
  846.  dc.w 243,1+Xb
  847.  dc.w 0,7
  848.  dc.w 182,1+Xb
  849.  dc.w 0,7
  850.  dc.w 182,1+Xb
  851.  dc.w 0,7
  852.  dc.w 243,16+Xb
  853.  
  854. *******E
  855.  DC.W 193*W,128+wb
  856.  dc.w 0,64
  857.  
  858.  DC.W $FFFF,$FFFF
  859.