mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
Update updater.asm
Display device baud rate
This commit is contained in:
b1ackmai1er
@@ -214,7 +214,7 @@ MENULP: LD DE,$0000 ; ENSURE WE ARE STARTING
|
||||
CP 'V' ; CHECK FOR
|
||||
JP Z,OPTIONV ; VERIFY TOGGLE
|
||||
;
|
||||
CP 'X' ; CHECK FOR
|
||||
CP 'Q' ; CHECK FOR
|
||||
JP Z,FAILUX ; USER EXIT
|
||||
;
|
||||
CP 'R' ; CHECK FOR
|
||||
@@ -235,10 +235,10 @@ MENULP: LD DE,$0000 ; ENSURE WE ARE STARTING
|
||||
CP '2' ; CALCULATE
|
||||
JP Z,OPTION2 ; CRC 1024K FLASH
|
||||
;
|
||||
#IF (XFUDBG)
|
||||
CP '3' ; CALCULATE
|
||||
JP Z,OPTION3 ; CRC FLASH #2
|
||||
;
|
||||
#IF (XFUDBG)
|
||||
CP 'T' ; TEST TIMEOUT
|
||||
JP Z,OPTIONT ; LOOP
|
||||
;
|
||||
@@ -572,20 +572,38 @@ PRTSTR0:LD A,(HL) ; PRINT MESSAGE POINTED TOP HL UNTIL 0
|
||||
INC HL
|
||||
JP PRTSTR0
|
||||
;
|
||||
PRTSTRD:LD A,(HL) ; PRINT MESSAGE POINTED TOP HL UNTIL $
|
||||
CP '$' ; CHECK IF GOT IT?
|
||||
RET Z ; IF MATCH RETURN TO CALLER
|
||||
LD C,A
|
||||
CALL CONOUT ; ELSE PRINT THE CHARACTER
|
||||
INC HL
|
||||
JP PRTSTRD
|
||||
;
|
||||
MENU: CALL COUTON
|
||||
LD HL,msgConsole ; DISPLAY
|
||||
CALL PRTSTR0 ; CONSOLE
|
||||
LD A,(CONDEV) ; DEVICE
|
||||
PUSH AF
|
||||
ADD A,'0'
|
||||
LD C,A
|
||||
CALL CONOUT
|
||||
LD C,' '
|
||||
CALL CONOUT
|
||||
POP AF
|
||||
CALL DISPBAUD
|
||||
;
|
||||
LD HL,msgIODevice ; DISPLAY
|
||||
CALL PRTSTR0 ; SERIAL
|
||||
LD A,(SERDEV) ; DEVICE
|
||||
PUSH AF
|
||||
ADD A,'0'
|
||||
LD C,A
|
||||
CALL CONOUT
|
||||
LD C,' '
|
||||
CALL CONOUT
|
||||
POP AF
|
||||
CALL DISPBAUD
|
||||
;
|
||||
LD HL,msgWriteV ; DISPLAY
|
||||
CALL PRTSTR0 ; VERIFY
|
||||
@@ -600,6 +618,36 @@ MENU1: CALL PRTSTR0
|
||||
CALL PRTSTR0 ; MENU OPTIONS
|
||||
RET
|
||||
;
|
||||
DISPBAUD:
|
||||
PUSH AF
|
||||
LD C,A
|
||||
LD B,$06 ; GET
|
||||
RST 08 ; DEVICE
|
||||
LD A,C ; TYPE
|
||||
POP BC
|
||||
OR A ; EXIT IF
|
||||
RET NZ ; NOT SERIAL
|
||||
;
|
||||
LD C,B ; GET
|
||||
LD B,$05 ; DEVICE
|
||||
RST 08 ; INFO
|
||||
LD A,D
|
||||
;
|
||||
; CALL PRTHEXB
|
||||
BIT 4,A ; CONVERT ; IF X > 15 X=(X-15)*2
|
||||
JR Z,UNDER15 ; DEVICE ; ELSE X=(X*2)-1
|
||||
AND %00001111 ; BAUD
|
||||
INC A ; CODE TO
|
||||
ADD A,A ; TABLE
|
||||
JR WASOVER ; INDEX
|
||||
UNDER15:AND %00001111
|
||||
ADD A,A
|
||||
DEC A
|
||||
WASOVER:;CALL PRTHEXB
|
||||
LD DE,BAUDTBL ; DISPLAY
|
||||
CALL PRTIDXDEA ; BAUD RATE
|
||||
RET
|
||||
;
|
||||
OPTIOND:CALL COUTON ; TURN ON OUTPUT
|
||||
;
|
||||
LD HL,msgConfirm ; CONFIRM
|
||||
@@ -1028,10 +1076,39 @@ CLEAR: DEC B
|
||||
JP NZ,BYTELP
|
||||
LD (CRC),DE
|
||||
LD (CRC+2),HL
|
||||
|
||||
;
|
||||
RET
|
||||
;
|
||||
;======================================================================
|
||||
; PRINT THE nTH STRING IN A LIST OF STRINGS WHERE EACH IS TERMINATED BY $
|
||||
; A REGISTER DEFINES THE nTH STRING IN THE LIST TO PRINT AND DE POINTS
|
||||
; TO THE START OF THE STRING LIST.
|
||||
;======================================================================
|
||||
;
|
||||
PRTIDXDEA:
|
||||
PUSH BC
|
||||
LD C,A ; INDEX COUNT
|
||||
OR A
|
||||
LD A,0
|
||||
; LD (PRTIDXCNT),A ; RESET CHARACTER COUNT
|
||||
PRTIDXDEA1:
|
||||
JR Z,PRTIDXDEA3
|
||||
PRTIDXDEA2:
|
||||
LD A,(DE) ; LOOP UNIT
|
||||
INC DE ; WE REACH
|
||||
CP '$' ; END OF STRING
|
||||
JR NZ,PRTIDXDEA2
|
||||
DEC C ; AT STRING END. SO GO
|
||||
JR PRTIDXDEA1 ; CHECK FOR INDEX MATCH
|
||||
PRTIDXDEA3:
|
||||
POP BC
|
||||
EX DE,HL
|
||||
CALL PRTSTRD ; FALL THROUGH TO WRITESTR
|
||||
; RET
|
||||
;
|
||||
#INCLUDE "decode.asm"
|
||||
;
|
||||
;======================================================================
|
||||
; CALCULATE BANK AND ADDRESS DATA FROM MEMORY ADDRESS
|
||||
;
|
||||
; ON ENTRY DE:HL CONTAINS 32 BIT MEMORY ADDRESS.
|
||||
@@ -1151,17 +1228,18 @@ msgIODevice: .DB CR,LF,"(S) Set Serial Device : ",0
|
||||
msgWriteV: .DB CR,LF,"(V) Toggle Write Verify : ",0
|
||||
msgBegin: .DB CR,LF,"(R) Reboot"
|
||||
.DB CR,LF,"(U) Begin Update"
|
||||
.DB CR,LF,"(X) Exit to Rom Loader"
|
||||
.DB CR,LF,"(Q) Quit to Rom Loader"
|
||||
.DB CR,LF,"(D) Duplicate Flash #1 to #2"
|
||||
.DB CR,LF,"(1) CRC 512K Flash"
|
||||
.DB CR,LF,"(2) CRC 1024K Flash"
|
||||
.DB CR,LF,"(3) CRC Flash chip #2"
|
||||
#IF (XFUDBG)
|
||||
.DB CR,LF,"(H) Select half speed"
|
||||
.DB CR,LF,"(T) Test timeout"
|
||||
.DB CR,LF,"(F) Dump Debug Data"
|
||||
.DB CR,LF,"(E) Erase Flash chip #1"
|
||||
.DB CR,LF,"(Z) Erase Flash chip #2"
|
||||
.DB CR,LF,"(3) CRC Flash chip #2"
|
||||
|
||||
#ENDIF
|
||||
.DB CR,LF,CR,LF,"Select : ",0
|
||||
msgSuccess: .DB CR,LF,CR,LF,"COMPLETED WITHOUT ERRORS ",CR,LF,0
|
||||
@@ -1210,6 +1288,43 @@ DEVICES:
|
||||
.DW $3786 ; A29040B 7
|
||||
LSTDEV: .EQU $
|
||||
;
|
||||
;======================================================================
|
||||
; BOARD RATE TABLE
|
||||
;======================================================================
|
||||
;
|
||||
BAUDTBL:.DB "75$" ; 0 0
|
||||
.DB "150$" ; 1 1
|
||||
.DB "225$" ; 2 16
|
||||
.DB "300$" ; 3 2
|
||||
.DB "450$" ; 4 17
|
||||
.DB "600$" ; 5 3
|
||||
.DB "900$" ; 6 18
|
||||
.DB "1200$" ; 7 4
|
||||
.DB "1800$" ; 8 19
|
||||
.DB "2400$" ; 9 5
|
||||
.DB "3600$" ; 10 20
|
||||
.DB "4800$" ; 11 6
|
||||
.DB "7200$" ; 12 21
|
||||
.DB "9600$" ; 13 7
|
||||
.DB "14400$" ; 14 22
|
||||
.DB "19200$" ; 15 8
|
||||
.DB "28800$" ; 16 23
|
||||
.DB "38400$" ; 17 9
|
||||
.DB "57600$" ; 18 24
|
||||
.DB "76800$" ; 19 10
|
||||
.DB "115200$" ; 20 25
|
||||
.DB "153600$" ; 21 11
|
||||
.DB "230400$" ; 22 26
|
||||
.DB "307200$" ; 23 12
|
||||
.DB "460800$" ; 24 27
|
||||
.DB "614400$" ; 25 13
|
||||
.DB "921600$" ; 26 28
|
||||
.DB "1228800$" ; 27 14
|
||||
.DB "1843200$" ; 28 29
|
||||
.DB "2457600$" ; 29 15
|
||||
.DB "3686400$" ; 30 30
|
||||
.DB "7372800$" ; 31 16
|
||||
;
|
||||
sector4k: .EQU $ ; 32 PACKETS GET ACCUMULATED HERE BEFORE FLASHING
|
||||
;
|
||||
SLACK .EQU (UPD_END - $)
|
||||
|
||||
Reference in New Issue
Block a user