Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50547/sprout.cor
There is 1 other file named sprout.cor in the archive. Click here to see a list.
INS 4/1
CSM01$==^D400 ;Plotter has 3 pens, ON-LINE indicator, 400 SPI
CSM02$==-1 ;Compressed plot files
CSM03$==-1 ;Red and Black in banner
CSM04$==-1 ;Do CSM accounting (minutes and inches used)
CSM05$==-1 ;Add SLEEP time to $DSCHD macro for TTY response wait
CSM06$==^D1200 ;Support the TAB Products Card Terminal at 1200 baud
CSM07$==-1 ;Change some QUEUE defaults
CSM08$==^D2400 ;PTC-6 Plotter Terminal Controller at 2400 baud
IF2,<IFN CSM02$,<PRINTX [CSM02$ uses TOLP.REL]>>
IF2,<IFN CSM06$,<PRINTX [CSM06$ uses TABCDP.REL]>>
IF2,<IFN CSM08$,<PRINTX [CSM08$ uses PTC6.REL]>>
REPEAT 0,< ;To completely remove the CSM changes, make this a REPEAT 1
CSM01$==0 ;Normal XY-10 plotter
CSM02$==0 ;Plot files are 1 byte per increment (very big)
CSM03$==0 ;Do not exercise the black and red pens
CSM04$==0 ;Account disk reads instead of forms type
CSM05$==0 ;No TTY I/O, therefore no sleep requests
CSM06$==0 ;Card punch is on I/O bus or front-end 11
CSM07$==0 ;Use whatever QUEUE says
CSM08$==0 ;Plotter is not connected to a TTY line
DEFINE CSMEDT($EDIT,$PART),<> ;Dummy macro
CSMED$==0 ;No additional edits
> ;End of REPEAT 0
INS 26/1
PAGE
SALL ;Also searches UUOSYM and ACTSYM.UNV
INS 30/1
IFNDEF CSMEDT,< SEARCH CSMEDT > ;CSM edit macro
.XCREF S1,S2,T1,T2,T3,T4,C,J,P ;[CSM] Save some trees
REP 35/1
SPOWHO==0 ;WHO LAST PATCHED
%SPO==<BYTE (3)SPOWHO(9)SPOVER(6)SPOMIN(18)SPOEDT>
WIT
SPOWHO==2 ;Who last patched (JMS @ CSM)
%SPO==<BYTE (3)SPOWHO(9)SPOVER(6)SPOMIN(18)SPOEDT>+CSMED$
REP 1/2
SUBTTL Table of contents
; TABLE OF CONTENTS FOR SPROUT
;
;
; SECTION PAGE
; 1. Table of contents......................................... 2
; 2. Revision History.......................................... 3
; 3. Constants (Conditional and Unconditional)................ 4
; 4. MACROS.................................................... 5
; 5. Special Forms Handling Parameters......................... 6
; 6. Flag Definitions.......................................... 8
; 7. Job Parameter Area........................................ 9
; 8. Random Impure Storage..................................... 12
; 9. Resident JOB DaTABase..................................... 13
; 10. Non-zero daTABase......................................... 14
; 11. $TEXT Utilities and common Messages....................... 15
; 12. Program Initialization.................................... 16
; 13. Idle Loop................................................. 17
; 14. Deschedule Process........................................ 18
; 15. Do the Job................................................ 19
; 16. Process a File............................................ 20
; 17. End of Job................................................ 21
; 18. FILDIS Routine to KEEP/DELETE requested files............ 21
; 19. CHKQUE Routine to process IPCF messages.................. 22
; 20. CHKOBJ Routine to validate QUASAR/ORION/OPR MSG Object block 23
; 21. FNDOBJ Routine to establish STREAM context............... 24
; 22. GETBLK Routine to return next argument from an OPR/ORION message 25
; 23. NEXTJOB Message from QUASAR............................... 26
; 24. User CANCEL Request....................................... 27
; 25. UPDATE Routine to send status update...................... 28
; 26. CHKPNT Routine to send checkpoint message................. 29
; 27. SETUP/SHUTDOWN Message.................................... 30
; 28. Response to setup message................................. 31
; 29. Operator CANCEL command................................... 32
; 30. Operator STOP command..................................... 33
; 31. Operator CONTINUE command................................. 33
; 32. Operator RESPONSE command................................. 33
; 33. Operator REQUEUE command.................................. 34
; 34. CLRMSG and SNDQSR routines................................ 35
; 35. Accounting routines....................................... 37
; 36. FORMS - Setup Forms for a job............................. 40
; 37. Forms switch Subroutines.................................. 44
; 38. Plotter only switches..................................... 45
; 39. I/O Subroutines for SPFORM.INI............................ 46
; 40. INPOPN - Routine to open the input file................... 48
; 41. INPBUF - Read a buffer from the input file................ 49
; 42. INPBYT - Read a byte from the input file.................. 49
; 43. INPERR - Handle an input failure.......................... 49
; 44. INPFEF - Force end-of-file on next input.................. 49
; 45. INPREW - Rewind the input file............................ 49
; 46. OUTGET - OPEN the output device........................... 50
; 47. OUTBYT - Deposit a byte in the output buffer.............. 53
; 48. OUTOUT - Routine to output a buffer....................... 54
; 49. DEVERR - Handle Output Device Errors...................... 55
; 50. OUTREL - Release output device............................ 56
; 51. OUTWON - Wait for on-line................................. 57
; 52. OUTFLS Routine to flush output buffers.................... 58
; 53. Card punch service
; 53.1 Dispatch table.................................... 59
; 53.2 Checkpoint text generation........................ 60
; 53.3 File processing................................... 61
; 53.4 File headers...................................... 67
; 53.5 File trailers..................................... 68
; 53.6 Banners........................................... 69
; 53.7 Word punching..................................... 70
; 53.8 Letters........................................... 71
; 53.9 Byte output....................................... 72
; 54. Plotter service
; 54.1 Dispatch table.................................... 73
; 54.2 Checkpoint text generation........................ 74
; 54.3 File processing................................... 75
; 54.4 Devout output errors.............................. 77
; 54.5 Banners........................................... 78
; 54.6 File headers...................................... 79
; 54.7 File trailers..................................... 80
; 54.8 Job trailers...................................... 81
; 54.9 Solid lines....................................... 82
; 54.10 Dashed lines...................................... 83
; 54.11 Job information plotting.......................... 84
; 54.12 Alignment and testing............................. 85
; 54.13 Pen calibration................................... 86
; 54.14 Compute chracter size............................. 87
; 54.15 Letters........................................... 88
; 54.16 Line segments..................................... 89
; 54.17 Rotation and XY20 translation..................... 91
; 54.18 Pen movement generation........................... 92
; 54.19 Character set..................................... 94
; 55. Paper tape punch service
; 55.1 Dispatch table.................................... 99
; 55.2 Checkpoint text generation........................ 100
; 55.3 File processing................................... 101
; 55.4 Banners........................................... 106
; 55.5 File headers...................................... 107
; 55.6 File trailers..................................... 108
; 55.7 Trailers.......................................... 109
; 55.8 Blank folds....................................... 110
; 55.9 Letters........................................... 111
; 55.10 Byte output....................................... 112
; 56. Character Bit Array for 5 X 7 Character Matrix............ 113
; 57. Common Utilities.......................................... 115
; 58. Interrupt Module.......................................... 118
; 59. IPCF and DEVICE Interrupt service for TOPS10.............. 122
; 60. IPCF and DEVICE interrupt service for TOPS20.............. 123
WIT
SUBTTL Table of Contents
; Table of Contents for SPROUT
;
;
; Section Page
;
; 1. Table of Contents . . . . . . . . . . . . . . . . . . 1
; 2. Revision History . . . . . . . . . . . . . . . . . . . 2
; 3. CSM Revision History . . . . . . . . . . . . . . . . . 2
; 4. Constants (Conditional and Unconditional) . . . . . . 4
; 5. MACROS . . . . . . . . . . . . . . . . . . . . . . . . 5
; 6. Special Forms Handling Parameters . . . . . . . . . . 6
; 7. Flag Definitions . . . . . . . . . . . . . . . . . . . 7
; 8. Job Parameter Area . . . . . . . . . . . . . . . . . . 8
; 9. Random Impure Storage . . . . . . . . . . . . . . . . 11
; 10. Resident JOB DaTABase . . . . . . . . . . . . . . . . 12
; 11. Non-zero daTABase . . . . . . . . . . . . . . . . . . 13
; 12. $TEXT Utilities . . . . . . . . . . . . . . . . . . . 14
; 13. Program Initialization . . . . . . . . . . . . . . . . 15
; 14. Idle Loop . . . . . . . . . . . . . . . . . . . . . . 16
; 15. Deschedule Process . . . . . . . . . . . . . . . . . . 17
; 16. CHKTIM - Routine to see if it's time to schedule a s . 17
; 17. Do the Job . . . . . . . . . . . . . . . . . . . . . . 18
; 18. Process a File . . . . . . . . . . . . . . . . . . . . 19
; 19. End of Job . . . . . . . . . . . . . . . . . . . . . . 20
; 20. FILDIS . . . . . . . . . . . . . . . . . . . . . . . . 21
; 21. CHKQUE . . . . . . . . . . . . . . . . . . . . . . . . 22
; 22. CHKOBJ . . . . . . . . . . . . . . . . . . . . . . . . 23
; 23. FNDOBJ . . . . . . . . . . . . . . . . . . . . . . . . 24
; 24. GETBLK . . . . . . . . . . . . . . . . . . . . . . . . 25
; 25. NEXTJOB Message from QUASAR . . . . . . . . . . . . . 26
; 26. User CANCEL Request . . . . . . . . . . . . . . . . . 27
; 27. UPDATE Routine to send status update . . . . . . . . . 28
; 28. CHKPNT Routine to send checkpoint message . . . . . . 29
; 29. SETUP/SHUTDOWN Message . . . . . . . . . . . . . . . . 30
; 30. Response to setup message . . . . . . . . . . . . . . 31
; 31. Operator CANCEL command . . . . . . . . . . . . . . . 32
; 32. Operator STOP command . . . . . . . . . . . . . . . . 33
; 33. Operator CONTINUE command . . . . . . . . . . . . . . 33
; 34. Operator RESPONSE command . . . . . . . . . . . . . . 33
; 35. Operator REQUEUE command . . . . . . . . . . . . . . . 34
; 36. CLRMSG and SNDQSR routines . . . . . . . . . . . . . . 35
; 37. FRMLEX - Forms limit exceeded routine . . . . . . . . 36
; 38. Accounting routines . . . . . . . . . . . . . . . . . 37
; 39. FORMS - Setup Forms for a job . . . . . . . . . . . . 40
; 40. Forms switch Subroutines . . . . . . . . . . . . . . . 44
; 41. Plotter only switches . . . . . . . . . . . . . . . . 45
; 42. I/O Subroutines for SPFORM.INI . . . . . . . . . . . . 46
; 43. INPOPN - Routine to open the input file . . . . . . . 48
; 44. INPBUF - Read a buffer from the input file . . . . . . 49
; 45. INPBYT - Read a byte from the input file . . . . . . . 49
; 46. INPERR - Handle an input failure . . . . . . . . . . . 49
; 47. INPFEF - Force end-of-file on next input . . . . . . . 49
; 48. INPREW - Rewind the input file . . . . . . . . . . . . 49
; 49. OUTGET - OPEN the output device . . . . . . . . . . . 49
; 50. OUTBYT - Deposit a byte in the output buffer . . . . . 53
; 51. OUTOUT - Routine to output a buffer . . . . . . . . . 53
; 52. DEVERR - Handle Output Device Errors . . . . . . . . . 55
; 53. OUTREL - Release output device . . . . . . . . . . . . 56
; 54. OUTWON - Wait for on-line . . . . . . . . . . . . . . 57
; 55. OUTFLS Routine to flush output buffers . . . . . . . . 58
; 56. TTY I/O
; 56.1 Input character from TTY, no wait . . . . . . 59
; 56.2 Input character, wait up to 30 seconds . . . . 60
; 57. Card punch service
; 57.1 Dispatch table . . . . . . . . . . . . . . . . 61
; 57.2 Checkpoint text generation . . . . . . . . . . 62
; 57.3 File processing . . . . . . . . . . . . . . . 63
; 57.4 File headers . . . . . . . . . . . . . . . . . 69
; 57.5 File trailers . . . . . . . . . . . . . . . . 70
; 57.6 Banners . . . . . . . . . . . . . . . . . . . 71
; 57.7 Word punching . . . . . . . . . . . . . . . . 72
; 57.8 Letters . . . . . . . . . . . . . . . . . . . 73
; 57.9 Byte output . . . . . . . . . . . . . . . . . 74
; 58. Plotter service
; 58.1 Dispatch table . . . . . . . . . . . . . . . . 75
; 58.2 Checkpoint text generation . . . . . . . . . . 76
; 58.3 File processing . . . . . . . . . . . . . . . 77
; 58.4 Expand CSM's compressed plot format . . . . . 79
; 58.5 READ36, OPRTXT, PAUSEP, TITLE for TOLP . . . . 81
; 58.6 NEWPEN for 3-pen plotter . . . . . . . . . . . 82
; 58.7 DEVOUT output errors . . . . . . . . . . . . . 83
; 58.8 Banners . . . . . . . . . . . . . . . . . . . 84
; 58.9 File headers . . . . . . . . . . . . . . . . . 85
; 58.10 File trailers . . . . . . . . . . . . . . . . 86
; 58.11 Job trailers . . . . . . . . . . . . . . . . . 87
; 58.12 Solid lines . . . . . . . . . . . . . . . . . 88
; 58.13 Dashed lines . . . . . . . . . . . . . . . . . 89
; 58.14 Job information plotting . . . . . . . . . . . 90
; 58.15 Alignment and testing . . . . . . . . . . . . 91
; 58.16 Pen calibration . . . . . . . . . . . . . . . 92
; 58.17 Compute character size . . . . . . . . . . . . 93
; 58.18 Letters . . . . . . . . . . . . . . . . . . . 94
; 58.19 Line segments . . . . . . . . . . . . . . . . 95
; 58.20 PTC-6 interface . . . . . . . . . . . . . . . 97
; 58.21 Rotation and XY20 translation . . . . . . . . 98
; 58.22 Pen movement generation . . . . . . . . . . . 99
; 58.23 Character set . . . . . . . . . . . . . . . . 101
; 59. Paper tape punch service
; 59.1 Dispatch table . . . . . . . . . . . . . . . . 106
; 59.2 Checkpoint text generation . . . . . . . . . . 107
; 59.3 File processing . . . . . . . . . . . . . . . 108
; 59.4 Banners . . . . . . . . . . . . . . . . . . . 113
; 59.5 File headers . . . . . . . . . . . . . . . . . 114
; 59.6 File trailers . . . . . . . . . . . . . . . . 115
; 59.7 Trailers . . . . . . . . . . . . . . . . . . . 116
; 59.8 Blank folds . . . . . . . . . . . . . . . . . 117
; 59.9 Letters . . . . . . . . . . . . . . . . . . . 118
; 59.10 Byte output . . . . . . . . . . . . . . . . . 119
; 60. Character Bit Array for 5 X 7 Character Matrix . . . . 120
; 61. Common Utilities . . . . . . . . . . . . . . . . . . . 122
; 62. Interrupt Module . . . . . . . . . . . . . . . . . . . 124
; 63. IPCF and DEVICE Interrupt service for TOPS10 . . . . . 128
; 64. IPCF and DEVICE interrupt service for TOPS20 . . . . . 129
REP 205/3
;BEGIN CODE MAINTENANCE
WIT
;BEGIN CODE MEINTENANCE
REP 209/3
End of revision history
\
WIT
End of revision history
\
PAGE
SUBTTL CSM Revision History
;
; Edit Date Who Description
;====== ========= === ===========
;
;CSM01$ 14-Nov-80 JMS Plotter has 3 pens and an ON-LINE indicator. Add
; routines to change pens and proper positioning after
; the plot. Make sure the plotter is on-line at OUTOUT.
CSMEDT 01 ;Show value of CSM01$
INCS=<CSM01$> ;400 increments per inch = 620 octal
IFN CSM01$,<ND CKPTIM,^D60> ;Checkpoint every minute.
;
;CSM02$ 14-Nov-80 JMS Use the compressed plot file format as defined
; in PLOT.REL (from CSM's FORLIB). Instead of one
; byte per increment, most halfwords in the file
; contains 9-bits of delta-X and 9 of delta-Y.
; Use TOLP.REL to translate the disk file back
; into calls to subroutine PLOT.
CSMEDT 02 ;Show value of CSM02$
IFN CSM02$,<IFE CSM01$,<PRINTX ?Must have CSM01$ on for CSM02$>>
;
;CSM03$ 14-Nov-80 JMS Change the plot banner to exercise the red and
; black pens. Plot error message even if no
; /TRAILER and set blue pen at P$EOF.
CSMEDT 03 ;Show value of CSM03$
;
;CSM04$ 25-Mar-81 JMS Put the forms name in place of DISK-WRITES,
; amount of paper in PAGES-PRINTED, cards, feet,
; or plot time in DISK-READS.
CSMEDT 04 ;Show value of CSM04$
;
;CSM05$ 8-Jan-81 JMS Add a sleep request to $DSCHD. RH of flags is
; number of seconds to wait. This is needed for
; non-blocking TTY I/O routines.
CSMEDT 05 ;Show value of CSM05$
;
;CSM06$ 8-Jan-81 JMS Add support for the TAB Products Card Terminal.
; It is a Reader/Punch that acts like a TTY.
CSMEDT 06 ;Show baud rate (^D1200=^O2260)
IFN CSM06$,<IFE CSM05$,<PRINTX ?Must have CSM05$ on for CSM06$>>
;
;CSM07$ 8-Mar-83 JMS Remove DSPMOD so that cards are punched in ASCII,
; paper tape is punched in ASCII, and plots are
; done in 18-bit BINARY mode unless explicitly
; requested otherwise. This is so that output
; from SOS or SED is not punched in image-binary.
; Remove "BEGIN:", "JOB", "jobnam", "USER:" from
; card punch banner, ignore QUEUE's default of
; /NOHEADER and always punch file header on cards.
CSMEDT 07 ;Show value of CSM07$
;
;CSM08$ 28-Jun-83 JMS Add support for the Houston Instruments PTC-6
; Plotter Terminal Controller on a TTY line.
CSMEDT 08 ;Show value of CSM08$
IFN CSM08$,< EXTERN PTCINI,PTCMOV,PTCOUT,PTCFIN
IFE CSM05$,<PRINTX ?Must have CSM05$ on for CSM08$>>
;
CSMED$==10 ;Increment this to change .JBVER
;End of CSM Revision History
INS 60/4
COMMENT ~
From the OPERATOR's point of view, the supply spool on the plotter is
above the pen holder, and the takeup spool is below the pen holder.
Therefore, to move the pen in the +Y direction, the pen holder moves to
the left. To move the pen in the +X direction, the pen stays still and
the paper is moved down (towards the takeup spool). The following
definitions are based on this point of view.
;End of COMMENT ~
REP 65/4
XP XYU,10 ;-X MOVE UP
XP XYD,4 ;+X MOVE DOWN
XP XYL,2 ;+Y MOVE LEFT
XP XYR,1 ;-Y MOVE RIGHT
WIT
XP XYU,10 ;-X move the paper up
XP XYD,4 ;+X move the paper down
XP XYL,2 ;+Y move pen holder left
XP XYR,1 ;-Y move pen holder right
PLUSX== XYD ;[CSM] ;Move in positive X direction 0
PLUSY== XYL ;[CSM] ;Move in positive Y direction 90
MINUSX==XYU ;[CSM] ;Move in negative X direction 180
MINUSY==XYR ;[CSM] ;Move in negative Y direction 270
REP 73/4
XP PLTPEN,^D9 ;# TICS FOR PLOT PEN UP/DOWN
WIT
CSMEDT 01,0 ;3-pen plotter, definitions
IFE CSM01$,<XP PLTPEN,^D9> ;# TICS FOR PLOT PEN UP/DOWN
IFN CSM01$,<XP PLTPEN,^D<1800*30/1000> ;30 millisec compared to 1800 per second
REP 3/5
DEFINE LP(SYM,VAL,FLAG),<
WIT
DEFINE LP(SYM,VAL,FLAG),<;;Flag="Z" marks a variable to be zeroed per job
REP 29/5
SYM==J...X
> ;END IF2
> ;END DEFINE LP
WIT
SYM==J...X>;;END IF2>;;END DEFINE LP
;[CSM] Removed 2 CRLFs so that MACRO will show value in listing
REP 3/6
;FORMS SWITCHES:
;FOR ALL DEVICES
; BANNER:NN NUMBER OF JOB HEADERS
; TRAILER:NN NUMBER OF JOB TRAILERS
; HEADER:NN NUMBER OF FILE HEADERS (PICTURE PAGES)
; NOTE:AA TYPE NOTE TO THE OPERATOR
;FOR PLOTTER ONLY
; SPU:NN STEPS PER UNIT (FACTOR OF ALL XX AND YY)
; SIZE:XX:YY NUMBER OF STEPS IN X AND Y AXIS
; MAXIMUM:XX:YY STEP FOR FORMS LIMIT IN X AND Y AXIS
; MINIMUM:XX:YY STEP FOR FROMS LIMIT IN X AND Y AXIS
;IN THE ABOVE AND BELOW EXPLANATIONS:
; NN IS A DECIMAL NUMBER
; SS IS A 1-6 CHARACTER STRING
; AA IS A STRING OF 1 TO 50 CHARACTERS
; OO IS AN OCTAL NUMBER
; XX INTEGER STEP NUMBER IN X AXIS
; YY INTEGER STEP NUMBER IN Y AXIS
;LOCATION SPECIFIERS
; ALL ALL DEVICES
; CENTRAL ALL DEVICES AT THE CENTRAL SITE
; REMOTE ALL REMOTE DEVICES
;NOTE: SPROUT WILL USE THE FIRST ENTRY WHICH MEETS THE LOCATION
; SPECIFICATION FOR ITS DEVICE.
; SPROUT ACCEPTS FORMS SPECIFICATIONS FOR ALL THREE DEVICES
; ALTHOUGH SOME SWITCHES ARE LEGAL ONLY FOR PLOTTERS
;TYPICAL SPFORM.INI FORMS SPECIFICATION
; CDP NORMAL/BANNER:6/HEADER:1/TRAILER:6-
; /NOTE:Load NORMAL Cards in Card Punch
;
; PLT NORMAL/BANNER:200/HEADER:200/TRAILER:200-
; /MINIMUM:0:0/MAXIMUM:0:5900-
; /NOTE:Set Plotter Controls to 200 Steps per inch
WIT
;Format of SYS:SPFORM.INI
; DEV FORM/SWITCH This line applies to all devices of this type
; DEV FORM:ALL/SWITCH This line applies to all devices of this type
; DEV FORM:LOC/SWITCH This line applies to devices at the central site
; DEV FORM:REM/SWITCH This line applies to devices on remote nodes
; "DEV" can be one of PLT, CDP, or PTP
; "FORM" is the name of the forms type, 6 characters or less
;Note: SPROUT will use the first entry which meets the location
; specification for its device. Therefore, if ALL is used with
; LOC or REM, ALL should be after the LOC or the REM.
;Switches legal for all devices
; /BANNER Output the job header
; /HEADER Output file headers
; /TRAILER Output the job trailer
; /NOTE:AA Type NOTE to the OPR when forms are mounted
;Switches legal for plotters only
; /SPU:NN Steps per unit (a factor of all XX and YY)
; /SPS:NN Steps per second (for calculating run time)
; /MAXIMUM:XX:YY Maximum pen position
; /MINIMUM:XX:YY Minimum pen position after file header
;In the above and below explanations:
; NN is a decimal number
; AA is a string of 1 to 50 characters, terminated by next "/"
; XX is a limit for the X axis
; YY is a limit for the Y axis
;Typical SPFORM.INI forms specification
; CDP NORMAL/BANNER/HEADER -
; /NOTE:Load NORMAL Cards in Card Punch
;
; PLT NORMAL/BANNER/HEADER/TRAILER/SPS:900
; /SPU:1/MINIMUM:0:0/MAXIMUM:0:5900-
; /NOTE:Set Plotter Controls to 200 Steps per inch
;
; PTP NORMAL/BANNER/HEADER/TRAILER
; PTP BLACK /BANNER/HEADER/TRAILER/NOTE:Black oiled paper tape
PAGE
COMMENT | CSM interpretation of plotter parameters
;
Example for a drum plotter:
;
PLT NORMAL /SPS:1800/SPU:4/MINIMUM:0:0/MAXIMUM:0:1100 -
/BANNER/HEADER/TRAILER
;
PLT = This line applies to the plotter (not CDP or PTP).
NORMAL = The forms name.
/SPS:1800 = Do accounting based on speed of 1800 steps per second.
/SPU:4 = This plotter uses 400 steps per inch, the following
numbers are in 1/100ths of an inch.
/MINIMUM:0:0 = Pen cannot go to left or below the starting point.
/MAXIMUM::1100 = There is no maximum limit in the +X direction, +Y movement
is limited to 11.00 inches. The height of characters used
in the /BANNER/HEADER/TRAILER is 11.00/90 = 0.12 inches.
- = Hypen indicates a continued line.
/BANNER = Plot "* Start job XXX" 0.12 inches high, plot user's name
and PPN 0.36 inches high, and a line across the paper.
/HEADER = Plot file name 0.12 inches high and a dashed line.
/TRAILER = Plot a dashed line and the summary 0.12 inches high.
/NOTE = No note is specified, so that "OPR>START PLOT 0" will
not require a "RESPOND 'PROCEED' WHEN READY".
;
End of COMMENT |
REP 14/7
DEFINE FF(A),<
XLIST
<<SIXBIT /A/>&777777B17>+S$'A
LIST
SALL
>
FFNAMS: SWITCHES
F$NSW==.-FFNAMS ;NUMBER OF SWITCHES
WIT
DEFINE FF(A),< <<SIXBIT /A/>&777777B17>+S$'A >;;All on 1 line to look nice
XALL ;[CSM] Show definition in the listing
FFNAMS: SWITCHES
F$NSW==.-FFNAMS ;NUMBER OF SWITCHES
SALL ;[CSM] Normal macro expansions
REP 46/9
LP J$FPLT,1 ;FORMS TYPE FOR PLOTTER
WIT
LP J$FPLT,1 ;-1 = Plotter-only switches are legal
INS 65/9
CSMEDT 05,1 ;TTY I/O and SLEEP, part 1 just before PLOTTER VARIABLES
IFN CSM05$,< ;Flags and variables
LP J$TTY,1 ;'CDP' in LH, UDX in RH
LP J$WUDT,1 ;UDT when to wakeup
LP J$NACK,1 ;Count of Negative ACKs
> ;End of IFN CSM05$
REP 3/10
LP J$PAUS,1 ;PAUSE FOR EVERY FORM
WIT
;[CSM] LP J$PAUS,1 ;PAUSE FOR EVERY FORM
INS 22/10
CSMEDT 01,1 ;3-Pen plotter, part 1 in "PLOTTER VARIABLES"
IFN CSM01$,< ;Flags and variables for plotter
LP J$PENN,1 ;Pen number, from 1 to 3
LP J$XLOW,1 ;Lowest XSTEP seen while pen was down
> ;End of IFN CSM01$
REP 10/11
LP J$DSPX,1 ;SPOOLED FILE EXTENTION
WIT
LP J$DSPX,1 ;SPOOLED FILE EXTENSION
REP 15/11
WIT
INTERN J$$END ;[CSM] ;For .ASSIGNing data areas
REP 9/12
L.CON: BLOCK 1 ;SPROUT conntect time in seconds
WIT
L.CON: BLOCK 1 ;SPROUT connect time in seconds
INS 24/13
CSMEDT 05,2 ;TTY I/O and SLEEP, part 2 before "LOWEND=="
IFN CSM05$,<
SLEEPT: BLOCK 1 ;Time to sleep
> ;End of IFN CSM05$
INS 5/16
IFN CSM02$,< ;Check to see where LINK .ASSIGNed the buffers
SKIPLE [TOLP..##-1777] ;Make sure data area is only one page
OUTSTR [ASCIZ /?Data area for TOLP extends past 1777/]
> ;End of IFN CSM02$
IFN CSM06$,<
SKIPLE [TABC..##-1777] ;Make sure data area is only one page
OUTSTR [ASCIZ /?Data area for TABCDP extends past 1777/]
> ;End of IFN CSM06$
IFN CSM08$,<
SKIPLE [PTC6..##-1777] ;Make sure data area is only one page
OUTSTR [ASCIZ /?Data area for PTC6 extends past 1777/]
> ;End of IFN CSM08$
REP 36/16
JRST MAIN ;AND GO!!!!
WIT
JRST MAIN ;AND GO!
REP 11/17
MAIN.2: SKIPN JOBACT(P1) ;IS THIS STREAM ACTIVE ???
WIT
MAIN.2: SKIPN JOBACT(P1) ;IS THIS STREAM ACTIVE?
REP 16/17
SKIPN JOBSTW(P1) ;IS THE STREAM BLOCKED ???
WIT
CSMEDT 05,2 ;TTY I/O and SLEEP, part 2 at MAIN.2:+5
IFN CSM05$,< ;Watch for sleep time
PUSHJ P,CHKTIM ;Time to run this stream?
JUMPF MAIN.3 ;Not yet
> ;End of IFN CSM05$
SKIPN JOBSTW(P1) ;IS THE STREAM BLOCKED?
REP 25/17
MOVEI S1,0 ;SNOOZE FOR INTERRUPT
$CALL I%SLP ;GO WAIT
$CALL CHKQUE ;PROCESS MESSAGES
WIT
IFE CSM05$,< MOVEI S1,0 > ;SNOOZE FOR INTERRUPT
IFN CSM05$,< MOVE S1,SLEEPT > ;Get sleep time in seconds
$CALL I%SLP ;GO WAIT
$CALL CHKQUE ;PROCESS MESSAGES
IFN CSM05$,< SETZM SLEEPT > ;Clear timer request
REP 19/18
MOVE S1,@0(S1) ;GET THE FLAGS
HRRZ S2,STREAM ;GET STREAM NUMBER
IORM S1,JOBSTW(S2) ;SET THE FLAGS
JRST MAIN ;AND GO LOOP
WIT
CSMEDT 05,2 ;TTY I/O and SLEEP, part 2 at DSCHD:+6
IFE CSM05$,< MOVE S1,@0(S1) > ;GET THE FLAGS
IFN CSM05$,<
HRRZ T1,@0(S1) ;Get the seconds to sleep
HLLZ S1,@0(S1) ;Get the flags
> ;End of IFN CSM05$
HRRZ S2,STREAM ;GET STREAM NUMBER
IORM S1,JOBSTW(S2) ;SET THE FLAGS
IFE CSM05$,< JRST MAIN > ;AND GO LOOP
IFN CSM05$,< ;This code taken from LPTSPL
JUMPE T1,MAIN ;Loop if no sleep time
CONT. (SCHEDULER)
SKIPE SLEEPT ;Is a sleep time set?
CAMG T1,SLEEPT ;And current amount smaller?
MOVEM T1,SLEEPT ;Yes, save shorter interval
$CALL I%NOW ;Get the current time
IMULI T1,3 ;Seconds to UDT ticks
ADD T1,S1 ;Build wake-up time
MOVEM T1,J$WUDT(J) ;Save for CHKTIM
JRST MAIN ;Loop
SUBTTL CHKTIM - Routine to see if it's time to schedule a stream
;CALL: J/ Pointer to job page
;
;REG: TRUE if stream can be scheduled now (timewise)
; FALSE if stream needs to wait
CHKTIM: $CALL I%NOW ;Get the current time
MOVE S2,S1 ;Get the UDT in S2
MOVE S1,J$WUDT(J) ;Get the stream wakeup time
SUB S1,S2 ;Get time left in UDT ticks
IDIVI S1,3 ;Convert to seconds
SKIPG S1 ;Any seconds left?
JRST [SETZM SLEEPT ;No, clear old sleep time
$RETT ] ;Return TRUE
SKIPE SLEEPT ;Is a sleep time set?
CAMG S1,SLEEPT ;And current amount smaller?
MOVEM S1,SLEEPT ;Yes, save the shorter interval
$RETF ;Return FALSE
;End of code taken from LPTSPL> ;End of IFN CSM05$
REP 23/19
$CALL FILE ;NO, Process THE FILE
TXNE S,RQB+ABORT ;HAVE WE BEEN REQUEUED OR WORSE?
JRST ENDJOB ;YES, END NOW!!
WIT
$CALL FILE ;Process the file
TXNE S,RQB+ABORT ;HAVE WE BEEN REQUEUED OR WORSE?
JRST ENDJOB ;YES, END NOW!
REP 7/21
TOPS10 <
$CALL OUTWAT ;OUTPUT AND WAIT UNTIL DONE
> ;;END TOPS10
TOPS20 <
$CALL OUTOUT ;FORCE EVERYTHING OUT
> ;;END TOPS20
WIT
TOPS10< $CALL OUTWAT > ;OUTPUT AND WAIT UNTIL DONE
TOPS20< $CALL OUTOUT > ;FORCE EVERYTHING OUT
REP 21/21
TOPS20 <
PUSHJ P,OUTOUT ;FORCE OUTPUT
> ;;END TOPS20
WIT
TOPS20< $CALL OUTOUT > ;FORCE OUTPUT
REP 48/21
WIT
REP 61/21
;**;[2533]REVAMP CODE AT FILD.1:+7L CTK/16-DEC-82
TXNE T2,FP.DEL ;[2533]/DELETE SPECIFIED ???
TXNE S,ABORT ;[2533]IS ABORT SET ???
TXNE T2,FP.SPL ;[2533]SPOOL FILE ???
PUSHJ P,F%DEL ;[2533]YES,,DELETE THE FILE.
WIT
;**;[2533] Revamp code at FILD.1:+7L CTK/16-DEC-82
TXNE T2,FP.DEL ;[2533] /DELETE specified?
TXNE S,ABORT ;[2533] Is ABORT set?
TXNE T2,FP.SPL ;[2533] Spool file?
PUSHJ P,F%DEL ;[2533] YES,,DELETE THE FILE.
REP 22/23
CAIE T1,.OROBJ ;IS THIS THE OBJECT BLOCK ???
WIT
CAIE T1,.OROBJ ;IS THIS THE OBJECT BLOCK?
REP 7/27
TDNE S2,JOBSTW(S1) ;ARE WE WAITING FOR OPR RESPONSE ???
$KWTOR (JOBWAC(S1)) ;YES,,KILL IT !!!
WIT
TDNE S2,JOBSTW(S1) ;ARE WE WAITING FOR OPR RESPONSE?
$KWTOR (JOBWAC(S1)) ;YES,,KILL IT !
REP 15/28
TXNE S2,RQB ;REQUEUING JOB ?
MOVX T2,%REQUE ;YES
TXNE S2,ABORT ;ABORTING JOB ?
WIT
TXNE S2,RQB ;REQUEUING JOB?
MOVX T2,%REQUE ;YES
TXNE S2,ABORT ;ABORTING JOB?
REP 22/28
TXNE S2,PSF%OR ;ARE WE WAITING FOR OPR RESPONSE ???
MOVX T2,%OREWT ;YES,,SAY SO
TXNE S2,PSF%ST ;ARE WE STOPPED ???
MOVX T2,%STOPD ;YES,,SAY SO
TXNE S2,PSF%DO ;ARE WE OFFLINE ???
WIT
TXNE S2,PSF%OR ;ARE WE WAITING FOR OPR RESPONSE?
MOVX T2,%OREWT ;YES,,SAY SO
TXNE S2,PSF%ST ;ARE WE STOPPED?
MOVX T2,%STOPD ;YES,,SAY SO
TXNE S2,PSF%DO ;ARE WE OFFLINE?
REP 5/29
; dependant service routines to generate half of the ASCIZ text that gets
WIT
; dependent service routines to generate half of the ASCIZ text that gets
REP 9/29
SKIPN JOBACT(S1) ;NEED TO CHECKPOINT ?
WIT
SKIPN JOBACT(S1) ;NEED TO CHECKPOINT?
REP 15/29
SKIPGE S1 ;TIME TO CHECKPOINT YET ?
WIT
SKIPGE S1 ;TIME TO CHECKPOINT YET?
REP 41/29
PUSHJ P,DCHKP(S1) ;GENERATE DEVICE DEPENDANT TEXT
WIT
PUSHJ P,DCHKP(S1) ;GENERATE DEVICE dependent TEXT
REP 12/30
JRST SETU.2 ;YES!!
WIT
JRST SETU.2 ;YES!
REP 17/30
SETU.2: HRRZM T2,STREAM ;SAVE THE STREAM NUMBER
$CALL I%NOW ;USE SETUP TIME AS ACK STAMP
WIT
;[CSM] There is a problem if two streams start with 1/3 of a second
SETU.2: HRRZM T2,STREAM ;SAVE THE STREAM NUMBER
$CALL I%NOW ;USE SETUP TIME AS ACK STAMP
LSH S1,3 ;[CSM] ;Free up 3 bits
IOR S1,T2 ;[CSM] ;Make it be unique
REP 9/32
TDNE S2,JOBSTW(S1) ;ARE WE WAITING FOR OPR RESPONSE ???
$KWTOR (JOBWAC(S1)) ;YES,,KILL IT !!!
WIT
TDNE S2,JOBSTW(S1) ;ARE WE WAITING FOR OPR RESPONSE?
$KWTOR (JOBWAC(S1)) ;YES,,KILL IT !
REP 19/32
CAIN T1,.ORREA ;IS THIS THE REASON BLOCK ???
MOVEI P1,0(T3) ;YES..SAVE ADDRESS OF REASON
CAIE T1,.CANTY ;IS THIS THE CANCEL TYPE BLOCK ???
JRST OACC.1 ;NO,,SKIP IT AND GET NEXT BLOCK
MOVE S1,0(T3) ;YES - LOAD THE CANCEL TYPE
CAIE S1,.CNPRG ;IS IT /PURGE ???
WIT
CAIN T1,.ORREA ;IS THIS THE REASON BLOCK?
MOVEI P1,0(T3) ;YES..SAVE ADDRESS OF REASON
CAIE T1,.CANTY ;IS THIS THE CANCEL TYPE BLOCK?
JRST OACC.1 ;NO,,SKIP IT AND GET NEXT BLOCK
MOVE S1,0(T3) ;YES - LOAD THE CANCEL TYPE
CAIE S1,.CNPRG ;IS IT /PURGE?
REP 3/34
OACREQ: TXNE S,GOODBY ;IS IT TOO LATE FOR THIS ???
WIT
OACREQ: TXNE S,GOODBY ;IS IT TOO LATE FOR THIS?
REP 14/34
TDNE S2,JOBSTW(S1) ;ARE WE WAITING FOR OPR RESPONSE ???
$KWTOR (JOBWAC(S1)) ;YES,,KILL IT !!!
WIT
TDNE S2,JOBSTW(S1) ;ARE WE WAITING FOR OPR RESPONSE?
$KWTOR (JOBWAC(S1)) ;YES,,KILL IT !
REP 22/34
CAIN T1,.REQTY ;IS THIS THE REQUEST TYPE BLOCK ???
JRST OACR.2 ;YES,,GO PROGESS IT
CAIN T1,.ORREA ;IS THIS THE REASON BLOCK ???
WIT
CAIN T1,.REQTY ;IS THIS THE REQUEST TYPE BLOCK?
JRST OACR.2 ;YES,,GO PROGESS IT
CAIN T1,.ORREA ;IS THIS THE REASON BLOCK?
INS 1/36
SUBTTL FRMLEX - Forms limit exceeded routine
REP 5/36
JRST OUTIGN ;YES, DOUBLE THE LIMIT
WIT
JRST OUTIGN ;YES, set to +infinity
REP 18/36
TXNE S,ABORT ;WERE WE CANCELLED ???
WIT
TXNE S,ABORT ;WERE WE CANCELLED?
REP 15/37
TLNN S1,-1 ;ARE WE DEATCHED ???
WIT
TLNN S1,-1 ;ARE WE DEATCHED?
REP 24/37
TXNE S2,GL.ITY ;ARE WE A PTY ???
MOVE TF,[ASCII/P/] ;YES,,MAKE US 'PTY'
TXNE S2,GL.CTY ;ARE WE THE CTY ???
WIT
TXNE S2,GL.ITY ;ARE WE A PTY?
MOVE TF,[ASCII/P/] ;YES,,MAKE US 'PTY'
TXNE S2,GL.CTY ;ARE WE THE CTY?
INS 32/38
CONT. (ACTEND)
REP 66/38
SETZM FACTBL+7 ;NO DISK WRITES
WIT
CSMEDT 04,1 ;CSM accounting, part 1 after QUEUE. uuo
IFE CSM04$,< SETZM FACTBL+7 > ;No disk writes
IFN CSM04$,<
MOVE S1,J$FORM(J) ;Get the forms type
MOVEM S1,FACTBL+7 ;Instead of disk writes
> ;End of CSM04$
CONT. (ACTEND)
REP 71/38
MOVE S1,J$APRT(J) ;NUMBER OF PAGES PRINTED
MOVEM S1,FACTBL+12 ;STORE
WIT
MOVE S1,J$APRT(J) ;Number of cards, feet, minutes
MOVEM S1,FACTBL+12 ;Store as pages printed
REP 91/38
ACTRNT: SKIPN ACTFLG ;Accounting turned on ?
WIT
ACTRNT: SKIPN ACTFLG ;Accounting turned on?
REP 33/39
USNM3. (.EQOWN+1(J)) ;USER NAME 1 (TOPS10)
WIT
USNM3. (.EQOWN+1(J)) ;USER NAME 2 (TOPS10)
REP 27/40
CAMN S1,[POINT 7,J$XTBF(J)] ;IS THERE A MESSAGE FOR THE OPERATOR ??
$RETT ;NO,,RETURN.
WIT
CAMN S1,[POINT 7,J$XTBF(J)] ;IS THERE A MESSAGE FOR THE OPERATOR?
$RETT ;NO,,RETURN.
IFN CSM02$,< FORM.3: > ;PUSHJ to here to wait for 'PROCEED' in OPRTXT
REP 21/41
JUMPF FRMIEX ;EOF!!
GETLIM T2,.EQLIM(J),FORM ;GET FORMS
CAMN T1,T2 ;MATCH??
JRST FRMI.4 ;YES!!
WIT
JUMPF FRMIEX ;EOF!
GETLIM T2,.EQLIM(J),FORM ;GET FORMS
CAMN T1,T2 ;MATCH?
JRST FRMI.4 ;YES!
REP 38/41
JUMPF FRMIEX ;EOF!!
JUMPE T1,FRMI.6 ;MAYBE PAREN??
WIT
JUMPF FRMIEX ;EOF!
JUMPE T1,FRMI.6 ;MAYBE PAREN?
REP 10/42
SKIPA ;NO!!!
JRST FRMSWI ;YES!!
CAMN T1,J$LDEV(J) ;COMPARE TO OUR DEVNAM
JRST FRMSWI ;MATCH!!
WIT
SKIPA ;NO!
JRST FRMSWI ;YES!
CAMN T1,J$LDEV(J) ;COMPARE TO OUR DEVNAM
JRST FRMSWI ;MATCH!
REP 9/43
JUMPF FRMIEX ;EOF!!
JRST FRMSWI ;AND LOOP AROUND
FRMS.1: $CALL FH$SIX ;GET THE SWITCH
JUMPF FRMIEX ;EOF!!
WIT
JUMPF FRMIEX ;EOF!
JRST FRMSWI ;AND LOOP AROUND
FRMS.1: $CALL FH$SIX ;GET THE SWITCH
JUMPF FRMIEX ;EOF!
REP 23/43
CAMN T3,T1 ;MATCH??
WIT
CAMN T3,T1 ;MATCH?
REP 32/43
PUSHJ P,0(T3) ;GO!!
WIT
PUSHJ P,0(T3) ;GO!
REP 15/44
JUMPF S$NOT2 ;EOF, FINISH UP!!
WIT
JUMPF S$NOT2 ;EOF, FINISH UP!
INS 33/45
SKIPE T1 ;[CSM] ;If not zero,
INS 37/45
SKIPE T1 ;[CSM] ;If not zero,
REP 14/46
SKIPA ;ITS NOT!!
WIT
SKIPA ;ITS NOT!
REP 19/47
IMULI T1,12 ;SHIFT A PLACE
WIT
IMULI T1,^D10 ;[CSM] ;Shift one decimal place
REP 41/49
TXNE S,DSKOPN ;IS THE SPOOL FILE OPEN ???
WIT
TXNE S,DSKOPN ;IS THE SPOOL FILE OPEN?
REP 48/49
TXNE S,DSKOPN ;IS THE SPOOL FILE OPEN ???
WIT
TXNE S,DSKOPN ;IS THE SPOOL FILE OPEN?
REP 11/50
MOVEI S2,T$DISP ;YES!!
CAXN S1,.OTCDP ;NO, HOW ABOUT A CARD PUNCH?
MOVEI S2,C$DISP ;WIN!!
WIT
MOVEI S2,T$DISP ;YES!
CAXN S1,.OTCDP ;NO, HOW ABOUT A CARD PUNCH?
MOVEI S2,C$DISP ;WIN!
REP 30/50
MOVX T1,.IOIMG+UU.PHS+UU.AIO
;IMAGE+PHONLY+NBIO
WIT
MOVX T1,.IOIMG+UU.PHS+UU.AIO ;IMAGE+PHONLY+NBIO
CSMEDT 05,3 ;TTY I/O and SLEEP, part 3 after DEVNAM in OUTGET
IFN CSM05$,< ;Check for devices connected to TTY lines
HLRZ T2,J$LDEV(J) ;Get first part of physical name
CAIE T2,'TTY' ;Is it a terminal?
JRST CSM05Z ;No
MOVE S2,J$LSER(J) ;Get service routine
MOVE S1,DNAME(S2) ;Get 'PLT' or 'CDP'
MOVEM S1,J$TTY(J) ;Put in LH
MOVE T2,J$LDEV(J) ;Get device again
IONDX. T2, ;Get UDX
SETZB T2,J$TTY(J) ;Should never happen
HRRM T2,J$TTY(J) ;Store TTY UDX in RH
CONT. (OUTGET) ;FORCE NEW LISTING PAGE
;Disable free CRLFs every 80 characters and SET TTY NO GAG
MOVX T1,.TONFC+.TOSET ;Change setting to
MOVEI T3,1 ; no free CRLFs
MOVE S1,[3,,T1]
TRMOP. S1, ;SET TTY NO CRLF
JFCL
;*BUG*; MOVX T1,.IOPIM+UU.PHS ;Packed image mode (no echo)
MOVX T1,.IOIMG+UU.PHS+IO.SUP ;Image mode, no echo
HLRZ S1,J$TTY(J) ;Get device type
CAIN S1,'PLT' ;Output to plotter?
MOVX T1,.IOASC+UU.PHS+IO.SUP ;ASCII mode, no echo
CSM05Z: > ;End of IFN CSM05$
REP 40/50
CONT. (OUTGET) ;FORCE NEW LISTING PAGE
MOVE S1,J$LSER(J) ;GET DEVICE DISPATCH ADDRESS
MOVE S1,DBYTE(S1) ;GET OUTPUT BYTE SIZE
WIT
MOVE S1,J$LSER(J) ;GET DEVICE DISPATCH ADDRESS
MOVE S1,DBYTE(S1) ;GET OUTPUT BYTE SIZE
IFN CSM05$,< ;Cannot use 6 bits to PTC-6
HLRZ S2,J$TTY(J) ;Nonzero if TTY as output device
CAIN S2,'PLT' ;Going to the plotter?
MOVEI S1,7 ;Yes, use normal ASCII mode
;SET TTY NO GAG after it has been inited
MOVX T1,.TOSND+.TOSET ;Change setting to
HRRZ T2,J$TTY(J)
MOVEI T3,0 ; no SENDs allowed
MOVE S2,[3,,T1]
SKIPE T2 ;Don't TRMOP. if not a TTY
TRMOP. S2, ;SET TTY GAG
JFCL
> ;End of IFN CSM05$
REP 10/51
CAXN S1,.OTPLT ;PLOTTER ?
WIT
CAXN S1,.OTPLT ;PLOTTER?
REP 24/51
ERJMP OUTDDE ;DEVICE DOESNT EXIST!!
WIT
ERJMP OUTDDE ;DEVICE DOESNT EXIST!
INS 6/54
CSMEDT 01,2 ;3-Pen plotter, part 2 at OUTOUT:+1 <TOPS10>
IFN CSM01$,< ;The plotter does not interrupt for off-line or on-line
SKIPE J$FPLT(J) ;Is this going to the plotter?
PUSHJ P,PLTCHK ;Yes, check if it is on-line
> ;End of CSM01$
REP 30/54
> ;END TOPS10 CONDITIONAL
WIT
CONT. (OUTOUT)
IFN CSM01$,< ;After OUTWAT: inside TOPS10<>
;Ask the monitor to do a CONI to check if PLT is on-line
OPDEF STSPL. [CALLI -4] ;CSM UUO to do <CONI PLT,T1>
PLT.ON==1B30 ;The plotter power is on
PLTCHK: CSMEDT 08,1 ;PTC-6 Plotter Controller, part 1 inside CSM01$
IFN CSM08$,<
SKIPE J$TTY(J) ;Output going to a TTY?
POPJ P, ;Yes, cannot determine on-line status
> ;End of IFN CSM08$
STSPL. S1, ;Get current status of plotter
TXNE S1,PLT.ON ;Is the POWER-ON bit set?
JRST PLTONL ;Yes, plotter is on-line now
AOS S1,J$NACK(J) ;Increment NACK count
IDIVI S1,^D30 ;Set S2 modulo 30
JUMPN S2,PLTCH1 ;Complain every 30 seconds
HRRZ S1,STREAM ;Get stream number
SETOM JOBCHK(S1) ;Request checkpoint
$WTO (Off-line,,@JOBOBA(S1))
PLTCH1: CSMEDT 05,4 ;TTY I/O and SLEEP, part 4 after PLTCHK:
IFN CSM05$,< $DSCHD (1) > ;De-schedule for 1 second
IFE CSM05$,< MOVEI S1,1 ;Wait 1 second
SLEEP S1, > ; before continuing
JRST PLTCHK ;Check if it is on-line now
PLTONL: SETOM J$NACK(J) ;Plotter is on-line now
$RETT ;OK to do the OUT UUO
> ;End of IFN CSM01$
> ;END TOPS10 CONDITIONAL
CONT. (OUTOUT)
INS 1/59
SUBTTL TTY I/O -- Input character from TTY, no wait
CSMEDT 05,5 ;TTY I/O and SLEEP, part 5 between OUTFLS and C$DISP
IFN CSM05$,< INTERN TIWAIT,TTYIN,TRMERR ;Entry points for TABCDP.MAC
;Routine to input a single character from terminal into S1.
;Uses T1 and T2.
TTYIN:: MOVX T1,.TOSIP ;Skip if input in progress
HRRZ T2,J$TTY(J) ;Get UDX
MOVE S1,[2,,T1] ;Point to args
TRMOP. S1, ;Check if input
JRST TTYIN1 ;Nothing there
MOVX T1,.TOISC ;Input single character
MOVE S1,[2,,T1] ;Point to args
TRMOP. S1, ;Get the char
PUSHJ P,TRMERR ;Should never happen
$RETT ;Got char in S1
TTYIN1: MOVEI S1,0 ;Signify failure
$RETF
TRMERR::$STOP (TUF,TRMOP. UUO Failure)
SUBTTL TTY I/O -- Input character, wait up to 30 seconds
;Routine to wait up to 30 seconds for a character to come in.
;Returns TRUE if char in S1, FALSE and zero in S1 if timed out
TIWAIT::PUSHJ P,TTYIN ;Check for input
JUMPT TIWAI2 ;Clear NACK counter if got input
;There is a good possibility that the response will come in within 1 second
MOVX S1,HB.RTC+^D1000 ;Wait 1 second, wake on char ready
HIBER S1,
JFCL
PUSHJ P,TTYIN ;Anything now?
JUMPT TIWAI2 ;Return if so
AOS J$NACK(J) ;No, waited 1 second already
TIWAT1: $DSCHD (1) ;De-schedule this stream for 1 second
PUSHJ P,TTYIN ;Input now?
JUMPT TIWAI2 ;Yes, continue
AOSG S1,J$NACK(J) ;No, count failure
JRST TIWAT1 ;Keep waiting if negative or zero
IDIVI S1,^D30 ;Set S2 modulo 30
JUMPN S2,TIWAT1 ;If less than 30 seconds, wait again
HRRZ S1,STREAM ;Get stream number
$WTO (<No response from ^W/J$LDEV(J)/ after ^D/J$NACK(J)/ seconds>,,@JOBOBA(S1))
MOVEI S1,0 ;Signify no response
$RETF
TIWAI2: SETZM J$NACK(J) ;Terminal is responding
POPJ P, ;TF has been set to TRUE already
> ;End of IFN CSM05$
REP 13/59
JRST .RETT ;(11) ACCOUNTING
JRST C$CHKP ;(12) CHECKPOINT TEXT GENERATION
WIT
CSMEDT 04,2 ;CSM accounting, part 2 at C$DISP:+11
IFE CSM04$,< JRST .RETT > ;(11) ACCOUNTING
IFN CSM04$,< JRST CSMACT > ;(11) Accounting
JRST C$CHKP ;(12) CHECKPOINT TEXT GENERATION
IFN CSM04$,<
CSMACT: MOVE S1,J$APRT(J) ;Get cards punched or feet punched
MOVEM S1,J$ADRD(J) ;Save instead of disk reads
$RETT
> ;End of IFN CSM04$
REP 7/60
CAMN P2,[.INFIN] ;+INFINITY ?
JRST C$CHK1 ;YES
CAMG P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED ?
$TEXT (DEPBP,<punched ^D/P1/ of ^D/J$RLIM(J)/ cards^0>)
CAMLE P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED ?
WIT
CAMN P2,[.INFIN] ;+INFINITY?
JRST C$CHK1 ;YES
CAMG P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED?
$TEXT (DEPBP,<punched ^D/P1/ of ^D/J$RLIM(J)/ cards^0>)
CAMLE P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED?
INS 8/61
CSMEDT 07,1 ;QUEUE defaults, part 1 at C$PROC:+4
IFE CSM07$,<
REP 11/61
WIT
> ;End of CSM07$
IFN CSM07$,<JRST CDASC> ;Default to ASCII mode
REP 34/62
JUMPF .RETT ;THIS SHOULD NEVER REALLY HAPPEN!!
WIT
JUMPF .RETT ;THIS SHOULD NEVER REALLY HAPPEN!
REP 27/64
CAIN C,.CHTAB ;IS IT A VERTICAL TAB?
WIT
CAIN C,.CHTAB ;IS IT A HORIZONTAL TAB?
REP 35/65
;FOLLOWING ALPHABETICS ARE SMALL LETTERS
BYTE (12) 0402,5400,5200 ;' A B
BYTE (12) 5100,5040,5020 ;C D E
BYTE (12) 5010,5004,5002 ;F G H
BYTE (12) 5001,6400,6200 ;I J K
BYTE (12) 6100,6040,6020 ;L M N
BYTE (12) 6010,6004,6002 ;O P Q
BYTE (12) 6001,3200,3100 ;R S T
BYTE (12) 3040,3020,3010 ;U V W
BYTE (12) 3004,3002,3001 ;X Y Z
BYTE (12) 5000,6000,3000 ;
BYTE (12) 3400,0000,0000 ;
WIT
;The following alphabetics are lowercase
BYTE (12) 0402,5400,5200 ;` a b
BYTE (12) 5100,5040,5020 ;c d e
BYTE (12) 5010,5004,5002 ;f g h
BYTE (12) 5001,6400,6200 ;i j k
BYTE (12) 6100,6040,6020 ;l m n
BYTE (12) 6010,6004,6002 ;o p q
BYTE (12) 6001,3200,3100 ;r s t
BYTE (12) 3040,3020,3010 ;u v w
BYTE (12) 3004,3002,3001 ;x y z
BYTE (12) 5000,6000,3000 ;{ | }
BYTE (12) 3400,0000,0000 ;~ DEL
REP 36/66
;FOLLOWING ALPHABETICS ARE SMALL LETTERS
BYTE (12) 0402,5400,5200 ;' A B
BYTE (12) 5100,5040,5020 ;C D E
BYTE (12) 5010,5004,5002 ;F G H
BYTE (12) 5001,6400,6200 ;I J K
BYTE (12) 6100,6040,6020 ;L M N
BYTE (12) 6010,6004,6002 ;O P Q
BYTE (12) 6001,3200,3100 ;R S T
BYTE (12) 3040,3020,3010 ;U V W
BYTE (12) 3004,3002,3001 ;X Y Z
BYTE (12) 5000,6000,3000 ;
BYTE (12) 3400,0000,0000 ;
WIT
;The following alphabetics are lowercase
BYTE (12) 0402,5400,5200 ;` a b
BYTE (12) 5100,5040,5020 ;c d e
BYTE (12) 5010,5004,5002 ;f g h
BYTE (12) 5001,6400,6200 ;i j k
BYTE (12) 6100,6040,6020 ;l m n
BYTE (12) 6010,6004,6002 ;o p q
BYTE (12) 6001,3200,3100 ;r s t
BYTE (12) 3040,3020,3010 ;u v w
BYTE (12) 3004,3002,3001 ;x y z
BYTE (12) 5000,6000,3000 ;{ | }
BYTE (12) 3400,0000,0000 ;~ DEL
REP 6/67
LOAD S1,.FPINF(E),FP.NFH ;GET NO FILE HEADER BIT
JUMPN S1,.RETT ;RETURN IF NOT WANTED
WIT
CSMEDT 07,2 ;QUEUE defaults, part 2 at C$HEAD:+2
IFE CSM07$,< ;Ignore QUEUE's default of /NOHEADER, always punch it
LOAD S1,.FPINF(E),FP.NFH ;GET NO FILE HEADER BIT
JUMPN S1,.RETT ;RETURN IF NOT WANTED
> ;End of IFN CSM07$
REP 7/68
PJRST OUTOUT ;FORCE OUTPUT
WIT
;[CSM] PJRST OUTOUT ;FORCE OUTPUT
PJRST OUTCD1 ;[CSM] ;FORCE OUTPUT
REP 4/69
C$BANN: SKIPN J$FBAN(J) ;GET COUNT OF BANNER CARDS
WIT
C$BANN: CSMEDT 06,1 ;TTY CDP, part 1 at C$BANN:
IFN CSM06$,< ;Set terminal to PUNCH+PRINT mode if /FORMS:NORMAL
MOVEI S1,J$FORM(J) ;Get forms name
CAMN S1,['NORMAL'] ;Normal forms?
MOVEI S1,0 ;Yes, turn on print mode
SKIPE S2,J$TTY(J) ;Punch really a terminal?
PUSHJ P,TABINI## ;Yes, set it up
> ;End of IFN CSM06$
SKIPN J$FBAN(J) ;BANNER cards wanted?
REP 8/69
MOVEI S1,[ITEXT<BEGIN:>]
PJRST CTRA.1 ;FALL INTO COMMON CODE
C$TRAI: SKIPN J$FTRA(J) ;GET TRAILER COUNT
$RETT ;RETURN IF ZERO
WIT
CSMEDT 07,3 ;QUEUE defaults, part 3 at C$BANN:+4
IFE CSM07$,< ;"BEGIN: JOB jobnam USER:" wastes 4 cards.
MOVEI S1,[ITEXT<BEGIN:>]
PJRST CTRA.1 ;FALL INTO COMMON CODE
> ;End of IFE CSM07$
IFN CSM07$,< ;Punch just NAME, PPN, and NOTE (if any)
PJRST CTRA.2 ;Punch user name
> ;End of IFN CSM07$
IFE CSM06$,<
C$TRAI: SKIPN J$FTRA(J) ;Check TRAILER wanted flag
$RETT ;RETURN IF ZERO
> ;End of IFE CSM06$
IFN CSM06$,< ;Call TABFIN after all is done
C$TRAI: SKIPE J$FTRA(J) ;Trailer cards wanted?
$CALL CTRA.0 ;Yes
SKIPE J$TTY(J) ;Output to a TTY?
PUSHJ P,TABFIN## ;Yes, finish up
$RETT
CTRA.0: > ;End of IFN CSM06$
INS 27/69
CONT. (C$BANN)
IFN CSM07$,< CTRA.2: > ;Here to skip over garbage
REP 27/70
PJRST OUTOUT ;PUNCH CARD AND RETURN
WIT
;[CSM] PJRST OUTOUT ;PUNCH CARD AND RETURN
PJRST OUTCD1 ;[CSM] ;PUNCH CARD AND RETURN
REP 5/71
;Call with Ascii character to Punch in S1
;Punches Characters as 10 12 bit Frames followed by 2 blank frames
;Character is Punched in Rows 0 thru 6. The Contents of J$CMSK is
;ORED with the Column Punch to identify the Card as a Job or File card.
WIT
;Call with ASCII character to punch in S1.
;Punches 6 characters as 10 frames each followed by 2 blank frames.
;Character is punched in Rows 0 thru 6. The contents of J$CMSK is
;OR'ed with the column punch to identify the card as a Job or File card.
REP 13/71
CAILE S1,"_" ;UPPER CASE ?
WIT
CAILE S1,"_" ;UPPER CASE?
REP 6/72
CDPBYT: PJRST OUTBYT ;OUTPUT THE BYTE
WIT
CDPBYT: CSMEDT 06,2 ;TTY CDP, part 2 at CDPBYT
IFE CSM06$,< PJRST OUTBYT >
IFN CSM06$,< ;Special output for TAB Products Cardpunch Terminal
SKIPN J$TTY(J) ;Output to a TTY?
PJRST OUTBYT ;No
$SAVE <S1,S2> ;Yes, preserve ACs used
MOVE S1,C ;Copy to expected AC
PJRST TABBYT## ;Store byte in other buffer
> ;End of IFN CSM06$
REP 11/72
OUTCDP: PUSHJ P,OUTOUT ;FORCE CARD OUT
AOS S1,J$APRT(J) ;COUNT ANOTHER ONE
CAMLE S1,J$RLIM(J) ;OVER LIMIT?
PUSHJ P,FRMLEX ;HANDLE LIMIT EXCEEDED
POPJ P, ;RETURN
WIT
OUTCDP: AOS S1,J$APRT(J) ;COUNT ANOTHER ONE
CAMLE S1,J$RLIM(J) ;OVER LIMIT?
PUSHJ P,FRMLEX ;HANDLE LIMIT EXCEEDED
OUTCD1: ;Output without counting
IFN CSM06$,< ;Special output for TAB Products Cardpunch Terminal
SKIPE J$TTY(J) ;Output to a TTY?
PJRST TABPUN## ;Yes, output the card
> ;End of IFN CSM06$
PJRST OUTOUT ;FORCE CARD OUT
REP 25/72
PUSHJ P,PTPBYT ;OUTPUT A BYTE
WIT
;[CSM] PUSHJ P,PTPBYT ;OUTPUT A BYTE
PUSHJ P,CDPBYT ;[CSM] ;Use the right output routine
DEL 3/73
REP 13/73
JRST .RETT ;(11) ACCOUNTING
JRST P$CHKP ;(12) CHECKPOINT TEXT GENERATION
WIT
CSMEDT 04,3 ;CSM accounting, part 3 at P$DISP:+11
IFE CSM04$,<JRST .RETT> ;(11) ACCOUNTING
IFN CSM04$,<JRST PLTACT> ;(11) Plotter accounting
JRST P$CHKP ;(12) CHECKPOINT TEXT GENERATION
IFN CSM04$,< ;Account for both elapsed time and paper used
PLTACT: MOVE S1,J$XLIM(J) ;Get total X increments
ADDI S1,INCS/2 ;Round up
IDIVI S1,INCS ;Convert to inches
EXCH S1,J$APRT(J) ;Store amount of paper used
MOVEM S1,J$ADRD(J) ;Store minutes in place of disk reads
$RETT
> ;End of IFN CSM04$
REP 6/74
IDIV P1,J$PTPM(J) ;T1:= MINUTES, T2:= FRACTION
IMULI P2,^D1000 ;MAKE IT DECIMAL
IDIV P2,J$PTPM(J) ;T2:= DECIMAL FRACTION OF A MINUTE
MOVE P3,J$RLIM(J) ;GET LIMIT
CAMN P3,[.INFIN] ;+INFINITY ?
JRST P$CHK1 ;YES
CAMG P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED ?
$TEXT (DEPBP,<plotted ^D/P1/.^D3L0/P2/ of ^D/J$RLIM(J)/ minutes^0>)
CAMLE P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED ?
P$CHK1: $TEXT (DEPBP,<plotted ^D/P1/.^D3L0/P2/ minutes (limit exceeded)^0>)
WIT
IDIV P1,J$PTPM(J) ;P1:= MINUTES, P2:= FRACTION
IMULI P2,^D10 ;[CSM] One decimal place
IDIV P2,J$PTPM(J) ;P2:= DECIMAL FRACTION OF A MINUTE
MOVE P3,J$RLIM(J) ;GET LIMIT
CAMN P3,[.INFIN] ;+INFINITY?
JRST P$CHK1 ;YES
CAMG P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED?
$TEXT (DEPBP,<plotted ^D/P1/.^D/P2/ of ^D/J$RLIM(J)/ minutes^0>)
CAMLE P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED?
P$CHK1: $TEXT (DEPBP,<plotted ^D/P1/.^D/P2/ minutes (limit exceeded)^0>)
INS 8/75
CSMEDT 07,4 ;QUEUE defaults, part 4 at P$PROC:+4
IFE CSM07$,< ;This code removed because all plots must be BINARY halfwords
INS 11/75
> ;End of IFE CSM07$
IFN CSM07$,< JRST PLTHLF > ;Default always to halfword format
REP 15/75
EXP PLTSIX ;/PLOT:BINARY (6 BIT)
WIT
CSMEDT 02,1 ;Halfword format, part 1 at P$ROUT:+3
IFE CSM02$,<EXP PLTSIX> ;/PLOT:BINARY (6 BIT)
IFN CSM02$,<EXP PLTHLF> ;/PLOT:BINARY (18 bit)
INS 40/76
;Here at end of plot file
REP 1/77
SUBTTL Plotter service -- Devout output errors
WIT
SUBTTL Plotter service -- Expand CSM's compressed plot format
CSMEDT 02,2 ;Halfword format, part 2 after PLTLP0:
IFN CSM02$,< ;Read halfwords from disk
COMMENT ~ Do not use many semicolons, it confuses FILCOM's /C switch
!=======================================================!
! !
! PLOTTER MODE -- 18 BIT !
! !
! In 18 bit mode, each word read from disk is divided !
! into halfwords, which are interpreted by subroutine !
! TOLP. Most halfwords have 9 bits of delta-X and !
! 9 bits of delta-Y, special opcodes raise and lower !
! the pen. See TOLP.MAC for a full description. !
! !
!=======================================================!
! Delta Y ! Delta X ! Delta Y ! Delta X !
!=======================================================!
Call TOLP. with
S1/ Addr of input routine, which returns data in S1, -1 on EOF
S2/ 0 to suppress header/trailer, 1 for header, 2 for trailer, 3 for both
T1/ Current X position (should be same as J$XMIN)
T2/ Current Y position (should be same as J$YMIN)
On return, ACs 7-16 have been preserved
TF/ Garbage
S1/ Garbage
S2/ Addr of error message, or 0 if no error
T1-T4/ Garbage
~ ;End of COMMENT
EXTERN TOLP. ;Routine to reverse PLOT
INTERN PLOT ;Routine to move the pen
INTERN NEWPEN,OPRTXT,PAUSEP,TITLE ;Other routines called by TOLP
ND INCS,^D400 ;Steps per inch (620 octal)
;Process 18-bit format
PLTHLF: MOVEI T1,^D36 ;Read full words from disk
MOVEM T1,J$DBSZ(J) ;(let TOLP split them into halfwords)
MOVE T1,J$XPOS(J) ;Raise the pen, but
MOVE T2,J$YPOS(J) ; stay at current position
MOVE T3,PN.UP
PUSHJ P,PLOT
MOVEI S2,3 ;Assume both header and trailer
LOAD S1,.FPINF(E),FP.NFH ;Get No File Header bit
SKIPE S1 ;Bit set?
MOVEI S2,0 ;Yes, suppress internal header and trailer
MOVEI S1,READ36 ;Input routine (S2 has flags)
MOVE T1,J$XPOS(J) ;TOLP needs to know current position
MOVE T2,J$YPOS(J)
PUSHJ P,TOLP.## ;TOLP is PLOT spelled backwards
MOVEI S1,[ITEXT (<^T/0(S2)/ ^F/@J$DFDA(J)/>)] ;S2 points to ASCIZ
SKIPE S2 ;If errors were detected, copy string
PUSHJ P,PUTERR ; and file name to error buffer
JRST PLTLP0 ;File is at EOF, finish up
SUBTTL Plotter service -- READ36, OPRTXT, PAUSEP, TITLE for TOLP
;Routine to read a word from the input file, returns -1 for EOF, -2 if ABORT
READ36: MOVE S1,J$PTIC(J) ;Get tics plotted
IDIV S1,J$PTPM(J) ;Convert to minutes
CAMLE S1,J$RLIM(J) ;Still in range?
PUSHJ P,FRMLEX ;No, complain
PUSHJ P,INPBYT ;Get a word
MOVE T1,C ;Copy to expected AC
JUMPT .POPJ ;Use it if OK
MOVNI T1,1 ;-1 for EOF
TXNE S,RQB+ABORT ;Unless OPR caused EOF
MOVNI T1,2 ;-2 for ABORT
POPJ P, ;Continue back in TOLP
;Routine to send a message to the OPR.
;Called with byte count in S1, addr of ASCIZ message in S2.
OPRTXT: PUSHJ P,PLTOUT ;Dump buffers
HRRZ S1,STREAM ;Get the stream number
$WTO (OPRTXT message,<^T/0(S2)/>,@JOBOBA(S1)) ;Tell OPR
POPJ P,
;Routine to pause the plotter.
;Zero in S1 means to wait for human intervention, nonzero causes graphic
;terminals to pause that many seconds before automatically resuming.
PAUSEP: PUSHJ P,PLTOUT ;Dump the buffers
JUMPN S1,.POPJ ;Nonzero valid for graphics terminals
PUSHJ P,SETTBF ;Set up WTO buffer
PJRST FORM.3 ;Wait for a "PROCEED" response
;Routine to plot text.
; T1/ Height in increments
; T2/ Addr of text
; T3/ Angle in degrees, 0 to 359
; T4/ Byte count for text
TITLE: POPJ P, ;Not implemented
PLTOUT:
IFE CSM08$,< PJRST OUTOUT >
IFN CSM08$,<
SKIPE J$TTY(J) ;Output to a TTY?
PJRST OUTOUT ;No
PUSHJ P,PTCOUT## ;Yes, get ready to output last buffer
SETZM J$PPOS(J) ;PTCOUT always raises the pen
PJRST OUTRSP ;Output string and wait for response
> ;End of IFN CSM08$
> ;End of IFN CSM02$
SUBTTL Plotter service -- NEWPEN for 3-pen plotter
CSMEDT 01,3 ;3-Pen plotter, part 3 before P$DERR
IFN CSM01$,<
PEN.1: MOVEI S1,1 ;Set to blue pen
JRST NEWPEN
PEN.2: MOVEI S1,2 ;Set to black pen
JRST NEWPEN
PEN.3: MOVEI S1,3 ;Set to red pen and fall into NEWPEN
JRST NEWPEN
ND PENSEP,INCS*4/4 ;Pen separation is 1 inch or 3/4 inch
CHGPEN: BYTE (6) CNGP,PNDN,0 ;Codes to change to pen #1
BYTE (6) CNGP,PEN2,PNDN,0 ; #2
BYTE (6) CNGP,PEN3,PNDN,0 ; #3
;Routine to change pens. Called with pen number in S1, trashes it and S2.
NEWPEN: $SAVE <P1,P2> ;Save preserved ACs
;Make sure pen number in S1 is between 1 and 3 inclusive
SUBI S1,1 ;Change to number from 0 to 2
IDIVI S1,3 ;Set S2 modulo 3
AOS P2,S2 ;Copy new pen number (from 1 to 3)
CSMEDT 08,2 ;PTC-6 Plotter Controller, part 2 in NEWPEN
IFN CSM08$,< ;Special codes for PTC-6
SKIPE J$TTY(J) ;Using a terminal line?
JRST [PUSHJ P,PTCPEN## ;Yes, tell it (pen number in S2)
JRST NEWPN2 ] ;Then move the pen holder
> ;End of IFN CSM08$
MOVEI P1,CHGPEN-1(S2) ;Get addr of data
HRLI P1,(POINT 6,) ;Make into byte pointer
PUSHJ P,PENUP ;Raise any and all pens
;Output the codes to select new pen (even if it was previously selected)
NEWPN1: ILDB C,P1 ;Get a byte
PUSHJ P,PLTBTX ;Send to plotter (even if no-op)
JUMPN C,NEWPN1 ;Loop till no-op is sent
;When pen #1 is positioned at Y=5.0, then pen #2 is at Y=4.0 and pen #3
;is at Y=3.0. Therefore, when changing from pen #1 to pen #2 (or 2 to 3),
;the pen holder must be moved 1.0 inches in the +Y direction, without
;affecting J$YPOS and in spite of J$YMAX and J$YMIN.
NEWPN2: MOVE P1,P2 ;Copy new pen number
SUB P1,J$PENN(J) ;Find change (+1 if from pen 1 to pen 2)
JUMPE P1,.POPJ ;All done if same as previous pen
EXCH P2,J$PENN(J) ;Set new, get old
JUMPE P2,.POPJ ;All done if called from P$CPEN
IMULI P1,PENSEP ;Distance between pens
SKIPL P1 ;If going plus,
ADDM P1,J$YMAX(J) ; allow blue pen to move off the paper
SKIPG P1 ;If going minus,
ADDM P1,J$YMIN(J) ; allow red pen to move off the paper
MOVE T1,J$XPOS(J) ;No change in X
MOVE T2,P1 ;Delta Y
ADD T2,J$YPOS(J) ;New Y position
MOVEI T3,PN.UP ;Raise the pen
PUSHJ P,PLOT ;Move the pen holder into position
MOVNS P1 ;Cancel the offset
SKIPG P1 ;If used to be positive,
ADDM P1,J$YMAX(J) ; reset max limit
SKIPL P1 ;If used to be negative,
ADDM P1,J$YMIN(J) ; reset min limit
ADDM P1,J$YPOS(J) ;New pen is where previous one was
POPJ P,
;Routine to output bytes to plotter, passing nulls and CNGP codes correctly.
;Note: When changing pens, the first PNDN code does NOT lower the pen.
PLTBTX: MOVEI S1,PLTMOV ;Load # tics for movement
CAIN C,PNDN ;Pen down code?
MOVEI S1,PLTPEN ;Load # tics for pen up/down
ADDM S1,J$PTIC(J) ;Add in for accounting
PJRST OUTBYT ;Bypass J$ROTA check
> ;End of IFN CSM01$
SUBTTL Plotter service -- DEVOUT output errors
REP 7/77
; error return. Just siz we're nice guys, we'll bitch at the operator
WIT
; error return. Just cuz we're nice guys, we'll bitch at the operator
REP 3/78
P$BANN: PUSHJ P,P$CPEN ;RE-CALIBRATE THE PEN
WIT
CSMEDT 03,1 ;Banner changes, part 1 at P$BANN:
;*; IFN CSM03$,<ND NAMSIZ,1>
ND NAMSIZ,3 ;User's name will be 3 times larger than other text
P$BANN: CSMEDT 08,3 ;PTC-6 Plotter Controller, part 3 at P$BANN
IFN CSM08$,<
SKIPE J$TTY(J) ;PTC-6 controller?
PUSHJ P,[MOVEI T1,PLTPEN ;Yes, positive to use CR handshake
PUSHJ P,PTCINI## ;Initialize terminal
PJRST OUTRSP ] ;Output string to TTY
> ;End of IFN CSM08$
PUSHJ P,P$CPEN ;RE-CALIBRATE THE PEN
REP 12/78
ADD T1,J$XPOS(J) ;POINT TO NEXT LINE
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,3 ;PEN UP
WIT
IFN NAMSIZ-1,< ;Start a separate line
ADD T1,J$XPOS(J) ;POINT TO NEXT LINE
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
> ;End of IFN NAMSIZ-1
IFE NAMSIZ-1,< ;Put LIMIT on same line as user name
MOVE T2,T1 ;Copy character size
ADD T2,J$YPOS(J) ;Space over a bit in plus-Y direction
MOVE T1,J$XPOS(J) ;Current X position
> ;End of IFN NAMSIZ-1
MOVEI T3,PN.UP ;Pen up
REP 16/79
SKIPE J$DSPN(J) ;WAS IT /DISPOSE:RENAME ?
MOVEI S2,[ITEXT (< (^W/J$DSPN(J)/.^W/J$DSPX(J)/)>)] ;YES
$TEXT (DEPBP,<* File: ^F/@J$DFDA(J)/^I/(S2)/ created:^H/S1/ *^0>)
WIT
SKIPE J$DSPN(J) ;WAS IT /DISPOSE:RENAME?
MOVEI S2,[ITEXT (< (^W/J$DSPN(J)/.^W/J$DSPX(J)/)>)] ;YES
CSMEDT 02,3 ;Halfword format, part 3 at P$HEA1:-2
IFE CSM02$,< $TEXT (DEPBP,<* File: ^F/@J$DFDA(J)/^I/(S2)/ created:^H/S1/ *^0>) >
IFN CSM02$,< $TEXT (DEPBP,<* File: ^F/@J$DFDA(J)/^I/(S2)/ *^0>) >
;CSM internal headers have creation date/time
REP 22/79
IMULI T1,4 ;LEAVE THIS MUCH SPACE
ADD T1,J$XPOS(J) ;OFFSET BY CURRENT POSITION
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,3 ;PEN GOES UP
WIT
ADD T1,J$XPOS(J) ;OFFSET BY CURRENT POSITION
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,PN.UP ;Pen up
INS 29/79
IFN CSM01$,< ;Allow plots to butt up against each other
ADDI T1,INCS/2 ;Set lowest seen to 1/2 inch margins
MOVEM T1,J$XLOW(J) ;(not fully implemented yet)
> ;End of IFN CSM01$
REP 7/80
MOVEI T3,3 ;WITH PEN UP
PUSHJ P,PLOT ;POSITION PEN
WIT
MOVEI T3,PN.UP ;Pen up
PUSHJ P,PLOT ;POSITION PEN
CSMEDT 08,4 ;PTC-6 Plotter Controller, part 4 at end of P$EOF
IFN CSM08$,< ;Call PTCOUT instead of OUTOUT
SKIPE J$TTY(J) ;PTC-6 controller?
JRST [PUSHJ P,PTCOUT## ;Yes, raise pen
PJRST OUTRSP ] ;Wait for response
> ;End of IFN CSM08$
REP 4/81
P$TRAI: PUSHJ P,P$DASH ;SEPARATE FROM LAST FILE
WIT
P$TRAI: CSMEDT 03,3 ;Banner changes, part 3 at P$TRAI:
IFE CSM03$,< ;This test prevents error messages from coming out
PUSHJ P,P$DASH ;SEPARATE FROM LAST FILE
REP 8/81
SKIPN J$XERR(J) ;ANY ERROR TEXT ?
JRST P$TRA0 ;NO - ONWARD
PUSHJ P,P$CHKS ;COMPUTE CHARACTER SIZE
ADD T1,J$XPOS(J) ;POINT TO NEXT LINE
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,3 ;PEN UP
WIT
> ;End of IFE CSM03$
IFN CSM03$,< ;Output dashed line only if text will be plotted
PUSH P,J$PTIC(J) ;Don't charge for plotter overhead
SKIPN J$FTRA(J) ;Plot the trailer?
SKIPE J$XERR(J) ; or an error message?
PUSHJ P,P$DASH ;Yes, separate text from plot
> ;End of IFN CSM03$
SKIPN J$XERR(J) ;ANY ERROR TEXT?
JRST P$TRA0 ;NO - ONWARD
PUSHJ P,P$CHKS ;COMPUTE CHARACTER SIZE
IMULI T1,2 ;[CSM] ;Make room for characters
ADD T1,J$XPOS(J) ;POINT TO NEXT LINE
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,PN.UP ;Pen up
REP 19/81
P$TRA0: MOVEI S1,[ASCIZ |End|] ;GET LINE IDENTIFIER
PUSHJ P,PLTJOB ;PLOT JOB LINE
P$TRA1: PUSHJ P,P$CHKS ;COMPUTE CHARACTER SIZE
ADD T1,J$XPOS(J) ;POINT TO NEXT LINE
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,3 ;PEN UP
WIT
P$TRA0:
IFN CSM03$,< ;Check for /TRAILER after plotting error message
SKIPN J$FTRA(J) ;Trailer wanted?
JRST P$TRA3 ;No, skip job line and summary
> ;End of IFN CSM03$
MOVEI S1,[ASCIZ |End|] ;GET LINE IDENTIFIER
PUSHJ P,PLTJOB ;PLOT JOB LINE
CONT. (P$TRAI)
P$TRA1: PUSHJ P,P$CHKS ;COMPUTE CHARACTER SIZE
IFN NAMSIZ-1,< ;Start a separate line
ADD T1,J$XPOS(J) ;POINT TO NEXT LINE
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
> ;End of IFN NAMSIZ-1
IFE NAMSIZ-1,< ;Put SUMMARY on same line as user name
MOVE T2,T1 ;Copy character size
ADD T2,J$YPOS(J) ;Space over a bit in plus-Y direction
MOVE T1,J$XPOS(J) ;Current X position
> ;End of IFN NAMSIZ-1
MOVEI T3,PN.UP ;Pen up
REP 33/81
P$TRA2: MOVE T1,(P) ;GET # TICS FOR JOB
IDIV T1,J$PTPM(J) ;T1:= MINUTES, T2:= FRACTION
IMULI T2,^D1000 ;MAKE IT DECIMAL
IDIV T2,J$PTPM(J) ;T2:= DECIMAL FRACTION OF A MINUTE
$TEXT (DEPBP,< plotted in ^D/T1/.^D3L0/T2/ minutes^0>)
WIT
P$TRA2: MOVE T1,(P) ;GET # TICS FOR JOB
IDIV T1,J$PTPM(J) ;T1:= MINUTES, T2:= FRACTION
IMULI T2,^D10 ;[CSM] 1 decimal place (=6 seconds)
IDIV T2,J$PTPM(J) ;T2:= DECIMAL FRACTION OF A MINUTE
$TEXT (DEPBP,< plotted in ^D/T1/.^D/T2/ minutes^0>)
REP 49/81
MOVEI T3,3 ;PEN UP
WIT
MOVEI T3,PN.UP ;Pen up
INS 55/81
CSMEDT 08,5 ;PTC-6 Plotter Controller, part 5 at end of P$TRAI
IFN CSM08$,<
SKIPE J$TTY(J) ;PTC-6 controller?
PUSHJ P,[PUSHJ P,PTCOUT## ;Yes, raise pen
PUSHJ P,OUTRSP ;Wait for response
PUSHJ P,PTCFIN## ;Finish up and deselect
PJRST OUTSTG ] ;Output string to TTY
> ;End of IFN CSM08$
REP 11/82
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,3 ;PEN UP
PUSHJ P,PLOT ;POSITION PEN
MOVE T1,J$XPOS(J) ;DON'T TOUCH X POSITION
MOVE T2,J$YMAX(J) ;GET MAXIMUM Y VALUE
MOVEI T3,2 ;PEN DOWN
WIT
CSMEDT 03,4 ;Banner changes, part 4 at P$LINE:+2
IFE CSM03$,< ;Going from MIN to MAX when pen is near MAX wastes time
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,PN.UP ;Pen up
PUSHJ P,PLOT ;POSITION PEN
MOVE T1,J$XPOS(J) ;Use current X position
MOVE T2,J$YMAX(J) ;GET MAXIMUM Y VALUE
> ;End of IFE CSM03$
IFN CSM03$,< ;Go to MAX, then to MIN and end there
MOVE T2,J$YMAX(J) ;Go to closer end point
CAIL T2,INCS*6 ;More than 6 inches?
MOVEI T2,INCS*6 ;Yes, don't waste inc
MOVEI T3,PN.UP ;Pen up
PUSHJ P,PLOT ;Position pen
MOVE T1,J$XPOS(J) ;Use current X position
MOVE T2,J$YMIN(J) ;Go to "HOME" position
> ;End of IFE CSM03$
MOVEI T3,PN.DWN ;Pen down
REP 23/82
MOVEI T3,3 ;PEN UP
WIT
MOVEI T3,PN.UP ;Pen up
REP 4/83
; This routine works like P$LINE
;
P$DASH: PUSHJ P,P$CHKS ;COMPUTE CHARACTER SIZE
ADD T1,J$XPOS(J) ;POINT TO NEXT LINE
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,3 ;PEN UP
WIT
; This routine works like P$LINE, but line is drawn with dashes.
; The length of each dash is the same as the height of the characters
P$DASH: PUSHJ P,P$CHKS ;COMPUTE CHARACTER SIZE
ADD T1,J$XPOS(J) ;POINT TO NEXT LINE
CSMEDT 03,5 ;Banner changes, part 5 at P$DASH:+3
IFE CSM03$,< MOVE T2,J$YMIN(J) > ;GET MINIMUM Y POSITION
IFN CSM03$,<
MOVE T2,J$YMAX(J) ;Get maximum Y position
CAIL T2,INCS*6 ;More than 6 inches?
MOVEI T2,INCS*6 ;Yes, don't waste time and ink
> ;End of IFN CSM03$
MOVEI T3,PN.UP ;Pen up
REP 13/83
ADD T1,J$YPOS(J) ;ADD TO Y POSITION
CAML T1,J$YMAX(J) ;GONE TOO FAR ?
WIT
IFE CSM03$,<
ADD T1,J$YPOS(J) ;ADD TO Y POSITION
CAML T1,J$YMAX(J) ;GONE TOO FAR?
> ;End of IFE CSM03$
IFN CSM03$,<
MOVNS T1 ;Make negative
ADD T1,J$YPOS(J) ;Decrement Y position
CAMG T1,J$YMIN(J) ;Gone too far?
> ;End of IFN CSM03$
REP 18/83
MOVEI T3,2 ;PEN DOWN
WIT
MOVEI T3,PN.DWN ;Pen down
REP 22/83
ADD T1,J$YPOS(J) ;ADD TO Y POSITION
CAML T1,J$YMAX(J) ;GONE TOO FAR ?
WIT
IFE CSM03$,<
ADD T1,J$YPOS(J) ;ADD TO Y POSITION
CAML T1,J$YMAX(J) ;GONE TOO FAR?
> ;End of IFE CSM03$
IFN CSM03$,<
MOVNS T1 ;Make negative
ADD T1,J$YPOS(J) ;Decrement Y position
CAMG T1,J$YMIN(J) ;Gone too far?
> ;End of IFN CSM03$
REP 27/83
MOVEI T3,3 ;PEN UP
WIT
MOVEI T3,PN.UP ;Pen up
REP 5/84
; Call: MOVEI S1,[ASCIZ |Start|] ;OR [ASCIZ |Stop|]
WIT
; Call: MOVEI S1,[ASCIZ |Start|] ;OR [ASCIZ |End|]
REP 13/84
MOVEI T3,3 ;PEN UP
PUSHJ P,PLOT ;POSITION PEN
PUSHJ P,SETTBF ;SET UP TEXT BUFFER
WIT
MOVEI T3,PN.UP ;Pen up
PUSHJ P,PLOT ;POSITION PEN
PUSHJ P,SETTBF ;SET UP TEXT BUFFER
CSMEDT 03,6 ;Banner changes, part 6 at PLTJOB:+8
IFN CSM03$,< PUSHJ P,PEN.3 > ;Do "*START*" in red
REP 21/84
PUSHJ P,P$CHKS ;COMPUTE CHARACTER SIZE
IMULI T1,^D4 ;GET STARTING POSITION
ADD T1,J$XPOS(J) ;OFFSET BY CURRENT POSITION
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,3 ;PEN UP
WIT
PUSHJ P,P$CHKS ;COMPUTE CHARACTER SIZE
IMULI T1,NAMSIZ+1 ;[CSM] ;Size of name plus blank space
ADD T1,J$XPOS(J) ;OFFSET BY CURRENT POSITION
MOVE T2,J$YMIN(J) ;GET MINIMUM Y POSITION
MOVEI T3,PN.UP ;Pen up
REP 29/84
IMULI T1,3 ;COMPUTE NEW CHARACTER SIZE
MOVEM T1,J$CSIZ(J) ;STORE IT
;PLOT THE USERS NAME
TOPS10< DMOVE T3,.EQOWN(J)
WIT
IMULI T1,NAMSIZ ;[CSM] ;The name is bigger than other text
MOVEM T1,J$CSIZ(J) ;STORE IT
IFN CSM03$,< PUSHJ P,PEN.2 > ;Do user's name in black
CONT. (PLTJOB)
;PLOT THE USERS NAME
TOPS10< DMOVE T3,.EQOWN(J) ;Name and PPN, 28 chars max
REP 43/84
MOVEI T3,3 ;PEN UP
PUSHJ P,PLOT ;POSITION PEN
WIT
MOVEI T3,PN.UP ;Pen up
PUSHJ P,PLOT ;POSITION PEN
IFN CSM03$,< PUSHJ P,PEN.1 > ;Next dividing line will be blue
INS 13/85
MOVEI S1,.CHNUL ;[CSM] ;Terminate previous string
PUSHJ P,DEPBP ;[CSM] ; (in case of /NOTE: in SPFORM.INI)
REP 19/85
MOVEI T3,3 ;PEN UP
WIT
MOVEI T3,PN.UP ;Pen up
REP 23/85
CAIN C,200 ;DONE ALL CHARACTERS ?
WIT
CAIN C,200 ;DONE ALL CHARACTERS?
REP 31/85
SOJLE P1,TEST.1 ;DONE WITH THIS LINE ?
WIT
SOJLE P1,TEST.1 ;DONE WITH THIS LINE?
REP 3/86
P$CPEN: MOVE T1,J$YMAX(J) ;GET THE MAXIMUM Y VALUE WE KNOW ABOUT
WIT
;This is the only place that J$XPOS is reset. It is called from P$BANN.
P$CPEN: MOVE T1,J$YMAX(J) ;GET THE MAXIMUM Y VALUE WE KNOW ABOUT
CSMEDT 01,4 ;3-pen plotter, part 4 at end of P$CPEN
IFN CSM01$,< ;Assume pen is positioned close to the origin
CAIL T1,INCS*4 ;More than 4 inches?
MOVEI T1,INCS*4 ;Yes, don't waste time ramming the pen
> ;End of IFN CSM01$
REP 8/86
MOVE T1,J$XPOS(J) ;DON'T TOUCH THE X POSITION
MOVEI T2,0 ;RAM THE PEN INTO THE AXIS
MOVEI T3,3 ;PEN UP
WIT
MOVE T1,J$XPOS(J) ;Use current X position
MOVEI T2,0 ;RAM THE PEN INTO THE AXIS
MOVEI T3,PN.UP ;Pen up
REP 18/86
MOVEI T3,3 ;PEN UP
WIT
MOVEI T3,PN.UP ;Pen up
REP 23/86
POPJ P, ;RETURN
SUBTTL Plotter service -- Compute chracter size
WIT
IFN CSM01$,< ;RECAL has positioned pen #1 at YMIN
SETZM J$PENN(J) ;Flag that pen holder was reset
MOVEI S1,1 ;Select pen number 1
PUSHJ P,NEWPEN ;Tell the plotter which pen to use
> ;End of IFN CSM01$
POPJ P, ;RETURN
SUBTTL Plotter service -- Compute character size
INS 7/87
CSMEDT 01,5 ;3-Pen plotter, part 5 at P$CHKS:+3
IFN CSM01$,< ;Don't plot giant letters on 36 inch wide paper
CAIL T1,INCS/6 ;Bigger than 1/6 inch?
MOVEI T1,INCS/6 ;Yes, reduce size
> ;End of IFN CSM01$
REP 43/88
MOVEI T3,3 ;PEN UP BEFOR PLOTTING
WIT
MOVEI T3,PN.UP ;Pen up
REP 7/89
; 1 No Change in Pen
; 2 Pen Down before Plotting
; 3 Pen Up before moving
;
PLOT: $SAVE <T1,T2,T3,T4> ;PRESERVE TEMPORARIES
CAIG T3,1 ;CHANGE REQUESTED?
JRST PLT.1 ;NO..PROCEED
SUBI T3,3 ;YES..GET -1 OR 0
WIT
PN.SAM==1 ;No Change in Pen
PN.DWN==2 ;Pen Down before Plotting
PN.UP== 3 ;Pen Up before moving
;
PLOT: $SAVE <T1,T2,T3,T4> ;PRESERVE TEMPORARIES
CSMEDT 08,6 ;PTC-6 Plotter Controller, part 6 at PLOT:+1
IFN CSM08$,< ;Delay testing of T3 if output to a terminal
SKIPN J$TTY(J) ;Is the plotter really a TTY?
> ;End of IFN CSM08$
CAIG T3,PN.SAM ;CHANGE REQUESTED?
JRST PLT.1 ;NO..PROCEED
SUBI T3,PN.UP ;Yes, get -1 or 0
INS 22/89
SUB T2,J$YPOS(J) ;COMPUTE DELTA Y
IFN CSM08$,< ;Call external routine if PTC-6
SKIPE J$TTY(J) ;TTY? (T1, T2, and T3 set up)
JRST PTCMV ;Yes, calculate character string
> ;End of IFN CSM08$
DEL 25/89
SUB T2,J$YPOS(J) ;COMPUTE DELTA Y
INS 1/91
SUBTTL Plotter service -- PTC-6 interface
IFN CSM08$,< ;T1 & T2 have delta movement, T3 has 2 or 3
PTCMV: ADDM T1,J$XPOS(J) ;Update position
ADDM T2,J$YPOS(J)
MOVE S1,J$XPOS(J) ;Get new X position
CAIL T3,3 ;Pen up?
JRST PTCMV1 ;No, skip next tests
CAMLE S1,J$XLIM(J) ;Highest seen so far?
MOVEM S1,J$XLIM(J) ;Yes
CAMGE S1,J$XLOW(J) ;Closest to the origin?
MOVEM S1,J$XLOW(J) ;Yes
;T1, T2, and T3 are set up with delta-X, delta-Y, and pen up/down code
PTCMV1: PUSHJ P,PTCMOV## ;Translate move, fall into OUTRSP
PAGE
;Routine to output the string pointed to by T1 and wait for response.
;S1 has accumulated increments for the last 4 buffers, to be used to
;predict how long it will take for the PTC-6 to respond.
OUTRSP: JUMPE T1,.POPJ ;Don't wait if no string
IMULI S1,PLTMOV ;Number of ticks to move
LSH S1,-2 ;S1 has count for 4 buffers
ADDM S1,J$PTIC(J) ;Predict elapsed time
IMULI S1,^D60*4 ;Cancel LSH, use seconds not minutes
IDIV S1,J$PTPM(J) ;Number of seconds required
ADDI S1,^D<512*10/CSM08$> ;512 chars take 2 seconds at 2400 baud
MOVNM S1,J$NACK(J) ;Negative to delay the complaints
OUTRS1: PUSHJ P,OUTSTG ;Send the string
OUTRS2: PUSHJ P,TIWAIT ;Get response, waiting up to 30 seconds
JUMPT OUTRS3 ;Got it
TXNE S,RQB+ABORT ;REQUEUE or ABORT?
$RETF ;Yes, give up
PUSHJ P,PTCOUT## ;Send string to raise pen
SETZM J$PPOS(J) ;(just to get controller to respond)
JRST OUTRS1 ;Loop until response or REQUEUE
OUTRS3: CAIE S1,.CHCRT ;CR at end?
JRST OUTRS2 ;No, skip over "0", "C"
PJRST TTYIN ;Yes, snarf up the LF (if it's there)
;Routine to output the string pointed to by T1.
;The Monitor will put the job in "TO" Terminal Output wait if there are more
;than 400 characters in the TTY chunks.
TOMAX=^D248 ;Avoid output wait for TTY
OUTSTG: JUMPE T1,.POPJ ;Return if nothing to do
HRLI T1,(POINT 7,) ;Make into ASCII byte pointer
OUTST1: MOVEI S1,0 ;Clear byte count
OUTST2: ILDB C,T1 ;Get a character
JUMPE C,OUTOUT ;Stop on null, output buffer, return
PUSHJ P,OUTBYT ;Send it
CAIG S1,TOMAX ;Almost enough to cause 'TO' wait?
AOJA S1,OUTST2 ;Loop till end of ASCIZ
PUSHJ P,OUTOUT ;Dump partial buffer
$DSCHD (TOMAX*^D10/CSM08$) ;Wait 1 second at 2400 baud
JRST OUTST1 ;(gives checkpoint routine a chance)
> ;End of IFN CSM08$
REP 11/91
ROTAB: EXP 0 ;NO MOVEMENT
BYTE (18) 106 (2) 0 (4) XYU ,XYL ,XYD ,XYR ;MOVE DOWN
BYTE (18) 102 (2) 0 (4) XYD ,XYR ,XYU ,XYL ;MOVE UP
BYTE (18) 114 (2) 0 (4) PEN3,PEN3,PEN3,PEN3 ;SELECT PEN3
BYTE (18) 104 (2) 0 (4) XYR ,XYU ,XYL ,XYD ;MOVE RIGHT
BYTE (18) 105 (2) 0 (4) XYDL,XYUL,XYUR,XYDR ;MOVE DOWN+RIGHT
BYTE (18) 103 (2) 0 (4) XYDR,XYDL,XYUL,XYUR ;MOVE UP+RIGHT
EXP -1 ;ILLEGAL
BYTE (18) 100 (2) 0 (4) XYL ,XYD ,XYR ,XYU ;MOVE LEFT
BYTE (18) 107 (2) 0 (4) XYUL,XYUR,XYDR,XYDL ;MOVE DOWN+LEFT
BYTE (18) 101 (2) 0 (4) XYUR,XYDR,XYDL,XYUL ;MOVE UP+LEFT
EXP -1 ;ILLEGAL
BYTE (18) 113 (2) 0 (4) PEN2,PEN2,PEN2,PEN2 ;SELECT PEN 2
EXP -1 ;ILLEGAL
EXP -1 ;ILLEGAL
BYTE (18) 112 (2) 0 (4) CNGP,CNGP,CNGP,CNGP ;CHANGE PENS
WIT
ROTAB: EXP 0 ; 0 NO MOVEMENT
BYTE (18) 106 (2) 0 (4) XYU ,XYL ,XYD ,XYR ; 1 Minus X
BYTE (18) 102 (2) 0 (4) XYD ,XYR ,XYU ,XYL ; 2 Plus X
BYTE (18) 114 (2) 0 (4) PEN3,PEN3,PEN3,PEN3 ; 3 SELECT PEN3
BYTE (18) 104 (2) 0 (4) XYR ,XYU ,XYL ,XYD ; 4 Plus Y
BYTE (18) 105 (2) 0 (4) XYDL,XYUL,XYUR,XYDR ; 5 Plus Y & Minus X
;[CSM] BYTE (18) 103 (2) 0 (4) XYDR,XYDL,XYUL,XYUR ;MOVE UP+RIGHT
BYTE (18) 103 (2) 0 (4) XYDR,XYUR,XYUL,XYDL;[CSM] 6 Plus Y & Plus X
EXP -1 ; 7 ILLEGAL
BYTE (18) 100 (2) 0 (4) XYL ,XYD ,XYR ,XYU ;10 Minus Y
;[CSM] BYTE (18) 107 (2) 0 (4) XYUL,XYUR,XYDR,XYDL ;MOVE DOWN+LEFT
BYTE (18) 107 (2) 0 (4) XYUL,XYDL,XYDR,XYUR;[CSM]11 Minus Y & Minus X
BYTE (18) 101 (2) 0 (4) XYUR,XYDR,XYDL,XYUL ;12 Minus Y & Plus X
EXP -1 ;13 ILLEGAL
BYTE (18) 113 (2) 0 (4) PEN2,PEN2,PEN2,PEN2 ;14 SELECT PEN 2
EXP -1 ;15 ILLEGAL
EXP -1 ;16 ILLEGAL
BYTE (18) 112 (2) 0 (4) CNGP,CNGP,CNGP,CNGP ;17 CHANGE PENS
REP 10/92
PLTBYT: TRZE C,PNUP ;TEST AND CLEAR PEN UP CODE
WIT
PLTBYT: $SAVE <S1,S2> ;[CSM] ;Preserve ACs
TRZE C,PNUP ;TEST AND CLEAR PEN UP CODE
REP 15/92
PLTXYD: TRNN C,XYD ;GOING DOWN ?
JRST PLTXYU ;NO
AOS S1,J$XPOS(J) ;+1
CAMG S1,J$XMAX(J) ;BEYOND X MAXIMUM ?
CAMG S1,J$XMIN(J) ;WITHIN X BOUNDS ?
TRZ C,XYD!XYU ;STOP MOVING
PLTXYU: TRNN C,XYU ;GOING UP ?
JRST PLTXYL ;NO
SOS S1,J$XPOS(J) ;-1
CAMGE S1,J$XMAX(J) ;BEYOND X MAXIMUM ?
CAMGE S1,J$XMIN(J) ;WITHIN X BOUNDS ?
TRZ C,XYD!XYU ;STOP MOVING
PLTXYL: TRNN C,XYL ;GOING LEFT ?
JRST PLTXYR ;NO
AOS S2,J$YPOS(J) ;+1
CAMG S2,J$YMAX(J) ;BEYOND Y MAXIMUM ?
CAMG S2,J$YMIN(J) ;WITHIN Y BOUNDS ?
TRZ C,XYR!XYL ;STOP MOVING
PLTXYR: TRNN C,XYR ;GOING RIGHT ?
JRST PLTB.6 ;NO
SOS S2,J$YPOS(J) ;-1
CAMGE S2,J$YMAX(J) ;BEYOND Y MAXIMUM ?
CAMGE S2,J$YMIN(J) ;WITHIN Y BOUNDS ?
TRZ C,XYR!XYL ;STOP MOVING
PLTB.6: SKIPN J$PPOS(J) ;IS PEN DOWN?
PJRST PLTB.8 ;NO..DON'T RECORD MAX POSITIONS
WIT
PLTXYD: TRNN C,XYD ;GOING DOWN?
JRST PLTXYU ;NO
TRNE C,XYU ;[CSM] ;Going +X and -X at the same time?
JRST PLTB.8 ;[CSM] ;Yes, this is a change-pen code
AOS S1,J$XPOS(J) ;+1
CAMG S1,J$XMAX(J) ;BEYOND X MAXIMUM?
CAMG S1,J$XMIN(J) ;WITHIN X BOUNDS?
TRZ C,XYD!XYU ;STOP MOVING
PLTXYU: TRNN C,XYU ;GOING UP?
JRST PLTXYL ;NO
SOS S1,J$XPOS(J) ;-1
CAMGE S1,J$XMAX(J) ;BEYOND X MAXIMUM?
CAMGE S1,J$XMIN(J) ;WITHIN X BOUNDS?
TRZ C,XYD!XYU ;STOP MOVING
PLTXYL: TRNN C,XYL ;GOING LEFT?
JRST PLTXYR ;NO
TRNE C,XYR ;[CSM] ;Going +Y and -Y at the same time?
JRST PLTB.8 ;[CSM] ;Yes, this is a change-pen code
AOS S2,J$YPOS(J) ;+1
CAMG S2,J$YMAX(J) ;BEYOND Y MAXIMUM?
CAMG S2,J$YMIN(J) ;WITHIN Y BOUNDS?
TRZ C,XYR!XYL ;STOP MOVING
PLTXYR: TRNN C,XYR ;GOING RIGHT?
JRST PLTB.6 ;NO
SOS S2,J$YPOS(J) ;-1
CAMGE S2,J$YMAX(J) ;BEYOND Y MAXIMUM?
CAMGE S2,J$YMIN(J) ;WITHIN Y BOUNDS?
TRZ C,XYR!XYL ;STOP MOVING
CONT. (PLTBYT)
PLTB.6: SKIPN J$PPOS(J) ;IS PEN DOWN?
PJRST PLTB.8 ;NO..DON'T RECORD MAX POSITIONS
MOVE S1,J$XPOS(J) ;[CSM] ;In case of no AOS or SOS was done
INS 50/92
CSMEDT 01,6 ;3-pen plotter, part 6 at PLTB.6:+5
IFN CSM01$,< ;Remember X minimum for positioning trailer after X maximum
CAMGE S1,J$XLOW(J) ;Smaller than the previous XLOW?
MOVEM S1,J$XLOW(J) ;Yes, user went near -X boundry
;therefore put dashed line close to plot
> ;End of IFN CSM01$
REP 5/95
PLTTAB:
C%000: Z ;NULL IS ILLEGAL
C%001: XX <200,542,702,142,604,FIN>
C%002: XX <144,563,603,622,621,600,560,541,542,563,603,624,FIN>
C%003: XX <561,701,702,663,642,241,643,624,603,601,FIN>
C%004: XX <602,544,FIN>
C%005: XX <220,624,564,FIN>
C%006: XX <243,641,620,560,541,543,200,602,FIN>
C%007: XX <141,641,240,644,243,543,FIN>
C%010: XX <602,240,544,FIN>
C%011: XX <240,661,604,564,543,562,602,644,FIN>
C%012: XX <242,641,620,560,541,543,564,624,643,642,702,704,FIN>
C%013: XX <160,541,562,662,703,664,FIN>
C%014: XX <240,644,302,562,160,564,FIN>
C%015: XX <200,560,541,543,564,624,643,641,620,600,604,242,542,FIN>
C%016: XX <202,561,600,620,641,622,602,563,604,624,643,622,FIN>
C%017: XX <204,623,621,600,560,541,543,564,644,702,701,FIN>
C%020: XX <244,641,620,560,541,544,FIN>
C%021: XX <240,643,624,564,543,540,FIN>
C%022: XX <160,640,661,663,644,564,FIN>
C%023: XX <260,600,561,563,604,664,FIN>
C%024: XX <300,600,542,604,704,240,644,FIN>
C%025: XX <544,704,700,221,624,206>
C%026: XX <100,640,600,561,562,603,643,603,564,FIN>
C%027: XX <143,564,603,164,560,221,640,661,240,644,FIN>
C%030: XX <541,561,600,620,641,643,624,604,563,543,544,FIN>
C%031: XX <220,624,262,624,562,FIN>
C%032: XX <160,601,543,564,FIN>
C%033: XX <602,642,704,244,640,200,604,FIN>
C%034: XX <160,563,303,620,623,FIN>
C%035: XX <300,623,620,160,563,FIN>
C%036: XX <160,564,224,620,260,664,FIN>
C%037: XX <200,542,604,FIN>
WIT
PLTTAB: ;Characters used at Stanford (SUAI)
C%000: Z ;NULL IS ILLEGAL
C%001: XX <200,542,702,142,604,FIN> ;Down arrow
.XCREF ;[CSM] Don't CREF the rest
C%002: XX <144,563,603,622,621,600,560,541,542,563,603,624,FIN> ;Alpha
C%003: XX <561,701,702,663,642,241,643,624,603,601,FIN>;Beta
C%004: XX <602,544,FIN> ;Up angle bracket
C%005: XX <220,624,564,FIN> ;Negation
C%006: XX <243,641,620,560,541,543,200,602,FIN> ;Epsilon
C%007: XX <141,641,240,644,243,543,FIN> ;Pi
C%010: XX <602,240,544,FIN> ;Lambda
C%011: XX <240,661,604,564,543,562,602,644,FIN> ;Gamma
C%012: XX <242,641,620,560,541,543,564,624,643,642,702,704,FIN> ;Linefeed
C%013: XX <160,541,562,662,703,664,FIN> ;Integral
C%014: XX <240,644,302,562,160,564,FIN> ;Plus or Minus
C%015: XX <200,560,541,543,564,624,643,641,620,600,604,242,542,FIN> ;CR
C%016: XX <202,561,600,620,641,622,602,563,604,624,643,622,FIN> ;Infinity
C%017: XX <204,623,621,600,560,541,543,564,644,702,701,FIN> ;Delta
C%020: XX <244,641,620,560,541,544,FIN> ;Subset
C%021: XX <240,643,624,564,543,540,FIN> ;Element of
C%022: XX <160,640,661,663,644,564,FIN> ;Intersection
C%023: XX <260,600,561,563,604,664,FIN> ;Union
C%024: XX <300,600,542,604,704,240,644,FIN> ;All elements
C%025: XX <544,704,700,221,624,206> ;There exists
C%026: XX <100,640,600,561,562,603,643,603,564,FIN> ;Mu (micro)
C%027: XX <143,564,603,164,560,221,640,661,240,644,FIN>;Double arrow
C%030: XX <541,561,600,620,641,643,624,604,563,543,544,FIN> ;Omega
C%031: XX <220,624,262,624,562,FIN> ;Left arrow
C%032: XX <142,600,642,604,542,FIN> ;Formerly C%175 ;Diamond box [CSM]
C%033: XX <602,642,704,244,640,200,604,FIN> ;Not equal
C%034: XX <160,563,303,620,623,FIN> ;Less or equal
C%035: XX <300,623,620,160,563,FIN> ;Greater or equal
C%036: XX <160,564,224,620,260,664,FIN> ;Identically
C%037: XX <200,542,604,FIN> ;Down angle bracket
REP 27/98
C%172: XX <240,644,540,544,201,603,FIN>
C%173: XX <144,543,562,602,621,620,621,642,662,703,704,FIN>
C%174: XX <102,702,FIN>
C%175: XX <142,600,642,604,542,FIN>
C%176: XX <541,562,602,623,624,623,642,662,701,700,FIN>
C%177: XX <260,564,FIN>
WIT
C%172: XX <240,644,540,544,201,603,FIN> ;z Lowercase Z
C%173: XX <144,543,562,602,621,620,621,642,662,703,704,FIN> ;{
C%174: XX <102,702,FIN> ;| Vertical bar
;[CSM] Put close brace and tilde where they belong in the ASCII code
C%175: XX <541,562,602,623,624,623,642,662,701,700,FIN> ;} 175, not C%176
C%176: XX <160,601,543,564,FIN> ;~ Tilde, formerly C%032
.CREF ;[CSM] ;OK to CREF now
C%177: XX <260,564,FIN> ;\ Backslash, duplicate of C%134
REP 13/99
JRST .RETT ;(11) ACCOUNTING
WIT
CSMEDT 04,4 ;CSM accounting, part 4 at T$DISP:+11
IFE CSM04$,< JRST .RETT > ;(11) ACCOUNTING
IFN CSM04$,< JRST CSMACT > ;(11) ACCOUNTING
REP 8/100
CAMN P2,[.INFIN] ;+INFINITY ?
JRST T$CHK1 ;YES
CAMG P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED ?
$TEXT (DEPBP,<punched ^D/P1/ of ^D/J$RLIM(J)/ feet^0>)
CAMLE P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED ?
WIT
CAMN P2,[.INFIN] ;+INFINITY?
JRST T$CHK1 ;YES
CAMG P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED?
$TEXT (DEPBP,<punched ^D/P1/ of ^D/J$RLIM(J)/ feet^0>)
CAMLE P1,J$RLIM(J) ;OPERATOR ALLOW LIMIT TO EXCEED?
INS 11/101
CSMEDT 07,5 ;QUEUE defaults, part 5 at T$PROC:+6
IFE CSM07$,< ;This code will punch SOS files in BINARY mode
INS 14/101
> ;End of IFE CSM07$
IFN CSM07$,< JRST PTASC > ;Default always to ASCII
REP 24/104
JUMPF .RETT ;DONE!!
WIT
JUMPF .RETT ;DONE!
REP 14/110
CAIG S1,^D10 ;PUNCH AT LEASE 10 FRAMES
WIT
CAIG S1,^D10 ;PUNCH AT least 10 FRAMES
REP 17/111
TLET.1: ILDB C,S1 ;GT SEGMENT BITS
WIT
TLET.1: ILDB C,S1 ;Get SEGMENT BITS
REP 6/112
PTPBYT: PUSH P,S1 ;SAVE FROM
PUSH P,S2 ; DESTRUCTION
WIT
PTPBYT: $SAVE <S1,S2> ;[CSM] ;Preserve ACs
REP 12/112
CAMLE S1,J$RLIM(J) ;EXCEEDED LIMIT ?
PUSHJ P,FRMLEX ;YES - ASK THE OPERATOR'S ADVICE
POP P,S2 ;RESTORE
POP P,S1 ; S1 & S2
POPJ P, ;RETURN
WIT
CAMLE S1,J$RLIM(J) ;EXCEEDED LIMIT?
PUSHJ P,FRMLEX ;YES - ASK THE OPERATOR'S ADVICE
POPJ P, ;[CSM] ;ACs automatically retored on return
REP 24/112
PTPREP: PUSH P,P1 ;SAVE P1
WIT
PTPREP: $SAVE <P1> ;[CSM] ;Save P1
DEL 28/112
POP P,P1 ;RESTORE P1
REP 32/114
BYTE (7) 010,034,052,010,010 ;
WIT
BYTE (7) 010,034,052,010,010 ;_
INS 41/115
PAGE
CSMEDT 07,6 ;QUEUE defaults, part 6 before DSPMOD:
IFE CSM07$,<
INS 53/115
> ;End of IFE CSM07$
REP 25/116
JRST CHKS.3 ;GET A COMPLETE BLOCK!!
WIT
JRST CHKS.3 ;GET A COMPLETE BLOCK!
INS 1/123
LITS: XLIST ;[CSM] Literals
LIT ;[CSM]
LIST ;[CSM]
SUM 114036