Listing of file='TIME.MAC;06' on disk='vmedia/fcs_mods-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; TIME SET/DISPLAY ROUTINE ; ESYN EQU 9 CRLF EQU 338BH SPNOR EQU 3460H LTNOR EQU 347EH PCOLN EQU 34B8H BUFP EQU 8047H MIN EQU 81BAH MONTH EQU 81BCH YEAR EQU 81BEH EXTRN AD2B,B2AD TIME: LXI H,BUFP CALL LTNOR CALL SPNOR CALL LTNOR CALL SPNOR TIM00: JZ DSPTIM RDTIME: MVI B,ESYN MVI A,23 CALL VALNUM RNC MOV C,E INX H MVI A,59 CALL VALNUM RNC PUSH H MOV H,C MOV L,E SHLD MIN POP H CALL SPNOR JZ GOOD MVI A,12 CALL VALNUM RNC MOV C,E INX H MVI A,31 CALL VALNUM RNC PUSH H MOV L,C MOV H,E SHLD MONTH POP H INX H CALL AD2B RNC MOV A,E STA YEAR GOOD: MVI B,0 RET VALNUM: PUSH PSW CALL AD2B RNC POP PSW CMP E CMC RET OK EQU 282DH DSPTIM: MOV D,A LHLD MIN MOV E,H CALL B2AD CALL PCOLN MOV E,L CALL B2AD JMP OK END TIME