O16-DPT9 rev A

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

0983 02117 0 02 04336 LDA MRKR LENGTH OF PRESENT ARM 0984 02120 0 11 04350 CAS 20NU 20NU = LENGTH OF OUTERMOST ARM 0985 02121 0 01 02071 JMP P201 PLOT NEXT SOUARE OF SPIRAL 0986 * * SQUARE SPIRAL HAS BEEN PLOTTEO 0987 02122 0 10 03507 JST MPUP 0988 02123 0 02 04320 LDA CNTA COUNT A 0989 02124 000201 IAB 0990 02125 0 02 04321 LDA CNTB COUNT B 0991 02126 0410 77 LLL 1 REGA = 2B+MSB A 0992 02127 0 04 04321 STA CNTB COUNT B 0993 02130 000201 IAB 0994 02131 0404 77 LGR 1 REGA = A-MSB A 0995 02132 0 04 04320 STA CNTA COUNT A 0996 02133 000201 IAB REGA,REGB = COUNT 0997 02134 0401 77 LRS 1 TEMPORARY COUNT TC = 0.5 COUNT 0998 02135 0 10 03772 JST HADD HALF ADD COUNT, TC = 1.25 COUNT 0999 02136 0 10 03772 JST HADD TC = 1.625 COUNT 1000 02137 0 10 03772 JST HADD TC = 1.8125 COUNT 1001 02140 0401 76 LRS 2 TC = 0.4531 COUNT 1002 02141 0 10 03772 JST HADD TC = 1.2266 COUNT 1003 02142 0401 77 LRS 1 TC = 0.6133 COUNT 1004 02143 0 10 03772 JST HADD TC = 1.3067 COUNT 1005 02144 0 10 03772 JST HADD TC = 1.6534 COUNT 1006 02145 0401 77 LRS 1 TC = 0.8267 COUNT 1007 02146 0 10 03772 JST HADD TC = 1.4134 COUNT 1008 02147 0 10 03772 JST HADD TC = 1.7067 COUNT 1009 02150 0411 71 LLS 7 REGA = (1.7067 COUNT) * (2**-8) 1010 02151 0 04 04345 STA TMPB TEMPORARY BUFFER 1011 * 1012 02152 0 02 04346 LDA UNIT 1013 02153 0 05 04456 ERA =20 1014 02154 100040 SZE TEST FOR EOM OPTION 2111/2113 1015 02155 0 01 02161 JMP *+4 EOM OPTION 2112/2114 (10 STEPS/UNIT) 1016 02156 0 02 04345 LDA TMPB TEMPORARY BUFFER 1017 02157 0404 77 LGR 1 REGA =(1.7067 COUNT) * (2**-9) 1018 02160 100000 SKP 1019 02161 0 02 04345 LDA TMPB TEMPORARY BUFFER 1020 02162 141206 AOA ADD ONE TO A FOR ROUNDING UP VALUE 1021 02163 0404 77 LGR 1 REGA = NO OF MEMORY CYCLES/INCREMENT 1022 02164 0 04 04345 STA TMPB 1023 * 1024 02165 0 02 04427 LDA ='260 '260 = CHARACTER ZERO 1025 02166 0 04 04320 STA CNTA 1026 02167 0 04 04321 STA CNTB 1027 02170 0 04 04322 STA CNTC 1028 02171 0 04 04323 STA CNTD 1029 02172 0 02 04345 LDA TMPB NO OF MEMORY CYCLES/INCREMENT 1030 02173 0 07 04402 P202 SUB =1000 1031 02174 100400 SPL TEST FOR THOUSANDS DIGIT 1032 02175 0 01 02200 JMP *+3 NO MORE THOUSANDS DIGIT