Trailing-Edge
-
PDP-10 Archives
-
BB-4172G-BM
-
language-sources/syserr.mac
There are 64 other files named syserr.mac in the archive. Click here to see a list.
TITLE SYSERR -- SYSTEM ERROR FILE PROCESSOR -- MAINLINE CODE
SUBTTL VERSION 14(1267) K. COYE/ RLD/ PJB/ ES/ TJW/ LWE/ SRL/ GSK
;COPYRIGHT (C) 1972,1975,1977,1978,1979 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
SEARCH SYRUNV
SEARCH SYRLOW ;LOW SEG DEFINITIONS
.REQUIRE SYRLIB
;DUMALL -- DUMMY MACRO LEVEL 3
;SUBMACRO DUMXXX
;ARGS
;NONE USED TO HOUSE LEVEL 2 SUBMACRO DUMXXX
;THOSE DEFINED HERE ARE THOSE FULLY PROCESSED BY
;THIS SEGMENT. PART OF EDIT #120.
;EXTERNALS DEFINED HERE ARE IN SYRLIB.MAC, THE LIBRARY
;OF COMMON ROUTINES FOR ALL PARTS OF THE SYSERR PACKAGE.
EXTERNAL HEADRD,ABORT,CHRCHK,DATECK,FILERR,TOOBIG,MBCHAR
EXTERNAL CNISUM,BADNAM,MASSVM,DEVCHK,ERRINT,SKIPIT,IDCHK
EXTERNAL STRCHK,DETCHK,DMPENT,HDRLST,PAGXCD,DVCHAR,TMCHAR
EXTERNAL SAYDAY,GETNBS,.OCTLE,.DECML,.ASCIE,.SIXBT,JSYSER
EXTERNAL .HAFWD,.SPECL,.HTIME,.PPNWW,.ODECW,.UDATE,.TASCI,.PPNWT
EXTERNAL .TDIRW,R5VSIX,MONVER,BADADD,TAB031,TYPAST,BLDPTR
EXTERNAL ACLST,SAVE4P,RET4P,HWDUMP,TYPBCD,LSTEB,JFLOOP,CNIDCD
EXTERNAL XORTAB,BITLST,.DVTAB,.MXBLK,.TRBLK,.SUBLK,.SECBK
EXTERNAL WDCNT,COMPAR,SKPRTN,TYPNBS,TITLST,SKIPWD,ADVBFF
EXTERNAL FIXBUF,STBUFF,INPWD,GOSUM,GETWD,FFPRNT,SLPRNT,CLPRNT,TAPPOS
EXTERNAL TBPRNT,CHROUT,TTYSIX,MDECHR,FIXNAM,ONLLOG,DUMPOS,DSKPOS
;INTERNALS DEFINED HERE ARE FOR USE BY SYRLIB
INTERNAL KONMSK,KLEDMP,MINERB,DEVDSP,MASLTH,ALLTBL
INTERNAL NAMLTH,TYPMES,LINE,ALLLTH,NAMTBL,DUMDAY
INTERNAL DEVTYP,ERINDX,PCSTBL,PDLPNT,BITCHK,ERRLTH
INTERNAL MASNAM,ERRTBL,SUMUPD,MDE000
INTERNAL FE$NAM,BLTTAB
.JBVER==137
LOC .JBVER
BYTE (3)VWHO(9)VSYSER(6)VMINOR(18)VEDIT
SALL
TWOSEG
LOWBEG: ;LOW SEGMENT WILL RESIDE HERE
RELOC 400000
;SOME DUMMY VALUES ARE DEFINED HERE TO MAKE THE PACKAGE
;COMPILE CORRECTLY. THEY SHOULD NEVER BY CALLED
;PART OF EDIT 301.
MDE000:
BLTTAB:
FE$NAM:
SUBTAB:
BITCHK:
DEVTYP:
ERINDX:
KLEDMP:
LINE:
TYPMES: BLOCK 1 ;TO GIVE A LITTLE SPACE
;START -- MAINLINE PROGRAM CODE BEGINS HERE
;SETS UP DEFAULT FILE ARGUEMENTS
;INITIALIZES PUSHDOWN LIST
;CLEARS WORKING STORAGE LOCATIONS
START: JFCL ;EDIT 106
RESET
SETZ F, ;CLEAR STATUS AC
TLO F,F.LSUM ;INITIALIZE TO GIVE SUMMARY BY DEFAULT
MOVE P,PDLPNT ;SETUP PUSHDOWN POINTER
MOVEI T1,TENEND
MOVE T2,T1 ;SAVE WHAT WE ASKED FOR
CORE T1,200000
HALT ;CAN'T GET THAT MUCH??
HRRM T2,.JBFF## ;SETUP NEW JOB DATA AREA VALUE
;START EDIT [1217] - DO AWAY WITH 'FULSEG'
MOVE T1,[XWD INPBLK,INPBLK+1] ;SETUP
SETZM INPBLK
MOVE T2,.JBREL ;CLEAR THE DYNAMIC TABLE AREA TOO [1234]
BLT T1,0(T2) ;CLEAR STORAGE
MOVE T1,[XWD 112,11] ;SETUP
GETTAB T1, ;CHECK WHICH MONITOR WE ARE UNDER
JRST .+3 ;TOPS-10 PRE 507
CAIN T1,40000 ;TOPS-20?
SETOM TOPMON ;YES! - (-1 MEANS UNDER TOPS-20)
;END EDIT [1217]
MOVEM 11,OVRBLK ;EDIT #120-SAVE IN SIXBIT THE DEVICE
;WE CAME FROM FOR FUTURE GETSEGS.
MOVEM 7,OVRBLK+4 ;[147]SAVE P,PN TOO
SKIPN 11 ;BUT IF 0 WAS STORED FOR TOPS20
PUSHJ P,DEVFIX ;GO AND SUBSTITUTE A UNIT
MOVEM 7,OVRBLK+4 ;[147] SAVE P,PN TOO
MOVE T1,[XWD FLGST,FLGST+1] ;SETUP TO INITIALIZE SWITCH STORAGE LOCATIONS TO -1
SETOM FLGST
BLT T1,FLGND ;ALL NOW = -1
MOVE T1,[XWD INPSPC,INPBLK] ;SETUP TO XFER DEFAULT FILE ARGS
BLT T1,BLTEND ; DO IT!
SKIPN TOPMON ;TOPS-20?
JRST SYSINF ;NO-DON'T CHANGE DEFAULTS
MOVE T1,T20DEV ;GET NEW DEFAULT
MOVEM T1,INPBLK+1 ;AND STORE IT
;FALL INTO SYSINF ROUTINE
;SYSINF -- ROUTINE TO GET SYSTEM INFORMATION
;DATE,DAYTIME
SYSINF: SKIPE TOPMON ;TOPS-20?
JRST T20INF ;YES
MOVE T1,[XWD 53,11] ;GET RTODAYS DATE
GETTAB T1, ;IN UNIV FORMAT
FATAL <CAN'T GET TODAY'S DATE??>
HLRZ T1,T1 ;DATE PORTION INTO RH
MOVEM T1,.DATE ;STORE IT AWAY
MSTIME T1, ;GET TIME OF DAY IN MS
DIVI T1,^D1000 ;CONVERT TO SECONDS
MOVEM T1,.TIME ;SAVE IT
JRST INICHR ;
;INICHR -- ROUTINE TO INITIALIZE THE ENTRY CHARACTERISTICS TABLE
INICHR: MOVE T1,[XWD ENTCHR,ENTCHR+1]
HRLZI T2,E.LSUM ;DEFAULT TO LIST SUMMARY ONLY
MOVEM T2,ENTCHR
BLT T1,CHREND ;E.LSUM BIT SET THROUGHOUT TABLE
PUSHJ P,DIALOG ;GO TALK TO USER
PUSHJ P,SETDAT ;GO SEE IF USER TYPED /BEFORE OR /AFTER
;FALL INTO FILACT ROUTINE
JRST FILACT
;HERE SUBSTITUTE A DEV NAME FOR TOPS20 TO FIND NEXT HIGH SEG
DEVFIX: MOVE T1,[SIXBIT/SYS/]
MOVEM T1,OVRBLK ;A LOCATION FOR OVERLAY SPECS.
SETZM OVRBLK+4 ;NO SAVED P,PN
POPJ P,0 ;GO BACK
T20INF: GTAD ;GET TOPS20 INTERNAL DATE/TIME AT GMT
MOVE T2,T1
HLRZ T1,T1 ;SAVE DATE ONLY
MOVEM T1,.DATE ;STORE IT
HRRZ T1,T2 ;NOW SECONDS SINCE MIDNIGHT
MOVEM T1,.TIME ;SAVE IT TOO
JRST INICHR ;NOW CONTINUE
;FILACT -- ROUTINE TO PERFORM PRELIMINARY FILE ACTIVITY
;DOES OPEN FOR INPUT, OUTPUT DEV
;DOES LOOKUP FOR INPUT FILE
;DOES ENTER FOR OUTPUT FILE
;DEFAULTS
;DEVICE-DSK
;FILE-INPUT-ERROR.SYS
; -OUTPUT-ERROR.LST
;PPN-USERS OWN
FILACT: TRNE F,F.NOW ;IF ON-LINE LOGGING GO DO SETUPS
JRST ONLLOG ;[713-TJW] WAIT FOR ERRORS, NOTHING OPENED.
OPEN INPCHN,INPBLK ;OPEN INPUT DEV SPECIFIED IN DIALOG
JRST [ WARN <CAN'T OPEN INPUT DEVICE>
JRST START ]
OPEN OUTCHN,OUTBLK ;OPEN OUTPUT DEV SPECIFIED IN DIALOG
JRST [ WARN <CAN'T OPEN OUTPUT DEVICE>
JRST START ]
MOVEI T1,INPCHN ;SETUP FOR DEVCHR CALL
DEVCHR T1,
TLNN T1,DV.DSK ;IS IT A DISK
JRST SHRTLK ;NO DO SHORT LOOKUP
LONGLK: LOOKUP INPCHN,INPFIL ;LOOK FOR ERROR FILE (DEFAULT IS ERROR.SYS)
JRST [ WARN <LOOKUP ERROR ON INPUT FILE>
JRST START ]
TLO F,F.DISK ;REMEMBER IT WAS A DISK
MOVE T1,I.EXT ;(107) GET CURRENT EXT.
MOVEM T1,CUREXT ;AND SAVE IT
MOVE T1,INPFIL+.RBTIM ;GET CREATION TIME/DATE
MOVEM T1,FILDAT ;SAVE IT
JRST DOENTR ;NOW GO DO ENTER
SHRTLK: LOOKUP INPCHN,INPFIL+2 ;FUDGE SHORT LOOKUP
;NOTE THAT PPN WAS PUT IN .RBSIZ
;TO ALLOW THIS
JRST [ WARN <LOOKUP ERROR ON INPUT FILE>
JRST START ]
SETZ T1,
LDB T1,[POINT 12,INPFIL+4,35] ;GET LOW DATE
LDB T2,[POINT 3,INPFIL+3,20] ;GET HIGH DATE.
DPB T2,[POINT 3,T1,23] ;MERGE AND THEN
HRLZ T1,T1 ;MOVE IT TO LH OF T1.
LDB T2,[ POINT 11,INPFIL+4,23] ; GET TIME IN MIN.
MUL T2,[^D60*^D1000] ;CONVERT TO MSEC.
HRR T1,T2 ;PUT IT IN RH OF T1.
MOVEM T1,FILDAT ;PUT IT AWAY SO AS TO SATISFY
;DOENTR: !!
DOENTR: ENTER OUTCHN,OUTFIL ;GET READY FOR OUTPUT LISTING
JRST [ WARN <ENTER ERROR ON OUTPUT FILE>
JRST START ]
;NOW CLEAR THE LOGICAL NAME DEFINITION FOR TOPS20
TRNE F,F.REM ;/REMOTE?[417]
PUSHJ P,REMENT ;INIT FIRST BLOCK
SKIPN TOPMON ;IF NOT TOPS20 RUNNING
JRST HEADRD ;LEAVE NOW
MOVEI T2,[ASCIZ/QAP/] ;PNTR TO NAME
HRLI T2,-1
SETZB T1,T3 ;CODE TO REMOVE ONE LOG. NAME FROM JOB
;WITH NO NEW DEFINITION
CRLNM ;REMOVE THE NAME
WARN <CANNOT CLEAR LOGICAL NAME FOR 'SYSTEM'??>
JRST HEADRD ;NOW DO SOME PROCESSING
;ADDED WITH [417] TO WRITE FIRST WORD
REMENT: OUT OUTCHN, ;DUMMY TO SET BUFFERS
HRLZI T1,<ER.OFF>B26 ;OFFSET CODE TO LEFT HALF
HRRI T1,1 ;START AT NEXT WORD
IDPB T1,OBUFF+1 ;PUT FIRST WORD INTO BUFFER
POPJ P,0 ;RETURN
;DIALOG -- SUBROUTINE TO PROVIDE FOR DIALOG WITH USER
;TO OBTAIN THE FOLLOWING INFO:
;INPUT DEV,FILENAME,EXT,PPN
;OUTPUT DEV,FILENAME,EXT,PPN
;SELECTIVE LISTING CONTROL SWITCHES
;THE SCAN.MAC ROUTINES ARE USED TO DO THE ACTUAL STRING
;SCANNING AND WILL LEAVE INFO IN THE INPUT SPECIFICATIONS
;AND OUTPUT SPECIFICATIONS BLOCK OF THIS PROGRAM
;CHANGED WITH EDIT 225
DIALOG: TLO F,F.TTYO ;SAY ALL OUTPUT TO TTY TILL FURTHER NOTICE
MOVEI T1,CHROUT ;INIT TYPEOUT ROUTINE
PUSHJ P,.TYOCH##
SKIPE ONEPAS ;[225]BEEN HERE ONCE?
JRST STATBK ;[225]YUP [730]
SETOM ONEPAS ;DONT COME BACK
TYPEIT <
FOR HELP, TYPE "/HELP">
MOVE T1,[XWD IARGLN,IARGST] ;SETUP POINTER OF LENGTH,,ADDRESS
;POINTING TO ARG BLOCK FOR .ISCAN
PUSHJ P,.ISCAN ;INITIALIZE SCAN FOR INFO PICKUP
;START EDIT [730]
;SCAN COMMAND STRING & CHECK FOR /KLSTAT SWITCH
STATBK: PUSHJ P,.TCRLF ;CR
MOVE T1,[XWD TARGLN,TARGST] ;SETUP POINTER SAME AS ABOVE FOR .TSCAN
PUSHJ P,.TSCAN ;GO DO THE ACTUAL STRING SCAN
; FOR CUSP TYPE COMMAND STRING
SKIPE TOPMON ;TOPS-20 RUNNING?
JRST STATBL ;YES! - SKIP TOPS-10 TEST
SETO T1,
CAMN T1,KLSTAT ;TYPED /KLSTAT ?
JRST SETINB ;NO! - OK
WARN <CAN NOT USE KLSTAT UNDER TOPS-10>
JRST START ;START OVER
STATBL: MOVE T1,KLSTAT ;GET SWITCH VALUE
CAMN T1,[-1] ;TYPED /KLSTAT ?
JRST SETINP ;NO! - EXECUTE COMMAND
CAME T1,[SIXBIT /ON/] ;TURN IT ON ?
JRST STATOF ;NO! - TEST FOR OFF
MOVEI T1,.SFSTS ;SET SMON FUNCTION
SETO T2, ;ENABLE!
SMON ;DO IT
ERCAL JSYSER ;ERROR ? [737]
JRST START ;GET ANOTHER COMMAND LINE
STATOF: CAME T1,[SIXBIT /OFF/] ;TURN IT OFF ?
JRST STATBD ;NO! - BAD ARGUMENT
MOVEI T1,.SFSTS ;SET SMON FUNCTION
SETZ T2, ;DISABLE!
SMON ;DO IT
ERCAL JSYSER ;ERROR ? [737]
JRST START ;GET ANOTHER COMMAND LINE
STATBD: WARN <ILLEGAL ARGUMENT TO KLSTAT SWITCH>
JRST START ;START OVER
;END EDIT [730]
;LETS UPDATE THE DEFAULT INFO PLACED IN LOOKUP
;AND INIT BLOCKS EARLIER WITH THE BLT
SETINP: MOVEI T2,[ASCIZ/QAP/] ;PNTR TO NAME
MOVEI T3,[ASCIZ/PS:<SYSTEM>/] ;PNTR TO DEFINITION
MOVEI T1,4 ;CODE TO CREATE A LOGICAL NAME FOR JOB
HRLI T2,-1
HRLI T3,-1
CRLNM ;MAKE ASSIGNMENT
FATAL <CANNOT CREATE TOPS-20 LOGICAL NAME FOR 'SYSTEM'??>
SETINB: SKIPE T1,I.EXT+2 ;NONZERO=GO CHECK FOR DEVICE
PUSHJ P,SETFIX ;GO DIDDLE
SKIPE T1,I.DEV ;PICKUP INPUT DEVICE, SKIP IF ZERO
MOVEM T1,INPBLK+1
JUMPN T1,SETIN1
MOVE T1,IDVFLT
SKIPE TOPMON ;TOPS20 RUNNING?
MOVE T1,[SIXBIT/QAP/] ;CHANGE THE DEFAULT INPUT DEVICE
MOVEM T1,I.DEV
SETIN1: SKIPE T1,I.NAM ;FILENAME LIKEWISE
MOVEM T1,INPFIL+.RBNAM
JUMPN T1,SETIN2
MOVE T1,IFLFLT
MOVEM T1,I.NAM
SETIN2: SKIPN T1,I.EXT ;EXTENSION
JRST SETIN3 ;NO EXTENSION WAS TYPED
HLLZM T1,INPFIL+.RBEXT ;STORE EXTENSION
JRST GETIPP
SETIN3: MOVE T1,IEXFLT
MOVEM T1,I.EXT
GETIPP: SKIPE T1,I.DIR ;PPN FOR INPUT
MOVEM T1,INPFIL+.RBPPN
MOVEM T1,INPFIL+.RBSIZ ;DUMMY TO ALLOW SHORT LOOKUP
;AT INPFIL+2
;NOW DO SAME FOR OUTPUT SPECIFICATIONS
SETOUT: SKIPE T1,O.DEV ;PICKUP OUTPUT DEVICE, SKIP IF ZERO
MOVEM T1,OUTBLK+1
CAMN T1,[SIXBIT/TTY/] ;[1221]OUTPUT TO TTY?
TRO F,F.TTY ;[1221]YES. REMEMBER THAT.
JUMPN T1,SETOU1
MOVE T1,ODVFLT
MOVEM T1,O.DEV
SETOU1: SKIPE T1,O.NAM ;FILENAME LIKEWISE
MOVEM T1,OUTFIL
JUMPN T1,SETOU2
MOVE T1,OFLFLT
MOVEM T1,O.NAM
SETOU2: SKIPN T1,O.EXT ;EXTENSION
JRST SETOU3 ;NO EXTENSION WAS TYPED
HLLZM T1,OUTFIL+1 ;STORE EXTENSION
JRST GETOPP
SETOU3: MOVE T1,OEXFLT
MOVEM T1,O.EXT
GETOPP: SKIPE T1,O.DIR ;PPN FOR OUTPUT
MOVEM T1,OUTFIL+3
MOVE T1,[-1] ;INITIAL VALUE OF DEV
CAME T1,DEV ;DD USER SPECIFY /DEV
TLO F,F.DEV ;YES LITE THE BIT
CAME T1,NDEV ;[325] "/NDEV:"?
TRO F,F.NDEV ;YUP
CAME T1,ENTRY ;[731]/ENTRY?
TRO F,F.ENT ;YES
CAME T1,OCTAL ;[1146]/OCTAL
TRO F,F.OCT ;[1146]YUP
CAME T1,REMOTE ;[417]/REMOTE?
PUSHJ P,REMFIX ;YUP
CAME T1,ID ;DID USER SAY /ID:?
TLO F,F.ID ;YUP.
CAME T1,STR ;/STR?
TLO F,F.STR
CAME T1,DETAIL
TLO F,F.DET
CAMN T1,BRIEF ;/BRIEF ? [724]
JRST SWNOW ;NO! - SKIP SET-UP
TRO F,F.BRF
MOVEI T2,OUTSIZ ;SETUP BUFFER SIZE
MOVEM T2,OUTCNT
MOVE T2,[POINT 7,OUTBUF] ;SETUP BUFFER POINTER
MOVEM T2,OUTBYT
MOVEI T2,BRIEF ;SETUP PAGE WIDTH
MOVEM T2,CHRCNT
SWNOW: CAME T1,NOW
TRO F,F.NOW
CAME T1,RETRY ;EDIT 126
TLO F,F.TRY ;USER SAID /RETRY:
CAME T1,SEQ ;/SEQ:?
TRO F,F.SEQ ;YES
SETZM SEQIND ;SWITCHES HAVE BEEN STORED, CURRENT OFFSET IS
;IS SET TO ZERO NOW
skipl all ;[1264] /all ?
pjrst setswr ;[1264] yes, zero swe,sre
MOVEI T1,SREDEF ;GET DEFAULT VALUE OF SRE
MOVEI T2,SWEDEF ;AND SWE IN CASE USER DIDNT SPECIFY.
SKIPGE SRE ;ALREADY SETUP?
MOVEM T1,SRE ;NO USE DEFAULT
SKIPGE SWE ;WHAT ABOUT SWE?
MOVEM T2,SWE ;NO GET DEFAULT.
POPJ P, ;RETURN
setswr: setzm sre ;[1264] make sre 0 for /all
setzm swe ;[1264] make swe 0 for /all
popj p, ;[1264] return
;[417]
REMFIX: PUSH P,T1 ;SAVE T1
TRO F,F.REM ;SET THE FLAG IN F
MOVE T1,[SIXBIT/DAT/] ;NEW FILE XT
MOVEM T1,OUTFIL+1
MOVEI T1,13 ;MODE 13-IMAGE BINARY
MOVEM T1,OUTBLK ;CHANGE FOR OPEN UUO
POP P,T1 ;RESTORE T1
POPJ P,0 ;AND RETURN
SETFIX: MOVE T1,I.EXT+1 ;GET WHAT SCAN DID
TLNN T1,400000 ;ON=NO DEV SPEC'D
POPJ P,0 ;SOMETHING THERE ALREADY
SKIPE I.DIR ;[316]P,PN CALLED OUT?
MOVSI T1,'DSK' ;YES,CHANGE DEF. DEVICE
SKIPN I.DIR ;END [316]
MOVE T1,[SIXBIT/SYS/]
SKIPE TOPMON ;TOPS20 RUNNING?
MOVE T1,T20DEV ;YES,CHANGE DEFAULT INPUT DEVICE
MOVEM T1,I.DEV ;FIX IT
POPJ P,0
;HERE IS THE DUMMY PROCSB FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERB.HGH
PROCSB: MOVE T1,[SIXBIT/SYSERB/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSB
;HERE IS THE DUMMY PROCSC FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERC.HGH
PROCSC: MOVE T1,[SIXBIT/SYSERC/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSC
;HERE IS THE DUMMY PROCSD FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERD.HGH
PROCSD: MOVE T1,[SIXBIT/SYSERD/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSC
;HERE IS THE DUMMY PROCSA FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERA.HGH
PROCSA: MOVE T1,[SIXBIT/SYSERA/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSA
PROCSN: MOVE T1,[SIXBIT/SYSERN/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSA
;;;;REMOVED BY EDIT 713-TJW
;;;;HOW /NOW WOULD BE DONE WAS RETHOUGHT
;;;;PROCSI: MOVE T1,[SIXBIT/SYSERI/]
;;;; MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
;;;; SETZ 15,
;;;; MOVEM 17,SAVEAC+17
;;;; MOVEI 17,SAVEAC
;;;; BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
;;;; JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSA
;SETDAT -- SUBROUTINE TO LOOK AT /END AND /BEGIN
;SWITCHES AND CONVERT THEM TO START AND END DATE
;CALL PUSHJ P,SETDAT
;
;RETURN CALL+1
;BOTH BEGIN AND END ARE INITIALIZED TO -1 FOR SCAN USE
;STDATE=0 OR VALUE OF /BEGIN SWITCH IF TYPED
;ENDATE=377777,,-1 OR VALUE OF /END IF TYPED
;IF USER DOES NOT SPECIFY TIME CUTOFF ASSUME 00:00 HRS.
;USES T1-T4
;[EDIT 214] CHANGES LOCAL TIME TO GMT TIME IF UNDER TOPS20.
SETDAT: TLZ F,F.DATE ;ASSUME NO DATE CONSTRAINTS DEFAULT
SETZM STDATE ;ZAP
SKIPGE T1,END ;CHECK FOR /END SWITCH
MOVE T1,[377777777777] ;NONE TYPED-SAY ETERNITY IS CUTOFF
;THESE TWO LINES REMOVED WITH EDIT [741] - SPR #20-11775
; TRNN T1,-1 ;DID USER SPECIFY TIME CUTOFF AS WELL
; HRRI T1,-1 ;NO-SAY 2400 FOR HIM TO ALLOW ALL DAY AS GOOD
MOVEM T1,ENDATE ;STORE AS CUTOFF DATE
SKIPL T2,BEGIN ;/SINCE SPECIFIED
;-1 SAYS NO SWITCH WAS STORED
MOVEM T2,STDATE ;STORE AS STARTING DATE
CAMN T1,[377777777777] ;DID USER TYPE /END?
SKIPL BEGIN ;SKIP IF NO /BEGIN SPECIFIED
TLO F,F.DATE ;SAY WE SAW A TIME SWITCH
SKIPN TOPMON ;TOPS20 RUNNING?
POPJ P,0 ;NO,LEAVE NOW
SKIPGE END ;/END SPECIFIED?
JRST SETDA1 ;NO
SETOM T2
SETZB T3,T4
ODCNV ;GET CURRENT TIME
MOVE T2,ENDATE
TLNE T4,1B19 ;[306]DAYLIGHT SAVINGS?
SUBI T2,25252 ;YES SUB 1 HOUR
LSH T4,14
ASH T4,-36
IMULI T4,25252 ;ONE HOURS WORTH
ADD T2,T4
MOVEM T2,ENDATE
SETDA1: SKIPGE BEGIN ;/BEGIN SPECIFIED?
POPJ P,0 ;NO-LEAVE NOW
SETOM T2
SETZB T3,T4
ODCNV ;GET CURRENT TIME
MOVE T2,STDATE ;[306]
TLNE T4,1B19 ;DAYLIGHT SAVINGS?
SUBI T2,25252 ;YES,SUB 1 HOUR
LSH T4,14
ASH T4,-36
IMULI T4,25252 ;ONE HOURS WORTH
ADD T2,T4
MOVEM T2,STDATE
POPJ P, ;RETURN
SUBTTL SCAN RELATED SUBROUTINES
;DEFINP,DEFOUT -- SUBROUTINES TO SETUP PARAMETERS FOR INPUT AND OUTPUT
;CALL PUSHJ P,DEFXXX FROM SCAN CODE
;
;RETURN CALL +1
;RETURNS TO SCAN WITH T1=START OF AREA T2=LENGTH OF AREA
;USES T1,T2
DEFINP: MOVEI T1,I.ST ;PICKUP ADDRESS OF START OF INPUT AREA
MOVEI T2,I.LNGH ;PICKUP LENGTH OF INPUT AREA
POPJ P,
DEFOUT: MOVEI T1,O.ST ;SAME AS ABOVE FOR OUTPUT AREA
MOVEI T2,O.LNGH
POPJ P,
;CLRFLG -- SUBROUTINE TO CLEAR SWITCH FLAG STORAGE LOCATIONS
;CALL PUSHJ P,CLRFLG FROM SCAN
CLRALL: MOVE T1,[XWD FLGST,FLGST+1]
SETOM FLGST ;SCAN LIKES -1 TO INITIALIZE
BLT T1,FLGND
MOVE T1,[XWD I.ST,I.ST+1] ;SETUP TO CLEAR INPUT FILE SPEC BLOCK
SETZM I.ST
BLT T1,I.END
MOVE T1,[XWD O.ST,O.ST+1] ;SAME FOR OUTPUT
SETZM O.ST
BLT T1,O.END ;ZAP OUTPUT FILE SPEC AREA
POPJ P, ;RETURN TO SCAN CODE
;SETSWT -- SUBROUTINE CALLED BY SCAN TO HANDLE BIT SETTING
;IN ENTCHR TABLE AS A RESULT OF USER SWITCHES
;CALL PUSHJ P,SETSWT FROM SCAN CODE
;
;RETURN CALL+1
;SETS BITS IN ENTCHR TABLE AS SPECIFIED BY BYTES FOUND
;AT @BYTDSP(ERROR CODE)
;BYTES ARE GROUPED INTO LIST ALL,NXM CAUSED,PAR CAUSED,PER CAUSED
;PERFORMANCE CAUSED,SUMMATION
;BYTE FIELDS ARE DELIMITED WITH 77
SETSWT: TLO F,F.OSUM ;EDIT 211-WE GOT HERE ONLY IF USER
;SAID /MASALL, ETC AND DID NOT USE
;DEFAULT OF /ALLSUM. SEE REVISION
;HISTORY AND SYSERR DOCUMENTATION.
PUSH P,T1 ;SAVE T1
PUSH P,T2 ;LIKEWISE
HRRZ T1,T2 ;PICKUP FLAG ADDRESS
SUBI T1,FLGST ;SUBTRACT STARTING ADDRESS OF FLAGS
;RESULT IS OFFSET OF SWITCH IN TABLE
CAILE T1,FLGSTP ;DO WE WISH TO SET BITS IN ENTCHR FOR THIS SWITCH ?
JRST DONE ;NO - JUST LET SCAN STORE IT
HRRM T2,SWITCH ;[321]SAVE ADDRESS IN LOW SEG OF THIS SW
;VALUE FOR BIT CHECKING ROUTINES
;WHILE WE'RE HERE LET'S SETUP THE DEFAULT OUTPUT
;FILE NAME TO THAT /CPUALL OR /DSKPAR ETC THE USER
;JUST TYPED INSTEAD OF ERROR.LST
MOVE T3,SWTABN(T1) ;THAT'S A NAME TABLE IN SIXBIT
MOVEM T3,OUTFIL ;THAT'S THE FILE NAME IN SIXBIT
MOVSI T2,441100 ;SETUP FOR 11 BITS
HRR T2,BYTDSP(T1) ;SETUP TO LOOK AT BYTX WHERE X IS INDEX INTO SWITCH TABLE
HRLZI T4,E.LALL ;SET E.LALL BIT IN MASK
ALLCHK: ILDB T3,T2 ;PICKUP BYTE FROM BYTXXX
JUMPE T3,ALLCHK ;IGNORE IT
CAIN T3,777 ;READY TO GO TO E.LNXM CHECK
JRST NXMCHK ;YES DISPATCH
IORM T4,ENTCHR(T3) ;LIGHT THE BIT
JRST ALLCHK ;BACK FOR MORE
NXMCHK: HRLZI T4,E.LNXM ;SET THE E.LNXM BIT IN MASK
NXMCON: ILDB T3,T2
JUMPE T3,NXMCON
CAIN T3,777 ;READY TO GO TO PARCHK
JRST PARCHK
IORM T4,ENTCHR(T3) ;LIGHT THE E.LNXM BIT IN ENTRY CHAR WORD
JRST NXMCON ;MORE
;FALL INTO PARCHK ROUTINE
PARCHK: HRLZI T4,E.LPAR ;SET THE E.LPAR BIT IN MASK
PARCON: ILDB T3,T2
JUMPE T3,PARCON
CAIN T3,777 ;READY TO DO PERCHK?
JRST PERCHK ;YES
IORM T4,ENTCHR(T3) ;LIGHT THE LITE
JRST PARCON ;LOOP
PERCHK: HRLZI T4,E.LPER ;LIGHT THE E.LPER BIT IN MASK
PERCON: ILDB T3,T2
JUMPE T3,PERCON
CAIN T3,777 ;READY FOR SUMCHK
JRST SUMCHK ;YES
IORM T4,ENTCHR(T3) ;LITE THE BIT IN ENTCHR TABLE
JRST PERCON ;LOOP
SUMCHK: HRLZI T4,E.LSUM
SUMCON: ILDB T3,T2
JUMPE T3,SUMCON ;IGNORE
CAIN T3,777 ;FINI??
JRST DONE ;YES EXIT
IORM T4,ENTCHR(T3) ;SET THE BIT
TLO F,F.LSUM ;SAY SOME SUMMARY WAS REQUESTED
JRST SUMCON
DONE: POP P,T2 ;RESTORE T2
HRRZ T3,T2
CAIN T3,SEQ ;[532]=/SEQ?
JRST SEQBLD ;YES ,STORE ARGUEMENT
POP P,T1 ;SAME
AOS (P) ;SKIP RETURN TO MAKE SCAN STORE FLAG
POPJ P, ;BACK TO SCAN
;P3 HOLDS ARGUEMENT FROM SCAN
SEQBLD: SKIPG P3 ;NEGATIVE?
JRST SEQBD1 ;YUP!
MOVE T1,SEQIND ;GET NEXT INDEX TO SEQTAB
MOVEM P3,SEQTAB(T1) ;STORE ARGUEMENT
AOS T1
MOVEM T1,SEQIND
CAIL T1,SEQMAX ;EXCEEDED MAX WE SUPPORT?
JRST SEQWRN
SETZM SEQ ;WE SAW ONE
POP P,T1 ;RESTORE T1 TO BE SAFE
POPJ P,0 ;NON-SKIP TO SCAN SAYS DONT STORE
SEQWRN: WARN% <MORE THAN >
MOVEI T1,SEQMAX ;GET MAX
TLO F,F.TTYO ;SAY OUTPUT TO TTY
PUSHJ P,.TDECW
TRNN F,F.TTY ;[1221]DON'T CLEAR IF OUT DEV IS TTY
TLZ F,F.TTYO ;BACK TO OUTPUT FILE
WARN.CR < SEQUENCE NUMBERS GIVEN FOR ARGUEMENT>
JRST START
;HERE TO HANDLE NEGATIVE NUMBERS
;INDICATES RANGE OF NEXT 'N' NUMBERS
SEQBD1: MOVE T1,SEQIND ;NEXT INDEX
MOVE T3,SEQTAB-1(T1) ;GET PREVIOUS VALUE
SEQBD2: AOS T3
MOVEM T3,SEQTAB(T1)
AOS T1
CAIL T1,SEQMAX ;EXCEEDED MAX?
JRST SEQWRN ;YUP!
AOJL P3,SEQBD2 ;DO MORE?
MOVEM T1,SEQIND ;STORE NEXT INDEX VALUE
POP P,T1 ;RESTORE
POPJ P,0 ;RETURN TO SCAN
;SUMUPD -- SUBROUTINE TO AUTOMATICALLY UPDATE ALL PERMANENT
;SUMMARY COUNTERS PRIOR TO SUMMARY LISTING
;A DUMMY MACRO DUMFLG IS USED TO GENERATE
;THE NECESSARY CODE AS FOLLOWS
;SKIPE T1,XXXTMP ;PICKUP TEMP COUNTER
;ADDM T1,XXXPER ;INCREMENT PERM COUNTER
;DO NEXT COUNTER SAME.......
;modified by edit #110
DEFINE TBLFLG(A)<
setz t1,
exch t1,a'TMP
ADDM T1,A'PER
>
;NOW THE ACTUAL CODE GENERATION
; XLIST
SUMUPD: DUMFLG
LIST
;NOW GENERATE THE SOFTWARE SUMMARY COUNTERS UPDATE
;also modified by edit #110
DEFINE DUMDV(A)<
ZZ==0
REPEAT NUMSFB,<
setz t1,
exch t1,a'ST+zz
ADDM T1,A'SP+ZZ
ZZ==ZZ+1
>>
; XLIST
; DUMDP
; DUMFH
; DUMRP
LIST
XLIST
DUMDP
DUMFH
DUMRP
LIST
POPJ P, ;RETURN
SUBTTL STORAGE LOCATIONS
T20DEV: SIXBIT/QAP/ ;DEFAULT FOR TOPS20 INPUT DEVICE
INPSPC: EXP 13
SIXBIT/SYS/
XWD 0,IBUFF
OUTSPC: EXP 0
SIXBIT/DSK/
XWD OBUFF,0
ERRFIL: XWD 0,35
Z
SIXBIT/ERROR/
SIXBIT/SYS/
BLOCK 32
LSTFIL: SIXBIT/ERROR/
SIXBIT/LST/
Z
Z
;HERE IS THE CODE WHICH WILL BE BUT INTO THE LOW SEG
;AND WILL BE CALLED TO OVERLAY HIGH SEGMENTS.
;EDIT #120
HRLZI T1,1 ;GET RID OF
CORE T1, ;CURRENT HIGH SEG
HALT ;CAN'T DECREASE CORE!!!???
SETZM .JBSYM ;TO ALLOW DDT TO WORK
SETZM .JBUSY ;WHILE DEBUGGING VARIOUS HIGH
;SEGMENTS. PUT A BREAKPOINT
;AT ROUTINES WHICH CALL OVRLAY
;THEN SET BREAKPOINT AT THE
;RETURN FROM THE GETSEG AND OPEN
;THE NEW SYMBOL TABLE
;AND CONTINUE DEBUGGING.
MOVEI T1,OVRBLK ;SPEC BLOCK SETUP BY OUR CALLER
GETSEG T1,
HALT ;STD ERROR MESSAGES ARE OK
MOVE 17,400006 ;GET NEW SYMBOL TABLE ADDR
MOVEM 17,116 ;AND STORE IT FOR DDT SINCE DDT
;CAN'T SEEM TO GET IT RIGHT!!
HRLZI 17,SAVEAC ;COPY BACK
BLT 17,17 ;THE AC'S
SKIPN 15 ;[314]MAY ALREADY HOLD RETURN ADDRESS
HRRZ 15,400000 ;THAT'S THE START OF THE NEW SEG
JRST @15 ;NOW GO THERE
;HERE LIES THE ^C TRAP INTERCEPT CODE TO BE MOVED INTO THE LOWSEG.
CCCBLK: XWD 4,CCTRAP
XWD 0,ER.ICC
Z
Z
TRPCOD: HLRZ T3,INTBLK+.ERCCL
CAIE T3,ER.ICC
HALT .
EXIT 0
IARGST: Z
Z
CHROUT ;LOCATION OF TYPEOUT ROUTINE IN SYSERR
Z
Z
IAREND==.-1
IARGLN==<IAREND-IARGST>+1 ;LENGTH OF ARG BLOCK FOR .ISCAN
TARGST: IOWD SWTABL,SWTABN ;DUMMY NAMES FOR USE BY SCAN
XWD SWTABD,SWTABM
SWTABP
SIXBIT/SYSERR/ ;LET HELPER TYPE SYS:SYSERR.HLP FOR USER HELP
XWD CLRALL,0
XWD DEFINP,DEFOUT ;POINTER TO SUBROUTINES TO SETUP
;INPUT AND OUTPUT FILE SPEC AREAS
Z
Z
SETSWT
TAREND==.-1
TARGLN==<TAREND-TARGST>Z+1 ;LENGTH OF T ARG BLOCK
DUMDAY: 121165 ;DUMMY NBS DAY FOR USE BY SCAN
KONMSK: RCMASK ;MASK FOR ERROR BITS IN RC10 TYPE DEVICE
RPMASK ;MASK FOR ERROR BIT IN A RP10 TYPE DEVICE
SFMASK ;SOFTWARE DETECTED ERROR MASK
TMMASK
RHMASK
MINERB: MINRCB
MINRPB
MINSFB
MINTMB
MINRHB
IDVFLT: SIXBIT/SYS/ ;DEFAULT FILE SPECIFICATIONS
IFLFLT: SIXBIT/ERROR/
IEXFLT: SIXBIT/SYS/
ODVFLT: SIXBIT/DSK/
OFLFLT: SIXBIT/ERROR/
OEXFLT: SIXBIT/LST/
PDLPNT: IOWD LPDL,PDLST
SUBTTL DUMMY MACRO EXPANSION AREA
;THE FOLLOWING MACRO CODE UTILIZES THE PRINCIPLE OF THE DUMMY
;MACRO USED EARLIER AND REDEFINES TBLENT TO GENERATE VAIOUS
;NECESSARY DISPATCH TABLES
;MACRO TO CREATE A TABLE CONTAINING OFFSET INTO OTHER TABLES
;WHICH WERE PREVIOUSLY INDEXED BY ERROR TYPE(VER 3 & EARLIER). ALLOWS
;HOLES TO BE IN SEQUENCE OF ERROR TYPES WHICH ARE USED.
;THIS FIRST TABLE CONTAINS ALL THE ERROR TYPES
;KNOWN TO ALL SYSERR PARTS. THE SECOND IS THE TABLE
;OF TYPES PROCESSED BY THE SEGMENT.
;EDIT #120.
SALL
DEFINE TBLENT(A,B,C,D,E)<
XWD 0,A
>
ALLTBL: DUMENT
ALLLTH=<.-1>-ALLTBL+1 ;LENGTH OF ERROR INDEX TABLE
ERRTBL: 0 ;FIRST FOUND MUST NOT BE 0
ERRLTH=<.-1>-ERRTBL+1 ;LENGTH OF ERROR INDEX TABLE
;THE ENTRY PROCESSING TABLE
;THIS TABLE MUST BE INDEXED BY THE CONTENTS OF ALLIND
DEFINE TBLENT(A,B,C,D,E)<
IFIDN<D><PROCSA><
XWD 0,D
TYPMAX==A>
IFDIF<D><PROCSA><
XWD 0,D
TYPMAX==A>
>
PCSTBL: DUMENT
;SWITCH TABLES
;THE FOLLOWING TABLES WILL BE GENERATED VIA THE DUMMY MACRO
;DUMCH1
;THE FIRST IS A DISPATCH TABLE TO BYTES REPRESENTING BITS TO SET
;IN THE ENTCHR TABLE
;NEXT IS THE ACTUAL BYTES THEMSELVES
;TABLE FOR DISPATCH TO THE BYTE OPERANDS
DEFINE TBLCH1(A,B,C,D,E,F,G)<
XWD 0,BYT'G
>
;MAKE DISPATCH TABLE
BYTDSP: DUMCH1
;NOW THE BYTES THEMSELVES
DEFINE TBLCH1(A,B,C,D,E,F,G)<
BYT'G: BYTE (9) B,777,C,777,D,777,E,777,F,777
>
DUMCH1
;SWITCH MACRO EXPANSION NEXT
;DEFINE THE SWITCHES WE RECOGNIZE
DEFINE TBLCH1(A,B,C,D,E,F,G)<
SS (A,A',0)
>
DEFINE TBLCH2(A,B,C)<
SP (A,A',B,C)
>
;CALL MACRO TO SET DEFAULTS
DEFVAL
;NOW MAKE SWTCHS MACRO FOR USE WITH DOSCAN LATER
DEFINE SWTCHS<
DUMCH1
DUMCH2
>
DOSCAN(SWTAB)
RADIX 8 ;******DONE WITH RADIX 10******
;GENERATE SIXBIT TABLE OF DEVICE NAMES
DEFINE DUMDV(A)<
SIXBIT/A/
>
NAMTBL: DUMDVA
NAMLTH=<.-1>-NAMTBL+1 ;LENGTH OF TABLE OF SIXBIT NAMES
;USING SAME DEFINITION OF MACRO NOW GENERATE
;LIST OF ONLY MASSBUS DEVICE NAMES
MASNAM: DUMFS
DUMRP
MASLTH=<.-1>-MASNAM+1 ;LENGTH OF THIS TABLE
;MASNA2: AND SCRATCH BLOCK TABLES REMOVED WITH EDIT [1217]
DEFINE DUMDV(A)<
XWD 0,A'BK
>
BKLOC: DUMDVA
;GENERATE CONI BIT ERROR DISPATCHER
;RH = SOFT ERROR POINTER
;LH = HARD ERROR POINTER
DEFINE DUMDV(A)<
XWD A'HD,A'SF
>
DEVDSP: DUMDVA
;DEVDS2 TABLE REMOVED WITH EDIT [1217]
DEFINE DUMDV(A)<
XWD A'ST,A'SP
>
;ST=STORAGE TEMP,SP=PERM.
SOFDSP: DUMDVA
;SOFDS2 TABLE REMOVED WITH EDIT [1217]
;HERE LIES THE START OF THE LOW SEGMENT STORAGE
;AND VOLATILE MACRO TABLES
LIT
END START