O16-DPT9 rev A

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

0837 * MOVE PEN TWENTY UNITS NORTH 0838 01716 0 35 04350 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS) 0839 01717 0 10 03305 JST MPNT 0840 01720 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0841 01721 0 01 01717 JMP *-2 MOVE PLOTTER NEXT STEP 0842 * 0843 01722 0 02 04462 AQTN LDA =-1 NUMBER OF WORDS TO BE OUTPUT 0844 01723 0 10 04030 JST OASR OUTPUT TO ASR 0845 01724 106612 OCT 106612 CR/LF 0846 * 0847 * QUESTION 6 - TEST NO? (I, 1, 2, 3, 4, A OR E) 0848 01725 0 02 04410 QST6 LDA =-6 NUMBER OF WORDS TO BE OUTPUT 0849 01726 0 10 04030 JST OASR 0850 01727 106612 OCT 106612 CR/LF 0851 01730 152305 BCI 5,TEST NO? 01731 151724 01732 120316 01733 147677 01734 120240 0852 * 0853 01735 0 02 04430 LDA =-2 NUMBER OF CHARACTERS TO BE INPUT 0854 01736 0 10 04050 JST IASR 0855 01737 0 004364 DAC =0 0856 01740 0 01 01725 JMP QST6 CR NOT TYPED, REPEAT THE QUESTION 0857 * * NORMAL RETURN 0858 01741 0 02 04315 LDA CHR1 FIRST INPUT CHARACTER 0859 01742 0 11 04407 CAS ='311 '311 = CHARACTER I 0860 01743 100000 SKP INPUT CHARACTER OTHER THAN I 0861 01744 0 01 01537 JMP DPT0 REPEAT INITIALISATION (INPUT CHAR = I) 0862 01745 0 05 04406 ERA ='301 '301 = CHARACTER A 0863 01746 0 04 04341 STA PALL PALL IS ZERO 0864 01747 101040 SNZ TEST FOR REQUIREMENT OF PLOTTING ALL PATRNS 0865 01750 0 01 01756 JMP PAT1 PLOT PATTERN ONE 0866 01751 0 02 04315 LDA CHR1 FIRST INPUT CHARACTER 0867 01752 0 11 04457 CAS ='261 '261 = CHARACTER ONE 0868 01753 0 01 02041 JMP P002 INPUT CHARACTER OTHER THAN ONE 0869 01754 100000 SKP PLOT PATTERN ONE (INPUT CHAR : 1) 0870 01755 0 01 01725 JMP QST6 INVALID CHAR, REPEAT THE QUESTION 0871 * 0872 * 0873 * PATTERN ONE (PEN MOVEMENT TEST - DOTTED LINE) 0874 * 0875 01756 0 35 04347 PAT1 LDX 10NU STEP COUNTER (NO OF STEPS IN 10 UNITS) 0876 01757 0 10 03305 JST MPNT 0877 01760 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0878 01761 0 01 01757 JMP *-2 MOVE PLOTTER NEXT STEP 0879 01762 0 10 03224 JST MPCT 0880 01763 0 35 04355 LDX 60NU STEP COUNTER (NO OF STEPS IN 60 UNITS) 0881 01764 0 10 03263 JST MPWT 0882 01765 0 12 00000 IRS 0 INCREMENT STEP COUNTER