Previous File Previous Page Single Page Next Page Next File

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

1150 02377 0404 72 LGR 6 REGA = 59R/64 = 0.92R 1151 02400 0 04 04411 STA 92RD 1152 02401 0414 77 LGL 1 REGA = 2*(O.92R) = 0.92D 1153 02402 0 04 04410 STA 92DM 1154 * 1155 02403 0 35 04376 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS) 1156 02404 0 10 03541 JST MINT 1157 02405 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1158 02406 0 01 02404 JMP *-2 MOVE PLOTTER NEXT STEP 1159 * 1160 02407 0 10 03521 JST MIET 1161 02410 34 0227 DP09 SKS PLLR 1162 02411 100000 SKP EAST LIMIT REACHED 1163 02412 0 01 02407 JMP *-3 LIMIT NOT YET REACHED, MOVE EAST 1164 02413 0 02 04363 LDA LMIT 1165 02414 0404 77 LGR 1 1166 02415 140407 TCA 1167 02416 0 04 00000 STA 0 STEP COUNTER 1168 02417 0 10 03531 JST MIWT 1169 02420 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1170 02421 0 01 02417 JMP *-2 MOVE PLOTTER NEXT STEP 1171 * 1172 02422 0 35 04377 LDX 30NU STEP COUNTER (NO OF STEPS IN 30 UNITS) 1173 02423 0 10 03531 JST MIWT 1174 02424 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1175 02425 0 01 02423 JMP *-2 MOVE PLOTTER NEXT STEP 1176 * 1177 02426 0 02 04510 LDA =-3 NUMBER OF ROWS IN THE PATTERN 1178 02427 0 04 04372 STA ROWC 1179 02430 0 02 04510 P3NR LDA =-3 NUMBER OF FIGURES IN A ROW 1180 02431 0 04 04356 STA FGRC 1181 02432 140040 CRA 1182 02433 0 04 04346 STA CNTA 1183 02434 0 04 04347 STA CNTB 1184 02435 0 04 04350 STA CNTC 1185 * 1186 02436 0 10 03621 P3NF JST MIDN 1187 02437 0 02 04353 LDA DMTR 1188 02440 140407 TCA 1189 02441 0 04 00000 STA 0 STEP COUNTER 1190 02442 0 10 03531 JST MIWT 1191 02443 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1192 02444 0 01 02442 JMP *-2 PLOT NEXT STEP 1193 * 1194 02445 0 10 03631 JST MIUP 1195 02446 0 10 03776 JST ICLC 1196 02447 0 10 04004 P302 JST CALC 1197 02450 0 11 04427 CAS ='10000 '10000 = 0.5*(2**13) 1198 02451 0 10 03561 JST MINW 1199 02452 0 01 02454 JMP *+2
Previous File Previous Page Single Page Next Page Next File