3 / PART TWO OF DEC'S XYPLOT DEC-S8-LPLTA-A-LA JULY 1973 M.HURLEY
4 / INCLUDED IS THE LATEST UPDATE F4 4.AAAA FROM LIBRARY FORLIB.RL NOV 77
5 / COPIED J.J. ANDRES 1.NOV. 1980
6 / PLOTS,XYPLOT,FACTOR,WHERE,SYMBOL,SYMB(FOR NUMBER ONLY)
9 / PLOTTER ROUTINES FOR PDP 8
11 / VER 1.0 1.NOV. 1980 H.A.
12 / VER 2.0 12.NOV 1980 H.A.
13 / VER 2.1 20.NOV 1980 H.A. CORRECTS BUG IN SYMBOL CONCERNING #XFCTX,#XFCTY
14 / VER 3.0 27.NOV 1980 H.A. INSERTS SYMBOL (999.,999.,....)
15 / VER 3.1 27.NOV.1980 H.A. CORRECTS PEN UP/DOWN TIMING ERROR
16 / VER 3.2 18.JAN.1981 H.A. CORRECTS WHERE AND OVERLAY PROBLEMS
17 / VER 3.3 4.AUG.1982 H.A. REDUCES NUMBER OF EXTERNAL REFERENCES
20 / 1. PLEXIT LOCKED OUT THE PLOTTER.
21 / 2. PLOTS DIDN'T DROVE PLOTTER TO THE ORIGIN
22 / * #XONCE IS REMOVED, SO #XNTST IS CALLED FROM PLOTS ALL TIMES
24 / 3. FACTOR DID NOT WORK CORRECT ALL THE TIMES.
25 / FACTOR(1),XYPLOT(1,1),FACTOR(2),XYPLOT(1,1) DID NOT WORK
26 / 4. TRUNCATION ERROR IN XYPLOT CAUSED ROUNDING PROBLEMS:
27 / XSTEPS=INT(INT(X/#XINCR)*FACTOR)
28 / * FACTOR NOW WORKS CORRECT IN ANY CASE
29 / * FACTOR NOW HAS AN OPTIONAL SECOND PARAMETER. IF BOTH PRESENT
30 / * THEY SPECIFY THE X-FACTOR AND THE Y-FACTOR.
31 / * A NEGATIVE FACTOR IS NO MORE VALID YET. (ERROR WALKBACK)
32 / * ZERO FACTOR DISABLES PLOTTING.
33 / * XYPLOT NOW COMPUTES XSTEPS=INT(X/#XINCR*FACTOR)
34 / * WHERE HAS GOT AN OPTIONAL FOURTH PARAMETER FOR THE Y-FACTOR.
35 / * IF X AND Y FACTOR DO NOT MATCH AND THERE ARE ONLY THREE PARAMETERS
36 / * AN ERROR WALKBACK IS TAKEN.
38 / 5. SYMBOL CALLS #XMBTB TO LOAD THE SYMBOL TABLE
40 / 6. CALLING SYMBOL/NUMBER WITH X/Y EQUAL TO 999. WILL REPLACE THE
41 / 999. WITH THE ACTUAL POSITION OF THE PEN. VERY USEFULL IF YOU
42 / ARE EDITING AN OUTPUT LINE USEING SOME CALLS TO SYMBOL & NUMBER.
43 / IF YOU CALL FACTOR PRIOR TO SYMBOL(999.,....) THEN THE POSITION
44 / OF THE PEN IS NEVER CHANGED PRIOR PLOTTING THE SYMBOL. BUT THE
45 / FACTOR IS USED WHEN PLOTTING THE SYMBOL.
47 / 7. EACH TIME XYPLOT WAS CALLED IT ISSUED A PEN UP/DOWN COMMAND.
48 / THIS CAUSED A STEP BY STEP MOVING OF THE PEN ALTHOUGH THE
49 / DIRECTION WAS NOT CHANGED. INTERFACE PROBLEM.
50 / NOW WE ISSUE THE PEN MOVE COMMAND ONLY WHEN WE WANT TO CHANGE
51 / THE DIRECTION OF THE PEN. THIS SPEEDS UP THE PLOTTER!
52 / * NOT VALID PEN VALUES (NOT -3 TO 3) CAUSE #ARGERR WITH X0 =1
53 / 27-NOV-80 H.A. A HARD DAY'S NIGHT.... AND MIDNIGHT TOO!
54 / 8. REMOVES BUG IN WHERE ROUTINE
55 / 9. TOO LARGE DELTA X (DELETA Y) CAUSE #ARGER WITH X0=2 (3)
59 / FPP CODE PART CONTAINING PLOTS,PLOT,PLEXIT,WHERE,FACTOR
60 / THIS PROGRAM MAY BE PLACED INTO AN OVERLAY.
61 / IT REFERENCES THE PROGRAM PDPPLT LOCATED IN FIELD 1.
65 / REFERENCES INTO FRTS (FIELD 0)
67 EXTERN #ARGER / WRONG NUMBER OF PARAMETERS
73 / REFERENCES INTO FIELD 1 (PDPPLT)
84 EXTERN #XORGX / LAST ABSOLUTE ORIGIN IN PLOTTER STEPS X (REAL)
86 #XABSX= #XORGY+3 / ACTUAL ABSOLUTE X POSITION IN STEPS (REAL)
88 #XOLDP= #XABSY+3 / OLD PEN STATUS
89 #XXOLD= #XOLDP+3 / OLD XPT WITH EFFECT OF FACTOR
90 #XYOLD= #XXOLD+3 / OLD YPT WITH EFFECT OF FACTOR
91 #XPENC= #XYOLD+3 / OLD PEN STATUS ( USED BY SYMBOL, NUMBER)
92 #XINCX= #XPENC+3 / INCREMENT SIZE FOR X STEP MOTOR OF PLOTTER
93 #XINCY= #XINCX+3 / INCREMENT SIZE FOR Y STEP MOTOR OF PLOTTER
94 #XFCTX= #XINCY+3 / X - FACTOR
95 #XFCTY= #XFCTX+3 / Y - FACTOR
97 / HERES THE INITIALIZATION ROUTINE
98 / STANDARD CALLING SEQUENCE, SHARED BY ALL SUBROUTINES
100 XRPLOT, 0 / MULTI PURPOSE XRS
101 X0= 0 / AT #ARGER X0 HOLDS THE XYPLOT ERROR NUMBER
110 XR7, 0 / NUMBER OF PARAMETERS AT SUBROUTINE CALL
111 WBW, TEXT #XYPLOT# / WALK BACK WORD
118 YPT, F 0. / VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
119 XPT, F 0. / X VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
123 YDIFF, F 0. / PEN VALUE
127 ORG .+1 / TO MAKE A 3 WORD BASE ENTRY FOR PLTRTN
129 MAJOR, F 0. / HORIZONTAL AXIS MOVE
130 MINOR, F 0. / DIAGONAL AXIS MOVE
132 YACT, F 0. / HOLDS X,Y VALUES TYPED IN
140 PORS, F 0. / =1 IF ENTERED FROM SYMBOL ROUTINE
141 XCHRPT, F 0. / X,Y VALUES FROM PDP TABLES
143 NUMENT, F 0. / INDICATES ENTRY FROM NUMBER SUBROUTINE
146 DEGRAD, F 0.017453293 / RADIANS TO DEGREES
149 XREAL, F 0. / FOR ORIGIN AND WHERE RTN
151 CENTSY, F 0. / CENTERED SYMBOL INDICATOR
152 NUMSYM, F 0. / NO. OF CHARACTERS TO PLOT
154 P22, F 18. / 22 OCTAL=18 DECIMAL
155 TWO, 0;2;0 / CONSTANT
156 F4095, F 4095. / LARGEST NUMBER FITTING INTO 12 BITS PDP 8 WORD
158 / - - - - - - - - - - - - -
160 SYMSTR, JA . / SYMBOL ENTRY
161 JA SYMST / NEEDED TO PICK UP 2 WORD ADDRESSES
165 / SET UP THE BASE PAGE AND INDEX REGISTERS FOR THE PLOT ROUTINES
166 / PLOTS,XYPLOT,WHERE,FACTOR AND SYMBOL
169 PLTSTR, JA . / SAVE TWO WORDS FOR RETURN
171 FLDA 3*10 / SAVE CALLERS RETURN ARGUMENT LIST
173 FLDA% 0 / COMPUTE THE NUMBER OF PARAMETERS
177 LDX 1,1 / DIVIDE BY TWO
180 ATX X7 / AND BUMP INTO X7
181 FLDA 0 / POINTER TO THE PARAMETER LIST --> FAC
184 FSTA ARG1 / POINTER TO PARAMETER LIST --> ARG1
185 JA PLTSTR / 1 --> X1, INDEX TO PARAMETER LIST
188 / CALL XYPLOT (XPT,YPT,PENCMD)
190 / REAL XPT,YPT AND MUST BE POSSIBLE TO FIX INTO 24 BIT NUMBER
191 / INTEGER PENCMD (-3,-2,2,3 AND NOTHING ELSE)
195 / 2 DELTA X EXCEEDS 4095
196 / 3 DELTA Y EXCEEDS 4095
197 / 4 XPT UNNORMALIZED OR TO LARGE ( FOR 24 BIT FRACTIONAL)
202 WB0, TEXT 'XYPLOT' / INSERT THE CORRECT WALK BACK WORD
204 FLDA# WB0 / INSERT THE CORRECT WALK BACK WORD
205 FSTA WBW / IN FRONT OF THE BASE PAGE
206 JSA PLTSTR / SET UP THE BASE PAGE AND X REGISTERS
212 FSTA YDIFF / VALUE OF PEN
215 FDIV #XINCX / ALL INTERNAL CALCULATIONS DONE IN TERMS OF
216 / PLOTTING INTERVALS, HENCE INTEGERS SO
219 FSTA XACT / TEMP SAVE OF FAC
220 FADD #XORGX / REMEMBER THE X OFFSET
221 FSTA #XABSX / ABSOLUTE NUMBER OF STEPS IN REAL
222 FLDA XACT / RESTORE FAC
224 JAL XPTERR / IF IT IS IMPOSSIBLE TO FIX XPT THEN ERROR OFF
226 XPTERR, LDX 4,X0 / WITH #ARGER 4
229 JSA MAKINT / INTERGERIZE IT
230 FSTA XACT / WITH FACTOR
231 FSTA XPT / WITH EFFECT OF FACTOR
236 FADD #XORGY / ADD THE ORIGIN Y
237 FSTA #XABSY / HERE WE STORE THE ABSOLUTE NUMBER OF STEPS DONE
238 FLDA YACT / RESTORE FAC
240 JAL YPTERR / IF IT IS IMPOSSIBLE TO FIX YPT THEN WE ERROR OFF
242 YPTERR, LDX 5,X0 / WITH #ARGERR 5
245 JSA MAKINT / INTERGERIZE IT
247 FSTA YPT / WITH EFFECT OF FACTOR
248 FLDA% YDIFF / 2=DOWN, 3=UP, NEG=NEW ORG
254 ATX 0 / ABS VALUE PEN
255 XTA 0 / FOR THE FPP SIMULATOR
257 FSTA YDIFF / SAVE NEW STATUS OF PEN
258 FSUB P3 / PASS ONLY 0-3
259 JLE ALEGAL / GOOD BOY
260 LDX 1,0 / BAD PEN CMD CAUSES XYPLOT ERROR 1
261 TRAP4 #ARGERR / FUCK OFF
263 FLDA YDIFF / RESTORE THE NEW VALUE OF PEN
264 FSUB #XOLDP / COMPARE WITH THE OLD VALUE
265 JEQ NOCHNG / IF THEY MATCH THEN GOTO NOCHANGE
266 TRAP4 #XETUP / ELSE SET UP THE NEW PEN
268 FLDA YDIFF / SAVE THE NEW PEN STATUS FOR THE NEXT CALL
273 MAKINT, JA . / FOR ALL THOSE INTEGERIZATIONS REQUIRED
274 FADD PT5 / ROUND THE VALUE
275 ALN 0 / GET RID OF FRACTIONAL PART
276 FNORM / NORMALIZE IT FOR OTHER FPP OPE#XATIONS
278 \f/ HERES THE CALCULATING PART OF THE PLOT ROUTINES
280 PREREL, JA . / RTN USED AS SUBROUTINE
281 REALPT, FLDA XPT / AND JA'D TO
282 FSUB #XXOLD / COMPARE NEW X AND OLD
286 ABSDX, FSTA TERM1 / ABS DELTA X
288 FSUB F4095 / IF THE DELTA X DOESN NOT FIT INTO
289 JLE DXOK / A 12 BIT PDP 8 WORD THEN TAKE ERROR 2
290 LDX 2,0 / ELSE CONTINUE FI
291 TRAP4 #ARGER / HOME TO CCL
295 FSUB #XYOLD / SAME FOR Y PNTS
299 DELXY, FADDM TERM1 / DX-DY
301 FNEG / ABS DELTA Y --> FAC
302 FSUB F4095 / IF DELTA Y DOESN'T FIT INTO 12 BITS THEN
303 JLE DYOK / WE ERROR OFF ELSE CONTINUE FI
304 LDX 3,0 / THIS IS ERROR 3
310 FLDA #XOLDP / GET ACTUAL PEN STATUS
313 FLDA# SDP / PEN 2 ( PEN UP)
340 FLDA #XABSY / ABSOLUTE NUMBER OF STEPS
347 /FORM1, TEXT #(1X,A1,A6,2(I7,2F9.3,I8),2I6)#
348 FORM1, TEXT #(1X,A1,2I6)#
351 FLDA TERM1 / DETERMINE OCTANT + MAJOR AXIS
353 FLDA YDIFF / Y AXIS IS MAJOR
358 XMAJ, FLDA XDIFF / X AXIS MAJOR
362 KNOWOC, LDX 2,1 / 2*OCTANT VALUE COLLECTED IN XR1
363 / USES A SPECIAL (NON SEQUENTIAL) ORDERING
372 ADDX 2,1 / KEEP IT IN XR1
374 FLDA MAJOR / GET MAJOR MOVE
375 JGT POSMAJ / NEED AS ABS. VALUE
376 JEQ NOTHIN / IF NO MAJOR MOVES, THEN NO MOVES
378 FSTA MAJOR / NO ABS. VALUE
381 ATX 1 / PASS THIS TO PDP CODE
383 / USE 2 WORD #XATIO IN PDP CODE TO DET SEQ OF MOVES
385 JGT POSMIN / ABS VALUE
388 POSMIN, FDIV MAJOR / FORM #XATIO OF MINOR TO MAJOR MOVES
390 ZROCAS, FSTA #XATIO / DOWN TO PDP CODE
392 SETX #XDPXR / GET 2*OCTATNT
397 JEQ REGPLT / 0 MEANS WAS FROM XYPLOT
398 JLT SYMSET / WAS A MOVE IN SYMBOL
399 FCLA / IS FIRST MOVE IN SYMBOL (0 ORG)
405 JLT ZEROLD / NEQ MEANS ZERO THE ORG
406 / SET X AND Y FOR NEXT MOVE TO START AT END OF THIS MOVE
412 SYMSET, FLDA XPT / CONT FROM CURRENT POINT
418 / NEGATIVE PEN STATUS, SO WE ZERO THE ORIGIN
421 FLDA #XABSX / SAVE THE ACTUAL PEN POSITION (MOTOR STEPS)
431 FLDA P1 / ENTERED WITH 36 BIT MODE TURNED ON
432 FSTA PORS / SET THE FROM SYMBOL FLAG
433 STARTD / USED BY SYMBOL FOR ORIGIN PLOT
434 FLDA SYMSTR / GET START OF ARG CHAIN
438 \f ENTRY WHERE / WITHOUT EFFECT OF FACTOR
439 WB1, TEXT 'WHERE ' / THE WALK BACK WORD
444 JXN WH0,7 / NO PARAMETERS AT ALL THEN
445 TRAP4 #ARGER / ABORT THE USER PROGRAM
446 / WARNING: WHERE RETURNS A WRONG RESULT IF YOU CALL FACTOR PRIOR
447 / TO THE WHERE ROUTINE WITHOUT PLOTTING WITH XYPLOT.
450 FSTA TERM1 / ADDRESS OF X (FIRST PARAMETER)
452 FSTA YDIFF / SAVE ADDRESS OF Y (SECOND PARAMETER)
456 FDIV #XFCTX / WHERE RETURNS X WITHOUT EFFECT OF FACTOR
458 JXN WH1,7+ / IF ONLY ONE PARAMETER, THEN ABORT USER
463 FDIV #XFCTY / RETURNED WITHOUT EFFECT OF FACTOR
464 FSTA% YDIFF / SEND BACK THE VALUES
465 JXN WH2,7+ / IF ONLY TWO PARAMETERS, THEN ABORT USER
470 FSTA ARG2 / ADR. OF X -FACTOR (THIRD PARAMETER)
472 FSTA ARG1 / ADR. OF Y -FACTOR (FOURTH PARAMETER) --> ARG1
474 FLDA #XFCTX / IF THE X AND Y FACTOR MATCH THEN
476 JNE WHXYF / WE NEED THREE PARAMETERS ONLY, ELSE WE GO WHXYF
479 JXN PLTRTN,X7+ / IF THERE ARE ONLY THREE PARAMETERS THEN RETURN
480 FSTA% ARG1 / ELSE INSERT FACTOR INTO FOURTH PARAMETER AND
482 WHXYF, / WE REQUIRE X AND Y FACTOR PARAMETERS
484 FSTA% ARG2 / INSERT THE X FACTOR INTO THE OUTPUT
486 TRAP4 #ARGER / SORRY, BUT THERE ARE NOT ENOUGH ARGUMENTS
491 ENTRY FACTOR / RESET FACTOR VALUE
497 JXN FA0,7 / IF THERE ARE NO PARAMETERS AT ALL THEN
498 TRAP4 #ARGER / ABORT USER PROGRAM
504 JGE FA1 / IF NEGATIVE FACTOR THEN
505 TRAP4 #ARGER / ABORT USER PROGRAM ELSE
507 FSTA #XFCTX / STORE X AND Y FACTOR
508 FSTA #XFCTY / ONE PARAMETER MEANS X&Y GET THE SAME FACTOR
512 STARTD / TWO PARAMETERS, GET THE Y FACTOR
517 JGE FA2 / IF NEGATIVE FACTOR THEN
518 TRAP4 #ARGER / ABORT USER PROGRAM
524 \f/ MUST DO A PLOTS AS FIRST ROUTINE IN ANY PLOTTING SEQUENCE
525 / USER SPECIFIES INCREMENT AND MACHINE TYPE (0=8/E, 1=12,8/I,8/L)
529 / CONSTANTS USED IN PLOTS
531 INXYPL, F 0.0095 / INCREMENT SIZE XY PLOTTER
532 INX80Y, F 0.02648 / INCREMENT SIZE X80-SP X DIRECTION (96 CHAR. LINE)
533 INX80X, F 0.03968 / INCREMENT SIZE X80-SP Y DIRECTION (6 STEPS PER LINE)
534 FORM2, TEXT "(' [STP 6'/' MC1'/' P 0 0')"
535 FORM3, TEXT "(' STP 8]')"
539 PLOTS, / CALL PLOTS (PLOTTER TYPE, MACHINE TYPE)
541 / INTEGER PLOTTER TYPE: 1 XY PLOTTER
542 / 2 X80-SP PRINTER PLOTTER
543 / 3 BOTH (DOESN'T WORK TODAY)
544 / INTEGER MACHINE TYPE: 0 PDP 8/E
545 / 1 OTHER PDP 8 OR 12
555 STARTF / THIS ROUTINE SETS UP A LOT OF CONSTANTS
556 FLDA% XPT / LOAD FIRST ARGUMENT (PLOTTER TYPE ) --> FAC
557 / JLE PLTSER / WRONG INPUT PARAMETER, ERROR OFF
560 FLDA INXYPL / XY PLOTTER INCREMENT
565 / JGT PLS2 / BOTH PLOTTER TYPES
567 FSTA #XINCX / X80 SP PRINTER PLOTTER
572 JA FORM2 / ' [STP6'/' MC1'/' P 0 0'
577 FLDA P22 / SET MATCHTP TO 22 IF NON-8/E
579 ATX 0 / 0=8/E, 022=12,8/I,8/L
581 SETX #XCHCK / FOR INITIALISATION CHECK
586 FSTA #XFCTX / FACTOR=1 INITIALLY
589 FSTA #XOLDP / AND REALLY MOVE IT!
590 FSTA #XPENC / SO WILL DO FIRST PEN MOVEMENT
597 ENTRY PLEXIT / BE SHURE ALL DONE
608 TRAP3 #REW / OUTPUT REMAINDER OF BUFFER AND RESET OUTPUT (NOT GOOD FOR FILE STRUCTURED DEVICES!!!!!)
614 EXTERN #XMBTB / HERE STARTS THE SYMBOL TABLE
616 / EXTERNAL REFERENCES INTO FIELD 1 (PDPPLT)
635 JSR #XMBTB / LOAD THE SYMBOL TABLE ( SYMBTB )
647 FSTA ARG1 / NUMBER CHARS.
650 FMUL DEGRAD / CONVERT TO RADIANS
651 FSTA XCHRPT / THEN DONT NEED SIND
653 FSTA COSANG / VALUE OF X
654 FSUB F999 / IF X NEQ 999 THEN
655 JNE SY0 / WE USE THE X VALUE SPECIFIED ELSE
656 FLDA #XXOLD / WE START WITH THE OLD VALUE
657 FMUL #XINCX / THIS WILL CAUSE SOME TRUNCATION ERROR
658 FDIV #XFCTX / IN XYPLOT ROUTINE BUT THE ERROR IS SMALL
659 FSTA COSANG / AND WE HOPE FAC > 0 BUT THIS MUST NOT BE SO!
663 FSUB F999 / IF Y NEQ 999 THEN
664 JNE SY1 / WE USE THE Y VALUE SPECIFIED ELSE
665 FLDA #XYOLD / WE START WITH THE OLD Y VALUE
666 FMUL #XINCY / THIS CAUSES SOME TRUNCATION ERRORS
672 FSTA #XPENC / SO ALWAYS DOES INITIAL PEN U/D
674 FLDA TERM1 / GET TEXT ADDRESS
675 FSTA #XTXAD / PUT IT DOWN IN PDP PART
676 \f FLDA% YDIFF / ASSUME ITS A REGULAR
677 JGE NOTNEG / NEGATIVE SIZE IS NOT NICE
679 NOTNEG, FDIV PF7 / ADJUST LATER IF A CENT
681 FLDA% ARG1 / SHOWNS NUM. CHARS + PEN STATUS
683 JGE REGSYM / GT OR =0 IS REG SYM
684 FLDA% TERM1 / CHECK FOR REG CHAR PASSED
685 FSUB F100 / AS AN INTEGER EQUIV.
686 JLT INTEQ / ITS A INTEGER EQUIV
687 FLDA% YDIFF / CENTERED SYMBOL
692 FLDA NUMSYM / -1=PEN UP, -2=PEN DOWN (CNTRD ONLY)
694 JGE UPPEN / MOVE WITH PEN UP
695 FSTA CENTSY / NEG MEANS DOWN FROM THE START
697 CPEN, FSTA YCHRPT / =-2 FOR DOWN (CENT. + INTEQ ONLY)
698 / -3 FOR UP FOR ALL SYMBOLS + INTEQ
699 JSA SYMSTR / PLOT ORIGIN
706 FSTA XREAL / KEEP TRACK OF PASSED VALUES
713 JSA PNDOWN / PUT PEN DOWN NOW (CENT ONLY)
718 FSTA SINANG / SAVE SIN+HGT, USE FOR ALL VALUES
723 FSTA COSANG / COS(ANGLE)+HGT (IN INCREMENTS NOW)
724 LDX 0,4 / ZERO STEP COUNT
726 JGT NUM2 / JUMP IF FROM NUMBER
729 FSTA CENTSY / PUT PEN DOWN AFTER INITIAL MOVE
730 JA CPEN / MOVE WITH PEN UP
737 FSTA XCHRPT / GET FIRST MOVE
739 FSUB PF7 / 7,0=PEN UP, 7,7=END
742 JEQ CALALL / CENTEREDS REQUIRE MODIFIED ORIGIN
748 JXN PENSET,5 / PUT PEN BACK DOWN IF NEG
750 INTEQ, FLDA NUMSYM / CHECK ON PEN
756 FLDA YCHRPT / CHECK FOR 7,7 END
758 JEQ NXTCHR / JUMP IF END OF CHARACTER
759 JA ONEXY / ON TO NEXT PAIR
761 LDX 1,5 / SET FOR PEN UP
763 LDX 0,0 / PASS A ZERO FOR UP
766 FLDA# SDP / 'P' PEN UP
771 LDX 1,0 / PASS A ONE FOR DOWN
774 FLDA# SDK / 'K' PEN DOWN
782 FSTA YCHRPT / Y MOVE AS STEPS (UNITERGERIZED)
785 FSTA TERM1 / =-SINA*Y
793 FSTA XACT / FOR AT END OF TEXT
794 FSTA XPT / X*COSA+OLDX-SINA*Y
795 / REQUIRES AN OLDX+OLDY TERM, BUT I DO THIS ALL REL TO A
796 / LOGICAL 0,0 FOR EACH CHAR, SO I #XLEFT THEM OUT.
806 FSTA YPT / NEWX*SINA*OLDY*COSA*Y
808 FSTA #XPENC / USE SAME ORIGIN THROUOUT THE LETTER
811 / JSA PREREL / PEN MUST BE IN NEC POS BY NOW
830 \fLEFTJS, XTA 4 / NUM OF MOVES
832 ATX 0 / PASS NUMBER OF STEPS INTO LETTER
834 TRAP4 #XLEFT / RETURN WITH A X,Y PAIR
840 JNE NOTFST / CHANGE IF BEFORE FIRST MOVE OF CHARACTER
841 JSA PNDOWN / PUT PEN DOWN NOW
842 NOTFST, TRAP4 #XRGHT / SET NEXT XY PAIR
844 ADDX 1,4 / UPDATE COUNT
845 JA LEFTJS / 77 AT END OF CHAR USED TO DET END
849 JNE CENTEX / LEAVE PEN AT CENTER FOR CENTS ONLY
852 FSTA XCHRPT / MOVE PEN TO 7,0 FOR REG CHARS
854 FLDA XACT / UPDATE COLLECTIVE ENDING X VALUE
855 FMUL #XFCTX / WITH EFFECT OF FACTOR
856 FADDM XREAL / ALSO WITH EFFECT OF FACTOR
857 FLDA YACT / UPDATE COLLECTIVE ENDING Y VALUE
858 FMUL #XFCTY / WITH EFFECT OF FACTOR
860 CENTOO, LDX 0,4 / ZERO STEP NUM WITHIN CHAR
866 FADD NUMSYM / UPDATE COUNTER
868 FSTA NUMSYM / MORE, SAVE COUNT
870 JGT NUM3 / EXIT FOR NUM SUBR
872 JXN RTCHAR,3 / 1=CHAR IS #XRGHT SIX BITS
873 FSTLFT, LDX 1,3 / POINT TO #XRGHT 6 WHEN TIME FOR NEXT CHAR
875 JLT NUM5 / JUMP IF CENTERED SYM OR INTEQ
876 / CENTEREDS + INTEQ EQUIV PASSING 3 WORD VALUE IN NUM5
877 / REG SYM USES PDP ROUTINE TO GET ONE WORD OF LIST
880 JA LEFTJS / GO PLOT THE ACTUAL CHAR
881 RTCHAR, LDX 0,3 / POINT TO #XLEFT 6 BITS FOR NEXT TIME
887 FLDA XREAL / UPDATES ORG X VALUE
891 FLDA YREAL / UPDATES ORG Y VALUE
895 JA PLTRTN / NOW CAN CONTINUE PLOT FROM HERE
896 \f/ SPECIAL ENTRY FOR NUMBER SUBROUTINE
902 JSA PLTSTR / SPECIAL ENTRY FOR NUMBER SUBROUTINE
903 JSR #XMBTB / LOAD THE SYMBOL TABLE (SYMBTB)
909 NUM2, SETX NUMENT / FOR NUMBER SUBROUTINE ONLY
910 / HERE ONLY FOR FIRST NUMBER OF STRING
912 NUM3, JSA GETARG / FOR SECOND AND LATER NUMBERS
915 NUM5, SETX NUMENT / FOR INTEQ + CENETEREDS
921 SETX NUMENT / USED FOR MORE THAN ONE CHARACTER
923 FLDA #XTXAD+1 / CENTEREDS SYMBOLS AND NUM SUBROUTINE
924 / PASS VALUES AS THREE WORDS
927 FLDA% ARG1,2+ / PASS A NUMBER