O16-DPT9 rev B

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

0983 02111 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0984 02112 0 01 02110 JMP *-2 PLOT NEXT STEP 0985 02113 0 35 04364 LDX MRKR STEP COUNTER 0986 02114 0 10 03531 JST MIWT 0987 02115 0 12 00000 IRS 0 INCREMENT STEP COUNTER 0988 02116 0 01 02114 JMP *-2 PLOT NEXT STEP 0989 02117 0 02 04364 LDA MRKR LENGTH OF PRESENT ARM 0990 02120 0 11 04376 CAS 20NU 20NU = LENGTH OF OUTERMOST ARM 0991 02121 0 01 02071 JMP P201 PLOT NEXT SOUARE OF SPIRAL 0992 * * SQUARE SPIRAL HAS BEEN PLOTTEO 0993 02122 0 10 03473 JST MPUP 0994 02123 0 02 04346 LDA CNTA COUNT A 0995 02124 000201 IAB 0996 02125 0 02 04347 LDA CNTB COUNT B 0997 02126 0410 77 LLL 1 REGA = 2B+MSB A 0998 02127 0 04 04347 STA CNTB COUNT B 0999 02130 000201 IAB 1000 02131 0404 77 LGR 1 REGA = A-MSB A 1001 02132 0 04 04346 STA CNTA COUNT A 1002 02133 000201 IAB REGA,REGB = COUNT 1003 02134 0401 77 LRS 1 TEMPORARY COUNT TC = 0.5 COUNT 1004 02135 0 10 03756 JST HADD HALF ADD COUNT, TC = 1.25 COUNT 1005 02136 0 10 03756 JST HADD TC = 1.625 COUNT 1006 02137 0 10 03756 JST HADD TC = 1.8125 COUNT 1007 02140 0401 76 LRS 2 TC = 0.4531 COUNT 1008 02141 0 10 03756 JST HADD TC = 1.2266 COUNT 1009 02142 0401 77 LRS 1 TC = 0.6133 COUNT 1010 02143 0 10 03756 JST HADD TC = 1.3067 COUNT 1011 02144 0 10 03756 JST HADD TC = 1.6534 COUNT 1012 02145 0401 77 LRS 1 TC = 0.8267 COUNT 1013 02146 0 10 03756 JST HADD TC = 1.4134 COUNT 1014 02147 0 10 03756 JST HADD TC = 1.7067 COUNT 1015 02150 0411 71 LLS 7 REGA = (1.7067 COUNT) * (2**-8) 1016 02151 0 04 04373 STA TMPB TEMPORARY BUFFER 1017 * 1018 02152 0 02 04374 LDA UNIT 1019 02153 0 05 04506 ERA =20 1020 02154 100040 SZE TEST FOR EOM OPTION 2111/2113 1021 02155 0 01 02161 JMP *+4 EOM OPTION 2112/2114 (10 STEPS/UNIT) 1022 02156 0 02 04373 LDA TMPB TEMPORARY BUFFER 1023 02157 0404 77 LGR 1 REGA =(1.7067 COUNT) * (2**-9) 1024 02160 100000 SKP 1025 02161 0 02 04373 LDA TMPB TEMPORARY BUFFER 1026 02162 141206 AOA ADD ONE TO A FOR ROUNDING UP VALUE 1027 02163 0404 77 LGR 1 REGA = NO OF MEMORY CYCLES/INCREMENT 1028 02164 0 04 04373 STA TMPB 1029 * 1030 02165 0 02 04457 LDA ='260 '260 = CHARACTER ZERO 1031 02166 0 04 04346 STA CNTA 1032 02167 0 04 04347 STA CNTB