O16-DPT9 rev B

* 0520-001-H002 (O16-DPT9) DRAWING NO. 41285751-001-02 PAGE 25

1100 02326 100000 SKP MOVE PLOTTER WEST TO PLOT NEXT ROW 1101 02327 0 01 02335 JMP P210 ALL ROWS PLOTTED. END OF PATTERN 2 1102 * 1103 02330 0 35 04405 LDX 80NU STEP COUNTER (NO OF STEPS IN 80 UNITS) 1104 02331 0 10 03247 JST MPWT 1105 02332 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1106 02333 0 01 02331 JMP *-2 MOVE PLOTTER NEXT STEP 1107 02334 0 01 02056 JMP P2NR PLOT NEXT RON OF FIGURES 1108 * 1109 02335 0 02 04367 P210 LDA PALL 1110 02336 101040 SNZ TEST FOR REQUIREMENT OF PLOTTING ALL PATRNS 1111 02337 0 01 02343 JMP PAT3 PLOT PATTERN THREE 1112 02340 0 01 01722 JMP AQTN ASK QUESTION: TEST NO? 1113 * 1114 02341 0 11 04467 P003 CAS ='263 '263 = CHARACTER THREE 1115 02342 0 01 03014 JMP P004 INPUT CHARACTER OTHER THAN THREE 1116 * * PLOT PATTERN THREE (INPUT CHAR = 3) 1117 * 1118 * PATTERN THREE (FULL DIRECTIONAL TEST - SIXTEEN POINTED STAR) 1119 * 1120 02343 0 02 04374 PAT3 LDA UNIT NUMBER OF STEPS IN ONE UNIT LENGTH (U) 1121 02344 0414 76 LGL 2 REGA = 4U 1122 02345 0 06 04374 ADD UNIT REGA = 5U 1123 02346 0414 77 LGL 1 REGA = 10U 1124 02347 0 04 04371 STA RDUS 1125 02350 0414 77 LGL 1 REGA = 20U 1126 02351 0 04 04353 STA DMTR 1127 * 1128 02352 0414 77 LGL 1 REGA = 4R 1129 02353 0 06 04371 ADD RDUS REGA = 5R 1130 02354 0414 77 LGL 1 REGA = 10R 1131 02355 0 06 04371 ADD RDUS REGA = 11R 1132 02356 0414 76 LGL 2 REGA = 44R 1133 02357 0 06 04371 ADD RDUS REGA = 45R . 1134 02360 0414 76 LGL 2 REGA = 180R 1135 02361 0 06 04371 ADD RDUS REGA = 181R 1136 02362 0404 70 LGR 8 REGA = 181R/256 = 0.707R 1137 02363 0 04 04407 STA 707R 1138 02364 0414 77 LGL 1 REGA = 2*(O.707R) 3 0.707D 1139 02365 0 04 04406 STA 707D 1140 * 1141 02366 0 02 04371 LDA RDUS 1142 02367 0414 77 LGL 1 REGA = 2R 1143 02370 0 06 04371 ADD RDUS REGA = 3R 1144 02371 0414 77 LGL 1 REGA = 6R 1145 02372 0 06 04371 ADD RDUS REGA = 7R 1146 02373 0414 76 LGL 2 REGA = 28R 1147 02374 0 06 04371 ADD RDUS REGA = 29R 1148 02375 0414 77 LGL 1 REGA = 58R 1149 02376 0 06 04371 ADD RDUS REGA = 59R