home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / reset.S < prev    next >
Encoding:
Text File  |  1999-12-25  |  13.9 KB  |  732 lines
  1. ; RESET TEC soft'S demo by INFECTION AND TOBBE in 1988
  2.  
  3. RESET=$6a000
  4. waittof=-$10e
  5. OpenLib=-$228
  6. Read=-42
  7. Open=-30
  8. Close=-36
  9. O_RDONLY=$3ed
  10. MEMF_CHIP=$2
  11. AllocMem=-$0c6
  12. zizicsize=30674
  13. palette=$40000        ;adresse des couleurs.
  14. palette1=$41000
  15. nb=1                    ;nbr. de VB avant de schtroumpfer.    
  16. funzel=17        ;nb de VB avant clignotement.
  17. ecdebpl1=$20d20
  18. ecdebpl2=$23520
  19. lgbitmap=4600-40
  20. ecfin=ecdebpl1+lgbitmap
  21. ecfin2=ecdebpl2+lgbitmap
  22. adrcopper=$43000
  23. L1=$30
  24. L2=L1+80
  25. max=480
  26. min=320
  27.  
  28.  
  29. start:
  30.          move.l   4,a6
  31.          clr    d0
  32.          lea      gfxlib,a1
  33.          jsr      OpenLib(a6)
  34.         move.l    d0,gfxbase
  35.      move.l   d0,a6
  36.  
  37.          move.l   4,a6
  38.          clr    d0
  39.          lea      doslib,a1
  40.          jsr      OpenLib(a6)
  41.         move.l    d0,dosbase
  42.      move.l   d0,a6
  43.     
  44. **** 
  45. pr_MsgPort=92
  46. sm_ArgList=36
  47. wa_Lock=0
  48.  
  49.     sub.l    a1,a1    
  50. ;callsys findtask
  51.     move.l    4.w,a6
  52.     jsr    -$126(a6)
  53.     move.l    d0,a4
  54.     
  55.     lea    pr_MsgPort(a4),a0
  56. ;callsys waitport
  57.     move.l    4.w,a6
  58.     jsr    -$180(a6)
  59.  
  60.     lea    pr_MsgPort(a4),a0
  61. ;callsys GetMsg
  62.     move.l    4.w,a6
  63.     jsr    -$174(a6)
  64.     
  65.     move.l    d0,a2
  66.     move.l    sm_ArgList(a2),d0
  67.     
  68.     move.l    d0,a0
  69.     move.l    wa_Lock(a0),d1    
  70. ;    callsys    currentdir            
  71.     move.l    dosbase,a6
  72.     jsr    -$60(a6)            
  73.  
  74. *******
  75.     move.l    dosbase,a6
  76.  
  77.          move.l   #zizicname,d1
  78.          move.l   #O_RDONLY,d2
  79.          jsr      Open(a6)
  80.          move.l   d0,d1
  81.          move.l   d0,d4   
  82.          move.l   zizicptr,d2
  83.          move.l   #zizicsize,d3
  84.          jsr      Read(a6)
  85.          move.l   d4,d1
  86.          jsr      Close(a6)
  87.  
  88.          move.l   #picname,d1
  89.          move.l   #O_RDONLY,d2
  90.          jsr      Open(a6)
  91.          move.l   d0,d1
  92.          move.l   d0,d4
  93.          move.l   picptr,d2
  94.          move.l   #108,d3
  95.          jsr      Read(a6)
  96.          move.l   d4,d1
  97.          move.l   picptr,d2
  98.          move.l   #10240,d3
  99.          jsr      Read(a6)
  100.          move.l   d4,d1
  101.          move.l   picptr,d2
  102.          add.l      #10240,d2    
  103.          move.l   #10240,d3
  104.          jsr      Read(a6)
  105.          move.l   d4,d1
  106.          jsr      Close(a6)
  107.     
  108.     move.l    #vecteur,$80
  109.     trap    #0    
  110. vecteur:
  111.     move    #$7fff,$dff09a    
  112.  
  113.          move.l   4,a6       ;pt exex.lib
  114.          move.l   #RESET,a0   ;adresse de MON reset
  115.          move.l   a0,$2a(a6)   ;COLDCAPTURE
  116.    
  117.          lea      $22(a6),a1   ;ChkSum (uword) des 24 mots precedents
  118.          clr.w    d0      ;utilise pour le cheksum
  119.          move.w   #$17,d1      ;compteur (->24 fois)
  120. chksum:  add.w    (a1)+,d0   
  121.          dbf      d1,chksum
  122.          not.w    d0      ;on inverse tout!
  123.          move.w   d0,(a1)      ; d0==>ChkSum
  124.  
  125.          lea      prg,a0
  126.          lea      RESET,a1
  127.    
  128.          move.w   #prgsize/2-1,d0   
  129. zoupla:  move.w   (a0)+,(a1)+
  130.          dbf      d0,zoupla
  131.  
  132.     move.l    gfxbase,a0
  133.     move.l    34(a0),a0
  134.     move.l    (a0),a0
  135.     move.l    36(a0),a0
  136.     move.l    4(a0),a0
  137.     move.l    8(a0),WBmap1
  138.     move.l    12(a0),WBmap2
  139.     
  140.     move.l    WBmap1,a1
  141.     move.l    picptr,a0    
  142.     add.l    #197*40,a0
  143.     move    #[20*[256-197]]-1,d0
  144. ooloop:    move    (a0)+,(a1)+        
  145.     dbf    d0,ooloop
  146.  
  147.     move.l    WBmap2,a1
  148.     move.l    picptr,a0    
  149.     add.l    #[256+197]*40,a0
  150.     move    #[20*[256-197]]-1,d0
  151. ooloop1:
  152.     move    (a0)+,(a1)+        
  153.     dbf    d0,ooloop1
  154.  
  155.     move.l    WBmap2,a0
  156.     add.l    #128*40,a0
  157.     move.l    a0,WBmap3
  158.     move.l    #$0001fffe,(A0)+
  159.     move.l    #$00960020,(a0)+
  160.     move.l    #$01040024,(A0)+
  161.     move.l    #$01020000,(A0)+
  162.     move.l    #$01080000,(A0)+
  163.     move.l    #$010a0000,(A0)+
  164.     move.l    #$01002200,(A0)+
  165.     move.l    #$008e2c81,(A0)+
  166.     move.l    #$0090f4c1,(A0)+
  167.     move.l    #$00920038,(A0)+
  168.     move.l    #$009400d0,(A0)+
  169.     move.l    #$01800000,(A0)+
  170.     move.l    a0,chg_color
  171.     move.l    #$01820f00,(A0)+
  172.     move.l    #$01840f00,(A0)+
  173.     move.l    #$01860000,(A0)+
  174.     move.l    #$01880000,(A0)+
  175.     move.l    #$2c01fffe,(A0)+
  176.  
  177.     move.l    WBmap1,d0
  178.     swap    d0
  179.     move    #$00e0,(A0)+
  180.     move    d0,(A0)+
  181.     swap    d0
  182.     move    #$00e2,(A0)+
  183.     move    d0,(A0)+
  184.     
  185.     move.l    WBmap2,d0
  186.     swap    d0
  187.     move    #$00e4,(A0)+
  188.     move    d0,(A0)+
  189.     swap    d0
  190.     move    #$00e6,(A0)+
  191.     move    d0,(A0)+    
  192.  
  193.     move.l    #$6701fffe,(A0)+
  194.     move.l    #$01000200,(A0)+
  195.     move.l    #$fffffffe,(A0)+    
  196.  
  197.     move.l    WBMAP3,$dff080
  198.     move    #1,$dff084
  199.  
  200.     move.l    #bouclesanfin,$6c    
  201.     move    #$c020,$dff09a
  202.     move    #$000f,$dff096
  203. la_oui:    bra.s    la_oui
  204.  
  205. bouclesanfin:
  206.         
  207.     move.l    a0,-(sp)
  208.     sub    #1,compt_irq
  209.     bne.s    av_old_irq    
  210.  
  211.     move    #25,compt_irq
  212.     move.l    chg_color,a0
  213.     tst    2(a0)
  214.     bne.s    red
  215.     move    #$0f00,2(A0)
  216.     bra.s    av_old_irq    
  217. red:
  218.     move    #$0000,2(A0)
  219. av_old_irq:
  220.     move.l    (sp)+,a0
  221. old_irq:
  222.     move    #$20,$dff09c
  223.     rte
  224.  
  225. compt_irq:    dc.w    25        
  226. chg_color:    dc.l    0
  227. WBmap1:        dc.l    0
  228. WBmap2:        dc.l    0
  229. WBmap3:        dc.l    0
  230.  
  231. prg:     move.w      #$7a0,$dff096
  232.          movem.l  d0-d7/a0-a6,-(sp)  
  233.          move.l   4,a6       ;pt exex.lib
  234.          move.l   #RESET,a0   ;adresse de MON reset
  235.          move.l   a0,$2a(a6)   ;COLDCAPTURE
  236.    
  237.          lea      $22(a6),a1   ;ChkSum (uword) des 24 mots precedents
  238.          clr.w    d0      ;utilise pour le cheksum
  239.          move.w   #$17,d1      ;compteur (->24 fois)
  240. toto:    add.w    (a1)+,d0   
  241.          dbf      d1,toto
  242.          not.w    d0      ;on inverse tout!
  243.          move.w   d0,(a1)      ; d0==>ChkSum
  244.    
  245.       move.l   picptr(pc),a0
  246.       move.l   a0,a1
  247.       add.l    #10240,a1
  248.       lea      $20000,a2
  249.       lea      $22800,a3
  250.       move.w   #5119,d0
  251. rvb:  move.w   (a0)+,(a2)+
  252.       move.w   (a1)+,(a3)+
  253.       dbf      d0,rvb
  254.  
  255.     move.w    #150,d0
  256.     lea    $50000,a0
  257. jklp:    
  258.     move.w    #$7fff,(a0)+
  259.     move.w    #37,d1
  260. notclear:
  261.     move.w    #$ffff,(a0)+
  262.     dbf    d1,notclear
  263.     move.w    #$fffe,(a0)+
  264.     dbf    d0,jklp
  265.     
  266.         lea      palette1,a0
  267.     move.l    a0,a1    
  268.     lea    palette,a2    
  269.     lea    add(pc),a5
  270.     
  271. continue:
  272.     move.w    (a5)+,d0
  273.     cmp.w    #$ffff,d0
  274.     beq    c_est_fini
  275.     
  276.     move.w    d0,d1
  277.     sub.w   d1,d1
  278.     
  279.     move.w    #12,d2
  280. re:    add.w    d0,d1
  281.     move.w    d1,(a0)+
  282.     move.w    d1,(a2)+
  283.     move.w    d1,(a2)+
  284.     dbf    d2,re
  285.  
  286.     move.w    #12,d2
  287. re1:    sub.w    d0,d1
  288.     move.w    d1,(a0)+
  289.     move.w    d1,(a2)+
  290.     move.w    d1,(a2)+
  291.     dbf    d2,re1
  292.  
  293.     bra    continue
  294.     
  295. add:    dc.w    $001,$101,$100,$110,$010,$011,$111,$ffff
  296.  
  297. c_est_fini:
  298.  
  299.        sub.l    a1,a0
  300.     lea    long1(pc),a1
  301.     lea    long(pc),a3
  302.     sub.l    #2,a0
  303.     move.l    a0,(a1)
  304.     move.l    a0,d0
  305.     lsl.l    #1,d0
  306.     move.l    d0,(a3)    
  307.  
  308.     jsr    make_copper(pc)
  309.          move.l  #adrcopper,$dff080
  310.  
  311.          lea      prgfin(pc),a0
  312.          move.l   a0,$dff0a0
  313.          move.w   #zizicsize/2,$dff0a4
  314.          move.w   #min,$dff0a6
  315.          move.w   #127,$dff0a8
  316.          move.l   a0,$dff0b0      
  317.          move.w   #zizicsize/2,$dff0b4
  318.          move.w   #min,$dff0b6
  319.          move.w   #127,$dff0b8
  320.          move.l   a0,$dff0c0      
  321.          move.w   #zizicsize/2,$dff0c4
  322.          move.w   #min,$dff0c6
  323.          move.w   #127,$dff0c8
  324.          move.l   a0,$dff0d0      
  325.          move.w   #zizicsize/2,$dff0d4
  326.          move.w   #min,$dff0d6
  327.          move.w   #127,$dff0d8
  328.  
  329.          move.w   #$838f,$dff096      ;audio + copper + bitmap enable
  330.      move.w      #$0020,$dff096      ;sprites disable    
  331.          move.w      #$dff088,d0         ;copjmp1    
  332.  
  333.  
  334.      lea    saved1(pc),a5    
  335.      lea    saved0(pc),a4    
  336.  
  337.          move.w   #min,(a4)
  338.      move.w      #1,(a5)    
  339.  
  340.      lea     savea6(pc),a0
  341.      lea     zig(pc),a1
  342.          move.l     a1,(a0)
  343.      lea     compt(pc),a0
  344.      move.w     #funzel,(a0)    
  345.  
  346. ici:     lea    saved1(pc),a5    
  347.      lea    saved0(pc),a4    
  348.  
  349.          move.w   saved0(pc),d0
  350.      move.w      saved1(pc),d1
  351.  
  352.          move.w   d0,$dff0a6
  353.          move.w   d0,$dff0b6
  354.          move.w   d0,$dff0c6
  355.          move.w   d0,$dff0d6   
  356.  
  357.          add.w    d1,d0
  358.    
  359.          cmp.w    #max,d0
  360.          bne      hop
  361.          neg      d1
  362. hop:     cmp.w    #min,d0
  363.          bne      zoup
  364.          neg      d1
  365. zoup:    move.w   d0,(a4)
  366.          move.w   d1,(a5)
  367.  
  368. Enc:
  369.       move.l  data(pc),a0
  370.       move.w  #2,d2
  371.       move.w  #L2-L1-1,d7
  372.       move.l  long(pc),d0        
  373.       move.l  long1(pc),d5
  374.       add.l   #palette1,d5                 
  375.       lea     palette,a1
  376.       add.l   d0,a1
  377.  
  378.     move.l    savea2(pc),a2
  379.     move.l    savea3(pc),a3
  380.     move.l    savea4(pc),a4
  381.     move.l    savea5(pc),a5
  382.         move.l    savea6(pc),a6    
  383.  
  384.  
  385. rolcolor:
  386.       
  387.       move.w   (a2)+,0(a0,d2.w)
  388.       addq.w    #4,d2
  389.       move.w   (a3)+,0(a0,d2.w)
  390.       addq.w    #4,d2
  391.       move.w   (a4)+,0(a0,d2.w)
  392.       addq.w    #4,d2
  393.       move.w   (a5)+,0(a0,d2.w)
  394.       addq.w    #4,d2
  395.     move.w    (a6)+,d3
  396.     move.w    d3,d4
  397.     lsl.w    #4,d4
  398.     add.w    d4,d3
  399.       move.w   d3,0(a0,d2.w)    
  400.       add.w    #8,d2
  401.  
  402.       move.l    a0,-(sp)    
  403.       lea    zigend(pc),a0    
  404.       cmp.l    a0,a6
  405.       bls    ok
  406.       lea    zig(pc),a6                     
  407. ok:   move.l    (sp)+,a0
  408.        cmp.l    a1,a2
  409.       bls    ok1
  410.       lea       palette,a2   
  411. ok1:  cmp.l    a1,a3
  412.       bls    ok2
  413.       lea       palette,a3   
  414. ok2:  cmp.l    d5,a4
  415.       bls    ok3
  416.       lea       palette1,a4   
  417. ok3:  cmp.l    a1,a5
  418.       bls    ok4
  419.       lea       palette,a5   
  420.  
  421. ok4:   dbf      d7,rolcolor
  422.  
  423.     move.l    savea6(pc),a6
  424.     move.l    savea2(pc),a2
  425.     move.l    savea3(pc),a3
  426.     move.l    savea4(pc),a4
  427.     move.l    savea5(pc),a5
  428.  
  429.     move.w    ral(pc),d6
  430.     subq.w    #1,d6
  431.     bne    cont
  432.     move.w    #nb,d6
  433.  
  434.     add.l    #2,a6
  435. cont:   lea    ral(pc),a0
  436.     move.w    d6,(a0)
  437.         sub.l    #2,a2
  438.     add.l    #2,a3
  439.     add.l    #4,a4
  440.     add.l    #2,a5          
  441.  
  442.       lea    zigend(pc),a0    
  443.       cmp.l    a0,a6
  444.       bls    okw
  445.       lea    zig(pc),a6                     
  446. okw:  cmp.l    a1,a3
  447.       bls    okw1
  448.       lea       palette,a3   
  449. okw1: cmp.l    d5,a4
  450.       bls    okw2
  451.       lea       palette1,a4   
  452. okw2: cmp.l    #palette,a2
  453.       bhi    okw3
  454.       move.l    a1,a2   
  455. okw3: cmp.l    a1,a5
  456.       bls    okw4
  457.       lea      palette,a5   
  458.  
  459. okw4: lea    savea2(pc),a0        
  460.       move.l    a2,(a0)
  461.       lea    savea3(pc),a0        
  462.       move.l    a3,(a0)
  463.       lea    savea4(pc),a0        
  464.       move.l    a4,(a0)
  465.       lea    savea5(pc),a0        
  466.       move.l    a5,(a0)
  467.       lea    savea6(pc),a0
  468.       move.l    a6,(a0)        
  469.  
  470.  
  471.     move.l     bitpl1(pc),a0
  472.     move.l    bitpl2(pc),a1
  473.  
  474.     move.l    rouleau(pc),a2
  475.     lea    tableau(pc),a3
  476.  
  477.     move.w    #265,d0    ;nombre de lignes-1
  478.     
  479. coca:    move.w    (a3)+,d1
  480.     ext.l    d1
  481.     add.l    d1,a0
  482.     add.l    d1,a1
  483.     cmp.l    #ecfin,a0
  484.     blt    ok_mec
  485.         move.l    a0,a5
  486.     sub.l    #ecfin,a5    
  487.         lea    ecdebpl1,a0
  488.     lea    ecdebpl2,a1
  489.     add.l    a5,a0
  490.     add.l    a5,a1
  491.  
  492. ok_mec:    cmp.l    #ecdebpl1,a0
  493.     bge    tadelachance 
  494.     move.l    a0,a5
  495.     sub.l    #ecdebpl1,a5    
  496.     lea    ecfin,a0
  497.     lea    ecfin2,a1
  498.     add.l    a5,a0
  499.     add.l    a5,a1
  500.  
  501. tadelachance:
  502.     move.l    a0,d6
  503.     move.l    a1,d7
  504.     swap    d6
  505.     move.w    d6,(a2)
  506.     add.l    #4,a2
  507.     swap    d6
  508.     move.w    d6,(a2)
  509.     add.l    #4,a2
  510.     swap    d7
  511.     move.w    d7,(a2)
  512.     add.l    #4,a2
  513.     swap    d7
  514.     move.w    d7,(a2)        
  515.     add.l    #16,a2    
  516.  
  517.     dbf    d0,coca
  518.  
  519.     lea    bitpl1(pc),a3
  520.     lea    bitpl2(pc),a4
  521.     
  522.     move.l    bitpl1(pc),a0
  523.     move.l    bitpl2(pc),a1            
  524.  
  525.     add.l    #40,a0
  526.     add.l    #40,a1
  527.     cmp.l    #ecfin,a0
  528.     blt    voukonaissezcelledubelgekirantredanunekremerie
  529.     lea    ecdebpl1,a0
  530.     lea    ecdebpl2,a1
  531. voukonaissezcelledubelgekirantredanunekremerie:
  532.     move.l    a0,(a3)
  533.     move.l    a1,(a4)
  534.  
  535. gleurk: 
  536.  
  537.     move.w    compt(pc),d7
  538.     subq.w    #1,d7
  539.     bne    ouiii
  540. ;    bchg    #1,$bfe001
  541.     move.w    saved0(pc),d7
  542.     lsr.w    #6,d7
  543. ouiii:    lea    compt(pc),a0
  544.     move.w    d7,(a0)
  545.     
  546.     btst    #6,$bfe001
  547.     bne    retst
  548.  
  549.     movem.l    (sp)+,d0-d7/a0-a6
  550.     move.w    #$7fff,$dff096
  551.     jmp    (a5)
  552.  
  553. retst: btst #5,$dff01f
  554.       beq     retst         
  555.       move.w     #$20,$dff09c   ;reset le bit 5(vbr)        
  556.  
  557.       bra      ici
  558.  
  559. ;****************** make_copper *************************
  560.  
  561. make_copper:
  562.     lea    copper(pc),a0
  563.     lea    adrcopper,a1
  564.     lea    copperend(pc),a2
  565.  
  566. vas_y_toto:
  567.     move.w    (a0)+,(a1)+
  568.     cmp.l    a2,a0
  569.     bne    vas_y_toto
  570.  
  571.     move.l    a1,a2
  572.     add.l    #4,a2
  573.     lea    data(pc),a3
  574.     move.l    a2,(a3)
  575.  
  576.     move.w    #L1,d0
  577. ding_dong:
  578.     move.w    d0,d1
  579.     lsl.w    #8,d1
  580.     addq.w    #1,d1
  581.     move.w    d1,(a1)+
  582.     move.l    #$fffe0182,(a1)+
  583.     move.l    #$00000184,(a1)+
  584.     move.l    #$00000186,(a1)+
  585.     move.l    #$00000180,(a1)+
  586.     move.l    #$00000102,(a1)+
  587.     move.w    #$0000,(a1)+
  588.     addq.w    #1,d0
  589.     cmp.w    #L2+1,d0
  590.     bne    ding_dong
  591.  
  592.     move.w    d0,d1    
  593.     addq.w    #1,d0
  594.     lsl.w    #8,d1
  595.     addq.w    #1,d1    
  596.         move.w    d1,(a1)+
  597.     move.l    #$fffe018a,(a1)+
  598.     move.l    #$050c018c,(a1)+
  599.     move.l    #$09ef018e,(a1)+
  600.     move.l    #$0e700188,(a1)+
  601.     move.l    #$00000102,(a1)+
  602.     move.w    #$0000,(a1)+
  603.     move.l    #$01003200,(a1)+
  604.     move.l    #$00e80005,(a1)+
  605.     move.l    #$00ea0000,(a1)+
  606.  
  607.     lea    rouleau(pc),a2
  608.     move.l    a1,a3
  609.     add.l    #10,a3
  610.     move.l    a3,(a2)
  611.  
  612.     lea    decal(pc),a2    
  613.     lea    decalfin(pc),a3
  614.  
  615. ouarf:    move.w    d0,d1
  616.     bne    sprotz
  617.     move.w    #$ffdf,d1
  618.     bra    piou
  619. sprotz:    andi.w    #$00ff,d1
  620.     lsl.w    #8,d1
  621.     addq.w    #1,d1
  622. piou:    move.w    d1,(a1)+
  623.     move.l    #$fffe0102,(a1)+
  624.     move.w    (a2),(a1)+
  625.     move.l    #$00e00000,(a1)+
  626.     move.l    #$00e20000,(a1)+
  627.     move.l    #$00e40000,(a1)+
  628.     move.l    #$00e60000,(a1)+
  629.     move.w    #$180,(a1)+
  630.     move.w    (a2)+,d7
  631.     move.w    d7,d6
  632.     lsl.w    #4,d6
  633.     andi.w    #$f00,d6
  634.     ori.w    d6,d7
  635.     move.w    d7,(a1)+    
  636.     addq.b    #1,d0
  637.     cmp.b    #$3e,d0
  638.     bne    ouarf
  639.  
  640.     move.l    #$fffffffe,(a1)+
  641.     RTS
  642.     
  643. rouleau:    dc.l    0
  644. data:        dc.l    0            
  645.  
  646. copper:     dc.w  $0001,$fffe
  647.             dc.w  $e0,2,$e2,$2800,$e4,2,$e6,0
  648.             dc.w  $104,$24,$102,0,$108,0,$10a,0
  649.  
  650.             dc.w  $100,$2200
  651.             dc.w  $8e,$2c70,$90,$40c1,$92,$30,$94,$c8
  652.             dc.w  $0101,$fffe   ; on commence a la ligne $38
  653.             dc.w  $184,$000,$180,0,$186,0    
  654.             dc.w  $182,$000     
  655.  
  656.         dc.b  L1-1,$01            
  657.         dc.w  $fffe
  658.             dc.w  $e0,2,$e2,$2800,$e4,2,$e6,0
  659.             dc.w  $104,$24,$102,0,$108,0,$10a,0
  660.  
  661.             dc.w  $182,0,$184,0,$186,0
  662. copperend:    nop        
  663.             
  664. decal:    dc.w     $ff,$ff,$ff,$ff,$ff,$ff
  665.     dc.w    $ff,$ff,$ee,$ee,$dd,$dd,$cc,$cc,$bb,$bb,$aa,$aa
  666.     dc.w    $99,$99,$88,$88,$77,$77,$66,$66,$55,$55,$44,$44
  667.     dc.w    $33,$33,$22,$22,$11,$11
  668.     blk.w    25,0
  669.     dc.w    0,$44,$77,$99,$aa,$bb,$cc,$dd,$dd,$ee,$ee,$ee
  670.     dc.w    $ff,$ff,$ff,$ff,$ff,$ff,$ee,$ee,$ee,$dd,$dd,$cc,$bb
  671.     dc.w    $aa,$99,$77,$44,$00
  672.     dc.w    0,$44,$77,$99,$aa,$bb,$cc,$dd,$dd,$ee,$ee,$ee
  673.     dc.w    $ff,$ff,$ff,$ff,$ff,$ff,$ee,$ee,$ee,$dd,$dd,$cc,$bb
  674.     dc.w    $aa,$99,$77,$44,$00
  675.  
  676.     dc.w    0,$44,$77,$99,$aa,$bb,$cc,$dd,$dd,$ee,$ee,$ee
  677.     dc.w    $ff,$ff,$ff
  678.     blk.w    50,$ff
  679.  
  680. decalfin: nop                 
  681.  
  682. zizicptr:   dc.l  RESET+prgsize
  683. zizicname:  dc    'WILD:zizic',0
  684. even
  685. picptr:     dc.l  RESET+prgsize+zizicsize
  686. picname:    dc    'WILD:pic',0
  687. doslib:     dc    'dos.library',0
  688. gfxlib:        dc      'graphics.library',0    
  689. even
  690. gfxbase:    dc.l  0    
  691. DosBase:    dc.l  0
  692. saved0:     dc.l  0
  693. saved1:     dc.l  0
  694. compt:        dc.l  0    
  695. long:        dc.l  0    
  696. long1:        dc.l  0    
  697. savea2:     dc.l  palette
  698. savea3:     dc.l  palette+$104-2*13
  699. savea4:     dc.l  palette1+$410
  700. savea5:     dc.l  palette+$28a
  701. savea6:     dc.l  0
  702. zig:        
  703.         dc.w  15,15,15,15
  704.         dc.w  14,14,14,13,13,12,11,10,9,7
  705.         dc.w  5,4,3,2,2,1,1,1,0,0,0,0
  706.         dc.w  0,0,0,0,1,1,1,2,2,3,4
  707.             dc.w  5,7,9,10,11,12,13,13,14,14,14,15,15,15
  708. zigend:        dc.w  15
  709.  
  710. ral:        dc.w  nb    
  711. bitpl1:        dc.l    ecdebpl1
  712. bitpl2:        dc.l    ecdebpl2
  713.  
  714. tableau:    dc.w    40,40,40,40,40,40,40
  715.         blk.w    32,80
  716.          blk.w    23,40            
  717.         dc.w    240,120,120,120
  718.         blk.w    22,40
  719.         dc.w    120,120,120,240
  720.           dc.w    -240,-120,-120,-120
  721.         blk.w    22,-40
  722.         dc.w    -120,-120,-120,-240
  723.         dc.w    240,120,120,120
  724.         blk.w    11,40
  725.         blk.w    50,40
  726.  
  727.  
  728. prgfin:     nop
  729.  
  730. prgsize=prgfin-prg
  731.  
  732.