FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 18

0658 * 0659 * 0660 * 0661 * ******************* 0662 * *START OF COMPILER* 0663 * ******************* 0664 * 0665 ORG '1000 0666 * 0667 * 0668 * 0669 * - A0 COMP ENT EMPTY BUFFERS 0670 01000 0 04 01060 STA LIBF DIAGNOSTIC FLAG IN BIT 1 0671 01001 0 10 00000 A0 CALL F4$INT INITIALIZE I/O DEVICES 0672 01002 0 02 01150 LDA K108 0673 01003 0 04 00656 STA CC CC = 73 0674 01004 0 10 01061 JST IC00 INPUT COLUMN 0675 01005 0 35 01056 A051 LDX A090 0676 01006 140040 CRA 0677 01007 1 04 00654 STA A+M,1 SET M VARIABLES TO ZERO 0678 01010 1 04 00100 STA NAMF+M,1 0679 01011 0 12 00000 IRS 0 0680 01012 0 01 01007 JMP *-3 0681 01013 0 04 11442 STA PKF 0682 01014 0 10 13531 JST FS00 INITIALIZE OUTPUT BUFFER 0683 01015 140401 CMA 0684 01016 0 04 00652 STA LSTF LSTF NOT EQ 0 0685 01017 0 04 00653 STA LSTP LSTP NOT EQ 0 0686 01020 0 04 00654 STA EBAR EBAR SET NEGATIVE 0687 01021 0 04 00767 STA ISTR MUST BE SET MINUS 0688 01022 0 02 00113 LDA L0 0689 01023 0 04 00705 STA ICSW 0690 01024 0 04 00042 STA E0 INITIALIZE EQUIVALENCE TABLE 0691 01025 0 04 00627 STA L INITIALIZE TRIAD TABLE POINTER 0692 01026 0 10 13321 JST PRSP SET PRINT BUFFER TO SPACES 0693 01027 0 02 00754 LDA K134 0694 01030 0 04 00655 STA DO INITIALIZE DO TABLE POINTER 0695 01031 0 07 00700 SUB K138 0696 01032 0 04 01057 STA A091 0697 01033 140040 CRA 0698 01034 0 04 00774 STA ID 0699 01035 0 12 00774 A055 IRS ID ESTABLISH CONSTANTS 0700 01036 0 10 03612 JST AI00 0701 01037 0 12 01057 IRS A091 0702 01040 0 01 01035 JMP A055 0703 01041 0 02 00765 LDA K81 0704 01042 0 04 00774 STA ID 0705 01043 0 04 00775 STA ID+1 0706 01044 0 04 00776 STA ID+2 0707 01045 0400 40 LRL 32 (B)=0 IM=NO USAGE