O16-DPT9 rev A

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

1100 02333 0 01 02331 JMP *-2 MOVE PLOTTER NEXT STEP 1101 02334 0 01 02056 JMP P2NR PLOT NEXT RON OF FIGURES 1102 * 1103 02335 0 02 04341 P210 LDA PALL 1104 02336 101040 SNZ TEST FOR REQUIREMENT OF PLOTTING ALL PATRNS 1105 02337 0 01 02343 JMP PAT3 PLOT PATTERN THREE 1106 02340 0 01 01722 JMP AQTN ASK QUESTION: TEST NO? 1107 * 1108 02341 0 11 04437 P003 CAS ='263 '263 = CHARACTER THREE 1109 02342 0 01 03030 JMP P004 INPUT CHARACTER OTHER THAN THREE 1110 * * PLOT PATTERN THREE (INPUT CHAR = 3) 1111 * 1112 * PATTERN THREE (FULL DIRECTIONAL TEST - SIXTEEN POINTED STAR) 1113 * 1114 02343 0 02 04346 PAT3 LDA UNIT NUMBER OF STEPS IN ONE UNIT LENGTH (U) 1115 02344 0414 76 LGL 2 REGA = 4U 1116 02345 0 06 04346 ADD UNIT REGA = 5U 1117 02346 0414 77 LGL 1 REGA = 10U 1118 02347 0 04 04343 STA RDUS 1119 02350 0414 77 LGL 1 REGA = 20U 1120 02351 0 04 04325 STA DMTR 1121 * 1122 02352 0414 77 LGL 1 REGA = 4R 1123 02353 0 06 04343 ADD RDUS REGA = 5R 1124 02354 0414 77 LGL 1 REGA = 10R 1125 02355 0 06 04343 ADD RDUS REGA = 11R 1126 02356 0414 76 LGL 2 REGA = 44R 1127 02357 0 06 04343 ADD RDUS REGA = 45R . 1128 02360 0414 76 LGL 2 REGA = 180R 1129 02361 0 06 04343 ADD RDUS REGA = 181R 1130 02362 0404 70 LGR 8 REGA = 181R/256 = 0.707R 1131 02363 0 04 04361 STA 707R 1132 02364 0414 77 LGL 1 REGA = 2*(O.707R) 3 0.707D 1133 02365 0 04 04360 STA 707D 1134 * 1135 02366 0 02 04343 LDA RDUS 1136 02367 0414 77 LGL 1 REGA = 2R 1137 02370 0 06 04343 ADD RDUS REGA = 3R 1138 02371 0414 77 LGL 1 REGA = 6R 1139 02372 0 06 04343 ADD RDUS REGA = 7R 1140 02373 0414 76 LGL 2 REGA = 28R 1141 02374 0 06 04343 ADD RDUS REGA = 29R 1142 02375 0414 77 LGL 1 REGA = 58R 1143 02376 0 06 04343 ADD RDUS REGA = 59R 1144 02377 0404 72 LGR 6 REGA = 59R/64 = 0.92R 1145 02400 0 04 04363 STA 92RD 1146 02401 0414 77 LGL 1 REGA = 2*(O.92R) = 0.92D 1147 02402 0 04 04362 STA 92DM 1148 * 1149 02403 0 35 04350 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS)