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

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

No files matched your search

+31 -9
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
+5 -3
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
;
+1 -1
View File
@@ -1 +1 @@
14
18