mirror of
https://github.com/Tolik-Trek/FORMAT.git
synced 2026-06-15 09:21:40 +03:00
52 lines
1020 B
NASM
Executable File
52 lines
1020 B
NASM
Executable File
;-------------------------------------------------------------------------------
|
||
; DE = HLDE/BC, HL = HLDE%BC
|
||
;1456t
|
||
div32:
|
||
ld a,10h
|
||
.div321: sla e
|
||
rl d
|
||
adc hl,hl
|
||
jr c, .div322
|
||
sbc hl,bc
|
||
jr nc, .div323
|
||
add hl,bc
|
||
dec a
|
||
jr nz, .div321
|
||
ret
|
||
.div322: ccf
|
||
sbc hl,bc
|
||
.div323: inc de
|
||
dec a
|
||
jr nz, .div321
|
||
ret
|
||
;-------------------------------------------------------------------------------
|
||
;hlde=hlde/512 ;bc=Žáâ ⎪
|
||
div512: ld c,e ;ŹŤ ¤č¨Ľ 8 Ą¨â Žáâ âŞ
|
||
ld b,0
|
||
ld e,d
|
||
ld d,l
|
||
ld l,h
|
||
ld h,b ;ᤢ¨ăŤ¨ ¤ĽŤ¨âĽŤě 8 Ą¨â ˘Żŕ ˘Ž
|
||
srl l ;¨ Ľéń 1
|
||
rr d
|
||
rr e
|
||
rl b
|
||
ret
|
||
;-------------------------------------------------------------------------------
|
||
;====================================
|
||
; 16 bit multiply
|
||
;====================================
|
||
;mul16: ld hl,0
|
||
;mul_hlbc_de: ld a,b
|
||
; ld b,0x11
|
||
; jr .mul16_3
|
||
;.mul16_1: jr nc,.mul16_2
|
||
; add hl,de
|
||
;.mul16_2: rr h
|
||
; rr l
|
||
;.mul16_3: rra
|
||
; rr c
|
||
; djnz .mul16_1
|
||
; ld b,a
|
||
; ret
|