ускорил ещё процедуру DIV32

This commit is contained in:
Anatoliy Belyanskiy 2023-07-18 03:20:37 +10:00
parent 7ba4cf4412
commit b87eac0895
4 changed files with 38 additions and 14 deletions

View File

@ -911,21 +911,43 @@ ADD_DE2: DJNZ ADD_DE1
RET
; HL:DE / BC => DE:IX HL-OSTATOK (DE:BC.HL)
DIV32: LD A,#FF
LD B,E
.loop: SRL C
JR C,.exitLoop
SRL H : RR L : RR D : RR E : SLA A
JP .loop
.exitLoop:
CPL
AND B
DIV32: LD A,C
DEC A
JR Z,.exit
;
AND E
LD B,A ; ®áâ â®ª
LD A,C
RRCA
;
.loop: SRL H : RR L
RR D : RR E
RRCA
JR NC,.loop
LD A,B
;
.exit:
LD XH,D
LD XL,E
EX DE,HL
LD H,0
LD L,A
RET
; DIV32: LD A,#FF
; LD B,E
; .loop: SRL C
; JR C,.exitLoop
; SRL H : RR L : RR D : RR E : SLA A
; JP .loop
; .exitLoop:
; CPL
; AND B
; LD XH,D
; LD XL,E
; EX DE,HL
; LD H,0
; LD L,A
; RET
/*
DEFINE NEW_DIV 1

View File

@ -176,8 +176,9 @@ MS_INIT DI
LD A,4
OUT (CMOUSE),A
;!TEST mouse
LD A,#47
LD A,#47 ; ¯¥à¢ë© ¬­®¦¨â¥«ì = 16 875000/Œ­1*Œ­2=1215
;LD A,#44
;LD A,#04 ; ¯¥à¢ë© ¬­®¦¨â¥«ì = 1 875000/Œ­1*Œ­2=4807
;
OUT (CMOUSE),A
LD A,5
@ -186,9 +187,10 @@ MS_INIT DI
OUT (CMOUSE),A
;!TEST mouse
LD A,85
LD A,#55
OUT (Z84.CTC.Ch_0),A
LD A,45
LD A,#2D ; ¢â®à®© ¬­®¦¨â¥«ì = 45 875000/Œ­1*Œ­2=1215
;LD A,#B6 ; ¢â®à®© ¬­®¦¨â¥«ì = 182 875000/Œ­1*Œ­2=4807
OUT (Z84.CTC.Ch_0),A
;

View File

@ -1 +1 @@
14
18

@ -1 +1 @@
Subproject commit 6d439eb5a2fdbf826942b020871dc40726c50ab8
Subproject commit afe66b1f354cab8d2780826697cf371d1d9e389d