;-----------NAGLOWEK------------; .inesprg 1 .ineschr 1 .inesmir 1 .inesmap 0 .org $8000 .bank 0Start: lda #%00001000 sta $2000 lda #%00011110 sta $2001 lda #$3F; wskazuje na poczatek palety sta $2006 lda #$00 sta $2006 ldx #$00paleta: lda pacpal, x; laduje palete do A sta $2007 inx cpx #$20; porownuje x z 32 bne paleta; jesli x=/= 32 skacze do paletavwait: lda $2002 ;czeka az skonczy sie VBlank bpl vwait lda #$20 ;poczatek VRAM ($2020) sta $2006 lda #$20 sta $2006 lda #$01;wpisuje do name table sta $2007 lda #$02 sta $2007 lda #$6C sta $2007 lda #$6C sta $2007 lda #$6F sta $2007loop: jmp looppacpal: .include "pac.pal"; dane palety;--------------CHR--------------; .bank 2 .org $0000 .incbin "pac.chr"; 8kB;-----------WEKTORY-------------; .bank 1 ; .org $FFFA ; .dw 0;(NMI_Routine) .dw Start;(Reset_Routine) .dw 0;(IRQ_Routine)
.org $8000.bank 0
.bank 0.org $8000
.include "pac.pal";
.incbin"pac.pal";
LoadNT1: LDX #$20 STX $2006 LDX #$00 STX $2006 STY $2006 LDX #$04 LDA #low(NameTable1) STA <$0000 LDA #high(NameTable1) STA <$0001LoadMap: LDA [$0000], y STA $2007 INY BNE LoadMap INC <$0001 DEX BNE LoadMap RTS