/ P?S/8 MONITOR DATE COMMAND / LAST EDIT: 08-APR-1987 01:00:00 CJL / ASSEMBLE WITH '/J' SWITCH SET. // EQUATED SYMBOLS FROM THE P?S/8 KEYBOARD MONITOR. BSGRP= 0003 /YEAR BASE GROUP CTCPZAP=2363 /<^C> PRINT ZAP CTCZAP= 2365 /<^C> ZAP GETHAF= 0104 /GET HALF-WORD ROUTINE GETNDX= 0026 /GET HALF-WORD INDEX LINENO= 0062 /NUMERICAL INPUT LNOPRT= 0105 /NUMERICAL PRINT LOOKUP= 0154 /LOOKUP ROUTINE L100= 0006 /CONSTANT 0100 L3= 0005 /CONSTANT 0003 L40= 0046 /CONSTANT 0040 L7= 0177 /CONSTANT 0007 L7600= 0113 /CONSTANT 7600 L7766= 0012 /CONSTANT 7766 MESSAGE=0112 /MESSAGE PRINTING ROUTINE NAME= 0054 /FIND A NAME ROUTINE NAMPRT= 0066 /PRINT SHORT FIELD (NAME) NOTFND= 0722 /LOOKUP FAILURE ROUTINE PBEGIN= 0071 /POINTER TO BEGIN PBUTIO= 0161 /BOOTSTRAP UNIT I/O ROUTINES PRINT= 0107 /7-BIT PRINT PR6BIT= 0047 /6-BIT PRINT PSCRSIZ=0170 /POINTER TO SCRSIZE PUTBASE=0131 /PUT HALF-WORD BASE PUTHAF= 0132 /PUT HALF-WORD ROUTINE PUTNDX= 0060 /PUT HALF-WORD INDEX RADXSW= 0015 /OCTAL/DECIMAL SWITCH SBLOCK= 7635 /SYSTEM LOADER BLOCK ARGUMENT SCRIBR= 1117 /WHERE SCRIBE FLAG IS SDATE= 7610 /SYSTEM DATE WORD SFUN= 7634 /SYSTEM LOADER FUNCTION WORD SWAPIT= 0423 /SWAPPING ROUTINE SWMX= 7605 /SWITCHES /M-/X TABSW= 0074 /TAB SWITCH TAPREC= 0075 /LOOKUP RECORD TCNT1= 0122 /TEMPORARY UNIT= 0000 /UNIT LOCATION UNITIO= 0037 /UNIT-ORIENTED I/O CALL WRITE= 4000 /SYSIO WRITE BIT XGETHAF=0444 /GET HALF-WORD ROUTINE // ADDITIONAL DEFINITIONS. BUFF= 7000 /BUFFER FOR SYSIO MODIFICATION JMPIC= JMP I . /CURRENT PAGE INDIRECT JUMP NL0001= CLA IAC /LOAD AC WITH 0001 NL0002= CLA CLL CML RTL /LOAD AC WITH 0002 NL2000= CLA CLL CML RTR /LOAD AC WITH 2000 NL7777= CLA CMA /LOAD AC WITH 7777 SRINST= JMP I PBEGIN/[BEGIN] /INSTRUCTION DEFINITION PAGE 14 /OVERLAY FILE AREA IFNZRO .&177 DATE= . /DATE SYSTEM STARTS HERE BSGROUP,BSGRP /YEAR GROUP BASE; HERE IN CASE WE'RE CHAINED TO DATBASE,TAD (XGETHAF&177+JMPIC) /MAKE IT DATEMP, DCA I (SWAPIT+11) /COME BACK TO US DATLIMI,TAD (NEXT) /GET OUR ADDRESS DAY, DCA I GETHAF/[XGETHAF] /SET IT UP MONTH, JMP I (SWAPIT) /NOW RELOAD THE MONITOR NEXT, TAD L7766/[-12] /SETUP FOR UDELIM, DCA RADXSW /DECIMAL INPUT YEAR, NL2000 /PRINT OUT IN DCA TABSW /"TAB 0" MODE TAD (NOTFND+1&177+JMPIC) /MAKE IT COME BACK DCA I (NOTFND) /TO US ON BAD MONTH NAMES TAD (BADATE) /GET ERROR ADDRESS DCA I (NOTFND+1) /STASH IT TAD I (CTCZAP) /GET <^C> INSTRUCTION TAD (-SRINST) /COMPARE TO POSSIBLE VALUE SZA CLA /SKIP IF IT MATCHES JMP DATOK /JUMP IF NOT TAD (JMP I L7600/[SBOOT]) /GET BOOTSTRAPPING INSTRUCTION DCA I (CTCZAP) /MAKE IT BOOTSTRAP ON <^C> NL0002 /SET THE "C" BIT MASK AND I PSCRSIZE/[SCRSIZE] /GET THE BIT SZA CLA /SKIP IF OFF DCA I (CTCPZAP) /ELSE PREVENT DOUBLE <^C> DATOK, JMS I GETHAF/[XGETHAF] /GET COMMAND DELIMITER SNA CLA /SKIP IF NOT JMP I (DATE3) /FORGET IT, JUST PRINT THE DATE OUT JMS I LINENO/[XLINENO] /GET FIRST ARGUMENT JMP I (BADATE) /WASN'T VALID DCA MESSAGE /SAVE IT UNTIL WE FIGURE OUT WHAT IT IS! JMS I GETHAF/[XGETHAF] /GET THE DELIMITER CIA /INVERT FOR LATER DCA UDELIM /SAVE USER'S DELIMITER JMS I GETHAF/[XGETHAF] /GET IT BACK TAD (-"/!200) /COMPARE TO "/" SZA /SKIP IF EQUAL IAC /TAD (-".+"/) /COMPARE TO "." SZA /SKIP IF EITHER IAC /TAD (-"-+".) /COMPARE TO "-" SZA CLA /SKIP IF ANY OF THEM JMP I (BADATE) /BARF IF NOT ISZ GETNDX /BUMP PAST DELIMITER JMS I LINENO/[XLINENO] /TRY TO FIND A NUMBER JMP I (TRYLET) /NOT THERE, TRY ALPHABETIC MONTH DCA DAY /SAVE AS THE DAY DECIMAL /MAKE CALCULATIONS EASIER TAD MESSAGE /GET APPARENT MONTH TAD (-12-1) /ADD ON LIMIT CLL /CLEAR LINK FOR TEST TAD (12) /ADD ON RANGE SNL /SKIP IF VALID JMP I (BADATE) /ELSE BARF LETCOM, DCA MONTH /SAVE MONTH VALUE JMS I GETHAF/[XGETHAF]/GET THE DELIMITER TAD UDELIM /COMPARE TO FIRST DELIMITER SZA CLA /SKIP IF SAME JMP I (BADATE) /ELSE BARF ISZ GETNDX /BUMP PAST DELIMITER TAD BSGROUP /GET CURRENT GROUP VALUE CLL RTL;RAL /*8 TAD (1960) /FORM CURRENT BASE YEAR DCA DATBASE /SAVE IT TAD DATBASE /GET IT BACK TAD (11) /ADD ON RANGE CIA /INVERT AND DCA DATLIMIT /SAVE AS LIMIT VALUE JMS I LINENO/[XLINENO]/TRY TO FIND YEAR JMP I (BADATE) /BARF IF BAD DCA DATEMP /SAVE IT FOR NOW TAD DATEMP /GET IT BACK TAD (-100) /COMPARE TO TWO-DIGIT LIMIT SMA CLA /SKIP IF SMALL FORM OF DATE YEAR JMP BGDATE /JUMP IF LONG FORM TAD DATBASE /GET BASE YEAR CIA /INVERT TAD (1900) /FORM NEGATIVE OFFSET TAD DATEMP /ADD ON TWO-DIGIT FORM SPA CLA /SKIP IF GOOD OFFSET TAD (2000-1900) /ELSE BRING INTO GOOD RANGE TAD (1900) /NOW HAVE LONG FORM BASE OF IMPLIED DATE BGDATE, TAD DATEMP /NOW HAVE FULL DATE VALUE TAD DATLIMIT /COMPARE TO LIMIT CLL /CLEAR LINK FOR TEST TAD (11) /ADD ON RANGE SNL /SKIP IF VALID JMP I (BADATE) /JUMP IF BAD DCA YEAR /SAVE AS YEAR TAD YEAR /GET THE YEAR BACK AND L3/[3] /JUST LEAP YEAR BITS SNA CLA /SKIP IF NOT A LEAP YEAR ISZ I (FEBENT) /ALLOW ONE MORE DAY TAD MONTH /GET THE MONTH TAD (JANENT) /ADD ON MONTH LENGTH TABLE ADDRESS DCA MESSAGE /STASH IT TAD DAY /GET THE DAY SNA CLA /SKIP IF NOT ZERO JMP I (BADATE) /ELSE COMPLAIN JMP I (DATE2) /CONTINUE THERE MONCT, -31 /DAYS IN A MAXIMAL MONTH YEARCT, -372 /DAYS IN A YEAR OF MAXIMUM MONTHS K1960= 1960 /CONSTANT NEEDED ELSEWHERE K372= 372 /CONSTANT NEEDED ELSEWHERE OCTAL /RESTORE OCTAL RADIX PAGE TRYLET, TAD MESSAGE /GET FIRST ARGUMENT DCA I (DAY) /ASSUME IT'S THE DAY JMS I NAME/[XNAME] /TRY TO FIND MONTH NAME JMP BADATE /BARF TAD L3/[3] /SETUP THE DCA TCNT1 /BUMP FACTOR DCA TAPREC /CLEAR OFFSET TAD (TXTMON) /GET MONTH TEXT POINTER JMS I LOOKUP/[XLOOKUP]/TRY TO FIND A VALID MONTH CLL RTR;RTR /%16 JMP I (LETCOM) /CONTINUE THERE BADATE, JMS MESSAGE /COMPLAIN OF BDTMSG /BAD DATE! JMP I L7600/[SBOOT] /BYE, BYE! DATE2, TAD I MESSAGE /GET LEGAL LENGTH CMA /INVERT FOR TEST TAD I (DAY) /COMPARE TO DAY GIVEN SMA /SKIP IF OK JMP BADATE /BARF IF NOT TAD I MESSAGE /MAKE IT ORIGIN 0 DCA I (DAY) /SAVE IT BACK / COMPUTE DATEWORD= (YEAR*372)+(MONTH*31)+DAY (ORIGIN 0). TAD I (YEAR) /\ ISZ I (YEARCT) / >CREATE YEAR*372 JMP .-2 // TAD I (MONTH) /\ ISZ I (MONCT) / >ADD ON MONTH*31 JMP .-2 // TAD I (DAY) /ADD ON DAY DCA I (SDATE) /SAVE IT IN SYSIO AREA JMS I PBUTIO/[BUTIO] /READ IN BUFF /I/O IMAGE 1^100 /FOR 0 /ZAPPING TAD I (SDATE) /GET DATE WORD DCA I (SDATE&177+BUFF)/ZAP IT IN JMS I PBUTIO/[BUTIO] /WRITE I/O ROUTINES BUFF /BACK WITH 1^100+WRITE /UPDATED 0 /DATE WORD DCA FEBZAP /PREVENT DOUBLE LEAP YEAR! DATE3, TAD I (SDATE) /GET SYSTEM DATE WORD JMS I (DIVIDE) /DIVIDE CNTMON, 564 /BY 372 DCA I (YEAR) /SAVE AS YEAR OFFSET TAD I (REM) /GET REMAINDER TAD (ANNUNC) /POINT AT TODAYS MESSAGE POINTER DCA TAPREC /SAVE FOR LATER TAD I (REM) /GET REMAINDER JMS I (DIVIDE) /DIVIDE 37 /BY 31 DCA I (MONTH) /SAVE AS MONTH TAD I (REM) /GET REMAINDER DCA I (DAY) /SAVE AS DAY TAD I (YEAR) /GET YEAR BACK AND L3/[3] /JUST LEAP BITS SNA CLA /SKIP IF NOT LEAP YEAR FEBZAP, ISZ I (FEBENT) /**** SETTING DATE **** 0000 TAD I (MONTH) /GET THE MONTH CMA /INVERT FOR COUNTING DCA CNTMON /STASH IT JMP DATLUP /JUMP INTO IT DATBAK, TAD I ENTPTR /GET A PRIOR MONTH'S DAY COUNT ISZ ENTPTR /BUMP TO NEXT DATLUP, ISZ CNTMON /DONE ALL PRIOR MONTHS? JMP DATBAK /NO, KEEP GOING TAD I (DAY) /ADD ON THIS MONTH'S DAY COUNT DCA I LOOKUP/[XLOOKUP]/SAVE IT JMS I GETHAF/[XGETHAF]/GET THE DELIMITER ISZ GETNDX /BUMP PAST TAD (-"+!200) /COMPARE TO "+" SZA CLA /SKIP IF CORRECT JMP I (DATE5) /JUMP IF WRONG DCA PUTNDX /ZERO OUTPUT INDEX TAD I TAPREC /GET OLD MESSAGE ADDRESS SMA CLA /PROTECTED? JMP I (DATE5) /YES TAD I (MFREE) /GET POINTER TO FIRST FREE LOCATION DCA PUTBASE /SAVE WHERE TO GO INTO TAD PUTBASE /SAVE A CYCLE DCA I TAPREC /ZAP TODAY'S ENTRY IN TABLE JMS I GETHAF/[XGETHAF]/\ JMS I PUTHAF/[XPUTHAF]/ \ JMS I GETHAF/[XGETHAF]/ \ ISZ GETNDX / >MOVE THE MESSAGE ISZ PUTNDX / / SZA CLA / / JMP .-6 // TAD PUTNDX /\ IAC / \ CLL RAR / >FIND NEXT AVAILABLE SLOT TAD PUTBASE / / DUDAT2, DCA I (MFREE) // TAD I (SFUN) /\ AND L7/[7] / >GET UNIT NUMBER DCA UNIT // TAD I (SBLOCK) /GET OUR LOAD BLOCK TAD (MFREE&7600-DATE%200) /ADD ON OFFSET DCA I (DTBLOK) /STORE AS BLOCK ARGUMENT JMP I (DUDMORE) /CONTINUE THERE ENTPTR, JANENT /POINTER TO MONTH LENGTH TABLE PAGE DUDMORE,TAD I (MFREE) /\ TAD (-LIMITD) / \ SPA SNA CLA / \IF WE GOT TOO JMP DUDATE / /BIG COMPLAIN JMS MESSAGE / / DTNORM // JMP DATE5 /PRINT IT OUT ANYWAY DUDATE, JMS UNITIO /\ MFREE&7600 / \WRITE IT OUT ONTO LIMITD-MFREE-1&7600%2+100+WRITE / /IT'S ORIGINATOR DTBLOK, .-. // JMP I L7600/[SBOOT] /BOOTSTRAP DATE5, TAD I (YEAR) /GET YEAR TAD L3/[3] /ROUND UP CLL RAR;CLL RAR /%4 TAD I LOOKUP/[XLOOKUP] /ADD DAY TO LEAP DAY COUNT TAD I (YEAR) /ADD ON YEAR TAD I (BSGROUP) /ADD ON TAD I (BSGROUP) /THREE TIMES TAD I (BSGROUP) /GROUP NUMBER JMS DIVIDE /DIVIDE 7 /BY 7 CLA /CLEAN UP TAD REM /GET REMAINDER TAD (DWK) /FORM DAY STRING POINTER JMS PRTFLD /PRINT DAY OF THE WEEK JMS I NAMPRT/[XPRTNAM] /PRINT DAYBLB /"DAY" TAD I (MONTH) /GET MONTH TAD (JAN) /ADD ON MONTH TABLE POINTER JMS PRTFLD /PRINT MONTH TAD L40/[" 6177] /GO PRINT JMS I PRINT/[XPRINT] /A BLANK NL0001 /MAKE IT ORIGIN ONE TAD I (DAY) /GET THE DAY JMS DIVIDE /DIVIDE 12 /BY TEN SNA /ZERO? JMP .+3 /YES, DON'T PRINT IT TAD ("0&177) /MAKE IT A PRINTABLE NUMBER JMS I PRINT/[XPRINT] /PRINT IT TAD REM /GET REMAINDER TAD ("0&177) /MAKE IT PRINTABLE JMS I PRINT/[XPRINT] /PRINT IT TAD (",&177) /GET A COMMA JMS I PRINT/[XPRINT] /PRINT IT TOO TAD L40/[" &177] /GET A BLANK JMS I PRINT/[XPRINT] /PRINT IT TAD I (BSGROUP) /GET THE GROUP NUMBER CLL RTL;RAL /*8 TAD (K1960) /MAKE INTO BASE YEAR TAD I (YEAR) /ADD ON YEAR JMS I LNOPRT/[XLNOPRT]/PRINT IT JMS I PR6BIT/[XPR6BIT]/PRINT A TAD I TAPREC /GET ANNOUNCEMENT ADDRESS CMA /INVERT FOR TEST SNA /ANY MESSAGES TODAY? JMP I L7600/[SBOOT] /NO, BOOTSTRAP CLL CMA RAL /RE-INVERT AND STL RAR /SET AC[0] TO MAKE SURE DCA BLBARG /SAVE IT INLINE JMS MESSAGE /PRINT THE BLURB BLBARG, .-. /OF THE DAY TAD I (SWMX) /GET /M-/X AND L100/[100] /JUST /R SNA CLA /SKIP IF SET JMP I L7600/[SBOOT] /BOOTSTRAP TAD (ANNUNCE) /SETUP DCA TAPREC /POINTER TAD (-K372) /SETUP DCA BLBARG /COUNT ANLOOP, TAD I TAPREC /GET AN ENTRY SPA /PROTECTED? NL7777 /NO DCA I TAPREC /PUT IT BACK ISZ TAPREC /BUMP TO NEXT ISZ BLBARG /DONE YET? JMP ANLOOP /NO, GO BACK TAD (AVAILX) /GET RESET VALUE JMP I (DUDAT2) /GO FINISH IT DIVIDE, .-. /DIVIDING ROUTINE DCA REM /SAVE IN REMAINDER DCA QUO /CLEAR QUOTIENT TAD REM /GET DIVIDEND STL CIA /INVERT FOR TEST SKP /DON'T BUMP FIRST TIME THROUGH DVLOOP, ISZ QUO /BUMP UP QUOTIENT TAD I DIVIDE /ADD ON DIVISOR SNA SZL /OVERFLOW? JMP DVLOOP /NO, GO BACK CIA /INVERT TAD I DIVIDE /FORM REMAINDER DCA REM /SAVE REMAINDER FOR LATER TAD QUO /GET QUOTIENT ISZ DIVIDE /SKIP AROUND ARGUMENT JMP I DIVIDE /RETURN PRTFLD, .-. /PRINT A BLURB FIELD DCA PRTEMP /SAVE BLURB ADDRESS TAD (SZA) /MAKE SCRIBE NOT DCA I (SCRIBR+1) /PRINT CARRIAGE RETURNS TAD I PRTEMP /GET BLURB ADDRESS DCA PRTEMP /SAVE IN LINE JMS MESSAGE /GO PRINT PRTEMP, .-. /THE BLURB JMP I PRTFLD /RETURN REM, .-. /REMAINDER QUO, .-. /QUOTIENT PAGE DECIMAL JANENT, 31 /MONTH LENGTH TABLE FEBENT, 28 /THIS IS 29 IN LEAPING YEARS 31 /MARCH 30 /APRIL 31 /MAY 30 /JUNE 31 /JULY 31 /AUGUST 30 /SEPTEMBER 31 /OCTOBER 30 /NOVEMBER 31 /DECEMBER OCTAL DWK, FRITXT /FRIDAY SATTXT /SATURDAY SUNTXT /SUNDAY MONTXT /MONDAY TUETXT /TUESDAY WEDTXT /WEDNESDAY THUTXT /THURSDAY JAN, JANTXT /MONTH NAME MESSAGES FEBTXT /FEBRUARY MARTXT /MARCH APRTXT /APRIL MAYTXT /MAY JUNTXT /JUNE JULTXT /JULY AUGTXT /AUGUST SEPTXT /SEPTEMBER OCTTXT /OCTOBER NOVTXT /NOVEMBER DECTXT /DECEMBER BDTMSG, TEXT "BAD DATE!" /BLURB FOR BAD DATES DAYBLB, TEXT "DAY ";0 MONTXT, TEXT "MON" TUETXT, TEXT "TUES";0 WEDTXT, TEXT "WEDNES";0 THUTXT, TEXT "THURS" FRITXT, TEXT "FRI" SATTXT, TEXT "SATUR" SUNTXT, TEXT "SUN" DTNORM, TEXT "NO ROOM FOR NEW MESSAGE" JANTXT, TEXT "JANUARY" /COMPLETE NAMES OF THE MONTH FEBTXT, TEXT "FEBRUARY";0 /FEBRUARY MARTXT, TEXT "MARCH" /MARCH APRTXT, TEXT "APRIL" /APRIL MAYTXT, TEXT "MAY" /MAY JUNTXT, TEXT "JUNE";0 /JUNE JULTXT, TEXT "JULY";0 /JULY AUGTXT, TEXT "AUGUST";0 /AUGUST SEPTXT, TEXT "SEPTEMBER" /SEPTEMBER OCTTXT, TEXT "OCTOBER" /OCTOBER NOVTXT, TEXT "NOVEMBER";0 /NOVEMBER DECTXT, TEXT "DECEMBER";0 /DECEMBER TXTMON, TEXT "JAN";0 /SHORT-FORM NAMES OF THE MONTHS TEXT "FEB";0 /FEBRUARY TEXT "MAR";0 /MARCH TEXT "APR";0 /APRIL TEXT "MAY";0 /MAY TEXT "JUN";0 /JUNE TEXT "JUL";0 /JULY TEXT "AUG";0 /AUGUST TEXT "SEP";0 /SEPTEMBER TEXT "OCT";0 /OCTOBER TEXT "NOV";0 /NOVEMBER TEXT "DEC";0 /DECEMBER 0 /THIS ENDS THE LIST MFREE, AVAILX /AVAILABLE MESSAGE / TABLE OF ANNOUNCEMENT MESSAGES FOR JANUARY. ANNUNC, NEWYEAR&3777 /JANUARY 1 -1 /JANUARY 2 -1 /JANUARY 3 -1 /JANUARY 4 -1 /JANUARY 5 -1 /JANUARY 6 -1 /JANUARY 7 -1 /JANUARY 8 -1 /JANUARY 9 -1 /JANUARY 10 -1 /JANUARY 11 -1 /JANUARY 12 -1 /JANUARY 13 -1 /JANUARY 14 -1 /JANUARY 15 -1 /JANUARY 16 -1 /JANUARY 17 -1 /JANUARY 18 LASNER&3777 /JANUARY 19 -1 /JANUARY 20 -1 /JANUARY 21 -1 /JANUARY 22 -1 /JANUARY 23 -1 /JANUARY 24 -1 /JANUARY 25 -1 /JANUARY 26 -1 /JANUARY 27 -1 /JANUARY 28 -1 /JANUARY 29 -1 /JANUARY 30 -1 /JANUARY 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR FEBRUARY. -1 /FEBRUARY 1 -1 /FEBRUARY 2 -1 /FEBRUARY 3 -1 /FEBRUARY 4 -1 /FEBRUARY 5 -1 /FEBRUARY 6 -1 /FEBRUARY 7 -1 /FEBRUARY 8 -1 /FEBRUARY 9 -1 /FEBRUARY 10 -1 /FEBRUARY 11 LINCON&3777 /FEBRUARY 12 -1 /FEBRUARY 13 -1 /FEBRUARY 14 -1 /FEBRUARY 15 -1 /FEBRUARY 16 -1 /FEBRUARY 17 WASHIN&3777 /FEBRUARY 18 -1 /FEBRUARY 19 -1 /FEBRUARY 20 -1 /FEBRUARY 21 -1 /FEBRUARY 22 -1 /FEBRUARY 23 -1 /FEBRUARY 24 -1 /FEBRUARY 25 -1 /FEBRUARY 26 -1 /FEBRUARY 27 -1 /FEBRUARY 28 LEPER&3777 /FEBRUARY 29 -1 /FEBRUARY 30 -1 /FEBRUARY 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR MARCH. -1 /MARCH 1 -1 /MARCH 2 -1 /MARCH 3 -1 /MARCH 4 -1 /MARCH 5 -1 /MARCH 6 -1 /MARCH 7 -1 /MARCH 8 -1 /MARCH 9 -1 /MARCH 10 -1 /MARCH 11 -1 /MARCH 12 -1 /MARCH 13 -1 /MARCH 14 -1 /MARCH 15 -1 /MARCH 16 -1 /MARCH 17 -1 /MARCH 18 -1 /MARCH 19 -1 /MARCH 20 -1 /MARCH 21 -1 /MARCH 22 -1 /MARCH 23 -1 /MARCH 24 -1 /MARCH 25 -1 /MARCH 26 -1 /MARCH 27 -1 /MARCH 28 -1 /MARCH 29 -1 /MARCH 30 -1 /MARCH 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR APRIL. FOOL&3777 /APRIL 1 -1 /APRIL 2 -1 /APRIL 3 -1 /APRIL 4 -1 /APRIL 5 -1 /APRIL 6 -1 /APRIL 7 -1 /APRIL 8 -1 /APRIL 9 -1 /APRIL 10 -1 /APRIL 11 -1 /APRIL 12 -1 /APRIL 13 -1 /APRIL 14 -1 /APRIL 15 -1 /APRIL 16 -1 /APRIL 17 -1 /APRIL 18 -1 /APRIL 19 -1 /APRIL 20 -1 /APRIL 21 -1 /APRIL 22 -1 /APRIL 23 -1 /APRIL 24 -1 /APRIL 25 -1 /APRIL 26 -1 /APRIL 27 -1 /APRIL 28 -1 /APRIL 29 -1 /APRIL 30 -1 /APRIL 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR MAY. -1 /MAY 1 -1 /MAY 2 -1 /MAY 3 -1 /MAY 4 -1 /MAY 5 -1 /MAY 6 -1 /MAY 7 -1 /MAY 8 -1 /MAY 9 -1 /MAY 10 -1 /MAY 11 -1 /MAY 12 -1 /MAY 13 -1 /MAY 14 -1 /MAY 15 -1 /MAY 16 -1 /MAY 17 -1 /MAY 18 -1 /MAY 19 -1 /MAY 20 -1 /MAY 21 -1 /MAY 22 -1 /MAY 23 -1 /MAY 24 -1 /MAY 25 -1 /MAY 26 -1 /MAY 27 -1 /MAY 28 -1 /MAY 29 MEMORY&3777 /MAY 30 -1 /MAY 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR JUNE. -1 /JUNE 1 -1 /JUNE 2 -1 /JUNE 3 -1 /JUNE 4 -1 /JUNE 5 -1 /JUNE 6 -1 /JUNE 7 -1 /JUNE 8 -1 /JUNE 9 -1 /JUNE 10 -1 /JUNE 11 -1 /JUNE 12 -1 /JUNE 13 FLGDAY&3777 /JUNE 14 -1 /JUNE 15 -1 /JUNE 16 -1 /JUNE 17 -1 /JUNE 18 -1 /JUNE 19 -1 /JUNE 20 -1 /JUNE 21 -1 /JUNE 22 -1 /JUNE 23 -1 /JUNE 24 -1 /JUNE 25 -1 /JUNE 26 -1 /JUNE 27 -1 /JUNE 28 -1 /JUNE 29 -1 /JUNE 30 -1 /JUNE 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR JULY. -1 /JULY 1 -1 /JULY 2 -1 /JULY 3 FOURTH&3777 /JULY 4 -1 /JULY 5 -1 /JULY 6 -1 /JULY 7 -1 /JULY 8 -1 /JULY 9 -1 /JULY 10 -1 /JULY 11 -1 /JULY 12 -1 /JULY 13 BASTIL&3777 /JULY 14 -1 /JULY 15 -1 /JULY 16 -1 /JULY 17 -1 /JULY 18 -1 /JULY 19 -1 /JULY 20 -1 /JULY 21 -1 /JULY 22 -1 /JULY 23 -1 /JULY 24 -1 /JULY 25 -1 /JULY 26 -1 /JULY 27 -1 /JULY 28 -1 /JULY 29 -1 /JULY 30 -1 /JULY 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR AUGUST. -1 /AUGUST 1 -1 /AUGUST 2 -1 /AUGUST 3 -1 /AUGUST 4 -1 /AUGUST 5 -1 /AUGUST 6 -1 /AUGUST 7 -1 /AUGUST 8 -1 /AUGUST 9 -1 /AUGUST 10 -1 /AUGUST 11 -1 /AUGUST 12 -1 /AUGUST 13 -1 /AUGUST 14 -1 /AUGUST 15 -1 /AUGUST 16 -1 /AUGUST 17 -1 /AUGUST 18 -1 /AUGUST 19 -1 /AUGUST 20 -1 /AUGUST 21 -1 /AUGUST 22 -1 /AUGUST 23 -1 /AUGUST 24 -1 /AUGUST 25 -1 /AUGUST 26 -1 /AUGUST 27 -1 /AUGUST 28 -1 /AUGUST 29 -1 /AUGUST 30 -1 /AUGUST 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR SEPTEMBER. -1 /SEPTEMBER 1 -1 /SEPTEMBER 2 -1 /SEPTEMBER 3 -1 /SEPTEMBER 4 -1 /SEPTEMBER 5 -1 /SEPTEMBER 6 -1 /SEPTEMBER 7 -1 /SEPTEMBER 8 -1 /SEPTEMBER 9 -1 /SEPTEMBER 10 -1 /SEPTEMBER 11 -1 /SEPTEMBER 12 -1 /SEPTEMBER 13 -1 /SEPTEMBER 14 -1 /SEPTEMBER 15 -1 /SEPTEMBER 16 -1 /SEPTEMBER 17 -1 /SEPTEMBER 18 -1 /SEPTEMBER 19 -1 /SEPTEMBER 20 -1 /SEPTEMBER 21 -1 /SEPTEMBER 22 -1 /SEPTEMBER 23 -1 /SEPTEMBER 24 -1 /SEPTEMBER 25 -1 /SEPTEMBER 26 -1 /SEPTEMBER 27 -1 /SEPTEMBER 28 -1 /SEPTEMBER 29 -1 /SEPTEMBER 30 -1 /SEPTEMBER 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR OCTOBER. -1 /OCTOBER 1 -1 /OCTOBER 2 -1 /OCTOBER 3 -1 /OCTOBER 4 -1 /OCTOBER 5 -1 /OCTOBER 6 -1 /OCTOBER 7 -1 /OCTOBER 8 -1 /OCTOBER 9 -1 /OCTOBER 10 -1 /OCTOBER 11 COLMBS&3777 /OCTOBER 12 -1 /OCTOBER 13 -1 /OCTOBER 14 -1 /OCTOBER 15 -1 /OCTOBER 16 -1 /OCTOBER 17 -1 /OCTOBER 18 -1 /OCTOBER 19 -1 /OCTOBER 20 -1 /OCTOBER 21 -1 /OCTOBER 22 -1 /OCTOBER 23 -1 /OCTOBER 24 -1 /OCTOBER 25 -1 /OCTOBER 26 -1 /OCTOBER 27 -1 /OCTOBER 28 -1 /OCTOBER 29 -1 /OCTOBER 30 HALOWN&3777 /OCTOBER 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR NOVEMBER. -1 /NOVEMBER 1 -1 /NOVEMBER 2 -1 /NOVEMBER 3 -1 /NOVEMBER 4 -1 /NOVEMBER 5 -1 /NOVEMBER 6 -1 /NOVEMBER 7 -1 /NOVEMBER 8 -1 /NOVEMBER 9 -1 /NOVEMBER 10 -1 /NOVEMBER 11 -1 /NOVEMBER 12 -1 /NOVEMBER 13 -1 /NOVEMBER 14 -1 /NOVEMBER 15 -1 /NOVEMBER 16 -1 /NOVEMBER 17 -1 /NOVEMBER 18 -1 /NOVEMBER 19 -1 /NOVEMBER 20 -1 /NOVEMBER 21 -1 /NOVEMBER 22 -1 /NOVEMBER 23 -1 /NOVEMBER 24 -1 /NOVEMBER 25 -1 /NOVEMBER 26 -1 /NOVEMBER 27 -1 /NOVEMBER 28 -1 /NOVEMBER 29 -1 /NOVEMBER 30 -1 /NOVEMBER 31 / TABLE OF ANNOUNCEMENT MESSAGES FOR DECEMBER. -1 /DECEMBER 1 -1 /DECEMBER 2 -1 /DECEMBER 3 -1 /DECEMBER 4 -1 /DECEMBER 5 -1 /DECEMBER 6 -1 /DECEMBER 7 -1 /DECEMBER 8 -1 /DECEMBER 9 -1 /DECEMBER 10 SIDNEY&3777 /DECEMBER 11 -1 /DECEMBER 12 -1 /DECEMBER 13 -1 /DECEMBER 14 -1 /DECEMBER 15 -1 /DECEMBER 16 -1 /DECEMBER 17 -1 /DECEMBER 18 -1 /DECEMBER 19 -1 /DECEMBER 20 -1 /DECEMBER 21 -1 /DECEMBER 22 -1 /DECEMBER 23 -1 /DECEMBER 24 XMAS&3777 /DECEMBER 25 -1 /DECEMBER 26 -1 /DECEMBER 27 -1 /DECEMBER 28 -1 /DECEMBER 29 -1 /DECEMBER 30 -1 /DECEMBER 31 NEWYEAR,TEXT "HAPPY NEW YEAR!" LASNER, TEXT "HAPPY BIRTHDAY CHARLIE!" LINCON, TEXT "HAPPY BIRTHDAY LINCOLN!" WASHIN, TEXT "HAPPY BIRTHDAY WASHINGTON! " LEPER, TEXT "LEAP YEAR DAY! " FOOL, TEXT "APRIL FOOL'S DAY!" MEMORY, TEXT "MEMORIAL DAY!" FLGDAY, TEXT "FLAG DAY!" FOURTH, TEXT "INDEPENDENCE DAY!" BASTIL, TEXT "BASTILLE DAY!" COLMBS, TEXT "COLUMBUS DAY!" HALOWN, TEXT "HAVE A HAPPY HALLOWEEN!" SIDNEY, TEXT "HAPPY BIRTHDAY, SIDNEY!" XMAS, TEXT "MERRY CHRISTMAS! " AVAILX= . /AVAILABLE FOR NEW MESSAGES ZBLOCK 5400-. /EMPTY SPACE LIMITD= . /LAST WORD TO USE $ /THAT'S ALL FOLK!