nolist VRAMLINES_C000 equ &4200 org &4000 run $ xor a call &bc0e di ;ld de,&C008+320: ld hl,VRAMLINES_C000 ld d,&C0 ;call generate_vram80 ld c,80 ; ld a,25 rows25: ex af,af' push de ld b,8 lines8: ld (hl),e:inc hl:ld (hl),d:inc hl ld a,d:add 8:ld d,a dec b jr nz,lines8 pop de ex de,hl:add hl,bc:ex de,hl ex af,af' dec a jr nz,rows25 loop: ld hl,VRAMLINES_C000 ld b,128 pixY: ld e,(hl):inc hl:ld d,(hl):inc hl push hl ld c,64 pixX: push af add b:add c:and l ld (de),a:inc de pop af dec c jr nz,pixX pop hl dec b jr nz,pixY inc a jr loop list aend: nolist