›|     سبد×إز نىل سبةحأل    |››|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        wlacz display list nr.1› ldy >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        najpierw Display› ldy >dlist        List nr.1› stx putbyte+1› sty putbyte+2›› ldx <pict1        1.linia bedzie› ldy >pict1        z Bitplanu nr.1› stx $f0› sty $f1›› ldx <pict2+40     2. linia bedzie› ldy >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