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

resync

Browse Source
This commit is contained in:
b1ackmai1er
2021-07-10 09:14:59 +08:00
parent 1603556577
commit 1726744650
1 changed files with 10 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
Source/Apps/rtchb.asm
View File

@@ -3,104 +3,24 @@
;==================================================================================================
;
; HBIOS FORMAT = YYMMDDHHMMSS
;
;-----------------------------------------------------------------------------
; GENERIC CP/M STUFF
;
BS .EQU 8 ; BACKSPACE
TAB .EQU 9 ; TABULATOR
LF .EQU 0AH ; LINE-FEED
CR .EQU 0DH ; CARRIAGE-RETURN
CLIARGS .EQU $81
RESTART .EQU $0000 ; CP/M restart vector
BDOS .EQU $0005 ; BDOS invocation vector
FCB .EQU $5C ; Location of default FCB
;
;-----------------------------------------------------------------------------
;
.ORG 100H
;
HBC_START:
LD A,(FCB+1) ; GET FIRST CHAR
CP ' ' ; COMPARE TO BLANK. IF SO NO
JR Z,HBC_ST0 ; ARGUMENTS SO DISLAY TIME AND DATE
;
LD A,(FCB+1) ; GET FIRST CHAR
CP '/' ; IS IT INDICATING AN ARGUMENT
JR NZ,HBC_ST0 ;
;
LD A,(FCB+2) ; GET NEXT CHARACTER
CP 'D' ;
JR NZ,HBC_ST1 ;
;
; /D SET DATE DDMMYY
;
LD B,$21 ; WRITE CLOCK DATA INTO BUFFER
LD HL,HBC_BUF1
RST 08
;
LD HL,FCB+3
;
LD A,(HL)
CP 0
; JP HBC_ST4 ; EXIT IF END OF BUFFER
LD B,6
JP HBC_ST0
;
HBC_ST1:
LD A,(FCB+2) ; GET NEXT CHARACTER
CP 'T' ;
JR NZ,HBC_ST2 ;
;
; /T SET TIME HHMMSS
;
LD B,$21 ; WRITE CLOCK DATA INTO BUFFER
LD HL,HBC_BUF1
RST 08
JP HBC_ST0
;
HBC_ST2:
LD A,(FCB+2) ; GET NEXT CHARACTER
CP 'S' ;
JR NZ,HBC_ST3 ;
;
; /S SET TIME AND DATE
;
JP HBC_ST0
;
HBC_ST3:
;
; UNREGOGNIZED ARGUMENT
;
RET
;
HBC_ST0:
LD B,$20 ; READ CLOCK DATA INTO BUFFER
LD HL,HBC_BUF
LD B,$20 ; READ CLOCK DATA INTO BUFFER
LD HL,HBC_BUF ; DISPLAY TIME AND DATE FROM BUFFER
RST 08
;
#IF (0)
LD A,6
LD DE,HBC_BUF ; DISLAY DATA READ
LD DE,HBC_BUF ; DISLAY DATA READ
; CALL PRTHEXBUF
CALL NEWLINE
#ENDIF
;
CALL HBC_DISP
RET
;
HBC_BUF1:
.DB 099H
.DB 011H
.DB 022H
.DB 008H
.DB 031H
.DB 000H
;
HBC_BUF .FILL 6,0
;
;-----------------------------------------------------------------------------
@@ -167,6 +87,12 @@ HBC_FAIL .DB "ERROR$"
;-----------------------------------------------------------------------------
; GENERIC CP/M ROUTINES
;
BDOS .EQU 5 ;ENTRY BDOS
BS .EQU 8 ;BACKSPACE
TAB .EQU 9 ;TABULATOR
LF .EQU 0AH ;LINE-FEED
CR .EQU 0DH ;CARRIAGE-RETURN
;
; OUTPUT TEXT AT HL
;
PRTSTR: LD A,(HL)