User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:smsg

Deck SMSG

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.smsg    +++|          IDENT  SMSG
00002  M01S00002.smsg    +++|          TITLE  SMSG - SEND MESSAGE TO M860.
00003  M01S00003.smsg    +++|          ENTRY  SMSG
00004  M01S00004.smsg    +++|          SST
00005  M01S00005.smsg    +++|*COMMENT PACK AND CHECKSUM M860 MESSAGE.
Line S00006 Modification History
M01 (Added by) smsg
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.smsg    +++|          SYSCOM B1
00009  M01S00008.smsg    +++| SMSG     SPACE 4
00010  M01S00009.smsg    +++|***       SMSG - SEMD MESSAGE AND ASSOCIATED DATA TO M860.
00011  M01S00010.smsg    +++|*
00012  M01S00011.smsg    +++|*         W. J. STURGIS.     82/09/14.
00013  M01S00012.smsg    +++|*
00014  M01S00013.smsg    +++|*         SMSG CHECKSUMS AND PACKS THE MESSAGE AND MOVES
00015  M01S00014.smsg    +++|*         IT TO THE MESSAGE BUFFER. ASSOCIATED DATA(IF ANY)
00016  M01S00015.smsg    +++|*         IS ALSO MOVED TO THE MESSAGE BUFFER.  THE IN POINTER
00017  M01S00016.smsg    +++|*         IS UPDATED IN THE FET ONLY AFTER ALL DATA IS IN THE
00018  M01S00017.smsg    +++|*         BUFFER.
00019  M01S00018.smsg    +++|*
00020  M01S00019.smsg    +++|*         SYMPL CALL.
00021  M01S00020.smsg    +++|*         SMSG(FET,MSG,ADATA,ADATAL,STS);
00022  M01S00021.smsg    +++|*
00023  M01S00022.smsg    +++|*         WHERE
00024  M01S00023.smsg    +++|*         FET = FET ADDRESS.
00025  M01S00024.smsg    +++|*         MSG = MESSAGE(UPPER 48 BITS OF 11 WORDS).
00026  M01S00025.smsg    +++|*         ADATA = ASSOCIATED DATA BLOCK(0 IF NO DATA).
00027  M01S00026.smsg    +++|*         ADATAL = LENGTH OF ASSOCIATED DATA BLOCK(0 IF NONE).
00028  M01S00027.smsg    +++|*         STS = RETURN STATUS.
00029  M01S00028.smsg    +++|*                0 = MESSAGE AND DATA IN BUFFER.
00030  M01S00029.smsg    +++|*                1 = NOT ENOUGH ROOM IN BUFFER FOR MESSAGE(AND DATA).
00031  M01S00030.smsg    +++|          SPACE  4,10
00032  M01S00031.smsg    +++|*         COMMON DECKS.
00033  M01S00032.smsg    +++|
00034  M01S00033.smsg    +++|*CALL,COMCMAC
00035  M01S00034.smsg    +++|          TITLE  LOCAL MACROS.
00036  M01S00035.smsg    +++|**        PACK - PACK AND STORE ONE MESSAGE WORD
00037  M01S00036.smsg    +++|*
00038  M01S00037.smsg    +++|*         PACK   SC
00039  M01S00038.smsg    +++|*
00040  M01S00039.smsg    +++|*         WHERE  SC = MASK AND SHIFT COUNT.
00041  M01S00040.smsg    +++|
00042  M01S00041.smsg    +++|
00043  M01S00042.smsg    +++|          PURGMAC PACK
00044  M01S00043.smsg    +++|
00045  M01S00044.smsg    +++| PACK     MACRO  S
00046  M01S00045.smsg    +++|          SA1    A1+B1       LOAD MESSAGE WORD
00047  M01S00046.smsg    +++|          MX0    -S
00048  M01S00047.smsg    +++|          BX1    X7*X1       USE ONLY 48 BITS
00049  M01S00048.smsg    +++|          LX1    S
00050  M01S00049.smsg    +++|          BX2    -X0*X1
00051  M01S00050.smsg    +++|          BX6    X6+X2       FINISH PACKED WORD
00052  M01S00051.smsg    +++|          SA6    B3          STORE PACKED WORD
00053  M01S00052.smsg    +++|          SB3    B3+B1       UPDATE BUFFER ADDRESS
00054  M01S00053.smsg    +++|          BX6    X0*X1       UPPER BITS OF NEXT WORD
00055  M01S00054.smsg    +++|          ENDM
00056  M01S00055.smsg    +++|          TITLE  MAIN ROUTINE.
00057  M01S00056.smsg    +++| SMSG     SUBR               ENTRY/EXIT
00058  M01S00057.smsg    +++|          SB1    1
00059  M01S00058.smsg    +++|          SX7    A1
00060  M01S00059.smsg    +++|          SA7    PARL        SAVE PARAMETER LIST ADDRESS
00061  M01S00060.smsg    +++|          SA0    X1          FET ADDRESS
00062  M01S00061.smsg    +++|          SA2    A1+3
00063  M01S00062.smsg    +++|          SA2    X2          ASSOC. DATA LENGTH
00064  M01S00063.smsg    +++|          SA1    A0+2        IN
00065  M01S00064.smsg    +++|          BX7    X1
00066  M01S00065.smsg    +++|          SA7    IN          SAVE IN POINTER FOR WTW
00067  M01S00066.smsg    +++|          SA3    A1+B1       OUT
00068  M01S00067.smsg    +++|          IX6    X3-X1       OUT-IN
00069  M01S00068.smsg    +++|          ZR     X6,SMS0     IF IN = OUT
00070  M01S00069.smsg    +++|          PL     X6,SMS1     IF OUT GT IN
00071  M01S00070.smsg    +++| SMS0     SA1    A0+B1       FIRST
00072  M01S00071.smsg    +++|          SA3    A3+B1       LIMIT
00073  M01S00072.smsg    +++|          SX1    X1
00074  M01S00073.smsg    +++|          SX3    X3
00075  M01S00074.smsg    +++|          IX6    X6+X3       +LIMIT
00076  M01S00075.smsg    +++|          IX6    X6-X1       -FIRST = ROOM IN BUFFER
00077  M01S00076.smsg    +++| SMS1     SX2    X2+9+1      ASSOC. DATA + PACKED MSG + 1
00078  M01S00077.smsg    +++|          IX6    X6-X2
00079  M01S00078.smsg    +++|          PL     X6,SMS3     IF ROOM IN BUFFER
00080  M01S00079.smsg    +++| SMS1.0   SX6    1           SET RETURN CODE
00081  M01S00080.smsg    +++| SMS2     SA1    PARL
00082  M01S00081.smsg    +++|          SA2    X1+4        RESPONSE ADDRESS
00083  M01S00082.smsg    +++|          SA6    X2          STORE RETURN STATUS
00084  M01S00083.smsg    +++|          EQ     SMSGX       RETURN
00085  M01S00084.smsg    +++|
00086  M01S00085.smsg    +++|*         COMPUTE CHECKSUM.
00087  M01S00086.smsg    +++|
00088  M01S00087.smsg    +++| SMS3     SA1    PARL
00089  M01S00088.smsg    +++|          SA2    X1+B1
00090  M01S00089.smsg    +++|          SB2    X2          MESSAGE
00091  M01S00090.smsg    +++|          SB5    B2
00092  M01S00091.smsg    +++|          MX0    16
00093  M01S00092.smsg    +++|          SA2    B2+10
00094  M01S00093.smsg    +++|          BX6    X0*X2       CLEAR CHECKSUM
00095  M01S00094.smsg    +++|          SA6    A2
00096  M01S00095.smsg    +++|          SB3    B2+11
00097  M01S00096.smsg    +++|          LX0    16
00098  M01S00097.smsg    +++|          BX6    X6-X6       INITIAL SUM
00099  M01S00098.smsg    +++| SMS4     SA1    B2
00100  M01S00099.smsg    +++|          LX1    16
00101  M01S00100.smsg    +++|          BX2    X0*X1
00102  M01S00101.smsg    +++|          LX1    16
00103  M01S00102.smsg    +++|          IX6    X6+X2
00104  M01S00103.smsg    +++|          BX3    X0*X1
00105  M01S00104.smsg    +++|          LX1    16
00106  M01S00105.smsg    +++|          IX6    X6+X3
00107  M01S00106.smsg    +++|          BX2    X0*X1
00108  M01S00107.smsg    +++|          IX6    X6+X2
00109  M01S00108.smsg    +++|          SB2    B2+B1
00110  M01S00109.smsg    +++|          LT     B2,B3,SMS4
00111  M01S00110.smsg    +++|          BX6    X0*X6       ONLY 16 BIT SUM
00112  M01S00111.smsg    +++|          SX1    0#10000
00113  M01S00112.smsg    +++|          IX6    X1-X6       2S COMPL.
00114  M01S00113.smsg    +++|          BX6    X0*X6       ONLY 16 BITS
00115  M01S00114.smsg    +++|          SA1    A1          LOAD LAST WORD OF MESSAGE
00116  M01S00115.smsg    +++|          LX6    16+12
00117  M01S00116.smsg    +++|          BX6    X6+X1
00118  M01S00117.smsg    +++|          SA6    A1          STORE CHECKSUM
00119  M01S00118.smsg    +++|
00120  M01S00119.smsg    +++|*         PACK MESSAGE.
00121  M01S00120.smsg    +++|
00122  M01S00121.smsg    +++|          SA1    B5-B1       MESSAGE - 1
00123  M01S00122.smsg    +++|          MX7    48
00124  M01S00123.smsg    +++|          SB2    0
00125  M01S00124.smsg    +++|          SB3    MBUF
00126  M01S00125.smsg    +++| SMS5     SA1    A1+B1
00127  M01S00126.smsg    +++|          BX6    X7*X1
00128  M01S00127.smsg    +++|          PACK   12
00129  M01S00128.smsg    +++|          PACK   24
00130  M01S00129.smsg    +++|          PACK   36
00131  M01S00130.smsg    +++|          SA1    A1+B1
00132  M01S00131.smsg    +++|          BX1    X7*X1
00133  M01S00132.smsg    +++|          LX1    48
00134  M01S00133.smsg    +++|          BX6    X6+X1
00135  M01S00134.smsg    +++|          SA6    B3          STORE LAST WORD
00136  M01S00135.smsg    +++|          SB3    B3+B1
00137  M01S00136.smsg    +++|          SB2    B2+B1
00138  M01S00137.smsg    +++|          LE     B2,B1,SMS5  IF NOT 8 WORDS PACKED
00139  M01S00138.smsg    +++|          SA1    A1+B1
00140  M01S00139.smsg    +++|          BX6    X1
00141  M01S00140.smsg    +++|          SA6    B3          STORE NINTH WORD
00142  M01S00141.smsg    +++|          SA2    PARL        (X2) = FET ADDRESS
00143  M01S00142.smsg    +++|          SB6    MBUF
00144  M01S00143.smsg    +++|          SB7    9
00145  M01S00144.smsg    +++|          RJ     WTW         MOVE DATA TO BUFFER
00146  M01S00145.smsg    +++|          SA1    PARL
00147  M01S00146.smsg    +++|          SA2    X1+2        ASSOC DATA BLOCK
00148  M01S00147.smsg    +++|          SA3    X1+3        LENGTH
00149  M01S00148.smsg    +++|          SA3    X3
00150  M01S00149.smsg    +++|          NZ     X3,SMS7     IF ASSOC DATA
00151  M01S00150.smsg    +++| SMS6     SA1    IN
00152  M01S00151.smsg    +++|          BX6    X1
00153  M01S00152.smsg    +++|          SA6    A0+2        STORE IN POINTER IN FET
00154  M01S00153.smsg    +++|          JP     SMSGX       RETURN
00155  M01S00154.smsg    +++|
00156  M01S00155.smsg    +++|*         MOVE ASSOCIATED DATA TO BUFFER
00157  M01S00156.smsg    +++|
00158  M01S00157.smsg    +++| SMS7     SB6    X2          WORKING BUFFER
00159  M01S00158.smsg    +++|          SB7    X3          LENGTH
00160  M01S00159.smsg    +++|          RJ     WTW         MOVE DATA
00161  M01S00160.smsg    +++|          EQ     SMS6        UPDATE IN AND RETURN
00162  M01S00161.smsg    +++|          TITLE  SUBROUTINES.
00163  M01S00162.smsg    +++| WTW      SPACE  4
00164  M01S00163.smsg    +++|**        WTW - WRITE WORDS FROM WORKING BUFFER.
00165  M01S00164.smsg    +++|*
00166  M01S00165.smsg    +++|*                WTW TRANSFERS DATA FROM A WORKING BUFFER TO A
00167  M01S00166.smsg    +++|*         CIRCULAR BUFFER.
00168  M01S00167.smsg    +++|*         WTW IS ADAPTED FROM WTW= (COMCWTW).
00169  M01S00168.smsg    +++|*
00170  M01S00169.smsg    +++|*         ENTRY  (A0) = ADDRESS OF FET FOR FILE.
00171  M01S00170.smsg    +++|*                (B6) = FWA WORKING BUFFER.
00172  M01S00171.smsg    +++|*                (B7) = WORD COUNT OF WORKING BUFFER.
00173  M01S00172.smsg    +++|*                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.
00174  M01S00173.smsg    +++|*                (IN) = IN POINTER TO USE.
00175  M01S00174.smsg    +++|*
00176  M01S00175.smsg    +++|*         EXIT   (IN) = UPDATED IN POINTER FOR FET.
00177  M01S00176.smsg    +++|*
00178  M01S00177.smsg    +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00179  M01S00178.smsg    +++|*                B - 1, 2, 3, 4, 5, 6, 7.
00180  M01S00179.smsg    +++|*                A - 1, 2, 3, 4, 6, 7.
00181  M01S00180.smsg    +++|*
00182  M01S00181.smsg    +++|*         CALLS  NONE.
00183  M01S00182.smsg    +++|
00184  M01S00183.smsg    +++|
00185  M01S00184.smsg    +++| WTW18    SX6    B3+B4       ADVANCE IN
00186  M01S00185.smsg    +++|          SB3    B3+B4
00187  M01S00186.smsg    +++|          SB6    B6+B4
00188  M01S00187.smsg    +++|          SB7    B7-B4
00189  M01S00188.smsg    +++|          NE     B3,B5,WTW19 IF IN " LIMIT
00190  M01S00189.smsg    +++|          SA1    A0+B1       IN = FIRST
00191  M01S00190.smsg    +++|          SX6    X1
00192  M01S00191.smsg    +++| WTW19    SA6    IN           UPDATE IN
00193  M01S00192.smsg    +++|          NZ     B7,WTW1     IF NOT END OF TRANSFER
00194  M01S00193.smsg    +++|
00195  M01S00194.smsg    +++| WTW      SUBR               ENTRY/EXIT
00196  M01S00195.smsg    +++| WTW1     SA1    A0+3        (B4) = OUT
00197  M01S00196.smsg    +++|          SA3    IN          (B3) = IN
00198  M01S00197.smsg    +++|          SA4    A1+B1       (B5) = LIMIT
00199  M01S00198.smsg    +++|          ZR     B7,WTWX     IF WORKING BUFFER EMPTY
00200  M01S00199.smsg    +++|          SB4    X1
00201  M01S00200.smsg    +++|          SA1    A0+B1       (B2) = FIRST
00202  M01S00201.smsg    +++|          SB3    X3
00203  M01S00202.smsg    +++|          SB5    X4
00204  M01S00203.smsg    +++|          SB2    X1
00205  M01S00204.smsg    +++|          SA1    B6          READ FIRST WORD
00206  M01S00205.smsg    +++|          NE     B2,B4,WTW2  IF OUT " FIRST
00207  M01S00206.smsg    +++|          SB4    B5
00208  M01S00207.smsg    +++| WTW2     LT     B3,B4,WTW3  IF NO END AROUND
00209  M01S00208.smsg    +++|          SB4    B5+1
00210  M01S00209.smsg    +++| WTW3     SB4    B4-B1
00211  M01S00210.smsg    +++|          SB4    B4-B3
00212  M01S00211.smsg    +++|          ZR     B4,SMS1.0   IF NO ROOM
00213  M01S00212.smsg    +++|          BX7    X1
00214  M01S00213.smsg    +++|          LE     B4,B7,WTW4  IF NOT ENOUGH ROOM TO LIMIT
00215  M01S00214.smsg    +++|          SB4    B7          NO WRAPAOOUND
00216  M01S00215.smsg    +++|
00217  M01S00216.smsg    +++|*         INITIALIZE REGISTERS FOR TRANSFER.
00218  M01S00217.smsg    +++|
00219  M01S00218.smsg    +++| WTWA     BSS    0
00220  M01S00219.smsg    +++| WTW4     SA3    WTWC        PRESET CMU CODE AND VOID STACK
00221  M01S00220.smsg    +++|          RJ     WTW16
00222  M01S00221.smsg    +++|*         SA1    A1+B1       (NO CMU)
00223  M01S00222.smsg    +++|*         SX4    B4-B1       (NO CMU)
00224  M01S00223.smsg    +++|*         MX6    -3          (NO CMU)
00225  M01S00224.smsg    +++|*         SA7    B3          (NO CMU)
00226  M01S00225.smsg    +++|*
00227  M01S00226.smsg    +++|*         GT     B4,B1,WTW14  IF MORE THAN 1 WORD  (CMU)
00228  M01S00227.smsg    +++|*         BX4    X4-X4       (CMU)
00229  M01S00228.smsg    +++|*         SA7    B3          (CMU)
00230  M01S00229.smsg    +++|
00231  M01S00230.smsg    +++| WTW5     BX3    -X6*X4      NUMBER OF ODD WORDS
00232  M01S00231.smsg    +++|          AX4    3           NUMBER OF BLOCKS
00233  M01S00232.smsg    +++|          ZR     X3,WTW7     IF NO ODD WORDS
00234  M01S00233.smsg    +++|
00235  M01S00234.smsg    +++|*         TRANSFER UP TO 7 WORDS.
00236  M01S00235.smsg    +++|
00237  M01S00236.smsg    +++| WTW6     SX3    X3-1
00238  M01S00237.smsg    +++|          BX7    X1
00239  M01S00238.smsg    +++|          SA1    A1+B1
00240  M01S00239.smsg    +++|          SA7    A7+B1
00241  M01S00240.smsg    +++|          NZ     X3,WTW6     LOOP
00242  M01S00241.smsg    +++|
00243  M01S00242.smsg    +++|*         PRE-READ REGISTERS.
00244  M01S00243.smsg    +++|
00245  M01S00244.smsg    +++| WTW7     ZR     X4,WTW18    IF NO BLOCKS
00246  M01S00245.smsg    +++|          SA2    A1+B1
00247  M01S00246.smsg    +++|          SB2    B1+B1       (B2) = 2
00248  M01S00247.smsg    +++|          SA3    A2+B1
00249  M01S00248.smsg    +++|          SB3    X4          (B3) = BLOCK COUNT
00250  M01S00249.smsg    +++|          SA4    A3+B1
00251  M01S00250.smsg    +++|
00252  M01S00251.smsg    +++|*         TRANSFER 8 WORD BLOCKS.
00253  M01S00252.smsg    +++|
00254  M01S00253.smsg    +++| WTW8     BX6    X1
00255  M01S00254.smsg    +++|          LX7    X2
00256  M01S00255.smsg    +++|          SA1    A3+B2
00257  M01S00256.smsg    +++|          SA2    A4+B2
00258  M01S00257.smsg    +++|          SA6    A7+B1
00259  M01S00258.smsg    +++|          SB3    B3-B1
00260  M01S00259.smsg    +++|          SA7    A6+B1
00261  M01S00260.smsg    +++|          BX6    X3
00262  M01S00261.smsg    +++|          LX7    X4
00263  M01S00262.smsg    +++|          SA3    A1+B2
00264  M01S00263.smsg    +++|          SA4    A2+B2
00265  M01S00264.smsg    +++|          SA6    A6+B2
00266  M01S00265.smsg    +++|          SA7    A7+B2
00267  M01S00266.smsg    +++|          BX6    X1
00268  M01S00267.smsg    +++|          LX7    X2
00269  M01S00268.smsg    +++|          SA1    A3+B2
00270  M01S00269.smsg    +++|          SA2    A4+B2
00271  M01S00270.smsg    +++|          SA6    A6+B2
00272  M01S00271.smsg    +++|          SA7    A7+B2
00273  M01S00272.smsg    +++|          BX6    X3
00274  M01S00273.smsg    +++|          LX7    X4
00275  M01S00274.smsg    +++|          SA3    A1+B2
00276  M01S00275.smsg    +++|          SA4    A2+B2
00277  M01S00276.smsg    +++|          SA6    A6+B2
00278  M01S00277.smsg    +++|          SA7    A7+B2
00279  M01S00278.smsg    +++|          NZ     B3,WTW8     LOOP
00280  M01S00279.smsg    +++|
00281  M01S00280.smsg    +++|*         WRITE EXIT.
00282  M01S00281.smsg    +++|
00283  M01S00282.smsg    +++|          SA3    IN          READ IN
00284  M01S00283.smsg    +++|          SA1    A0+4        (B5) = LIMIT
00285  M01S00284.smsg    +++|          SB5    X1
00286  M01S00285.smsg    +++| WTW9     SB6    B6+B4
00287  M01S00286.smsg    +++|          SB7    B7-B4
00288  M01S00287.smsg    +++|          SB3    X3+B4       ADVANCE IN
00289  M01S00288.smsg    +++|          SX6    X3+B4
00290  M01S00289.smsg    +++|          SA3    A0+B1       READ FIRST
00291  M01S00290.smsg    +++|          NE     B3,B5,WTW19 IF IN " LIMIT
00292  M01S00291.smsg    +++|          SX6    X3+         IN = FIRST
00293  M01S00292.smsg    +++| WTW10    EQ     WTW19       CLEAN UP AND RETURN
00294  M01S00293.smsg    +++|
00295  M01S00294.smsg    +++|*         MOVE DATA WITH CMU.
00296  M01S00295.smsg    +++|
00297  M01S00296.smsg    +++| WTW14    SX4    B4-819
00298  M01S00297.smsg    +++|          PL     X4,WTW15    IF TOO BIG FOR CMU
00299  M01S00298.smsg    +++|          SX4    B4          10 * WORDS = CHARACTERS
00300  M01S00299.smsg    +++|          LX6    X4,B1
00301  M01S00300.smsg    +++|          BX1    X0          SAVE X0
00302  M01S00301.smsg    +++|          LX4    3
00303  M01S00302.smsg    +++|          IX6    X4+X6
00304  M01S00303.smsg    +++|          SX7    B6          SET SOURCE ADDRESS
00305  M01S00304.smsg    +++|          SX4    B3          SET DESTINATION ADDRESS
00306  M01S00305.smsg    +++|          LX7    30
00307  M01S00306.smsg    +++|          BX4    X4+X7
00308  M01S00307.smsg    +++|          MX7    -4
00309  M01S00308.smsg    +++|          BX3    X7*X6       EXTRACT UPPER PORTION
00310  M01S00309.smsg    +++|          BX6    -X7*X6      EXTRACT LOWER PORTION
00311  M01S00310.smsg    +++|          LX3    48-4
00312  M01S00311.smsg    +++|          BX4    X4+X3
00313  M01S00312.smsg    +++|          LX6    26
00314  M01S00313.smsg    +++|          BX6    X4+X6
00315  M01S00314.smsg    +++|          AX3    51
00316  M01S00315.smsg    +++|          SA6    WTWC        STORE DESCRIPTOR WORD
00317  M01S00316.smsg    +++|          IM     WTWC        MOVE DATA
00318  M01S00317.smsg    +++|          BX0    X1          RESTORE X0
00319  M01S00318.smsg    +++|          ZR     X3,WTW18    IF NO WRITE EXIT
00320  M01S00319.smsg    +++|          SX3    B3          RESET IN
00321  M01S00320.smsg    +++|          JP     WTW9
00322  M01S00321.smsg    +++|
00323  M01S00322.smsg    +++| WTWB     BSS    0
00324  M01S00323.smsg    +++| WTW15    SA1    A1+B1       MOVE DATA WITHOUT CMU
00325  M01S00324.smsg    +++|          SX4    B4-B1
00326  M01S00325.smsg    +++|          MX6    -3
00327  M01S00326.smsg    +++|          SA7    B3
00328  M01S00327.smsg    +++|          JP     WTW5
00329  M01S00328.smsg    +++|
00330  M01S00329.smsg    +++|*         CMU PRESET CODE.
00331  M01S00330.smsg    +++|*         WWTC IS READ UP AND THEN RETURN JUMPED TO IN ORDER TO VOID
00332  M01S00331.smsg    +++|*         STACK.  WWTC IS ALSO USED AS THE CMU DESCRIPTOR WORD
00333  M01S00332.smsg    +++|
00334  M01S00333.smsg    +++| WTWC     GT     B4,B1,WTW14 IF MORE THAN 1 WORD TO MOVE  (CMU)
00335  M01S00334.smsg    +++|          BX4    X4-X4
00336  M01S00335.smsg    +++|          SA7    B3
00337  M01S00336.smsg    +++| WTW16    EQU    WTWC        USED TO VOID STACK
00338  M01S00337.smsg    +++|
00339  M01S00338.smsg    +++|*         PRESET FOR CMU CODE.
00340  M01S00339.smsg    +++|
00341  M01S00340.smsg    +++|          SA4    CMUR        CHECK IF CMU AVAIALABLE
00342  M01S00341.smsg    +++|          SB4    WTWA
00343  M01S00342.smsg    +++|          NG     X4,WTW17    IF CMU
00344  M01S00343.smsg    +++|          SA3    WTWB
00345  M01S00344.smsg    +++| WTW17    BX6    X3
00346  M01S00345.smsg    +++|          SA6    B4
00347  M01S00346.smsg    +++|          JP     WTW1
00348  M01S00347.smsg    +++|
00349  M01S00348.smsg    +++|          TITLE  WORKING STORAGE.
00350  M01S00349.smsg    +++|*         WORKING STORAGE.
00351  M01S00350.smsg    +++|
00352  M01S00351.smsg    +++|
00353  M01S00352.smsg    +++| PARL     BSS    1           PARAMETER LIST POINTER
00354  M01S00353.smsg    +++| IN       BSS    1           IN POINTER FOR FET
00355  M01S00354.smsg    +++| MBUF     BSS    9           PACKED MESSAGE BUFFER
00356  M01S00355.smsg    +++|          SPACE  4
00357  M01S00356.smsg    +++|          END
cdc/nos2.source/opl.opl871/deck/smsg.txt ยท Last modified: by 127.0.0.1