O16-DPT9 rev B

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

1550 03146 0 05 04512 ERA =-1 1551 03147 101040 SNZ TEST FOR LAST ROW 1552 03150 0 10 03445 JST MPDN 1553 03151 0 02 04426 LDA =-120 NO OF UNIT LENGTHS TO BE MOVED 1554 03152 0 04 04352 STA CNTR UNIT COUNTER 1555 03153 0 35 04366 P403 LDX NUNT STEP COUNTER (NO OF STEPS IN ONE UNIT) 1556 03154 0 10 03247 JST MPWT 1557 03155 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1558 03156 0 01 03154 JMP *-2 MOVE PLOTTER NEXT STEP 1559 03157 0 12 04352 IRS CNTR INCREMENT UNIT COUNTER 1560 03160 0 01 03153 JMP P403 MOVE PLOTTER NEXT UNIT LENGTH 1561 03161 0 12 04372 IRS ROWC INCREMENT ROW COUNTER 1562 03162 0 01 03031 JMP P4NR PLOT NEXT ROW OF FIGURES 1563 03163 0 10 03473 JST MPUP 1564 03164 0 35 04376 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS) 1565 03165 0 10 03271 JST MPNT 1566 03166 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1567 03167 0 01 03165 JMP *-2 MOVE PLOTTER NEXT STEP 1568 * 1569 03170 0 01 01722 JMP AQTN ASK QUESTION: TEST NO? 1570 * 1571 03171 0 05 04425 P00E ERA ='305 '305 = CHARACTER E 1572 03172 100040 SZE TEST FOR CHARACTER E 1573 03173 0 01 01725 JMP QST6 INVALID CHARACTER, REPEAT THE QUESTION 1574 * * CHAR E (END OF TEST) 1575 * 1576 * OUTPUT END HEADING MESSAGE TO ASR 1577 * 1578 03174 0 02 04461 LDA =-8 NUMBER OF WORDS TO BE OUTPUT 1579 03175 0 10 04056 JST OASR 1580 03176 105212 OCT 105212 LF/LF 1581 03177 142716 BCI 6,END O16-DPT9 03200 142240 03201 147661 03202 133255 03203 142320 03204 152271 1582 03205 105212 OCT 105212 LF/LF 1583 * 1584 03206 000000 HLT 1585 03207 0 01 01000 JMP STRT RESTART 1586 * 1587 * 1588 * SUBROUIINES 1589 * 1590 * MOVE PLOTTER TO CENTRE (WITHOUT INTERRUPT) 1591 03210 0 000000 MPCT DAC ** MOVE PLOTTEP TO CENTRE (WITHOUT INT) 1592 03211 0 10 03225 JST MPET 1593 03212 34 0227 DP10 SKS PLLR 1594 03213 100000 SKP EAST LIMIT REACHED