O16-DPT9 rev B

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

0837 * FORM MEASURED LIMIT 0838 01712 0 02 00000 DPT8 LDA 0 REMAINING NUMBER OF STEPS IN X-RECISIER 0839 01713 141206 AOA 0840 01714 0 06 04361 ADD LMAX 0841 01715 0 04 04363 STA LMIT 0842 * 0843 * MOVE PEN TWENTY UNITS NORTH 0844 01716 0 35 04376 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS) 0845 01717 0 10 03271 JST MPNT 0846 01720 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0847 01721 0 01 01717 JMP *-2 MOVE PLOTTER NEXT STEP 0848 * 0849 01722 0 02 04512 AQTN LDA =-1 NUMBER OF WORDS TO BE OUTPUT 0850 01723 0 10 04056 JST OASR OUTPUT TO ASR 0851 01724 106612 OCT 106612 CR/LF 0852 * 0853 * QUESTION 6 - TEST NO? (I, 1, 2, 3, 4, A OR E) 0854 01725 0 02 04440 QST6 LDA =-6 NUMBER OF WORDS TO BE OUTPUT 0855 01726 0 10 04056 JST OASR 0856 01727 106612 OCT 106612 CR/LF 0857 01730 152305 BCI 5,TEST NO? 01731 151724 01732 120316 01733 147677 01734 120240 0858 * 0859 01735 0 02 04460 LDA =-2 NUMBER OF CHARACTERS TO BE INPUT 0860 01736 0 10 04076 JST IASR 0861 01737 0 004415 DAC =0 0862 01740 0 01 01725 JMP QST6 CR NOT TYPED, REPEAT THE QUESTION 0863 * * NORMAL RETURN 0864 01741 0 02 04343 LDA CHR1 FIRST INPUT CHARACTER 0865 01742 0 11 04437 CAS ='311 '311 = CHARACTER I 0866 01743 100000 SKP INPUT CHARACTER OTHER THAN I 0867 01744 0 01 01537 JMP DPT0 REPEAT INITIALISATION (INPUT CHAR = I) 0868 01745 0 05 04436 ERA ='301 '301 = CHARACTER A 0869 01746 0 04 04367 STA PALL PALL IS ZERO 0870 01747 101040 SNZ TEST FOR REQUIREMENT OF PLOTTING ALL PATRNS 0871 01750 0 01 01756 JMP PAT1 PLOT PATTERN ONE 0872 01751 0 02 04343 LDA CHR1 FIRST INPUT CHARACTER 0873 01752 0 11 04507 CAS ='261 '261 = CHARACTER ONE 0874 01753 0 01 02041 JMP P002 INPUT CHARACTER OTHER THAN ONE 0875 01754 100000 SKP PLOT PATTERN ONE (INPUT CHAR : 1) 0876 01755 0 01 01725 JMP QST6 INVALID CHAR, REPEAT THE QUESTION 0877 * 0878 * 0879 * PATTERN ONE (PEN MOVEMENT TEST - DOTTED LINE) 0880 * 0881 01756 0 35 04375 PAT1 LDX 10NU STEP COUNTER (NO OF STEPS IN 10 UNITS) 0882 01757 0 10 03271 JST MPNT