home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbodsg / timecl.mac < prev    next >
Encoding:
Text File  |  1986-07-05  |  1.3 KB  |  76 lines
  1. ; TIMECL - time addition to command line in TurboDOS
  2. ; This is version 1.2
  3. ;
  4. ; Written : 08-23-84 by S. Kluger
  5. ; Updated : 08-25-84 (added station display, made version independent)
  6. ;
  7. .z80
  8. ;
  9. ; unserialized for general distribution
  10. ;
  11. ; The following effect is achieved by integrating TIMECL
  12. ; into the SYS file:
  13. ;
  14. ; Before:
  15. ; 0A}
  16. ; After:
  17. ; [17:23 A] 0A}
  18. ;     ^station number
  19. ; use CMDINT + 0C = TIMECL in .PAR file
  20. ;
  21.     cseg
  22. ;
  23.     extrn    ocntry        ;C-funtion entry point
  24.     extrn    otntry        ;T-function entry point
  25.     extrn    clblen        ;a pointer
  26.     public    timecl
  27. ;
  28. timecl:    ld    c,12        ;TD version call
  29.     call    otntry
  30.     ld    a,c
  31.     cp    14h        ;if not 1.4...
  32.     jr    nz,dotime    ;...then do it no matter what
  33.     ld    a,(clblen+9)
  34.     or    a        ;if prompt inhibit...
  35.     jr    nz,skip        ;...then don't display time
  36. dotime:    ld    c,105        ;time call
  37.     ld    de,time        ;work area
  38.     call    ocntry
  39.     ld    hl,timst+1
  40.     ld    a,(time+2)    ;get hours
  41.     call    bytout        ;output hours
  42.     inc    hl
  43.     ld    a,(time+3)    ;get minutes
  44.     call    bytout        ;output minutes
  45.     ld    c,12
  46.     call    ocntry
  47.     ld    a,e
  48.     add    a,'@'
  49.     ld    (sta),a
  50.     ld    c,9
  51.     ld    de,timst
  52.     call    ocntry
  53. skip:    ld    c,32        ;get user code
  54.     ld    e,0ffh
  55.     jp    ocntry        ;continue
  56. ;
  57. bytout:    push    af
  58.     rra
  59.     rra
  60.     rra
  61.     rra
  62.     call    nybout
  63.     pop    af
  64. nybout:    and    0fh
  65.     add    a,'0'
  66.     ld    (hl),a
  67.     inc    hl
  68.     ret
  69. ;
  70.     dseg
  71. ;
  72. time:    db    0,0,0,0,0
  73. timst:    db    '[00:00 '
  74. sta:    db    'A] $'
  75.     end
  76.