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 14-SEP-84 H.A. FIXES FILE OVERFLOW ERROR (INSERTS REWIND 2)
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
102 X80SPX=#XFCTY+3 / ACTUAL LOCATION OF PEN FOR X80SP PLOTTER
103 X80SPY=X80SPX+3 / WE SEND RELATIVE POSITIONS ONLY
105 / HERES THE INITIALIZATION ROUTINE
106 / STANDARD CALLING SEQUENCE, SHARED BY ALL SUBROUTINES
108 XRPLOT, 0 / MULTI PURPOSE XRS
109 X0= 0 / AT #ARGER X0 HOLDS THE XYPLOT ERROR NUMBER
118 XR7, 0 / NUMBER OF PARAMETERS AT SUBROUTINE CALL
119 WBW, TEXT #XYPLOT# / WALK BACK WORD
126 YPT, F 0. / VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
127 XPT, F 0. / X VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
131 YDIFF, F 0. / PEN VALUE
135 ORG .+1 / TO MAKE A 3 WORD BASE ENTRY FOR PLTRTN
137 MAJOR, F 0. / HORIZONTAL AXIS MOVE
138 MINOR, F 0. / DIAGONAL AXIS MOVE
140 YACT, F 0. / HOLDS X,Y VALUES TYPED IN
147 TWO,/ / 0;2;0 = F 0.5
149 PORS, F 0. / =1 IF ENTERED FROM SYMBOL ROUTINE
150 XCHRPT, F 0. / X,Y VALUES FROM PDP TABLES
152 NUMENT, F 0. / INDICATES ENTRY FROM NUMBER SUBROUTINE
155 DEGRAD, F 0.017453293 / RADIANS TO DEGREES
158 XREAL, F 0. / FOR ORIGIN AND WHERE RTN
160 CENTSY, F 0. / CENTERED SYMBOL INDICATOR
161 NUMSYM, F 0. / NO. OF CHARACTERS TO PLOT
163 P22, F 18. / 22 OCTAL=18 DECIMAL
164 F4095, F 4095. / LARGEST NUMBER FITTING INTO 12 BITS PDP 8 WORD
165 WRP, F 0. / HOLDS PEN CMD
166 WRX, F 0. / HOLDS X VALUE
167 WRY, F 0. / HOLDS Y VALUE
169 / - - - - - - - - - - - - -
171 SYMSTR, JA . / SYMBOL ENTRY
172 JA SYMST / NEEDED TO PICK UP 2 WORD ADDRESSES
176 / SET UP THE BASE PAGE AND INDEX REGISTERS FOR THE PLOT ROUTINES
177 / PLOTS,XYPLOT,WHERE,FACTOR AND SYMBOL
180 PLTSTR, JA . / SAVE TWO WORDS FOR RETURN
182 FLDA 3*10 / SAVE CALLERS RETURN ARGUMENT LIST
184 FLDA% 0 / COMPUTE THE NUMBER OF PARAMETERS
188 LDX 1,1 / DIVIDE BY TWO
191 ATX X7 / AND BUMP INTO X7
192 FLDA 0 / POINTER TO THE PARAMETER LIST --> FAC
195 FSTA ARG1 / POINTER TO PARAMETER LIST --> ARG1
196 JA PLTSTR / 1 --> X1, INDEX TO PARAMETER LIST
199 / CALL XYPLOT (XPT,YPT,PENCMD)
201 / REAL XPT,YPT AND MUST BE POSSIBLE TO FIX INTO 24 BIT NUMBER
202 / INTEGER PENCMD (-3,-2,2,3 AND NOTHING ELSE)
206 / 2 DELTA X EXCEEDS 4095
207 / 3 DELTA Y EXCEEDS 4095
208 / 4 XPT UNNORMALIZED OR TO LARGE ( FOR 24 BIT FRACTIONAL)
213 WB0, TEXT 'XYPLOT' / INSERT THE CORRECT WALK BACK WORD
215 FLDA# WB0 / INSERT THE CORRECT WALK BACK WORD
216 FSTA WBW / IN FRONT OF THE BASE PAGE
217 JSA PLTSTR / SET UP THE BASE PAGE AND X REGISTERS
223 FSTA YDIFF / VALUE OF PEN
226 FDIV #XINCX / ALL INTERNAL CALCULATIONS DONE IN TERMS OF
227 / PLOTTING INTERVALS, HENCE INTEGERS SO
230 FSTA XACT / TEMP SAVE OF FAC
231 FADD #XORGX / REMEMBER THE X OFFSET
232 FSTA #XABSX / ABSOLUTE NUMBER OF STEPS IN REAL
233 FLDA XACT / RESTORE FAC
235 JAL XPTERR / IF IT IS IMPOSSIBLE TO FIX XPT THEN ERROR OFF
237 XPTERR, LDX 4,X0 / WITH #ARGER 4
240 JSA MAKINT / INTERGERIZE IT
241 FSTA XACT / WITH FACTOR
242 FSTA XPT / WITH EFFECT OF FACTOR
247 FADD #XORGY / ADD THE ORIGIN Y
248 FSTA #XABSY / HERE WE STORE THE ABSOLUTE NUMBER OF STEPS DONE
249 FLDA YACT / RESTORE FAC
251 JAL YPTERR / IF IT IS IMPOSSIBLE TO FIX YPT THEN WE ERROR OFF
253 YPTERR, LDX 5,X0 / WITH #ARGERR 5
256 JSA MAKINT / INTERGERIZE IT
258 FSTA YPT / WITH EFFECT OF FACTOR
259 FLDA% YDIFF / 2=DOWN, 3=UP, NEG=NEW ORG
265 ATX 0 / ABS VALUE PEN
266 XTA 0 / FOR THE FPP SIMULATOR
268 FSTA YDIFF / SAVE NEW STATUS OF PEN
269 FSUB P1 / IF PEN LT 2 THEN
270 JLE PENERR / GOTO PENERR EXIT
271 FSUB PF2 / PASS ONLY 2,3
272 JLE ALEGAL / GOOD BOY
273 PENERR, FLDA YDIFF / PEN --> FAC
274 LDX 1,0 / BAD PEN CMD CAUSES XYPLOT ERROR 1
275 TRAP4 #ARGERR / FUCK OFF
277 FLDA YDIFF / RESTORE THE NEW VALUE OF PEN
278 FSUB #XOLDP / COMPARE WITH THE OLD VALUE
279 JEQ NOCHNG / IF THEY MATCH THEN GOTO NOCHANGE
280 TRAP4 #XETUP / ELSE SET UP THE NEW PEN
282 FLDA YDIFF / SAVE THE NEW PEN STATUS FOR THE NEXT CALL
287 MAKINT, JA . / FOR ALL THOSE INTEGERIZATIONS REQUIRED
288 FADD PT5 / ROUND THE VALUE
289 ALN 0 / GET RID OF FRACTIONAL PART
290 FNORM / NORMALIZE IT FOR OTHER FPP OPERXATIONS
292 \f/ HERES THE CALCULATING PART OF THE PLOT ROUTINES
294 PREREL, JA . / RTN USED AS SUBROUTINE
295 REALPT, FLDA XPT / AND JA'D TO
296 FSUB #XXOLD / COMPARE NEW X AND OLD
300 ABSDX, FSTA TERM1 / ABS DELTA X
302 FSUB F4095 / IF THE DELTA X DOES NOT FIT INTO
303 JLE DXOK / A 12 BIT PDP 8 WORD THEN TAKE ERROR 2
304 LDX 2,0 / ELSE CONTINUE FI
305 TRAP4 #ARGER / HOME TO CCL
309 FSUB #XYOLD / SAME FOR Y PNTS
313 DELXY, FADDM TERM1 / DX-DY
315 FNEG / ABS DELTA Y --> FAC
316 FSUB F4095 / IF DELTA Y DOESN'T FIT INTO 12 BITS THEN
317 JLE DYOK / WE ERROR OFF ELSE CONTINUE FI
318 LDX 3,0 / THIS IS ERROR 3
321 FLDA #XOLDP / GET ACTUAL PEN STATUS
324 FLDA# SDP / PEN 2 ( PEN UP) [# MUST BE HERE BECAUSE WE ARE IN BASE PAGE]
326 SDP, TEXT 'P' / PEN = 3
327 SDK, TEXT 'K' / PEN = 2
330 DP1, FSTA WRP / STORE PEN CMD INTO FORMATTED WRITE RTN
335 JSA WRITEIT / DO FORMATTED I/O
338 / FORMATTED WRITE ROUTINE
339 / ENTRY: STARTF, DESTROYED FAC
340 / PARAMETERS ARE STORED INTO WRP,WRX,WRY PRIOR TO CALL
345 IFNZRO ASCIITEST < JA FORM0 >
346 IFZERO ASCIITEST < JA FORM1 >
350 / HERE WE COMPUTE THE FORMAT FORM1
352 FLDA WRY / ABSOLUTE NUMBER OF STEPS
353 FADDM X80SPY / COMPUTE RELATIVE MOVEMENT
355 FADDM X80SPX / FOR Y AND X DIRECTION
356 FLDA X80SPY / SO WE SAVE SPACE IN THE OUTPUT LINE
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,-(X80SPY-WRY),X80SPX-WRX
370 / WRITE (2,FORM0) WRP,#XPENC,#XORGX,#XFCTX,#XINCX,XACT
371 / * ,#XORGY,#XFCTY,#XINCY,YACT,FORM1,-(X80SPY-WRY),X80SPX-WRX
373 IFNZRO ASCIITEST < FNOP;FNOP >
374 IFZERO ASCIITEST < JA DP4711 >
400 FLDA X80SPY / AND NOW WE OUTPUT THEM UNDER CONTROL OF FORM1
408 FLDA WRY / HERE WE SAVE THE ACTUAL ABSOLUTE X80SP PEN POSITION
409 FNEG / (NEGATIVE ONLY FOR FADDM INSTRUCTION )
410 FCLA / RELATIVE MOVEMENT DOES NOT WORK WITH X80-SP PLOTTER
414 FCLA / WE USE ABSOLUTE POSITIONS
418 / SUBROUTINE TO COMPUTE FORMAT FOR OUTPUT
419 / ENTRY: WITH STARTF, FAC CONTAINS NUMBER (POS. OR NEG.)
420 / RETURN: FAC CONTAINS FORMAT, DOUBLE PRECISION MODE
424 LDX 1,X1 / HERE WE COUNT THE DIGITS USED TO PRINT THE NUMBER
426 ADDX 1,X1 / NEGATIVE NUMBERS: ONE MORE COL FOR SIGN
427 FNEG / I DO NOT KNOW IF IT MUST BE DONE, DO YOU KNOW?
430 JSA MAKINT / INTEGER DIVISION, STRIP OFF REMAINDER
432 JXN LOOP,X1+ / COUNT THE NUMBER OF DIVISIONS BY 10
436 FADD C60 / CONVERT TO ASCII
441 FORM0, TEXT #(1X,A1,A6,2(I7,2F9.3,I8),2X,3A6,2I6)#
444 FORM1B, TEXT #1XI0) #
449 FLDA TERM1 / DETERMINE OCTANT + MAJOR AXIS
451 FLDA YDIFF / Y AXIS IS MAJOR
456 XMAJ, FLDA XDIFF / X AXIS MAJOR
460 KNOWOC, LDX 2,1 / 2*OCTANT VALUE COLLECTED IN XR1
461 / USES A SPECIAL (NON SEQUENTIAL) ORDERING
470 ADDX 2,1 / KEEP IT IN XR1
472 FLDA MAJOR / GET MAJOR MOVE
473 JGT POSMAJ / NEED AS ABS. VALUE
474 JEQ NOTHIN / IF NO MAJOR MOVES, THEN NO MOVES
476 FSTA MAJOR / NO ABS. VALUE
479 ATX 1 / PASS THIS TO PDP CODE
481 / USE 2 WORD #XATIO IN PDP CODE TO DET SEQ OF MOVES
483 JGT POSMIN / ABS VALUE
486 POSMIN, FDIV MAJOR / FORM #XATIO OF MINOR TO MAJOR MOVES
488 ZROCAS, FSTA #XATIO / DOWN TO PDP CODE
490 SETX #XDPXR / GET 2*OCTATNT
495 JEQ REGPLT / 0 MEANS WAS FROM XYPLOT
496 JLT SYMSET / WAS A MOVE IN SYMBOL
497 FCLA / IS FIRST MOVE IN SYMBOL (0 ORG)
503 JLT ZEROLD / NEQ MEANS ZERO THE ORG
504 / SET X AND Y FOR NEXT MOVE TO START AT END OF THIS MOVE
510 SYMSET, FLDA XPT / CONT FROM CURRENT POINT
516 / NEGATIVE PEN STATUS, SO WE ZERO THE ORIGIN
519 FLDA #XABSX / SAVE THE ACTUAL PEN POSITION (MOTOR STEPS)
529 FLDA P1 / ENTERED WITH 36 BIT MODE TURNED ON
530 FSTA PORS / SET THE FROM SYMBOL FLAG
531 STARTD / USED BY SYMBOL FOR ORIGIN PLOT
532 FLDA SYMSTR / GET START OF ARG CHAIN
536 \f ENTRY WHERE / WITHOUT EFFECT OF FACTOR
537 WB1, TEXT 'WHERE ' / THE WALK BACK WORD
542 JXN WH0,7 / NO PARAMETERS AT ALL THEN
543 TRAP4 #ARGER / ABORT THE USER PROGRAM
544 / WARNING: WHERE RETURNS A WRONG RESULT IF YOU CALL FACTOR PRIOR
545 / TO THE WHERE ROUTINE WITHOUT PLOTTING WITH XYPLOT.
548 FSTA TERM1 / ADDRESS OF X (FIRST PARAMETER)
550 FSTA YDIFF / SAVE ADDRESS OF Y (SECOND PARAMETER)
554 FDIV #XFCTX / WHERE RETURNS X WITHOUT EFFECT OF FACTOR
556 JXN WH1,7+ / IF ONLY ONE PARAMETER, THEN ABORT USER
561 FDIV #XFCTY / RETURNED WITHOUT EFFECT OF FACTOR
562 FSTA% YDIFF / SEND BACK THE VALUES
563 JXN WH2,7+ / IF ONLY TWO PARAMETERS, THEN ABORT USER
568 FSTA ARG2 / ADR. OF X -FACTOR (THIRD PARAMETER)
570 FSTA ARG1 / ADR. OF Y -FACTOR (FOURTH PARAMETER) --> ARG1
572 FLDA #XFCTX / IF THE X AND Y FACTOR MATCH THEN
574 JNE WHXYF / WE NEED THREE PARAMETERS ONLY, ELSE WE GO WHXYF
577 JXN PLTRTN,X7+ / IF THERE ARE ONLY THREE PARAMETERS THEN RETURN
578 FSTA% ARG1 / ELSE INSERT FACTOR INTO FOURTH PARAMETER AND
580 WHXYF, / WE REQUIRE X AND Y FACTOR PARAMETERS
582 FSTA% ARG2 / INSERT THE X FACTOR INTO THE OUTPUT
584 TRAP4 #ARGER / SORRY, BUT THERE ARE NOT ENOUGH ARGUMENTS
589 ENTRY FACTOR / RESET FACTOR VALUE
595 JXN FA0,7 / IF THERE ARE NO PARAMETERS AT ALL THEN
596 TRAP4 #ARGER / ABORT USER PROGRAM
602 JGE FA1 / IF NEGATIVE FACTOR THEN
603 TRAP4 #ARGER / ABORT USER PROGRAM ELSE
605 FSTA #XFCTX / STORE X AND Y FACTOR
606 FSTA #XFCTY / ONE PARAMETER MEANS X&Y GET THE SAME FACTOR
610 STARTD / TWO PARAMETERS, GET THE Y FACTOR
615 JGE FA2 / IF NEGATIVE FACTOR THEN
616 TRAP4 #ARGER / ABORT USER PROGRAM
622 \f/ MUST DO A PLOTS AS FIRST ROUTINE IN ANY PLOTTING SEQUENCE
623 / USER SPECIFIES INCREMENT AND MACHINE TYPE (0=8/E, 1=12,8/I,8/L)
627 / CONSTANTS USED IN PLOTS
629 INXYPL, F 0.0095 / INCREMENT SIZE XY PLOTTER
630 INX80Y, F 0.02648 / INCREMENT SIZE X80-SP X DIRECTION (96 CHAR. LINE)
631 INX80X, F 0.03968 / INCREMENT SIZE X80-SP Y DIRECTION (6 STEPS PER LINE)
632 FORM2, TEXT "('+[STP 6'/' MC1'/' P 0 0')"
633 FORM3, TEXT "(' STP 8]'/1H1)"
637 PLOTS, / CALL PLOTS (PLOTTER TYPE, MACHINE TYPE)
639 / INTEGER PLOTTER TYPE: 1 XY PLOTTER
640 / 2 X80-SP PRINTER PLOTTER
641 / 3 BOTH (DOESN'T WORK TODAY)
642 / INTEGER MACHINE TYPE: 0 PDP 8/E
643 / 1 OTHER PDP 8 OR 12
653 STARTF / THIS ROUTINE SETS UP A LOT OF CONSTANTS
654 FLDA% XPT / LOAD FIRST ARGUMENT (PLOTTER TYPE ) --> FAC
655 / JLE PLTSER / WRONG INPUT PARAMETER, ERROR OFF
658 FLDA INXYPL / XY PLOTTER INCREMENT
663 / JGT PLS2 / BOTH PLOTTER TYPES
665 FSTA #XINCX / X80 SP PRINTER PLOTTER
670 JA FORM2 / ' [STP6'/' MC1'/' P 0 0'
675 FLDA P22 / SET MATCHTP TO 22 IF NON-8/E
677 ATX 0 / 0=8/E, 022=12,8/I,8/L
679 SETX #XCHCK / FOR INITIALISATION CHECK
684 FSTA #XFCTX / FACTOR=1 INITIALLY
687 FSTA #XOLDP / AND REALLY MOVE IT!
688 FSTA #XPENC / SO WILL DO FIRST PEN MOVEMENT
697 ENTRY PLEXIT / BE SHURE ALL DONE
714 EXTERN #XMBTB / HERE STARTS THE SYMBOL TABLE
716 / EXTERNAL REFERENCES INTO FIELD 1 (PDPPLT)
735 JSR #XMBTB / LOAD THE SYMBOL TABLE ( SYMBTB )
747 FSTA ARG1 / NUMBER CHARS.
750 FMUL DEGRAD / CONVERT TO RADIANS
751 FSTA XCHRPT / THEN DONT NEED SIND
753 FSTA COSANG / VALUE OF X
754 FSUB F999 / IF X NEQ 999 THEN
755 JNE SY0 / WE USE THE X VALUE SPECIFIED ELSE
756 FLDA #XXOLD / WE START WITH THE OLD VALUE
757 FMUL #XINCX / THIS WILL CAUSE SOME TRUNCATION ERROR
758 FDIV #XFCTX / IN XYPLOT ROUTINE BUT THE ERROR IS SMALL
759 FSTA COSANG / AND WE HOPE FAC > 0 BUT THIS MUST NOT BE SO!
763 FSUB F999 / IF Y NEQ 999 THEN
764 JNE SY1 / WE USE THE Y VALUE SPECIFIED ELSE
765 FLDA #XYOLD / WE START WITH THE OLD Y VALUE
766 FMUL #XINCY / THIS CAUSES SOME TRUNCATION ERRORS
772 FSTA #XPENC / SO ALWAYS DOES INITIAL PEN U/D
774 FLDA TERM1 / GET TEXT ADDRESS
775 FSTA #XTXAD / PUT IT DOWN IN PDP PART
776 \f FLDA% YDIFF / ASSUME ITS A REGULAR
777 JGE NOTNEG / NEGATIVE SIZE IS NOT NICE
779 NOTNEG, FDIV PF7 / ADJUST LATER IF A CENT
781 FLDA% ARG1 / SHOWNS NUM. CHARS + PEN STATUS
783 JGE REGSYM / GT OR =0 IS REG SYM
784 FLDA% TERM1 / CHECK FOR REG CHAR PASSED
785 FSUB F100 / AS AN INTEGER EQUIV.
786 JLT INTEQ / ITS A INTEGER EQUIV
787 FLDA% YDIFF / CENTERED SYMBOL
792 FLDA NUMSYM / -1=PEN UP, -2=PEN DOWN (CNTRD ONLY)
794 JGE UPPEN / MOVE WITH PEN UP
795 FSTA CENTSY / NEG MEANS DOWN FROM THE START
797 CPEN, FSTA YCHRPT / =-2 FOR DOWN (CENT. + INTEQ ONLY)
798 / -3 FOR UP FOR ALL SYMBOLS + INTEQ
799 JSA SYMSTR / PLOT ORIGIN
806 FSTA XREAL / KEEP TRACK OF PASSED VALUES
813 JSA PNDOWN / PUT PEN DOWN NOW (CENT ONLY)
818 FSTA SINANG / SAVE SIN+HGT, USE FOR ALL VALUES
823 FSTA COSANG / COS(ANGLE)+HGT (IN INCREMENTS NOW)
824 LDX 0,4 / ZERO STEP COUNT
826 JGT NUM2 / JUMP IF FROM NUMBER
829 FSTA CENTSY / PUT PEN DOWN AFTER INITIAL MOVE
830 JA CPEN / MOVE WITH PEN UP
837 FSTA XCHRPT / GET FIRST MOVE
839 FSUB PF7 / 7,0=PEN UP, 7,7=END
842 JEQ CALALL / CENTEREDS REQUIRE MODIFIED ORIGIN
848 JXN PENSET,5 / PUT PEN BACK DOWN IF NEG
850 INTEQ, FLDA NUMSYM / CHECK ON PEN
856 FLDA YCHRPT / CHECK FOR 7,7 END
858 JEQ NXTCHR / JUMP IF END OF CHARACTER
859 JA ONEXY / ON TO NEXT PAIR
861 LDX 1,5 / SET FOR PEN UP
863 LDX 0,0 / PASS A ZERO FOR UP
866 FLDA# SDP / 'P' PEN UP
871 LDX 1,0 / PASS A ONE FOR DOWN
874 FLDA# SDK / 'K' PEN DOWN
882 FSTA YCHRPT / Y MOVE AS STEPS (UNITERGERIZED)
885 FSTA TERM1 / =-SINA*Y
893 FSTA XACT / FOR AT END OF TEXT
894 FSTA XPT / X*COSA+OLDX-SINA*Y
895 / REQUIRES AN OLDX+OLDY TERM, BUT I DO THIS ALL REL TO A
896 / LOGICAL 0,0 FOR EACH CHAR, SO I #XLEFT THEM OUT.
906 FSTA YPT / NEWX*SINA*OLDY*COSA*Y
908 FSTA #XPENC / USE SAME ORIGIN THROUOUT THE LETTER
911 / JSA PREREL / PEN MUST BE IN NEC POS BY NOW
926 \fLEFTJS, XTA 4 / NUM OF MOVES
928 ATX 0 / PASS NUMBER OF STEPS INTO LETTER
930 TRAP4 #XLEFT / RETURN WITH A X,Y PAIR
936 JNE NOTFST / CHANGE IF BEFORE FIRST MOVE OF CHARACTER
937 JSA PNDOWN / PUT PEN DOWN NOW
938 NOTFST, TRAP4 #XRGHT / SET NEXT XY PAIR
940 ADDX 1,4 / UPDATE COUNT
941 JA LEFTJS / 77 AT END OF CHAR USED TO DET END
945 JNE CENTEX / LEAVE PEN AT CENTER FOR CENTS ONLY
948 FSTA XCHRPT / MOVE PEN TO 7,0 FOR REG CHARS
950 FLDA XACT / UPDATE COLLECTIVE ENDING X VALUE
951 FMUL #XFCTX / WITH EFFECT OF FACTOR
952 FADDM XREAL / ALSO WITH EFFECT OF FACTOR
953 FLDA YACT / UPDATE COLLECTIVE ENDING Y VALUE
954 FMUL #XFCTY / WITH EFFECT OF FACTOR
956 CENTOO, LDX 0,4 / ZERO STEP NUM WITHIN CHAR
962 FADD NUMSYM / UPDATE COUNTER
964 FSTA NUMSYM / MORE, SAVE COUNT
966 JGT NUM3 / EXIT FOR NUM SUBR
968 JXN RTCHAR,3 / 1=CHAR IS #XRGHT SIX BITS
969 FSTLFT, LDX 1,3 / POINT TO #XRGHT 6 WHEN TIME FOR NEXT CHAR
971 JLT NUM5 / JUMP IF CENTERED SYM OR INTEQ
972 / CENTEREDS + INTEQ EQUIV PASSING 3 WORD VALUE IN NUM5
973 / REG SYM USES PDP ROUTINE TO GET ONE WORD OF LIST
976 JA LEFTJS / GO PLOT THE ACTUAL CHAR
977 RTCHAR, LDX 0,3 / POINT TO #XLEFT 6 BITS FOR NEXT TIME
983 FLDA XREAL / UPDATES ORG X VALUE
987 FLDA YREAL / UPDATES ORG Y VALUE
991 JA PLTRTN / NOW CAN CONTINUE PLOT FROM HERE
992 \f/ SPECIAL ENTRY FOR NUMBER SUBROUTINE
998 JSA PLTSTR / SPECIAL ENTRY FOR NUMBER SUBROUTINE
999 JSR #XMBTB / LOAD THE SYMBOL TABLE (SYMBTB)
1005 NUM2, SETX NUMENT / FOR NUMBER SUBROUTINE ONLY
1006 / HERE ONLY FOR FIRST NUMBER OF STRING
1008 NUM3, JSA GETARG / FOR SECOND AND LATER NUMBERS
1011 NUM5, SETX NUMENT / FOR INTEQ + CENETEREDS
1017 SETX NUMENT / USED FOR MORE THAN ONE CHARACTER
1019 FLDA #XTXAD+1 / CENTEREDS SYMBOLS AND NUM SUBROUTINE
1020 / PASS VALUES AS THREE WORDS
1023 FLDA% ARG1,2+ / PASS A NUMBER