FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 207

7075 13465 0 13 13472 IMA STFL INDICATE WORD WAS KEY TO LOADER 7076 13466 101040 SNZ THEN LEAVE RPL ALONE 7077 13467 0 12 00643 IRS RPL RPL = RPL+ 7078 13470 -0 01 13402 JMP* OW00 7079 13471 OWXS BSS 1 TEMP STORAGE FOR INDEX 7080 13472 0 00 00000 STFL PZE 0 7081 13473 0 10 13476 OW20 JST PU00 7082 13474 0 01 13435 JMP OW10 7083 13475 0 00 00000 ORPL PZE 0 7084 13476 0 000000 PU00 DAC ** 7085 13477 0 02 00027 LDA CODE COMBINE CODES TO 7086 13500 0 11 00740 CAS K104 =4 7087 13501 101000 NOP 7088 13502 0 01 13515 JMP PU10 7089 13503 100040 SZE SKIP IF ABS 7090 13504 0 01 13515 JMP PU10 JUMP IF REL. 7091 13505 0400 70 LRL 8 7092 13506 0 02 00043 LDA FTOP 7093 13507 0400 74 PU08 LRL 4 7094 13510 0 04 13762 STA PRI+14 SAVE FOR LISTING 7095 13511 000201 IAB 7096 13512 0 04 13764 STA PRI+16 7097 13513 0402 64 LRR 12 RESTORE POSITION 7098 13514 -0 01 13476 JMP* PU00 7099 13515 0400 74 PU10 LRL 4 7100 13516 0 02 00025 LDA AF 7101 13517 100400 SPL 7102 13520 0 01 13524 JMP PU11 7103 13521 0400 74 PU12 LRL 4 7104 13522 0 05 00043 ERA FTOP 7105 13523 0 01 13507 JMP PU08 7106 13524 0 02 00744 PU11 LDA K125 7107 13525 0400 74 LRL 4 7108 13526 0 02 00025 LDA AF 7109 13527 0 01 13521 JMP PU12 7110 13530 000117 K146 OCT 117 7111 EJCT