Browse Source

hbios - optimise INC32HL

pull/54/head
Phillip Stevens 6 years ago
parent
commit
8fb0d9019b
  1. 26
      Source/HBIOS/util.asm

26
Source/HBIOS/util.asm

@ -258,7 +258,7 @@ DB_BLKRD:
LD C,16 ; SET FOR 16 LOCS
PUSH HL ; SAVE STARTING HL
DB_NXTONE:
LD A,(HL) ; GET BYTE
LD A,(HL) ; GET BYTE
CALL PRTHEXBYTE ; PRINT IT
CALL PC_SPACE ;
DB_UPDH:
@ -789,7 +789,7 @@ DIV32X8:
XOR A
LD B,32
DIV32X8A:
ADD HL,HL
ADD HL,HL
RL E
RL D
RLA
@ -798,7 +798,7 @@ DIV32X8A:
SUB C
INC L
DIV32X8B:
DJNZ DIV32X8A
DJNZ DIV32X8A
RET
;
; FILL MEMORY AT HL WITH VALUE A, LENGTH IN BC, ALL REGS USED
@ -984,19 +984,15 @@ SUB32:
; INCREMENT 32 BIT BINARY AT ADDRESS
;
INC32HL:
PUSH HL
PUSH BC
LD B,4
INC32HL1:
INC (HL)
RET NZ
INC HL
JR NZ,INC32HL2
DJNZ INC32HL1
INC32HL2:
POP BC
POP HL
INC (HL)
RET NZ
INC HL
INC (HL)
RET NZ
INC HL
INC (HL)
RET

Loading…
Cancel
Save