home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBODSG / TIMECL.A < prev    next >
Text File  |  2000-06-30  |  1KB  |  63 lines
  1. ; TIMECL - time addition to command line in TurboDOS
  2. ; This is version 1.1
  3. ;
  4. ; Written : 08-23-84 by S. Kluger
  5. ; Updated : 08-25-84 (added station display, made version independent)
  6. ; Updated : 01-31-85 (translated for TurboDOS 1.41 8086)
  7. ; Updated : 07-04-85 (shrunk)
  8. ;
  9. ; unserialized for general distribution
  10. ;
  11.     MODULE "TIMECL"
  12. ;
  13. ; The following effect is achieved by integrating TIMECL
  14. ; into the SYS file:
  15. ;
  16. ; Before:
  17. ; 0A}
  18. ; After:
  19. ; [17:23 A] 0A}
  20. ;     ^station number
  21. ;    ^current time
  22. ; use CMDINT + 0X0C = [TIMECL] in .PAR file
  23. ;
  24.     LOC    Code#
  25. ;
  26. TIMECL::
  27.     MOV    AL,CLBLEN#+5
  28.     OR    AL,AL        ;IF PROMPT INHIBIT...
  29.     JNZ    SKIP        ;...THEN DON'T DISPLAY TIME
  30.     MOV    CL,=10        ;TIME CALL
  31.     CALL    OTNTRY#
  32.     MOV    BX,=TIMST+1
  33.     MOV    AL,DH        ;GET HOURS
  34.     CALL    BYTOUT        ;OUTPUT HOURS
  35.     INC    BX
  36.     MOV    AL,DL        ;GET MINUTES
  37.     CALL    BYTOUT        ;OUTPUT MINUTES
  38.     MOV    CL,=12
  39.     CALL    OCNTRY#
  40.     MOV    AL,DL
  41.     ADD    AL,=0X40
  42.     MOV    STA,AL
  43.     MOV    CL,=9
  44.     MOV    DX,&TIMST
  45.     CALL    OCNTRY#
  46. SKIP:    MOV    CL,=32        ;GET USER CODE
  47.     MOV    DL,=0X0FF
  48.     JMP    OCNTRY#        ;CONTINUE
  49. ;
  50. BYTOUT:    XOR    AH,AH
  51.     AAM
  52.     XCHG    AH,AL
  53.     OR    AX,=0X3030
  54.     MOV    [BX],AX
  55.     INC    BX
  56.     INC    BX
  57.     RET
  58. ;
  59. TIME:    BYTE    0,0,0,0,0
  60. TIMST:    BYTE    "[00:00 "
  61. STA:    BYTE    "A] $"
  62.     END    
  63.