O16-DPT9 rev B

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

0933 02036 101040 SNZ TEST FOR REQUIREMENT 0F PLUTTING ALL PATRNS 0934 02037 0 01 02043 JMP PAT2 PLOT PATTERN TWO 0935 02040 0 01 01722 JMP AQTN ASK QUESTION: TEST NO? 0936 * 0937 02041 0 11 04477 P002 CAS ='262 '262 = CHARACTER TWO 0938 02042 0 01 02341 JMP P003 INPUT CHARACTER OTHER THAN TWO 0939 * * PLOT PATTERN TWO (INPUT CHAR = 2) 0940 * 0941 * PATTERN TWO (INCREMENT AND SPEED TEST - SQUARE SPIRAL) 0942 * 0943 02043 0 35 04376 PAT2 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS) 0944 02044 0 10 03271 JST MPNT 0945 02045 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0946 02046 0 01 02044 JMP *-2 MOVE PLOTTER NEXT STEP 0947 02047 0 10 03210 JST MPCT 0948 02050 0 35 04401 LDX 45NU STEP COUNTER (NO OF STEPS IN 45 UNITS) 0949 02051 0 10 03247 JST MPWT 0950 02052 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0951 02053 0 01 02051 JMP *-2 MOVE PLOTTER NEXT STEP 0952 * 0953 02054 0 02 04460 LDA =-2 NUMBER OF ROWS IN THE PATTERN 0954 02055 0 04 04372 STA ROWC 0955 02056 0 02 04434 P2NR LDA =-4 UMBER OF FIGURES IN A ROW 0956 02057 0 04 04356 STA FGRC 0957 02060 0 02 04340 LDA AMSG START ADDRESS OF MESSAGE 0958 02061 0 06 04433 ADD =6 0959 02062 0 04 04370 STA PNTR POINTER (ADDRESS FOR INSERTION OF SPEED) 0960 02063 140040 P2NF CRA 0961 02064 0 04 04364 STA MRKR MARKER 0962 02065 0 04 04346 STA CNTA COUNTER A 0963 02066 0 04 04347 STA CNTB COUNTER B 0964 02067 0 04 04350 STA CNTC COUNTER C 0965 02070 0 10 03445 JST MPDN MOVE PEN DOWN 0966 * 0967 02071 0 02 04364 P201 LDA MRKR MARKER 0968 02072 0 07 04374 SUB UNIT UNIT 0969 02073 0 04 04364 STA MRKR MRKR = MRKR - UNIT 0970 02074 0 35 04364 LDX MRKR STEP COUNTER 0971 02075 0 10 03571 JST MIST 0972 02076 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0973 02077 0 01 02075 JMP *-2 PLOT NEXT STEP 0974 02100 0 35 04364 LDX MRKR STEP COUNTER 0975 02101 0 10 03521 JST MIET 0976 02102 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0977 02103 0 01 02101 JMP *-2 PLOT NEXT STEP 0978 02104 0 02 04364 LDA MRKR 0979 02105 0 07 04374 SUB UNIT 0980 02106 0 04 04364 STA MRKR MRKR = MRKR - UNIT 0981 02107 0 35 04364 LDX MRKR STEP COUNTER 0982 02110 0 10 03541 JST MINT