RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page i M o d u l e I n d e x Module page Module page Module page Module page CCLOSE ..... 1 MPRDM ..... 16 PADSTR ..... 27 TFREND ..... 39 CCREAT ..... 2 MPREND ..... 17 RCREAD ..... 28 TFRFLD ..... 40 COPEN ..... 3 MPRGF ..... 18 RCWRIT ..... 29 TFRFS ..... 41 CREAD ..... 4 MPRMEN ..... 19 RSWRIT ..... 30 TFRGET ..... 42 CWRITE ..... 5 MPRMES ..... 20 SBUILD ..... 31 TFRMES ..... 44 GSUBS ..... 6 MPRMN ..... 21 SCVTLU ..... 32 TFROPN ..... 45 HEADER ..... 8 MPRPM ..... 22 SWRITE ..... 33 TFRPOS ..... 46 IGTCHR ..... 9 MPRPP ..... 23 SWRITS ..... 35 TFRPUT ..... 47 IGTKEY ..... 10 MPRPS ..... 24 TFRCLR ..... 36 TFRRES ..... 48 INFTIO ..... 12 MPRRST ..... 25 TFRCLS ..... 37 TFRRU ..... 49 INPMOD ..... 13 MPRSAV ..... 26 TFRDEF ..... 38 TTBCLR ..... 50 MPRCM ..... 15 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page ii G l o b a l I n d e x Global page Global page Global page Global page IFUN ..... 51 M ..... 52 MPRTGF ..... 53 T ..... 54 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page iii NOTES: 1) The function INFTIO() must be called before any other TRAMPC routines, as the function will initialize the simulated FORTRAN I/O system. 2) When overlaying theTRAMPC system, the functions TFROPN, MPRMEN, and MPRMN must be included in the root segment. TFROPN and MPRMEN contain the global declaration of the simulated COMMON block. MPRMN is the menu controlling function that calls the function defined in the file *.GMX. 3) The system header and Whitesmith's error messages use the name pointed at by " _pname". This, by default is a five character name "error". Included are the files panme.mac and pname.obj. Link this object file with your program and you will be able to copy a name to the area pointed at by _panme of up to 9 char. This copy statement should be one of the first statements in your program. 4) The function MPREXE() which is defined in the file *.GMX is generated by MPR compiler. This function is generated in FORTRAN, and must be re-written in C using a series of if-then-else's. The calling sequence and a sample routine follows: /* * COUNT mprexe(funnam) * TEXT *funnam; * * System(s): SAMPLE * * * Function: For correct functioning of the MPR-menu routines, * compile this routine (with or without line-numbers), * and link it to the application program which uses * the MPR-menu's * * Inputs: funnam - pointer to function name string to be called * * Outputs: none * * Returns: completion code from called routine * * Leave Error: * * Author: J.W. Gatschuff * W.N.R.E., A.E.C.L. * Pinawa, Maitoba, R0E 1L0 * (204) 753-2311 * * History: * Version 1.0 - J.W. Gatschuff ~ 11-DEC-85 * - Original routine */ #include COUNT mprexe(funnam) TEXT *funnam; { COUNT iret; if(cmpstr(funnam, "CLCNTL")) iret = clcntl(); else if(cmpstr(funnam, "CLPUDT")) iret = clpudt(); else if(cmpstr(funnam, "CLPDSP")) iret = clpdsp(); else if(cmpstr(funnam, "CLTAB")) iret = cltab(); else if(cmpstr(funnam, "CLGRPH")) iret = clgrph(); else if(cmpstr(funnam, "CLXTND")) iret = clxtnd(); else if(cmpstr(funnam, "CLUMAC")) iret = clumac(); return(iret); } RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 1 Module name: CCLOSE Program source language: C Module description from source: * COUNT cclose(unit) * COUNT unit; * * Description : This routine simulates the fortran close function. * * Arguments : UNIT = unit number to close * * Returns : >0 if successful. * -1 or RT11 error or'd with 0400 if failed. * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : cclose.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPREND MPRRST MPRSAV TFRCLS TFREND Other globals referenced are: C$RETS FCLOSE FORTIO Module size in characters: 74 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 2 Module name: CCREAT Program source language: C Module description from source: * COUNT ccreat(unit, file) * COUNT unit; * TEXT *file; * * Description : This routine is used to simulate open/new fortran routine. * If file already exists, it is predeleted. * * Arguments : unit = unit number to close * file = file name to be opened. * * Returns : >= 0 if successful. * -1 or RT11 error or'd with 0400 if failed. * * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : ccreat.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPRSAV Other globals referenced are: CREATE C$RETS FINIT FORTIO Module size in characters: 118 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 3 Module name: COPEN Program source language: C Module description from source: * COUNT copen(unit, file) * COUNT unit; * TEXT *file; * * Description : This routine is used to simulate open/old fortran routine. * * Arguments : unit = unit number to close * file = file name to be opened. * * Returns : >= 0 if successful * -1 or RT11 error or'd with 0400 if failed * * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : copen.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPRMEN MPRRST MPRSAV TFROPN Other globals referenced are: C$RETS FINIT FORTIO OPEN Module size in characters: 118 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 4 Module name: CREAD Program source language: C Module description from source: * VOID cread(unit, buf, len) * COUNT unit, len; * TEXT *buf; * * Description : This routine reads character input on * simulated fortran logical unit number. * * Arguments : unit = unit number to read from. * text = buffer to be filled. * len = number of bytes to receive. * * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : cread.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPRGF Other globals referenced are: C$RETS FORTIO GETL STDIN Module size in characters: 78 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 5 Module name: CWRITE Program source language: C Module description from source: * VOID cwrite(unit, buf, len) * COUNT unit, len; * TEXT *buf; * * Description : This routine writes character output on * simulated fortran logical unit number. * * Arguments : unit = unit number to write to. * text = buffer to be sent. * len = number of bytes to send. * * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : cwrite.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPRDM MPRSAV SWRITS TFRGET Other globals referenced are: C$RETS FORTIO PUTC PUTCH PUTL PUTLIN Module size in characters: 116 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 6 Module name: GSUBS Program source language: C Module description from source: * BOOL gsubs (srcstr, ipos, sepch, resstr, lstr) * TEXT *srcstr, *sepch, *resstr; * COUNT *ipos; * COUNT lstr; * * Description : Routine to get a substring out of a string starting at * a given position and ending with the first occurrance * of the separating character. * Leading and trailing spaces are deleted. * If the first and last characters of the result string * are quotes then the quotes are omitted; this is the * only way to get leading and trailing spaces in the * result string. * * Arguments : srcstr = String containing source-string * ipos = input: * Integer - position in SCRSTR where RESSTR starts * output: * Integer - position plus 1 of separating char * in SRCSTR, or * position of end-of-string character (=zero byte) * sepch = String containing the separating character * resstr = String receiving the result-string * lstr = Integer - the maximum number of characters placed * into RESSTR * gsubs = Boolean - end of string flag: * 0 - normal return * -1 - end of string detected * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V2.0 Date : 12-jan-1983 * * Module name : GSUBS.FOR * * Package : RT11-LIBRARY * * Updates : name version * * description : R. Beetz V2.0 * .no maximum in RESSTR * .LSTR argument added * .quote handling * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 7 Module name: GSUBS * * Version : V1.0 Date : 22-OCT-85 * * Module name : gsubs.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPRGF Other globals referenced are: CPYBUF C$RET C$SAV Module size in characters: 218 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 8 Module name: HEADER Program source language: C Module description from source: * VOID header( cstr , rstr , outstr ) * TEXT *cstr, *rstr, *outstr; * * Description : Builds a HEADER string of 79 characters with the following * format : CSTR padded or truncated to 53 characters + blank * RSTR padded or truncated to 9 characters + blank * 9 character date string + blank * 5 character time string + zero-byte * * Arguments : cstr = STRING of free text * rstr = STRING containing (sub)routine information * outstr = STRING returning the constructed HEADER * * Author : T.Pijl * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 7-jan-83 * * Module name : HEADER.FOR * * Updates : name version * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : header.c * * Package : TRAMPC * * Updates : name version * description : This module calls: PADSTR SBUILD This module is called by: MPRDM Other globals referenced are: CPYBUF C$RETS DATE FCALL STRPAD TIME Module size in characters: 190 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 9 Module name: IGTCHR Program source language: C Module description from source: * METACH igtchr() * * Description : Get a character out the input ringbuffer. Mode of input * follows the JSW. See description of routine INPMOD. * If no char is available in the buffer and mode is NOWAIT * -1 is returned. * * Arguments : none * * Author : R. Beetz * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 24-dec-82 * * Module name : IGTCHR * * Package : RT11-LIBRARY * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : igtchr.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: IGTKEY TTBCLR Other globals referenced are: C$RETS FCALL ITTINR Module size in characters: 58 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 10 Module name: IGTKEY Program source language: C Module description from source: * METACH igtkey() * * Description : Checks the terminal input buffer if a key has been pressed. * * Arguments : Function value * = 0 if no key is pressed, * = ASCII value of key pressed, * If KEYPAD key is pressed = * -1 = '1' , -7 = '7' , -13 = 'PF3' , -19 = '^' * -2 = '2' , -8 = '8' , -14 = 'PF4' , -20 = 'v' * -3 = '3' , -9 = '9' , -15 = '-' , -21 = '<' * -4 = '4' , -10 = '0' , -16 = ',' , -22 = '>' * -5 = '5' , -11 = 'PF1' , -17 = 'ENTER' * -6 = '6' , -12 = 'PF2' , -18 = '.' * NB. An escape can not be detected. If a CR is found the * next character in the buffer is lost (normally the LF * added by the operating system) * * Author : T.Pijl * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 7-dec-82 * * Module name : IGTKEY.FOR * * Package : RT11-LIBRARY * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : igtkey.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: IGTCHR This module is called by: TFRGET RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 11 Module name: IGTKEY Other globals referenced are: C$RETS C$SWIT Module size in characters: 302 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 12 Module name: INFTIO Program source language: C Module description from source: * VOID inftio() * * Description : This routine will initialize the system to provide * simulated fortran I/O. * * Arguments : none * * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : inftio.c * * Package : TRAMPC * * Updates : name version * * description : Other globals referenced are: C$RETS FORTIO Module size in characters: 46 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 13 Module name: INPMOD Program source language: C Module description from source: * VOID inpmod (modstr) * TEXT *modstr; * * Description : Set mode for terminal input * * Arguments : modstr = STRING with keywords seperated by a '+' * keywords : WAIT : wait for character typed * NOWAIT : do not wait for character typed * NORMAL : same as 'ECHO+WAIT' * ECHO : echo characters typed * NOECHO : do not echo characters typed * (only CTRL-C and CTRL-O are handled * normallly) * LOWER : lower case characters are accepted * NOLOWER : lower case characters are converted * to upper case * * NB. for input with routine IGTKEY or IGTCHR * NOECHO + WAIT = returns after each character and * not when buffer is empty * NOECHO + NOWAIT = returns after each character or * when buffer is empty * ECHO + WAIT = returns after CR * ECHO + NOWAIT = returns after CR or * when buffer is empty * for normal line input the WAIT setting has no effect * * Author : R. Beetz * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 23-dec-82 * * Module name : INPMOD.FOR * * Package : RT11-LIBRARY * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : inpmod.c * RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 14 Module name: INPMOD * Package : TRAMPC * * Updates : name version * * description : This module calls: SCVTLU This module is called by: TFRGET TTBCLR Other globals referenced are: C$RETS FCALL INDEX Module size in characters: 354 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 15 Module name: MPRCM Program source language: C Module description from source: * VOID mprcm() * * Description : Routine to clear message area * This routine is reserved for MPR-subroutines only * * Arguments : none * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : MPRCM.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprcm.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: SWRITE This module is called by: MPRGF MPRMES Other globals referenced are: C$RETS M Module size in characters: 120 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 16 Module name: MPRDM Program source language: C Module description from source: * VOID mprdm (ipcl) * COUNT ipcl; * * Description : Routine to display current menu * This routine is reserved for MPR-subroutines only * * Arguments : ipcl = INTEGER indicating display-mode: * 0 - do not execute display * 1 - display completely * 2 - display partial if IBTFLG=0 * 3 - display partial regardless of IBTFLG * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * Version : V1.1 Date : 29-aug-83 * * Module name : MPRDM.FOR * * Package : TRAMP * * Updates : name F.A.Minkema version V1.1 * description : For IPCL=1 display completely regardless of IBTFLG * Set IBTFLG=0 for IPCL=3 only * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprdm.c * * Package : TRAMPC * * Updates : name version * description : This module calls: CWRITE HEADER RCREAD SWRITE This module is called by: MPRGF MPRMN Other globals referenced are: C$RETS IFUN M .PNAME Module size in characters: 698 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 17 Module name: MPREND Program source language: C Module description from source: * VOID mprend() * * Description : Routine to close all files opened by MPR-calls * * Arguments : none * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 10-JUN-1983 * * Module name : MPREND.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprend.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: CCLOSE Other globals referenced are: C$RETS M Module size in characters: 24 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 18 Module name: MPRGF Program source language: C Module description from source: * VOID mprgf(comstr) * TEXT *comstr; * * Description : Routine to get one or more functions from screen * This routine is reserved for MPR-subroutines only * * Arguments : comstr = STRING returning the rest of the command string * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * Version : V1.1 Date : 10-FEB-1983 * * Module name : MPRGF.FOR * * Package : TRAMP * * Updates : name version * description : F.A.Mimkema V1.1 * IFUN argument moved to common * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprgf.c * * Package : TRAMPC * * Updates : name version * description : This module calls: CREAD GSUBS MPRCM MPRDM SCVTLU SWRITE This module is called by: MPRMN Globals defined herein are: MPRTGF Other globals referenced are: CMPSTR CPYBUF CPYSTR C$RETS FCALL INDEX LENSTR M Module size in characters: 1304 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 19 Module name: MPRMEN Program source language: C Module description from source: * VOID mprmen(file, lunit) * TEXT *file; * COUNT lunit; * * Description : Main routine of the MPR-subroutine package * Opens file, reads general info records, and controls menu * * Arguments : file = STRING containing the file-name without extension * lunit = INTEGER logical unit number * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * Version : V1.2 Date : 10-feb-1983 * * Module name : MPRMEN.FOR * * Package : TRAMP * * Updates : name version * description : T.Pijl V1.1 * Possibility to return to previous level in FSB function * F.A.Minkema V1.2 * Menu processing control provided by subroutine MPRMN * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprmen.c * * Package : TRAMPC * * Updates : name version * description : This module calls: COPEN MPRMN RCREAD SWRITE Globals defined herein are: IFUN M Other globals referenced are: CMPBUF CPYBUF CPYSTR C$RETS ERROR SCNSTR Module size in characters: 876 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 20 Module name: MPRMES Program source language: C Module description from source: * VOID mprmes(mess) * TEXT *mess; * * Description : Routine to write a message on the current menu * * Arguments : mess = STRING containing the message to be printed * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : MPRMES.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprmes.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: MPRCM SWRITE Other globals referenced are: CPYBUF CPYSTR C$RETS LENSTR M Module size in characters: 316 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 21 Module name: MPRMN Program source language: C Module description from source: * VOID mprmn(inwpag) * BOOL inwpag; * * Description : Routine of the MPR-subroutine package that controls * menu processing according users commands * This routine is reserved for MPR-subroutines only * * Arguments : inwpag = INTEGER to indicate whether the menu must be * (re-)displayed or not (1 or 0) * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.1 Date : 22-JUL-83 * * Module name : MPRMN.FOR * * Package : TRAMP * * Updates : name version * R.Beetz V1.1 * description : breakthrough bug solved * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprmn.c * * Package : TRAMPC * * Updates : name version * description : This module calls: MPRDM MPRGF MPRPM MPRPP MPRPS SWRITE This module is called by: MPRMEN MPRRST Other globals referenced are: C$RETS C$SWIT ERROR M MPREXE Module size in characters: 524 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 22 Module name: MPRPM Program source language: C Module description from source: * VOID mprpm(nrec) * COUNT nrec; * * Description : Routine to initialize settings for a specified menu * This routine is reserved for MPR-subroutines only * * Arguments : nrec = INTEGER record number of menu name-record * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : MPRPM.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprpm.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: RCREAD This module is called by: MPRMN Other globals referenced are: CPYSTR C$RETS ERROR M Module size in characters: 286 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 23 Module name: MPRPP Program source language: C Module description from source: * COUNT mprpp() * * Description : Routine to 'pop' a record number from the menu-stack * This routine is reserved for MPR-subroutines only * * Returns : MPRPP = INTEGER returning the record number of a menu * name-record from the menu-stack, * zero record number means: stack is empty * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : MPRPP.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprpp.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPRMN Other globals referenced are: C$RETS M Module size in characters: 72 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 24 Module name: MPRPS Program source language: C Module description from source: * VOID mprps() * * Description : Routine to 'push' the name-record number of the current * menu on the menu-stack * This routine is reserved for MPR-subroutines only * * Arguments : none * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : MPRPS.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprps.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPRMN Other globals referenced are: C$RETS ERROR M Module size in characters: 106 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 25 Module name: MPRRST Program source language: C Module description from source: * VOID mprrst(file, lunit, inwpag) * TEXT *file; * COUNT lunit, inwpag; * * Description : Main routine of the MPR-subroutine package after a save. * Restores menu-status and controls menu * * Arguments : file = STRING containing the save-file name without * extension * lunit = INTEGER logical unit number * inwpag = INTEGER indicating whether the menu must be * (re-)displayed or not (1 or 0). * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 10-feb-1983 * * Module name : MPRRST.FOR * * Package : TRAMP * * Updates : name version * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprrst.c * * Package : TRAMPC * * Updates : name version * description : This module calls: CCLOSE COPEN MPRMN RCREAD SWRITE Other globals referenced are: CPYSTR C$RETS ERROR M SCNSTR Module size in characters: 292 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 26 Module name: MPRSAV Program source language: C Module description from source: * VOID mprsav(file) * TEXT *file; * * Description : Routine to save the menu-status of MPR * * Arguments : file = STRING containing the save-file name without * extension * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 10-feb-1983 * * Module name : MPRSAV.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : mprsav.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: CCLOSE CCREAT COPEN CWRITE RCREAD SWRITE Other globals referenced are: CPYBUF CPYSTR C$RETS ERROR M SCNSTR Module size in characters: 204 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 27 Module name: PADSTR Program source language: C Module description from source: This module is called by: HEADER Other globals referenced are: C$RET C$SAV LENSTR Module size in characters: 42 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 28 Module name: RCREAD Program source language: C Module description from source: * COUNT rcread(unit, recnum, reclen, recbuf) * COUNT unit, recnum, reclen; * TEXT *recbuf; * * Description : This routine provides direct access for simulated fortran * I/O. * * Arguments : unit = unit number to read. * recnum = record number to be read. * reclen = record length of file records. * recbuf = buffer to be filled - must be reclen long. * * Returns : > 0 if successful(number of char read s/b RECLEN). * = 0 if end of file. * -1 or RT11 error or'd with 0400 if failed. * * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : rcread.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: MPRDM MPRMEN MPRPM MPRRST MPRSAV TFRFS TFROPN TFRPOS TFRRU Other globals referenced are: C$RETS FORTIO FREAD LSEEK Module size in characters: 94 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 29 Module name: RCWRIT Program source language: C Module description from source: * COUNT rcwrit(unit, recnum, reclen, recbuf) * COUNT unit, recnum, reclen; * TEXT *recbuf; * * Description : This routine provides direct access for simulated fortran * I/O. * * Arguments : unit = unit number to write to. * recnum = record number to be written. * reclen = record length of file records. * recbuf = buffer to be written - must be reclen long. * * Returns : > 0 if successful(number of char written s/b RECLEN). * = 0 if end of file. * -1 or RT11 error or'd with 0400 if failed. * * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : rcwrit.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: TFRRU Other globals referenced are: C$RETS FORTIO FWRITE LSEEK Module size in characters: 92 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 30 Module name: RSWRIT Program source language: C Module description from source: * VOID rswrit(iunit, cc, nr, string) * TEXT *string, *cc; * COUNT iunit, nr; * * Description : This is a repeated string write. It writes a concatination * of NR times STRING to unit IUNIT with the given Fortran * control characters * * Arguments : iunit = unit number to write to (default terminal) * cc = control characters (default ' ') * nr = repeat count * string = the string to be written * Author : R. Beetz * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 16-dec-82 * * Module name : RSWRIT.FOR * * Package : RT11-LIBRARY * * Updates : name version * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : rswrit.c * * Package : TRAMPC * * Updates : name version * description : This module calls: SWRITS This module is called by: TFRCLR TFRFLD TFRPUT Other globals referenced are: C$RETS Module size in characters: 202 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 31 Module name: SBUILD Program source language: C Module description from source: * VOID sbuild(out, len, str1, str2, ...., strm, NULL) * TEXT *out, *str1; * COUNT len; * * Description : Concatenates n strings to an output string, but no more * then a given number of characters * * Arguments : OUT = STRING to which all others are concatenated * LEN = (optional) INTEGER maximum number of chars. in OUT * STRm = a STRING to be concatenated * NULL = 0 to indicate end of list * Author : T.Pijl * AKZO PHARMA, Oss Holland * dept. SDA * Version : V1.0 Date : 6-jan-83 * * Module name : SBUILD.MAC * * Package : RTLIB * * Updates : name version * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : sbuild.c * * Package : TRAMPC * * Updates : name version * description : This module is called by: HEADER Other globals referenced are: C$RET C$SAV LENSTR Module size in characters: 76 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 32 Module name: SCVTLU Program source language: C Module description from source: * VOID scvtlu(text) * FAST TEXT *text; * * Description : Routine to convert a string in-place from lower- to * upper-case characters * * Arguments : text = STRING to be converted * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : SCVTLU.FOR * * Package : RT11-LIBRARY * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : scvtlu.c * * Package : TRAMPC * * Updates : name version * * description : This module is called by: INPMOD MPRGF TFRCLR TFRDEF TFRFLD TFRGET TFRMES TFRPOS TFRPUT TFRRES Other globals referenced are: C$RET C$SAV Module size in characters: 44 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 33 Module name: SWRITE Program source language: C Module description from source: * VOID swrite(unit, cc, str1, str2, ..., strn, NULL) * COUNT unit; * TEXT *cc, *str1; * * Description : Write to unit the concatenated strings STR1 to STRn using * the FORTRAN control characters CC * * Arguments : UNIT = unit number to write to (optional default=5) * CC = FORTRAN carriagecontrol string (eg.' ','+$','$') * (optional default=' ') * STRn = STRINGs to write (optional) * NULL = 0 end of string list indicator * Author : R.Beetz * AKZO PHARMA, Oss Holland * dept. SDA * Version : V1.0 Date : 26-oct-82 * * Module name : SWRITE.MAC * * Package : RT11-LIBRARY * * Updates : name version * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : swrite.c * * Package : TRAMPC * * Updates : name version * description : This module calls: SWRITS This module is called by: MPRCM MPRDM MPRGF MPRMEN MPRMES MPRMN MPRRST MPRSAV TFRCLR TFREND TFRFLD TFRGET TFRMES TFRPUT Other globals referenced are: C$RETS Module size in characters: 186 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 34 Module name: SWRITE RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 35 Module name: SWRITS Program source language: C Module description from source: * VOID swrits(unit, cc, string) * TEXT *cc, *string; * COUNT unit; * * Description : This routine is used by the general routine SWRITE * * Arguments : iunit = unit number to write to * cc = two character control character string * string = string to be written * * Author : R. Beetz * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 26-oct-82 * * Module name : SWRITS.FOR * * Package : RT11-LIBRARY * * Compilation/Linking : FORT/NOLINE SWRITS * * Updates : name version * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : swrits.c * * Package : TRAMPC * * Updates : name version * description : This module calls: CWRITE This module is called by: RSWRIT SWRITE Other globals referenced are: C$RETS C$SWIT LENSTR Module size in characters: 228 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 36 Module name: TFRCLR Program source language: C Module description from source: * VOID tfrclr(keywrd) * TEXT/COUNT *keywrd; * * Description : Routine to clear screen and field copy record(s) * * Arguments : keywrd = STRING or INTEGER keyword info: * STRING containing one of the following keywords: * 'ALL' - clear fix, display-only and update field * 'VAR' - clear display-only and update fields * 'DON' - clear display-only fields * 'UPD' - clear update fields * INTEGER row number from which the screen has to * be cleared * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * Version : V1.1 Date : 22-JUL-83 * * Module name : TFRCLR.FOR * * Package : TRAMP * * Updates : name version * R.Beetz V1.1 * description : clear DON-fields without attributes * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrclr.c * * Package : TRAMPC * * Updates : name version * description : This module calls: RSWRIT SCVTLU SWRITE TFRFS TFRRU Other globals referenced are: CMPSTR CPYBUF CPYSTR C$RETS ERROR LENSTR T Module size in characters: 846 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 37 Module name: TFRCLS Program source language: C Module description from source: * VOID tfrcls() * * Description : Closes the TFR library * * Arguments : none * * Author : T.Pijl * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 22-feb-83 * * Module name : TFRCLS.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrcls.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: CCLOSE Other globals referenced are: C$RETS T Module size in characters: 18 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 38 Module name: TFRDEF Program source language: C Module description from source: * VOID tfrdef(field, dfault) * TEXT *field, *dfault; * * Description : Routine to reset a field default value * * Arguments : field = STRING containing the field name * dfault = STRING containing default value for the field * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : TFRDEF.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrdef.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: SCVTLU TFRRU Other globals referenced are: CMPSTR CPYBUF CPYSTR C$RETS ERROR LENSTR T Module size in characters: 244 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 39 Module name: TFREND Program source language: C Module description from source: * VOID tfrend() * * Description : Routine to close the TFR files * * Arguments : none * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.1 Date : 8-NOV-83 * * Module name : TFREND.FOR * * Package : TFR * * Updates : name version * R. Beetz V1.1 * description : video attributes off * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrend.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: CCLOSE SWRITE Other globals referenced are: C$RETS T Module size in characters: 50 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 40 Module name: TFRFLD Program source language: C Module description from source: * VOID tfrfld(field, text) * TEXT *field, *text; * * Description : Routine to display a text in a specified field and (in * case of an update field) change the field copy record * * Arguments : field = STRING containing the field name * text = STRING containing (new) contents for the field * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.1 Date : 7-JUL-83 * * Module name : TFRFLD.FOR * * Package : TRAMP * * Updates : name version * R.Beetz V1.1 * description : cleaning update and don fields * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrfld.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: RSWRIT SCVTLU SWRITE TFRRU Other globals referenced are: CMPSTR CPYBUF CPYSTR C$RETS ERROR LENSTR T Module size in characters: 650 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 41 Module name: TFRFS Program source language: C Module description from source: * VOID tfrfs(nrec) * COUNT *nrec; * * Description : Routine to fill the stringbuffer with 1, 2 or 3 records. * This routine is reserved for TFR-subroutines only * * Arguments : nrec = input : INTEGER number of first record * output: INTEGER number of first or second record * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : TFRFS.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrfs.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: RCREAD This module is called by: TFRCLR TFRGET TFRMES TFRPOS TFRPUT Other globals referenced are: C$RETS T Module size in characters: 84 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 42 Module name: TFRGET Program source language: C Module description from source: * METACH tfrget(field, ift) * TEXT *field; * BOOL ift; * * Description : Routine to get input from keyboard * * Arguments : field = STRING containing the field name where data-entry * starts. * If the string is a null-string, data-entry starts * at the first field of the form * ift = INTEGER to indicate whether TAB and BS means * return control * to application: 1 - single field operation * 0 - normal operation * Returns : tfrget = INTEGER indicating how returned after operation * with IFT=1. Result is 8,9 or 13. Argument obliged * if IFT=1. * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.1 Date : 22-apr-83 * * Module name : TFRGET.FOR * * Package : TRAMP * * Compilation/Linking : FORT/NOLINE TFRGET * * Updates : name R.Beetz version * description : BS returns to application too when IFT=1 * IRETCH argument implemented * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrget.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: CWRITE IGTKEY INPMOD SCVTLU SWRITE TFRFS RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 43 Module name: TFRGET TFRRU TTBCLR Other globals referenced are: CMPSTR CPYSTR C$RET C$SAV C$SWIT ERROR LENSTR T Module size in characters: 1492 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 44 Module name: TFRMES Program source language: C Module description from source: * VOID tfrmes(mess, field) * TEXT *mess, *field; * * Description : Routine to put error message on screen * * Arguments : mess = STRING containing the message or null-string * If MESS is a null-string: the help-text for * the field will be displayed. In that case FIELD * must not be empty * field = STRING containing the field name if MESS is a * null-string * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : TFRMES.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrmes.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: SCVTLU SWRITE TFRFS TFRRU Other globals referenced are: CMPSTR CPYSTR C$RETS ERROR LENSTR T Module size in characters: 304 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 45 Module name: TFROPN Program source language: C Module description from source: * VOID tfropn(file, lunit) * TEXT *file; * COUNT lunit; * * Description : Routine to open a TFR-library file * * Arguments : file = STRING containing the file-name without extension * lunit = INTEGER logical unit number * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : TFROPN.FOR * * Package : TRAMP * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfropn.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: COPEN RCREAD Globals defined herein are: T Other globals referenced are: CMPBUF CPYBUF CPYSTR C$RETS ERROR SCNSTR Module size in characters: 692 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 46 Module name: TFRPOS Program source language: C Module description from source: * VOID tfrpos(form) * TEXT *form; * * Description : Routine to initialize settings for a specified form * * Arguments : form = STRING containing the name of the form * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 1-nov-1982 * * Module name : TFRPOS.FOR * * Package : TFR * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrpos.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: RCREAD SCVTLU TFRFS TFRRU Other globals referenced are: CMPSTR CPYBUF CPYSTR C$RET C$SAV ERROR LENSTR T Module size in characters: 394 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 47 Module name: TFRPUT Program source language: C Module description from source: * VOID tfrput(keywrd, nrclr) * TEXT *keywrd; * COUNT nrclr; * * Description : Routine to display fix fields and update fields with data * from the current field copy record. * Arguments : keywrd = STRING containing a keyword: * 'ALL' - display fix, display-only and update field * 'FIX' - display fix fields * 'DON' - display blank display-only fields * 'UPD' - display update fields * 'VAR' - display blank displ.-only and update field * nrclr = INTEGER containing the row number from which the * screen must be cleared before displaying any data * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * Version : V1.0 Date : 1-nov-1982 * * Module name : TFRPUT.FOR * * Package : TRAMP * * Updates : name version * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrput.c * * Package : TRAMPC * * Updates : name version * description : This module calls: RSWRIT SCVTLU SWRITE TFRFS TFRRU Other globals referenced are: CMPSTR C$RET C$SAV ERROR T Module size in characters: 586 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 48 Module name: TFRRES Program source language: C Module description from source: * VOID tfrres(field, result, itrim) * TEXT *field, *result; * BOOL itrim; * * Description : Routine to return the contents of one or all field(s) * from the field copy record to the application program * * Arguments : field = STRING containing the field name, or null-string * result = STRING containing the contents of the field * itrim = INTEGER 0: no trim of trailing spaces * 1: trim if FIELD is not empty * * Author : F.A.Minkema * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.1 Date : 28-jan-83 * * Module name : TFRRES.FOR * * Package : TRAMP * * Updates : name version * description : R. Beetz V1.1 * ITRIM argument added * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : tfrres.c * * Package : TRAMPC * * Updates : name version * description : This module calls: SCVTLU TFRRU Other globals referenced are: CMPSTR CPYSTR C$RET C$SAV ERROR LENSTR T Module size in characters: 276 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 49 Module name: TFRRU Program source language: C Module description from source: This module calls: RCREAD RCWRIT This module is called by: TFRCLR TFRDEF TFRFLD TFRGET TFRMES TFRPOS TFRPUT TFRRES Other globals referenced are: CMPSTR C$RETS ERROR T Module size in characters: 392 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 50 Module name: TTBCLR Program source language: C Module description from source: * VOID ttbclr() * * Description : Clear the entire terminal input buffer * * Arguments : none * * Author : R. Beetz * AKZO PHARMA, Oss Holland * dept. SDA * * Version : V1.0 Date : 24-dec-82 * * Module name : TTBCLR.FOR * * Package : RT11-LIBRARY * * Updates : name version * * description : * * Rewritten by : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : ttbclr.c * * Package : TRAMPC * * Updates : name version * * description : This module calls: IGTCHR INPMOD This module is called by: TFRGET Other globals referenced are: C$RETS Module size in characters: 54 RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 51 Global name: IFUN This global was defined in: MPRMEN This global was referenced in: MPRDM RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 52 Global name: M This global was defined in: MPRMEN This global was referenced in: MPRCM MPRDM MPREND MPRGF MPRMES MPRMN MPRPM MPRPP MPRPS MPRRST MPRSAV RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 53 Global name: MPRTGF This global was defined in: MPRGF RT-11 Object File Cross-Reference (XREF) V05.1C Tuesday, January 14, 1986 10:57:52 RT11 TRAMPC Subroutines page 54 Global name: T This global was defined in: TFROPN This global was referenced in: TFRCLR TFRCLS TFRDEF TFREND TFRFLD TFRFS TFRGET TFRMES TFRPOS TFRPUT TFRRES TFRRU