mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 17:31:47 +03:00
ускорил ещё процедуру DIV32
This commit is contained in:
parent
7ba4cf4412
commit
b87eac0895
@ -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
|
||||
|
||||
|
||||
@ -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 @@
|
||||
14
|
||||
18
|
||||
@ -1 +1 @@
|
||||
Subproject commit 6d439eb5a2fdbf826942b020871dc40726c50ab8
|
||||
Subproject commit afe66b1f354cab8d2780826697cf371d1d9e389d
|
||||
Loading…
Reference in New Issue
Block a user