************************************************************ INFOTS.DEV Initialize FORTRAN's OTS N. A. Bourgeois, Jr. Sandia National Laboratories Systems Engineering Division 9238 P. O. Box 5800 Albuquerque, NM 87185 (505) 298-2346 At times it may be found necessary to initialize the Object Time System (OTS) for FORTRAN IV/RT-11 V2.5 from something other than a main program written in FORTRAN. For example, when calling a subroutine written in FORTRAN from a program written in PASCAL the main program must be written in PASCAL. This submission shows how to initialize FORTRAN's OTS from a program or subroutine written in MACRO-11. Among the files included with this submission are the following: INFOTS.COM Assembles INFOTS.MAC, compiles JUNK.FOR, links and executes them as INFOTS.SAV. INFOTS.MAC Demonstrates FORTRAN's OTS initialization. NAB.COM Compiles, links, and executes NABFOR.FOR. Assembles, links, and executes NABMAC.MAC. Compares the executable and map files generat- ed. NABFOR.FOR A do nothing program that was used to study FORTRAN's OTS initialization process. NABMAC.MAC A MACRO-11 program that generates executable code identical to that generated from NAB.FOR. INFOTS.COM 1 08-Feb-83 NABFOR.FOR 1 07-Feb-83 INFOTS.DOC 5 09-Feb-83 NABFOR.LST 1 09-Feb-83 INFOTS.LST 15 09-Feb-83 NABFOR.MAP 4 09-Feb-83 INFOTS.MAC 8 08-Feb-83 NABFOR.OBJ 5 09-Feb-83 INFOTS.MAP 5 09-Feb-83 NABFOR.SAV 10 09-Feb-83 INFOTS.OBJ 2 09-Feb-83 NABMAC.LST 196 09-Feb-83 INFOTS.RNO 5 07-Feb-83 NABMAC.MAC 99 08-Feb-83 INFOTS.SAV 15 09-Feb-83 NABMAC.MAP 4 09-Feb-83 JUNK .FOR 1 03-Feb-83 NABMAC.OBJ 15 09-Feb-83 JUNK .LST 1 09-Feb-83 NABMAC.SAV 10 09-Feb-83 JUNK .OBJ 5 09-Feb-83 PRINT .COM 1 09-Feb-83 NAB .COM 2 08-Feb-83 23 Files, 411 Blocks ************************************************************ $dnhuj v "&=f&  D'5  . (5&     &!+7E&&E" &P!ۃe" stsuvxF3l3 n # s ! D5 #"e!ePe"Pj3h3|3z  U $ N &  fW  u"\f?Err 59 USR not locked?Err 62 FORTRAN start failrLf&AE:@ lB`)  rrw^ʊ @ҋwv ^Z R X΋ + + U wFb xz|  m P? DW=W? A @ @)_鈇& e:   낃 (  - 3 E`E& N U%@"wv?Err 60 stack overflowed ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789fromin routine "" line ?Err (PC= @ 3@œ \w@E d*t"63 Dt~ *pt~3 r3 p3 X 3\rwpj nU   U p`5 \\\&\\\&\\\& \ \ \\\\ \\?\\2& & e:  STMT , %tw %t&& fAP  t\ %te3d & 6 35 5  Xf&j  35w"ȋw> 5,4( 54-  pt~ p&朢d h  3 & F  5@a3 s 5@55& &e& w  @ 3@3 r3 p3!  #p   3 3||| 11 Floating underflow6 Output conversion error4 Computed goto out of range 12 Floating zero divide2 Integer zero divide3 Compiler generated error16 Wrong number of arguments 13 Sqrt of negative number1 Integer overflow 10 Floating overflow5 Input conversion error14 Undefined exponentiation operation15 Log of zero or negative number7 Incompatible object modules553 List directed I/O syntax error=61 Illegal memory reference20 Invalid logical unit number21 Out of available logical unitS22 Input record too long23 Hardware I/O error?63 Illegal instruction trap24 Attempt to read/write past end of file25 Attempt to read after write26 Recursive I/O not allowed-45 Incompatible variable and format types27 Attempt to use device not in system31 No available I/O channel28 Open failed for file29 No room for device handler$36 Bad file specification string,44 2nd record request in ENCODE/DECODE 32 Fmtd-unfmtd-random I/O to same file!33 Attempt to read past end of record"34 Unfmtd I/O to TT or LP%37 Random access read/write before define file&38 Random I/O not allowed to TT or LP'39 Record larger than record size in define file(40 Request for block larger than 65535)41 Define file attempted on open unit#35 Attempt to output to read only file30 No room for buffers*42 Memory overflow compiling object time format.46 Infinite format loop+43 Syntax error in object time format149 Endfile on random file/47 Attempt to store outside partition048 Unit already open@64 Virtual array initialization failureA65 Virtual array mapping errorB66 Unsupported OPEN/CLOSE keyword or optionC67 Unsupported OPEN/CLOSE keyword or option351 Inconsistent OPEN/CLOSE statement specifications452 Attempt to delete a protected file250 Keyword value error in OPEN statementD68 Direct access record size error0 Non-FORTRAN error call %c m@ @ ы@ e"    ;3  ,FF3 F V  {` `3 V3 Tl ,FFBFF R w  3oAsk R g  L  X[ `X DTB ;  J  @ B   D \$w $󮉳V- D  ׬RDD 3 V3  3 F  `P B3 \ n@  bEx