|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 17908 (0x45f4)
Types: TextFile
Names: »DEQ.P«
└─⟦881c1028e⟧ Bits:30005102 8" CR80 Floppy CR80FD_0061 ( VOL: SCC.V NSC Directory: Queue_test.D )
└─⟦4f56469eb⟧
└─ ⟦this⟧ »QUEUE_TEST.D!DEQ.P«
00.00003 "---------------------------------------------------------------
00.00004 " DEQUEUE UTILITY
00.00005 "---------------------------------------------------------------
00.00006 " READS ALL MTCB'S AND POSSIBLE
00.00007 " ASSOCIATED MESSAGE FILES FROM A
00.00008 " QUEUE SPECIFIED BY TERMINAL AND
00.00009 " QUEUE NUMBER. A READING FROM A TERMINAL
00.00010 " GROUP IS MADE IF QUE=-1;
00.00011 " CALL:
00.00012 " DEQ MTCB: <MTCB_FILE> MSG: <MESSAGE FILE>
00.00013 " TER=XX QUE=YY
00.00014 "
00.00015 %SOURCE
======== GENERALPARAMS.S«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00015
00.00016 %SOURCE
======== MONITORNAMES.S«nul»«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00016
00.00017 %SOURCE
======== IOSPARAMS.S«nul»«nul»«nul»«nul»«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00017
00.00018
00.00019 %SOURCE
======== SCCNAME.N«nul»«nul»«nul»«nul»«nul»«nul»«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00019
00.00020 %SOURCE
======== SCCDATA.N«nul»«nul»«nul»«nul»«nul»«nul»«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00020
00.00021 %SOURCE
======== NSSMTCB.N«nul»«nul»«nul»«nul»«nul»«nul»«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00021
00.00022 %SOURCE
======== SCC_PROCESS.N«nul»«nul»«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00022
00.00023 %SOURCE
======== SUPPORT.N«nul»«nul»«nul»«nul»«nul»«nul»«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00023
00.00024 %SOURCE
======== QACCESS_TYPES.S«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00024
00.00025
00.00026
00.00027 IMPORT PROCEDURE MTCBMINIT(R3;R6):ERROR_DONE;
00.00028
00.00029 %SOURCE
======== UTH.I«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00029
00.00030
00.00031 %LIST
00.00032 %PRINT
00.00033
00.00034 " REDEFINITION OF MON INFILE,INELEMENT EXIT VALUES:
00.00035 "
00.00036 CONST
00.00037 INFIOERROR= IF_ERROR;
00.00038 INFSYNTAX= IF_SYNTAX;
00.00039
00.00040 INELERROR= IE_ERROR;
00.00041 INELNUMBER= IE_NUMBER;
00.00042 INELID= IE_IDENTIFIER;
00.00043 INELSPECIAL= IE_SPECIAL;
00.00044
00.00045 TYPE
00.00046 INFID_EXIT= INFILEID_EXITS;
00.00047 INEL_EXIT= INELEMENT_EXITS;
00.00048
00.00049
00.00050 VAR
00.00051 Q_CTBL: QIOCB;
00.00052 MTCB_BUF: ARRAY[0..SIZE(REAL)-1] OF INTEGER;
00.00053 MTCB_INDX: INTEGER;
00.00054 TER_NO: INTEGER;
00.00055 QUE_NO: INTEGER;
00.00056 QUE_NO_DEL:INTEGER;
00.00057 MSGFILETYPE: FILETYPE;
00.00058 QUEFILETYPE: FILETYPE;
00.00059 MTCBFILETYPE: FILETYPE;
00.00060 SIGNAL_NAME1: PROCESS_NAME;
00.00061 INIT
00.00062 QUEFILETYPE.NAME = 'Q MON CALL(:0:)(:0:)';
00.00063
00.00064 CONST
00.00065 Q_FIRSTENTRY = 1;
00.00066
00.00067 %SOURCE
======== READUSERPARAMS.S
11.00001 EXPORT PROCEDURE READUSERPARAMS(R6); "ALL REGISTERS DESTROYED
11.00002 "============================"
11.00003 " READS MSGFILEID FROM PARAMETERFILE. OPENS THE MESSAGEFILE
11.00004 " AND THE MTCB FILE.
11.00005 " READS THE TERMINAL NO. AND THE QUEUE NO. CONVERTS TO
11.00006 " BINARY AND STORES IN TER_NO,QUE_NO RESPECTIVELY.
11.00007 "
11.00008 VAR
11.00009 LINK: INTEGER;
11.00010
11.00011 CONST
11.00012 NAMELISTMAX= 10;
11.00013 KWSIZE= 2; "IN WORDS"
11.00014 DEFAULT_QUENO = -1;
11.00015 TYPE
11.00016 KEYWORDS= (K_ERROR,
11.00017 K_MTCB,
11.00018 K_MSG,
11.00019 K_TER,
11.00020 K_QUE,
11.00021 K_SIG,
11.00022 K_TOP);
11.00023
11.00024 VAR
11.00025 KEYWORD: ARRAY [0..K_TOP*KWSIZE-1] OF INTEGER;
11.00026 KEYWORDINDEX: KEYWORDS;
11.00027 NAMENO: INTEGER;
11.00028 FROMADAM: INTEGER;
11.00029 FSN: FILE_SYSTEM_NAME;
11.00030 VOL: VOLUME_NAME;
11.00031 NAMELIST: ARRAY [0..SIZE(FILE_NAME)*NAMELISTMAX-1] OF INTEGER;
11.00032 WORKAREA: ARRAY [0..15] OF INTEGER;
11.00033
11.00034 Q_NO :INTEGER; " NO. READ FROM PFILE
11.00035
11.00036 INIT
11.00037 KEYWORD[K_MTCB *KWSIZE..(K_MTCB +1)*KWSIZE-1]= 'MTCB';
11.00038 KEYWORD[K_MSG *KWSIZE..(K_MSG +1)*KWSIZE-1]= 'MSG';
11.00039 KEYWORD[K_TER *KWSIZE..(K_TER +1)*KWSIZE-1]= 'TER';
11.00040 KEYWORD[K_QUE *KWSIZE..(K_QUE +1)*KWSIZE-1]= 'QUE';
11.00041 KEYWORD[K_SIG *KWSIZE..(K_SIG +1)*KWSIZE-1]= 'SIG';
11.00042
11.00043 BEGIN
11.00044 R6=> LINK;
11.00045 DEFAULT_QUENO => R6;
11.00046 R6 => TER_NO;
11.00047 R6 => QUE_NO;
11.00048 0 => R1;
11.00049 ADDRESS(SIGNAL_NAME1) => R0;
11.00050 PNAMELENGTH => R5;
11.00051 WHILE R5-1 >= 0 DO
11.00052 R1 => R0@B[R5];
11.00053
11.00054 ADDRESS(PFILETYPE)=> R4;
11.00055
11.00056
11.00057 REPEAT
11.00058 READKEYWORD(KWSIZE,4,K_TOP,R0,ADDRESS(KEYWORD)=>R4,R6);
11.00059 R0=> KEYWORDINDEX;
11.00060
11.00061 PFILETYPE.S=> R4;
11.00062 CASE R0:KEYWORDS OF
11.00063 K_ERROR:
11.00064 FILEERROR(ADDRESS(PFILETYPE)=>R4, ADDRESS('ILLEGAL KEYWORD(:0:)')=>R5, 0=>R7, R6);
11.00065 K_MTCB,K_MSG:
11.00066 BEGIN " READ FILE ID "
11.00067 ADDRESS(DEFAULT_FSN)=> R6;
11.00068 ADDRESS(FSN)=> R7;
11.00069 MOVM(SIZE(FILE_SYSTEM_NAME), R6@FILE_SYSTEM_NAME, R7@FILE_SYSTEM_NAME);
11.00070 ADDRESS(DEFAULT_VOL)=> R6;
11.00071 ADDRESS(VOL)=> R7;
11.00072 MOVM(SIZE(VOLUME_NAME), R6@VOLUME_NAME, R7@VOLUME_NAME);
11.00073 SWITCH MON(INFILEID, ADDRESS(FSN)=>R0, ADDRESS(VOL)=>R1, R2, R3, R4, ADDRESS(NAMELIST)=>R5,
11.00074 ADDRESS(WORKAREA)=>R6, R7): INFID_EXIT TO
11.00075 INFIOERROR:
11.00076 FILEERROR(ADDRESS(PFILETYPE)=>R4, ADDRESS('INFILEID(:0:)')=>R5, R7, R6);
11.00077 INFSYNTAX:
11.00078 FILEERROR(ADDRESS(PFILETYPE)=>R4, ADDRESS('FILEID SYNTAX(:0:)')=>R5, R7, R6);
11.00079 END;
11.00080 R2=> NAMENO;
11.00081 R3=> FROMADAM;
11.00082 END;
11.00083 K_TER,K_QUE:
11.00084 BEGIN " READ TERMINAL OR QUEUE NO.
11.00085 SWITCH MON(STREAM, INELEMENT, 2=>R1, R3, R5, ADDRESS(Q_NO)=>R6, R7): INEL_EXIT TO
11.00086 INELERROR:
11.00087 FILEERROR(ADDRESS(PFILETYPE)=>R4, ADDRESS('INELEMENT(:0:)')=>R5,R7, R6);
11.00088 INELID, INELSPECIAL:
11.00089 FILEERROR(ADDRESS(PFILETYPE)=>R4, ADDRESS('SYNTAX(:0:)')=>R5, R7, R6);
11.00090 END;
11.00091 END;
11.00092 K_SIG:
11.00093 BEGIN " READ PROCESSNAME OF PROCESS TO SIGNAL
11.00094 SWITCH MON(STREAM, INELEMENT, 6=>R1, R3, R5, ADDRESS(SIGNAL_NAME1)=>R6, R7): INEL_EXIT TO
11.00095 INELERROR:
11.00096 FILEERROR(ADDRESS(PFILETYPE)=>R4, ADDRESS('IN SIG NAME(:0:)')=>R5,R7, R6);
11.00097 INELNUMBER, INELSPECIAL:
11.00098 FILEERROR(ADDRESS(PFILETYPE)=>R4, ADDRESS('SIG SYNTAX(:0:)')=>R5, R7, R6);
11.00099 END;
11.00100 END;
11.00101 END;
11.00102
11.00103 KEYWORDINDEX=> R6;
11.00104 CASE R6:KEYWORDS OF
11.00105 K_MTCB:
11.00106 BEGIN
11.00107 OPENFILE(ADDRESS(MTCBFILETYPE)=>R4, ADDRESS(FSN)=>R0, ADDRESS(VOL)=>R1, NAMENO=>R2,
11.00108 FROMADAM=>R3, ADDRESS(NAMELIST)=>R5, DFILETYPE.F=>R7, R6);
11.00109 END;
11.00110 K_MSG:
11.00111 BEGIN
11.00112 OPENFILE(ADDRESS(MSGFILETYPE)=>R4, ADDRESS(FSN)=>R0, ADDRESS(VOL)=>R1, NAMENO=>R2,
11.00113 FROMADAM=>R3, ADDRESS(NAMELIST)=>R5, DFILETYPE.F=>R7, R6);
11.00114 END;
11.00115 K_TER:
11.00116 Q_NO => R6 => TER_NO;
11.00117
11.00118 K_QUE:
11.00119
11.00120 Q_NO => R6 => QUE_NO;
11.00121
11.00122
11.00123 END;
11.00124 UNTIL KEYWORDINDEX=>R0 = K_TOP;
11.00125
11.00126 TER_NO => R6;
11.00127 IF R6 = DEFAULT_QUENO
11.00128 THEN
11.00129 FILEERROR(ADDRESS(PFILETYPE)=>R4,ADDRESS('ILL. TERM. NO. (:0:)')=>R5,R7,R6);
11.00130 EXIT(LINK);
11.00131 END "READUSERPARAMS";
11.00132
11.00133
11.00134
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00067
00.00068
00.00069 %SOURCE
======== WRITEINTEGERS.S«nul»
12.00001 "---------------------------------------------------------------
12.00002 PROCEDURE WRITEINTEGERS
12.00003 " CALL RETURN
12.00004 (R0; " NO. OF UNCH
12.00005 " INTEGERS
12.00006 R1; " REF. INTE- UNCH
12.00007 " REF. INTE- UNCH
12.00008 R4; " REF FILE- UNCH
12.00009 " TYPE
12.00010 R6); " LINK
12.00011
12.00012 VAR SAV0,SAV1,SAV4,SAV2,SAV6: INTEGER;
12.00013 "---------------------------------------------------------------
12.00014 BEGIN
12.00015 R6 => SAV6;
12.00016 R4 => SAV4;
12.00017 R0 => SAV0;
12.00018 R2 => SAV2;
12.00019 R1 => SAV1;
12.00020 R4@FILETYPE.S => R4;
12.00021 WHILE R0-1 >= 0 DO
12.00022 BEGIN
12.00023 R1@INTEGER => R2;
12.00024 R1+1;
12.00025 SWITCH MON(STREAM,OUTHEXA,R2,'#' => R3,R4,R7): X2 TO
12.00026 ERR:
12.00027 FILEERROR(SAV4 => R4,ADDRESS('OUTHEXA(:0:)') => R5,R7,R6);
12.00028 END;
12.00029 SWITCH MON(STREAM,OUTBYTE,' ' => R3,R4,R7): X2 TO
12.00030 ERR:
12.00031 FILEERROR(SAV4 => R4,ADDRESS('OUT SPACE(:0:)') => R5,R7,R6);
12.00032 END;
12.00033 END;
12.00034 SWITCH MON(STREAM,OUTTEXTB,R4,ADDRESS('%(:0:)') => R6,R7) : X2 TO
12.00035 ERR:
12.00036 FILEERROR(SAV4 => R4,ADDRESS('OUT %(:0:)') => R5,R7,R6);
12.00037 END;
12.00038 SWITCH MON(STREAM,OUTNL,R4,R7):X2 TO
12.00039 ERR:
12.00040 FILEERROR(SAV4 => R4,ADDRESS('OUT <NL>(:0:)') => R5,R7,R6);
12.00041 END;
12.00042 SAV4 => R4;
12.00043 SAV1 => R1;
12.00044 SAV2 => R2;
12.00045 SAV0 => R0;
12.00046 EXIT(SAV6);
12.00047 END;
12.00048 "---------------------------------------------------------------
12.00049
======== DEQ.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00069
00.00070 "---------------------------------------------------------------
00.00071 PROCEDURE DEQUEUED(R6);
00.00072
00.00073 VAR SAV6: INTEGER;
00.00074 "---------------------------------------------------------------
00.00075 BEGIN
00.00076 R6 => SAV6;
00.00077 ADDRESS(Q_CTBL) => R4;
00.00078 TER_NO => R0;
00.00079 QUE_NO => R1;
00.00080 R0 => R4@QIOCB.W1;
00.00081 R1 => R4@QIOCB.W2;
00.00082 IF R1 = -1
00.00083 THEN
00.00084 BEGIN "READ FROM GROUP
00.00085 SWITCH MON(QACCESS,READ_GR_EL,R4,R7): X2 TO
00.00086 ERR:
00.00087 FILEERROR(ADDRESS(QUEFILETYPE) => R4,ADDRESS('READ Q-GROUP(:0:)')=>R5,R7,R6);
00.00088 END;
00.00089 R4@QIOCB.W5 => R1 => QUE_NO_DEL;
00.00090 END
00.00091 ELSE
00.00092 BEGIN
00.00093 R1 => QUE_NO_DEL;
00.00094 Q_FIRSTENTRY => R2 => R4@QIOCB.W3;
00.00095 SWITCH MON(QACCESS,READ_NON,R4,R7): X2 TO
00.00096 ERR:
00.00097 FILEERROR(ADDRESS(QUEFILETYPE) => R4,ADDRESS('READ ELEMENT(:0:)')=>R5,R7,R6);
00.00098 END;
00.00099 END
00.00100 "END IF";
00.00101 R4@QIOCB.W1 => R2 => MTCB_INDX;
00.00102 EXIT(SAV6);
00.00103 END;
00.00104 "---------------------------------------------------------------
00.00105 PROCEDURE DELETEQENTRY(R6);
00.00106
00.00107 VAR
00.00108 SAV6: INTEGER;
00.00109 "---------------------------------------------------------------
00.00110 BEGIN
00.00111 R6 => SAV6;
00.00112 ADDRESS(Q_CTBL) => R4;
00.00113 TER_NO => R0 => R4@QIOCB.W1;
00.00114 QUE_NO_DEL => R1 => R4@QIOCB.W2;
00.00115 Q_FIRSTENTRY => R2 => R4@QIOCB.W3;
00.00116 SWITCH MON(QACCESS,DEL,R4,R7): X2 TO
00.00117 ERR:
00.00118 FILEERROR(ADDRESS(QUEFILETYPE) => R4,ADDRESS('DELETE ELEMENT(:0:)')=>R5,R7,R6);
00.00119 END;
00.00120 EXIT(SAV6);
00.00121 END;
00.00122 "---------------------------------------------------------------
00.00123 PROCEDURE WRITEMTCBD(R6);
00.00124
00.00125 VAR
00.00126 SAV6: INTEGER;
00.00127 CONST
00.00128 LINE_INTEGER_COUNT = 10;
00.00129 "---------------------------------------------------------------
00.00130 BEGIN
00.00131 R6 => SAV6;
00.00132 MTCB_INDX => R0;
00.00133 ADDRESS(MTCB_BUF) => R1;
00.00134 SWITCH MON(MTCB,READ,R0,R1,R7): X2 TO
00.00135 ERR:
00.00136 FILEERROR(ADDRESS(QUEFILETYPE) => R4,ADDRESS('READMTCB(:0:)')=>R5,R7,R6);
00.00137 END;
00.00138 IF R1@INTEGER = MTCB_P
00.00139 THEN SIZE(PSEUDO) => R2
00.00140 ELSE SIZE(REAL) => R2
00.00141 "END IF";
00.00142 LINE_INTEGER_COUNT => R0;
00.00143 ADDRESS(MTCBFILETYPE) => R4;
00.00144 WHILE R2 >= R0 DO
00.00145 BEGIN
00.00146 WRITEINTEGERS(R0,R1,R4,R6);
00.00147 R1+R0;
00.00148 R2-R0;
00.00149 END
00.00150 "END WHILE";
00.00151 IF R2 >= 0
00.00152 THEN
00.00153 BEGIN
00.00154 R2 => R0;
00.00155 WRITEINTEGERS(R0,R1,R4,R6);
00.00156 END
00.00157 "END IF";
00.00158 R4@FILETYPE.S => R4;
00.00159 SWITCH MON(STREAM,OUTNL,R4,R7): X2 TO
00.00160 ERR:
00.00161 FILEERROR(ADDRESS(MTCBFILETYPE) => R4,ADDRESS('NL TO FILE (:0:)')=>R5,R7,R6);
00.00162 END;
00.00163 SWITCH MON(STREAM,FLUSH,R4,R7): X2 TO
00.00164 ERR:
00.00165 FILEERROR(ADDRESS(MTCBFILETYPE) => R4,ADDRESS('FLUSH (:0:)')=>R5,R7,R6);
00.00166 END;
00.00167 EXIT(SAV6);
00.00168 END;
00.00169 "---------------------------------------------------------------
00.00170 PROCEDURE WRITEMSGD(R6);
00.00171
00.00172 VAR
00.00173 SAV6: INTEGER;
00.00174 CONST
00.00175 BUF_SZ = 10;
00.00176 MAX_FILESIZE = 1000; " INTEGERS
00.00177 VAR
00.00178 MSG_BUF: ARRAY[0..BUF_SZ-1] OF INTEGER;
00.00179 MTCB_FADDR: FILE_ADDRESS;
00.00180 INTEGER_CNT: INTEGER;
00.00181 READ_SWITCH: INTEGER;
00.00182 CONST
00.00183 READING = 0;
00.00184 STOPREAD = 1;
00.00185 "---------------------------------------------------------------
00.00186 BEGIN
00.00187 R6 => SAV6;
00.00188 MTCB_INDX => R0;
00.00189 ADDRESS(MTCB_FADDR) => R1;
00.00190 SWITCH MON(MTCB,GETFILE,R0,R1,R7): X2 TO
00.00191 ERR:
00.00192 FILEERROR(ADDRESS(QUEFILETYPE) => R4,ADDRESS('GETFILE(:0:)')=>R5,R7,R6);
00.00193 END;
00.00194 R4 => QUEFILETYPE.F;
00.00195 ADDRESS(QUEFILETYPE) => R4;
00.00196 OPENSTREAM(R4,INPUT_MODE => R3,R6);
00.00197 ADDRESS(MTCB_FADDR) => R1;
00.00198 R4@FILETYPE.S => R4;
00.00199 SWITCH MON(STREAM,SETPOSITION,R1,R4,R7): X2 TO
00.00200 ERR:
00.00201 FILEERROR(ADDRESS(QUEFILETYPE) => R4,ADDRESS('SETPOSITION(:0:)')=>R5,R7,R6);
00.00202 END;
00.00203 READING => R0 => READ_SWITCH;
00.00204 MAX_FILESIZE => R0 => INTEGER_CNT;
00.00205 REPEAT
00.00206 ADDRESS(MSG_BUF) => R1;
00.00207 BUF_SZ*2 => R2;
00.00208 QUEFILETYPE.S => R4;
00.00209 SWITCH MON(STREAM,INREC,R1,R2,R4,R7): X2 TO
00.00210 ERR:
00.00211 IF R7 = EOF
00.00212 THEN STOPREAD => R0 => READ_SWITCH
00.00213 ELSE
00.00214 FILEERROR(ADDRESS(QUEFILETYPE) => R4,
00.00215 ADDRESS('READ RECORD(:0:)') => R5,R7,R6);
00.00216 "END IF";
00.00217 END;
00.00218 R2+1 SHIFTLL 1 => R0;
00.00219 ADDRESS(MSGFILETYPE) => R4;
00.00220 WRITEINTEGERS(R0,R1,R4,R6);
00.00221 INTEGER_CNT => R2-R0 => INTEGER_CNT;
00.00222 IF R2 < 0
00.00223 THEN STOPREAD => R2 => READ_SWITCH;
00.00224 UNTIL READ_SWITCH => R2 = STOPREAD;
00.00225 R4@FILETYPE.S => R4;
00.00226 SWITCH MON(STREAM,OUTNL,R4,R7): X2 TO
00.00227 ERR:
00.00228 FILEERROR(ADDRESS(MSGFILETYPE) => R4,ADDRESS('OUTPUT NL(:0:)')=>R5,R7,R6);
00.00229 END;
00.00230 SWITCH MON(STREAM,FLUSH,R4,R7): X2 TO
00.00231 ERR:
00.00232 FILEERROR(ADDRESS(MSGFILETYPE) => R4,ADDRESS('FLUSH(:0:)')=>R5,R7,R6);
00.00233 END;
00.00234 CLOSESTREAM(ADDRESS(MTCBFILETYPE)=>R4,R6);
00.00235 DISMANTLEFILE(R4,R6);
00.00236 EXIT(SAV6);
00.00237 END;
00.00238
00.00239 LABEL DEQ_CONTINUE;
00.00240 "---------------------------------------------------------------
00.00241 BEGIN
00.00242 SWITCH MTCBMINIT(MAC_ALL => R3,R6):ERROR_DONE TO
00.00243 ERR:
00.00244 BEGIN
00.00245 R7 => R0;
00.00246 R6 => R1;
00.00247 SETS(R0,15);
00.00248 MON (TERMINATE,R0,R1,R7);
00.00249 END;
00.00250 END;
00.00251 ACCEPTFILES(R6);
00.00252 READSYSPARAMS(R6);
00.00253 ADDRESS(MTCBFILETYPE) => R4;
00.00254 ADDRESS(COUTFILETYPE) => R5;
00.00255 R5@FILETYPE.F => R3 => R4@FILETYPE.F;
00.00256 R5@FILETYPE.S => R3 => R4@FILETYPE.S;
00.00257 MOVM(SIZE(FILE_NAME), R5@FILE_NAME, R4@FILE_NAME);
00.00258 ADDRESS(MSGFILETYPE) => R4;
00.00259 ADDRESS(COUTFILETYPE) => R5;
00.00260 R5@FILETYPE.F => R3 => R4@FILETYPE.F;
00.00261 R5@FILETYPE.S => R3 => R4@FILETYPE.S;
00.00262 MOVM(SIZE(FILE_NAME), R5@FILE_NAME, R4@FILE_NAME);
00.00263 READUSERPARAMS(R6);
00.00264 CLOSESTREAM(ADDRESS(PFILETYPE) => R4,R6);
00.00265 DISMANTLEFILE(R4,R6);
00.00266 ADDRESS(MTCBFILETYPE) => R4;
00.00267 OPENSTREAM(R4,OUTPUT_MODE => R3,R6);
00.00268 ADDRESS(MSGFILETYPE) => R4;
00.00269 OPENSTREAM(R4,OUTPUT_MODE => R3,R6);
00.00270 DEQ_CONTINUE:
00.00271 DEQUEUED(R6);
00.00272 WRITEMTCBD(R6);
00.00273 ADDRESS(MTCB_BUF) => R4;
00.00274 IF R4@INTEGER = MTCB_R
00.00275 THEN
00.00276 BEGIN
00.00277 WRITEMSGD(R6);
00.00278 END;
00.00279 DELETEQENTRY(R6);
00.00280 GOTO DEQ_CONTINUE
00.00281 END;
00.00282 ENDMODULE
LINES: 2840
CODESIZE VARSIZE CONSTSIZE TEMPSIZE
-------- ------- --------- --------
#01EC #00DA #0080 #0000
SWELL VARIABLES:
===========BLOCK: 00.00071 DEQUEUED
00E7 0000 SAV6
===========BLOCK: 00.00105 DELETEQENTRY
00E8 0000 SAV6
===========BLOCK: 00.00123 WRITEMTCBD
00E9 0000 SAV6
===========BLOCK: 00.00170 WRITEMSGD
00FB 0000 INTEGER_CNT
00EB 0000 MSG_BUF
00F5 0000 MTCB_FADDR
00FC 0000 READ_SWITCH
00EA 0000 SAV6
===========BLOCK: 00.00001 DEQ
0000 0008 CINFILETYPE
0000 0009 COUTFILETYPE
0000 0004 DEFAULT_FSN
0000 0005 DEFAULT_VOL
0000 0007 DFILETYPE
0041 0000 MSGFILETYPE
0055 0000 MTCBFILETYPE
0030 0000 MTCB_BUF
003D 0000 MTCB_INDX
0000 0006 PFILETYPE
004B 0000 QUEFILETYPE
003F 0000 QUE_NO
0040 0000 QUE_NO_DEL
0023 0000 Q_CTBL
005F 0000 SIGNAL_NAME1
003E 0000 TER_NO T