›|     ÓÈÏ×ÅÒ äìá ÓÈÉÍÃá    |››|Autor:SERO/SAMAR^VP^AUP^PT|››|Wersja:1.0|Data:25.04.1997|›› opt 21 -do pamieci››*adresy segmentow |dlugosc:›pict1 equ $3010 -Bitplane nr.1 $1e00›pict2 equ $5010 -Bitplane nr.2 $1e00›colm equ $7000 -Shower mapy kolorow nr.1 $1a00›colm2 equ $8a00 -Shower mapy kolorow nr.2 $1a00›dlist equ $a400 -Display list nr.1 $500›dlist2 equ $a900 -Display list nr.2 $500›mem_1col equ $b000 -Mapa kolorow nr.1 $500›mem_2col equ $b500 -Mapa kolorow nr.2 $500›shower equ $ba00 -Adres wyswietlarki $????››*stale SHOWERa›dups equ $d018 -Rejestr na ktorym symulejmy mape kolorow›illin equ 96 -Ilosci lini ekranu/2››› org shower››*--------------------› lda #0 -Wylacz DMA i przerwania.› sta $d40e -Te procedury moga byc wywolane tylko jeden raz dla› sta $d400 -dla danego rysunku.Potem mozna skakac bezposrednio› jsr makedl -do SETGM. Przy takim rozwiazaniu zwalniaja sie› jsr makecm -obszary mapy kolorow - moga byc uzyte do innych› *celow››*Pokaz rysunek w SHIMC›*---------------------›setgm equ *› lda #0 wylacz przerwania› sta $d40e› sei›› sta $d016 zeruj kolory› sta $d017› sta $d018› sta $d019› sta $d01a›› lda #1 ustaw GTIA i DMA› sta $d01b› lda #%100010› sta $d400››gm01 lda $d40b czekaj na poczatek› bne gm01 ekranu›› ldx dlist› stx $d402› sty $d403››gm02 lda $d40b znowu poczekaj na› bne gm02 poczatek ekranu›› ldx #0 wlacz Shower› ldy #0 mapy kolorow› jsr colm›› lda #0 skasuj pozostalosci› sta dups mapy kolorow›› lda #$40 wlacz przerwania› sta $d40e› cli› rts››*Utworz Display List nr1. i 2›*----------------------------›makedl equ *› ldx dlist List nr.1› stx putbyte+1› sty putbyte+2›› ldx pict1 z Bitplanu nr.1› stx $f0› sty $f1›› ldx pict2+40 z Bitplanu nr.2› stx $f2› sty $f3›› lda #$70 Wstaw puste linie› jsr putbyte› lda #$70› jsr putbyte› lda #$70› jsr putbyte›› ldy #illin ile lini/2››d001 lda #$4f Linie nieparzyste› jsr putbyte z bitplanu nr.1› clc› lda $f0› jsr putbyte› ad