; TIMECL - time addition to command line in TurboDOS
; This is version 1.1
;
; Written : 08-23-84 by S. Kluger
; Updated : 08-25-84 (added station display, made version independent)
; Updated : 01-31-85 (translated for TurboDOS 1.41 8086)
; Updated : 07-04-85 (shrunk)
;
; unserialized for general distribution
;
       MODULE "TIMECL"
;
; The following effect is achieved by integrating TIMECL
; into the SYS file:
;
; Before:
; 0A}
; After:
; [17:23 A] 0A}
;        ^station number
;    ^current time
; use CMDINT + 0X0C = [TIMECL] in .PAR file
;
       LOC     Code#
;
TIMECL::
       MOV     AL,CLBLEN#+5
       OR      AL,AL           ;IF PROMPT INHIBIT...
       JNZ     SKIP            ;...THEN DON'T DISPLAY TIME
       MOV     CL,=10          ;TIME CALL
       CALL    OTNTRY#
       MOV     BX,=TIMST+1
       MOV     AL,DH           ;GET HOURS
       CALL    BYTOUT          ;OUTPUT HOURS
       INC     BX
       MOV     AL,DL           ;GET MINUTES
       CALL    BYTOUT          ;OUTPUT MINUTES
       MOV     CL,=12
       CALL    OCNTRY#
       MOV     AL,DL
       ADD     AL,=0X40
       MOV     STA,AL
       MOV     CL,=9
       MOV     DX,&TIMST
       CALL    OCNTRY#
SKIP:   MOV     CL,=32          ;GET USER CODE
       MOV     DL,=0X0FF
       JMP     OCNTRY#         ;CONTINUE
;
BYTOUT: XOR     AH,AH
       AAM
       XCHG    AH,AL
       OR      AX,=0X3030
       MOV     [BX],AX
       INC     BX
       INC     BX
       RET
;
TIME:   BYTE    0,0,0,0,0
TIMST:  BYTE    "[00:00 "
STA:    BYTE    "A] $"
       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.