_palette = 0x0040 _cellram = 0xe000 _tileram = 0xe800 org $0000 _start:: ;:19: LD SP,$E800 ; set up stack pointer DI ; disable interrupts ;:20: jp _main ;:23: ; --------------------------------- ; Function main ; --------------------------------- _main:: ;:26: ld a,0x01 out (_palette),a ;:27: ld hl,_tileram ld (hl), 0xfe ld e, l ld d, h inc de ld bc, 0x07ff ldir ;:28: ld hl,_cellram ld (hl), 0x00 ld e, l ld d, h inc de ld bc, 0x07ff ldir ;:29: ld c,0x00 ;:30: 00112$: ld a,c rlca rlca rlca and a,0xf8 ld e,a ld d,0x00 00106$: ;:31: ld l,d ld h,0x00 add hl, hl add hl, hl add hl, hl add hl, hl add hl, hl ld a,low (_cellram) add a, l ld l,a ld a,high (_cellram) adc a, h ld h,a ld b,0x00 add hl, bc ld (hl),e ;:30: inc d ld a,d sub a, 0x20 jr C,00106$ ;:29: inc c ld a,c sub a, 0x20 jr C,00112$ ;:34: 00104$: jr 00104$