MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 22:13:13 -06:00
Code Issues Projects Releases Wiki Activity

UART Config Changes

Browse Source
This commit is contained in:
Wayne Warthen
2016-04-19 15:06:06 -07:00
parent 07d833473c
commit 9e5a1ea41b
10 changed files with 410 additions and 325 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Source/HBIOS/encode.asm
View File

@@ -85,8 +85,8 @@ DECODE9:
;
ENCODE:
; *** MAKE SURE INCOMING VALUE IS NOT ZERO???
CALL ENCODE6 ; TEST DE:HL FOR ZERO
JR Z,ENCODE4 ; IF NOT ZERO, GO TO FAILURE
CALL ENCODE5 ; TEST DE:HL FOR ZERO
JR Z,ENCODE4 ; IF ZERO, FAILURE RETURN
; APPLY ENCODING DIVISOR
CALL DIV32X8 ; DE:HL / C (REMAINDER IN A)
OR A ; SET FLAGS TO TEST FOR ZERO
@@ -118,20 +118,13 @@ ENCODE3:
ENCODE4:
OR $FF ; SIGNAL ERROR
RET ; AND DONE
ENCODE5:
CALL ENCODE6 ; TEST FOR ZERO
RET NZ ; ERROR IF DE:HL NOT ZERO NOW
; RETURN SUCCESS W/ VALUE IN C
XOR A ; SIGNAL SUCCESS
RET ; AND DONE
;
ENCODE6:
; SUBROUTINE TO TEST DE:HL FOR ZERO (SETS ZF, CLOBBERS A)
ENCODE5:
; TEST DE:HL FOR ZERO (SETS ZF, CLOBBERS A)
LD A,H
OR L
RET NZ
LD A,D
OR D
OR E
RET
RET ; RET W/ Z SET IF SUCCESSFUL
;
ENCODE_TMP .FILL 4,0 ; TEMP DWORD VALUE