Trailing-Edge
-
PDP-10 Archives
-
BB-V552A-SB_1983
-
ibmcom.bwr
There are 3 other files named ibmcom.bwr in the archive. Click here to see a list.
Beware file for IBMCOM
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983
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 TRANSFERRED.
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.
1. The IBMCOM tape you receive has three savesets on it:
Documentation files, Binary files and Source Files. Please
restore all files from all three savesets.
2. CDRIVE and LPTSPL should be re-LINKed to obtain the new
D60JSY.
3. In IBMCOM, since communication is expensive, it is sometimes
preferred to not have SPRINT delete a recently transmitted
card deck. To help with this situation the following
unsupported patch is provided:
In order to assure that SPRINT does not delete files that do
not appear to have a correct $JOB card replace the following
lines in SPRINT:
PUSHJ P,PROCER ; Do ABORT processing
EOF.1: PUSHJ P,RELREQ ; Send "release" to QUASAR
MOVE S1,L.IFN ; Release the input file
with
PUSHJ P,PROCER ; Do ABORT processing
PUSHJ P,RELREQ ; Send "release" to QUASAR
MOVE S1,L.IFN ; Release the input file
PJRST F%REL ; and do not delete!
EOF.1: PUSHJ P,RELREQ ; Send "release" to QUASAR
MOVE S1,L.IFN ; Release the input file
Please note: with this patch, all decks without $JOB cards
will be retained. The system administrator should be aware
that this could allow a malicious user to fill up the
PS:<SPOOL> area with trash files.
Page 2
4. Please note that three monitor modules have been included
with this tape. They are D60SER, D6DINT, and D6SINT. If you
are installing IBMCOM for the first time, then it will be
necessary for you to follow the monitor rebuilding
instructions in the TOPS-10 IBM Emulation/Termination manual,
AA-D612B-TB. It will not be necessary for you to rebuild
your current monitor if this tape is sent you as an update,
and your current configuration supports IBMCOM.
5. There is a patch that needs to be applied to 4.1 QUASAR to
clear up an IBMCOM display problem. In QSRNET, at NPRM.1+4
replace:
MOVE S1,NETCOL(P1) ;Get node name/number
with
SKIPN S1,NETCOL(P1) ;Get node number unless 0
MOVE S1,NETLOC(P1) ; then use node name
This will clear up problems with the OPR>SHOW PARAMETERS NET
command.
6. If no network software (ANF10) is installed in the monitor,
QUASAR will have some difficulties dealing with its node data
base. To solve this problem, either install ANF10 in the
monitor or add the following patches to QUASAR (Please note:
These patches will be incorporated into a future autopatch
tape. As a result, be certain to retain origional sources
for these files since autopatch is applied to unpatched
sources.):
File 1) DSKB:QSRADM.ORI created: 0956 22-Feb-83
File 2) DSKB:QSRADM.MAC created: 1303 25-Feb-83
1)29 PJRST SNDOPR ;RETURN THE MSG TO ORION AND RETURN
****
; Insert one line at DN60.1 plus one line
2)29 MOVEI S1,G$MSG ;Get the object block address
2) ; for coverage... It is not actually
2) ; used ultimatly but is needed to
2) ; prevent ILM.
2) PJRST SNDOPR ;RETURN THE MSG TO ORION AND RETURN
**************
1)48 MOVEM S1,OBJ.ND(P1) ;SYSTEM'IZE IT (NBR ON -10)
1) MOVE P2,S2 ;SAVE THE NODE DATA BASE ENTRY ADDRESS
****
; Comment out a line at GETOBJ+4
2)48 ; MOVEM S1,OBJ.ND(P1) ;SYSTEM'IZE IT (NBR ON -10)
2) MOVE P2,S2 ;SAVE THE NODE DATA BASE ENTRY ADDRESS
**************
Page 3
File 1) DSKB:QSRDSP.ORI created: 0955 22-Feb-83
File 2) DSKB:QSRDSP.MAC created: 0957 22-Feb-83
**************
1)3 BYTPTR: BLOCK 1 ;BYTE POINTER FOR $TEXT ROUTINE.
****
2)3 KLUDGE: BLOCK 1 ;Kludge flag to handle sho q conflicts
2) BYTPTR: BLOCK 1 ;BYTE POINTER FOR $TEXT ROUTINE.
**************
1)9 SKIPN S2,OBJ.ND(S2) ;IF NO NODES,
1) JRST CHKO.1 ;WIN,,CHECK FOR DN60 EMULATION
1) CAME S2,[-1] ;IF ALL NODES,
1) CAMN S2,NETNAM(P1) ; OR IF WE MATCH BY NAME,
1) SKIPA ;THEN CHECK FOR DN60 EMULATION
1) CAMN S2,NETNBR(P1) ;IF WE MATCH BY NODE NUMBER,
1) SKIPA ;THEN CHECK FOR DN60 EMULATION
1) $RETF ;ELSE RETURN FALSE
1) CHKO.1: MOVE S1,OBJSCH(T1) ;GET THE SCHEDULING BITS
****
; Change some lines beginning at CHKO.0: plus 6 lines.
2)9 MOVE S2,OBJ.ND(S2) ;Get this object node
2) CAMN S2,[-1] ;Is it all nodes?
2) JRST CHKO.1 ;Yes, skip this
2) MOVE S1,OBJNOD(T1) ;Get the object's node
2) $CALL N$MTCH ;Check for match
2) $RETIF ;Quit if not this one
2) CHKO.1: MOVE S1,OBJSCH(T1) ;GET THE SCHEDULING BITS
**************
1)15 MOVE S1,NETCOL(P1) ;GET THIS NODES NAME/NUMBER
1) PUSHJ P,CMPNOD ;IS IT ONE WE WANT ???
1) JUMPF NPRM.3 ;NO,,TRY NEXT
1) MOVE S1,NETCOL(P1) ;GET THE NODE NAME/NUMBER
1) PUSHJ P,N$NODE## ;FIND THAT NODE IN OUR DATA BASE
****
; Add a line at NPRM.1 plus 1 line
2)15 SKIPN S1,NETCOL(P1) ;Get node number, is it 0?
2) MOVE S1,NETLOC(P1) ;Yes, get node name
2) PUSHJ P,CMPNOD ;IS IT ONE WE WANT ???
2) JUMPF NPRM.3 ;NO,,TRY NEXT
; Add a line at NPRM.1 plus 4 lines
2) SKIPN S1,NETCOL(P1) ;Get node number, is it 0?
2) MOVE S1,NETLOC(P1) ;Yes, get node name
2) PUSHJ P,N$NODE## ;FIND THAT NODE IN OUR DATA BASE
**************
Page 4
File 1) DSKB:QSRDSP.ORI created: 0955 22-Feb-83
File 2) DSKB:QSRDSP.MAC created: 0957 22-Feb-83
**************
1)41 DEPOUT: SKIPN NODE6B ;CHECK FOR KLUDGE
1) SKIPA S1,[-1] ;MAKE IT WILD
****
2)41 DEPOUT: SKIPN KLUDGE ;Check for kludge
2) SKIPA S1,[-1] ;MAKE IT WILD
**************
1)41 JUMPF .POPJ ;RETURN IF FALSE OR NO MATCH
****
; Add one line at DEPBAT plus 3 lines.
2)41 SKIPE KLUDGE ;Check for kludge
2) JUMPF .POPJ ;RETURN IF FALSE OR NO MATCH
**************
1)55 GETP.2: MOVE T1,NODE6B ;GET /NODE
1) CAMN T1,[-1] ;WAS /NODE SPECIFIED?
****
2)55 GETP.2: SETOM KLUDGE ;Say no kludge
2) MOVE T1,NODE6B ;GET /NODE
2) CAMN T1,[-1] ;WAS /NODE SPECIFIED?
**************
1)55 SETZM NODE6B ;FLAG KLUDGE
1) $RETT ;AND RETURN
****
; Change one line at GETP.2 plus 10 lines
2)55 SETZM KLUDGE ;FLAG KLUDGE
2) $RETT ;AND RETURN
**************
Page 5
File 1) DSKB:QSRNET.ORI[50,5614] created: 0957 22-Feb-83
File 2) DSKB:QSRNET.MAC[50,5614] created: 1031 22-Feb-83
1)9 N$GNOD: $SAVE <P1> ;SAVE P1 FOR A MINUTE
1) SETZ P1, ;Clear P1
****
2)9 N$GNOD: $SAVE <S1,P1> ;SAVE S1 and P1 FOR A MINUTE
2) $CALL CONOD ;Check the node identifier
2) SETZ P1, ;Clear P1
**************
1)23 CAME S1,NETNAM(S2) ;S2 POINTS TO FIRST NAME'S DB ENTRY
****
; Add one line at N$MTCH plus 5 lines
2)23 $CALL CONOD ;Check the node identifier
2) CAME S1,NETNAM(S2) ;S2 POINTS TO FIRST NAME'S DB ENTRY
**************
1)28 CAME S1,NETNAM(S2) ;DO
****
; Add one line at FNDD.0 plus 3 lines
2)28 $CALL CONOD ;Check the node number
2) CAME S1,NETNAM(S2) ;DO
**************
1)35 END
****
; Add a new routine at the end of the module.
2)35 SUBTTL CONOD Compare node to 0
2) ; Called with S1 containing a node identifier. If 0, then set to
2) ; the local node name if the local node number is 0.
2) CONOD: SKIPE S1 ;Is node number 0?
2) JRST CONO.1 ;No
2) SKIPN G$LNBR ;Local node 0?
2) MOVE S1,G$LNAM ;Use local node name
2) CONO.1: $RET
2) END
**************
[End of IBMCOM beware file]