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

Loading…
Cancel
Save