;font48 = 256 aligned vertical 2K
SHAPESPROC shapes_prtext_num
;печатает на экране hl текст (de), потом число bc, переводит адрес экрана на 8 строк вниз, de на следующий текст (после терминатора)
push hl
push bc
call shapes_prtext48ega;_oncolor
ex de,hl
ex (sp),hl
call shapes_prnum
pop de
inc de ;пропускаем терминатор строки
pop hl
ld bc,40*8
add hl,bc ;next screen chr line
ret
SHAPESPROC shapes_prnumdword
;de=scr
;hl'hl=num
ld a,' '
ld (prnumdword_zero),a
exx
ld bc,1000000000/65536
exx
ld bc,1000000000&0xffff
call prnumdword0
exx
ld bc,100000000/65536
exx
ld bc,100000000&0xffff
call prnumdword0
exx
ld bc,10000000/65536
exx
ld bc,10000000&0xffff
call prnumdword0
exx
ld bc,1000000/65536
exx
ld bc,1000000&0xffff
call prnumdword0
exx
ld bc,100000/65536
exx
ld bc,100000&0xffff
call prnumdword0
exx
ld bc,0
exx
ld bc,10000
call prnumdword0
ld bc,1000
call prnumdword0
ld bc,100
call prnumdword0
ld bc,10
call prnumdword0
ld a,'0'
ld (prnumdword_zero),a
ld bc,1
prnumdword0
;bc=digit
ld a,'0'-1
or a
prnumdword1
inc a
sbc hl,bc
exx
sbc hl,bc
exx
jr nc,prnumdword1
add hl,bc
exx
adc hl,bc
exx
ex de,hl
cp '0'
jr nz,prnumdword_nozero
prnumdword_zero=$+1
ld a,' '
jr prnumdword_nozeroq
prnumdword_nozero
push af
ld a,'0'
ld (prnumdword_zero),a
pop af
prnumdword_nozeroq
call shapes_prchar48ega
ex de,hl
ret
;hx=color %33210210
;lx=background color %33210210
;hl=scr
;de=text
SHAPESPROC shapes_prtext48ega
prtext48ega0
ld a,(de)
or a
ret z
call shapes_prchar48ega
inc de
jp prtext48ega0
SHAPESPROC shapes_prchar48ega
;a=char
;hl=scr
push de
ld e,a
ld d,font48/256
push hl
push iy
ld hy,8
;lx=background color %33210210
;hx=color %33210210
;de=font char
;hl=screen
prchar48ega_hxoncolor0
ld b,hx
ld a,(de)
ld c,a
ld a,lx
rl c
jr nc,$+2+4
xor b
and 0xb8;%10111000
xor b
rl c
jr nc,$+2+4
xor b
and 0x47;%01000111
xor b
ld (hl),a
set 6,h
ld a,lx
rl c
jr nc,$+2+4
xor b
and 0xb8;%10111000
xor b
rl c
jr nc,$+2+4
xor b
and 0x47;%01000111
xor b
ld (hl),a
inc d
ld bc,+(40-0x4000)
add hl,bc
dec hy
jp nz,prchar48ega_hxoncolor0
pop iy
pop hl
pop de
ld a,h
xor 0x20
ld h,a
and 0x20
ret nz
inc hl
ret
SHAPESPROC shapes_prnum
;de=scr
;hl=num
;ld bc,prchar48ega_whiteoncolor
;ld (prchar48ega_colorproc),bc
ld bc,1000
call prdig
ld bc,100
call prdig
ld bc,10
call prdig
ld bc,1
prdig
;bc=digit
ld a,'0'-1
or a
prdig0
inc a
sbc hl,bc
jr nc,prdig0
add hl,bc
;ld a,(hl)
ex de,hl
call shapes_prchar48ega
ex de,hl
ret
SHAPESPROC shapes_prNN
;de=scr
;hl=num =a
ld h,0
ld l,a
;ld bc,prchar48ega_whiteoncolor
;ld (prchar48ega_colorproc),bc
ld bc,10
call prdigNN
ld bc,1
prdigNN
;bc=digit
ld a,'0'-1
or a
prdigNN0
inc a
sbc hl,bc
jr nc,prdigNN0
add hl,bc
;ld a,(hl)
ex de,hl
call shapes_prchar48ega
ex de,hl
ret
SHAPESPROC shapes_prNchars
;hl=scr
;de=text
;a=Nchars
;ld bc,prchar48ega_whiteoncolor
;ld (prchar48ega_colorproc),bc
ld b,a
prNchars0
push bc
ld a,(de)
inc de
call shapes_prchar48ega
pop bc
djnz prNchars0
ret
SHAPESPROC shapes_prhexbyte
;ld a,0x30;a=0x30 - 0,1,2..9 0x41 - A,B,C,D,E,F 0x61 - a,b,c..
;a=XX
;lx=color %33210210
;hl=scr
;push hl
;ld hl,prchar48ega_white7oncolor
;ld (prchar48ega_colorproc),hl
;pop hl
;push hl
;push af
rrca
rrca
rrca
rrca
call pronehexdigit
rlca
rlca
rlca
rlca
;call pronehexdigit
;pop af
;pop hl
;ret
pronehexdigit
;a=?X
push bc
push af
; and 0xf
; cp 10
; jr c,prcharbit_noletter
; add a,'a'-('0'+10)
;prcharbit_noletter
; add a,'0'
or 0xf0
daa
add a,0xa0
adc a,0x40
call shapes_prchar48ega
pop af
pop bc
ret
prspr88ega
;lx=background color %33210210
;hx=color %33210210
;de=gfx
;hl=scr
push hl
push hl
call prspr88ega_column
pop hl
set 6,h
call prspr88ega_column
pop hl
set 5,h
push hl
call prspr88ega_column
pop hl
set 6,h
;call prspr88ega_column
prspr88ega_column
push iy
ld hy,8
prspr88ega1
ld b,hx
ld a,(de)
ld c,a
ld a,lx
rl c
jr nc,$+2+4
xor b
and 0xb8;%10111000
xor b
rl c
jr nc,$+2+4
xor b
and 0x47;%01000111
xor b
ld (hl),a
inc de
ld bc,+40
add hl,bc
dec hy
jr nz,prspr88ega1
pop iy
ret