FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 16

0598 00740 000004 K104 OCT 4 0599 00741 000005 K105 OCT 5 0600 00742 000006 K106 OCT 6 0601 00743 000007 K107 OCT 7 0602 00744 000010 K125 OCT 10 0603 00745 000011 K124 OCT 11 0604 00746 000012 K126 OCT 12 0605 00747 000013 K127 OCT 13 0606 00750 000014 K128 OCT 14 0607 00751 000015 K129 OCT 15 0608 00752 000012 OCT 12 0609 00753 000016 K153 OCT 16 0610 00754 000017 K134 OCT 17 0611 * 0612 * 0613 00755 000301 K49 OCT 301 0A 0614 00756 177775 IA90 OCT -3 0615 00757 107777 B4F OCT 107777 0616 00760 000027 K142 OCT 27 0617 00761 000030 K143 OCT 30 0618 00762 177772 K130 DEC -6 0619 00763 000304 K11 OCT 304 0620 00764 000077 K133 OCT 77 0621 00765 120240 K81 BCI 1, 0622 00766 0 00 00000 TIDN PZE 0 0623 00767 000000 ISTR BSZ 1 USED FOR INTERRUPT BLOCK HOUSEKEEPING 0624 * 0625 * LOCATIONS '770 THROUGH '773 ARE USED BY DOP 0626 * 0627 ORG '774 0628 00774 ID BSS 4 0629 000775 ID1 EQU ID+1 0630 000774 TID EQU ID TEMP STORE FOR ID 0631 * 0632 * 0633 017400 DP EQU '17400 DUMMY START OF DATA POOL (ACTUALLY SET 0634 * BY THE FORTRAN IOS SUBROUTINE.) 0635 000113 L0 EQU '113 DUMMY END OF DATA POOL (MINUS 3 WORDS) 0636 * THE FOLLOWING INSTRUCTIONS CAUSE THE LOADER 0637 * TO ASSIGN ALL REFERENCES TO THE DATA POOL IN WORDS 0638 * 100 TO 112 OF THE ZERO SECTOR. FORTRAN IOS WILL 0639 * CAUSE THESE CELLS TO BE SET TO THE ACTUAL DATA POOL 0640 * LOCATIONS WHICH WILL BE DETERMINED BY COMPUTER 0641 * CONFIGURATION. 0642 ORG '1000 0643 01000 1 00 17374 PZE DP-4,1 (100) 0644 01001 1 00 17375 PZE DP-3,1 (101) DATA POOL REFERENCES 0645 01002 1 00 17376 PZE DP-2,1 (102) 0646 01003 1 00 17377 PZE DP-1,1 (103) 0647 01004 1 00 17400 PZE DP,1 (104)