libbgi: скролл-примитивы + --w3 + отчёт раскладки памяти
Скролл региона video->video (неактивная страница -> активная, банк 0x50: копия = скролл + heal цели): - gfx_scroll_h / _bgi_scroll_rows_raw — горизонтальный, построчно без страйдов (~54Т/строку), DI/EI бандами по 16 строк, h=0=>256; - gfx_scroll_v / _bgi_scroll_cols_raw — верт. И/ИЛИ гориз. за один проход без буфера (колонка = accel-burst LD A,A, STOP между read/write делает промежуточный OUT Port_Y безопасным), банды по 16 колонок; - _gfx_addr_shadow_base (адрес неактивной страницы) + gfx_rect_t. Пример examples/scroll. check_banks.py + sprinter-cc: отчёт раскладки памяти для ЛЮБОЙ модели (W1/W2 код/данные, остаток кучи/стека, W3 при --w3, банки при --bank), не только при --bank. Док docs/memory-management.md §10. --w3 (резидентный код окна W3) + сопутствующее: crt0_banked W3_RESIDENT, mkexe -W, tests/w3probe. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,89 @@
|
||||
;Input: H = Multiplier, E = Multiplicand, L = 0, D = 0
|
||||
;Output: HL = Product
|
||||
mul8_8: ld b,7
|
||||
sla h ; optimised 1st iteration
|
||||
jr nc,$+3
|
||||
ld l,e
|
||||
.loop: add hl,hl ; unroll 7 times
|
||||
jr nc,$+3 ; ...
|
||||
add hl,de ; ...
|
||||
djnz .loop
|
||||
ret
|
||||
|
||||
|
||||
lmod: call ldiv
|
||||
ex de,hl
|
||||
ret
|
||||
|
||||
ldiv: xor a
|
||||
ex af,af'
|
||||
ex de,hl
|
||||
jr dv1
|
||||
|
||||
adiv: ld a,h
|
||||
xor d ;set sign flag for quotient
|
||||
ld a,h ;get sign of dividend
|
||||
ex af,af'
|
||||
call negif
|
||||
ex de,hl
|
||||
call negif
|
||||
dv1: ld b,1
|
||||
ld a,h
|
||||
or l
|
||||
ret z
|
||||
dv8: push hl
|
||||
add hl,hl
|
||||
jr c,dv2
|
||||
ld a,d
|
||||
cp h
|
||||
jr c,dv2
|
||||
jp nz,dv6
|
||||
ld a,e
|
||||
cp l
|
||||
jr c,dv2
|
||||
dv6: pop af
|
||||
inc b
|
||||
jp dv8
|
||||
|
||||
dv2: pop hl
|
||||
ex de,hl
|
||||
push hl
|
||||
ld hl,0
|
||||
ex (sp),hl
|
||||
|
||||
dv4: ld a,h
|
||||
cp d
|
||||
jr c,dv3
|
||||
jp nz,dv5
|
||||
ld a,l
|
||||
cp e
|
||||
jr c,dv3
|
||||
|
||||
dv5: sbc hl,de
|
||||
dv3: ex (sp),hl
|
||||
ccf
|
||||
adc hl,hl
|
||||
srl d
|
||||
rr e
|
||||
ex (sp),hl
|
||||
djnz dv4
|
||||
pop de
|
||||
ex de,hl
|
||||
ex af,af'
|
||||
call m,negat
|
||||
ex de,hl
|
||||
or a ;test remainder sign bit
|
||||
call m,negat
|
||||
ex de,hl
|
||||
ret
|
||||
|
||||
negif: bit 7,h
|
||||
ret z
|
||||
negat: ld b,h
|
||||
ld c,l
|
||||
ld hl,0
|
||||
or a
|
||||
sbc hl,bc
|
||||
ret
|
||||
|
||||
|
||||
Reference in New Issue
Block a user