home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / testi / corsoasm / sorgenti2 / lezione5c.s < prev    next >
Encoding:
Text File  |  1995-09-29  |  14.4 KB  |  470 lines
  1.  
  2. ; Lezione5c.s    SCORRIMENTO DI UNA FIGURA IN ALTO E IN BASSO MODIFICANDO I
  3. ;        PUNTATORI AI PITPLANES NELLA COPPERLIST
  4.  
  5.     SECTION    CiriCop,CODE
  6.  
  7. Inizio:
  8.     move.l    4.w,a6        ; Execbase in a6
  9.     jsr    -$78(a6)    ; Disable - ferma il multitasking
  10.     lea    GfxName(PC),a1    ; Indirizzo del nome della lib da aprire in a1
  11.     jsr    -$198(a6)    ; OpenLibrary
  12.     move.l    d0,GfxBase    ; salvo l'indirizzo base GFX in GfxBase
  13.     move.l    d0,a6
  14.     move.l    $26(a6),OldCop    ; salviamo l'indirizzo della copperlist vecchia
  15.  
  16. ;     PUNTIAMO I NOSTRI BITPLANES
  17.  
  18.     MOVE.L    #PIC,d0        ; in d0 mettiamo l'indirizzo della PIC,
  19.     LEA    BPLPOINTERS,A1    ; puntatori nella COPPERLIST
  20.     MOVEQ    #2,D1        ; numero di bitplanes -1 (qua sono 3)
  21. POINTBP:
  22.     move.w    d0,6(a1)    ; copia la word BASSA dell'indirizzo del plane
  23.     swap    d0        ; scambia le 2 word di d0 (es: 1234 > 3412)
  24.     move.w    d0,2(a1)    ; copia la word ALTA dell'indirizzo del plane
  25.     swap    d0        ; scambia le 2 word di d0 (es: 3412 > 1234)
  26.     ADD.L    #40*256,d0    ; + lunghezza bitplane -> prossimo bitplane
  27.     addq.w    #8,a1        ; andiamo ai prossimi bplpointers nella COP
  28.     dbra    d1,POINTBP    ; Rifai D1 volte POINTBP (D1=num of bitplanes)
  29.  
  30. ;
  31.  
  32.     move.l    #COPPERLIST,$dff080    ; Puntiamo la nostra COP
  33.     move.w    d0,$dff088        ; Facciamo partire la COP
  34.  
  35.     move.w    #0,$dff1fc        ; Disattiva l'AGA
  36.     move.w    #$c00,$dff106        ; Disattiva l'AGA
  37.  
  38. mouse:
  39.     cmpi.b    #$ff,$dff006    ; Siamo alla linea 255?
  40.     bne.s    mouse        ; Se non ancora, non andare avanti
  41.  
  42.     btst    #2,$dff016    ; se il tasto destro e' premuto salta
  43.     beq.s    Aspetta        ; la routine dello scroll, bloccandolo
  44.  
  45.  
  46.     bsr.w    MuoviCopper    ; fa scorrere la figura in alto e in basso
  47.                 ; di una linea alla volta cambiando i
  48.                 ; puntatori ai bitplanes in copperlist
  49.  
  50. Aspetta:
  51.     cmpi.b    #$ff,$dff006    ; Siamo alla linea 255?
  52.     beq.s    Aspetta        ; Se si, non andare avanti, aspetta!
  53.  
  54.     btst    #6,$bfe001    ; tasto sinistro del mouse premuto?
  55.     bne.s    mouse        ; se no, torna a mouse:
  56.  
  57.     move.l    OldCop(PC),$dff080    ; Puntiamo la cop di sistema
  58.     move.w    d0,$dff088        ; facciamo partire la vecchia cop
  59.  
  60.     move.l    4.w,a6
  61.     jsr    -$7e(a6)    ; Enable - riabilita il Multitasking
  62.     move.l    gfxbase(PC),a1    ; Base della libreria da chiudere
  63.     jsr    -$19e(a6)    ; Closelibrary - chiudo la graphics lib
  64.     rts            ; USCITA DAL PROGRAMMA
  65.  
  66. ;    Dati
  67.  
  68. GfxName:
  69.     dc.b    "graphics.library",0,0    
  70.  
  71. GfxBase:        ; Qua ci va l'indirizzo di base per gli Offset
  72.     dc.l    0    ; della graphics.library
  73.  
  74. OldCop:            ; Qua ci va l'indirizzo della vecchia COP di sistema
  75.     dc.l    0
  76.  
  77.  
  78. ;    Questa routine sposta la figura in alto e in basso, agendo sui
  79. ;    puntatori ai bitplanes in copperlist (tramite la label BPLPOINTERS)
  80. ;    La struttura e' simile a quella di Lezione3d.s
  81. ;    Per prima cosa mettiamo l'indirizzo che stanno puntato i BPLPOINTERS
  82. ;    in d0, poi aggiungiamo o sottraiamo 40 a d0, e infine per modificare
  83. ;    in copperlist i BPLPOINTERS dobbiamo "ripuntare" il valore cambiato
  84. ;    in d0 con la stessa routine POINTBP.
  85.  
  86. MuoviCopper:
  87.     LEA    BPLPOINTERS,A1    ; Con queste 4 istruzioni preleviamo dalla
  88.     move.w    2(a1),d0    ; copperlist l'indirizzo dove sta puntando
  89.     swap    d0        ; attualmente il $dff0e0 e lo poniamo
  90.     move.w    6(a1),d0    ; in d0 - il contrario della routine che
  91.                 ; punta i bitplanes! Qua invece di mettere
  92.                 ; l'indirizzo lo prendiamo!!!
  93.  
  94.     TST.B    SuGiu        ; Dobbiamo salire o scendere? se SuGiu e'
  95.                 ; azzerata, (cioe' il TST verifica il BEQ)
  96.                 ; allora saltiamo a VAIGIU, se invece e' a $FF
  97.                 ; (se cioe' questo TST non e' verificato)
  98.                 ; continuiamo salendo (facendo dei sub)
  99.     beq.w    VAIGIU
  100.     cmp.l    #PIC-(40*30),d0    ; siamo arrivati abbastanza in ALTO?
  101.     beq.s    MettiGiu    ; se si, siamo in cima e dobbiamo scendere
  102.     sub.l    #40,d0        ; sottraiamo 40, ossia 1 linea, facendo
  103.                 ; scorrere in BASSO la figura
  104.     bra.s    Finito
  105.  
  106. MettiGiu:
  107.     clr.b    SuGiu        ; Azzerando SuGiu, al TST.B SuGiu il BEQ
  108.     bra.s    Finito        ; fara' saltare alla routine VAIGIU
  109.  
  110. VAIGIU:
  111.     cmpi.l    #PIC+(40*30),d0    ; siamo arrivati abbastanza in BASSO?
  112.     beq.s    MettiSu        ; se si, siamo in fondo e dobbiamo risalire
  113.     add.l    #40,d0        ; Aggiungiamo 40, ossia 1 linea, facendo
  114.                 ; scorrere in ALTO la figura
  115.     bra.s    finito
  116.  
  117. MettiSu:
  118.     move.b    #$ff,SuGiu    ; Quando la label SuGiu non e' a zero,
  119.     rts            ; significa che dobbiamo risalire.
  120.  
  121. Finito:                ; PUNTIAMO I PUNTATORI BITPLANES
  122.     LEA    BPLPOINTERS,A1    ; puntatori nella COPPERLIST
  123.     MOVEQ    #2,D1        ; numero di bitplanes -1 (qua sono 3)
  124. POINTBP2:
  125.     move.w    d0,6(a1)    ; copia la word BASSA dell'indirizzo del plane
  126.     swap    d0        ; scambia le 2 word di d0 (es: 1234 > 3412)
  127.     move.w    d0,2(a1)    ; copia la word ALTA dell'indirizzo del plane
  128.     swap    d0        ; scambia le 2 word di d0 (es: 3412 > 1234)
  129.     ADD.L    #40*256,d0    ; + lunghezza bitplane -> prossimo bitplane
  130.     addq.w    #8,a1        ; andiamo ai prossimi bplpointers nella COP
  131.     dbra    d1,POINTBP2    ; Rifai D1 volte POINTBP (D1=num of bitplanes)
  132.     rts
  133.  
  134.  
  135. ;    Questo byte, indicato dalla label SuGiu, e' un FLAG.
  136.  
  137. SuGiu:
  138.     dc.b    0,0
  139.  
  140.  
  141.     SECTION    GRAPHIC,DATA_C
  142.  
  143. COPPERLIST:
  144.     dc.w    $120,$0000,$122,$0000,$124,$0000,$126,$0000,$128,$0000 ; SPRITE
  145.     dc.w    $12a,$0000,$12c,$0000,$12e,$0000,$130,$0000,$132,$0000
  146.     dc.w    $134,$0000,$136,$0000,$138,$0000,$13a,$0000,$13c,$0000
  147.     dc.w    $13e,$0000
  148.  
  149.     dc.w    $8e,$2c81    ; DiwStrt    (registri con valori normali)
  150.     dc.w    $90,$2cc1    ; DiwStop
  151.     dc.w    $92,$0038    ; DdfStart
  152.     dc.w    $94,$00d0    ; DdfStop
  153.     dc.w    $102,0        ; BplCon1
  154.     dc.w    $104,0        ; BplCon2
  155.     dc.w    $108,0        ; Bpl1Mod
  156.     dc.w    $10a,0        ; Bpl2Mod
  157.  
  158.             ; 5432109876543210    ; BPLCON0:
  159.     dc.w    $100,%0011001000000000    ; bits 13 e 12 accesi!! (3 = %011)
  160.                     ; 3 bitplanes lowres, non lace
  161. BPLPOINTERS:
  162.     dc.w $e0,$0000,$e2,$0000    ;primo     bitplane - BPL0PT
  163.     dc.w $e4,$0000,$e6,$0000    ;secondo bitplane - BPL1PT
  164.     dc.w $e8,$0000,$ea,$0000    ;terzo     bitplane - BPL2PT
  165.  
  166.     dc.w    $0180,$000    ; color0
  167.     dc.w    $0182,$475    ; color1
  168.     dc.w    $0184,$fff    ; color2
  169.     dc.w    $0186,$ccc    ; color3
  170.     dc.w    $0188,$999    ; color4
  171.     dc.w    $018a,$232    ; color5
  172.     dc.w    $018c,$777    ; color6
  173.     dc.w    $018e,$444    ; color7
  174.  
  175. ; Inserite qua il pezzo di copperlist
  176.  
  177.     dc.w    $FFFF,$FFFE    ; Fine della copperlist
  178.  
  179. ;    figura
  180.  
  181.     dcb.b    40*30,0    ; questo spazio azzerato serve perche' spostandoci
  182.             ; a visualizzare piu' in basso e piu' in alto usciamo
  183.             ; dalla zona della PIC e visualizziamo quello che sta
  184.             ; prima e dopo la pic stessa, il che' causerebbe
  185.             ; la visualizzazione di byte sparsi di disturbo.
  186.             ; mettendo dei byte azzerati in quel punto viene
  187.             ; visualizzato $0000, ossia il colore di sfondo.
  188.  
  189. PIC:
  190.     incbin    "amiga.320*256*3"    ; qua carichiamo la figura in RAW,
  191.                     ; convertita col KEFCON, fatta di
  192.                     ; 3 bitplanes consecutivi
  193.  
  194.     dcb.b    40*30,0    ; vedi sopra
  195.  
  196. ; NOTA: Il dcb.b serve a mettere molti bytes uguali tra loro in memoria,
  197. ; scrivere dcb.b 10,0 e' come scrivere 10 volte dc.b 0.
  198. ;
  199.  
  200.     end
  201.  
  202. Questa routine in pratica aggiunge o sottrae 40 all'indirizzo a cui puntano i
  203. BPLPOINTERS in copperlist, leggendo per prima cosa l'indirizzo "attuale" con
  204. la routine opposta a quella che punta i bitplanes.
  205. Con questo metodo si possono visualizzare anche immagini piu' grandi dello
  206. schermo, visualizzandone una parte per volta con la possibilita' di scorrerle
  207. in alto o in basso. Ad esempio nei giochi di FLIPPER, come PINBALL DREAMS, lo
  208. schermo di gioco e' piu' lungo di quello visibile, e scorre in alto o in basso,
  209. per visualizzare la parte dove rimbalza la pallina, cambiando i puntatori dei
  210. bitplanes.
  211. In questo esempio spostandoci visualiziamo anche delle linee fuori dalla
  212. nostra figura, in quanto e' lunga 256 linee solamente e noi scorriamo di
  213. 30 linee sopra e 30 sotto, ossia 316 linne in totale. E' per questo che sono
  214. presenti dei dcb.b prima e dopo la figura, per "pulire" la zona che appare
  215. scorrendo fuori dai bitplanes RAW. Provate a cambiarli in questo modo:
  216.  
  217.     dcb.b    40*30,%11001100
  218.  
  219. Eseguendo il listato noterete che le parti fuori PIC sono a "STRISCE" anziche'
  220. azzerate, infatti le abbiamo riempite di %110011001100110011001100110011
  221.                       110011001100110011001100110011
  222.                       110011001100110011001100110011
  223. Ossia di strisce di bit.
  224.  
  225. Potete anche scorrere i 3 bitplanes sepatatamente: per fare cio' basta che
  226. abilitiate 1 solo bitplane nel $dff100:
  227.  
  228.             ; 5432109876543210
  229.     dc.w    $100,%0001001000000000    ; 1 bitplane
  230.  
  231. E cambiate la posizione massima raggiungibile dallo scroll:
  232.  
  233. VAIGIU:
  234.     cmpi.l    #PIC+(40*530),d0; siamo arrivati abbastanza in BASSO?
  235.     beq.s    MettiSu        ; se si, siamo in fondo e dobbiamo risalire
  236.     ...
  237.  
  238. In questo modo vedrete scorrere i 3 bitplanes separatamente, infatti sono
  239. posti l'uno dopo l'altro.
  240.  
  241. * Eccovi una modifica da fare alla copperlist: cosa succede se cambiamo tutti
  242. gli 8 colori della figura ogni 2 linee? Copiate (con Amiga+b+c+i) questo pezzo
  243. di copperlist ed inseritelo prima della fine della copperlist:
  244.  
  245. ; Inserite qua il pezzo di copperlist
  246.  
  247. Cambiando la palette di 8 colori 52 volte, otterrete 8*52= 416 colori cambiati,
  248. ma considerando che il color0, essendo lo sfondo, deve rimanere sempre NERO,
  249. non viene modificato, solo gli altri 7, e non nell'ordine "numerico", ma in
  250. ordine "sparso", infatti l'ordine con cui vengono aggiornati i colori non conta
  251. sul risultato, si puo' cambiare prima il color2,poi il color3 ecc, mentre in
  252. questo esempio "si parte" dal color5 ($dff18a), poi si cambia il color7 ecc.
  253. Cambiando 7 colori 52 volte inserendo questa copperlist otteniamo 364 colori
  254. effettivi sullo schermo contemporaneamente, il che non e' male, considerando
  255. che lo schermo "ufficialmente" visualiziamo solo 8 colori. (7*52=364)
  256.  
  257.  
  258. ;2
  259.     dc.w $18a,$102,$18e,$212,$182,$223    ; color5,color7,color2
  260.     dc.w $18c,$323,$188,$323,$186,$334,$184,$434 ; col6,col4,col3,col2
  261.     dc.w $5007,$fffe
  262. ;3
  263.     dc.w $18a,$104,$18e,$214,$182,$225
  264.     dc.w $18c,$324,$188,$324,$186,$335,$184,$435
  265.     dc.w $5207,$fffe
  266. ;4
  267.     dc.w $18a,$203,$18e,$313,$182,$324
  268.     dc.w $18c,$423,$188,$423,$186,$434,$184,$534
  269.     dc.w $5407,$fffe
  270. ;5
  271.     dc.w $18a,$213,$18e,$313,$182,$324
  272.     dc.w $18c,$433,$188,$433,$186,$434,$184,$534
  273.     dc.w $5607,$fffe
  274. ;6
  275.     dc.w $18a,$114,$18e,$214,$182,$224
  276.     dc.w $18c,$323,$188,$323,$186,$334,$184,$434
  277.     dc.w $5807,$fffe
  278. ;7
  279.     dc.w $18a,$101,$18e,$211,$182,$222
  280.     dc.w $18c,$312,$188,$322,$186,$333,$184,$433
  281.     dc.w $5a07,$fffe
  282. ;8
  283.     dc.w $18a,$101,$18e,$211,$182,$222
  284.     dc.w $18c,$312,$188,$312,$186,$323,$184,$423
  285.     dc.w $5c07,$fffe
  286. ;9
  287.     dc.w $18a,$101,$18e,$211,$182,$222
  288.     dc.w $18c,$312,$188,$312,$186,$323,$184,$423
  289.     dc.w $5e07,$fffe
  290. ;10
  291.     dc.w $18a,$101,$18e,$211,$182,$222
  292.     dc.w $18c,$322,$188,$312,$186,$323,$184,$433
  293.     dc.w $6007,$fffe
  294. ;11
  295.     dc.w $18a,$110,$18e,$210,$182,$221
  296.     dc.w $18c,$321,$188,$311,$186,$322,$184,$432
  297.     dc.w $6207,$fffe
  298. ;12
  299.     dc.w $18a,$210,$18e,$310,$182,$321
  300.     dc.w $18c,$421,$188,$411,$186,$422,$184,$532
  301.     dc.w $6407,$fffe
  302. ;13
  303.     dc.w $18a,$210,$18e,$320,$182,$331
  304.     dc.w $18c,$431,$188,$421,$186,$432,$184,$542
  305.     dc.w $6607,$fffe
  306. ;14
  307.     dc.w $18a,$220,$18e,$330,$182,$431
  308.     dc.w $18c,$441,$188,$431,$186,$442,$184,$552
  309.     dc.w $6807,$fffe
  310. ;15
  311.     dc.w $18a,$220,$18e,$330,$182,$431
  312.     dc.w $18c,$440,$188,$430,$186,$441,$184,$551
  313.     dc.w $6a07,$fffe
  314. ;16
  315.     dc.w $18a,$220,$18e,$330,$182,$431
  316.     dc.w $18c,$441,$188,$431,$186,$442,$184,$552
  317.     dc.w $6c07,$fffe
  318. ;17
  319.     dc.w $18a,$120,$18e,$230,$182,$331
  320.     dc.w $18c,$341,$188,$331,$186,$342,$184,$452
  321.     dc.w $6e07,$fffe
  322. ;18
  323.     dc.w $18a,$120,$18e,$230,$182,$341
  324.     dc.w $18c,$351,$188,$341,$186,$352,$184,$462
  325.     dc.w $7007,$fffe
  326. ;19
  327.     dc.w $18a,$121,$18e,$231,$182,$332
  328.     dc.w $18c,$342,$188,$332,$186,$343,$184,$453
  329.     dc.w $7207,$fffe
  330. ;20
  331.     dc.w $18a,$021,$18e,$131,$182,$232
  332.     dc.w $18c,$242,$188,$232,$186,$243,$184,$353
  333.     dc.w $7407,$fffe
  334. ;21
  335.     dc.w $18a,$022,$18e,$132,$182,$233
  336.     dc.w $18c,$243,$188,$233,$186,$244,$184,$354
  337.     dc.w $7607,$fffe
  338. ;22
  339.     dc.w $18a,$012,$18e,$122,$182,$223
  340.     dc.w $18c,$233,$188,$223,$186,$234,$184,$344
  341.     dc.w $7807,$fffe
  342. ;23
  343.     dc.w $18a,$013,$18e,$123,$182,$224
  344.     dc.w $18c,$234,$188,$224,$186,$235,$184,$345
  345.     dc.w $7a07,$fffe
  346. ;24
  347.     dc.w $18a,$013,$18e,$023,$182,$124
  348.     dc.w $18c,$134,$188,$124,$186,$135,$184,$245
  349.     dc.w $7c07,$fffe
  350. ;25
  351.     dc.w $18a,$013,$18e,$123,$182,$224
  352.     dc.w $18c,$234,$188,$224,$186,$235,$184,$345
  353.     dc.w $7e07,$fffe
  354. ;26
  355.     dc.w $18a,$012,$18e,$122,$182,$223
  356.     dc.w $18c,$233,$188,$223,$186,$234,$184,$344
  357.     dc.w $8007,$fffe
  358. ;27
  359.     dc.w $18a,$022,$18e,$132,$182,$233
  360.     dc.w $18c,$243,$188,$233,$186,$244,$184,$354
  361.     dc.w $8207,$fffe
  362. ;28
  363.     dc.w $18a,$112,$18e,$132,$182,$233
  364.     dc.w $18c,$233,$188,$233,$186,$244,$184,$344
  365.     dc.w $8407,$fffe
  366. ;29
  367.     dc.w $18a,$102,$18e,$222,$182,$223
  368.     dc.w $18c,$323,$188,$323,$186,$334,$184,$443
  369.     dc.w $8607,$fffe
  370. ;30
  371.     dc.w $18a,$101,$18e,$211,$182,$222
  372.     dc.w $18c,$322,$188,$322,$186,$333,$184,$433
  373.     dc.w $8807,$fffe
  374. ;31
  375.     dc.w $18a,$104,$18e,$214,$182,$225
  376.     dc.w $18c,$324,$188,$324,$186,$335,$184,$435
  377.     dc.w $8a07,$fffe
  378. ;32
  379.     dc.w $18a,$203,$18e,$313,$182,$324
  380.     dc.w $18c,$423,$188,$423,$186,$434,$184,$534
  381.     dc.w $8c07,$fffe
  382. ;33
  383.     dc.w $18a,$213,$18e,$313,$182,$324
  384.     dc.w $18c,$433,$188,$433,$186,$434,$184,$534
  385.     dc.w $8e07,$fffe
  386. ;34
  387.     dc.w $18a,$114,$18e,$214,$182,$224
  388.     dc.w $18c,$323,$188,$323,$186,$334,$184,$434
  389.     dc.w $9007,$fffe
  390. ;35
  391.     dc.w $18a,$101,$18e,$211,$182,$222
  392.     dc.w $18c,$312,$188,$322,$186,$333,$184,$433
  393.     dc.w $9207,$fffe
  394. ;36
  395.     dc.w $18a,$101,$18e,$211,$182,$222
  396.     dc.w $18c,$312,$188,$312,$186,$323,$184,$423
  397.     dc.w $9407,$fffe
  398. ;37
  399.     dc.w $18a,$101,$18e,$211,$182,$222
  400.     dc.w $18c,$312,$188,$312,$186,$323,$184,$423
  401.     dc.w $9607,$fffe
  402. ;38
  403.     dc.w $18a,$101,$18e,$211,$182,$222
  404.     dc.w $18c,$322,$188,$312,$186,$323,$184,$433
  405.     dc.w $9807,$fffe
  406. ;39
  407.     dc.w $18a,$110,$18e,$210,$182,$221
  408.     dc.w $18c,$321,$188,$311,$186,$322,$184,$432
  409.     dc.w $9a07,$fffe
  410. ;40
  411.     dc.w $18a,$210,$18e,$310,$182,$321
  412.     dc.w $18c,$421,$188,$411,$186,$422,$184,$532
  413.     dc.w $9c07,$fffe
  414. ;41
  415.     dc.w $18a,$210,$18e,$320,$182,$331
  416.     dc.w $18c,$431,$188,$421,$186,$432,$184,$542
  417.     dc.w $9e07,$fffe
  418. ;42
  419.     dc.w $18a,$220,$18e,$330,$182,$431
  420.     dc.w $18c,$441,$188,$431,$186,$442,$184,$552
  421.     dc.w $a007,$fffe
  422. ;43
  423.     dc.w $18a,$220,$18e,$330,$182,$431
  424.     dc.w $18c,$440,$188,$430,$186,$441,$184,$551
  425.     dc.w $a207,$fffe
  426. ;44
  427.     dc.w $18a,$220,$18e,$330,$182,$431
  428.     dc.w $18c,$441,$188,$431,$186,$442,$184,$552
  429.     dc.w $a407,$fffe
  430. ;45
  431.     dc.w $18a,$120,$18e,$230,$182,$331
  432.     dc.w $18c,$341,$188,$331,$186,$342,$184,$452
  433.     dc.w $a607,$fffe
  434. ;46
  435.     dc.w $18a,$120,$18e,$230,$182,$341
  436.     dc.w $18c,$351,$188,$341,$186,$352,$184,$462
  437.     dc.w $a807,$fffe
  438. ;47
  439.     dc.w $18a,$121,$18e,$231,$182,$332
  440.     dc.w $18c,$342,$188,$332,$186,$343,$184,$453
  441.     dc.w $aa07,$fffe
  442. ;48
  443.     dc.w $18a,$021,$18e,$131,$182,$232
  444.     dc.w $18c,$242,$188,$232,$186,$243,$184,$353
  445.     dc.w $ac07,$fffe
  446. ;49
  447.     dc.w $18a,$022,$18e,$132,$182,$233
  448.     dc.w $18c,$243,$188,$233,$186,$244,$184,$354
  449.     dc.w $ae07,$fffe
  450. ;50
  451.     dc.w $18a,$012,$18e,$122,$182,$223
  452.     dc.w $18c,$233,$188,$223,$186,$234,$184,$344
  453.     dc.w $b007,$fffe
  454. ;51
  455.     dc.w $18a,$013,$18e,$123,$182,$224
  456.     dc.w $18c,$234,$188,$224,$186,$235,$184,$345
  457.     dc.w $b207,$fffe
  458. ;52
  459.     dc.w $18a,$013,$18e,$023,$182,$124
  460.     dc.w $18c,$134,$188,$124,$186,$135,$184,$245
  461.     dc.w $b407,$fffe
  462. ;53
  463.     dc.w $18a,$013,$18e,$123,$182,$224
  464.     dc.w $18c,$234,$188,$224,$186,$235,$184,$345
  465.     dc.w $b607,$fffe
  466. ;54
  467.     dc.w $18a,$012,$18e,$122,$182,$223
  468.     dc.w $18c,$233,$188,$223,$186,$234,$184,$344
  469.  
  470.