#TITLE  "CONTINUOUS TIME DISPLAY"
       #PAGE   132,66
       MODULE  "CTIME"
;
       LOC     Data#
;
TIME:   BYTE    "\r                                    "
HOUR:   BYTE    "00:"
MIN:    BYTE    "00:"
SEC:    BYTE    "00$"
CSEC:   BYTE    0
;
MESS1:  BYTE    "\r\n\n\n$"
;
       ALIGN
       RES     100
STACK   ==      .
;
       LOC     Code#
;
START:  MOV     AX,DS
       MOV     SS,AX
       MOV     SP,&STACK
       MOV     DX,&MESS1
       CALL    PRINTM
LOOP:   MOV     CL,=10
       INT     0XDF
       CMP     CSEC,CH
       JNZ     CVRT
       MOV     CL,=11
       INT     0XE0
       OR      AL,AL
       JZ      LOOP
       MOV     DX,&MESS1
       CALL    PRINTM
       MOV     CL,=0
       INT     0XE0
;
CVRT:   MOV     AL,DH
       CALL    DEC
       MOV     WORD HOUR,AX
       MOV     AL,DL
       CALL    DEC
       MOV     WORD MIN,AX
       MOV     AL,CH
       MOV     CSEC,AL
       CALL    DEC
       MOV     WORD SEC,AX
       MOV     DX,&TIME
       CALL    PRINTM
       JMPS    LOOP
;
DEC:    AAM
       XCHG    AH,AL
       OR      AX,=0X3030
       RET
;
PRINTM: MOV     CL,=9
       INT     0XE0
       RET
;
       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.