C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 110

5287 11321 0 10 10657 JST ND00 NON DUMMY/SUBPROG TEST 5288 11322 0 10 10650 JST NM00 NON-COMMON TEST 5289 11323 0 10 10624 JST EL00 EXCHANGE LINKS 5290 11324 1 02 15400 LDA DP,1 5291 11325 0 03 11334 ANA B4F ='107777 5292 11326 0 06 00740 ADD K122 AT(A) = COM (='040000) 5293 11327 1 04 15400 STA DP,1 5294 11330 0 01 11246 JMP B7 5295 11331 0 10 01251 B4E JST UC00 UNINPUT COLUMN 5296 11332 0 01 11270 JMP B4B 5297 11333 0 011320 B4Z9 DAC B4D GO TO INPUT DIMENSION 5298 11334 107777 B4F OCT 107777 EXTRACT MASK TO STRIP OFF AT FIELD 5299 * 5300 * 5301 * ************* 5302 * *EQUIVALENCE* 5303 * ************* 5304 * STORE EQUIV INFO IN THE DATA POOL FOR LATER 5305 * PROCESSING BY GROUP EQUIV (PART OF SPECS WRAPUP) 5306 11335 0 02 00646 B5 LDA E0 L = NEXT WORD IN EQUIVALENCE TABLE 5307 11336 0 04 00041 STA I I=L 5308 11337 0 07 00717 SUB K101 (=1) 5309 11340 0 04 00646 STA E0 L=L-1 5310 11341 0 07 00054 SUB ABAR 5311 11342 101400 SMI 5312 11343 0 01 11346 JMP *+3 5313 11344 0 10 03116 JST ER00 DATA POOL FULL 5314 11345 146717 BCI 1,MO MEMORY OVERFLOW 5315 11346 0 10 02676 JST STXI ESTABLISH I 5316 11347 140040 CRA 5317 11350 1 04 15400 STA DP,1 DP (I) = 0 5318 11351 0 10 01256 B5B JST CH00 5319 11352 1 02 15400 LDA DP,1 INPUT CHAR 5320 11353 100040 SZE 5321 11354 0 01 11371 JMP B5D 5322 11355 0 02 00607 LDA TC PUT IN FIRST CHARACTER 5323 11356 0414 70 LGL 8 PACK INTO DP (I) 5324 11357 1 04 15400 B5C STA DP,1 5325 11360 0 02 00607 LDA TC 5326 11361 0 07 00756 SUB CRET 5327 11362 101040 SNZ 5328 11363 0 01 04271 JMP C6 CHARACTER E C/R - EXIT 5329 11364 1 02 15400 LDA DP,1 5330 11365 0 03 00727 ANA K100 5331 11366 101040 SNZ 5332 11367 0 01 11351 JMP B5B WORD NOT FULL 5333 11370 0 01 11335 JMP B5 OBTAIN NEW WORD 5334 11371 0 02 00607 B5D LDA TC PUT IN SECOND CHARACTER 5335 11372 1 05 15400 ERA DP,1 5336 11373 0 01 11357 JMP B5C