O16-DPT9 rev B

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

1033 02170 0 04 04350 STA CNTC 1034 02171 0 04 04351 STA CNTD 1035 02172 0 02 04373 LDA TMPB NO OF MEMORY CYCLES/INCREMENT 1036 02173 0 07 04432 P202 SUB =1000 1037 02174 100400 SPL TEST FOR THOUSANDS DIGIT 1038 02175 0 01 02200 JMP *+3 NO MORE THOUSANDS DIGIT 1039 02176 0 12 04346 IRS CNTA CNTA = THOUSANDS DIGIT (ISO-CODE CHAR) 1040 02177 0 01 02173 JMP P202 1041 02200 0 06 04432 ADD =1000 RESTORE HUNDREDS+TENS+UNITS DIGITS 1042 02201 0 07 04431 P203 SUB =100 1043 02202 100400 SPL TEST FOR HUNDREDS DIGIT 1044 02203 0 01 02206 JMP *+3 NO MORE HUNDREDS DIGIT 1045 02204 0 12 04347 IRS CNTB CNTB = HUNDREDS DIGIT (ISO-CODE CHAR) 1046 02205 0 01 02201 JMP P203 1047 02206 0 06 04431 ADD =100 RESTORE TENS + UNITS DIGITS 1048 02207 0 07 04476 P204 SUB =10 1049 02210 100400 SPL TEST FOR TENS DIGIT 1050 02211 0 01 02214 JMP *+3 NO MORE TENS DIGIT 1051 02212 0 12 04350 IRS CNTC CNTC = TENS DIGIT (ISO-CODE CHAR) 1052 02213 0 01 02207 JMP P204 1053 02214 0 06 04476 ADD =10 RESTORE UNITS DIGIT 1054 02215 0 06 04351 ADD CNTD 1055 02216 0 04 04351 STA CNTD CNTD = UNITS DIGIT (ISO-CODE CHAR) 1056 * 1057 02217 0 02 04346 LDA CNTA THOUSANDS DIGIT 1058 02220 0414 70 LGL 8 THOUSANDS DIGIT IN NS HALF OF REGA 1059 02221 0 05 04347 ERA CNTB REGA = THOUSANDS DIGIT, HUNDREDS DIGIT 1060 02222 -0 04 04370 STA* PNTR STORE IN MESSAGE (REPLACE WX) 1061 02223 0 12 04370 IRS PNTR INCREMENT ADDRESS OF MESSAGE 1062 02224 0 02 04350 LDA CNTC TENS DIGIT 1063 02225 0414 70 LGL 8 TENS DIGIT IN MS HALF OF REGA 1064 02226 0 05 04351 ERA CNTD REGA = TENS DIGIT, UNITS DIGIT 1065 02227 -0 04 04370 STA* PNTR STORE IN MESSAGE (REPLACE YZ) 1066 02230 0 02 04370 LDA PNTR 1067 02231 0 06 04456 ADD =8 1068 02232 0 04 04370 STA PNTR 1069 02233 0 12 04356 IRS FGRC INCREMENT FIGURE COUNTER 1070 02234 100000 SKP MOVE PLOTTER IN POSITION TO PLOT NEXT FIGURE 1071 02235 0 01 02247 JMP P207 ALL FIGURES PLOTTED IN THE ROW 1072 * 1073 02236 0 35 04375 LDX 10NU STEP COUNTER (NO OF STEPS IN 10 UNITS) 1074 02237 0 10 03357 JST MPST 1075 02240 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1076 02241 0 01 02237 JMP *-2 MOVE PLOTTER NEXT STEP 1077 02242 0 35 04400 LDX 40NU STEP COUNTER (NO OF STEPS IN 40 UNITS) 1078 02243 0 10 03225 JST MPET 1079 02244 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1080 02245 0 01 02243 JMP *-2 MOVE PLOTTER NEXT STEP 1081 02246 0 01 02063 JMP P2NF PLOT NEXT FIGURE 1082 *