Trailing-Edge
-
PDP-10 Archives
-
bb-d868e-bm_tops20_v41_2020_dist_1of2
-
4-1-sources/rdmail.mac
There are 20 other files named rdmail.mac in the archive. Click here to see a list.
;<5.UTILITIES>RDMAIL.MAC.3, 28-Oct-81 15:34:47, EDIT BY GRANT
;Change major version to 5
;<4.UTILITIES>RDMAIL.MAC.17, 3-Jan-80 15:26:42, EDIT BY R.ACE
;UPDATE COPYRIGHT DATE
;<4.UTILITIES>RDMAIL.MAC.16, 5-Sep-79 10:21:49, EDIT BY R.ACE
;TCO 4.2441 - FIX MESSAGE TO TELL YOU THE NAME OF THE BAD FILE
;<4.UTILITIES>RDMAIL.MAC.14, 15-Aug-79 16:46:18, Edit by LCAMPBELL
;<4.UTILITIES>RDMAIL.MAC.13, 15-Aug-79 16:42:09, Edit by LCAMPBELL
;<4.UTILITIES>RDMAIL.MAC.12, 15-Aug-79 16:39:26, Edit by LCAMPBELL
;<4.UTILITIES>RDMAIL.MAC.11, 15-Aug-79 16:15:05, Edit by LCAMPBELL
; TCO 4.2402 - Remove code which understands Rel. 1 (binary-header) mail files
;<4.UTILITIES>RDMAIL.MAC.10, 29-May-79 09:40:55, EDIT BY OSMAN
;tco 4.2259 - change /H to /HELP in prompt
;<4.UTILITIES>RDMAIL.MAC.9, 25-May-79 16:38:32, EDIT BY DBELL
;UPDATE THE HELP MESSAGE TO INCLUDE TYPING IN A TIME BY ITSELF.
;<4.UTILITIES>RDMAIL.MAC.8, 27-Apr-79 11:41:18, Edit by LCAMPBELL
; Don't check for ARPA monitor, the distinction is no longer significant
;<4.UTILITIES>RDMAIL.MAC.7, 25-Apr-79 13:52:15, EDIT BY OSMAN
;<4.UTILITIES>RDMAIL.MAC.6, 25-Apr-79 13:51:49, EDIT BY OSMAN
;parse date-time before date or time, so "MAR 10, 79 12" gets interpreted as single entity
;<4.UTILITIES>RDMAIL.MAC.5, 12-Mar-79 14:14:57, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.UTILITIES>RDMAIL.MAC.4, 25-Jan-79 15:59:51, Edit by KONEN
;<4.UTILITIES>RDMAIL.MAC.3, 24-Jan-79 11:04:45, Edit by KONEN
;SET COMPILE TO LOOK IN DSK: FOR CMD.REL, INSTEAD OF SYS: FOR .CTL
;<4.UTILITIES>RDMAIL.MAC.2, 23-Jan-79 16:20:14, Edit by KONEN
;UPDATE VERSION NUMBER FOR RELEASE 4
;<4.UTILITIES>RDMAIL.MAC.1, 19-Dec-78 14:21:04, EDIT BY OSMAN
;EXPAND SWITCH NAMES TO FULL WORDS
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976,1977,1978,1979,1980 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
SEARCH MONSYM,MACSYM,CMD
.REQUIRE SYS:MACREL,CMD
TITLE RDMAIL
SALL
IFNDEF .PSECT,<
.DIRECT .XTABM>
IFDEF .PSECT,<
.DIRECT FLBLST
>
;DEFINE REGISTERS
A==1
B==2
C==3
D==4
W==5
W1==6
W2==7
P==17
;DEFINE VERSION CONSTITUENTS
PRGVER==5 ;VERSION 4
PRGMIN==0 ;MINOR VERSION
PRGEDT==13 ;EDIT NUMBER
PRGCST==0 ;DEC SOFTWARE
;LOCAL STORAGE
STKSIZ==200
STACK: BLOCK STKSIZ
CMDSTG ;COMND JSYS STORAGE
JFN: Z 0 ;JFN OF INPUT FILE
OJFN: BLOCK 1 ;OUTPUT JFN
STOP: Z ; STOP AFTER EACH MESSAGE
PRUSE: Z
MOD: Z 0 ;MESSAGE OF THE DAY FLAG
FILFND: Z 0 ;FILE FOUND FLAG
HLPFLG: 0 ;SAYS HELP WANTED
RLDATE: Z 0 ;FLAG
TIME: Z 0 ;DATE AND TIME TO BEGIN
MESSNO: Z 0 ;INTERNAL MESSAGE COUNTER
THISDT: 0 ;GTAD OF CURRENT TEXT-FORM MSG
BEGM: 0 ;CHAR COUNT AT START OF TEXT MSG
FILLEN: 0 ;EOF POINTER OF FILE
SKIPCH: 0 ;CHAR COUNT OF CURRENT MSG, TEXT FORM
FRMERC: 0 ;FORMAT ERROR MESSAGE COUNTER
BIGSTR==5000 ;BUFFER AREA
BIGBUF==BIGSTR+6 ;START OF BUFFER AREA
BUFSIZ==10000 ;SIZE OF BUFFER AREA
;THE ENTER VECTOR
ENTVEC: JRST START ;MAIN ENTRY
JRST START ;SAME AS MAIN
PRGVER_^D24!PRGMIN_^D18!PRGEDT!PRGCST_^D33
XWD TIME,START2
ENDVEC==. ;END OF ENTRY VECTOR
START: RESET
MOVEI A,.PRIOU ;DEFAULT OUTPUT JFN
MOVEM A,OJFN
MOVE P,[IOWD STKSIZ,STACK]
CALL CMDINI ;INITIALIZE FOR COMND JSYS
CALL CLRSTR ;CLEAR MAP
MOVEI A,.FHSLF ; SEE IF ENABLED
RPCAP ; GET THEM
TRNE C,-1 ; ANY SPECIALS SET?
JRST SPCIAL ; YES. MUST ASK THEN
NOSPC: GJINF ; GET JOB INFORMATION
MOVE B,A ; DIRECTORY NUMBER TO B
DOFILE: MOVE A,[POINT 7,BIGBUF] ;WHERE TO BUILD NAME
PUSH P,B ;SAVE DIR NUMBER
HRROI B,[ASCIZ /PS:</]
SETZ C,
SOUT ;MAKE IT GO TO PS ALWAYS
POP P,B ;RESTORE DIR NUMBER
DIRST ;GET HIS NAME
JFCL
MOVEI C,">" ;GET TERMINATOR
IDPB C,A ;STORE IT
HRROI B,[ASCIZ /MAIL.TXT/] ;THE FILE
SETZ C,
SOUT ;COPY IT
MOVX A,GJ%OLD!GJ%SHT+1 ;ONLY VERSION 1
HRROI B,BIGBUF ; THE NAME BUFFER
GTJFN ;GET IT
JRST [ SETOM FILFND ;NO LOCAL MESSAGE FILE FOUND
JRST GETDAT] ;GO DO SOME PROCESSING
SETZM FILFND ;INDICATE FILE FOUND
MOVEM A,JFN ;SAVE JFN
MOVE B,[1,,.FBREF] ;SAVE LAST READ DTAE
MOVEI C,D ;WHERE IT GOES
GTFDB ;GET IT
MOVEM D,TIME ;SAEV IT IN CASE
;FILE IS NOW OPEN. ASK HIM FOR DATE AND TINM TO START PROCESSING
GETDAT: PROMPT <Date and time (/HELP for help) >
SETZM HLPFLG ;NO HELP REQUEST YET
SETZM RLDATE ;NO REAL DATE YET
SETZM PRUSE ;ASSUME NO PERUSING
SETZM STOP ; ASSUME NO STOPPING
SETZM MOD ;NOT DOING MESSAGE OF THE DAY
MORE1: MOVEI A,[FLDDB. .CMCFM,,,,,[FLDDB. .CMTAD,CM%SDH,CM%IDA!CM%ITM,,,[FLDDB. .CMTAD,CM%SDH,CM%IDA,,,[FLDDB. .CMTAD,CM%SDH,CM%ITM,,,[FLDDB. .CMTAD,,CM%IDA!CM%ITM,,,[FLDDB. .CMSWI,,SWTAB]]]]]]
CALL RFIELD
LDB C,[331100,,(C)] ;SEE WHAT WAS INPUT
CAIE C,.CMTAD ;DATE INPUT?
JRST NODAT1 ;NO
MOVEM B,TIME ;REMEMBER THE TIME TYPED
SETOM RLDATE ;MARK THAT DATE TYPED
JRST MORE1 ;GET MORE OF LINE
NODAT1: CAIE C,.CMSWI ;SWITCH?
JRST NOSWI ;NO
MOVE B,(B) ;GET ENTRY FROM TABLE
CALL (B) ;EXECUTE THE SWITCH
JRST MORE1 ;GET MORE INPUT
SWTAB: %N,,%N
T ALL
T HELP
T LIST
T MESSAGE-OF-THE-DAY,.M
T PERUSE
T STOP
%N==.-SWTAB-1
.LIST: MOVX A,GJ%FOU+GJ%SHT
HRROI B,[ASCIZ /LPT:RDMAIL.OUT/]
GTJFN ;GET OUTPUT JFN
JRST [ HRROI A,[ASCIZ /
?LPT: not available for output
/]
PSOUT
RET] ;IGNORE IT
MOVE B,[070000,,100000]
OPENF ;OPEN LPT
JRST [ HRROI A,[ASCIZ /
?LPT: not available for output
/]
PSOUT
RET] ;GIVE UP
MOVEM A,OJFN ;NEW OUTPUT JFN
RET ;DONE
.PERUS: SETOM PRUSE ;YES. SET THE FLAG
RET
.ALL: SETZM TIME ;YES.
SETOM RLDATE ;AND SAY FOUND A REAL TIME
RET
.STOP: SETOM STOP ;YES REMEMBER THIS
RET
.M: SETOM MOD ;YES. REMEMBER THIS
SKIPE RLDATE ;HAVE A REAL DATE YET?
POPJ P, ;YES. ALL DONE THEN
MOVNI A,5 ;GET CONSOLE TIME FOR THE JOB
RUNTM ;GET IT
GTAD ;GET NOW
IDIV C,B ;GET SECONDS
MUL C,[1B17]
DIVI C,^D<3600*24> ;COMPUTE FRACTIONS OF A DAY
SUB A,C ;COMPUTE LOGIN DATE AND TIME
MOVEM A,TIME ;NEW DEFAULT TIME
POPJ P, ;GO BACK
;READY TO PROCESS THE FILE
NOSWI: SKIPN HLPFLG ;HELP WANTED?
JRST NOSWI1 ;NO
CALL HLPOUT ;YES, PRINT IT
JRST GETDAT ;FLUSH REST OF LINE
NOSWI1: SKIPE MOD ;WANT MESSAGE OF THE DAY?
JRST START2 ;YES. GO DO IT
SKIPE FILFND ;NO. HAVE A LOCAL MESSAGE FILE?
JRST [ HALTF ;NO. STOP THEN
JRST START]
MOVE B,[070000,,200000] ;OPENF BITS
MOVE A,JFN ;THE JFN OF THE MESSAGE FILE
SKIPE PRUSE ;PERUSING?
TXO B,OF%PDT ;YES. SUPPRESS REFERNCE DATE UPDATE
OPENF ;OPEN IT
OPNFAL: JRST [ MOVE D,A ;SAVE ERROR MESSAGE
MOVE A,JFN ;GET FILE JFN
RLJFN ;GET RID OF JFN
JFCL
MOVEI A,101
MOVE B,[400000,,-1]
SETZ C,
CAIE D,OPNX2 ;WAS IT A ZERO LENGTH MAIL FILE?
ERSTR ;NO,LET MONITOR TELL HIM WHAT HAPPENED
JFCL
JFCL
HALTF ;DIE
JRST START] ;AND TRY AGAIN
MOVEI A,.FHSLF
EIR ;TURN ON THE INTERRUPT SYSTEM
SETZM MESSNO ;CLEAR INTERNAL COUNTER
SETOM FRMERC ;NO FORMAT ERROR MESSAGES YET
MOVE A,JFN ; get JFN back
SETO B, ;NOW SELECT EOF
SFPTR ; ..
JRST NODSK
RFPTR ;AND FIND WHERE EOF IS
JRST NODSK
MOVEM B,FILLEN ;UPDATE TO LENGTH OF FILE
MOVEI B,0 ;START OF FILE
SFPTR ;AND MOVE JFN POINTER BACK WHERE IT WAS
JRST NODSK
SETZM BEGM ;SAY AT BEGINING OF FILE
MOVSI B,(IT%AIS) ;REQUIRE SECONDS IN TIME OF MSG
IDTIM ;GET TIME STAMP OF MSG
JRST TXTOLY ;NOT TIME STAMP MUST BE TEXT FILE.
MOVEM B,THISDT ;SAVE DATE/TIME WORD
MOVE A,JFN ;THE JFN OF THE MESSAGE FILE
JRST TXTLP2 ;CONTINUE PROCESSING THIS MESSAGE
TXTLP: MOVSI B,(IT%AIS) ;REQUIRE SECONDS IN TIME OF MSG
IDTIM ;GET TIME STAMP OF MSG
JRST BADFRM ;NOT IN REQUIRED FORMAT
TXTLP1: MOVEM B,THISDT ;SAVE DATE/TIME WORD
TXTLP2: MOVEI C,12 ;NOW CHARACTERS IN DECIMAL
NIN
JRST BADFRM ;NOT IN REQUIRED FORMAT
MOVEM B,SKIPCH ;SAVE NUMBER CHARS IN THIS MSG
HRROI B,BIGSTR ;SCRATCH SPACE
MOVEI C,100 ;MAX OTHER STUFF ON LINE 1
MOVEI D,12 ;QUIT AT END OF LINE
SIN
JUMPE C,BADFRM ;IF READ THAT MUCH, IT'S JUNK.
MOVE B,THISDT ;NOW CHECK THE DATE
CAMGE B,TIME ;MESSAGE NEW ENOUGH TO PRINT?
JRST NXTMS1 ;NO, SKIP IT.
PUSHJ P,COPY ;YES, PUT IT ON OUTPUT FILE
;...
;DO NEXT MESSAGE IF THERE IS ONE
NXTMSG: MOVE A,OJFN ;WAIT IF ON TTY
CAIN A,.PRIOU
DOBE ;WAIT IF ON PRIMARY
NXTMS1: MOVE A,JFN ;THE MAIL FILE
RFPTR ;WHERE ARE WE
JRST NODSK
ADD B,SKIPCH ;ADD THE AMOUNT IN MSG
SFPTR ;MOVE BEYOND THIS MESSAGE
JRST NODSK
MOVEM B,BEGM ;SAVE START OF NEXT MESSAGE
GTSTS ; IF FIND A NULL
TLNE B,1000 ; ..
JRST DONE ;EOF. QUIT.
MOVE B,BEGM ;GET BACK CURRENT POINTER
JRST TXTLP ; get next message
;MORE OF TEXT-FORM MAIL FILE PROCESSING
BADFRM: SETZM SKIPCH ;DON'T TRY TO SKIP THE MSG
HRROI A,[ASCIZ /
%MAIL.TXT File contains undated entries or improper format.
/]
AOSN FRMERC ;PRINT THIS MESSAGE JUST ONCE
PSOUT
MOVE A,JFN ;NOW GO BACK TO START OF THE JUNK
MOVE B,BEGM
SFPTR
JRST NODSK
BADF1: MOVE A,JFN ;NOW GO A LINE AT A TIME
BIN ;CHECK FOR EOF FIRST
JUMPE B,[GTSTS ; IF FIND A NULL
TLNE B,1000 ; ..
JRST DONE ;EOF. QUIT.
JRST BADF1] ;NULL. IGNORE IT.
MOVE A,OJFN ;COPY THE BAD CHAR TO OUTPUT
BOUT
CAIN B,12 ;LINEFEED?
JRST NXTMS1 ;YES. SEE IF CAN PARSE HERE.
JRST BADF1 ;NO, GO ON IN THE JUNK.
NODSK: HRROI A,[ASCIZ /
? Input file is not DSK:
/]
ESOUT
JRST DONE
COPY: SKIPLE STOP ;WANT TO PAUSE?
CALL STOPW ;WAIT FOR GO AHEAD
MOVSI A,(1B0)
ANDCAM A,STOP ;MAKE STOP POSITIVE
MOVE A,OJFN ;WRITE THE CURRENT MESSAGE ON
CAIN A,.PRIOU ;THE OUTPUT FILE.
DOBE
MOVEI C,0 ;GET MESSAGE LENGTH
EXCH C,SKIPCH ;AS A POSITIVE NUMBER
MOVE A,JFN ;GET THE JFN
RFPTR ;GET CURRENT POSITION
JRST NODSK
ADD B,C ;GET END OF MESSAGE
MOVEM B,BEGM ;SAVE IT
SKIPE PRUSE ;PERUSING?
JRST COPYP ;YES
COPY1: MOVE A,JFN ;INPUT
BIN ;GET FIRST CHAR
JUMPE B,COPY4 ;CHECK FOR EOF
MOVE A,OJFN ;PUT THE BYTE ON OUTPUT FILE
BOUT
COPY2: SOJG C,COPY1 ;LOOP FOR ALL N CHARACTERS
POPJ P,0 ;END OF COPY ROUTINE
COPY4: GTSTS ;CHECK FOR EOF AGAIN
TLNE B,1000
JRST [POP P,A ;BYPASS THE RETURN FROM COPY
JRST DONE]
JRST COPY2 ;A NULL IN MESSAGE. SKIP IT.
COPYP: CALL DOPRSE ;GO PERUSE FILE
COPYE: MOVE A,JFN ;GET THE JFN BACK
MOVE B,BEGM ;AND BEGINING OF NEXT MESSAGE
SFPTR
JRST NODSK
POPJ P,0 ;END OF COPY ROUTINE
;HERE TO PRINT FILE THAT IS ALL TEST
TXTOLY: MOVE A,FILLEN ;GET LENGTH OF FILE
MOVEM A,SKIPCH ;SAVE AS LENGTH TO PRINT
CALL COPY ;GO PRINT IT
JRST DONE
;CODE TO DO THE PERUSE OF THE RELEVANT MESSAGES
DOPRSE: HRROI B,BIGBUF ;WHERE THE DATA SHOULD GO
HRRZ A,JFN ;THE FILE ID
MOVEI C,-1 ;LOTS OF BYTES
MOVEI D,12 ;UP TO THE END OF THE LINE
SIN ;DO IT
LDB A,[POINT 7,BIGBUF,6] ;GET FIRST CHARACTER
CAIN A,15 ;NULL LINE
JRST DOPRS1 ;GO FINISH UP
MOVE A,OJFN ;GET OUTPUT JFN
HRROI B,BIGBUF ;WHERE THE DTAT IS
MOVEI C,-1 ;LOTS OF BYTES
MOVEI D,12 ;UP TO THE END OF THE LINE
DOBE
SOUT ;DO IT
JRST DOPRSE ;NO GO DO ANOTHER LINE
DOPRS1: HRROI A,[ASCIZ /
/]
PSOUT ;CLEAN UP THE LINE
DOPRSX: POPJ P, ;RETURN
;THIS IS THE CODE TO PRINT THE HELP MESSAGE
.HELP: SETOM HLPFLG ;SAY HELP WANTED
RET
HLPOUT: HRROI A,HLPTXT
PSOUT
POPJ P, ;ALL DONE HELPING
HLPTXT: ASCIZ ^
Type in a date and time in TOPS-20 format as follows:
MMM DD,YYYY HH:MM
or
MMM DD,YYYY
or
HH:MM
The second case will assume time 00:01, and the last case
will assume today's date. (For example, a valid date and
time is MAR 16,1976 15:30)
or Type an empty line and get all messages since the last
reading of the message file.
/HELP Print this text
/ALL Types all messages in the file
/PERUSE For perusing messages only
/STOP Will cause RDMAIL to pause after each message typed
/MESSAGE-OF-THE-DAY Will use the message of the day file for message type out
/LIST Will output messages to the line printer
^
;ALL DONE
DONE: CLOSF ;CLOSE THE FILE
JFCL
MOVE A,OJFN ;GET OUTPUT JFN
CLOSF ;CLOSE IT
JFCL
HALTF
JRST START ;START OVER
START2: RESET
MOVEI A,.PRIOU ;DEFAULT OUTPUT
MOVEM A,OJFN
SETZM MOD ;ALREADY DOING MESSAGE OF THE DAY
MOVE P,[IOWD STKSIZ,STACK]
HRROI B,[ASCIZ /PS:<SYSTEM>MAIL.TXT/]
MOVSI A,100001 ;GET MESSAGE OF THE DAY FILE
GTJFN ;GET JFN FOR IT
JRST [ HALTF ;NONE THERE. DIE QUIETLY
JRST START] ;TRY AGAIN
MOVEM A,JFN ;SAVE THE HANDLE
SETZM FILFND ;SAY FOUND A MESSAGE FILE
JRST NOSWI ;TIME IS ALL SET UP. GO DO IT
;DO SPECIAL PROCESSING
SPAGN: MOVEI A,.PRIIN
CFIBF ;CLEAR INPUT ON ERROR
SPCIAL: PROMPT <Special user (y or n)? >
MOVEI A,[FLDDB. .CMKEY,CM%SDH,[ 2,,2
T NO,0
T YES,-1],<YES or NO>,NO]
CALL CFIELD ;GET ANSWER
HRRE B,(B) ;GET 0 FOR NO AND -1 FOR YES
JUMPE B,NOSPC ;NOT SPECIAL
;WANTS SPECIAL DIRECTORY. GO READ IT
MOVEI A,.PRIIN
RFCOC ; GET ECHO BITS
TRZ C,3B19
SFCOC
GETDIR: PROMPT <User name: >
MOVEI A,[FLDDB. .CMUSR]
CALL CFIELD ;GET SPECIAL USER
JRST DOFILE
;ROUTINE TO PUT A WORD OUT AS BYTE ON OJFN
PUTWD: MOVE A,OJFN ;OUTPUT JFN
MOVE D,B ;MOVE BYTE
HRROI B,D
MOVNI C,5 ;DO ALL FIVE BYTES
SOUT ;OUPUT TO TTY
EPRNLW: RET
;SUBROUTINE TO WAIT FOR GO AHEAD ON STOP
STOPW: PROMPT <[Type <CR> for more] >
CONFRM ;WAIT FOR CONFIRMATION
POPJ P, ;RETURN
;SUBROUTINE TO CLEAR MAP FOR BIGSTR
CLRSTR: SETO A,
MOVE B,[.FHSLF,,BIGSTR/1000]
SETZ C, ;ONLY ONE PAGE PLEASE
PMAP ;CLEAR MAP
RET ;AND DONE
END <ENDVEC-ENTVEC,,ENTVEC>