BumpBitmap8x8
; преамбула
di
mvi a, ENROM
out BANKING
; сохранить SP в HL
lxi hl, 0
dad sp
xchg ; теперь старый указатель стека в DE
lxi hl, SCREEN+8
; выводим первый столбик, снизу вверх
;lxi sp, SCREEN+8
sphl
lxi bc, 0102h
push bc
lxi bc, 0304h
push bc
lxi bc, 0506h
push bc
lxi bc, 0708h
push bc
; выводим второй столбик
;lxi sp, SCREEN+8+256
inr h
sphl
lxi bc, 090ah
push bc
lxi bc, 0b0ch
push bc
lxi bc, 0d0eh
push bc
lxi bc, 0f00h
push bc
; восстановить SP
xchg
sphl
; постамбула
xra a
out BANKING
ret
[свернуть]