4 IFSW 1 <ASCIITEST=1 > / TRACE ASCII OUTPUT TO PLOTTER
5 IFNSW 1 <ASCIITEST=0> / NO TRACE
7 / PART TWO OF DEC'S XYPLOT DEC-S8-LPLTA-A-LA JULY 1973 M.HURLEY
8 / INCLUDED IS THE LATEST UPDATE F4 4.AAAA FROM LIBRARY FORLIB.RL NOV 77
9 / COPIED J.J. ANDRES 1.NOV. 1980
10 / PLOTS,XYPLOT,FACTOR,WHERE,SYMBOL,SYMB(FOR NUMBER ONLY)
13 / PLOTTER ROUTINES FOR PDP 8
15 / VER 1.0 1.NOV. 1980 H.A.
16 / VER 2.0 12.NOV 1980 H.A.
17 / VER 2.1 20.NOV 1980 H.A. CORRECTS BUG IN SYMBOL CONCERNING #XFCTX,#XFCTY
18 / VER 3.0 27.NOV 1980 H.A. INSERTS SYMBOL (999.,999.,....)
19 / VER 3.1 27.NOV.1980 H.A. CORRECTS PEN UP/DOWN TIMING ERROR
20 / VER 3.2 18.JAN.1981 H.A. CORRECTS WHERE AND OVERLAY PROBLEMS
21 / VER 3.3 4.AUG.1982 H.A. REDUCES NUMBER OF EXTERNAL REFERENCES
22 / VER 3.4 24.NOV.1983 H.A. REDUCES ASCII OUTPUT (VARIABLE OUTPUT FORMAT)
23 / VER 3.5 24-APR-1984 H.A. NOW HANDLES X-Y PLOTTER AND X80-SP PLOTTER WITH THE SAME ROUTINE
26 / 1. PLEXIT LOCKED OUT THE PLOTTER.
27 / 2. PLOTS DIDN'T DROVE PLOTTER TO THE ORIGIN
28 / * #XONCE IS REMOVED, SO #XNTST IS CALLED FROM PLOTS ALL TIMES
30 / 3. FACTOR DID NOT WORK CORRECT ALL THE TIMES.
31 / FACTOR(1),XYPLOT(1,1),FACTOR(2),XYPLOT(1,1) DID NOT WORK
32 / 4. TRUNCATION ERROR IN XYPLOT CAUSED ROUNDING PROBLEMS:
33 / XSTEPS=INT(INT(X/#XINCR)*FACTOR)
34 / * FACTOR NOW WORKS CORRECT IN ANY CASE
35 / * FACTOR NOW HAS AN OPTIONAL SECOND PARAMETER. IF BOTH PRESENT
36 / * THEY SPECIFY THE X-FACTOR AND THE Y-FACTOR.
37 / * A NEGATIVE FACTOR IS NO MORE VALID YET. (ERROR WALKBACK)
38 / * ZERO FACTOR DISABLES PLOTTING.
39 / * XYPLOT NOW COMPUTES XSTEPS=INT(X/#XINCR*FACTOR)
40 / * WHERE HAS GOT AN OPTIONAL FOURTH PARAMETER FOR THE Y-FACTOR.
41 / * IF X AND Y FACTOR DO NOT MATCH AND THERE ARE ONLY THREE PARAMETERS
42 / * AN ERROR WALKBACK IS TAKEN.
44 / 5. SYMBOL CALLS #XMBTB TO LOAD THE SYMBOL TABLE
46 / 6. CALLING SYMBOL/NUMBER WITH X/Y EQUAL TO 999. WILL REPLACE THE
47 / 999. WITH THE ACTUAL POSITION OF THE PEN. VERY USEFULL IF YOU
48 / ARE EDITING AN OUTPUT LINE USEING SOME CALLS TO SYMBOL & NUMBER.
49 / IF YOU CALL FACTOR PRIOR TO SYMBOL(999.,....) THEN THE POSITION
50 / OF THE PEN IS NEVER CHANGED PRIOR PLOTTING THE SYMBOL. BUT THE
51 / FACTOR IS USED WHEN PLOTTING THE SYMBOL.
53 / 7. EACH TIME XYPLOT WAS CALLED IT ISSUED A PEN UP/DOWN COMMAND.
54 / THIS CAUSED A STEP BY STEP MOVING OF THE PEN ALTHOUGH THE
55 / DIRECTION WAS NOT CHANGED. INTERFACE PROBLEM.
56 / NOW WE ISSUE THE PEN MOVE COMMAND ONLY WHEN WE WANT TO CHANGE
57 / THE DIRECTION OF THE PEN. THIS SPEEDS UP THE PLOTTER!
58 / * NOT VALID PEN VALUES (NOT -3 TO 3) CAUSE #ARGERR WITH X0 =1
59 / 27-NOV-80 H.A. A HARD DAY'S NIGHT.... AND MIDNIGHT TOO!
60 / 8. REMOVES BUG IN WHERE ROUTINE
61 / 9. TOO LARGE DELTA X (DELETA Y) CAUSE #ARGER WITH X0=2 (3)
65 / FPP CODE PART CONTAINING PLOTS,PLOT,PLEXIT,WHERE,FACTOR
66 / THIS PROGRAM MAY BE PLACED INTO AN OVERLAY.
67 / IT REFERENCES THE PROGRAM PDPPLT LOCATED IN FIELD 1.
71 / REFERENCES INTO FRTS (FIELD 0)
73 EXTERN #ARGER / WRONG NUMBER OF PARAMETERS
79 / REFERENCES INTO FIELD 1 (PDPPLT)
90 EXTERN #XORGX / LAST ABSOLUTE ORIGIN IN PLOTTER STEPS X (REAL)
92 #XABSX= #XORGY+3 / ACTUAL ABSOLUTE X POSITION IN STEPS (REAL)
94 #XOLDP= #XABSY+3 / OLD PEN STATUS
95 #XXOLD= #XOLDP+3 / OLD XPT WITH EFFECT OF FACTOR
96 #XYOLD= #XXOLD+3 / OLD YPT WITH EFFECT OF FACTOR
97 #XPENC= #XYOLD+3 / OLD PEN STATUS ( USED BY SYMBOL, NUMBER)
98 #XINCX= #XPENC+3 / INCREMENT SIZE FOR X STEP MOTOR OF PLOTTER
99 #XINCY= #XINCX+3 / INCREMENT SIZE FOR Y STEP MOTOR OF PLOTTER
100 #XFCTX= #XINCY+3 / X - FACTOR
101 #XFCTY= #XFCTX+3 / Y - FACTOR
103 / HERES THE INITIALIZATION ROUTINE
104 / STANDARD CALLING SEQUENCE, SHARED BY ALL SUBROUTINES
106 XRPLOT, 0 / MULTI PURPOSE XRS
107 X0= 0 / AT #ARGER X0 HOLDS THE XYPLOT ERROR NUMBER
116 XR7, 0 / NUMBER OF PARAMETERS AT SUBROUTINE CALL
117 WBW, TEXT #XYPLOT# / WALK BACK WORD
124 YPT, F 0. / VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
125 XPT, F 0. / X VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
129 YDIFF, F 0. / PEN VALUE
133 ORG .+1 / TO MAKE A 3 WORD BASE ENTRY FOR PLTRTN
135 MAJOR, F 0. / HORIZONTAL AXIS MOVE
136 MINOR, F 0. / DIAGONAL AXIS MOVE
138 YACT, F 0. / HOLDS X,Y VALUES TYPED IN
145 TWO,/ / 0;2;0 = F 0.5
147 PORS, F 0. / =1 IF ENTERED FROM SYMBOL ROUTINE
148 XCHRPT, F 0. / X,Y VALUES FROM PDP TABLES
150 NUMENT, F 0. / INDICATES ENTRY FROM NUMBER SUBROUTINE
153 DEGRAD, F 0.017453293 / RADIANS TO DEGREES
156 XREAL, F 0. / FOR ORIGIN AND WHERE RTN
158 CENTSY, F 0. / CENTERED SYMBOL INDICATOR
159 NUMSYM, F 0. / NO. OF CHARACTERS TO PLOT
161 P22, F 18. / 22 OCTAL=18 DECIMAL
162 F4095, F 4095. / LARGEST NUMBER FITTING INTO 12 BITS PDP 8 WORD
163 WRP, F 0. / HOLDS PEN CMD FOR FORMATTED OUTPUT TO X80-SP PLOTTER
164 WRX, F 0. / HOLDS X VALUE
165 WRY, F 0. / HOLDS Y VALUE
167 / - - - - - - - - - - - - -
169 SYMSTR, JA . / SYMBOL ENTRY
170 JA SYMST / NEEDED TO PICK UP 2 WORD ADDRESSES
174 / SET UP THE BASE PAGE AND INDEX REGISTERS FOR THE PLOT ROUTINES
175 / PLOTS,XYPLOT,WHERE,FACTOR AND SYMBOL
178 PLTSTR, JA . / SAVE TWO WORDS FOR RETURN
180 FLDA 3*10 / SAVE CALLERS RETURN ARGUMENT LIST
182 FLDA% 0 / COMPUTE THE NUMBER OF PARAMETERS
186 LDX 1,1 / DIVIDE BY TWO
189 ATX X7 / AND BUMP INTO X7
190 FLDA 0 / POINTER TO THE PARAMETER LIST --> FAC
193 FSTA ARG1 / POINTER TO PARAMETER LIST --> ARG1
194 JA PLTSTR / 1 --> X1, INDEX TO PARAMETER LIST
197 / CALL XYPLOT (XPT,YPT,PENCMD)
199 / REAL XPT,YPT AND MUST BE POSSIBLE TO FIX INTO 24 BIT NUMBER
200 / INTEGER PENCMD (-3,-2,2,3 AND NOTHING ELSE)
204 / 2 DELTA X EXCEEDS 4095
205 / 3 DELTA Y EXCEEDS 4095
206 / 4 XPT UNNORMALIZED OR TO LARGE ( FOR 24 BIT FRACTIONAL)
211 WB0, TEXT 'XYPLOT' / INSERT THE CORRECT WALK BACK WORD
213 FLDA# WB0 / INSERT THE CORRECT WALK BACK WORD
214 FSTA WBW / IN FRONT OF THE BASE PAGE
215 JSA PLTSTR / SET UP THE BASE PAGE AND X REGISTERS
221 FSTA YDIFF / VALUE OF PEN
224 FDIV #XINCX / ALL INTERNAL CALCULATIONS DONE IN TERMS OF
225 / PLOTTING INTERVALS, HENCE INTEGERS SO
228 FSTA XACT / TEMP SAVE OF FAC
229 FADD #XORGX / REMEMBER THE X OFFSET
230 FSTA #XABSX / ABSOLUTE NUMBER OF STEPS IN REAL
231 FLDA XACT / RESTORE FAC
233 JAL XPTERR / IF IT IS IMPOSSIBLE TO FIX XPT THEN ERROR OFF
235 XPTERR, LDX 4,X0 / WITH #ARGER 4
238 JSA MAKINT / INTERGERIZE IT
239 FSTA XACT / WITH FACTOR
240 FSTA XPT / WITH EFFECT OF FACTOR
245 FADD #XORGY / ADD THE ORIGIN Y
246 FSTA #XABSY / HERE WE STORE THE ABSOLUTE NUMBER OF STEPS DONE
247 FLDA YACT / RESTORE FAC
249 JAL YPTERR / IF IT IS IMPOSSIBLE TO FIX YPT THEN WE ERROR OFF
251 YPTERR, LDX 5,X0 / WITH #ARGERR 5
254 JSA MAKINT / INTERGERIZE IT
256 FSTA YPT / WITH EFFECT OF FACTOR
257 FLDA% YDIFF / 2=DOWN, 3=UP, NEG=NEW ORG
258 FSTA #XPENC / PEN CMD --> #XPENC
263 ATX 0 / ABS VALUE PEN --> #XETXR
264 XTA 0 / FOR THE FPP SIMULATOR
266 FSTA YDIFF / SAVE NEW STATUS OF PEN
267 FSUB P1 / IF PEN LT 2 THEN
268 JLE PENERR / GOTO PENERR EXIT
269 FSUB PF2 / PASS ONLY 2,3
270 JLE ALEGAL / GOOD BOY
271 PENERR, FLDA YDIFF / PEN --> FAC
272 LDX 1,0 / BAD PEN CMD CAUSES XYPLOT ERROR 1
273 TRAP4 #ARGERR / FUCK OFF
275 FLDA YDIFF / RESTORE THE NEW VALUE OF PEN
276 FSUB #XOLDP / COMPARE WITH THE OLD VALUE
277 JEQ NOCHNG / IF THEY MATCH THEN GOTO NOCHANGE
278 FLDA PLTTYP / WE CHANGE THE PEN ONLY IF X-Y PLOTTER OUTPUT DESIRED
279 FSUB PF2 / 1 OR 3 FOR X-Y PLOTTER OUTPUT
280 JEQ NOCHNG / NO X-Y PLOTTER, SO NO PEN CHANGE CMD
281 TRAP4 #XETUP / ELSE SET UP THE NEW PEN
283 FLDA YDIFF / SAVE THE NEW PEN STATUS FOR THE NEXT CALL
288 MAKINT, JA . / FOR ALL THOSE INTEGERIZATIONS REQUIRED
289 FADD PT5 / ROUND THE VALUE
290 ALN 0 / GET RID OF FRACTIONAL PART
291 FNORM / NORMALIZE IT FOR OTHER FPP OPERXATIONS
293 \f/ HERES THE CALCULATING PART OF THE PLOT ROUTINES
295 PREREL, JA . / RTN USED AS SUBROUTINE
296 REALPT, FLDA XPT / AND JA'D TO
297 FSUB #XXOLD / COMPARE NEW X AND OLD
301 ABSDX, FSTA TERM1 / ABS DELTA X
303 FSUB F4095 / IF THE DELTA X DOES NOT FIT INTO
304 JLE DXOK / A 12 BIT PDP 8 WORD THEN TAKE ERROR 2
305 LDX 2,0 / ELSE CONTINUE FI
306 TRAP4 #ARGER / HOME TO CCL
310 FSUB #XYOLD / SAME FOR Y PNTS
314 DELXY, FADDM TERM1 / DX-DY
316 FNEG / ABS DELTA Y --> FAC
317 FSUB F4095 / IF DELTA Y DOESN'T FIT INTO 12 BITS THEN
318 JLE DYOK / WE ERROR OFF ELSE CONTINUE FI
319 LDX 3,0 / THIS IS ERROR 3
322 FLDA #XOLDP / GET ACTUAL PEN STATUS
325 FLDA# SDP / PEN 2 ( PEN UP) [# MUST BE HERE BECAUSE WE ARE IN BASE PAGE]
327 SDP, TEXT 'P' / PEN = 3
328 SDK, TEXT 'K' / PEN = 2
331 DP1, FSTA WRP / STORE PEN CMD INTO FORMATTED WRITE RTN
336 FLDA PLTTYP / FORMATTED OUTPUT TO X80-SP PLOTTER
337 FSUB PF2 / REMEMBER: IF X80-SP THEN PLTTYP:=2
339 JSA WRITEIT / DO FORMATTED I/O
342 / FORMATTED WRITE ROUTINE
343 / ENTRY: STARTF, DESTROYED FAC
344 / PARAMETERS ARE STORED INTO WRP,WRX,WRY PRIOR TO CALL
349 IFNZRO ASCIITEST < JA FORM0 >
350 IFZERO ASCIITEST < JA FORM1 >
354 / HERE WE COMPUTE THE FORMAT FORM1
356 FLDA WRY / HERE WE DETERMINE THE FIELD WIDTH FOR THE ABSOLUTE NUMBER OF STEPS
357 JSA COLUMNS / COMPUTE MAGNITUDE OF NUMBER, SWITCH TO STARTD
358 FADD FORM1C / ADD LEADING SPACES
359 FSTA FORM1A / AND INSERT INTO FORMAT (I.E. 2I,...)
362 FNEG / WE OUTPUT THE NEGATIVE NUMBER
363 JSA COLUMNS / COMPUTE MAGNITUDE OF NUMBER, SWITCH TO STARTD !!
364 FADD FORM1D / ADD '1X ' TO THE FORMAT
365 FSTA FORM1B / INSERT SECOND FORMAT STATEMENT
368 / WRITE (2,FORM1) WRP,-WRY,WRX
370 / WRITE (2,FORM0) WRP,#XPENC,#XORGX,#XFCTX,#XINCX,XACT
371 / * ,#XORGY,#XFCTY,#XINCY,YACT,FORM1,-WRY,WRX
373 IFNZRO ASCIITEST < FNOP;FNOP >
374 IFZERO ASCIITEST < JA DP4711 >
400 FLDA WRY / AND NOW WE OUTPUT THEM UNDER CONTROL OF FORM1
409 / SUBROUTINE TO COMPUTE FORMAT FOR OUTPUT
410 / ENTRY: WITH STARTF, FAC CONTAINS NUMBER (POS. OR NEG.)
411 / RETURN: FAC CONTAINS FORMAT, DOUBLE PRECISION MODE (STARTD)!
415 LDX 1,X1 / HERE WE COUNT THE DIGITS USED TO PRINT THE NUMBER
417 ADDX 1,X1 / NEGATIVE NUMBERS: ONE MORE COL FOR SIGN
418 FNEG / I DO NOT KNOW IF IT MUST BE DONE, DO YOU KNOW?
421 JSA MAKINT / INTEGER DIVISION, STRIP OFF REMAINDER
423 JXN LOOP,X1+ / COUNT THE NUMBER OF DIVISIONS BY 10
427 FADD C60 / CONVERT TO ASCII
432 FORM0, TEXT #(1X,A1,A6,2(I7,2F9.3,I8),2X,3A6,2I6)#
435 FORM1B, TEXT #1XI0) #
440 FLDA TERM1 / DETERMINE OCTANT + MAJOR AXIS
442 FLDA YDIFF / Y AXIS IS MAJOR
447 XMAJ, FLDA XDIFF / X AXIS MAJOR
451 KNOWOC, LDX 2,1 / 2*OCTANT VALUE COLLECTED IN XR1
452 / USES A SPECIAL (NON SEQUENTIAL) ORDERING
461 ADDX 2,1 / KEEP IT IN XR1
463 FLDA MAJOR / GET MAJOR MOVE
464 JGT POSMAJ / NEED AS ABS. VALUE
465 JEQ NOTHIN / IF NO MAJOR MOVES, THEN NO MOVES
467 FSTA MAJOR / NO ABS. VALUE
470 ATX 1 / PASS THIS TO PDP CODE
472 / USE 2 WORD #XATIO IN PDP CODE TO DET SEQ OF MOVES
474 JGT POSMIN / ABS VALUE
477 POSMIN, FDIV MAJOR / FORM #XATIO OF MINOR TO MAJOR MOVES
479 ZROCAS, FSTA #XATIO / DOWN TO PDP CODE
481 SETX #XDPXR / GET 2*OCTATNT
484 FLDA PLTTYP / X-Y OUTPUT ONLY TO X-Y PLOTTER
489 JEQ REGPLT / 0 MEANS WAS FROM XYPLOT
490 JLT SYMSET / WAS A MOVE IN SYMBOL
491 FCLA / IS FIRST MOVE IN SYMBOL (0 ORG)
497 JLT ZEROLD / NEQ MEANS ZERO THE ORG
498 / SET X AND Y FOR NEXT MOVE TO START AT END OF THIS MOVE
504 SYMSET, FLDA XPT / CONT FROM CURRENT POINT
510 / NEGATIVE PEN STATUS, SO WE ZERO THE ORIGIN
513 FLDA #XABSX / SAVE THE ACTUAL PEN POSITION (MOTOR STEPS)
523 FLDA P1 / ENTERED WITH 36 BIT MODE TURNED ON
524 FSTA PORS / SET THE FROM SYMBOL FLAG
525 STARTD / USED BY SYMBOL FOR ORIGIN PLOT
526 FLDA SYMSTR / GET START OF ARG CHAIN
530 \f ENTRY WHERE / WITHOUT EFFECT OF FACTOR
531 WB1, TEXT 'WHERE ' / THE WALK BACK WORD
536 JXN WH0,7 / NO PARAMETERS AT ALL THEN
537 TRAP4 #ARGER / ABORT THE USER PROGRAM
538 / WARNING: WHERE RETURNS A WRONG RESULT IF YOU CALL FACTOR PRIOR
539 / TO THE WHERE ROUTINE WITHOUT PLOTTING WITH XYPLOT.
542 FSTA TERM1 / ADDRESS OF X (FIRST PARAMETER)
544 FSTA YDIFF / SAVE ADDRESS OF Y (SECOND PARAMETER)
548 FDIV #XFCTX / WHERE RETURNS X WITHOUT EFFECT OF FACTOR
550 JXN WH1,7+ / IF ONLY ONE PARAMETER, THEN ABORT USER
555 FDIV #XFCTY / RETURNED WITHOUT EFFECT OF FACTOR
556 FSTA% YDIFF / SEND BACK THE VALUES
557 JXN WH2,7+ / IF ONLY TWO PARAMETERS, THEN ABORT USER
562 FSTA ARG2 / ADR. OF X -FACTOR (THIRD PARAMETER)
564 FSTA ARG1 / ADR. OF Y -FACTOR (FOURTH PARAMETER) --> ARG1
566 FLDA #XFCTX / IF THE X AND Y FACTOR MATCH THEN
568 JNE WHXYF / WE NEED THREE PARAMETERS ONLY, ELSE WE GO WHXYF
571 JXN PLTRTN,X7+ / IF THERE ARE ONLY THREE PARAMETERS THEN RETURN
572 FSTA% ARG1 / ELSE INSERT FACTOR INTO FOURTH PARAMETER AND
574 WHXYF, / WE REQUIRE X AND Y FACTOR PARAMETERS
576 FSTA% ARG2 / INSERT THE X FACTOR INTO THE OUTPUT
578 TRAP4 #ARGER / SORRY, BUT THERE ARE NOT ENOUGH ARGUMENTS
583 ENTRY FACTOR / RESET FACTOR VALUE
589 JXN FA0,7 / IF THERE ARE NO PARAMETERS AT ALL THEN
590 TRAP4 #ARGER / ABORT USER PROGRAM
596 JGE FA1 / IF NEGATIVE FACTOR THEN
597 TRAP4 #ARGER / ABORT USER PROGRAM ELSE
599 FSTA #XFCTX / STORE X AND Y FACTOR
600 FSTA #XFCTY / ONE PARAMETER MEANS X&Y GET THE SAME FACTOR
604 STARTD / TWO PARAMETERS, GET THE Y FACTOR
609 JGE FA2 / IF NEGATIVE FACTOR THEN
610 TRAP4 #ARGER / ABORT USER PROGRAM
616 \f/ MUST DO A PLOTS AS FIRST ROUTINE IN ANY PLOTTING SEQUENCE
617 / USER SPECIFIES INCREMENT AND MACHINE TYPE (0=8/E, 1=12,8/I,8/L)
621 / CONSTANTS USED IN PLOTS
623 INXYPL, F 0.0095 / INCREMENT SIZE XY PLOTTER
624 INX80Y, F 0.02648 / INCREMENT SIZE X80-SP X DIRECTION (96 CHAR. LINE)
625 INX80X, F 0.03968 / INCREMENT SIZE X80-SP Y DIRECTION (6 STEPS PER LINE)
626 FORM2, TEXT "(' [STP 6'/' MC1'/' P 0 0')"
627 FORM3, TEXT "(' STP 8]')"
629 PLTTYP, F 0. / HERE WE STORE THE PLOTTER TYPE DESIRED
632 PLOTS, / CALL PLOTS (PLOTTER TYPE, MACHINE TYPE)
634 / INTEGER PLOTTER TYPE: 1 XY PLOTTER
635 / 2 X80-SP PRINTER PLOTTER
636 / 3 BOTH (DOESN'T WORK TODAY BECAUSE THERE ARE DIFFERENT X-Y INCREMENTS FOR EACH PLOTTER)
637 / INTEGER MACHINE TYPE: 0 PDP 8/E
638 / 1 OTHER PDP 8 OR 12
648 STARTF / THIS ROUTINE SETS UP A LOT OF CONSTANTS
649 FLDA% XPT / LOAD FIRST ARGUMENT (PLOTTER TYPE ) --> FAC
650 JSA MAKINT / INTEGERIZE IT
651 FSTA PLTTYP / HERE WE SAVE THE PLOTTER DEVICE NUMBER
652 JLE PLTSER / WRONG INPUT PARAMETER, ERROR OFF
654 JGT PLS1 / 2 OR LARGER
655 FLDA INXYPL / XY PLOTTER INCREMENT
660 JGT PLTSER / BOTH PLOTTER TYPES NOT ALLOWED TODAY
662 FSTA #XINCX / X80 SP PRINTER PLOTTER
667 JA FORM2 / ' [STP6'/' MC1'/' P 0 0'
672 FLDA P22 / SET MATCHTP TO 22 IF NON-8/E
674 ATX 0 / 0=8/E, 022=12,8/I,8/L
676 SETX #XCHCK / FOR INITIALISATION CHECK
681 FSTA #XFCTX / FACTOR=1 INITIALLY
684 FSTA #XOLDP / AND REALLY MOVE IT!
685 FSTA #XPENC / SO WILL DO FIRST PEN MOVEMENT
692 ENTRY PLEXIT / BE SHURE ALL DONE
702 TRAP3 #WRITO / X80-SP PLOTTER EXIT ROUTINE
706 TRAP3 #REW / OUTPUT THE BUFFER AND RESET OUTPUT UNIT ( NOT GOOD FOR FILE STRUCTURED DEVICES)
709 PLEXI1, / X-Y PLOTTER EXIT ROUTINE
713 PLTSER, / PLOTS ERROR RETURN ROUTINE
714 LDX 1,X0 / ERROR # 1 FOR INVALID PLOTTER TYPE
715 TRAP4 #ARGER
\f SECT #SYMBL
718 EXTERN #XMBTB / HERE STARTS THE SYMBOL TABLE
720 / EXTERNAL REFERENCES INTO FIELD 1 (PDPPLT)
739 JSR #XMBTB / LOAD THE SYMBOL TABLE ( SYMBTB )
751 FSTA ARG1 / NUMBER CHARS.
754 FMUL DEGRAD / CONVERT TO RADIANS
755 FSTA XCHRPT / THEN DONT NEED SIND
757 FSTA COSANG / VALUE OF X
758 FSUB F999 / IF X NEQ 999 THEN
759 JNE SY0 / WE USE THE X VALUE SPECIFIED ELSE
760 FLDA #XXOLD / WE START WITH THE OLD VALUE
761 FMUL #XINCX / THIS WILL CAUSE SOME TRUNCATION ERROR
762 FDIV #XFCTX / IN XYPLOT ROUTINE BUT THE ERROR IS SMALL
763 FSTA COSANG / AND WE HOPE FAC > 0 BUT THIS MUST NOT BE SO!
767 FSUB F999 / IF Y NEQ 999 THEN
768 JNE SY1 / WE USE THE Y VALUE SPECIFIED ELSE
769 FLDA #XYOLD / WE START WITH THE OLD Y VALUE
770 FMUL #XINCY / THIS CAUSES SOME TRUNCATION ERRORS
776 FSTA #XPENC / SO ALWAYS DOES INITIAL PEN U/D
778 FLDA TERM1 / GET TEXT ADDRESS
779 FSTA #XTXAD / PUT IT DOWN IN PDP PART
780 \f FLDA% YDIFF / ASSUME ITS A REGULAR
781 JGE NOTNEG / NEGATIVE SIZE IS NOT NICE
783 NOTNEG, FDIV PF7 / ADJUST LATER IF A CENT
785 FLDA% ARG1 / SHOWNS NUM. CHARS + PEN STATUS
787 JGE REGSYM / GT OR =0 IS REG SYM
788 FLDA% TERM1 / CHECK FOR REG CHAR PASSED
789 FSUB F100 / AS AN INTEGER EQUIV.
790 JLT INTEQ / ITS A INTEGER EQUIV
791 FLDA% YDIFF / CENTERED SYMBOL
796 FLDA NUMSYM / -1=PEN UP, -2=PEN DOWN (CNTRD ONLY)
798 JGE UPPEN / MOVE WITH PEN UP
799 FSTA CENTSY / NEG MEANS DOWN FROM THE START
801 CPEN, FSTA YCHRPT / =-2 FOR DOWN (CENT. + INTEQ ONLY)
802 / -3 FOR UP FOR ALL SYMBOLS + INTEQ
803 JSA SYMSTR / PLOT ORIGIN
810 FSTA XREAL / KEEP TRACK OF PASSED VALUES
817 JSA PNDOWN / PUT PEN DOWN NOW (CENT ONLY)
822 FSTA SINANG / SAVE SIN+HGT, USE FOR ALL VALUES
827 FSTA COSANG / COS(ANGLE)+HGT (IN INCREMENTS NOW)
828 LDX 0,4 / ZERO STEP COUNT
830 JGT NUM2 / JUMP IF FROM NUMBER
833 FSTA CENTSY / PUT PEN DOWN AFTER INITIAL MOVE
834 JA CPEN / MOVE WITH PEN UP
841 FSTA XCHRPT / GET FIRST MOVE
843 FSUB PF7 / 7,0=PEN UP, 7,7=END
846 JEQ CALALL / CENTEREDS REQUIRE MODIFIED ORIGIN
852 JXN PENSET,5 / PUT PEN BACK DOWN IF NEG
854 INTEQ, FLDA NUMSYM / CHECK ON PEN
860 FLDA YCHRPT / CHECK FOR 7,7 END
862 JEQ NXTCHR / JUMP IF END OF CHARACTER
863 JA ONEXY / ON TO NEXT PAIR
865 LDX 1,5 / SET FOR PEN UP
867 LDX 0,0 / PASS A ZERO FOR UP
870 FLDA# SDP / 'P' PEN UP
875 LDX 1,0 / PASS A ONE FOR DOWN
878 FLDA# SDK / 'K' PEN DOWN
886 FSTA YCHRPT / Y MOVE AS STEPS (UNITERGERIZED)
889 FSTA TERM1 / =-SINA*Y
897 FSTA XACT / FOR AT END OF TEXT
898 FSTA XPT / X*COSA+OLDX-SINA*Y
899 / REQUIRES AN OLDX+OLDY TERM, BUT I DO THIS ALL REL TO A
900 / LOGICAL 0,0 FOR EACH CHAR, SO I #XLEFT THEM OUT.
910 FSTA YPT / NEWX*SINA*OLDY*COSA*Y
912 FSTA #XPENC / USE SAME ORIGIN THROUOUT THE LETTER
915 / JSA PREREL / PEN MUST BE IN NEC POS BY NOW
930 \fLEFTJS, XTA 4 / NUM OF MOVES
932 ATX 0 / PASS NUMBER OF STEPS INTO LETTER
934 TRAP4 #XLEFT / RETURN WITH A X,Y PAIR
940 JNE NOTFST / CHANGE IF BEFORE FIRST MOVE OF CHARACTER
941 JSA PNDOWN / PUT PEN DOWN NOW
942 NOTFST, TRAP4 #XRGHT / SET NEXT XY PAIR
944 ADDX 1,4 / UPDATE COUNT
945 JA LEFTJS / 77 AT END OF CHAR USED TO DET END
949 JNE CENTEX / LEAVE PEN AT CENTER FOR CENTS ONLY
952 FSTA XCHRPT / MOVE PEN TO 7,0 FOR REG CHARS
954 FLDA XACT / UPDATE COLLECTIVE ENDING X VALUE
955 FMUL #XFCTX / WITH EFFECT OF FACTOR
956 FADDM XREAL / ALSO WITH EFFECT OF FACTOR
957 FLDA YACT / UPDATE COLLECTIVE ENDING Y VALUE
958 FMUL #XFCTY / WITH EFFECT OF FACTOR
960 CENTOO, LDX 0,4 / ZERO STEP NUM WITHIN CHAR
966 FADD NUMSYM / UPDATE COUNTER
968 FSTA NUMSYM / MORE, SAVE COUNT
970 JGT NUM3 / EXIT FOR NUM SUBR
972 JXN RTCHAR,3 / 1=CHAR IS #XRGHT SIX BITS
973 FSTLFT, LDX 1,3 / POINT TO #XRGHT 6 WHEN TIME FOR NEXT CHAR
975 JLT NUM5 / JUMP IF CENTERED SYM OR INTEQ
976 / CENTEREDS + INTEQ EQUIV PASSING 3 WORD VALUE IN NUM5
977 / REG SYM USES PDP ROUTINE TO GET ONE WORD OF LIST
980 JA LEFTJS / GO PLOT THE ACTUAL CHAR
981 RTCHAR, LDX 0,3 / POINT TO #XLEFT 6 BITS FOR NEXT TIME
987 FLDA XREAL / UPDATES ORG X VALUE
991 FLDA YREAL / UPDATES ORG Y VALUE
995 JA PLTRTN / NOW CAN CONTINUE PLOT FROM HERE
996 \f/ SPECIAL ENTRY FOR NUMBER SUBROUTINE
1002 JSA PLTSTR / SPECIAL ENTRY FOR NUMBER SUBROUTINE
1003 JSR #XMBTB / LOAD THE SYMBOL TABLE (SYMBTB)
1009 NUM2, SETX NUMENT / FOR NUMBER SUBROUTINE ONLY
1010 / HERE ONLY FOR FIRST NUMBER OF STRING
1012 NUM3, JSA GETARG / FOR SECOND AND LATER NUMBERS
1015 NUM5, SETX NUMENT / FOR INTEQ + CENETEREDS
1021 SETX NUMENT / USED FOR MORE THAN ONE CHARACTER
1023 FLDA #XTXAD+1 / CENTEREDS SYMBOLS AND NUM SUBROUTINE
1024 / PASS VALUES AS THREE WORDS
1027 FLDA% ARG1,2+ / PASS A NUMBER