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

Update RTC.asm

Browse Source 
Add basic command line support. Commands T)ime, C)harge, N)ocharge , T)ime can now be invoked from the command line and exit. i.e. RTC /T displays time RTC /C turns charge on etc
This commit is contained in:
b1ackmai1er
2020-02-02 20:18:21 +08:00
parent 0ef6074a6b
commit 3a2ef5efdd
1 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Source/Apps/RTC.asm
View File

@@ -23,6 +23,7 @@
;
;[2019/08/11] v1.4 Support SCZ180 platform.
;
;[2020/02/02] v1.5 PMS Basic command line support
;
; Constants
;
@@ -40,6 +41,7 @@ PORT_SCZ180 .EQU $0C ; RTC port for SBCZ180
PORT_EZZ80 .EQU $C0 ; RTC port for EZZ80 (actually does not have one!!!)
BDOS .EQU 5 ; BDOS invocation vector
FCB .EQU 05CH ; Start of command line
BID_BOOT .EQU $00
HB_BNKCALL .EQU $FFF9
@@ -1220,18 +1222,22 @@ IDBIO2:
; Note:above code is not fully in sync with current menu code
RTC_TOP_LOOP:
CALL RTC_RESET_ON
CALL RTC_BIT_DELAY
CALL RTC_BIT_DELAY
CALL RTC_BIT_DELAY
LD A,(FCB+1) ; If there a command line tail
CP '/' ; get the command and feed it
LD A,(FCB+2) ; into the input stream
JR Z,RTC_UCL
LD DE,CRLF_MSG
LD C,09H ; CP/M write string to console call
CALL 0005H
CALL RTC_HELP
CALL RTC_RESET_ON
CALL RTC_BIT_DELAY
CALL RTC_BIT_DELAY
CALL RTC_BIT_DELAY
RTC_TOP_LOOP_1:
LD DE,RTC_TOP_LOOP1_PROMPT
LD C,09H ; CP/M write string to console call
@@ -1239,7 +1245,7 @@ RTC_TOP_LOOP_1:
LD C,01H ; CP/M console input call
CALL 0005H
RTC_UCL:
AND %01011111 ; handle lower case responses to menu
CP 'L'
@@ -1312,6 +1318,9 @@ RTC_TOP_LOOP_CHARGE:
LD C,09H ; CP/M write string to console call
CALL 0005H
CALL RTC_CHARGE_ENABLE
LD A,(FCB+1) ; If we came from the
CP '/' ; command line
RET Z ; exit back to CP/M
JP RTC_TOP_LOOP_1
RTC_TOP_LOOP_NOCHARGE:
@@ -1319,6 +1328,9 @@ RTC_TOP_LOOP_NOCHARGE:
LD C,09H ; CP/M write string to console call
CALL 0005H
CALL RTC_CHARGE_DISABLE
LD A,(FCB+1) ; If we came from the
CP '/' ; command line
RET Z ; exit back to CP/M
JP RTC_TOP_LOOP_1
RTC_TOP_LOOP_START:
@@ -1350,6 +1362,9 @@ RTC_TOP_LOOP_TIME:
LD DE,RTC_PRINT_BUFFER
LD C,09H ; CP/M write string to console call
CALL 0005H
LD A,(FCB+1) ; If we came from the
CP '/' ; command line
RET Z ; exit back to CP/M
JP RTC_TOP_LOOP_1
RTC_TOP_LOOP_RAW:
@@ -1552,7 +1567,7 @@ TESTING_BIT_DELAY_OVER:
RTC_HELP_MSG:
.DB 0Ah, 0Dh ; line feed and carriage return
.TEXT "RTC: Version 1.4"
.TEXT "RTC: Version 1.5"
.DB 0Ah, 0Dh ; line feed and carriage return
.TEXT "Commands: E)xit T)ime st(A)rt S)et R)aw L)oop C)harge N)ocharge D)elay I)nit G)et P)ut B)oot H)elp"
.DB 0Ah, 0Dh ; line feed and carriage return