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

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

2399 04222 1 13 15400 IMA DP,1 2400 04223 0 03 04232 ANA AF91 2401 04224 1 06 15400 ADD DP,1 2402 04225 1 04 15400 STA DP,1 AT(A) = CONTENTS OF B INPUT 2403 04226 000201 IAB 2404 04227 0 10 04041 JST DA00 DEFINE AF 2405 04230 -0 01 04214 JMP* AF00 2406 04231 0 00 00000 AF90 PZE 0 2407 04232 107777 AF91 OCT 107777 2408 * 2409 * 2410 * ***************** 2411 * *DEFINE LOCATION* 2412 * ***************** 2413 * SET AF = RPL, AT = REL 2414 04233 0 000000 LO00 DAC ** 2415 04234 0 02 00717 LDA K101 REL 2416 04235 000201 IAB 2417 04236 0 02 00060 LDA RPL 2418 04237 0 10 04214 JST AF00 DEFINE AF 2419 04240 -0 01 04233 JMP* LO00 2420 * ************************* 2421 * *ASSIGN INTEGER CONSTANT* 2422 * ************************* 2423 * IM (INTEGER), IU(VARIABLE) , ASSIGN SPECIAL 2424 04241 0 000000 AI00 DAC ** 2425 04242 140040 CRA 2426 04243 0 04 01476 STA ID+1 2427 04244 0 04 01477 STA ID+2 2428 04245 0 02 00717 LDA K101 (B) = INT 2429 04246 000201 IAB 2430 04247 0 02 00720 LDA K102 (A) = VAR 2431 04250 0 10 04252 JST AA00 ASSIGN SPECIAL 2432 04251 -0 01 04241 JMP* AI00 RETURN 2433 * 2434 * 2435 * **************** 2436 * *ASSIGN SPECIAL* 2437 * **************** 2438 * B REG TO IM, A REG TO IU, 1 TO NT (CONSTANT), THEN 2439 * ASSIGN ITEM 2440 04252 0 000000 AA00 DAC ** 2441 04253 0 04 00655 STA IU IU = (A) 2442 04254 000201 IAB 2443 04255 0 04 00653 STA IM IM = (B) 2444 04256 0 02 00717 LDA K101 2445 04257 0 04 00573 STA NT NT = 1 2446 04260 0 10 03241 JST AS00 ASSIGN ITEM 2447 04261 -0 01 04252 JMP* AA00 RETURN 2448 *