O16-DPT9 rev A

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

1550 03154 0 10 03507 JST MPUP 1551 03155 0 35 04347 LDX 10NU STEP COUNTER (NO OF STEPS IN 10 UNITS) 1552 03156 0 10 03305 JST MPNT 1553 03157 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1554 03160 0 01 03156 JMP *-2 MOVE PLOTTER NEXT STEP 1555 03161 0 02 04344 LDA ROWC 1556 03162 0 05 04462 ERA =-1 1557 03163 101040 SNZ TEST FOR LAST ROW 1558 03164 0 10 03461 JST MPDN 1559 03165 0 02 04376 LDA =-120 NO OF UNIT LENGTHS TO BE MOVED 1560 03166 0 04 04324 STA CNTR UNIT COUNTER 1561 03167 0 35 04340 P403 LDX NUNT STEP COUNTER (NO OF STEPS IN ONE UNIT) 1562 03170 0 10 03263 JST MPWT 1563 03171 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1564 03172 0 01 03170 JMP *-2 MOVE PLOTTER NEXT STEP 1565 03173 0 12 04324 IRS CNTR INCREMENT UNIT COUNTER 1566 03174 0 01 03167 JMP P403 MOVE PLOTTER NEXT UNIT LENGTH 1567 03175 0 12 04344 IRS ROWC INCREMENT ROW COUNTER 1568 03176 0 01 03045 JMP P4NR PLOT NEXT ROW OF FIGURES 1569 03177 0 10 03507 JST MPUP 1570 03200 0 35 04350 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS) 1571 03201 0 10 03305 JST MPNT 1572 03202 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1573 03203 0 01 03201 JMP *-2 MOVE PLOTTER NEXT STEP 1574 * 1575 03204 0 01 01722 JMP AQTN ASK QUESTION: TEST NO? 1576 * 1577 03205 0 05 04375 P00E ERA ='305 '305 = CHARACTER E 1578 03206 100040 SZE TEST FOR CHARACTER E 1579 03207 0 01 01725 JMP QST6 INVALID CHARACTER, REPEAT THE QUESTION 1580 * * CHAR E (END OF TEST) 1581 * 1582 * OUTPUT END HEADING MESSAGE TO ASR 1583 * 1584 03210 0 02 04431 LDA =-8 NUMBER OF WORDS TO BE OUTPUT 1585 03211 0 10 04030 JST OASR 1586 03212 105212 OCT 105212 LF/LF 1587 03213 142716 BCI 6,END O16-DPT9 03214 142240 03215 147661 03216 133255 03217 142320 03220 152271 1588 03221 105212 OCT 105212 LF/LF 1589 * 1590 03222 000000 HLT 1591 03223 0 01 01000 JMP STRT RESTART 1592 * 1593 * 1594 * SUBROUIINES