There are no other files named lptmac.x19 in the archive.
UNIVERSAL LPTMAC - LPTSPL-10 line printer driver definitons
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION
; ALL RIGHTS RESERVED.
; 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
SEARCH GALCNF ;GALAXY ASSEMBLY PARAMETERS
SEARCH GLXMAC ;SEARCH GALAXY PARAMETERS
SEARCH QSRMAC ;SEARCH QUASAR PARAMETERS
SEARCH ORNMAC ;SEARCH ORION/OPR PARAMETERS
IF2,<PRINTX Assembling GALAXY-10 LPTMAC>
SALL ;SUPPRESS MACRO EXPANSIONS
LPTVER==105 ;MAJOR VERSION NUMBER
LPTMIN==0 ;MINOR VERSION NUMBER
LPTEDT==4103 ;EDIT LEVEL
LPTWHO==0 ;WHO LAST PATCHED
IFDEF .MCRV.,<.VERSION <%%.LPT>>
SUBTTL Revision History
2550 Delete all references to user name and job number.
Replace them with ^R Library $Text Function.
2551 Add code to support new QUASAR device status message.
2552 Add RJE support
2553 Fix a Restart page count bug by not including the job
headers and trailers in the final page count.
2554 Replace ERRSTP ITEXT with LPERR ITEXT. Make sure when LPT comes
online or goes offline, the status is updated. Add a check to
ACTEND so that if the request had an invalid account string,
no USAGE entry is made.
2555 Fix a bug in which INPOPN was doing a LOAD S1,EQ.PRV to get
the users privilge bits. This translated to MOVE S1,400
and 400 was SPLDIR (which was never 0). Given this, the
JUMPN S1,INPO.1 always jumped to INPO.1 and avoided the
access check. The LOAD was changed to LOAD S1,.EQSEQ(J),EQ.PRV.
2556 Changed the IB to conform to the new IB/PIB structure.
2557 Fix a bug in OUTOUT which caused to stack to be out of phase.
Basic re-write of OUTOUT, elimination of OUTINT, and
modification of $SOUT.
2560 Change the scheduler loop to use P1 instead of T2.
Change the scheduler loop so that at MAIN.1 it
checks to see if the stream status needs to be updated,
and if so, it sends a status update and checkpoint
message to QUASAR.
2561 Delete the flag bit HDRTRL and the supporting code.
2562 Add Calls to S%SIXB & S%TBLK for WTOR response parsing.
Move the call to FILDIS from ENDJOB to QRELEASE.
2563 Fix line count for narrow forms.
Fix DEVOUT to save S1 across OUTOUT call
Add code to cut off the header/trailer line at 'J$FWID' Length
2564 Add DN60 Support.
2565 Add 'Ignore Structure Accounting' MSTR JSYS.
2566 Change the $WTOR's for killing OPR requests from $WTOR to $KWTOR.
2567 Add spooling to mag tape support
2570 Fix a page count problem (on restarts).
Spell cancelled right (canceled)
2571 Spell Canceling correctly
add 40 (decimal) words to the context PDL
2572 Fix a bug in which it was possible for LPTSPL to set the output
blocked scheduling bit and then deschedule for a page limit
exceeded error. When this happened, LPTSPL would wait for
the output done interrupt, which, of course, would never come.
2573 Clear J$RNPP IN DOJOB Just before checkpointing the next file
Clear J$RNPP and checkpoint the number of copies in FILE.1
2574 If a job is cancelled while in OPR response wait from LODVFU or
LODRAM then zero J$FORM to force the next job to go through
new forms processing.
2575 Add DN60 operator response support (What a Crock !!)
2576 Delete FTRMTE feature test.
2577 At OUTERR move the PUSHJ P,.SAVET & MOVE T4,STREAM to OUTE.1
under TOPS-10 conditional.
Change the scheduler so that for both TOPS-10 & TOPS-20 we
check to see if we processed a message and if so, dont sleep.
Change OPRCHK so that as long as the output succeeds, we
continue printing operator messages.
For TOPS-10 make OUTDMP call OUTOUT BUFNUM+1 times.
Add Spooling to Tape support for TOPS-10.
2600 Make LPTSPL sleep forever by removing the 60 second timer.
2601 TOPS10 - Detect EOF on spool to magtape. Ask OPR to mount next reel
2602 Fix a bug in SHUTIN code. Get a new stack pointer if shutting
down from 'IN STREAM' context.
2603 Fix a bug - reverse the compare in S$VFU which checks for
2604 Fix a bug - In OUTGET, if the default RAM and VFU are already set,
then, dont set them.
2605 Fix a bug - if printing either the banner or header pages, dont
flush the buffers in KILL or OACCAN.
2606 Add code to send a form feed if the printer VFU is ok and
we are about to load the VFU.
2607 Delete the TOPS-20 mag tape code that assigns/deassigns the tape drive.
Also make sure that the mat tape is not already assigned to anyone.
2610 Delete the RAM variable from the forms default macro and add
2611 Change IPCF send/recieve quotas from max to 20.
2612 Change DN60 D60OPN parameters for new port/line handle.
2613 Fix a bug - prevent LPTSPL from deleting DN60'S link'd list.
2614 Delete the Send/Recieve Quotas from the PIB.
2615 Make OUTREL do a CLOSE instead of a RESDV. if we are spooling to tape
2616 Pick up non-existant printer status bits on the -20.
2617 Fix a bug in TAPGET; The correct value returned by the DVCHR for
unassigned devices is -1,,unit # - Not -1.
2620 In SHUTDN, After the call to FNDOBJ check to see that the object
was actually found, and if not, just return.
In OPDINI, add a SETZM FMOPN and a $RETT at the end of the routine.
In OPEN.6 add a SETOM J$LINK(J) to indicate that there is no DN60
operator message list.
In CLOSE.6, change the MOVE S1,J$LINK(J) to a SKIPL S1,J$LINK(J) so
that we dont delete a list which may not exist.
2621 TOPS-10: Delete the call to F%FCHN and use the stream number as the
2622 Fix a job restart problem which allows -pages to be printed.
2623 Fix a -10 problem caused by converting to extended channels in the
library. Must re-write the load VFU and RAM sections for front
end lint printers
2624 Fix a -10 problem - Clear the PSF%DO and PSF%OB bits in the
OUTGET routine since we may wait forever after resetting the channel.
Change all occurances of DC3 output to CRLF except for the ruler.
2625 Add a CRLF to the end of the header page file info line.
2626 Fix a bug in the /REPORT: code for COBOL report files.
2627 Fix a bug in deleting files. Make F%DEL use an in your behalf FOB.
2630 Delete the support for the old forms parameters.
2631 Convert DN60 support to new SETUP message format.
2632 Rework the Backspace /pages support to fix U.S. Railways QAR.
2633 Finally get the backspace code right.
2634 Add 8 bit input support. Also, make output byte sizes variable by
adding J$LBTZ to keep track of output byte size.
2635 Add /FILE:ELEVEN support to print MACY11 files as standard ascii
Requires that a new FP bit or field be defined for 8-BIT
2636 TOPS20 QAR (20-00608) Add code to OUTREL so that when closing
a device other then the line printer, we write out
trailing tape marks.
2637 Fix a bug in which the ABORT bit was being lit in the NXTJOB code,
before the forms were set up. This caused the request to be trashed
without the headers or trailers being printed
2640 Fix a bug - Make the TAPGET OPENF open the device in 7 bit Mode.
2641 Fix Another bug - make OUTGET open device for 8 bit bytes.
2642 Make PICTURE put out line feeds, not DC3's.
2643 Fix a bug in OUTERR code so that is the OUTFLS call fails, then
send a Response-to-Setup message to QUASAR before shutting down.
2644 Add support for /RAM: in LPFORM.INI for -10 & -20.
2645 Fix an accounting problem in which usage accounting was being done
2646 Fix QAR # 20-00805 such that multiple ALIGN commands do not
add to the sleep time of previous ALIGN commands
2647 Add a SETZM T1 to the .MONOP MTOPR call in OUTDMP.
Add a .MONOP MTOPR call to TAPGET to wait for I/O to finish or
if a TTY, set the TTY page width to infinite.
2650 Delete OBDLLC & OBDLUC attribute bits and return %LOWER & %UPPER for
the new device attributes
2651 Add accounting support for TOPS10 (USAGE)
2652 If NPRINT = 1 then accumulate cpu time used to process a request.
2653 Move search for DN60 universal to FTDN60 conditional
2654 Add code to interrupt routine to check for all error bits on and if
so, and this is a remote LPT, then don't change restart address. If
all error bits are on for a local LPT, then the CPU went down, so
just ignore the problem and wait for it to come back.
2655 Delete the DSKOPN status bit and just check J$DIFN for non-zero.
2656 Add DN60 Support
2657 Force the align that is part of a forms type to occur immediately
after the form is set. QAR # 10-04593
2660 Add support for new style /DISPOSE:RENAME
2661 Remove SETNAM that turned off JACCT since it also turns off x-only.
No LPTSPL needs to have JACCT so correct solution is to eventually
remove all GALAXY components from PRVTAB.
2662 Use new feature IB.DET to detach from FRCLIN.
2663 Fix CHKTIM to set SLEEPT if zero (not set)
Delete IB.DET (GLXLIB always detaches)
2664 Remove the system text portion of the account record. The system
text portion is to contain any disposition explanation.
2665 Fix a bug in INPOPN and FILDIS so that spooled files are handled
2666 QAR # 10-04856 Change all definitions of Z to ZZ to prevent
MACRO from getting confused during processing of $SAVE
2667 Fix OUTFLS to only reset the line buffers for a DN60 error.
2670 Do call to SHUTND instead of jrsting to SHUTDN since there is
no need to do the FNDOBJ and that may fail if the message is
2671 Add a check in OPRCHK to make sure that a job is not being
printed before we output the OPR messages for the DN60.
2672 Fix bit settings in CHTAB. We are currently displacing into
2673 Fix formfeed at trailer routine (SPR 20-14654)
Clear old report code in SETLST so other files work (SPR 20-14635)
Add indirect (@) to J$DFDA use in $TEXT (SPR 20-14817)
Fix backspace code (SPR 20-15172)
2674 Clear J$WTOR(J) when it is used to overlaid messages.
2675 Remove decision to do accounting as a runtime decision and make it
an assembly parameter based on the new feature test FTACNT.
2676 Add check to CHKPNT verifying that the stream is active.
2677 Work with checkpoint mechanism:
Break checkpoint into two parts, status, and job checkpoint
Create new status mechanism contained in DSTATUS
Cause checkpoints to occur internally without QUASAR requests
Add table of nonsense.
Reopen LPFORM.INI with every forms change to allow LPFORM.INI changes
2700 Do not do accounting if debugging
2701 Fix setting JOBUPD flag in the interrupt code
2702 Misc. changes:
Be more clever on checking limits when printing files less than
Clear trailer log
Remove DSTATUS call in dojo.4 since it happens anyway at next
file or is implied with release message
2703 Fix stupid error where ^D100 was used to define a PDL size.
(Stupid since PDSIZE is defined in the symbols and is defined to be
2704 Add FACT file accounting support.
2705 Add immediate forms change support which includes routines FORFOR
Allow listings queued for a remote LPT be spooled to a special device
2706 Fix context change so the PDL pointer is not clobbered.
Remove require for d60jsy and include it in lptspl.cmd so symbols
can be included
Do not set IO.SFF in open if not a real line printer
2707 3/13/81 Force UPDATE routine to check for DN60 offline.
Request status update message in D60ER routine.
Increase size of PDL to 120 octal (PDSIZE)
2710 3/19/81 Do NOT try to $CALL P,NNN.
Add an argument block to be used for D60OPN per stream since
MSGBLK (which was used formerly) got clobbered during DSCHD
2711 3/24/81 Make LPFORM.INI /NOTE be an asciz string
2712 3/26/81 Split DN60 errors so there is a different wait time for
NBR errors and DOL errors.
2713 3/27/81 Use symbol FTFACT from GALGEN dialogue and remove references
2714 4/14/81 Fix DOFFOR to call CHKALN.
2715 4/16/81 Remove last reference to UPDTST replacing with call to DSTATUS.
2716 5/1/81 Clear up any pending WTORs as part of the shutdown code.
Remove some jrst .+n's.
Make J$RNPP always our current location in pages with respect to
the file being printed. Adjust it as we pass pages, not as part
of the forward space code.
Remove BUFSPC since it is not really used.
Fix bad test by changing TXNN to TXNE in CHKSP to clear J$XTOP
only when needed.
If suppressing when doing headers and trailers, don't believe J$XTOP.
If already processing VFU, do not allow additional VFU errors @OUTE.4.
2717 5/15/81 Delete files in FILDIS only if they are spooled or if
they are /delete and have not been aborted.
2720 5/15/81 Add 1 word to LPCNF and reorder ACTLST to make accounting work
2721 5/21/81 Do the check for suppress before clearing J$XTOP and hope
that multiple form feeds will be always suppressed.
2722 6/1/81 Use page length in calculating block size to use on header page.
Allow CKPTIM to be defined in GALGEN by using ND macro for definition.
Remove label FRMI4B since it is not referenced.
Remove the unneeded restriction of checking for LPT when checking actual
device names in parsing LPFORM.INI.
Send a warning if the forms requested is unknown which includes
having FRMINI return false if none found.
Set FCONV in bspace to indicate a backspace starts a new line.
Also in BSPACE check to see if the table is wrapped around.
Make GENDEV work for both T10 and T20. Have it set J$LDEV.
Call GENDEV from the routine OUTGET on the 20.
2723 6/9/81 Change GENDEV to always set J$LDEV even if it is a magtape.
Add a new status bit to indicate that we are processing a job. The
purpose of this is to determine whether there is a need for a
checkpoint. If forms are being mounted, for example, no checkpoint.
If the job is requeued before the operator responds to a forms
change, restore forms to their previous type.
2724 6/12/81 Add LPTBAN, LPTTRL, and LPTHDR to try to use the GALGEN params.
For T10 only, change the countdown code at CNTDW1+7 to cause
a DSCHD if: we are forwardspacing and the number of pages is
evenly divisible by FRWSKP (which allows a DSCHD every FRWSKP pages.
2725 6/22/81 Remote printers should only have one buffer since the network
only uses one buffer at a time (there is no great advantage) and since
having only one buffer allows OUTFLS to be skipped for remotes.(that
caused lots of problems)
2726 6/23/81 Update job limit when backspacing.
Change size of fact accounting table to a symbol.
Only check for device assignment if it is a magtape in TAPGET.
Open LPFORM.INI with sequence numbers suppressed.
Fix edit 2711 by using AC TF in S$NOT2.
Make the header information a little more clever for narrow headers.
2727 Use byte I/O instead of buffered I/O for input from LPFORM.INI so
sequence numbers are suppressed correctly.
2730 7/7/81 Zero out IMESS @CHKQ.5 after releasing the message to
prevent releasing it twice.
2731 9/10/81 Clear top of form if SUPFIL is set before clearing SUPFIL
2732 9/24/81 In FRMINI return false if the OPNFRM fails.
2733 9/29/81 Add IBM status message support (IBMSTS).
Remove the zeroing out of J$GNLN in NXTJOB since ZTABLE loop does it.
If IBMCOM abort, then requeue the job and shutdown the stream.
2734 Made sure suppress mode also implies arrow mode as stated in the
2735 Fixed problem with BACKSPACE when printer goes off line, and
more than likely, even when it doesn't.
2736 Fixed problem with trailers not being cleared from previous jobs.
2737 11/25/81 Use a generalized routine EOF.6 for EOF on DN60.
2740 12/7/81 Lots of changes...
1. Make it so we don't run out of NBR errors unless we
are trying to shut things down.
2. Save last DN60 error in J$D6ER.
3. Generalize the CHKTIM routine. Make it the only one that
sets SLEEPT. Have it also check J$CWKT if DN60 opr mess. pending.
If we clear the sleeptime, clear also variable that started it all.
4. DIE immediately if any bad errors in DN60.
5. Use polling estimate from D60JSY (POLEST) for sleeptime.
6. On TOPS20 have D60ER sleep instead of DSCHD since that version
is set up more for blocking types of output.
7. Make SLEEPT -1 if none set, 0 if no sleep should occur, number
of seconds to sleep otherwise.
2741 12/16/81 If we are in hasp, do not set operator output wait bit since
that blocks the print stream which shouldn't happen in HASP.
2742 TJW Fix the continue command to clear the device offline bit.
2743 1/4/82 Clarify all $WTORs to allow ABORT or PROCEED only
Dont do extra RUNTIM UUOs if NPRINT .GT. 1
as we zero the runtime in the account entry anyway
2744 1/7/82 Restore T1 that is clobbered by IDIVI in CHKTIM before using
2745 2/26/82 Set sleep time to 0 if we are allowing sleeptime during
Never again will LPTSPL run out of DOL errors since I have removed
2746 3/26/82 Fix CPU failure interrupts and add hung device support.
2747 4/6/82 Mount and dismount structures for files we processes. GCO 1302
2750 5/18/82 Do not RESDV remote printers when shutting down @OUTREL.
2751 6/1/82 Correct the count of overhead lines at TRAI.4
2752 6/3/82 Make BACKSPACE/FILE work. GCO 1356
2753 6/3/82 Handle false returns from GLXLNK routines in OPRD60.
2754 6/4/82 Correct definition of BUFCHR. GCO 1365
2755 6/4/82 Prevent line printer abuse by having differnt STARS text for
each width class. GCO 1366
2756 6/9/82 Check for write ring when spooling output to tape.
If the ring is missing, ask operator to insert it. PCO 20-LPTSPL-48
2757 6/9/82 Add routine to check for eot when spooling to tape.
Add routine to unload tape and request next mount. PCO 20-LPTSPL-49
2760 6/15/82 More of edit 2755. GCO 1387
2761 6/15/82 Fix up 2756/2757 to use new subroutines to write tape marks
and to unload tapes. GCO 1389
2762 6/25/82 Don't update stream status bits on .OMRSP messages. GCO 1398
2763 6/28-82 Check for ABORT while off-line. GCO 1460 PCO 20-LPTSPL-56
2764 7/6/82 Fix a problem with forms changes not notifying the operator.
2765 7/7/82 Fix 'System accounting failure' messages if the site does
not run ACTDAE, but it's own system. GCO: 1422
2766 7/9/82 Fix edit 2764 so that it works right this time.
If forms type can be found it will just ask the operator to
mount them and type proceed. If they aren't however, the
operator will have the choice of aborting the request.
2767 7/9/82 Resolve structure name before doing STRUUOs. GCO 1430
2770 15-FEB-83 Fix ruler text length problem. The STARSn text strings
are 130 instead of 132 characters long. SPR 10-33417/CTK
2771 1-Aug-83 Fix alignment code in FRMINI to not do alignment until after
LPFORM.INI line is processed. Symptom was an alignment with
/ALCNT and/or /ALSLP switch values incorrectly set.
2772 24-Oct-83 Before OPENing device for a stream, see if device has been
assigned or init'd by someone. This someone could be another
one of our streams.
SPR 10-33900 /LWS
2773 25-Oct-83 Fix WTO concerning typeout of unrecognized LPFORM.INI switch.
SPR 10-34039 /LWS
2774 25-Oct-83 Print spooled file name in LOG and header.
SPR 10-34149 /LWS
2775 27-Oct-83 Recover from OUT UUO errors while loading VFUs a little better.
SPR 10-34141 /LWS
2776 12/21/83 Fix coding error in hung device interrupt code. Change
J to S1 at LPIN.3.
SPR 10-34397 /LWS
2777 20-Jan-84 Two edits 2771. Make one of them this edit.
Handle comments properly in LPFORM.INI.
SPR 10-33584 /LWS
3000 24-Jan-84 Fix IFN stopcode bug introduce in EDIT 2771. IFN occurs
if ALIGNment is specified in LPFORM.INI and the ".ALP" file
SPR 10-34461 /LWS
3001 21-Mar-84 Fix problem in CPU Failure interrupt code. Code
assumed that CPU Failure interrupts would always happen in
the correct stream context...not so. Requires edit 2776.
SPR 10-34573 GCO 10013 /LWS
3002 24-Mar-84 Fix confusing typeout in WTOR that tells operator
to switch reels when spooling to tape.
SPR 10-34572 GCO 10014 /LWS
3003 Fix coding error at STRE.1, CAMN should be CAME.
13-Apr-84 GCO 10027 /LWS
3004 When spooling to magtape, LPTSPL substitutes <CR><LF> for
<CR><DC3>. V2 did not do this. Save DEVCHR bits and treat LPT
and MTA the same in CR23.
This edit REQUIRES LPTSPL edit 2772.
SPR 10-34695 GCO 10039 11-May-84 /LWS
3005 Fix bug in LPINTR where we were incorrectly testing for
'CPU failure' interrupt condition. Don't use file status
bits, use PS.RIE!PS.ROE!PS.RDO.
No SPR GCO 10042 21-May-84 /LWS
3006 Edit 2772 was too cautious. Only check DV.ASP. OPEN will
fail if device was assigned by another job. Also, some
people do .ASSIGN commands in SYSJOB.INI for LPTSPL, for
No SPR GCO 10045 11-Jun-84 /LWS
3007 When we get an 'online' interrupt for a printer, clear the
byte count in the buffer header in addition to clearing
'output blocked'. This will insure that we don't use
a the buffers again until I/O is done. (We can't guarantee
that we will never miss an 'output done' interrupt.)
Change OUTWON to display all printers that are offline.
SPR 10-34771 GCO 10068 10-AUG-84 /LWS
3010 When the operator says ABORT PRINTER x /PURGE, don't RESDV.
the printer or try to send a formfeed. /PURGE means get rid
of the current job now.
SPR 10-34867 GCO 10096 19-Sep-84 /LWS
3011 Fix problems when using tapes. Add check for write-locked
status. Don't continue after errors other than IO.IMP or
SPR 10-34877 GCO 10101 4-Oct-84 /LWS
3012 If VFU error is encountered when outputting to a LP20
printer (LP26 especially) make LPTSPL load the RAM before
reloading the VFU. When the printer is powered up, we know
the VFU is bad, but it nothing indicates the RAM is bad.
Anyway, the VFU won't load correctly unless the RAM is loaded
first after power up. Also, check status of VFU before
each job. This will enable us to load the RAM and VFU if bad
and not bother the operator with a WTOR. We assume the paper
has not moved since we didn't do any output since last job
and thus doesn't require alignment. MCO 11592 should also
be installed in monitor, but is not required.
SPR 10-34952 GCO 10114 1-Nov-84 /LWS
3013 Edit 3007 incomplete. We guarded against an offline interrupt
when not in stream context (rare) but after DEBRKing to OUTWON
and descheduling, we then continue at J$LIOA(J). But the J (job page)
we used to store the continuation address is different than what
was saved when the interrupt occurred if not in stream context.
When processing the offline interrupt, use the job page associated
with the current stream when storing the continuation address.
SPR 10-34771A GCO 10115 1-Nov-84 /LWS
3014 Edit 3012 has problems. It prevents a different VFU from being
loaded on a form change. Sigh.
GCO 10127 4-Dec-84 /LWS
4000 Begin Version 105.
Break up LPTSPL into two modules, a universal file and the
main module. This makes it easy to add extra device drivers
GCO 10133 6-Jan-85 /NT
4001 Add support for having LPTSPL load special driver modules via
GALGEN defined modules.
GCO 10139 22-Jan-85 /NT
4002 Add module LPTL01 to implement LN01 support.
GCO 10140 22-Jan-85 /NT
4003 Pass abort bit and operator abort text in release message to
QUASAR to make user job notification a little more useful.
Put user name in banner from .EQUSR if non-zero. Put "Dist:"
in banner if .EQBOX non-zero.
GCO 10171 21-Mar-85 /DPM
4004 Use RDH words to try and determine file carriage control type.
GC0 10202 26-Apr-85 /NT
4005 Fix long standing FORWARDSPACING and /BEGIN:nn extra linefeed bugs.
GCO 10207 13-MAY-85 /CTK
4006 Fix lots of little bugs in LPTL01 development code in an effort to
stabilize it for field test.
GCO none 14-MAY-85 /NT
4007 Add DQS support to LPTSPL. Add a .REQUI to force loading of
D60JSY if FTDN60 is true.
GCO 10236 20-Jun-85 /JAD
4010 ZTABLE gets assembled wrong; larger PDL size causes attempt to
define a 7 character symbol which makes NXTJOB zero random locs
in the job page.
GCO 10239 26-Jun-85 /JAD
4011 Make QUEUE FOO/UNIT:LN01 work.
GCO 10240 1-Jul-85 /DPM
4012 Tell QUASAR the XEROX 8700 is a lower case printer.
GCO 10244 9-Jul-85 /DPM
4013 Add support for spooling to TTYs (LA120 and LA180). The
new driver module is LPTLAX.
GCO 10250 12-Jul-85 /DPM
4014 Allow LPTSPL to initialize a stream if it is built without any
GCO 10257 22-Jul-85 /DPM
4015 Extension missing on 8700 header pages due to wrong AC used in
LPTDQS at FILI.3.
GCO 10270 1-Aug-85 /JAD
4016 Update copyright statements. 12-SEP-85 /LEO
4017 Set maximum IPCF send and receive quotas at startup.
GCO 10301 8-Aug-85 /DPM
4020 Isolate driver specific stuff from LPTSPL. Reserve 'DRVWDS'
words in the job data base starting at J$DWDS for the various
device drivers. Add lots of driver dispatch table entries.
Remove FTDQS and propagate all code to LPTDQS. Likewise,
remove FTDN60 and propagate all code to LPTD60. Put LP05
driver in LPTLP5. By default, LPTSPL will always force
loading of LPTD60.REL and LPTLP5.REL modules.
Although LPTLAX (the terminal driver) is unsupported, it should
be used as the template for customers wanting to write their own
printer driver. LPTLAX.MAC is documents each driver dispatch call,
how to define driver specifid words in the job data base, and the
use of the stream status bits reserved for the drivers.
GCO 10311 25-Aug-85 /DPM
4021 .EQUSR and .EQBOX are now 8-bit ASCIZ quantities.
GCO 10326 19-Nov-85 /DPM
4022 Add a word in the driver vector containing the address of a routine
to generate a status text string for CHKPNT. For all except LPTDQS
this will be equated to LPTSTS. LPTDQS will generate a status text
string of the form "tranferring file n of m".
GCO 10325 19-Nov-85 /JAD
4023 Fix OUTERR to only test IO.EOT if we're using a magtape. Don't
want to call IO.SVF or IO.ABS output errors.
GCO 10336 5-Dec-85 /RCB
4024 Fix LPTOPN to get the UU.PHS and UU.AIO bits set correctly.
GCO 10339 6-Dec-85 /RCB
4025 Fix bugs in magtape processing. Move all magtape code into LPTLP5.
J$MTAP flag has been superseded by a device driver specific flag
called LP5MTA and is defined in the reserved-to-driver portion of
the job data base. Add dispatch for device dependent error recovery
(J$OERR). Change device positioning, form feed, and mountable form
flags so they may be set by the driver.
GCO 10341 17-Dec-85 /DPM
4026 If a device doesn't exist, QUASAR is never told. Returning the
'response to setup' code in S2 instead of S1 where it belongs.
GCO 10342 17-Dec-85 /DPM
4027 DN60 printers don't work. Dispatch never setup.
GCO 10343 17-Dec-85 /DPM
4030 Improve error reporting for LPFORM.INI I/O errors and globalize
FH$xxx routines to allow them to be called by the drivers for
parsing other ASCII files.
GCO 10346 31-DEC-85 /DPM
4031 Don't request checkpointing from QUASAR if a driver won't do file
positioning. Don't set lower case flag if device is an LA180.
GCO 10351 6-Jan-86 /DPM
4032 LA180s can't handle lower case.
GCO 10352 7-Jan-86 /DPM
4033 Create a new driver for magtapes (LPTMTA).
GCO 10353 7-Jan-86 /DPM
4034 Fix bad ACK with open fails and device will never be available
GCO 10358 13-Jan-86 /DPM
4035 Fix bug in D60OPX where junk response-to-setup code was being
returned and add missing POP P,T1 in IBMSTS routine.
GCO 10364 17-Jan-85 /DPM
4036 Delete symbol J$CRTF, it was not needed.
GCO 10369 21-Jan-86 /NT
4037 LPTSPL Fix ill mem ref at 000100. remember to restore
the stack if the device is not available.
GCO 10372 28-Jan-86 /NT
4040 LPTMAC Invent a new flag, J$ALNF, that will be used by drivers
LPTSPL to specify that they do not do alingments.
GCO 10374 28-Jan-86 /NT
4041 LPTSPL Remove extraneous PUSH/POP in LPTOPN.
GCO 10338 13-Feb-86 /NT
4042 LPTSPL Make sure device flags J$ALNF, J$MNTF, J$FFDF and
LPTL01 J$POSF are properly set and tested by all modules.
LPTDQS GCO 10381 21-Feb-86 /NT
4043 LPTSPL Fix hangs waiting for interrupt problem.
GCO 10382 24-Feb-85 /NT
4044 LPTLP5 If DEVOP. returns unknown printer type, assume
it is an LP05 class. This keeps people who don't build
their remote nodes incorrectly printing.
GCO 10387 7-Mar-86 /NT
4045 LPTSPL If we get a device offline error, do a RETF from
LPTOER. LPTOUT will vector to LPTOEX.
GCO 10399 24-Apr-86 /NT
4046 LPTMTA Correct comments and description of setting magtape
parameters now that QUASAR and ORION have all the
necessary supporting code to do it right.
GCO 10409 20-May-86 /DPM
4047 LPTMAC Specify new variable for /FONT font.
LPTSPL Call routine to specify header width on multicopy
LPTL01 printouts. Don't reload loaded fonts.
GCO 10411 3-Jun-86 /NT
4050 LPTSPL Extend edit 4046 to include simulated RAM and VFU files.
LPTL01 GCO 10414 7-Jun-86 /TL
4051 LPTSPL Make DC1 and DC2 always count down a constant number
of lines as opposed to a fraction of a page.
GCO 10425 26-Jun-86 /NT
4052 LPTSPL Convert $STOP macros to STOPCD macros. Do some version cleanup.
LPTMAC GCO 10463 18-Nov-86 /BAH
4053 LPTD60 Make DN60-style LPTs get a name of the form LPTnnu like other
network printers so that LPFORM.INI entries can be made
that are specific to them.
GCO 10489 29-Jan-87 /JJF
4054 LPTD60 LPTSPL reprints same portion of file many times on D60
printers and fails to output portion of last buffer.
GCO 10492 16-Feb-87 /BAH
4055 LPTL01 Fix LN01 startup code so that if an asynch terminal line
is defined as 'LN01' all the right things happen.
GCO 10495 24-Feb-87 /JJF
4056 LPTSPL For TOPS-10, add .RBVER to file info line on file banner page.
Also, add .VERSIONs to all modules.
GCO 10499 12-Mar-87 /TL
4057 LPTSPL Fix bug in FH$CNV that prevented lower-case characters in
LPFORM.INI from working.
GCO 10500 13-Mar-87 /JJF
4060 LPTL01 Fix bug in L01INX which turned off the 'mountable forms'
flag (J$MNTF(J)), when we really meant to light it. Allows
mountable forms to work on LN01s.
GCO 10501 13-Mar-87 /JJF
4061 LPTMAC Add code to LPTSPL so it knows what type object processor
LPTSPL (%ONCE, %STCMD, %DEMND) it is and do the necessary
things at the right time.
GCO 10517 27-Jun-87 /LWS
4062 LPTSPL Fix bugs in LODVFU and LODRAM where junk being returned in
S1 on a good return from the driver-specific VFU/RAM loaders
can cause an ILM on the effective address calculation on
the JUMPF instructions. Change the JUMPFs to SKIPT, JRST
GCO 10518 29-Jun-87 /JJF SPR: 35998
4063 LPTLP5 When LP20 simulation is on, and we are running an ANF LPT,
suppress VFU simulation in the ANF node to prevent losing
track of page position. Also, fix PC 0 zero shutting down
streams after edit 4061.
GCO 10521 2-Jul-87 /TL/LWS SPR: CSSC/CS report
4064 LPTSPL Active stream counter is getting cleared each time we
check a stream - wrong. Clear it only when we start
a new AOBJN loop thru the stream database.
GCO 10526 6-Jul-87 /LWS
4065 LPTL01 Recognize terminal type LN01S as well as LN01.
GCO 10XXX 8-Jul-87 /DPM
4066 LPTSPL If debugging, set it so LPTSPL doesn't logout if idle
GCO 10531 13-Jul-87 /LWS
4067 LPTSPL If we successfully startup a DN60 printer, set BYEUDT
to zero so LPTSPL doesn't logout when idle.
GCO 10540 24-Jul-87 /LWS
4070 LPTMAC Change SOPTYP args to new style.
GCO 10548 3-Aug-87 /LWS
4071 LPTSPL Fix problems with LPTSPL's error recovery.
GCO 10566 2-Sep-87 SPR 10-35733 /LWS
4072 LPTSPL Return LP20 simulation flag in response-to-setup msg.
LPTLP5 Needs QUASAR edit 1475.
LPTD60 GCO 10579 6-Oct-87 /LWS
4073 LPTMAC Add support for reverse LAT and LN03's.
LPTSPL GCO 10599 2-Feb-88 /KDO
4074 LPTSPL Fix LAT error recovery.
LPTL03 GCO 10600 4-Feb-88 /KDO
4075 LPTSPL Add code to use new DEVOP. function, .DFFRM, to read/set
forms type of printer.
GCO 10601 9-Feb-88 /LWS
4076 LPTL03 Send reset sequence at end of job.
GCO 10602 16-Feb-88 /KDO
4077 LPTMAC LPTSPL insists on sending a WTOR for /NOTE: in LPFORM.INI
LPTSPL even though we used the forms from printer DDB.
GCO 10605 2-Mar-88 /LWS
4100 LPTL01 Use 8-bit ASCII for LN01's.
GCO 10607 23-Mar-88 /KDO
4101 LPTL03 Allow the LN03 to do graphics output.
GCO 10608 23-Mar-88 /KDO
4102 LPTSPL Don't clear the forms type in the LPT DDB when
shutting down a stream. That defeats the whole idea.
GCO 10630 15-May-88 /RCB
4103 LPTSPL Make sure we check that VFU is ok when setting up
GCO 10632 18-May-88 /LWS
[End of Revision History]
SUBTTL AC and I/O Channel Definitions
M==12 ;IPCF MESSAGE ADDRESS
S==13 ;STATUS FLAGS
E==14 ;POINTS TO CURRENT FILE
J==15 ;JOB CONTEXT POINTER
C==16 ;HOLDS A CHARACTER - ALMOST NEVER PRESERVED
;SET LPTSPL'S OBJECT PROCESSOR TYPE
;PARAMETERS WHICH MAY BE CHANGED AT ASSEMBLY TIME
ND PDSIZE,^D100 ;PDL SIZE
ND LPTERR,2 ;NUMBER OF LPT I/O ERRS BEFORE QUITTING
ND LOGPAG,12 ;PAGE LIMIT FOR LOG IF OVER QUOTA
ND CKPTIM,^D60 ;# of seconds between checkpoints
ND LPTBAN,2 ;Default number of banner pages
ND LPTTRL,2 ;Default number of trailer pages
ND LPTHDR,2 ;Default number of header pages
ND FRWSKP,5 ;DSCHD every n pages when forwardspacing
ND DRVWDS,100 ;Default number of words reserved for device
; drivers in the job data base
ND INISIZ,^D132 ;INIT FILE ATOM BUFFER SIZE IN CHARACTERS
INIWDS==<INISIZ/5>+1 ;INIT FILE ATOM BUFFER SIZE IN WORDS
ND FTACNT,-1 ;Turn on accounting
DEFINE FACT,<IFN FTFACT>
XP MSBSIZ,30 ;SIZE OF A MESSAGE BLOCK
XP AFDSIZ,10 ;ALIGN FILE FD SIZE.
XP DEVLNK,1 ;DEVICE DRIVER LINKED LIST NUMBER
;CHECKPOINT BLOCK OFFSETS
XP CKFIL,0 ;NUMBER OF FILES PRINTED
XP CKCOP,1 ;NUMBER OF COPIES OF LAST FILE
XP CKPAG,2 ;NUMBER OF PAGES OF LAST COPY
XP CKTPP,3 ;TOTAL PAGES PRINTED
XP CKFLG,4 ;FLAGS
XP CKFREQ,1B0 ;JOB WAS REQUEUED BY OPR
XP CKFCHK,1B1 ;JOB WAS CHECKPOINTED
SYSPRM BUFNUM,4,1 ;NUMBER OF BUFFERS
;SIZE OF EACH BUFFER
;NUMBER OF CHARS PER BUFFER
SYSPRM NPRINT,17,1 ;NUMBER OF DEVICES THIS SPOOLER HANDLES
SYSPRM (STRNUM,^D10,NPRINT) ;NUMBER OF STRS MAXIMUM
STRLEN==2*STRNUM ;LENGTH OF STRUCTURE TABLE
SYSPRM (STRSLS,<.FSDSO+<3*STRNUM>+3>,5) ;SIZE OF SEARCH LIST BLOCK
SYSPRM SERFLG,0,0 ;SYSERR flag -- 0=no entries to be made
SYSPRM NBRRT,2,2 ;Non-blocking rest time
SYSPRM DOLRT,10,10 ;Device off-line rest time
SYSPRM CONRT,3,3 ;Console rest time
SYSPRM NENBR,25,25 ;# of errors allowed for NBR return
; when shutting down
DEFINE DEVDSP (PFX,TXT),<
PFX'DSP:PHASE J$$DEV ;;THESE OFFSETS SHOULD BE COMMON TO ALL USERS
DV$LNK::!XWD 0,0 ;;(RESERVED),,LINKED LIST CHAIN ADDRESS
.LINK DEVLNK,<PFX'DSP+<DV$LNK-J$$DEV>> ;;FILL IN CHAIN AT LINK TIME
DV$NAM::!EXP [ASCIZ"TXT"] ;;DRIVER NAME
DV$INX::!EXP PFX'INX ;;DEVICE INITIALIZATION
DV$IPC::!EXP PFX'IPC ;;SPECIAL IPCF MESSAGE PROCESSING
DV$SCD::!EXP PFX'SCD ;;SCHEDULER CALL
DV$WAK::!EXP PFX'WAK ;;WAKEUP TIME CHECK
DV$OPX::!EXP PFX'OPX ;;OPEN DEVICE
DV$CLS::!EXP PFX'CLS ;;CLOSE DEVICE
DV$FLS::!EXP PFX'FLS ;;FLUSH JOB
DV$VFU::!EXP PFX'VFU ;;LOAD VFU
DV$RAM::!EXP PFX'RAM ;;LOAD RAM
DV$LER::!EXP PFX'LER ;;FILE LOOKUP ERROR PROCESSING
DV$IER::!EXP PFX'IER ;;FILE INPUT ERROR PROCESSING
DV$CHO::!EXP PFX'CHO ;;OUTPUT A CHARACTER
DV$OUT::!EXP PFX'OUT ;;OUTPUT A BUFFER
DV$OER::!EXP PFX'OER ;;OUTPUT ERROR PROCESSING
DV$EOX::!EXP PFX'EOX ;;OUTPUT EOF PROCESSING
DV$ALN::!EXP 0 ;;DEVICE DOES NOT DO ALIGNMENTS
DV$DPF::!EXP 0 ;;DEVICE POSITIONING FLAG (SET BY DRIVER)
DV$FFD::!EXP 0 ;;FORM FEED FLAG (SET BY DRIVER)
DV$D3F::!EXP 0 ;;DEVICE SUPPORTS DC3 SPACING
DV$MTF::!EXP 0 ;;MOUNTABLE FORMS FLAG (SET BY DRIVER)
DV$BJB::!EXP PFX'BJB ;;BEGINING OF JOB
DV$EJB::!EXP PFX'EJB ;;END OF JOB
DV$BFL::!EXP PFX'BFL ;;BEGINING OF FILE
DV$EFL::!EXP PFX'EFL ;;END OF FILE
DV$BAN::!EXP PFX'BAN ;;BANNER INITIALIZATION
DV$HDR::!EXP PFX'HDR ;;HEADER INITIALIZATION
DV$CHR::!EXP PFX'CHR ;;CHARACTER TRANSLATION
DV$RUL::!EXP PFX'RUL ;;RULER PROCESSING
DV$WID::!EXP PFX'WID ;;HEADER WIDTH INITIALIZATION
DV$SHT::!EXP PFX'SHT ;;SHUTDOWN HANDLER
DV$STS::!EXP PFX'STS ;;GENERATE DEVICE STATUS TEXT
> ;END DEVDSP MACRO
;SYM IS DEFINED AS GLOBAL TO CATCH SKEWS BETWEEN LPTSPL AND THE DRIVERS
IFDEF SYM,<PRINTX ?PARAM SYM USED TWICE>
> ;;END IFE ...BP
> ;;END REPEAT VAL
> ;END IF1
> ;END IF2
> ;END DEFINE LP
;MACRO DEFINES ZEROED STORAGE
> ;END DEFINE LPZ
IF2,<IFNDEF DSCHD,<EXTERN DSCHD>>
JUMP [EXP FLAGS]
> ;END DEFINE $DSCHD
> ;END DEFINE $D60ER
> ;END DEFINE $D60OE
SUBTTL Flag Definitions
ARROW==1B0 ;ARROW MODE IN EFFECT
SUPFIL==1B1 ;NO USER FORM CONTROL
FRMSOK==1B2 ;FORMS ARE OK
RQB==1B3 ;JOB HAS BEEN REQUED
SUPJOB==1B4 ;SUPPRESS /JOB
ABORT==1B5 ;THE SHIP IS SINKING
FCONV==1B6 ;THE NEXT CHAR IS FORTRAN FORMAT DATA
NEWLIN==1B7 ;FLAG FOR THE BEGINING OF LINE
SKPFIL==1B8 ;SKIP FUTURE COPIES OF THIS FILE COMPLETELY
GOODBY==1B9 ;IN JOB TERMINATION SEQUENCE
FBPTOV==1B10 ;SPACING PAGE TABLE OVERFLOW BIT.
FORWRD==1B11 ;FORWARD SPACING REQUEST IN PROGRESS.
INTRPT==1B12 ;STREAM IS CONNECTED TO THE INTERRUPT SYSTEM
BCKFIL==1B13 ;REQUEST WAS BACKSPACED 1 FILE
BANHDR==1B14 ;PRINTING BANNER/HEADER PAGES
VFULOD==1B15 ;VFU LOAD IS IN PROGRESS
INJOB==1B16 ;In a print job (Checkpoint should be done)
FRMFND==1B17 ;No such forms in LPFORM.INI
STSDRV==7B35 ;BITS RESERVED TO THE DEVICE DRIVERS
PSF%OB==1B1 ;OUTPUT BLOCKED
PSF%DO==1B2 ;DEVICE IS OFF-LINE
PSF%ST==1B3 ;STOPPED BY OPERATOR
PSF%OR==1B4 ;OPERATOR RESPONSE WAIT
PSF%AL==1B5 ;ALIGNMENT TIMER WAIT STATE.
PSF%OO==1B6 ;WAITING FOR 2780/3780 OPERATOR OUTPUT
PSF%MW==1B7 ;MOUNT WAIT
SUBTTL Macros -- DRVTAB device driver table
;Make these definitions to keep LPTSPL from searching GALCNF.
SUBTTL Job Parameter Area
LP J$$BEG,0 ;BEGINNING OF PARAMETER AREA
; LP J$JPAS,1 ;Size of this job parameter block
LP J$RFLN,1 ;NUMBER OF FILES IN REQUEST
LP J$RLIM,1,Z ;JOB LIMIT IN PAGES
LP J$RTIM,1 ;START TIME OF JOB
LP J$RLFS,1,Z ;ADR OF LOG FILE SPEC
LP J$RNFP,1,Z ;NUMBER OF FILES PRINTED
LP J$RNCP,1,Z ;NUMBER OF COPIES OF CURRENT FILE
LP J$RNPP,1,Z ;NUMBER OF PAGES IN CURRENT COPY PRINTED
LP J$RACS,20 ;CONTEXT ACS
LP J$RPDL,PDSIZE ;CONTEXT PUSHDOWN LIST
LP J$LBUF,1 ;ADDRESS OF LPT BUFFER
LP J$LBFR,PAGSIZ ;LINE PRINTER BUFFER
LP J$LBRH,1 ;BUFFER RING HEADER
LP J$LBPT,1 ;BYTE POINTER
LP J$LBCT,1 ;BYTE COUNT
LP J$LDEV,1 ;ACTUAL OUTPUT DEVICE NAME
LP J$LION,1 ;I/O INDEX
LP J$LTYP,1 ;SIXBIT UNIT TYPE
LP J$LOUT,20 ;OUTPUT NODE/DEVICE/UNIT TEXT
LP J$LERR,1 ;LPT ERROR DOWNCOUNTER
LP J$LRAM,1 ;DEFAULT RAM FILE NAME (LP64 or LP96)
LP J$LLCL,1 ;-1 IF UPPER/LOWER CASE PRINTER
LP J$LDVF,1 ;-1 IF DAVFU ON PRINTER
LP J$LDRM,1 ;-1 IF DEVICE HAS A LOADABLE RAM
LP J$LPCR,1 ;-1 IF DEVICE HAS A PAGE CNTR
LP J$LREM,1 ;Device index
; 0 = LOCAL LPT
;-1 = REMOTE LPT
LP J$LLAT,1 ;-1 = LAT SERVER LINE
LP J$LCLS,1 ;LPT CONTROLLER CLASS
LP J$LIOA,1 ;-1 IF WE ARE IN A SOUT OR OUT
LP J$LLPT,1 ;-1 IF DEVICE REALLY IS A LPT
LP J$LIOS,1 ;LPT IO ERROR STATUS
LP J$XIOS,1 ;EXTENDED ERROR STATUS
LP J$LCHN,1 ;LPT I/O CHANNEL
LP J$LBTZ,1 ;LPT OUTPUT BYTE SIZE
LP J$LSTG,2 ;DEVICE NAME STRING
LP J$LIBC,1 ;INITIAL BYTE COUNT
LP J$LIBP,1 ;INITIAL BYTE POINTER
LP J$DCHR,1 ; STREAM'S DEVICE CHARACTERISTICS
;CONTINUED ON NEXT PAGE
;CONTINUED FROM PREVIOUS PAGE
;CURRENT FORMS PARAMETERS
LP J$FCUR,0 ;START OF FORMS PARAMS
F ;CURRENT FORMS PARAMS
LP J$FORM,1 ;CURRENT FORMS TYPE
LP J$FPFM,1 ;PREVIOUS FORMS TYPE
LP J$PDRU,1 ;PREVIOUS LOADED DRUM
LP J$PRIB,1 ;PREVIOUS LOADED RIBBON
LP J$PTAP,1 ;PREVIOUS LOADED CARRAIGE CONTROL TAPE
LP J$FMSP,1,Z ;FORMS WTO/WTOR PAGE ADDRESS
LP J$FWCL,1 ;CURRENT WIDTH CLASS
LP J$FLCL,1 ;Current length class
LP J$FLVT,1 ;CURRENTLY 'LOADED' VFU TYPE
LP J$FLRM,1 ;CURRENTLY 'LOADED' TRANSLATION RAM
LP J$FVIF,1 ;IFN OF VFU FILE ON -10
LP J$FBYT,1,Z ;VFU INPUT BYTE COUNT.
LP J$FPTR,1 ;VFU INPUT BYTE POINTER.
LP J$LVFF,1 ;FIRST TIME THROUGH FLAG FOR LPT VFU'S
LP J$CVFU,1 ;-1 IF CHECKING VFU INSTEAD OF LOAD
LP J$FNBK,INIWDS ;OPERATOR NOTE BLOCK
IF2,< PURGE J$FVFU,J$FCHA ;DON'T USE THESE >
;ALIGN FILE PARAMETERS
LP J$APRG,1 ;-1 IF ALIGN IS IN PROGRESS
LP J$AIFN,1 ;ALIGN FILE IFN
LP J$ABYT,1 ;ALIGN BUFFER BYTE COUNT.
LP J$APTR,1 ;ALIGN BUFFER BYTE POINTER.
LP J$ASLP,1,Z ;SECONDS TO SLEEP
LP J$ACNT,1,Z ;LOOP COUNT
LP J$AFD,AFDSIZ ;THE FD FOR THE ALIGN FILE
LP J$XTOP,1 ;WE ARE AT TOP OF FORM
LP J$XFOB,FOB.SZ ;A FILE OPEN BLOCK
LP J$XPOS,1 ;CURRENT VERTICAL POSITION
LP J$XHBF,<45> ;BUFFER TO BUILD HEADER LINE
LP J$XCOD,<^D55> ;COMPILE A ROUTINE TO CHECK
; FOR MATCH ON /REPORT
LP J$XFRC,1 ;FORTRAN CHARACTER REPEAT COUNT
LP J$XTBF,50 ;$TEXT BUFFER FOR OUTPUT DEVICE
LP J$XTBP,1 ;BYTE POINTER FOR J$XTBF.
LP J$RESP,2,Z ;OPERATOR RESPONSE BUFFER.
LP J$WTOR,^D50 ;WTOR MESSAGE BUFFER.
LP J$APRT,1,Z ;PAGE COUNT.
LP J$ADRD,1,Z ;DISK BLOCKS READ.
LP J$APRI,1,Z ;JOBS PRIORITY
LP J$ARTM,1,Z ;JOBS RUN TIME (CPU)
LP J$ASEQ,1,Z ;JOBS SEQUENCE NUMBER
LP J$AFXC,1,Z ;TOTAL FILES PRINTED (FILES*COPIES)
;FORWARD SPACE / BACK SPACE PARAMETERS
LP J$FBPT,1 ;CURRENT PAGE TABLE POSITION
LP J$FPAG,PAGSIZ ;BACKSPACE PAGE TABLE
LP J$FCBC,1,Z ;CURRENT INPUT BUFFER BYTE COUNT
LP J$FTBC,1,Z ;TOTAL INPUT BYTE COUNT
LP J$FPIG,1,Z ;NUMBER OF PAGES TO IGNORE
;DISK FILE PARAMETERS
LP J$DIFN,1 ;THE IFN
LP J$DFDA,1 ;THE FD ADDRESS
LP J$DBPT,1 ;BUFFER BYTE POINTER
LP J$DBCT,1,Z ;BUFFER BYTE COUNT
;LOG FILE PARAMETERS
LP J$GBUF,^D10 ;ADDRESS OF LOG FILE BUFFERS
LP J$GBFR,PAGSIZ ;FIRST LOG FILE BUFFER
LP J$GNLN,1,Z ;NUMBER OF LINES WRITTEN IN LOG
LP J$GIBC,1,Z ;INTERNAL LOG BYTE COUNT
LP J$GIBP,1,Z ;INTERNAL LOG BYTE POINTER
LP J$GINP,1,Z ;NUMBER OF INTERNAL LOG PAGES
LP J$GSPL,2 ;SPOOLED FILENAME THAT'S PUT IN LOG
LP J$PUSR,10 ;USER NAME
LP J$PNOT,4 ;/NOTE
LP J$PDST,10 ;/DISTRIBUTION:"text"
LP J$PFL1,10 ;FIRST LINE OF FILE NAME
LP J$PFL2,12 ;SECOND LINE OF FILE NAME
LP J$PFLS,1 ;BLOCKSIZE FOR FILENAME
LP J$FTYP,1 ;Address of special file typer
LP J$FASC,1 ;No graphics interpretation
LP J$DBRK,1 ;Address of device character break mask
LP J$DWDS,DRVWDS ;Words reserved for device drivers
LP J$VRAM,1 ;Address of simulated RAM
LP J$VVFU,1 ;Address of simulated VFU
LP J$VFLG,1 ;Flags for LP20 simulation
VF.DLH==1B0 ;;Delim hold is set
VF.UDC==1B1 ;;Undefined char interrupt pending
VF.PCZ==1B2 ;;Page counter interrupt pending
LP J$VLIN,1 ;RH - Current line for VFU simulation
;LH - Bit 0 page counter enabled
; Bits 1-17 page counter
LP J$$DEV,0 ;Device dispatch table
LP J$LINK,1 ;Device driver chain link
LP J$DRIV,1 ;Driver name
LP J$INIT,1 ;Device initialization
LP J$IPCF,1 ;Special IPCF message processing
LP J$SCHD,1 ;Scheduler call
LP J$WAKE,1 ;Wakeup timer check
LP J$OPEN,1 ;OPEN device
LP J$CLOS,1 ;CLOSE device
LP J$FLSH,1 ;Flush
LP J$VFU,1 ;Load VFU
LP J$RAM,1 ;Load RAM
LP J$FLER,1 ;File LOOKUP error processing
LP J$FIER,1 ;File input error processing
LP J$CHRO,1 ;Output a character to virtual device
LP J$OUTP,1 ;Output a buffer
LP J$OUTE,1 ;OUTPUT error processing
LP J$EOF,1 ;EOF processing
LP J$ALNF,1 ;Printer does not need alignment
LP J$POSF,1 ;Device position flag
LP J$FFDF,1 ;Form feed flag
LP J$DC3F,1 ;Device supports DC3 spacing
LP J$MNTF,1 ;Mountable forms flag
LP J$BJOB,1 ;Begining of job
LP J$EJOB,1 ;End of job
LP J$BFIL,1 ;Begining of file
LP J$EFIL,1 ;End of file
LP J$BNRI,1 ;Banner initialization
LP J$HDRI,1 ;Header initialization
LP J$BKPR,1 ;Character processor
LP J$RULR,1 ;RULER DISPLAYER
LP J$HDRW,1 ;SET UP WIDTHS FOR HEADERS
LP J$SHUT,1 ;SHUTDOWN HANDLER
LP J$STST,1 ;STATUS MESSAGE
LP J$$DND,1 ;End device initialization vectors
; LP J$$END,1 ;END OF PARAMETER AREA
;AREA FOR FONT FILE HANDLERS
LP J$FONT,1 ;Address of font header from /FONT
LP J$FNTL,1 ;Name of font name linked list
;** Next two words must be consecutive
LP J$FCNT,1 ;**Number of characters in font buffer
LP J$FBTP,1 ;**Font byte pointer
CHTLTH==^D200 ;Lenght of the intercepted sequence
CHTWDS==CHTLTH/4 ;Number of words it takes up
LP J$CTMP,CHTWDS ;Address of intercepted escape seq.
LP J$NMTP,FNMLTH ;Temporary name variable
LP J$NMT2,FNMLTH ;And another for comparisons against
;Variables for SIXELed name extraction
LP J$FNSZ,1 ;Size of physical RAM
LP J$LDNF,1 ;Flag for always load font
LP J$NMIF,1 ;Name of get byte routine for FNTNAM
LP J$OLDL,1 ;Name of current list
LP J$SVCH,1 ;Last character read
LP J$BCT8,1 ;Count of translated bytes
LP J$BYT8,1 ;And where they are kept (3 at a time)
LP J$$FND,1 ;End of font parameter area
LP J$$END,1 ;END OF PARAMETER AREA
J$$LEN==J$$END-J$$BEG ;Length of parameter area
J$$FNL==J$$FND-J$$BEG ;Lenght for font printers
SUBTTL End of LPTMAC