snark13
95c22be9bd
Скролл региона 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>
90 lines
1.1 KiB
PHP
90 lines
1.1 KiB
PHP
;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
|
|
|
|
|