home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / testi / corsoasm / sorgenti9 / lezione15c.s < prev    next >
Text File  |  1995-04-26  |  10KB  |  284 lines
  1.  
  2. ; Lezione15c.s    Visualizzazione di una figura lowres a 256 colori (8 planes)
  3.  
  4.     SECTION    AgaRulez,CODE
  5.  
  6. ;    Include    "DaWorkBench.s"    ; togliere il ; prima di salvare con "WO"
  7.  
  8. *****************************************************************************
  9.     include    "startup2.s"    ; Salva Copperlist Etc.
  10. *****************************************************************************
  11.  
  12.         ;5432109876543210
  13. DMASET    EQU    %1000001110000000    ; copper, bitplane DMA
  14.  
  15. WaitDisk    EQU    30    ; 50-150 al salvataggio (secondo i casi)
  16.  
  17. START:
  18.  
  19. ;    Puntiamo la pic AGA
  20.  
  21.     MOVE.L    #PICTURE,d0
  22.     LEA    BPLPOINTERS,A1    
  23.     MOVEQ    #8-1,D7            ; num bitplanes -1
  24. POINTB:
  25.     move.w    d0,6(a1)
  26.     swap    d0
  27.     move.w    d0,2(a1)
  28.     swap    d0
  29.     add.l    #40*256,d0        ; lunghezza bitplane
  30.     addq.w    #8,a1
  31.     dbra    d7,POINTB        ;Rifai D1 volte (D1=num of bitplanes)
  32.  
  33.     MOVE.W    #DMASET,$96(a5)        ; DMACON - abilita bitplane, copper
  34.     move.l    #CopList,$80(a5)    ; Puntiamo la nostra COP
  35.     move.w    d0,$88(a5)        ; Facciamo partire la COP
  36.     move.w    #0,$1fc(a5)        ; Fmode azzerato, burst normale
  37.     move.w    #$c00,$106(a5)        ; BPLCON3 resettato
  38.     move.w    #$11,$10c(a5)        ; BPLCON4 resettato
  39.  
  40. LOOP:
  41.     BTST.b    #6,$BFE001
  42.     BNE.S    LOOP
  43.     RTS
  44.  
  45. ;*****************************************************************************
  46. ;*                COPPERLIST                     *
  47. ;*****************************************************************************
  48.  
  49.     CNOP    0,8    ; Allineo a 64 bit
  50.  
  51.     section    coppera,data_C
  52.  
  53. COPLIST:
  54.     dc.w    $8E,$2c81    ; DiwStrt
  55.     dc.w    $90,$2cc1    ; DiwStop
  56.     dc.w    $92,$0038    ; DdfStart
  57.     dc.w    $94,$00d0    ; DdfStop
  58.     dc.w    $102,0        ; BplCon1
  59.     dc.w    $104,0        ; BplCon2
  60.     dc.w    $108,0        ; Bpl1Mod
  61.     dc.w    $10a,0        ; Bpl2Mod
  62.  
  63.             ; 5432109876543210
  64.     dc.w    $100,%0000001000010001    ; 8 bitplane LOWRES 320x256
  65.  
  66.     dc.w    $1fc,0        ; Burst mode azzerato
  67.  
  68. BPLPOINTERS:
  69.     dc.w $e0,0,$e2,0    ; primo     bitplane
  70.     dc.w $e4,0,$e6,0    ; secondo       "
  71.     dc.w $e8,0,$ea,0    ; terzo           "
  72.     dc.w $ec,0,$ee,0    ; quarto       "
  73.     dc.w $f0,0,$f2,0    ; quinto       "
  74.     dc.w $f4,0,$f6,0    ; sesto           "
  75.     dc.w $f8,0,$fA,0    ; settimo       "
  76.     dc.w $fC,0,$fE,0    ; ottavo       "
  77.  
  78. ; Colori salvati dall'iffconverter. Da PicCon occorre settare nel menu' dei
  79. ; Settings/Paletteformat il "pulsante" COPPERLIST, il che salva una copperlist
  80. ; con i registri $106 e $180,$182 ecc. anziche' i soli valori. Inoltre occorre
  81. ; salcare come sorgente in "dc.w" anziche' in binario, e questo si puo' fare
  82. ; settando il menu' Project/Save data as../*ASM source*, anziche' bynary.
  83. ; Per l'iffconv di Yragael basta salvare come COPPER, ma la lista viene piu'
  84. ; lunga perche' mette un registro per linea. L'agaconv salva i registri colore
  85. ; senza i $106, per cui si dovrebbe metterli a mano, vi consiglio di salvare
  86. ; la copperlist con il PicCon o l'Iffconv. (nota: i registri $106 non hanno i
  87. ; bit 10 e 11 settati, per cui sono $106,$000 - $106,$200 - $106,$2000 ecc,
  88. ; la funzione e' la stessa. Una volta settata la palette potete cambiare dei
  89. ; bit del $dff106 (BPLCON3) a vostro piacimento.
  90.  
  91.     DC.W    $106,$c00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE ALTI
  92.  
  93.     dc.w    $180,$010,$182,$100,$184,$011,$186,$110 ; nibble alti dei
  94.     dc.w    $188,$020,$18a,$120,$18c,$022,$18e,$210 ; colori 0-31
  95.     dc.w    $190,$121,$192,$130,$194,$311,$196,$320
  96.     dc.w    $198,$131,$19a,$230,$19c,$023,$19e,$321
  97.     dc.w    $1a0,$332,$1a2,$240,$1a4,$133,$1a6,$420
  98.     dc.w    $1a8,$421,$1aa,$233,$1ac,$024,$1ae,$340
  99.     dc.w    $1b0,$422,$1b2,$430,$1b4,$250,$1b6,$520
  100.     dc.w    $1b8,$432,$1ba,$333,$1bc,$034,$1be,$234
  101.  
  102.     DC.W    $106,$e00    ; SELEZIONA PALETTE 0 (0-31), NIBBLE BASSI
  103.  
  104.     dc.w    $180,$214,$182,$5f4,$184,$015,$186,$969 ; nibble bassi dei
  105.     dc.w    $188,$926,$18a,$877,$18c,$540,$18e,$f56 ; colori 0-31
  106.     dc.w    $190,$79c,$192,$f18,$194,$463,$196,$53b
  107.     dc.w    $198,$c3c,$19a,$c49,$19c,$00d,$19e,$54f
  108.     dc.w    $1a0,$240,$1a2,$17a,$1a4,$097,$1a6,$a07
  109.     dc.w    $1a8,$70b,$1aa,$4a2,$1ac,$0aa,$1ae,$54d
  110.     dc.w    $1b0,$982,$1b2,$4ca,$1b4,$15a,$1b6,$48b
  111.     dc.w    $1b8,$841,$1ba,$a91,$1bc,$76f,$1be,$3e5
  112.  
  113.     DC.W    $106,$2C00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE ALTI
  114.  
  115.     dc.w    $180,$143,$182,$350,$184,$035,$186,$253 ; nibble alti dei
  116.     dc.w    $188,$441,$18a,$530,$18c,$343,$18e,$532 ; colori 32-63
  117.     dc.w    $190,$533,$192,$720,$194,$451,$196,$046
  118.     dc.w    $198,$542,$19a,$541,$19c,$453,$19e,$146
  119.     dc.w    $1a0,$721,$1a2,$364,$1a4,$543,$1a6,$346
  120.     dc.w    $1a8,$561,$1aa,$730,$1ac,$742,$1ae,$651
  121.     dc.w    $1b0,$454,$1b2,$733,$1b4,$156,$1b6,$821
  122.     dc.w    $1b8,$266,$1ba,$652,$1bc,$741,$1be,$047
  123.  
  124.     DC.W    $106,$2E00    ; SELEZIONA PALETTE 1 (32-63), NIBBLE BASSI
  125.  
  126.     dc.w    $180,$ddc,$182,$29c,$184,$13d,$186,$70d ; nibble bassi, ecc.
  127.     dc.w    $188,$8f1,$18a,$aee,$18c,$5ec,$18e,$c91
  128.     dc.w    $190,$941,$192,$03e,$194,$cb2,$196,$606
  129.     dc.w    $198,$b4c,$19a,$dd1,$19c,$6a0,$19e,$037
  130.     dc.w    $1a0,$3e1,$1a2,$113,$1a4,$b88,$1a6,$262
  131.     dc.w    $1a8,$074,$1aa,$6bf,$1ac,$003,$1ae,$571
  132.     dc.w    $1b0,$dd4,$1b2,$3f1,$1b4,$93e,$1b6,$a02
  133.     dc.w    $1b8,$b21,$1ba,$c5e,$1bc,$8f9,$1be,$dcd
  134.  
  135.     DC.W    $106,$4C00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE ALTI
  136.  
  137.     dc.w    $180,$742,$182,$821,$184,$761,$186,$662
  138.     dc.w    $188,$456,$18a,$830,$18c,$158,$18e,$754
  139.     dc.w    $190,$761,$192,$931,$194,$566,$196,$841
  140.     dc.w    $198,$158,$19a,$850,$19c,$762,$19e,$852
  141.     dc.w    $1a0,$582,$1a2,$764,$1a4,$861,$1a6,$852
  142.     dc.w    $1a8,$765,$1aa,$854,$1ac,$b21,$1ae,$169
  143.     dc.w    $1b0,$a31,$1b2,$a21,$1b4,$871,$1b6,$269
  144.     dc.w    $1b8,$a52,$1ba,$782,$1bc,$a51,$1be,$963
  145.  
  146.     DC.W    $106,$4E00    ; SELEZIONA PALETTE 2 (64-95), NIBBLE BASSI
  147.  
  148.     dc.w    $180,$99e,$182,$f73,$184,$127,$186,$c1b
  149.     dc.w    $188,$5e1,$18a,$f7f,$18c,$b01,$18e,$085
  150.     dc.w    $190,$1e6,$192,$4c7,$194,$143,$196,$bef
  151.     dc.w    $198,$ef3,$19a,$f1f,$19c,$4dd,$19e,$91e
  152.     dc.w    $1a0,$8a4,$1a2,$7a5,$1a4,$c3d,$1a6,$eef
  153.     dc.w    $1a8,$23d,$1aa,$c64,$1ac,$005,$1ae,$d71
  154.     dc.w    $1b0,$ac5,$1b2,$fd4,$1b4,$d49,$1b6,$bd0
  155.     dc.w    $1b8,$15d,$1ba,$8aa,$1bc,$2f3,$1be,$3d1
  156.  
  157.     DC.W    $106,$6C00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE ALTI
  158.  
  159.     dc.w    $180,$a41,$182,$677,$184,$379,$186,$b21
  160.     dc.w    $188,$881,$18a,$a62,$18c,$964,$18e,$a61
  161.     dc.w    $190,$586,$192,$875,$194,$a64,$196,$279
  162.     dc.w    $198,$a73,$19a,$c21,$19c,$b61,$19e,$883
  163.     dc.w    $1a0,$885,$1a2,$c41,$1a4,$37a,$1a6,$877
  164.     dc.w    $1a8,$b62,$1aa,$b61,$1ac,$a74,$1ae,$a75
  165.     dc.w    $1b0,$a82,$1b2,$886,$1b4,$a84,$1b6,$48a
  166.     dc.w    $1b8,$a92,$1ba,$a76,$1bc,$c61,$1be,$b73
  167.  
  168.     DC.W    $106,$6E00    ; SELEZIONA PALETTE 3 (96-127), NIBBLE BASSI
  169.  
  170.     dc.w    $180,$ce3,$182,$e01,$184,$a12,$186,$da6
  171.     dc.w    $188,$7be,$18a,$17e,$18c,$2f7,$18e,$4e3
  172.     dc.w    $190,$de7,$192,$d04,$194,$056,$196,$f3f
  173.     dc.w    $198,$331,$19a,$9b6,$19c,$610,$19e,$ebb
  174.     dc.w    $1a0,$1d5,$1a2,$703,$1a4,$d94,$1a6,$c13
  175.     dc.w    $1a8,$3eb,$1aa,$ac1,$1ac,$d24,$1ae,$723
  176.     dc.w    $1b0,$5b7,$1b2,$fc0,$1b4,$544,$1b6,$494
  177.     dc.w    $1b8,$570,$1ba,$761,$1bc,$d24,$1be,$a6e
  178.  
  179.     DC.W    $106,$8C00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE ALTI
  180.  
  181.     dc.w    $180,$a84,$182,$d41,$184,$a85,$186,$48b
  182.     dc.w    $188,$b75,$18a,$68a,$18c,$c72,$18e,$8a6
  183.     dc.w    $190,$d61,$192,$c82,$194,$b84,$196,$c81
  184.     dc.w    $198,$a86,$19a,$d62,$19c,$a95,$19e,$889
  185.     dc.w    $1a0,$59b,$1a2,$e61,$1a4,$c92,$1a6,$c84
  186.     dc.w    $1a8,$b95,$1aa,$d63,$1ac,$c94,$1ae,$ca2
  187.     dc.w    $1b0,$a97,$1b2,$d74,$1b4,$59c,$1b6,$899
  188.     dc.w    $1b8,$c95,$1ba,$b97,$1bc,$e62,$1be,$e71
  189.  
  190.     DC.W    $106,$8E00    ; SELEZIONA PALETTE 4 (128-159), NIBBLE BASSI
  191.  
  192.     dc.w    $180,$7f1,$182,$b14,$184,$4b5,$186,$590
  193.     dc.w    $188,$874,$18a,$0f2,$18c,$978,$18e,$b28
  194.     dc.w    $190,$4d0,$192,$548,$194,$89a,$196,$864
  195.     dc.w    $198,$4ce,$19a,$8b2,$19c,$5e9,$19e,$9f7
  196.     dc.w    $1a0,$a43,$1a2,$427,$1a4,$547,$1a6,$990
  197.     dc.w    $1a8,$929,$1aa,$fa9,$1ac,$343,$1ae,$205
  198.     dc.w    $1b0,$7a4,$1b2,$a3c,$1b4,$551,$1b6,$cf5
  199.     dc.w    $1b8,$716,$1ba,$921,$1bc,$f37,$1be,$a55
  200.  
  201.     DC.W    $106,$AC00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE ALTI
  202.  
  203.     dc.w    $180,$d81,$182,$a98,$184,$e72,$186,$d82
  204.     dc.w    $188,$ca3,$18a,$d93,$18c,$69c,$18e,$ca5
  205.     dc.w    $190,$c97,$192,$5ac,$194,$f81,$196,$d95
  206.     dc.w    $198,$e91,$19a,$da4,$19c,$f82,$19e,$ea2
  207.     dc.w    $1a0,$ca7,$1a2,$aaa,$1a4,$7ac,$1a6,$e94
  208.     dc.w    $1a8,$8ac,$1aa,$ca6,$1ac,$f92,$1ae,$ca8
  209.     dc.w    $1b0,$f91,$1b2,$e95,$1b4,$da6,$1b6,$fa3
  210.     dc.w    $1b8,$cb7,$1ba,$ca9,$1bc,$eb2,$1be,$eb4
  211.  
  212.     DC.W    $106,$AE00    ; SELEZIONA PALETTE 5 (160-191), NIBBLE BASSI
  213.  
  214.     dc.w    $180,$eba,$182,$898,$184,$b63,$186,$fd9
  215.     dc.w    $188,$79e,$18a,$d0f,$18c,$6a7,$18e,$55b
  216.     dc.w    $190,$770,$192,$d68,$194,$0a8,$196,$69f
  217.     dc.w    $198,$a7a,$19a,$d03,$19c,$37b,$19e,$14d
  218.     dc.w    $1a0,$a42,$1a2,$823,$1a4,$17b,$1a6,$f31
  219.     dc.w    $1a8,$066,$1aa,$aef,$1ac,$28a,$1ae,$727
  220.     dc.w    $1b0,$6ac,$1b2,$999,$1b4,$78a,$1b6,$21e
  221.     dc.w    $1b8,$c68,$1ba,$649,$1bc,$f17,$1be,$827
  222.  
  223.     DC.W    $106,$CC00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE ALTI
  224.  
  225.     dc.w    $180,$8bc,$182,$ea6,$184,$ca9,$186,$eb6
  226.     dc.w    $188,$bc8,$18a,$fa2,$18c,$db7,$18e,$8bd
  227.     dc.w    $190,$db9,$192,$bba,$194,$fb4,$196,$db9
  228.     dc.w    $198,$fb6,$19a,$8be,$19c,$fb7,$19e,$db9
  229.     dc.w    $1a0,$fc2,$1a2,$dc8,$1a4,$fc4,$1a6,$8ce
  230.     dc.w    $1a8,$cca,$1aa,$abd,$1ac,$eb9,$1ae,$fd3
  231.     dc.w    $1b0,$fc6,$1b2,$9be,$1b4,$fb8,$1b6,$dca
  232.     dc.w    $1b8,$fd4,$1ba,$dbb,$1bc,$cbc,$1be,$ec8
  233.  
  234.     DC.W    $106,$CE00    ; SELEZIONA PALETTE 6 (192-223), NIBBLE BASSI
  235.  
  236.     dc.w    $180,$929,$182,$588,$184,$8f4,$186,$233
  237.     dc.w    $188,$c2f,$18a,$7fd,$18c,$e57,$18e,$b16
  238.     dc.w    $190,$125,$192,$e5a,$194,$73b,$196,$b11
  239.     dc.w    $198,$542,$19a,$c33,$19c,$135,$19e,$2af
  240.     dc.w    $1a0,$d4f,$1a2,$f19,$1a4,$a3a,$1a6,$703
  241.     dc.w    $1a8,$34e,$1aa,$6b4,$1ac,$2a4,$1ae,$b22
  242.     dc.w    $1b0,$397,$1b2,$8e4,$1b4,$0f5,$1b6,$664
  243.     dc.w    $1b8,$b2a,$1ba,$3aa,$1bc,$1fd,$1be,$8ed
  244.  
  245.     DC.W    $106,$EC00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE ALTI
  246.  
  247.     dc.w    $180,$fd5,$182,$ace,$184,$dda,$186,$dcb
  248.     dc.w    $188,$fca,$18a,$fd6,$18c,$ace,$18e,$fc8
  249.     dc.w    $190,$bce,$192,$dcb,$194,$cdd,$196,$fe6
  250.     dc.w    $198,$fe8,$19a,$bce,$19c,$dcd,$19e,$fda
  251.     dc.w    $1a0,$fe8,$1a2,$fda,$1a4,$ddc,$1a6,$cde
  252.     dc.w    $1a8,$fdb,$1aa,$dde,$1ac,$eec,$1ae,$dde
  253.     dc.w    $1b0,$fea,$1b2,$fdd,$1b4,$fec,$1b6,$dde
  254.     dc.w    $1b8,$edd,$1ba,$ffc,$1bc,$fed,$1be,$ffe
  255.  
  256.     DC.W    $106,$EE00    ; SELEZIONA PALETTE 7 (224-255), NIBBLE BASSI
  257.  
  258.     dc.w    $180,$d47,$182,$339,$184,$b08,$186,$3bd
  259.     dc.w    $188,$040,$18a,$cb6,$18c,$dd0,$18e,$7fa
  260.     dc.w    $190,$359,$192,$fec,$194,$428,$196,$ea6
  261.     dc.w    $198,$349,$19a,$5eb,$19c,$2e4,$19e,$508
  262.     dc.w    $1a0,$e85,$1a2,$3f7,$1a4,$8fa,$1a6,$52c
  263.     dc.w    $1a8,$52c,$1aa,$127,$1ac,$d12,$1ae,$947
  264.     dc.w    $1b0,$d7a,$1b2,$225,$1b4,$920,$1b6,$2ff
  265.     dc.w    $1b8,$9ef,$1ba,$934,$1bc,$8fa,$1be,$95e
  266.  
  267.     dc.w    $FFFF,$FFFE    ; Fine della copperlist
  268.  
  269. ;******************************************************************************
  270.  
  271. ; Figura RAW ad 8 bitplanes, cioe' a 256 colori
  272.  
  273.     CNOP    0,8    ; allineo a 64 bit
  274.  
  275. PICTURE:
  276.     INCBIN    "MURALE320*256*256c.RAW"
  277.  
  278.     end
  279.  
  280. Per il disegno originale su muro devo ringraziare la mia ex compagna di classe
  281. Silvia Papucci, che mi ha aiutato a dipingerlo.
  282. Per lo scanner Andrea Scarafoni. (e' immorale scansire un proprio disegno?)
  283.  
  284.