Listing of file='TIME.MAC;05' on disk='vmedia/disasm+mldp-sideB-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 PUSH PSW CALL B2AD CALL CRLF POP PSW RNC MOV C,E INX H MVI A,59 CALL VALNUM PUSH PSW CALL B2AD CALL CRLF POP PSW RNC MOV H,C MOV L,E SHLD MIN CALL SPNOR JZ GOOD MVI A,12 CALL VALNUM RNC MOV C,E INX H MVI A,31 CALL VALNUM RNC MOV L,C MOV H,E SHLD MONTH 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