home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / pdp8 / os278-src.tar.Z / os278-src.tar / ccldat.ma < prev    next >
Text File  |  1992-09-18  |  3KB  |  205 lines
  1. /CCLDAT  CCL DATE PROCESSOR
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18. /
  19. /
  20. /
  21. /COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
  22. /
  23. /
  24. /
  25. /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  26. /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  27. /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  28. /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  29. /
  30. /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  31. /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  32. /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  33. /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  34. /
  35. /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  36. /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  37. /DIGITAL.
  38. /
  39. /
  40. /
  41.  
  42.  
  43. /VERSION=V3A (D.H.)
  44. /3    CCL DATE COMMAND
  45.  
  46.     .ENTRY DATE
  47.     .EXTERNAL PRINT,OTOD,PRWD,PRMESG
  48.     .EXTERNAL CRLF,LOOK,CHAIN
  49.     .EXTERNAL YDATE
  50.  
  51.     DATWD=7666
  52.     BATCCL=7777
  53.  
  54.     .RSECT CCLDAT
  55.     FIELD 1
  56.  
  57. DATE,    0
  58.     TAD I (DATWD
  59.     SNA
  60.     JMP NODATE
  61.     DCA DATEM
  62.     TAD DATEM
  63.     CLL RTL
  64.     RTL
  65.     RAL
  66.     AND (17
  67.     DCA TM1
  68.     TAD TM1
  69.     TAD (MONLST-1
  70.     DCA TM2
  71.     TAD I TM2
  72.     DCA 4$
  73.     TAD DATEM
  74.     AND (7
  75.     DCA T$
  76.     CDF 0
  77.     TAD I (BATCCL
  78.     CDF 10
  79.     CLL RTR
  80.     RTR
  81.     AND (30
  82.     TAD T$
  83.     DCA TM2
  84.     TAD TM2
  85.     TAD (70.
  86.     JMS I (OTOD
  87.     DCA YEAR
  88.     TAD DATEM
  89.     CLL RTR
  90.     RAR
  91.     AND (37
  92.     DCA DATEM
  93.     TAD DATEM
  94.     JMS I (OTOD
  95.     DCA DAY
  96.     STL CLA RTL    /2
  97.     TAD TM2
  98.     CLL RTR
  99.     SNL SMA
  100.     JMP 1$
  101.     ISZ I (JAN
  102.     ISZ I (FEB
  103. 1$:    AND (37
  104.     TAD TM2
  105.     TAD (3
  106.     TAD DATEM
  107.     DCA DATEM
  108.     TAD TM1
  109.     TAD (JAN-1
  110.     DCA TM1
  111.     TAD I TM1
  112.     TAD DATEM
  113. 2$:    CLL
  114.     TAD (-7
  115.     SZL
  116.     JMP 2$
  117.     TAD (7
  118.     TAD (WEEKLST
  119.     DCA TM2
  120.     TAD I TM2
  121.     DCA 3$
  122.     STA        /DON'T CRLF AND PRINT IN LOWER CASE
  123.     JMS I (PRINT
  124. 3$:    0
  125.     STA
  126.     JMS I (PRINT
  127.     DAYDAY
  128.     CLA IAC
  129.     JMS I (PRINT
  130. 4$:    0
  131.     STL CLA RAR
  132.     JMS I (PRWD    /SPACE
  133.     TAD DAY
  134.     JMS I (PRWD
  135.     CLA IAC
  136.     JMS I (PRINT
  137.     COM19
  138.     TAD YEAR
  139.     JMS I (PRWD
  140.     JMS I (CRLF
  141.     JMS I (LOOK    /LOOKUP SYS:DATE.SV
  142.     YDATE
  143.     JMP I DATE    /DO NOTHING IF IT'S NOT THERE
  144.     JMP I (CHAIN    /CHAIN TO IT, IF IT'S THERE
  145. T$:    0
  146. NODATE,    JMS I (PRMESG
  147.     NONE
  148. TM1,    0
  149. TM2,    0
  150. DATEM,    0
  151. DAY,    0
  152. YEAR,    0
  153.  
  154. NONE,    TEXT    /NONE/
  155.     PAGE
  156. MONLST,    MON1
  157.     MON2
  158.     MON3
  159.     MON4
  160.     MON5
  161.     MON6
  162.     MON7
  163.     MON8
  164.     MON9
  165.     MON10
  166.     MON11
  167.     MON12
  168. MON1,    TEXT    /JANUARY/
  169. MON2,    TEXT    /FEBRUARY/
  170. MON3,    TEXT    /MARCH/
  171. MON4,    TEXT    /APRIL/
  172. MON5,    TEXT    /MAY/
  173. MON6,    TEXT    /JUNE/
  174. MON7,    TEXT    /JULY/
  175. MON8,    TEXT    /AUGUST/
  176. MON9,    TEXT    /SEPTEMBER/
  177. MON10,    TEXT    /OCTOBER/
  178. MON11,    TEXT    /NOVEMBER/
  179. MON12,    TEXT    /DECEMBER/
  180. COM19,    TEXT    /, 19/
  181.  
  182. WEEKLST,DAY1
  183.     DAY2
  184.     DAY3
  185.     DAY4
  186.     DAY5
  187.     DAY6
  188.     DAY7
  189.  
  190.     .ENABLE ASCII
  191. DAY1,    TEXT    /Satur/
  192. DAY2,    TEXT    /Sun/
  193. DAY3,    TEXT    /Mon/
  194. DAY4,    TEXT    /Tues/
  195. DAY5,    TEXT    /Wednes/
  196. DAY6,    TEXT    /Thurs/
  197. DAY7,    TEXT    /Fri/
  198. DAYDAY,    TEXT    /day /
  199.     .ENABLE SIXBIT
  200.  
  201. JAN,    0
  202. FEB,    3
  203.     4;0;2;5;0;3;6;1;4;6
  204.  
  205.