home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol075 / stattime.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  4.6 KB  |  245 lines
  1.  
  2.     title    'STATTIME as of April 6, 1982'
  3.  
  4. ; 
  5. ; 
  6. ;  Here  is  an  interesting  "patch"  to  Digital  Research's 
  7. ; STAT.COM, that incorporates a "real time clock display. This 
  8. ; patch  works with STAT.COM for CP/M version 2.2 ONLY.  Merge 
  9. ; it into STAT.COM as follows:
  10. ; 
  11. ;      A>DDT STAT.COM<cr>
  12. ;      NEXT   PC
  13. ;      1580  0100
  14. ;      -ISTATTIME.HEX<cr>
  15. ;      -R<cr>
  16. ;      NEXT   PC
  17. ;      16CD  0000
  18. ;      -^C
  19. ;      A>SAVE 22 STATTIME.COM<cr>
  20. ; 
  21. ;  Now you have a new "STAT" command file called STATTIME.COM, 
  22. ; and it will display the "real time" on every execution...
  23. ; 
  24. ;                         Best regards,
  25. ;           
  26. ;                         Kelly Smith, MP/M-Net (tm) Sysop
  27. ;                         (805) 527-9321 (Modem, 300 Baud)
  28. ;
  29. ;
  30. ;    06/Apr/82    Revised for Godbout System Support 1 clock
  31. ;            by Bill Bolton, Software Tools, Australia
  32. ;
  33. ;    20/Oct/80    Original version by Kelly Smith
  34. ;
  35. ;
  36. ;
  37. bdos    equ    5
  38. pbuf    equ    9
  39.  
  40. stat    equ    433h    ; STAT.COM entry address
  41.  
  42. cr    equ    0dh    ; ASCII carriage return
  43. lf    equ    0ah    ; ASCII line feed
  44.  
  45. true    equ    0ffh
  46. false    equ    not true; define false
  47. clkread    equ    10H
  48. timlen    equ    12
  49.  
  50. gbclkc    equ    08Ah    ; real time clock base port address
  51. gbclkd    equ    gbclkc+1
  52.  
  53.  
  54.     org     0100h
  55.  
  56.     jmp    date
  57.  
  58.     org    1501h    ; version 2.2 stat.com entry address
  59.  
  60. date:    push    psw
  61.     push    b
  62.     push    d
  63.     push    h
  64. start:
  65.     mvi    a,0+clkread
  66.     out    gbclkc
  67.     in    gbclkd
  68.     cpi    0ffh    ; clock board present?
  69.     jz    done1    ; no, just run normally
  70.     call    rtime
  71.     lxi    h,time
  72.     mov    a,m
  73.     cpi    '0'
  74.     jnz    go$on
  75.     mvi    a,' '
  76. go$on:
  77.     sta    day
  78.     inx    h
  79.     mov    a,m
  80.     sta    day+1
  81.     inx    h
  82.     mov    a,m
  83.     sta    month
  84.     inx    h
  85.     mov    a,m
  86.     sta    month+1
  87.     inx    h
  88.     mov    a,m
  89.     sta    year
  90.     inx    h
  91.     mov    a,m
  92.     sta    year+1
  93.     inx    h
  94.     mov    a,m
  95.     sta    hour
  96.     inx    h
  97.     mov    a,m
  98.     sta    hour+1
  99.     inx    h
  100.     mov    a,m
  101.     sta    minutes
  102.     inx    h
  103.     mov    a,m
  104.     sta    minutes+1
  105.     inx    h
  106.     mov    a,m
  107.     sta    seconds
  108.     inx    h
  109.     mov    a,m
  110.     sta    seconds+1
  111. ;
  112. ; test the date, and convert it to four year calendar format
  113. ;
  114.     lxi    d,pdate    ; point to date and time message
  115.     mvi    c,pbuf    ; print buffer function
  116.     call    bdos    ; let CP/M do the work...
  117.     lda    month    ; get high byte of the month
  118.     cpi    '1'    ; in the range of january to september?
  119.     jnz    jansept ; yes
  120.     lda    month+1
  121.     cpi    '0'
  122.     lxi    d,oct    ; October?
  123.     jz    pmonth    ; print, if so
  124.     cpi    '1'    ; november?
  125.     lxi    d,nov
  126.     jz    pmonth    ; print, if so
  127.     lxi    d,dec    ; december.
  128.     jmp    pmonth    ; print it...
  129. ;
  130. jansept:
  131.     lda    month+1    ; it's january to september
  132.     cpi    '1'    ; january?
  133.     lxi    d,jan
  134.     jz    pmonth    ; print, if so
  135.     cpi    '2'    ; february?
  136.     lxi    d,feb
  137.     jz    pmonth    ; print, if so
  138.     cpi    '3'    ; march?
  139.     lxi    d,mar
  140.     jz    pmonth    ; print, if so
  141.     cpi    '4'    ; april?
  142.     lxi    d,apr
  143.     jz    pmonth    ; print, if so
  144.     cpi    '5'    ; may?
  145.     lxi    d,may
  146.     jz    pmonth    ; print, if so
  147.     cpi    '6'    ; june?
  148.     lxi    d,jun
  149.     jz    pmonth    ; print month
  150.     cpi    '7'    ; july?
  151.     lxi    d,jul
  152.     jz    pmonth    ; print, if so
  153.     cpi    '8'    ; august?
  154.     lxi    d,aug
  155.     jz    pmonth    ; print, if so
  156.     lxi    d,sep    ; it's september
  157. pmonth:
  158.     mvi    c,pbuf    ; print buffer function
  159.     call    bdos    ; let CP/M do the work...
  160. done:
  161.     lxi    d,day    ; get the day
  162.     mvi    c,pbuf    ; print buffer function
  163.     call    bdos    ; let CP/M do the work...
  164. done1:
  165.     pop    h
  166.     pop    d
  167.     pop    b
  168.     pop    psw
  169.     jmp    stat    ; now jump into STAT...
  170.  
  171. rtime:
  172.     lxi    h,time        ;Address of time save area
  173.     lxi    d,atable    ;Address of digit table
  174.     mvi    b,timlen/2    ;Number of loops to do
  175. tloop:
  176.     call    rone        ;get digit value
  177.     ani    0fh        ;mask of high nibble
  178.     adi    '0'
  179.     mov    m,a
  180.     inx    h
  181.     call    rone
  182.     ani    0fh
  183.     adi    '0'
  184.     mov    m,a        ;save into table
  185.     inx    h        ;point to next digit
  186.     dcr    b        ;adjust loop count
  187.     jnz    tloop
  188.     ret
  189.  
  190. rone:
  191.     ldax    d        ;Get the digit address
  192.     inx    d        ;Point to next address
  193.     out    gbclkc        ;Output the digit address
  194.     cpi    5+clkread    ;Check for hours 10 digit
  195.     in    gbclkd        ;Get the digit
  196.     rnz            ;If not the hours ten digit
  197.     sui    8        ;Kill the 24 hour bit
  198.     ret
  199. ;
  200. ATABLE:
  201.     DB    8+clkread    ;digit address table
  202.     DB    7+clkread
  203.     DB    10+clkread
  204.     DB    9+clkread
  205.     DB    12+clkread
  206.     DB    11+clkread
  207.     DB    5+clkread
  208.     DB    4+clkread
  209.     DB    3+clkread
  210.     DB    2+clkread
  211.     DB    1+clkread
  212.     DB    0+clkread
  213. ;
  214. ; message buffers
  215. ;
  216.  
  217. time    db    0,0,0,0,0,0,0,0,0,0,0,0
  218. pdate:    db    'Date: $'
  219. month:    ds    2    ; the month
  220. day:    db    'xx, '    ; the day...
  221.     db    '19'
  222. year    db    '80'    ; the year...
  223.     db    '  Time: '
  224. hour:    db    'xx:'    ; the hour...
  225. minutes:db    'xx:'    ; the minute...
  226. seconds:db    'xx'    ; the second...
  227.     db    cr,lf,'$'    ; string delimeter
  228.  
  229. errmsg:    db    cr,lf,'The Clock Board is NOT INSTALLED!',cr,lf,'$'
  230.  
  231. jan:    db    'January $'
  232. feb:    db    'February $'
  233. mar:    db    'March $'
  234. apr:    db    'April $'
  235. may:    db    'May $'
  236. jun:    db    'June $'
  237. jul:    db    'July $'
  238. Aug:    db    'August $'
  239. sep:    db    'September $'
  240. oct:    db    'October $'
  241. nov:    db    'November $'
  242. dec:    db    'December $'
  243.  
  244.     end
  245.