mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
ускорил ещё процедуру DIV32
This commit is contained in:
parent
7ba4cf4412
commit
b87eac0895
@ -911,21 +911,43 @@ ADD_DE2: DJNZ ADD_DE1
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
; HL:DE / BC => DE:IX HL-OSTATOK (DE:BC.HL)
|
; HL:DE / BC => DE:IX HL-OSTATOK (DE:BC.HL)
|
||||||
DIV32: LD A,#FF
|
DIV32: LD A,C
|
||||||
LD B,E
|
DEC A
|
||||||
.loop: SRL C
|
JR Z,.exit
|
||||||
JR C,.exitLoop
|
;
|
||||||
SRL H : RR L : RR D : RR E : SLA A
|
AND E
|
||||||
JP .loop
|
LD B,A ; ®áâ ⮪
|
||||||
.exitLoop:
|
LD A,C
|
||||||
CPL
|
RRCA
|
||||||
AND B
|
;
|
||||||
|
.loop: SRL H : RR L
|
||||||
|
RR D : RR E
|
||||||
|
RRCA
|
||||||
|
JR NC,.loop
|
||||||
|
LD A,B
|
||||||
|
;
|
||||||
|
.exit:
|
||||||
LD XH,D
|
LD XH,D
|
||||||
LD XL,E
|
LD XL,E
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD H,0
|
LD H,0
|
||||||
LD L,A
|
LD L,A
|
||||||
RET
|
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
|
DEFINE NEW_DIV 1
|
||||||
|
|
||||||
|
|||||||
@ -176,8 +176,9 @@ MS_INIT DI
|
|||||||
LD A,4
|
LD A,4
|
||||||
OUT (CMOUSE),A
|
OUT (CMOUSE),A
|
||||||
;!TEST mouse
|
;!TEST mouse
|
||||||
LD A,#47
|
LD A,#47 ; ¯¥à¢ë© ¬®¦¨â¥«ì = 16 875000/Œ1*Œ2=1215
|
||||||
;LD A,#44
|
;LD A,#44
|
||||||
|
;LD A,#04 ; ¯¥à¢ë© ¬®¦¨â¥«ì = 1 875000/Œ1*Œ2=4807
|
||||||
;
|
;
|
||||||
OUT (CMOUSE),A
|
OUT (CMOUSE),A
|
||||||
LD A,5
|
LD A,5
|
||||||
@ -186,9 +187,10 @@ MS_INIT DI
|
|||||||
OUT (CMOUSE),A
|
OUT (CMOUSE),A
|
||||||
|
|
||||||
;!TEST mouse
|
;!TEST mouse
|
||||||
LD A,85
|
LD A,#55
|
||||||
OUT (Z84.CTC.Ch_0),A
|
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
|
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