mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-11-12 11:14:44 +03:00
ускорил ещё процедуру DIV32
This commit is contained in:
1 parent
7ba4cf4412
commit
b87eac0895
4 files changed
+38
-14
No files matched your search
+31
-9
@@ -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
@@ -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
@@ -1 +1 @@
|
||||
14
|
||||
18
|
||||
+1
-1
Submodule Shared_Includes updated: 6d439eb5a2...afe66b1f35.
Reference in new issue
Block a user