O16-DPT9 rev A

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

0933 * * PLOT PATTERN TWO (INPUT CHAR = 2) 0934 * 0935 * PATTERN TWO (INCREMENT AND SPEED TEST - SQUARE SPIRAL) 0936 * 0937 02043 0 35 04350 PAT2 LDX 20NU STEP COUNTER (NO OF STEPS IN 20 UNITS) 0938 02044 0 10 03305 JST MPNT 0939 02045 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0940 02046 0 01 02044 JMP *-2 MOVE PLOTTER NEXT STEP 0941 02047 0 10 03224 JST MPCT 0942 02050 0 35 04353 LDX 45NU STEP COUNTER (NO OF STEPS IN 45 UNITS) 0943 02051 0 10 03263 JST MPWT 0944 02052 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0945 02053 0 01 02051 JMP *-2 MOVE PLOTTER NEXT STEP 0946 * 0947 02054 0 02 04430 LDA =-2 NUMBER OF ROWS IN THE PATTERN 0948 02055 0 04 04344 STA ROWC 0949 02056 0 02 04404 P2NR LDA =-4 UMBER OF FIGURES IN A ROW 0950 02057 0 04 04330 STA FGRC 0951 02060 0 02 04312 LDA AMSG START ADDRESS OF MESSAGE 0952 02061 0 06 04403 ADD =6 0953 02062 0 04 04342 STA PNTR POINTER (ADDRESS FOR INSERTION OF SPEED) 0954 02063 140040 P2NF CRA 0955 02064 0 04 04336 STA MRKR MARKER 0956 02065 0 04 04320 STA CNTA COUNTER A 0957 02066 0 04 04321 STA CNTB COUNTER B 0958 02067 0 04 04322 STA CNTC COUNTER C 0959 02070 0 10 03461 JST MPDN MOVE PEN DOWN 0960 * 0961 02071 0 02 04336 P201 LDA MRKR MARKER 0962 02072 0 07 04346 SUB UNIT UNIT 0963 02073 0 04 04336 STA MRKR MRKR = MRKR - UNIT 0964 02074 0 35 04336 LDX MRKR STEP COUNTER 0965 02075 0 10 03605 JST MIST 0966 02076 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0967 02077 0 01 02075 JMP *-2 PLOT NEXT STEP 0968 02100 0 35 04336 LDX MRKR STEP COUNTER 0969 02101 0 10 03535 JST MIET 0970 02102 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0971 02103 0 01 02101 JMP *-2 PLOT NEXT STEP 0972 02104 0 02 04336 LDA MRKR 0973 02105 0 07 04346 SUB UNIT 0974 02106 0 04 04336 STA MRKR MRKR = MRKR - UNIT 0975 02107 0 35 04336 LDX MRKR STEP COUNTER 0976 02110 0 10 03555 JST MINT 0977 02111 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0978 02112 0 01 02110 JMP *-2 PLOT NEXT STEP 0979 02113 0 35 04336 LDX MRKR STEP COUNTER 0980 02114 0 10 03545 JST MIWT 0981 02115 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0982 02116 0 01 02114 JMP *-2 PLOT NEXT STEP