Trailing-Edge
-
PDP-10 Archives
-
decuslib20-10
-
decus/20-186/imgspl-galaxy-changes.txt
There are no other files named imgspl-galaxy-changes.txt in the archive.
This file contains the Galaxy source modifications needed
to make Imgspl look like a part of Galaxy. The changes
are in OPRCMD, GLXMAC, ORNMAC, QSRQUE, QSRMAC, GALCNF,
QSRDSP, and OPRQSR.
Required changes are marked with "[****]".
[OPRCMD.MAC]
STAF02: $STAB
ORNDSP(STAF03,BATCH-STREAM,BAT)
;[****] ORNDSP(STAF04,<CARD-PUNCH>,CDP)
IFN FTFTS,<
ORNDSP(STAF03,<FAL-STREAM>,FAL)
ORNDSP(STAF03,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP(STAF11,<LASER-PRINTER>,CDP) ;[****]
ORNDSP(SHD030,<NODE>,NOD)
[OPRCMD.MAC]
UNVF02: $STAB
ORNDSP(UNVF03,BATCH-STREAM,BAT)
;[****] ORNDSP(UNVF04,<CARD-PUNCH>,CDP)
IFN FTFTS,<
ORNDSP(UNVF03,<FAL-STREAM>,FAL)
ORNDSP(UNVF03,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP(UNVF04,<LASER-PRINTER>,CDP) ;[****]
ORNDSP(UNVF04,<PAPER-TAPE-PUNCH>,PTP)
[OPRCMD.MAC]
SHD020: $STAB
ORNDSP(UNVF03,BATCH-STREAM,BAT)
;[****] ORNDSP(UNVF04,<CARD-PUNCH>,CDP)
ORNDSP(UNVF04,<LASER-PRINTER>,CDP) ;[****]
ORNDSP(SHD030,NODE,NOD)
[OPRCMD.MAC]
STPF02: $STAB
ORNDSP(STPS01,BATCH-STREAM,BAT)
;[****] ORNDSP(STPU01,<CARD-PUNCH>,CDP)
IFN FTFTS,<
ORNDSP(STPU01,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP(STPU01,<LASER-PRINTER>,CDP) ;[****]
ORNDSP(STPU01,<PAPER-TAPE-PUNCH>,PTP)
[OPRCMD.MAC]
ABO020: $STAB
ORNDSP (ABO060,<BATCH-STREAM>,BAT)
;[****] ORNDSP (ABO030,<CARD-PUNCH>,CDP)
IFN FTFTS,<
ORNDSP (ABO060,<FAL-STREAM>,FAL)
ORNDSP (ABO060,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP (ABO030,<LASER-PRINTER>,CDP) ;[****]
ORNDSP (ABO030,<PAPER-TAPE-PUNCH>,PTP)
[OPRCMD.MAC]
HLD010: $STAB
ORNKEY (<BATCH-JOBS>,BAT)
;[****] ORNKEY (<CARD-PUNCH-JOBS>,CDP)
IFN FTFTS,<
ORNKEY (<FTS-JOBS>,FTS)
> ;End FTFTS conditional
ORNKEY (<LASER-PRINTER-JOBS>,CDP) ;[****]
ORNKEY (<PAPER-TAPE-PUNCH-JOBS>,PTP)
[OPRCMD.MAC]
CAN010: $STAB
ORNDSP (CAN020,<BATCH-REQUEST>,BAT)
;[****] ORNDSP (CAN020,<CARD-PUNCH-REQUEST>,CDP)
IFN FTFTS,<
ORNDSP (CAN020,<FTS-REQUEST>,FTS)
> ;End FTFTS conditional
ORNDSP (CAN020,<LASER-PRINTER-REQUESTS>,CDP) ;[****]
ORNDSP (CAN040,<MOUNT-REQUEST>,MNT)
[OPRCMD.MAC]
MOD010: $STAB
TOPS10< ORNDSP (MOD300,<ACTIVE-SWAPPING-LIST>,ASL) >
ORNDSP (MOD020,<BATCH-REQUEST>,BAT)
;[****] ORNDSP (MOD020,<CARD-PUNCH-REQUEST>,CDP)
TOPS10< ORNDSP (MOD200,<CRASH-DUMP-LIST>,CDL) >
IFN FTFTS,<
ORNDSP (MOD020,<FTS-REQUEST>,FTS)
> ;End FTFTS conditional
ORNDSP (MOD020,<LASER-PRINTER-REQUESTS>,CDP) ;[****]
ORNDSP (MOD020,<PAPER-TAPE-PUNCH-REQUEST>,PTP)
[OPRCMD.MAC]
SHW220: $STAB
ORNDSP (SHW230,<BATCH-STREAM>,BAT)
;[****] ORNDSP (SHW230,<CARD-PUNCH>,CDP)
IFN FTFTS,<
ORNDSP (SHW230,<FAL-STREAM>,FAL)
ORNDSP (SHW230,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP (SHW230,<LASER-PRINTER>,CDP) ;[****]
ORNDSP (SHWNOD,<NETWORK-NODE>,NOD)
ORNDSP (SHW230,<PAPER-TAPE-PUNCH>,PTP)
[OPRCMD.MAC]
SHW420: $STAB
ORNDSP (SHW430,<ALL-JOBS>,ALL)
ORNDSP (SHW430,<BATCH-JOBS>,BAT)
;[****] ORNDSP (SHW430,<CARD-PUNCH-JOBS>,CDP)
IFN FTFTS,<
ORNDSP (SHW430,<FTS-REQUEST>,FTS)
> ;End FTFTS conditional
ORNDSP (SHW430,<LASER-PRINTER-JOBS>,CDP) ;[****]
ORNDSP (SHW470,<MOUNT-REQUESTS>,MNT)
[OPRCMD.MAC]
STS010: $STAB
ORNDSP (STS020,<BATCH-STREAM>,BAT)
;[****] ORNDSP (STS020,<CARD-PUNCH>,CDP)
ORNDSP (STS190,<DISK-DRIVE>,DSK)
IFN FTFTS,<
ORNDSP (STS020,<FAL-STEAM>,FAL)
ORNDSP (STS020,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP (STS020,<LASER-PRINTER>,CDP) ;[****]
ORNDSP (SHWNOD,<NETWORK-NODE>,NOD)
[OPRCMD.MAC]
REQ020: $STAB
ORNDSP (REQ030,<BATCH-STREAM>,BAT)
;[****] ORNDSP (REQ040,<CARD-PUNCH>,CDP)
IFN FTFTS,<
ORNDSP (REQ030,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP (REQ040,<LASER-PRINTER>,CDP) ;[****]
ORNDSP (REQ040,<PAPER-TAPE-PUNCH>,PTP)
[OPRCMD.MAC]
RTEF10: $STAB
ORNDSP(RTEF50,<ALL-DEVICES>,ALL)
;[****] ORNDSP(RTEF15,<CARD-PUNCH>,CDP)
ORNDSP(RTEF15,<LASER-PRINTER>,CDP) ;[****]
ORNDSP(RTEF15,<PAPER-TAPE-PUNCH>,PTP)
[OPRCMD.MAC]
SET010: $STAB
ORNDSP(SET170,BATCH-STREAM,BAT)
;[****] ORNDSP(SET490,<CARD-PUNCH>,CDP)
TOPS20< ORNDSP(SET700,<DISK-DRIVE>,DSK)>
ORNDSP(SET070,JOB,JOB)
ORNDSP(SET490,<LASER-PRINTER>,CDP) ;[****]
IFN FTDN60,<
ORNDSP(SETNOD,<NODE>,NOD)
[OPRCMD.MAC]
SET510: $STAB
ORNDSP (SET790,<DESTINATION>,DST)
ORNDSP (SET330,<FORMS-TYPE>,FOT)
ORNDSP (SET340,LIMIT-EXCEEDED-ACTION,LEA)
;[****] ORNDSP (SET530,<OUTPUT-LIMIT>,OPL)
ORNDSP (SET530,<PAGE-LIMIT>,OPL) ;[****]
ORNDSP (SET260,PRIORITY-LIMITS,PRL)
[OPRCMD.MAC]
SET530:
;[****] $RANGE(CONFRM,<maximum limit in cards or a range>)
$RANGE(CONFRM,<maximum number of pages>) ;[****]
[OPRCMD.MAC]
NXT020: $STAB ;[NXT]
ORNDSP(NXT040,BATCH-STREAM,BAT) ;[NXT]
;[****] ORNDSP(NXT030,CARD-PUNCH,CDP) ;[NXT]
ORNDSP(NXT020,LASER-PRINTER,CDP) ;[****]
ORNDSP(NXT030,PAPER-TAPE-PUNCH,PTP) ;[NXT]
ORNDSP(NXT030,PLOTTER,PLT) ;[NXT]
[GLXMAC.MAC]
DEFINE OBJCTS,<
X .OTRDR,Reader
X .OTNCU,Network-Controller
X .OTLPT,Printer
X .OTBAT,Batch-Stream
;[****] X .OTCDP,Card-Punch
X .OTCDP,Laser-Printer ;[****]
X .OTPTP,Papertape
[ORNMAC.MAC]
DEFINE OBJORN,<
X (<BATCH>,BAT) ;;BATCH-STREAM
;[****]X (<CARD-PUNCH>,CDP) ;;CARD-PUNCH
X <CARD-READER-INTERPRETER>,BIN ;;READER INTERPRETER
IFN FTFTS,<
X <FAL>,FAL ;;FAL-STREAM
> ;End of FTFTS conditional
TOPS20 <
X <FILE-RETRIEVAL>,RET ;;RETREIVAL REQUESTS
> ;END TOPS20
IFN FTFTS,<
X <FTS>,FTS ;;FTS Messages
> ;End of FTFTS conditional
X <LASER-PRINTER>,CDP ;[****]
X <MOUNT>,MNT ;;MOUNT REQUESTS
[QSRQUE.MAC]
STATS: [0,,0] ;INVALID
[ASCIZ/reading/] ;.OTRDR (READER QUEUE)
[ASCIZ/network/] ;.OTNET (NETWORK QUEUE)
[ASCIZ/printing/] ;.OTLPT (PRINTER QUEUE)
[ASCIZ/executing/] ;.OTBAT (BATCH QUEUE)
;[****] [ASCIZ/punching/] ;.OTCDP (CARD PUNCH QUEUE)
[ASCIZ/lasering/] ;[****]
[ASCIZ/punching/] ;.OTPTP (PAPER TAPE PUNCH QUEUE)
[ASCIZ/plotting/] ;.OTPLT (PLOTTER QUEUE)
[QSRMAC.MAC]
FP.PCR==1B22 ;SPOOLED CARD READER FILE
FP.REN==1B23 ;/DISPOSE:RENAME FILE
FP.XXX==7B26 ;EXTRA FLAG BITS
FP.REV==1B24 ;[****]REVERSE LASER PRINT FILES
FP.COL==1B25 ;[****]COLLATION FOR LASER PRINT COPIES
FP.2PG==1B26 ;[****]TWO FORMS PER PAGE
FP.SDP==1B0 ;[****]SCREENDUMP (IN .FPFR2)
FP.RUL==1B1 ;[****]RULES (IN .FPFR2)
FP.OTL==1B2 ;[****]OUTLINES (IN .FPFR2)
FP.MAN==1B3 ;[****]MANUAL FEED (IN .FPFR2)
FP.FCY==777B35 ;COPY COUNT
.FPFST:! BLOCK 1 ;STARTING POINT INFORMATION
.FPFR1:! BLOCK 1 ;/REPORT WORD 1
[GALCNF.MAC]
;Card punch output limit(0-9999 cards) [1000]
;[****] XP G.ICDP,1000
XP G.ICDP,50 ;[****]
[GALCNF.MAC]
;Do you want the standard limit computation(YES,NO) [YES]
;[****] XP G.LPTM,15
;[****] XP G.LPTD,5
;[****] XP G.CDPM,33
XP G.LPTM,9 ;[****]
XP G.LPTD,2 ;[****]
XP G.CDPM,5 ;[****]
XP G.CDPD,1
[QSRDSP.MAC]
LIMTYP: [ASCIZ/Min:Max Lim./] ;UNDEFINED
[ASCIZ/Min:Max Lim./] ;.OTRDR
[ASCIZ/Min:Max Lim./] ;.OTNCU
[ASCIZ/Page Limits /] ;.OTLPT
[ASCIZ/ Minutes /] ;.OTBAT
;[****] [ASCIZ/Card Limits /] ;.OTCDP
[ASCIZ/Page Limits /] ;[****].OTCDP
[ASCIZ/Min:Max Feet/] ;.OTPTP
[ASCIZ/ Minutes /] ;.OTPLT
[QSRDSP.MAC]
CAIN S2,%OFLNE ;ARE WE OFFLINE ???
;[****] MOVEI S1,[ASCIZ/--Waiting For Operator Intervention--/] ;YES,,SAY SO
MOVEI S1,[ASCIZ/--Printer Out Of Paper--/] ;[****]YES,,SAY SO
CAIN S2,%OREWT ;ARE WE WAITING FOR OPR RESPONSE
MOVEI S1,[ASCIZ/--Waiting For Operator Response--/] ;YES,,SAY SO
CAIN S2,%ALIGN ;ARE WE ALIGNING FORMS ???
MOVEI S1,[ASCIZ/--Aligning Forms--/] ;YES,,SAY SO
PUSHJ P,ASCOUT ;DUMP THE STATUS OUT.
PUSHJ P,CRLF ;OUTPUT A CRLF.
SHOW.2: LOAD AP,.QELNK(AP),QE.PTN ;GET THE ADDRESS OF THE NEXT ENTRY.
[OPRQSR.MAC]
Q$STAR:: $CALL Q$SHUTDN ;PROCESS THE!FIRST PART
$RETIT ;O.K..COMMAND FINISHED
MOVE S1,ARG.DA+.OHDRS+OBJ.TY(MO) ;GET THE OBJECT TYPE
CAIE S1,.OTLPT ;IS IT A PRINTER?
CAIN S1,.OTCDP ;[****]IS IT A LASER PRINTER?
SKIPA ;[****]PRINTER OR LASER PRINTER
$RETF ;NO..INVALID MESSAGE