FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 83

2424 * ************************* 2425 * *ASSIGN INTEGER CONSTANT* 2426 * ************************* 2427 * IM (INTEGER): IU(VARIABLE) , ASSIGN SPECIAL 2428 03612 0 000000 AI00 DAC ** 2429 03613 140040 CRA 2430 03614 0 04 00775 STA ID+1 2431 03615 0 04 00776 STA ID+2 2432 03616 0 02 00735 LDA K101 (B) = INT 2433 03617 000201 IAB 2434 03620 0 02 00736 LDA K102 (A) = VAR 2435 03621 0 10 03623 JST AA00 ASSIGN SPECIAL 2436 03622 -0 01 03612 JMP* AI00 RETURN 2437 EJCT