1 /
\ e X1.RA FOR HP7475 AND ADCOMP X80-SP
4 IFSW 1 <ASCIITEST=1 > / TRACE ASCII OUTPUT TO PLOTTER
5 IFNSW 1 <ASCIITEST=0> / NO TRACE
6 IFSW 2 <PAUSETEST=1> / ADDITIONAL TRACE WITH CALL PAUSE # (SEE SRC LISTING FOR #)
7 IFNSW 2 <PAUSETEST=0> / NO CALL PAUSE
9 / PART TWO OF DEC'S XYPLOT DEC-S8-LPLTA-A-LA JULY 1973 M.HURLEY
10 / INCLUDED IS THE LATEST UPDATE F4 4.AAAA FROM LIBRARY FORLIB.RL NOV 77
11 / COPIED J.J. ANDRES 1.NOV. 1980
12 / PLOTS,XYPLOT,FACTOR,WHERE,SYMBOL,SYMB(FOR NUMBER ONLY)
15 / PLOTTER ROUTINES FOR PDP 8
17 / VER 1.0 1.NOV. 1980 H.A.
18 / VER 2.0 12.NOV 1980 H.A.
19 / VER 2.1 20.NOV 1980 H.A. CORRECTS BUG IN SYMBOL CONCERNING #XFCTX,#XFCTY
20 / VER 3.0 27.NOV 1980 H.A. INSERTS SYMBOL (999.,999.,....)
21 / VER 3.1 27.NOV.1980 H.A. CORRECTS PEN UP/DOWN TIMING ERROR
22 / VER 3.2 18.JAN.1981 H.A. CORRECTS WHERE AND OVERLAY PROBLEMS
23 / VER 3.3 4.AUG.1982 H.A. REDUCES NUMBER OF EXTERNAL REFERENCES
24 / VER 3.4 24.NOV.1983 H.A. REDUCES ASCII OUTPUT (VARIABLE OUTPUT FORMAT)
25 / VER 3.5 14-SEP-84 H.A. FIXES FILE OVERFLOW ERROR (INSERTS REWIND 2)
26 / VER 4.0 12-JUN-85 H.A. ASCII OUTPUT FOR X80-SP AND HP7475 PLOTTER ONLY
27 / VER 4.1 12-AUG-85 H.A. REMOVES BUG IN HP INITIALISATION STRING
28 / VER 4.2 22-AUG-85 H.A. REMOVES BUG IN FORMATTED OUTPUT ROUTINE
31 / 1. PLEXIT LOCKED OUT THE PLOTTER.
32 / 2. PLOTS DIDN'T DROVE PLOTTER TO THE ORIGIN
33 / * #XONCE IS REMOVED, SO #XNTST IS CALLED FROM PLOTS ALL TIMES
35 / 3. FACTOR DID NOT WORK CORRECT ALL THE TIMES.
36 / FACTOR(1),XYPLOT(1,1),FACTOR(2),XYPLOT(1,1) DID NOT WORK
37 / 4. TRUNCATION ERROR IN XYPLOT CAUSED ROUNDING PROBLEMS:
38 / XSTEPS=INT(INT(X/#XINCR)*FACTOR)
39 / * FACTOR NOW WORKS CORRECT IN ANY CASE
40 / * FACTOR NOW HAS AN OPTIONAL SECOND PARAMETER. IF BOTH PRESENT
41 / * THEY SPECIFY THE X-FACTOR AND THE Y-FACTOR.
42 / * A NEGATIVE FACTOR IS NO MORE VALID YET. (ERROR WALKBACK)
43 / * ZERO FACTOR DISABLES PLOTTING.
44 / * XYPLOT NOW COMPUTES XSTEPS=INT(X/#XINCR*FACTOR)
45 / * WHERE HAS GOT AN OPTIONAL FOURTH PARAMETER FOR THE Y-FACTOR.
46 / * IF X AND Y FACTOR DO NOT MATCH AND THERE ARE ONLY THREE PARAMETERS
47 / * AN ERROR WALKBACK IS TAKEN.
49 / 5. SYMBOL CALLS #XMBTB TO LOAD THE SYMBOL TABLE
51 / 6. CALLING SYMBOL/NUMBER WITH X/Y EQUAL TO 999. WILL REPLACE THE
52 / 999. WITH THE ACTUAL POSITION OF THE PEN. VERY USEFULL IF YOU
53 / ARE EDITING AN OUTPUT LINE USEING SOME CALLS TO SYMBOL & NUMBER.
54 / IF YOU CALL FACTOR PRIOR TO SYMBOL(999.,....) THEN THE POSITION
55 / OF THE PEN IS NEVER CHANGED PRIOR PLOTTING THE SYMBOL. BUT THE
56 / FACTOR IS USED WHEN PLOTTING THE SYMBOL.
58 / 7. EACH TIME XYPLOT WAS CALLED IT ISSUED A PEN UP/DOWN COMMAND.
59 / THIS CAUSED A STEP BY STEP MOVING OF THE PEN ALTHOUGH THE
60 / DIRECTION WAS NOT CHANGED. INTERFACE PROBLEM.
61 / NOW WE ISSUE THE PEN MOVE COMMAND ONLY WHEN WE WANT TO CHANGE
62 / THE DIRECTION OF THE PEN. THIS SPEEDS UP THE PLOTTER!
63 / * NOT VALID PEN VALUES (NOT -3 TO 3) CAUSE #ARGERR WITH X0 =1
64 / 27-NOV-80 H.A. A HARD DAY'S NIGHT.... AND MIDNIGHT TOO!
65 / 8. REMOVES BUG IN WHERE ROUTINE
66 / 9. TOO LARGE DELTA X (DELETA Y) CAUSE #ARGER WITH X0=2 (3)
68 / 10. ASCII OUPUT ONLY:
69 / CALL PLOTS PLOTTERTYPE: 1 FOR HP7475 PLOTTER
70 / 2 FOR ADCOMP X80-SP PLOTTER
71 / OUTPUT TO FORTRAN UNIT 2
72 / ASSIGN OS/8 I/O HANDLER TO UNIT 2
73 / NO INCREMENTAL PLOTTER ANY MORE.
74 / OPTIONAL 4.TH PARAMETER TO CALL XYPLOT (X,Y,PEN,SELPEN)
75 / SELPEN SELECTS PEN FOR HP7475 PLOTTER: DEFAULTS TO PEN #1
76 / NO EFFECT FOR ADCOMP PLOTTER.
80 / FPP CODE PART CONTAINING PLOTS,PLOT,PLEXIT,WHERE,FACTOR
81 / THIS PROGRAM MAY BE PLACED INTO AN OVERLAY.
82 / IT REFERENCES THE PROGRAM PDPPLT LOCATED IN FIELD 1.
87 / REFERENCES INTO FRTS (FIELD 0)
89 EXTERN #ARGER / WRONG NUMBER OF PARAMETERS
95 / REFERENCES INTO FIELD 1 (PDPPLT)
97 EXTERN #XORGX / LAST ABSOLUTE ORIGIN IN PLOTTER STEPS X (REAL)
99 #XABSX= #XORGY+3 / ACTUAL ABSOLUTE X POSITION IN STEPS (REAL)
101 #XOLDP= #XABSY+3 / OLD PEN STATUS
102 #XXOLD= #XOLDP+3 / OLD XPT WITH EFFECT OF FACTOR
103 #XYOLD= #XXOLD+3 / OLD YPT WITH EFFECT OF FACTOR
104 #XPENC= #XYOLD+3 / OLD PEN STATUS ( USED BY SYMBOL, NUMBER)
105 #XINCX= #XPENC+3 / INCREMENT SIZE FOR X STEP MOTOR OF PLOTTER
106 #XINCY= #XINCX+3 / INCREMENT SIZE FOR Y STEP MOTOR OF PLOTTER
107 #XFCTX= #XINCY+3 / X - FACTOR
108 #XFCTY= #XFCTX+3 / Y - FACTOR
109 PLUNIT=#XFCTY+3 / PLOTTER UNIT NUMBER INSERTED BY CALL PLOTS
110 SPENUP=PLUNIT+3 / HERE PLOTS INSERTS THE PEN UP/DOWN CMD'S
111 SPENDN=SPENUP+2 / THREE WORD TRANSFER!
113 / HERES THE INITIALIZATION ROUTINE
114 / STANDARD CALLING SEQUENCE, SHARED BY ALL SUBROUTINES
116 XRPLOT, 0 / MULTI PURPOSE XRS
117 X0= 0 / AT #ARGER X0 HOLDS THE XYPLOT ERROR NUMBER
126 XR7, 0 / NUMBER OF PARAMETERS AT SUBROUTINE CALL
127 WBW, TEXT #XYPLOT# / WALK BACK WORD
134 YPT, F 0. / VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
135 XPT, F 0. / X VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
136 TERM1, F 0. / TEMPORARY STORAGE
139 YDIFF, F 0. / PEN VALUE
143 ORG .+1 / TO MAKE A 3 WORD BASE ENTRY FOR PLTRTN
145 MAJOR, F 0. / HORIZONTAL AXIS MOVE
146 MINOR, F 0. / DIAGONAL AXIS MOVE
148 YACT, F 0. / HOLDS X,Y VALUES TYPED IN
155 TWO,/ / 0;2;0 = F 0.5
157 PORS, F 0. / =1 IF ENTERED FROM SYMBOL ROUTINE
158 XCHRPT, F 0. / X,Y VALUES FROM PDP TABLES
160 NUMENT, F 0. / INDICATES ENTRY FROM NUMBER SUBROUTINE
163 DEGRAD, F 0.017453293 / RADIANS TO DEGREES
166 XREAL, F 0. / FOR ORIGIN AND WHERE RTN
168 CENTSY, F 0. / CENTERED SYMBOL INDICATOR
169 NUMSYM, F 0. / NO. OF CHARACTERS TO PLOT
171 P22, F 18. / 22 OCTAL=18 DECIMAL
172 WRP, F 0. / HOLDS PEN CMD FOR WRITEIT ROUTINE
173 WRX, F 0. / HOLDS X VALUE
174 WRY, F 0. / HOLDS Y VALUE
177 / - - - - - - - - - - - - -
179 SYMSTR, JA . / SYMBOL ENTRY
180 JA SYMST / NEEDED TO PICK UP 2 WORD ADDRESSES
184 / SET UP THE BASE PAGE AND INDEX REGISTERS FOR THE PLOT ROUTINES
185 / PLOTS,XYPLOT,WHERE,FACTOR AND SYMBOL
188 PLTSTR, JA . / SAVE TWO WORDS FOR RETURN
190 FLDA 3*10 / SAVE CALLERS RETURN ARGUMENT LIST
192 FLDA% 0 / COMPUTE THE NUMBER OF PARAMETERS
196 LDX 1,1 / DIVIDE BY TWO
199 ATX X7 / AND BUMP INTO X7
200 FLDA 0 / POINTER TO THE PARAMETER LIST --> FAC
203 FSTA ARG1 / POINTER TO PARAMETER LIST --> ARG1
204 JA PLTSTR / 1 --> X1, INDEX TO PARAMETER LIST
207 / CALL XYPLOT (XPT,YPT,PENCMD)
209 / REAL XPT,YPT AND MUST BE POSSIBLE TO FIX INTO 24 BIT NUMBER
210 / INTEGER PENCMD (-3,-2,2,3 AND NOTHING ELSE)
216 / 4 XPT UNNORMALIZED OR TO LARGE ( FOR 24 BIT FRACTIONAL)
218 / 6 BAD UNIT NUMBER TO CALL PLOTS
219 / 7 BAD MACHINE TYPE TO CALL PLOTS
220 / 10 BAD # OF ARGUMENTS TO CALL WHERE (1 OR 2 ARG'S ONLY)
221 / 11 BAD # OF ARGUMENTS TO CALL WHERE - 4 EXPECTED SINCE X/Y FACTOR DIAGREE
222 / 12 BAD # OF ARGUMENTS TO CALL FACTOR
223 / 13 BAD ARGUMENTS TO CALL FACTOR (NEGATIVE FACTOR)
226 WB0, TEXT 'XYPLOT' / INSERT THE CORRECT WALK BACK WORD
228 FLDA# WB0 / INSERT THE CORRECT WALK BACK WORD
229 FSTA WBW / IN FRONT OF THE BASE PAGE
230 JSA PLTSTR / SET UP THE BASE PAGE AND X REGISTERS
231 IFZERO PAUSETEST < JA PAUS1 >
232 IFNZRO PAUSETEST < FNOP;FNOP >
239 SYMENT, FLDA% ARG1,1 / LOAD ADR. OF ARGUMENTS --> XPT,YPT,YDIFF
244 FSTA YDIFF / VALUE OF PEN
247 FLDA #XORGX / REMEMBER THE X OFFSET
250 FDIV #XINCX / ALL INTERNAL CALCULATIONS DONE IN TERMS OF
251 / PLOTTING INTERVALS, HENCE INTEGERS SO
253 FADDM #XABSX / ABSOLUTE NUMBER OF STEPS IN REAL
255 JAL XPTERR / IF IT IS IMPOSSIBLE TO FIX XPT THEN ERROR OFF
257 XPTERR, LDX 4,X0 / WITH #ARGER 4
260 JSA MAKINT / INTERGERIZE IT
261 FSTA XACT / WITH FACTOR
262 FSTA XPT / WITH EFFECT OF FACTOR
264 FLDA #XORGY / DON'T FORGET THE OFFSET
269 FADDM #XABSY / HERE WE STORE THE ABSOLUTE NUMBER OF STEPS DONE
271 JAL YPTERR / IF IT IS IMPOSSIBLE TO FIX YPT THEN WE ERROR OFF
273 YPTERR, LDX 5,X0 / WITH #ARGERR 5
276 JSA MAKINT / INTERGERIZE IT
278 FSTA YPT / WITH EFFECT OF FACTOR
280 FLDA% YDIFF / 2=DOWN, 3=UP, NEG=NEW ORG
285 FSTA YDIFF / SAVE NEW STATUS OF PEN
286 FSUB P1 / IF PEN LT 2 THEN
287 JLE PENERR / GOTO PENERR EXIT
288 FSUB PF2 / PASS ONLY 2,3
289 JLE ALEGAL / GOOD BOY
290 PENERR, FLDA YDIFF / PEN --> FAC
291 LDX 1,0 / BAD PEN CMD CAUSES XYPLOT ERROR 1
292 TRAP4 #ARGERR / FUCK OFF
294 FLDA YDIFF / SAVE THE NEW PEN STATUS FOR THE NEXT CALL
296 IFZERO PAUSETEST < JA PAUS2 >
297 IFNZRO PAUSETEST < FNOP;FNOP >
305 MAKINT, JA . / FOR ALL THOSE INTEGERIZATIONS REQUIRED
306 FADD PT5 / ROUND THE VALUE
307 ALN 0 / GET RID OF FRACTIONAL PART
308 FNORM / NORMALIZE IT FOR OTHER FPP OPERXATIONS
310 \f/ HERES THE CALCULATING PART OF THE PLOT ROUTINES
312 PREREL, JA . / RTN USED AS SUBROUTINE
313 REALPT, FLDA XPT / AND JA'D TO
314 FSUB #XXOLD / COMPARE NEW X AND OLD
318 FSUB #XYOLD / SAME FOR Y PNTS
320 FLDA #XOLDP / GET ACTUAL PEN STATUS
323 FLDA# SPENUP / PEN 2 ( PEN UP) [# MUST BE HERE BECAUSE WE ARE IN BASE PAGE]
327 DP1, FSTA WRP / STORE PEN CMD INTO FORMATTED WRITE RTN
332 JSA WRITEIT / DO FORMATTED I/O
335 / FORMATTED WRITE ROUTINE
336 / ENTRY: STARTF, DESTROYED FAC
337 / PARAMETERS ARE STORED INTO WRP,WRX,WRY PRIOR TO CALL
340 IFZERO PAUSETEST < JA PAUS3 >
341 IFNZRO PAUSETEST < FNOP;FNOP >
348 / HERE WE COMPUTE THE FORMAT FORM1
350 FLDA PLUNIT / TEST FOR PLOTTER UNIT NO.
352 JEQ WRI0 / FOR HP 7475 NO SPECIAL HANDLING
353 / X80-SP OUTPUT ROUTINE
356 IFNZRO ASCIITEST < JA FORM0 >
357 IFZERO ASCIITEST < JA FORM1 >
359 FNEG / WE NEED NEGATIVE NUMBER FOR Y-AXIS
360 FADD WRY / Y-X --> FAC
361 FADDM WRX / X+Y-X --> WRX
362 FSUB WRY / Y-X-Y --> FAC
363 FSTA WRY / -X --> Y WONDERFULL ISN'T IT? HOPE NO CARRY!
364 JMP WRI1 / GO AND COMPUTE FORMAT
365 / HP7475 OUTPUT ROUTINE
369 IFNZRO ASCIITEST < JA FORM0 >
370 IFZERO ASCIITEST < JA FORHP >
371 / OUTPUT ROUTINE COMMON FOR BOTH PLOTTER
374 TRAP3 #RSVO / OUTPUT PEN UP/DOWN COMMAND
375 FLDA WRX / SO WE SAVE SPACE IN THE OUTPUT LINE
376 JSA COLUMNS / COMPUTE MAGNITUDE OF NUMBER, SWITCH TO STARTD
377 / STARTD DONE BY COLUMNS!
378 FADD FORM1C / ADD LEADING SPACES
379 FSTA FORM1A / AND INSERT INTO FORMAT (I.E. 2I,...)
380 FSTA FORHPA / FORMAT FOR HP7475
383 JSA COLUMNS / COMPUTE MAGNITUDE OF NUMBER, SWITCH TO STARTD
384 FADD FORM1C / ADD THE LEADING SPACES
385 FSTA FORM1B / INSERT SECOND FORMAT STATEMENT
386 FSTA FORHPB / FORMAT FOR HP7475
389 / WRITE (2,FORM1) WRP,WRX,WRY
391 / WRITE (2,FORM0) WRP,#XPENC,#XORGX,#XFCTX,#XINCX,XACT
392 / * ,#XORGY,#XFCTY,#XINCY,YACT,FORM1,FORHP,WRX,WRY
394 IFNZRO ASCIITEST < FNOP;FNOP >
395 IFZERO ASCIITEST < JA DP4711 >
431 FLDA WRX / AND NOW WE OUTPUT THEM UNDER CONTROL OF FORM1
440 / SUBROUTINE TO COMPUTE FORMAT FOR OUTPUT
441 / ENTRY: WITH STARTF, FAC CONTAINS NUMBER (POS. OR NEG.)
442 / RETURN: FAC CONTAINS FORMAT, DOUBLE PRECISION MODE
446 LDX 1,X1 / HERE WE COUNT THE DIGITS USED TO PRINT THE NUMBER
448 ADDX 1,X1 / NEGATIVE NUMBERS: ONE MORE COL FOR SIGN
449 FNEG / I DO NOT KNOW IF IT MUST BE DONE, DO YOU KNOW?
450 COLUM1, FADD PT5 / ROUND
453 ALN 0 / INTEGER DIVISION, STRIP OFF REMAINDER
456 JXN LOOP,X1+ / COUNT THE NUMBER OF DIVISIONS BY 10
460 FADD C60 / CONVERT TO ASCII
465 FORM0, TEXT #(1X,A2,A6,2(I7,2F9.4,I8)/4X,8A6,2I6)#
478 JEQ REGPLT / 0 MEANS WAS FROM XYPLOT
479 JLT SYMSET / WAS A MOVE IN SYMBOL
480 FCLA / IS FIRST MOVE IN SYMBOL (0 ORG)
486 JLT ZEROLD / NEQ MEANS ZERO THE ORG
487 / SET X AND Y FOR NEXT MOVE TO START AT END OF THIS MOVE
493 SYMSET, FLDA XPT / CONT FROM CURRENT POINT
499 / NEGATIVE PEN STATUS, SO WE ZERO THE ORIGIN
502 FLDA #XABSX / SAVE THE ACTUAL PEN POSITION (MOTOR STEPS)
512 FLDA P1 / ENTERED WITH 36 BIT MODE TURNED ON
513 FSTA PORS / SET THE FROM SYMBOL FLAG
514 STARTD / USED BY SYMBOL FOR ORIGIN PLOT
515 FLDA SYMSTR / GET START OF ARG CHAIN
519 \f ENTRY WHERE / WITHOUT EFFECT OF FACTOR
520 WB1, TEXT 'WHERE ' / THE WALK BACK WORD
525 JXN WH0,7 / NO PARAMETERS AT ALL THEN
526 TRAP4 #ARGER / ABORT THE USER PROGRAM
527 / WARNING: WHERE RETURNS A WRONG RESULT IF YOU CALL FACTOR PRIOR
528 / TO THE WHERE ROUTINE WITHOUT PLOTTING WITH XYPLOT.
531 FSTA TERM1 / ADDRESS OF X (FIRST PARAMETER)
533 FSTA YDIFF / SAVE ADDRESS OF Y (SECOND PARAMETER)
537 FDIV #XFCTX / WHERE RETURNS X WITHOUT EFFECT OF FACTOR
539 JXN WH1,7+ / IF ONLY ONE PARAMETER, THEN ABORT USER
540 LDX 10,0 / WITH ERROR NUMBER 10
545 FDIV #XFCTY / RETURNED WITHOUT EFFECT OF FACTOR
546 FSTA% YDIFF / SEND BACK THE VALUES
547 JXN WH2,7+ / IF ONLY TWO PARAMETERS, THEN ABORT USER
548 LDX 10,0 / WITH ERROR NUMBER 10
553 FSTA ARG2 / ADR. OF X -FACTOR (THIRD PARAMETER)
555 FSTA ARG1 / ADR. OF Y -FACTOR (FOURTH PARAMETER) --> ARG1
557 FLDA #XFCTX / IF THE X AND Y FACTOR MATCH THEN
559 JNE WHXYF / WE NEED THREE PARAMETERS ONLY, ELSE WE GO WHXYF
562 JXN PLTRTN,X7+ / IF THERE ARE ONLY THREE PARAMETERS THEN RETURN
563 FSTA% ARG1 / ELSE INSERT FACTOR INTO FOURTH PARAMETER AND
565 WHXYF, / WE REQUIRE X AND Y FACTOR PARAMETERS
567 FSTA% ARG2 / INSERT THE X FACTOR INTO THE OUTPUT
569 LDX 11,0 / WITH ERROR # 11
570 TRAP4 #ARGER / SORRY, BUT THERE ARE NOT ENOUGH ARGUMENTS
575 ENTRY FACTOR / RESET FACTOR VALUE
581 JXN FA0,7 / IF THERE ARE NO PARAMETERS AT ALL THEN
582 LDX 12,0 / WITH ERROR # 12
583 TRAP4 #ARGER / ABORT USER PROGRAM
589 JGE FA1 / IF NEGATIVE FACTOR THEN
590 LDX 13,0 / WITH ERROR # 13
591 TRAP4 #ARGER / ABORT USER PROGRAM ELSE
593 FSTA #XFCTX / STORE X AND Y FACTOR
594 FSTA #XFCTY / ONE PARAMETER MEANS X&Y GET THE SAME FACTOR
598 STARTD / TWO PARAMETERS, GET THE Y FACTOR
603 JGE FA2 / IF NEGATIVE FACTOR THEN
604 LDX 13,0 / WITH ERROR # 13
605 TRAP4 #ARGER / ABORT USER PROGRAM
611 \f/ MUST DO A PLOTS AS FIRST ROUTINE IN ANY PLOTTING SEQUENCE
612 / USER SPECIFIES INCREMENT AND MACHINE TYPE (0=8/E, 1=12,8/I,8/L)
616 / CONSTANTS USED IN PLOTS
618 INHPX, F 0.0024873 / INCREMENT SIZE HP 7475 [CM/STEP]
619 INHPY, F 0.0024880 / INCREMENT SIZE Y DIRECTION [CM/STEP]
620 INX80Y, F 0.02648 / INCREMENT SIZE X80-SP X DIRECTION (96 CHAR. LINE)
621 INX80X, F 0.03968 / INCREMENT SIZE X80-SP Y DIRECTION (6 STEPS PER LINE)
622 PENHP, TEXT #PU PD# / 3 WORD TRANSFER INTO SPENUP,SPENDN!
623 PENX80, TEXT #P K # / WITH FLDA & FSTA
624 FORM2, TEXT "('1[STP 6'/' MC1'/' P 0 0')"
625 FORM3, TEXT "(' P 0 -576'/' STP 8]')"
626 FORM4, TEXT "(' \.J\.KOE;\.N;19:\.I64;;17:SP1')"
627 FORM5, TEXT "(' ;SP0;PU 11000,7500;')"
630 / VARIABLES FOR PLOTS, PLEXIT
634 PLOTS, / CALL PLOTS (PLOTTER TYPE, MACHINE TYPE)
636 / INTEGER PLOTTER TYPE: 1 XY PLOTTER
637 / 2 X80-SP PRINTER PLOTTER
638 / 3 BOTH (DOESN'T WORK TODAY)
639 / INTEGER MACHINE TYPE: 0 PDP 8/E
640 / 1 OTHER PDP 8 OR 12
650 STARTF / THIS ROUTINE SETS UP A LOT OF CONSTANTS
651 FLDA% XPT / LOAD FIRST ARGUMENT (PLOTTER TYPE ) --> FAC
652 JLE PLTSER / WRONG INPUT PARAMETER, ERROR OFF
653 FSTA PLUNIT / SAVE PLOTTER UNIT NUMBER
657 / PREPARE FOR HP 7475 OUTPUT: UNIT .EQ. 1
663 FLDA PENHP / PLOTTER INCREMENTS AND PEN UP/DOWN CMD INTO OUTPUT ROUTINE
664 FSTA SPENUP / THREE WORD TRANSFER!
665 TRAP3 #WRITO / AND OUTPUT THE INITIALIZATION STRING
667 JA FORM4 / ABORTS ANY PREVIOUS PLOTT AND SET PEN UP
668 TRAP3 #RENDO / AND SETS XON/XOFF HANDSHAKE PROCEDURE
669 JA MACHIN / GO AND FETCH NEXT PARAMETER
671 PLTSER, LDX 6,X0 / BAD UNIT NO TO CALL PLOTS
672 TRAP4 #ARGERR / WRONG UNIT NUMBER TO CALL PLOTS
674 / PREPARE FOR X80-SP PLOTTER: UNIT .GT.1
678 JGT PLTSER / WRONG PLOTTER UNIT
681 FLDA INX80Y / INSERT INCREMENT SIZE
683 FLDA PENX80 / AND PEN UP/DOWN CMD INTO THE OUTPUT ROUTINE
687 JA FORM2 / ' [STP6'/' MC1'/' P 0 0'
692 LDX 7,X0 / BAD MACHINE TYPE TO CALL PLOTS
696 FSTA #XFCTX / FACTOR=1 INITIALLY
699 FSTA #XOLDP / AND REALLY MOVE IT!
700 FSTA #XPENC / SO WILL DO FIRST PEN MOVEMENT
707 ENTRY PLEXIT / BE SHURE ALL DONE
714 FLDA PLUNIT / GET PLOTTER UNIT NUMBER
715 FSUB P1 / AND PREPARE SPECIAL PLOTT TERMINATION LINE
719 JA FORM5 / 'PU 603,7500;SP 0'
727 FLDA UNIX80 / REWIND SHOULD BE HERE TO PREVENT BLOCK NUMBERS LARGER THAN 7777
735 EXTERN #XMBTB / HERE STARTS THE SYMBOL TABLE
737 / EXTERNAL REFERENCES INTO FIELD 1 (PDPPLT)
754 JSR #XMBTB / LOAD THE SYMBOL TABLE ( SYMBTB )
755 IFZERO PAUSETEST < JA PAUS10 >
756 IFNZRO PAUSETEST < FNOP;FNOP >
774 FSTA ARG1 / NUMBER CHARS.
777 FMUL DEGRAD / CONVERT TO RADIANS
778 FSTA XCHRPT / THEN DONT NEED SIND
780 FSTA COSANG / VALUE OF X
781 FSUB F999 / IF X NEQ 999 THEN
782 JNE SY0 / WE USE THE X VALUE SPECIFIED ELSE
783 FLDA #XXOLD / WE START WITH THE OLD VALUE
784 FMUL #XINCX / THIS WILL CAUSE SOME TRUNCATION ERROR
785 FDIV #XFCTX / IN XYPLOT ROUTINE BUT THE ERROR IS SMALL
786 FSTA COSANG / AND WE HOPE FAC > 0 BUT THIS MUST NOT BE SO!
790 FSUB F999 / IF Y NEQ 999 THEN
791 JNE SY1 / WE USE THE Y VALUE SPECIFIED ELSE
792 FLDA #XYOLD / WE START WITH THE OLD Y VALUE
793 FMUL #XINCY / THIS CAUSES SOME TRUNCATION ERRORS
797 IFZERO PAUSETEST < JA PAUS11 >
798 IFNZRO PAUSETEST < FNOP;FNOP >
804 FSTA #XPENC / SO ALWAYS DOES INITIAL PEN U/D
806 FLDA TERM1 / GET TEXT ADDRESS
807 FSTA #XTXAD / PUT IT DOWN IN PDP PART
808 \f FLDA% YDIFF / ASSUME ITS A REGULAR
809 JGE NOTNEG / NEGATIVE SIZE IS NOT NICE
811 NOTNEG, FDIV PF7 / ADJUST LATER IF A CENT
813 FLDA% ARG1 / SHOWNS NUM. CHARS + PEN STATUS
815 JGE REGSYM / GT OR =0 IS REG SYM
816 FLDA% TERM1 / CHECK FOR REG CHAR PASSED
817 FSUB F100 / AS AN INTEGER EQUIV.
818 JLT INTEQ / ITS A INTEGER EQUIV
819 FLDA% YDIFF / CENTERED SYMBOL
824 FLDA NUMSYM / -1=PEN UP, -2=PEN DOWN (CNTRD ONLY)
826 JGE UPPEN / MOVE WITH PEN UP
827 FSTA CENTSY / NEG MEANS DOWN FROM THE START
829 CPEN, FSTA YCHRPT / =-2 FOR DOWN (CENT. + INTEQ ONLY)
830 / -3 FOR UP FOR ALL SYMBOLS + INTEQ
831 IFZERO PAUSETEST < JA PAUS12 >
832 IFNZRO PAUSETEST < FNOP;FNOP >
837 JSA SYMSTR / PLOT ORIGIN
844 FSTA XREAL / KEEP TRACK OF PASSED VALUES
851 JSA PNDOWN / PUT PEN DOWN NOW (CENT ONLY)
856 FSTA SINANG / SAVE SIN+HGT, USE FOR ALL VALUES
861 FSTA COSANG / COS(ANGLE)+HGT (IN INCREMENTS NOW)
862 LDX 0,4 / ZERO STEP COUNT
864 JGT NUM2 / JUMP IF FROM NUMBER
867 FSTA CENTSY / PUT PEN DOWN AFTER INITIAL MOVE
868 JA CPEN / MOVE WITH PEN UP
875 FSTA XCHRPT / GET FIRST MOVE
877 FSUB PF7 / 7,0=PEN UP, 7,7=END
879 IFZERO PAUSETEST < JA PAUS13 >
880 IFNZRO PAUSETEST < FNOP;FNOP >
886 JEQ CALALL / CENTEREDS REQUIRE MODIFIED ORIGIN
892 JXN PENSET,5 / PUT PEN BACK DOWN IF NEG
894 INTEQ, FLDA NUMSYM / CHECK ON PEN
900 FLDA YCHRPT / CHECK FOR 7,7 END
902 JEQ NXTCHR / JUMP IF END OF CHARACTER
903 JA ONEXY / ON TO NEXT PAIR
905 FLDA# SPENUP / 'P' PEN UP
907 LDX 1,5 / SET FOR PEN UP
910 FLDA# SPENDN / 'K' PEN DOWN
916 IFZERO PAUSETEST < JA PAUS14 >
917 IFNZRO PAUSETEST < FNOP;FNOP >
924 FSTA YCHRPT / Y MOVE AS STEPS (UNITERGERIZED)
927 FSTA TERM1 / =-SINA*Y
935 FSTA XACT / FOR AT END OF TEXT
936 FSTA XPT / X*COSA+OLDX-SINA*Y
937 / REQUIRES AN OLDX+OLDY TERM, BUT I DO THIS ALL REL TO A
938 / LOGICAL 0,0 FOR EACH CHAR, SO I #XLEFT THEM OUT.
948 FSTA YPT / NEWX*SINA*OLDY*COSA*Y
950 FSTA #XPENC / USE SAME ORIGIN THROUOUT THE LETTER
953 / JSA PREREL / PEN MUST BE IN NEC POS BY NOW
968 \fLEFTJS, XTA 4 / NUM OF MOVES
970 ATX 0 / PASS NUMBER OF STEPS INTO LETTER
972 TRAP4 #XLEFT / RETURN WITH A X,Y PAIR
978 JNE NOTFST / CHANGE IF BEFORE FIRST MOVE OF CHARACTER
979 JSA PNDOWN / PUT PEN DOWN NOW
980 NOTFST, TRAP4 #XRGHT / SET NEXT XY PAIR
982 ADDX 1,4 / UPDATE COUNT
983 JA LEFTJS / 77 AT END OF CHAR USED TO DET END
987 JNE CENTEX / LEAVE PEN AT CENTER FOR CENTS ONLY
990 FSTA XCHRPT / MOVE PEN TO 7,0 FOR REG CHARS
992 FLDA XACT / UPDATE COLLECTIVE ENDING X VALUE
993 FMUL #XFCTX / WITH EFFECT OF FACTOR
994 FADDM XREAL / ALSO WITH EFFECT OF FACTOR
995 FLDA YACT / UPDATE COLLECTIVE ENDING Y VALUE
996 FMUL #XFCTY / WITH EFFECT OF FACTOR
998 CENTOO, LDX 0,4 / ZERO STEP NUM WITHIN CHAR
1004 FADD NUMSYM / UPDATE COUNTER
1005 JLE SYMDON / NO MORE
1006 FSTA NUMSYM / MORE, SAVE COUNT
1008 JGT NUM3 / EXIT FOR NUM SUBR
1010 JXN RTCHAR,3 / 1=CHAR IS #XRGHT SIX BITS
1011 FSTLFT, LDX 1,3 / POINT TO #XRGHT 6 WHEN TIME FOR NEXT CHAR
1013 JLT NUM5 / JUMP IF CENTERED SYM OR INTEQ
1014 / CENTEREDS + INTEQ EQUIV PASSING 3 WORD VALUE IN NUM5
1015 / REG SYM USES PDP ROUTINE TO GET ONE WORD OF LIST
1018 JA LEFTJS / GO PLOT THE ACTUAL CHAR
1019 RTCHAR, LDX 0,3 / POINT TO #XLEFT 6 BITS FOR NEXT TIME
1023 IFZERO PAUSETEST < JA PAUS15 >
1024 IFNZRO PAUSETEST < FNOP;FNOP >
1032 FLDA XREAL / UPDATES ORG X VALUE
1036 FLDA YREAL / UPDATES ORG Y VALUE
1040 JA PLTRTN / NOW CAN CONTINUE PLOT FROM HERE
1041 \f/ SPECIAL ENTRY FOR NUMBER SUBROUTINE
1047 JSA PLTSTR / SPECIAL ENTRY FOR NUMBER SUBROUTINE
1048 JSR #XMBTB / LOAD THE SYMBOL TABLE (SYMBTB)
1054 NUM2, SETX NUMENT / FOR NUMBER SUBROUTINE ONLY
1055 / HERE ONLY FOR FIRST NUMBER OF STRING
1057 NUM3, JSA GETARG / FOR SECOND AND LATER NUMBERS
1060 NUM5, SETX NUMENT / FOR INTEQ + CENETEREDS
1066 SETX NUMENT / USED FOR MORE THAN ONE CHARACTER
1068 FLDA #XTXAD+1 / CENTEREDS SYMBOLS AND NUM SUBROUTINE
1069 / PASS VALUES AS THREE WORDS
1072 FLDA% ARG1,2+ / PASS A NUMBER