User Tools

Site Tools


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

Deck SMSG

Library Member Format: MODIFY

Source

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
cdc/nos2.source/opl.opl871/deck/smsg.txt ยท Last modified: (external edit)