$MONTB - MONTH TABLES FOR DATE 	MACRO M1110  21-AUG-78 21:28  PAGE 3





      1						.TITLE	$MONTB - MONTH TABLES FOR DATE CONVERSION

      2

      3						.IDENT	"X0001"

      4

      5					;

      6					; COPYRIGHT (C) 1976 BY DIGITAL EQUIPMENT CORPORATION,

      7					; MAYNARD, MASSACHUSETTS

      8					;

      9					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A

     10					; SINGLE  COMPUTER  SYSTEM AND MAY BE COPIED ONLY WITH THE IN-

     11					; CLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS  SOFTWARE,  OR

     12					; ANY  OTHER  COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE

     13					; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR  USE  ON  SUCH

     14					; SYSTEM  AND TO ONE WHO AGREES TO THESE LICENSE TERMS.  TITLE

     15					; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL  TIMES  REMAIN

     16					; IN DIGITAL.

     17					;

     18					; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITH-

     19					; OUT  NOTICE  AND  SHOULD NOT BE CONSTRUED AS A COMMITMENT BY

     20					; DIGITAL EQUIPMENT CORPORATION.

     21					;

     22					; DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY  FOR

     23					; THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS

     24					; NOT SUPPLIED BY DIGITAL.

     25					;

     26					; ANDREW C. GOLDSTEIN  16 JUN 76  19:04

     27

     28		000012 				.RADIX	10

     29

     30					;

     31					; TABLE OF ASCII NAMES OF MONTHS

     32					;

     33	000000	   112 	   101 	   116 	$MONTB::.ASCII	"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"

	000003	   106 	   105 	   102

	000006	   115 	   101 	   122

	000011	   101 	   120 	   122

	000014	   115 	   101 	   131

	000017	   112 	   125 	   116

	000022	   112 	   125 	   114

	000025	   101 	   125 	   107

	000030	   123 	   105 	   120

	000033	   117 	   103 	   124

	000036	   116 	   117 	   126

	000041	   104 	   105 	   103

     34					;

     35					; TABLE OF NUMBER OF DAYS IN MONTH (ASSUMES LEAP YEAR).

     36					;

     37	000044	   037 	   035 	   037 	$DAYTB::.BYTE	31,29,31,30,31,30,31,31,30,31,30,31

	000047	   036 	   037 	   036

	000052	   037 	   037 	   036

	000055	   037 	   036 	   037

     38

     39

     40

     41		000001 				.END

$MONTB - MONTH TABLES FOR DATE 	MACRO M1110  21-AUG-78 21:28  PAGE 3-1

SYMBOL TABLE



IIII  = 177777   	$DIDDO= 000000   	$L    = 000000   	$MONTB  000000RG 	$SUPMC= 000043

$DAYTB  000044RG 	$EF$  = 000000   	$L$   = 000000   	$R    = 177777   	$T    = 000000



. ABS.	000000	   000

      	000060	   001

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  11170 WORDS  ( 44 PAGES)

DYNAMIC MEMORY:  12276 WORDS  ( 47 PAGES)

ELAPSED TIME:  00:00:19

EXE$:MONTB,LIS$:MONTB/-SP=SRC$:SMAC/PA:1,DSCPRE,MONTB

