Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.smsg +++| IDENT SMSG
00002 M00S00002.smsg +++| TITLE SMSG - SEND MESSAGE TO M860.
00003 M00S00003.smsg +++| ENTRY SMSG
00004 M00S00004.smsg +++| SST
00005 M00S00005.smsg +++|*COMMENT PACK AND CHECKSUM M860 MESSAGE.
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00007.smsg +++| SYSCOM B1
00009 M00S00008.smsg +++| SMSG SPACE 4
00010 M00S00009.smsg +++|*** SMSG - SEMD MESSAGE AND ASSOCIATED DATA TO M860.
00011 M00S00010.smsg +++|*
00012 M00S00011.smsg +++|* W. J. STURGIS. 82/09/14.
00013 M00S00012.smsg +++|*
00014 M00S00013.smsg +++|* SMSG CHECKSUMS AND PACKS THE MESSAGE AND MOVES
00015 M00S00014.smsg +++|* IT TO THE MESSAGE BUFFER. ASSOCIATED DATA(IF ANY)
00016 M00S00015.smsg +++|* IS ALSO MOVED TO THE MESSAGE BUFFER. THE IN POINTER
00017 M00S00016.smsg +++|* IS UPDATED IN THE FET ONLY AFTER ALL DATA IS IN THE
00018 M00S00017.smsg +++|* BUFFER.
00019 M00S00018.smsg +++|*
00020 M00S00019.smsg +++|* SYMPL CALL.
00021 M00S00020.smsg +++|* SMSG(FET,MSG,ADATA,ADATAL,STS);
00022 M00S00021.smsg +++|*
00023 M00S00022.smsg +++|* WHERE
00024 M00S00023.smsg +++|* FET = FET ADDRESS.
00025 M00S00024.smsg +++|* MSG = MESSAGE(UPPER 48 BITS OF 11 WORDS).
00026 M00S00025.smsg +++|* ADATA = ASSOCIATED DATA BLOCK(0 IF NO DATA).
00027 M00S00026.smsg +++|* ADATAL = LENGTH OF ASSOCIATED DATA BLOCK(0 IF NONE).
00028 M00S00027.smsg +++|* STS = RETURN STATUS.
00029 M00S00028.smsg +++|* 0 = MESSAGE AND DATA IN BUFFER.
00030 M00S00029.smsg +++|* 1 = NOT ENOUGH ROOM IN BUFFER FOR MESSAGE(AND DATA).
00031 M00S00030.smsg +++| SPACE 4,10
00032 M00S00031.smsg +++|* COMMON DECKS.
00033 M00S00032.smsg +++|
00034 M00S00033.smsg +++|*CALL,COMCMAC
00035 M00S00034.smsg +++| TITLE LOCAL MACROS.
00036 M00S00035.smsg +++|** PACK - PACK AND STORE ONE MESSAGE WORD
00037 M00S00036.smsg +++|*
00038 M00S00037.smsg +++|* PACK SC
00039 M00S00038.smsg +++|*
00040 M00S00039.smsg +++|* WHERE SC = MASK AND SHIFT COUNT.
00041 M00S00040.smsg +++|
00042 M00S00041.smsg +++|
00043 M00S00042.smsg +++| PURGMAC PACK
00044 M00S00043.smsg +++|
00045 M00S00044.smsg +++| PACK MACRO S
00046 M00S00045.smsg +++| SA1 A1+B1 LOAD MESSAGE WORD
00047 M00S00046.smsg +++| MX0 -S
00048 M00S00047.smsg +++| BX1 X7*X1 USE ONLY 48 BITS
00049 M00S00048.smsg +++| LX1 S
00050 M00S00049.smsg +++| BX2 -X0*X1
00051 M00S00050.smsg +++| BX6 X6+X2 FINISH PACKED WORD
00052 M00S00051.smsg +++| SA6 B3 STORE PACKED WORD
00053 M00S00052.smsg +++| SB3 B3+B1 UPDATE BUFFER ADDRESS
00054 M00S00053.smsg +++| BX6 X0*X1 UPPER BITS OF NEXT WORD
00055 M00S00054.smsg +++| ENDM
00056 M00S00055.smsg +++| TITLE MAIN ROUTINE.
00057 M00S00056.smsg +++| SMSG SUBR ENTRY/EXIT
00058 M00S00057.smsg +++| SB1 1
00059 M00S00058.smsg +++| SX7 A1
00060 M00S00059.smsg +++| SA7 PARL SAVE PARAMETER LIST ADDRESS
00061 M00S00060.smsg +++| SA0 X1 FET ADDRESS
00062 M00S00061.smsg +++| SA2 A1+3
00063 M00S00062.smsg +++| SA2 X2 ASSOC. DATA LENGTH
00064 M00S00063.smsg +++| SA1 A0+2 IN
00065 M00S00064.smsg +++| BX7 X1
00066 M00S00065.smsg +++| SA7 IN SAVE IN POINTER FOR WTW
00067 M00S00066.smsg +++| SA3 A1+B1 OUT
00068 M00S00067.smsg +++| IX6 X3-X1 OUT-IN
00069 M00S00068.smsg +++| ZR X6,SMS0 IF IN = OUT
00070 M00S00069.smsg +++| PL X6,SMS1 IF OUT GT IN
00071 M00S00070.smsg +++| SMS0 SA1 A0+B1 FIRST
00072 M00S00071.smsg +++| SA3 A3+B1 LIMIT
00073 M00S00072.smsg +++| SX1 X1
00074 M00S00073.smsg +++| SX3 X3
00075 M00S00074.smsg +++| IX6 X6+X3 +LIMIT
00076 M00S00075.smsg +++| IX6 X6-X1 -FIRST = ROOM IN BUFFER
00077 M00S00076.smsg +++| SMS1 SX2 X2+9+1 ASSOC. DATA + PACKED MSG + 1
00078 M00S00077.smsg +++| IX6 X6-X2
00079 M00S00078.smsg +++| PL X6,SMS3 IF ROOM IN BUFFER
00080 M00S00079.smsg +++| SMS1.0 SX6 1 SET RETURN CODE
00081 M00S00080.smsg +++| SMS2 SA1 PARL
00082 M00S00081.smsg +++| SA2 X1+4 RESPONSE ADDRESS
00083 M00S00082.smsg +++| SA6 X2 STORE RETURN STATUS
00084 M00S00083.smsg +++| EQ SMSGX RETURN
00085 M00S00084.smsg +++|
00086 M00S00085.smsg +++|* COMPUTE CHECKSUM.
00087 M00S00086.smsg +++|
00088 M00S00087.smsg +++| SMS3 SA1 PARL
00089 M00S00088.smsg +++| SA2 X1+B1
00090 M00S00089.smsg +++| SB2 X2 MESSAGE
00091 M00S00090.smsg +++| SB5 B2
00092 M00S00091.smsg +++| MX0 16
00093 M00S00092.smsg +++| SA2 B2+10
00094 M00S00093.smsg +++| BX6 X0*X2 CLEAR CHECKSUM
00095 M00S00094.smsg +++| SA6 A2
00096 M00S00095.smsg +++| SB3 B2+11
00097 M00S00096.smsg +++| LX0 16
00098 M00S00097.smsg +++| BX6 X6-X6 INITIAL SUM
00099 M00S00098.smsg +++| SMS4 SA1 B2
00100 M00S00099.smsg +++| LX1 16
00101 M00S00100.smsg +++| BX2 X0*X1
00102 M00S00101.smsg +++| LX1 16
00103 M00S00102.smsg +++| IX6 X6+X2
00104 M00S00103.smsg +++| BX3 X0*X1
00105 M00S00104.smsg +++| LX1 16
00106 M00S00105.smsg +++| IX6 X6+X3
00107 M00S00106.smsg +++| BX2 X0*X1
00108 M00S00107.smsg +++| IX6 X6+X2
00109 M00S00108.smsg +++| SB2 B2+B1
00110 M00S00109.smsg +++| LT B2,B3,SMS4
00111 M00S00110.smsg +++| BX6 X0*X6 ONLY 16 BIT SUM
00112 M00S00111.smsg +++| SX1 0#10000
00113 M00S00112.smsg +++| IX6 X1-X6 2S COMPL.
00114 M00S00113.smsg +++| BX6 X0*X6 ONLY 16 BITS
00115 M00S00114.smsg +++| SA1 A1 LOAD LAST WORD OF MESSAGE
00116 M00S00115.smsg +++| LX6 16+12
00117 M00S00116.smsg +++| BX6 X6+X1
00118 M00S00117.smsg +++| SA6 A1 STORE CHECKSUM
00119 M00S00118.smsg +++|
00120 M00S00119.smsg +++|* PACK MESSAGE.
00121 M00S00120.smsg +++|
00122 M00S00121.smsg +++| SA1 B5-B1 MESSAGE - 1
00123 M00S00122.smsg +++| MX7 48
00124 M00S00123.smsg +++| SB2 0
00125 M00S00124.smsg +++| SB3 MBUF
00126 M00S00125.smsg +++| SMS5 SA1 A1+B1
00127 M00S00126.smsg +++| BX6 X7*X1
00128 M00S00127.smsg +++| PACK 12
00129 M00S00128.smsg +++| PACK 24
00130 M00S00129.smsg +++| PACK 36
00131 M00S00130.smsg +++| SA1 A1+B1
00132 M00S00131.smsg +++| BX1 X7*X1
00133 M00S00132.smsg +++| LX1 48
00134 M00S00133.smsg +++| BX6 X6+X1
00135 M00S00134.smsg +++| SA6 B3 STORE LAST WORD
00136 M00S00135.smsg +++| SB3 B3+B1
00137 M00S00136.smsg +++| SB2 B2+B1
00138 M00S00137.smsg +++| LE B2,B1,SMS5 IF NOT 8 WORDS PACKED
00139 M00S00138.smsg +++| SA1 A1+B1
00140 M00S00139.smsg +++| BX6 X1
00141 M00S00140.smsg +++| SA6 B3 STORE NINTH WORD
00142 M00S00141.smsg +++| SA2 PARL (X2) = FET ADDRESS
00143 M00S00142.smsg +++| SB6 MBUF
00144 M00S00143.smsg +++| SB7 9
00145 M00S00144.smsg +++| RJ WTW MOVE DATA TO BUFFER
00146 M00S00145.smsg +++| SA1 PARL
00147 M00S00146.smsg +++| SA2 X1+2 ASSOC DATA BLOCK
00148 M00S00147.smsg +++| SA3 X1+3 LENGTH
00149 M00S00148.smsg +++| SA3 X3
00150 M00S00149.smsg +++| NZ X3,SMS7 IF ASSOC DATA
00151 M00S00150.smsg +++| SMS6 SA1 IN
00152 M00S00151.smsg +++| BX6 X1
00153 M00S00152.smsg +++| SA6 A0+2 STORE IN POINTER IN FET
00154 M00S00153.smsg +++| JP SMSGX RETURN
00155 M00S00154.smsg +++|
00156 M00S00155.smsg +++|* MOVE ASSOCIATED DATA TO BUFFER
00157 M00S00156.smsg +++|
00158 M00S00157.smsg +++| SMS7 SB6 X2 WORKING BUFFER
00159 M00S00158.smsg +++| SB7 X3 LENGTH
00160 M00S00159.smsg +++| RJ WTW MOVE DATA
00161 M00S00160.smsg +++| EQ SMS6 UPDATE IN AND RETURN
00162 M00S00161.smsg +++| TITLE SUBROUTINES.
00163 M00S00162.smsg +++| WTW SPACE 4
00164 M00S00163.smsg +++|** WTW - WRITE WORDS FROM WORKING BUFFER.
00165 M00S00164.smsg +++|*
00166 M00S00165.smsg +++|* WTW TRANSFERS DATA FROM A WORKING BUFFER TO A
00167 M00S00166.smsg +++|* CIRCULAR BUFFER.
00168 M00S00167.smsg +++|* WTW IS ADAPTED FROM WTW= (COMCWTW).
00169 M00S00168.smsg +++|*
00170 M00S00169.smsg +++|* ENTRY (A0) = ADDRESS OF FET FOR FILE.
00171 M00S00170.smsg +++|* (B6) = FWA WORKING BUFFER.
00172 M00S00171.smsg +++|* (B7) = WORD COUNT OF WORKING BUFFER.
00173 M00S00172.smsg +++|* IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.
00174 M00S00173.smsg +++|* (IN) = IN POINTER TO USE.
00175 M00S00174.smsg +++|*
00176 M00S00175.smsg +++|* EXIT (IN) = UPDATED IN POINTER FOR FET.
00177 M00S00176.smsg +++|*
00178 M00S00177.smsg +++|* USES X - 1, 2, 3, 4, 6, 7.
00179 M00S00178.smsg +++|* B - 1, 2, 3, 4, 5, 6, 7.
00180 M00S00179.smsg +++|* A - 1, 2, 3, 4, 6, 7.
00181 M00S00180.smsg +++|*
00182 M00S00181.smsg +++|* CALLS NONE.
00183 M00S00182.smsg +++|
00184 M00S00183.smsg +++|
00185 M00S00184.smsg +++| WTW18 SX6 B3+B4 ADVANCE IN
00186 M00S00185.smsg +++| SB3 B3+B4
00187 M00S00186.smsg +++| SB6 B6+B4
00188 M00S00187.smsg +++| SB7 B7-B4
00189 M00S00188.smsg +++| NE B3,B5,WTW19 IF IN " LIMIT
00190 M00S00189.smsg +++| SA1 A0+B1 IN = FIRST
00191 M00S00190.smsg +++| SX6 X1
00192 M00S00191.smsg +++| WTW19 SA6 IN UPDATE IN
00193 M00S00192.smsg +++| NZ B7,WTW1 IF NOT END OF TRANSFER
00194 M00S00193.smsg +++|
00195 M00S00194.smsg +++| WTW SUBR ENTRY/EXIT
00196 M00S00195.smsg +++| WTW1 SA1 A0+3 (B4) = OUT
00197 M00S00196.smsg +++| SA3 IN (B3) = IN
00198 M00S00197.smsg +++| SA4 A1+B1 (B5) = LIMIT
00199 M00S00198.smsg +++| ZR B7,WTWX IF WORKING BUFFER EMPTY
00200 M00S00199.smsg +++| SB4 X1
00201 M00S00200.smsg +++| SA1 A0+B1 (B2) = FIRST
00202 M00S00201.smsg +++| SB3 X3
00203 M00S00202.smsg +++| SB5 X4
00204 M00S00203.smsg +++| SB2 X1
00205 M00S00204.smsg +++| SA1 B6 READ FIRST WORD
00206 M00S00205.smsg +++| NE B2,B4,WTW2 IF OUT " FIRST
00207 M00S00206.smsg +++| SB4 B5
00208 M00S00207.smsg +++| WTW2 LT B3,B4,WTW3 IF NO END AROUND
00209 M00S00208.smsg +++| SB4 B5+1
00210 M00S00209.smsg +++| WTW3 SB4 B4-B1
00211 M00S00210.smsg +++| SB4 B4-B3
00212 M00S00211.smsg +++| ZR B4,SMS1.0 IF NO ROOM
00213 M00S00212.smsg +++| BX7 X1
00214 M00S00213.smsg +++| LE B4,B7,WTW4 IF NOT ENOUGH ROOM TO LIMIT
00215 M00S00214.smsg +++| SB4 B7 NO WRAPAOOUND
00216 M00S00215.smsg +++|
00217 M00S00216.smsg +++|* INITIALIZE REGISTERS FOR TRANSFER.
00218 M00S00217.smsg +++|
00219 M00S00218.smsg +++| WTWA BSS 0
00220 M00S00219.smsg +++| WTW4 SA3 WTWC PRESET CMU CODE AND VOID STACK
00221 M00S00220.smsg +++| RJ WTW16
00222 M00S00221.smsg +++|* SA1 A1+B1 (NO CMU)
00223 M00S00222.smsg +++|* SX4 B4-B1 (NO CMU)
00224 M00S00223.smsg +++|* MX6 -3 (NO CMU)
00225 M00S00224.smsg +++|* SA7 B3 (NO CMU)
00226 M00S00225.smsg +++|*
00227 M00S00226.smsg +++|* GT B4,B1,WTW14 IF MORE THAN 1 WORD (CMU)
00228 M00S00227.smsg +++|* BX4 X4-X4 (CMU)
00229 M00S00228.smsg +++|* SA7 B3 (CMU)
00230 M00S00229.smsg +++|
00231 M00S00230.smsg +++| WTW5 BX3 -X6*X4 NUMBER OF ODD WORDS
00232 M00S00231.smsg +++| AX4 3 NUMBER OF BLOCKS
00233 M00S00232.smsg +++| ZR X3,WTW7 IF NO ODD WORDS
00234 M00S00233.smsg +++|
00235 M00S00234.smsg +++|* TRANSFER UP TO 7 WORDS.
00236 M00S00235.smsg +++|
00237 M00S00236.smsg +++| WTW6 SX3 X3-1
00238 M00S00237.smsg +++| BX7 X1
00239 M00S00238.smsg +++| SA1 A1+B1
00240 M00S00239.smsg +++| SA7 A7+B1
00241 M00S00240.smsg +++| NZ X3,WTW6 LOOP
00242 M00S00241.smsg +++|
00243 M00S00242.smsg +++|* PRE-READ REGISTERS.
00244 M00S00243.smsg +++|
00245 M00S00244.smsg +++| WTW7 ZR X4,WTW18 IF NO BLOCKS
00246 M00S00245.smsg +++| SA2 A1+B1
00247 M00S00246.smsg +++| SB2 B1+B1 (B2) = 2
00248 M00S00247.smsg +++| SA3 A2+B1
00249 M00S00248.smsg +++| SB3 X4 (B3) = BLOCK COUNT
00250 M00S00249.smsg +++| SA4 A3+B1
00251 M00S00250.smsg +++|
00252 M00S00251.smsg +++|* TRANSFER 8 WORD BLOCKS.
00253 M00S00252.smsg +++|
00254 M00S00253.smsg +++| WTW8 BX6 X1
00255 M00S00254.smsg +++| LX7 X2
00256 M00S00255.smsg +++| SA1 A3+B2
00257 M00S00256.smsg +++| SA2 A4+B2
00258 M00S00257.smsg +++| SA6 A7+B1
00259 M00S00258.smsg +++| SB3 B3-B1
00260 M00S00259.smsg +++| SA7 A6+B1
00261 M00S00260.smsg +++| BX6 X3
00262 M00S00261.smsg +++| LX7 X4
00263 M00S00262.smsg +++| SA3 A1+B2
00264 M00S00263.smsg +++| SA4 A2+B2
00265 M00S00264.smsg +++| SA6 A6+B2
00266 M00S00265.smsg +++| SA7 A7+B2
00267 M00S00266.smsg +++| BX6 X1
00268 M00S00267.smsg +++| LX7 X2
00269 M00S00268.smsg +++| SA1 A3+B2
00270 M00S00269.smsg +++| SA2 A4+B2
00271 M00S00270.smsg +++| SA6 A6+B2
00272 M00S00271.smsg +++| SA7 A7+B2
00273 M00S00272.smsg +++| BX6 X3
00274 M00S00273.smsg +++| LX7 X4
00275 M00S00274.smsg +++| SA3 A1+B2
00276 M00S00275.smsg +++| SA4 A2+B2
00277 M00S00276.smsg +++| SA6 A6+B2
00278 M00S00277.smsg +++| SA7 A7+B2
00279 M00S00278.smsg +++| NZ B3,WTW8 LOOP
00280 M00S00279.smsg +++|
00281 M00S00280.smsg +++|* WRITE EXIT.
00282 M00S00281.smsg +++|
00283 M00S00282.smsg +++| SA3 IN READ IN
00284 M00S00283.smsg +++| SA1 A0+4 (B5) = LIMIT
00285 M00S00284.smsg +++| SB5 X1
00286 M00S00285.smsg +++| WTW9 SB6 B6+B4
00287 M00S00286.smsg +++| SB7 B7-B4
00288 M00S00287.smsg +++| SB3 X3+B4 ADVANCE IN
00289 M00S00288.smsg +++| SX6 X3+B4
00290 M00S00289.smsg +++| SA3 A0+B1 READ FIRST
00291 M00S00290.smsg +++| NE B3,B5,WTW19 IF IN " LIMIT
00292 M00S00291.smsg +++| SX6 X3+ IN = FIRST
00293 M00S00292.smsg +++| WTW10 EQ WTW19 CLEAN UP AND RETURN
00294 M00S00293.smsg +++|
00295 M00S00294.smsg +++|* MOVE DATA WITH CMU.
00296 M00S00295.smsg +++|
00297 M00S00296.smsg +++| WTW14 SX4 B4-819
00298 M00S00297.smsg +++| PL X4,WTW15 IF TOO BIG FOR CMU
00299 M00S00298.smsg +++| SX4 B4 10 * WORDS = CHARACTERS
00300 M00S00299.smsg +++| LX6 X4,B1
00301 M00S00300.smsg +++| BX1 X0 SAVE X0
00302 M00S00301.smsg +++| LX4 3
00303 M00S00302.smsg +++| IX6 X4+X6
00304 M00S00303.smsg +++| SX7 B6 SET SOURCE ADDRESS
00305 M00S00304.smsg +++| SX4 B3 SET DESTINATION ADDRESS
00306 M00S00305.smsg +++| LX7 30
00307 M00S00306.smsg +++| BX4 X4+X7
00308 M00S00307.smsg +++| MX7 -4
00309 M00S00308.smsg +++| BX3 X7*X6 EXTRACT UPPER PORTION
00310 M00S00309.smsg +++| BX6 -X7*X6 EXTRACT LOWER PORTION
00311 M00S00310.smsg +++| LX3 48-4
00312 M00S00311.smsg +++| BX4 X4+X3
00313 M00S00312.smsg +++| LX6 26
00314 M00S00313.smsg +++| BX6 X4+X6
00315 M00S00314.smsg +++| AX3 51
00316 M00S00315.smsg +++| SA6 WTWC STORE DESCRIPTOR WORD
00317 M00S00316.smsg +++| IM WTWC MOVE DATA
00318 M00S00317.smsg +++| BX0 X1 RESTORE X0
00319 M00S00318.smsg +++| ZR X3,WTW18 IF NO WRITE EXIT
00320 M00S00319.smsg +++| SX3 B3 RESET IN
00321 M00S00320.smsg +++| JP WTW9
00322 M00S00321.smsg +++|
00323 M00S00322.smsg +++| WTWB BSS 0
00324 M00S00323.smsg +++| WTW15 SA1 A1+B1 MOVE DATA WITHOUT CMU
00325 M00S00324.smsg +++| SX4 B4-B1
00326 M00S00325.smsg +++| MX6 -3
00327 M00S00326.smsg +++| SA7 B3
00328 M00S00327.smsg +++| JP WTW5
00329 M00S00328.smsg +++|
00330 M00S00329.smsg +++|* CMU PRESET CODE.
00331 M00S00330.smsg +++|* WWTC IS READ UP AND THEN RETURN JUMPED TO IN ORDER TO VOID
00332 M00S00331.smsg +++|* STACK. WWTC IS ALSO USED AS THE CMU DESCRIPTOR WORD
00333 M00S00332.smsg +++|
00334 M00S00333.smsg +++| WTWC GT B4,B1,WTW14 IF MORE THAN 1 WORD TO MOVE (CMU)
00335 M00S00334.smsg +++| BX4 X4-X4
00336 M00S00335.smsg +++| SA7 B3
00337 M00S00336.smsg +++| WTW16 EQU WTWC USED TO VOID STACK
00338 M00S00337.smsg +++|
00339 M00S00338.smsg +++|* PRESET FOR CMU CODE.
00340 M00S00339.smsg +++|
00341 M00S00340.smsg +++| SA4 CMUR CHECK IF CMU AVAIALABLE
00342 M00S00341.smsg +++| SB4 WTWA
00343 M00S00342.smsg +++| NG X4,WTW17 IF CMU
00344 M00S00343.smsg +++| SA3 WTWB
00345 M00S00344.smsg +++| WTW17 BX6 X3
00346 M00S00345.smsg +++| SA6 B4
00347 M00S00346.smsg +++| JP WTW1
00348 M00S00347.smsg +++|
00349 M00S00348.smsg +++| TITLE WORKING STORAGE.
00350 M00S00349.smsg +++|* WORKING STORAGE.
00351 M00S00350.smsg +++|
00352 M00S00351.smsg +++|
00353 M00S00352.smsg +++| PARL BSS 1 PARAMETER LIST POINTER
00354 M00S00353.smsg +++| IN BSS 1 IN POINTER FOR FET
00355 M00S00354.smsg +++| MBUF BSS 9 PACKED MESSAGE BUFFER
00356 M00S00355.smsg +++| SPACE 4
00357 M00S00356.smsg +++| END