mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:33:12 -06:00
hbios - optimise INC32HL
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user