|
|
|
@ -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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|