home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / testi / corsoasm / sorgenti7 / lezione11g7.s < prev    next >
Text File  |  1995-09-29  |  12KB  |  425 lines
  1.  
  2. ; Lezione11g7.s -  Uso della caratteristica del copper di richiedere 8 pixel
  3. ;           orizzontali per eseguire un suo "MOVE" per fare una specie
  4. ;           di plasma. Tasto destro per bloccarlo.
  5.  
  6.     SECTION    Plasmino,CODE
  7.  
  8. ;    Include    "DaWorkBench.s"    ; togliere il ; prima di salvare con "WO"
  9.  
  10. *****************************************************************************
  11.     include    "startup2.s" ; Salva Copperlist Etc.
  12. *****************************************************************************
  13.  
  14.         ;5432109876543210
  15. DMASET    EQU    %1000001010000000    ; solo copper DMA
  16.  
  17. WaitDisk    EQU    30    ; 50-150 al salvataggio (secondo i casi)
  18.  
  19. START:
  20.     BSR.w    MAKEPLASM    ; Metti i colori dello "pseudoplasma"
  21.     lea    $dff000,a5
  22.     MOVE.W    #DMASET,$96(a5)        ; DMACON - abilita bitplane, copper
  23.                     ; e sprites.
  24.  
  25.     move.l    #COPPERLIST,$80(a5)    ; Puntiamo la nostra COP
  26.     move.w    d0,$88(a5)        ; Facciamo partire la COP
  27.     move.w    #0,$1fc(a5)        ; Disattiva l'AGA
  28.     move.w    #$c00,$106(a5)        ; Disattiva l'AGA
  29.     move.w    #$11,$10c(a5)        ; Disattiva l'AGA
  30.  
  31. mouse:
  32.     MOVE.L    #$1ff00,d1    ; bit per la selezione tramite AND
  33.     MOVE.L    #$0e000,d2    ; linea da aspettare = $e0
  34. Waity1:
  35.     MOVE.L    4(A5),D0    ; VPOSR e VHPOSR - $dff004/$dff006
  36.     ANDI.L    D1,D0        ; Seleziona solo i bit della pos. verticale
  37.     CMPI.L    D2,D0        ; aspetta la linea $e0
  38.     BNE.S    Waity1
  39.  
  40.     btst    #2,$dff016    ; tasto destro premuto?
  41.     beq.s    Mouse2        ; se si non eseguire PLASMA
  42.  
  43.     BSR.w    PLASMA        ; Effetto PLASMA (piu' o meno...)
  44.  
  45. mouse2:
  46.     MOVE.L    #$1ff00,d1    ; bit per la selezione tramite AND
  47.     MOVE.L    #$0e000,d2    ; linea da aspettare = $e0
  48. Aspetta:
  49.     MOVE.L    4(A5),D0    ; VPOSR e VHPOSR - $dff004/$dff006
  50.     ANDI.L    D1,D0        ; Seleziona solo i bit della pos. verticale
  51.     CMPI.L    D2,D0        ; aspetta la linea $e0
  52.     BEQ.S    Aspetta
  53.  
  54.     btst    #6,$bfe001    ; mouse premuto?
  55.     bne.s    mouse
  56.     rts
  57.  
  58. ******************************************************************************
  59. ;            CREA I COLORI DEL PLASMA
  60. ******************************************************************************
  61.  
  62. ;               __
  63. ;                ./  \:
  64. ;                |    |
  65. ;              __(_  _)__
  66. ;       _    ___(° )( °)___
  67. ;     _| |   \_/ ¯¯ \¯¯ \_/
  68. ;    | |_|_  _/   (__)   \_
  69. ;    |_|\_ \ \ (________) /
  70. ;     (_  _/  \  V -- V  /        __
  71. ;       \ \    \________/        /_(
  72. ;        \ \_____ _\/_ ________ ((__)
  73. ;         \______(    )__________(__)
  74. ;                 \__/
  75. ;                 ||||
  76. ;               __||||__
  77. ;              /___||___\ g®m
  78.  
  79.  
  80. MAKEPLASM:
  81.     LEA    PLASMZONE,A0    ; Indirizzo colori in coplist
  82.     lea    COLCOPDAT,a1    ; tabella colori
  83.     MOVEQ    #80-1,D7    ; numero linee
  84.     moveq    #9,d2        ; e metti il contatore a 9
  85. FaiLeLinee:
  86.     MOVEQ    #52-1,D6    ; numero di COLOR0 per ogni linea
  87.     ADDQ.w    #4,A0        ; Salta il WAIT tra una linea e l'altra
  88. FaiUnaLinea:
  89.     ADDQ.w    #2,A0        ; Salta il dc.w $180
  90.     MOVE.W    (a1)+,(A0)+    ; per andare a piazzare il colore subito dopo
  91.     DBRA    D6,FaiUnaLinea
  92.     subq.b    #1,d2        ; segna che abbiamo fatto una linea
  93.     bne.s    NonRipartire    ; se ne abbiamo fatte 8, d6=0, allora occorre
  94.                 ; ripartire dal primo colore nella tabella.
  95.     lea    COLCOPDAT(pc),a1 ; tab colori in a1 - riparti col colori.
  96.     moveq    #9,d2        ; e metti il contatore a 9
  97. NonRipartire:
  98.     DBRA    D7,FaiLeLinee
  99.     RTS
  100.  
  101.  
  102. ;    Tabella con i 52*9 colori di una linea orizzontale.
  103.  
  104. COLCOPDAT:
  105.     dc.w    $26F,$27E,$28D,$29C,$2AB,$2BA,$2C9,$2D8,$2E7,$2F6
  106.     dc.w    $4E7,$6D8,$8C9,$ABA,$CAA,$D9A,$E8A,$F7A,$F6C,$F5C
  107.     dc.w    $D6D,$B6E,$96F,$76F,$56F,$36F,$26F,$27E,$28D,$29C
  108.     dc.w    $2AB,$2BA,$2C9,$2D8,$2E7,$2F6,$4E7,$6D8,$8C9,$ABA
  109.     dc.w    $CAA,$D9A,$E8A,$F7A,$F6B,$F5C,$D6D,$B6E,$96F,$76F
  110.     dc.w    $56F,$36F,$36F,$37E,$38D,$39C,$3AB,$3BA,$3C9,$3D8
  111.     dc.w    $3E7,$3F6,$4E7,$7D8,$9C9,$BBA,$DAA,$E9A,$F8A,$F7A
  112.     dc.w    $F6C,$F5C,$E6D,$C6E,$A6F,$86F,$66F,$46F,$36F,$37E
  113.     dc.w    $38D,$39C,$3AB,$3BA,$3C9,$3D8,$3E7,$3F6,$5E7,$7D8
  114.     dc.w    $9C9,$BBA,$DAA,$E9A,$F8A,$F7A,$F6B,$F5C,$E6D,$C6E
  115.     dc.w    $A6F,$86F,$46F,$46F,$36E,$37D,$38C,$39B,$3AA,$3B9
  116.     dc.w    $3C8,$3D7,$3E6,$3F5,$4E6,$7D7,$9C8,$BB9,$DA9,$E99
  117.     dc.w    $F89,$F79,$F6B,$F5B,$E6C,$C6D,$A6E,$86E,$66E,$46E
  118.     dc.w    $36E,$37D,$38C,$39B,$3AA,$3B9,$3C8,$3D7,$3E6,$3F5
  119.     dc.w    $5E6,$7D7,$9C8,$BB9,$DA9,$E99,$F89,$F79,$F6A,$F5B
  120.     dc.w    $E6C,$C6E,$A6E,$86E,$46E,$46E,$46E,$47D,$48C,$49B
  121.     dc.w    $4AA,$4B9,$4C8,$4D7,$4E6,$4F5,$5E6,$8D7,$AC8,$CB9
  122.     dc.w    $EA9,$F99,$F89,$F79,$F6B,$F5B,$F6C,$D6D,$B6E,$96E
  123.     dc.w    $76E,$56E,$46E,$47D,$48C,$49B,$4AA,$4B9,$4C8,$4D7
  124.     dc.w    $4E6,$4F5,$6E6,$8D7,$AC8,$CB9,$EA9,$F99,$F89,$F79
  125.     dc.w    $F6A,$F5B,$F6C,$D6E,$B6E,$96E,$56E,$56E,$45E,$46D
  126.     dc.w    $47C,$48B,$49A,$4A9,$4B8,$4C7,$4D6,$4E5,$5D6,$8C7
  127.     dc.w    $AB8,$CA9,$E99,$F89,$F79,$F69,$F5B,$F4B,$F5C,$D5D
  128.     dc.w    $B5E,$95E,$75E,$55E,$45E,$46D,$47C,$48B,$49A,$4A9
  129.     dc.w    $4B8,$4C7,$4D6,$4E5,$6D6,$8C7,$AB8,$CA9,$E99,$F89
  130.     dc.w    $F79,$F69,$F5A,$F4B,$F5C,$D5E,$B5E,$95E,$55E,$55E
  131.     dc.w    $44D,$45C,$46B,$47A,$489,$498,$4A7,$4B6,$4C5,$4D4
  132.     dc.w    $5C5,$8B6,$AA7,$C98,$E88,$F78,$F68,$F68,$F59,$F4A
  133.     dc.w    $F4B,$D4C,$B4D,$94D,$74D,$54D,$44D,$45C,$46B,$47A
  134.     dc.w    $489,$498,$4A7,$4B6,$4C5,$4D4,$6C5,$8B6,$AA7,$C98
  135.     dc.w    $E88,$F78,$F68,$F58,$F49,$F3A,$F4B,$D4D,$B4D,$94D
  136.     dc.w    $54D,$54D,$44C,$45B,$46A,$479,$488,$499,$4A6,$4B5
  137.     dc.w    $4C4,$4D3,$5C4,$8B5,$AA6,$C97,$E87,$F77,$F67,$F67
  138.     dc.w    $F58,$F49,$F4C,$D4B,$B4C,$94C,$74C,$54C,$44C,$45B
  139.     dc.w    $46A,$479,$488,$497,$4A6,$4B5,$4C4,$4D3,$6C4,$8B5
  140.     dc.w    $AA6,$C97,$E87,$F77,$F67,$F57,$F48,$F39,$F4A,$D4C
  141.     dc.w    $B4C,$94C,$54C,$54C,$44B,$45A,$469,$478,$487,$498
  142.     dc.w    $4A5,$4B4,$4C3,$4D2,$5C3,$8B4,$AA5,$C96,$E86,$F76
  143.     dc.w    $F66,$F66,$F57,$F48,$F4B,$D4A,$B4B,$94B,$74B,$54B
  144.     dc.w    $44B,$45A,$469,$478,$487,$496,$4A5,$4B4,$4C3,$4D2
  145.     dc.w    $6C3,$8B4,$AA5,$C96,$E86,$F76,$F66,$F56,$F47,$F38
  146.     dc.w    $F49,$D4B,$B4B,$94B,$54B,$54B,$44A,$459,$468,$477
  147.     dc.w    $486,$497,$4A4,$4B3,$4C2,$4D1,$5C2,$8B3,$AA4,$C95
  148.     dc.w    $E85,$F75,$F65,$F65,$F56,$F47,$F4A,$D49,$B4A,$94A
  149.     dc.w    $74A,$54A,$44A,$459,$468,$477,$486,$495,$4A4,$4B3
  150.     dc.w    $4C2,$4D1,$6C2,$8B3,$AA4,$C95,$E85,$F75,$F65,$F55
  151.     dc.w    $F46,$F37,$F48,$D4A,$B4A,$94A,$54A,$54A
  152.  
  153.  
  154. PVAR1:
  155.     dc.b    0
  156. PVAR2:
  157.     dc.b    0
  158. PVAR3:
  159.     dc.W    0
  160.  
  161. ******************************************************************************
  162. ; Questa routine, aziche' cambiare tutti i 54*80=4320 color0 della copperlist,
  163. ; cambia gli 80 WAIT tra una linea e l'altra, in modo da far iniziare le linee
  164. ; a posizioni orizzontali diverse. Questo sistema e' veloce, ma puo' far
  165. ; solamente scorrere a destra o a sinistra le linee. Un vero plasma lo vedremo
  166. ; piu' avanti.
  167. ******************************************************************************
  168.  
  169. ;       _________           :
  170. ;    ___\_      /           :
  171. ;    \_________/       __.____
  172. ;      |     |    .-  (_______)
  173. ;      !     _    :  __·'''''`_
  174. ;     _-----(_)__ `- \_   _  __)
  175. ;    ( __  _  ___)     \__/  \_
  176. ;     \_/ /__/           \  __/
  177. ;      /    (_            )).
  178. ;      \_____/--------------'g®m
  179.  
  180.  
  181. PLASMA:
  182.     MOVEQ    #0,D1        ; azzeriamo i registri
  183.     MOVEQ    #0,D3
  184.     MOVEQ    #0,D5
  185.     MOVE.B    PVAR1(PC),D1
  186.     MOVE.B    PVAR2(PC),D4
  187.     MOVE.B    PVAR3(PC),D5
  188.     LEA    PLASMZONE,A0        ; Indirizzo plasma in copperlist
  189.     LEA    PLASMMOVES(PC),A1    ; indirizzo tabella coi movimenti
  190.     MOVE.W    #$8101,D3        ; Wait minimo da aggiungere
  191.     MOVE.W    #79-1,D7        ; numero linee da "plasmizzare"
  192. PLASMA2:
  193.     MOVEQ    #0,D0            ; azzeriamo d0
  194.     MOVE.B    0(A1,D1.w),D0    ; e preleviamo dalla tabella in un modo un
  195.     ADD.B    0(A1,D4.w),D0    ; po' incasinato il valore giusto secondo
  196.     ADD.B    0(A1,D5.w),D0    ; le 3 variabili
  197.     BCLR.L    #0,D0        ; non ci serve il bit basso
  198.     ADD.W    D3,D0        ; aggiungiamo il wait MINIMO
  199.     ADD.W    #$0100,D3    ; e spostiamo il wait minimo una linea sotto
  200.     MOVE.W    D0,(A0)        ; Metti il WAIT cambiato
  201.     ADD.W    #(52*4)+4,A0    ; e salta al prossimo WAIT
  202.     ADD.B    #$FF,D1        ; seleziona solo il byte basso di d1
  203.     ADDQ.B    #4,D4        ; aggiungi 4 a d4
  204.     ADD.B    #$7D,D5        ; e 125 a d5 (che casino...)
  205.     DBRA    D7,PLASMA2
  206.  
  207.     ADDQ.B    #1,PVAR1    ; secondo queste 3 variabili cambia il casino
  208.     ADDQ.B    #2,PVAR2
  209.     ADDQ.B    #1,PVAR3
  210.     RTS
  211.  
  212.  
  213. ; parametri per il comando "IS":
  214. ;
  215. ; BEG> 0
  216. ; END> 180
  217. ; AMOUNT> 256
  218. ; AMPLITUDE> $4A
  219. ; YOFFSET> 0
  220. ; SIZE> B
  221. ; MULTIPLIER> 1
  222.  
  223. PLASMMOVES:    ; 256 bytes
  224.  DC.B    $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0A,$0B,$0C,$0D,$0E
  225.  DC.B    $0F,$10,$11,$12,$12,$13,$14,$15,$16,$17,$18,$19,$19,$1A,$1B,$1C
  226.  DC.B    $1D,$1E,$1E,$1F,$20,$21,$22,$22,$23,$24,$25,$26,$26,$27,$28,$29
  227.  DC.B    $29,$2A,$2B,$2C,$2C,$2D,$2E,$2F,$2F,$30,$31,$31,$32,$33,$33,$34
  228.  DC.B    $35,$35,$36,$37,$37,$38,$38,$39,$39,$3A,$3B,$3B,$3C,$3C,$3D,$3D
  229.  DC.B    $3E,$3E,$3F,$3F,$40,$40,$41,$41,$41,$42,$42,$43,$43,$43,$44,$44
  230.  DC.B    $45,$45,$45,$46,$46,$46,$46,$47,$47,$47,$47,$48,$48,$48,$48,$48
  231.  DC.B    $49,$49,$49,$49,$49,$49,$49,$4A,$4A,$4A,$4A,$4A,$4A,$4A,$4A,$4A
  232.  DC.B    $4A,$4A,$4A,$4A,$4A,$4A,$4A,$4A,$4A,$49,$49,$49,$49,$49,$49,$49
  233.  DC.B    $48,$48,$48,$48,$48,$47,$47,$47,$47,$46,$46,$46,$46,$45,$45,$45
  234.  DC.B    $44,$44,$43,$43,$43,$42,$42,$41,$41,$41,$40,$40,$3F,$3F,$3E,$3E
  235.  DC.B    $3D,$3D,$3C,$3C,$3B,$3B,$3A,$39,$39,$38,$38,$37,$37,$36,$35,$35
  236.  DC.B    $34,$33,$33,$32,$31,$31,$30,$2F,$2F,$2E,$2D,$2C,$2C,$2B,$2A,$29
  237.  DC.B    $29,$28,$27,$26,$26,$25,$24,$23,$22,$22,$21,$20,$1F,$1E,$1E,$1D
  238.  DC.B    $1C,$1B,$1A,$19,$19,$18,$17,$16,$15,$14,$13,$12,$12,$11,$10,$0F
  239.  DC.B    $0E,$0D,$0C,$0B,$0A,$0A,$09,$08,$07,$06,$05,$04,$03,$02,$01,$00
  240.  
  241. ******************************************************************************
  242.  
  243.     Section    Copper,DATA_C
  244.  
  245. COPPERLIST:
  246.     dc.w    $100,$200    ; BPLCON0 - no bitplanes
  247.     dc.w    $180,$000    ; color0 nero
  248.     dc.w    $7F19,$FFFE
  249.     dc.w    $180,$ff0    ; giallo (cornicina)
  250.     dc.w    $8007,$FFFE
  251.     dc.w    $180,$06a    ; colore intermedio
  252. PLASMZONE:
  253.                 ; Questo pezzo di copperlist lo avremmo potuto
  254.                 ; fare anche con una routine...
  255.     dc.l    $8101FFFE    ; wait
  256.     dcb.l    52,$1800000    ; 54*color0
  257.     dc.l    $8201FFFE    ; wait
  258.     dcb.l    52,$1800000    ; 54*color0
  259.     dc.l    $8301FFFE    ; eccetera
  260.     dcb.l    52,$1800000
  261.     dc.l    $8401FFFE
  262.     dcb.l    52,$1800000
  263.     dc.l    $8501FFFE
  264.     dcb.l    52,$1800000
  265.     dc.l    $8601FFFE
  266.     dcb.l    52,$1800000
  267.     dc.l    $8701FFFE
  268.     dcb.l    52,$1800000
  269.     dc.l    $8801FFFE
  270.     dcb.l    52,$1800000
  271.     dc.l    $8901FFFE
  272.     dcb.l    52,$1800000
  273.     dc.l    $8A01FFFE
  274.     dcb.l    52,$1800000
  275.     dc.l    $8B01FFFE
  276.     dcb.l    52,$1800000
  277.     dc.l    $8C01FFFE
  278.     dcb.l    52,$1800000
  279.     dc.l    $8D01FFFE
  280.     dcb.l    52,$1800000
  281.     dc.l    $8E01FFFE
  282.     dcb.l    52,$1800000
  283.     dc.l    $8F01FFFE
  284.     dcb.l    52,$1800000
  285.     dc.l    $9001FFFE
  286.     dcb.l    52,$1800000
  287.     dc.l    $9101FFFE
  288.     dcb.l    52,$1800000
  289.     dc.l    $9201FFFE
  290.     dcb.l    52,$1800000
  291.     dc.l    $9301FFFE
  292.     dcb.l    52,$1800000
  293.     dc.l    $9401FFFE
  294.     dcb.l    52,$1800000
  295.     dc.l    $9501FFFE
  296.     dcb.l    52,$1800000
  297.     dc.l    $9601FFFE
  298.     dcb.l    52,$1800000
  299.     dc.l    $9701FFFE
  300.     dcb.l    52,$1800000
  301.     dc.l    $9801FFFE
  302.     dcb.l    52,$1800000
  303.     dc.l    $9901FFFE
  304.     dcb.l    52,$1800000
  305.     dc.l    $9A01FFFE
  306.     dcb.l    52,$1800000
  307.     dc.l    $9B01FFFE
  308.     dcb.l    52,$1800000
  309.     dc.l    $9C01FFFE
  310.     dcb.l    52,$1800000
  311.     dc.l    $9D01FFFE
  312.     dcb.l    52,$1800000
  313.     dc.l    $9E01FFFE
  314.     dcb.l    52,$1800000
  315.     dc.l    $9F01FFFE
  316.     dcb.l    52,$1800000
  317.     dc.l    $A001FFFE
  318.     dcb.l    52,$1800000
  319.     dc.l    $A101FFFE
  320.     dcb.l    52,$1800000
  321.     dc.l    $A201FFFE
  322.     dcb.l    52,$1800000
  323.     dc.l    $A301FFFE
  324.     dcb.l    52,$1800000
  325.     dc.l    $A401FFFE
  326.     dcb.l    52,$1800000
  327.     dc.l    $A501FFFE
  328.     dcb.l    52,$1800000
  329.     dc.l    $A601FFFE
  330.     dcb.l    52,$1800000
  331.     dc.l    $A701FFFE
  332.     dcb.l    52,$1800000
  333.     dc.l    $A801FFFE
  334.     dcb.l    52,$1800000
  335.     dc.l    $A901FFFE
  336.     dcb.l    52,$1800000
  337.     dc.l    $AA01FFFE
  338.     dcb.l    52,$1800000
  339.     dc.l    $AB01FFFE
  340.     dcb.l    52,$1800000
  341.     dc.l    $AC01FFFE
  342.     dcb.l    52,$1800000
  343.     dc.l    $AD01FFFE
  344.     dcb.l    52,$1800000
  345.     dc.l    $AE01FFFE
  346.     dcb.l    52,$1800000
  347.     dc.l    $AF01FFFE
  348.     dcb.l    52,$1800000
  349.     dc.l    $B001FFFE
  350.     dcb.l    52,$1800000
  351.     dc.l    $B101FFFE
  352.     dcb.l    52,$1800000
  353.     dc.l    $B201FFFE
  354.     dcb.l    52,$1800000
  355.     dc.l    $B301FFFE
  356.     dcb.l    52,$1800000
  357.     dc.l    $B401FFFE
  358.     dcb.l    52,$1800000
  359.     dc.l    $B501FFFE
  360.     dcb.l    52,$1800000
  361.     dc.l    $B601FFFE
  362.     dcb.l    52,$1800000
  363.     dc.l    $B701FFFE
  364.     dcb.l    52,$1800000
  365.     dc.l    $B801FFFE
  366.     dcb.l    52,$1800000
  367.     dc.l    $B901FFFE
  368.     dcb.l    52,$1800000
  369.     dc.l    $BA01FFFE
  370.     dcb.l    52,$1800000
  371.     dc.l    $BB01FFFE
  372.     dcb.l    52,$1800000
  373.     dc.l    $BC01FFFE
  374.     dcb.l    52,$1800000
  375.     dc.l    $BD01FFFE
  376.     dcb.l    52,$1800000
  377.     dc.l    $BE01FFFE
  378.     dcb.l    52,$1800000
  379.     dc.l    $BF01FFFE
  380.     dcb.l    52,$1800000
  381.     dc.l    $C001FFFE
  382.     dcb.l    52,$1800000
  383.     dc.l    $C101FFFE
  384.     dcb.l    52,$1800000
  385.     dc.l    $C201FFFE
  386.     dcb.l    52,$1800000
  387.     dc.l    $C301FFFE
  388.     dcb.l    52,$1800000
  389.     dc.l    $C401FFFE
  390.     dcb.l    52,$1800000
  391.     dc.l    $C501FFFE
  392.     dcb.l    52,$1800000
  393.     dc.l    $C601FFFE
  394.     dcb.l    52,$1800000
  395.     dc.l    $C701FFFE
  396.     dcb.l    52,$1800000
  397.     dc.l    $C801FFFE
  398.     dcb.l    52,$1800000
  399.     dc.l    $C901FFFE
  400.     dcb.l    52,$1800000
  401.     dc.l    $CA01FFFE
  402.     dcb.l    52,$1800000
  403.     dc.l    $CB01FFFE
  404.     dcb.l    52,$1800000
  405.     dc.l    $CC01FFFE
  406.     dcb.l    52,$1800000
  407.     dc.l    $CD01FFFE
  408.     dcb.l    52,$1800000
  409.     dc.l    $CE01FFFE
  410.     dcb.l    52,$1800000
  411.     dc.l    $CF01FFFE
  412.     dcb.l    52,$1800000
  413.     dc.l    $D001FFFE
  414.     dcb.l    52,$1800000
  415.     dc.l    $D101FFFE
  416.  
  417.     dc.l    $D219FFFE    ; Wait $d2
  418.     dc.l    $1800FF0    ; Color0 giallo (cornicina)
  419.     dc.l    $D311FFFE    ; Wait $d3
  420.     dc.l    $1800000    ; Color0 nero
  421.     dc.l    $FFFFFFFE    ; fine della copperlist
  422.  
  423.     END
  424.  
  425.