.; F4P MODULE DATA. .; .; HRT 2-JAN-79 .; .PS 60,70 .LM 0;.RM 70 .CENTER 70; Fortran-IV-Plus OTS Module Data .s 2 .NF .TS 8,16,24,32,40,48,56 Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $ABS $$OTSI $ABS 7 Real absolute value $ACOS $$OTSI $$ATAN $ACOS 52 Arc Cosine $$OTSD $$SQRT $ADC $$OTSI ADCC$ 29 Add/Subtract complex ADCP$ ADCS$ SBCC$ SBCP$ SBCS$ $AGO $$OTSI $SAVPX $AGO 12 Assigned GOTO $SAVP2 $AIMAG $$OTSI $AIMAG 6 Imaginary part $AINT $$OTSI $AINT 9 Real truncation $ALOG $$OTSI $ALG10 66 Real log $$OTSD $ALOG $$ALG1 $$ALOG $AMAX1 $$OTSI $AMAX1 49 Maximum of reals $AMIN1 $MAX1 $MIN1 $AMIN0 $$OTSI $AMAX0 24 Minimum of reals $AMIN0 $AMOD $$OTSI $AMOD 15 Real modulo $ANINT $$OTSI $ANINT 24 Real and double $DNINT nearest integer $ARYCK $$OTSI $SAVP2 ARYCK$ 12 Array subscript checking $ASIN $$OTSI $$ATAN $ASIN 47 Arc sine $$OTSD $$SQRT $ASSIG $$OTSI $FNBST ASSIGN 49 Assign subroutine $GETFI $OTSV $ATAN $$OTSI $ATAN 120 Arc tangent $$OTSD $ATAN2 $$ATAN $$ATN2 $BACKS $$OTSI $GETFI BKSP$ 75 BACKSPACE statement $OTSV $SAVP1 .GETSQ .POINT $CABS $$OTSI $$SQRT $CABS 51 Complex absolute value .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $CEXP $$OTSI MLCS$ $CEXP 38 Complex exponential $$COS $$EXP $$SIN $CGO $$OTSI CGO$ 18 Computed GOTO statement $CKRCN $$OTSI $ASVAR 42 Check record number, $CKRCN update associated variable $CLOG $$OTSI $CABS $CLOG 28 Complex logarithm $FCALL $$ALOG $$ATN2 $CLOSE $$OTSI $FCHNL $CLOSE 46 Close files $OTSV .CLOSE .DLFNB .PRINT $CLSCA $$OTSI $CLOSE CLOSE 9 Close subroutine $CLSST $$OTSI $CLOSE CLOS$ 152 Close statement $$OTSD $ERXIT $FCHNL $OTSV $CMC $$OTSI CMCC$ 22 Compare complex CMCP$ CMCS$ $CMPLX $$OTSI $CMPLX 9 Complex from reals $CONJG $$OTSI $CONJ 10 Complex conjugate $CONVI $$FIO2 ICI$ 162 Integer and Octal conversions $$FIOC ICO$ $$FIOD OCI$ $$FIOI OCO$ $ECI $CONVL $$FIO2 LCI$ 35 Logical conversions $$FIOC LCO$ $$FIOD $$FIOL $CONVR $$FIO2 $ECI DCO$ 558 Real conversions $$FIOC ECO$ $$FIOD FCO$ $$FIOR GCO$ RCI$ $COSH $$OTSI $$EXP $COSH 77 Hyperbolic cosine $$OTSD $CSIN $$OTSI $$COS $CCOS 51 Complex sine $$EXP $CSIN $$SIN .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $CSQRT $$OTSI $CABS $CSQRT 66 Complex square root $FCALL $$SQRT $DABS $$OTSI $DABS 9 Double absoulute value $DACOS $$OTSI $$DATN $DACOS 54 Double arc cosine $$OTSD $$DSQR $DASIN $$OTSI $$DATN $DASIN 49 Double arc sine $$OTSD $$DSQR $DATAN $$OTSI $DATAN 158 Double arc tangent $$OTSD $DATN2 $$DATN $DATE $$OTSI DATE 70 Date subroutine $$OTSD $DBLE $$OTSI $DBLE 7 Double from real $DCOSH $$OTSI $$DEXP $DCOSH 79 Double hyperbolic cosine $$OTSD $DDIM $$OTSI $DDIM 17 Double positive difference $DEFF $$OTSI $GETFI DEFF$ 64 Define file/Find statments $INITI FIND$ $OTSV $SAVP3 $SAVP6 $DIM $$OTSI $DIM 13 Positive difference $DINT $$OTSI $DINT 7 Double truncation $DLOG $$OTSI $DLG10 96 Double logarithm $$OTSD $DLOG $$DLG1 $$DLOG $DMIN1 $$OTSI $DMAX1 36 Minimum of doubles $DMIN1 $DMOD $$OTSI $DMOD 17 Double modulo $DPROD $$OTSI $DPROD 12 Double product of reals $DSIGN $$OTSI $DSIGN 15 Double transfer of sign $DSIN $$OTSI $DCOS 116 Double sine $$OTSD $DSIN $$DCOS $$DSIN $DSINH $$OTSI $$DEXP $DSINH 79 Double hyperbolic sine $$OTSD $DTAN $$OTSI $$DCOS $DTAN 22 Double tangent $$OTSD $$DSIN $$DTAN $DTANH $$OTSI $$DEXP $DTANH 78 Double hyperbolic tangent $DVC $$OTSI DVCC$ 38 Divide complex DVCP$ DVCS$ $DVJ $$OTSI DVJC$ 26 Divide I*4 DVJP$ DVJS$ .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $ENCDE $$OTSI $FIO DEFE$ 43 Encode/Decode statements $INITI DEF$ $SAVP3 ENFE$ $SAVP5 ENF$ $ENDF $$OTSI $GETFI ENDF$ 32 ENDFILE statement $OPEN $PUTS $SAVP1 $ERRLO $$OTSI $ATT $BINAS 219 Error message logging $$OTSD $DET $ERRLG $DET1L $ERRZA $ERRNL $FILL $ERRW1 $OTSV $R50 .SAVR1 $ERRMO $$OTSI $ATT 113 Error message output $DET $DETIC $DET1L $ERRNL $ERRW1 $REAMO $ERRPT $$OTSI $CLOSE EXIT$ 244 Error reporting $$OTSD $ERRLG $ERR $IOEXI $ERRA $OTSV $ERRAA .SAVR1 $ERRB $ERXIT $EXIT $EXIT$ $SST0 $SST1 $SST2 $SST3 $SST4 $SST5 $SST6 $SST7 $ERRTB(D) $ERRTE(D) $ERRSE $$OTSI $OTSV ERRSET 95 ERRSET subroutine $ERRSN $$OTSI $OTSV ERRSNS 30 ERRSNS subroutine $$OTSD $ERRTS $$OTSI $OTSV ERRTST 22 ERRTST subroutine $EXIT $$OTSI $OTSV EXIT 26 EXIT subroutine .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $EXP $$OTSI $DEXP 146 Real exponential $$OTSD $EXP $$DEXP $$EXP $FCALL $$OTSI $FCALL 14 Internal service entry $FCHNL $$OTSI $OTSV $FCHNL 61 Find logical unit control block $SAVPX $GETFI $IOEXI $FDBSE $$OTSI $GETFI FDBSET 95 FDBSET subroutine $$OTSD $OTSV $FIO $$FIOC $OTSV $FIO 724 Format interpreter $$FIOD $SVFPP $$FIO2 $$FIOI $$FIOL $$FIOR $FLOAT $$OTSI $FLOAT 8 Integer*2 to Real $FLOTJ $$OTSI $DFLTI 17 Integer*4 to Real $DFLTJ $FLOTJ $FMTCV $$OTSI $OTSV FMTCV$ 326 Object time format compiler. $SAVP0 Used only for formats stored in arrays. $FNBST $$OTSI $FLDEF $FNBST 70 File name block setup $OTSV .CSI1 .CSI2 .PARSE $FPERR $$OTSI $OTSV $FPERR 54 FPP interrupt handler $FPPUT $$OTSI $FPERR $STFPP 37 FPP utilities. $SVFPP $GETR $$OTSI $ASVAR $GETR 17 Get direct access record $CKRCN .GET $GETS $$OTSI $IOEXI $GETS 34 Get sequential record .GETSQ $IABS $$OTSI $IABS 8 Integer*2 absolute value $IAND $$OTSI $IAND 7 Integer*2 AND $IDATE $$OTSI IDATE 29 IDATE subroutine $IDIM $$OTSI $IDIM 10 Integer*2 positive difference $IEOR $$OTSI $IEOR 6 Integer*2 exclusive OR $IFIX $$OTSI $IDINT 8 Real to Integer*2 $IFIX $INT .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $INITI $$OTSI $FNCHL EOLST$ 138 Initialize Read/Write $$OTSD $OPEN $INITI $OTSV $SAVP0 $INOT $$OTSI $INOT 4 Integer*2 NOT $IOARY $$OTSI $OTSV IOAA$ 72 Array Input/Output module $IOELE $$OTSI $OTSV IOAB$ 155 I/O Element transmission IOAC$ IOAD$ IOAH$ IOAI$ IOAJ$ IOAL$ IOAM$ IOAR$ IOVB$ IOVC$ IOVD$ IOVI$ IOVJ$ IOVL$ IOVM$ IOVR$ $IOR $$OTSI $IOR 5 Integer*2 inclusive OR $IRAD5 $$OTSI $R50WD IRAD50 15 IRAD50 subroutine $IRF $$OTSI $FIO IRFE$ 33 Direct access formatted READ $GETR IRF$ $INITI $SAVP4 $SAVP6 $IRU $$OTSI $GETR IRUE$ 38 Direct access unformatted READ $INITI IRU$ $SAVP3 $SAVP5 $ISF $$OTSI $FIO ISFE$ 29 Sequential formatted READ $GETS ISF$ $INITI $SAVP2 $SAVP4 .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $ISHFT $$OTSI $ISHFT 7 Integer*2 shift $ISIGN $$OTSI $ISIGN 12 Integer*2 transfer of sign $ISL $$OTSI $GETS ISLE$ 46 List directed read. $INITI ISL$ $LSTI $SAVP1 $SAVP3 $ISU $$OTSI $GETS ISUE$ 76 Sequential unformatted read $INITI ISU$ $SAVP1 $SAVP3 $I4FIX $$OTSI $JDINT 12 Real to Integer*4 $JABS $$OTSI $JABS 11 Integer*4 absolute value $JAND $$OTSI $JAND 13 Integer*4 AND $JDIM $$OTSI $JDIM 23 Integer*4 positive difference $JEOR $$OTSI $JEOR 11 Integer*4 exclusive OR $JMIX $$OTSI $AJMN0 44 Integer*4 minimum and $AJMX0 maximum $JMAX0 $JMIN0 $JMOD $$OTSI $JMOD 22 Integer*4 modulo $JNOT $$OTSI $JNOT 7 Integer*4 NOT $JOR $$OTSI $JOR 9 Integer*4 Inclusive OR $JSHFT $$OTSI $JSHFT 30 Integer*4 shift $JSIGN $$OTSI $JSIGN 27 Integer*4 transfer of sign $LSTI $$FIOC $OTSV $LSTI 421 List-directed input $$FIOD $$FIO2 $$FIOI $$FIOL $$FIOR $LSTO $$FIOC $OTSV $LSTO 205 List-directed output $$FIOD $$FIO2 $$FIOI $$FIOL $$FIOR $MADBN $$OTSI MAKN$ 58 N-dimensional adjustable array $MADB1 $$OTSI MAK1$ 34 1-dimensional adjustable array $MADB2 $$OTSI MAK2$ 56 2-dimensional adjustable array $MAX0 $$OTSI $MAX0 10 Integer*2 maximum .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $MIN0 $$OTSI $MIN0 10 Integer*2 minimum $MKADB $$OTSI $SAVPC MKA1$ 76 Dynamic ADB allocation $SAVP0 MKA2$ (Not in OTS manual) $MLC $$OTSI MLCC$ 27 Multiply complex MLCP$ MLCS$ $MLJ $$OTSI MLJC$ 24 Multiply Integer*4 MLJP$ MLJS$ $MOD $$OTSI $IMOD 11 Integer*2 modulo $NAM $$OTSI $OTSV NAM$ 15 Traceback chain processing $NAM $NGC $$OTSI NGCC$ 16 Negate complex NGCP$ NGCS$ $NINT $$OTSI $IDNNT 19 Nearest integer $JDNNT $NINT $NJNT $OPEN $$OTSI $CLOSE $FLDEF 246 Default file open $ERXIT $OPEN $IOEXI $OPEN$ .GTDID .OPFNB .SAVR1 $OPNST $$OTSI $CLOSE OPEN$ 433 OPEN statement $$OTSD $ERXIT $FCHNL $FNBST $OPEN$ $OTSV .MRKDL $ORF $$OTSI $FIO ORFE$ 35 Direct access formatted WRITE $INITI ORF$ $PUTR $PUTRI $SAVP4 $SAVP6 $ORU $$OTSI $INITI ORUE$ 40 Direct access unformatted $PUTR ORU$ WRITE $PUTRI $SAVP3 $SAVP5 .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $OSF $$OTSI $FIO OSFE$ 36 Sequential formatted WRITE $INITI OSF$ $PUTS $SAVP2 $SAVP4 $OSL $$OTSI $INITI OSLE$ 38 List-directed WRITE $LSTO OSL$ $PUTS $SAVP1 $SAVP3 $OSU $$OTSI $INITI OSUE$ 78 Sequential unformatted WRITE $PUTS OSU$ $SAVP1 $SAVP3 $OTI $$OTSI $ERRTB OTI$ 76 OTS initialization $$OTSD $ERRTE $OTSV $STFPP .FINIT $OTV $$OTSI $SST0 F.BFHD OTS Impure area (size may vary) $$AOTS $SST1 F.FDB $$DEVT $SST2 $AOTS $$DEVU $SST3 $OTI $$FSR1 $SST4 $OTIS $$IOB1 $SST5 $POLSH $$IOB2 $SST6 $ACCPT $$OBF1 $SST7 $MOPRM $$OBF2 .FSRCB $MXFNL .FSRPT $NAMC $OTSVA $PRINT $READ $SEQC $SST $TYPE .MOLUN .NLUNS $PUTR $$OTSI $ASVAR $PUTR 50 Put Direct Access record $CKRCN $PUTRI .POSRC .PUT $PUTS $$OTSI .PUTSQ $PUTS 16 Put sequential record .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $PWCJ $$OTSI DVCS$ PWCIC$ 158 Complex to integer MLCS$ PWCIP$ exponentiation PWCIS$ PWCJC$ PWCJP$ PWCJS$ $PWDD $$OTSI $$DEXP PWDDC$ 71 Floating to floating $$DLOG PWDDP$ exponentiation PWDDS$ PWDRC$ PWDRP$ PWDRS$ PWRDC$ PWRDP$ PWRDS$ $PWII $$OTSI PWIIC$ 53 Integer*2 to Integer*2 PWIIP$ exponentiation PWIIS$ $PWJJ $$OTSI MLJS$ PWIJC$ 139 Integer*4 to Integer*4 PWIJP$ exponentiation PWIJS$ PWJIC$ PWJIP$ PWJIS$ PWJJC$ PWJJP$ PWJJS$ $PWRI $$OTSI PWDIC$ 111 Floating to Integer PWDIP$ exponentiation PWDIS$ PWDJC$ PWDJP$ PWDJS$ PWRIC$ PWRIP$ PWRIS$ PWRJC$ PWRJP$ PWRJS$ $PWRR $$OTSI $$ALOG PWRRC$ 55 Real to real $$EXP PWRRP$ exponentiation PWRRS$ $RAD50 $$OTSI $R50WD RAD50 11 RAD50 subroutine $RAN $$OTSI $RAN RAN 7 RAN subroutine $RANDO $$OTSI $RAN 38 Random function .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $RANDU $$OTSI $RAN RANDU 11 RANDU subroutine $REAL $$OTSI $REAL 5 Real from complex $REWIN $$OTSI $GETFI REWI$ 35 Rewind statement $OTSV $SAVP1 .POINT $RJMIX $$OTSI $JMAX1 27 Real maximum or minimun $JMIN1 of Integer*4 $R50 $$OTSI $R50 44 Radix-50 to ASCII $$OTSD $R50AS $$OTSI $R50 R50ASC 6 R50ASC subroutine $R50WD $$OTSI $R50WD 44 Radix 50 routine (not in OTS manual) $SAVRG $$OTSI $SAVPC 53 Register save routines $SAVPX $SAVP0 $SAVP1 $SAVP2 $SAVP3 $SAVP4 $SAVP5 $SAVP6 $SECND $$OTSI SECNDS 37 SECNDS subroutine $SIGN $$OTSI $SIGN 11 Real transfer of sign $SIN $$OTSI $COS 94 Real sine $$OTSD $SIN $$COS $$SIN $SINH $$OTSI $$EXP $SINH 77 Hyperbolic sine $$OTSD $SNGL $$OTSI $SNGL 14 Real from double $SQRT $$OTSI $DSQRT 43 Square root $$OTSD $SQRT $$DSQR $$SQRT $STPPA $$OTSI $ERRLG PAUS$ 31 STOP/PAUSE statements $$OTSD $EXIT STOP$ $SAVP2 .page Module Psects Refer Entry Size Description Name ences points in words ====== ====== ====== ====== ==== ==================== $SWPXY $$OTSI SWP11$ 95 Stack swap SWP12$ SWP14$ SWP21$ SWP22$ SWP24$ SWP41$ SWP42$ SWP44$ $TAN $$OTSI $$COS $TAN 20 Real tangent $$OTSD $$SIN $$TAN $TANH $$OTSI $$EXP $TANH 76 Hyperbolic tangent $TIME $$OTSI TIME 43 TIME subroutine $TSC $$OTSI TSCC$ 16 Test complex TSCP$ TSCS$ $USERE $$OTSI $OTSV USEREX 6 USEREX subroutine .;End of file