Dzięki działa
tali prosty programik prezentujący dostepne kolory
org 50000
call kas_ekr
ld hl,22528
ld a,0
ld b,0
loop1 ld (hl),b
inc b
inc b
inc b
inc b
inc hl ;zwieksz
inc a ;zwieksz
cp 32 ;porownuje akumulator z liczba 32
jp nz,loop1 ;jesli flaga zero skasowana wykonaj skok do loop1
call GETKEY
;=================================
kas_ekr ;kasowanie ekranu
ld hl,16383
ld bc,2048
sko1 dec bc
inc hl
ld (hl),0
ld a,b
or c
jp nz,sko1
ret
;=================================
GETKEY ; czekanie na dowony klawisz
LD HL, 23611
RES 5, (HL)
GK1 PUSH HL
CALL 703
POP HL
BIT 5, (HL)
JR Z, GK1
ret
end 50000
kasowanie ekranu może jakoś prościej by się dało ?