O16-DPT9 rev A

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

1033 02176 0 12 04320 IRS CNTA CNTA = THOUSANDS DIGIT (ISO-CODE CHAR) 1034 02177 0 01 02173 JMP P202 1035 02200 0 06 04402 ADD =1000 RESTORE HUNDREDS+TENS+UNITS DIGITS 1036 02201 0 07 04401 P203 SUB =100 1037 02202 100400 SPL TEST FOR HUNDREDS DIGIT 1038 02203 0 01 02206 JMP *+3 NO MORE HUNDREDS DIGIT 1039 02204 0 12 04321 IRS CNTB CNTB = HUNDREDS DIGIT (ISO-CODE CHAR) 1040 02205 0 01 02201 JMP P203 1041 02206 0 06 04401 ADD =100 RESTORE TENS + UNITS DIGITS 1042 02207 0 07 04446 P204 SUB =10 1043 02210 100400 SPL TEST FOR TENS DIGIT 1044 02211 0 01 02214 JMP *+3 NO MORE TENS DIGIT 1045 02212 0 12 04322 IRS CNTC CNTC = TENS DIGIT (ISO-CODE CHAR) 1046 02213 0 01 02207 JMP P204 1047 02214 0 06 04446 ADD =10 RESTORE UNITS DIGIT 1048 02215 0 06 04322 ADD CNTC 1049 02216 0 04 04323 STA CNTD CNTD = UNITS DIGIT (ISO-CODE CHAR) 1050 * 1051 02217 0 02 04320 LDA CNTA THOUSANDS DIGIT 1052 02220 0414 70 LGL 8 THOUSANDS DIGIT IN NS HALF OF REGA 1053 02221 0 05 04321 ERA CNTB REGA = THOUSANDS DIGIT, HUNDREDS DIGIT 1054 02222 -0 04 04342 STA* PNTR STORE IN MESSAGE (REPLACE WX) 1055 02223 0 12 04342 IRS PNTR INCREMENT ADDRESS OF MESSAGE 1056 02224 0 02 04322 LDA CNTC TENS DIGIT 1057 02225 0414 70 LGL 8 TENS DIGIT IN MS HALF OF REGA 1058 02226 0 05 04323 ERA CNTD REGA = TENS DIGIT, UNITS DIGIT 1059 02227 -0 04 04342 STA* PNTR STORE IN MESSAGE (REPLACE YZ) 1060 02230 0 02 04342 LDA PNTR 1061 02231 0 06 04426 ADD =8 1062 02232 0 04 04342 STA PNTR 1063 02233 0 12 04330 IRS FGRC INCREMENT FIGURE COUNTER 1064 02234 100000 SKP MOVE PLOTTER IN POSITION TO PLOT NEXT FIGURE 1065 02235 0 01 02247 JMP P207 ALL FIGURES PLOTTED IN THE ROW 1066 * 1067 02236 0 35 04347 LDX 10NU STEP COUNTER (NO OF STEPS IN 10 UNITS) 1068 02237 0 10 03373 JST MPST 1069 02240 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1070 02241 0 01 02237 JMP *-2 MOVE PLOTTER NEXT STEP 1071 02242 0 35 04352 LDX 40NU STEP COUNTER (NO OF STEPS IN 40 UNITS) 1072 02243 0 10 03241 JST MPET 1073 02244 0 12 00000 IRS 0 INCREMENT STEP COUNTER 1074 02245 0 01 02243 JMP *-2 MOVE PLOTTER NEXT STEP 1075 02246 0 01 02063 JMP P2NF PLOT NEXT FIGURE 1076 * 1077 * TEST FOR REQUIREMENT OF SPEED OUTPUT 1078 02247 100002 P207 SR4 TEST FOR REQUIREMENT OF SPEED OUTPUT 1079 02250 0 01 02321 JMP P208 SPEED MESSAGE NOT REQUIRED 1080 * 1081 * OUTPUT SPEED MESSAGE 1082 02251 0 02 04400 LDA =-38 NUMBER OF WORDS TO BE OUTPUT