nolist org &4000 run &4000 xor a:call &bc0e di ;call change_width_64 ld bc,&bc01:out (c),c:ld bc,&bd30:out (c),c ld bc,&bc02:out (c),c:ld bc,&bd32:out (c),c ld hl,pals:ld de,pals+16 xor a palDup: ldi ldi:inc e dec a jr nz,palDup ld c,a frame: ;call wait4vsync ld b,&f5 vsync0: in a,(c) rra jr c,vsync0 vsync1: in a,(c) rra jr nc,vsync1 ld hl,&4101:ld de,&4100 ld a,(de):ld bc,262:ldir ld (de),a autoM: ld hl,pals ;&4100 ld d,0 ld c,d loopX: ld b,11 ; 2 delay: djnz delay ; 4 nop ld b,&7f ; 2 ld a,(hl) ; 2 out (c),c ; 4 out (c),a ; 4 inc hl ; 2 dec d ; 1 jr nz,loopX ; 3 ld a,r:and 31 add &c0:ld h,a add l:and 63:ld l,a inc (hl) ld a,15 loopaki: inc hl:inc hl inc (hl) dec a jr nz,loopaki jr frame pals: db &44,&44,&55,&55 db &44,&55,&44,&55 db &55,&55,&5d,&55 db &54,&54,&54 db &58,&58,&58 list theend: nolist