DataMuseum.dk

top - download

    Length: 3230 (0xc9e)
    Types: TextFile
    Names: »URW_COMP.I«

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP004_V0801.D!CSS193.D!URW_COMP.I« 

TextFile

%LIST
"-----------------------------------------------------------------------
"  MODULE NAME:      USER READ WRITE (URW) IMPORT DEFINITIONS
"  MODULE ID NMB:    CSS/193
"  MODULE VERSION:   0202
"  MODULE TYPE:      PREFIX
"  MODULE FILES:     URW_COMP.I
"  THIS IS A COMPRESSED VERSION OF THE PREFIX URW.I
"  SEE URW.I FOR FUNCTION DESCRIPTION
"-----------------------------------------------------------------------
%PAGE
%NOLIST
%NOLIST
%NOLIST
%NOLIST
%NOLIST
%NOLIST
CONST
INIT1TROUBLES=#F1;
INIT2TROUBLES=#F2;
URW_ERROR_IN_IDENTIFIER=#F3;
URW_ERROR_IN_NUMBER=#F4;
URW_OVERFLOW_IN_NUMBER=#F5;
URW_UNDEFINED_FUNCTION=#FF;
URW_ERR_IN_CRE_PRM=#F7;
CONST
URW_READ_FILE_AT=0;
URW_DEF_FILE_AT=1;
URW_OUT_FILE_CRE=2;
TYPE
INOUT=
RECORD
XFLAG:BOOLEAN;
XFILETYPE:FILETYPE;
OLDADDRESS:POINTER;
PRIMARYADD:POINTER;
MODE:INTEGER;
FLUSHING:BOOLEAN;
END;
TYPE
WRITE_FUNCTION=
(WRITE_CLOSE,
WRITE_OPEN,
WRITE_RESET,
WRITE_GETPOS,
WRITE_SETPOS,
WRITE_GETINF,
WRITE_FLUSH,
WRITE_NOFLUSH,
WRITE_ONE_FLUSH,
WRITE_SPARE1,
WRITE_SPARE2,
WRITE_LINE,
WRITE_RECORD,
WRITE_DECIMAL,
WRITE_DECIMAL_PAD,
WRITE_LONG_DECIMAL,
WRITE_LONG_DECIMAL_PAD,
WRITE_HEXA,
WRITE_HEXA_PAD,
WRITE_LONG_HEXA,
WRITE_LONG_HEXA_PAD,
WRITE_NEWLINE,
WRITE_NEWLINES,
WRITE_SPACES,
WRITE_FORMFEED,
WRITE_BYTE,
WRITE_TEXT,
WRITE_TEXT_P);
TYPE
READ_FUNCTION=
(READ_CLOSE,
READ_OPEN,
READ_RESET,
READ_GETPOS,
READ_SETPOS,
READ_GETINF,
DUM_FL,
DUM_NOFL,
DUM_ONEFL,
READ_SPARE1,
READ_SPARE2,
READ_LINE,
READ_RECORD,
READ_NUMBER,
READ_LONG_NUMBER,
READ_HEXA,
READ_LONG_HEXA,
READ_HEXINT,
READ_LONG_HEXINT,
READ_IDENTIFIER,
READ_CMD,
READ_BACKSPACE,
READ_DONOT_CARES,
READ_BYTE,
READ_SKIP_BLANKS);
CONST
RWCLOSE=WRITE_CLOSE;
RWOPEN=WRITE_OPEN;
RWRESET=WRITE_RESET;
RWGETPOS=WRITE_GETPOS;
RWSETPOS=WRITE_SETPOS;
RWGETINF=WRITE_GETINF;
RWFL=WRITE_FLUSH;
RWNOFL=WRITE_NOFLUSH;
RW1FL=WRITE_ONE_FLUSH;
RWSPARE1=WRITE_SPARE1;
RWSPARE2=WRITE_SPARE2;
WLINE=WRITE_LINE;
WREC=WRITE_RECORD;
WDEC=WRITE_DECIMAL;
WDECP=WRITE_DECIMAL_PAD;
WLDEC=WRITE_LONG_DECIMAL;
WLDECP=WRITE_LONG_DECIMAL_PAD;
WHEX=WRITE_HEXA;
WHEXP=WRITE_HEXA_PAD;
WLHEX=WRITE_LONG_HEXA;
WLHEXP=WRITE_LONG_HEXA_PAD;
WNL=WRITE_NEWLINE;
WNLS=WRITE_NEWLINES;
WSPS=WRITE_SPACES;
WFF=WRITE_FORMFEED;
WBYTE=WRITE_BYTE;
WTEXT=WRITE_TEXT;
WTEXTP=WRITE_TEXT_P;
RLINE=READ_LINE;
RREC=READ_RECORD;
RNUM=READ_NUMBER;
RLNUM=READ_LONG_NUMBER;
RHEX=READ_HEXINT;
RLHEX=READ_LONG_HEXINT;
RIDENT=READ_IDENTIFIER;
RCMD=READ_CMD;
RBS=READ_BACKSPACE;
RDNC=READ_DONOT_CARES;
RBYTE=READ_BYTE;
RSB=READ_SKIP_BLANKS;
IMPORT VAR
INFILETYPE:FILETYPE;
OUTFILETYPE:FILETYPE;
URW_SAVE:REGISTERS;
PROG_NAME:FILE_NAME;
URW_I_OPEN:BOOLEAN;
URW_O_OPEN:BOOLEAN;
IMPORT PROCEDURE COMPAREBYTES(R0;R4;R5;R6);
IMPORT PROCEDURE GET_AND_CON_FILE(R1;R2;R3;R4;R5;R6);
IMPORT PROCEDURE READUSERPARAMS(R6);
IMPORT PROCEDURE READUSERPARAMSEXT(EXTERNAL_KEY_PROCEDURE:POINTER;R6);
IMPORT PROCEDURE REALREADWRITE(R1;R2;R5;R6);
IMPORT PROCEDURE WRITE(function:INTEGER;r1;r2;r6);
IMPORT PROCEDURE WRITE_OUT(function:INTEGER;r1;r2;r6);
IMPORT PROCEDURE READ(function:INTEGER;r1;r2;r6);
IMPORT PROCEDURE READ_IN(function:INTEGER;r1;r2;r6);
IMPORT PROCEDURE READ_PARM(function:INTEGER;r1;r2;r6);
IMPORT PROCEDURE READ_DIR(function:INTEGER;r1;r2;r6);
%LIST
%LIST
%LIST
%LIST
%LIST