Common COMCBAN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcban +++|          CTEXT  COMCBAN - ENCODE BANNER MESSAGE.
00002  M00S00002.comcban +++|          SPACE  4
00003  M00S00003.comcban +++|          IF     -DEF,QUAL$
00004  M00S00004.comcban +++|          QUAL   COMCBAN
00005  M00S00005.comcban +++|          ENDIF
00006  M00S00006.comcban +++|          BASE   D

Line S00007 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1982.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.comcban +++|          SPACE  4
00010  M00S00009.comcban +++|***       BAN - ENCODE BANNER MESSAGE.
00011  M00S00010.comcban +++|*
00012  M00S00011.comcban +++|*         P. J. ENGLE        82/10/10.
00013  M00S00012.comcban +++|          SPACE  4,10

Line S00013 Modification History
`M01` (Removed by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00013.ns2198  ---|***       BAN WILL ENCODE AN EIGHT CHARACTER WORD INTO A
00015  M01S00014.ns2198  ---|*         PATTERN AND WRITE IT INTO THE SPECIFIED BUFFER.

Line S00001 Modification History
`M01` (Added by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00001.ns2198  +++|***       *COMCBAN* WILL ENCODE UP TO EIGHT LARGE CHARACTERS
00017  M01S00002.ns2198  +++|*         (12 X 16) OR TEN SMALL CHARACTERS (10 X 10) INTO A
00018  M01S00003.ns2198  +++|*         PATTERN AND WRITE IT TO THE SPECIFIED BUFFER.
00019  M01S00004.ns2198  +++|*         SMALL CHARACTERS ARE ENCODED IF THE SYMBOL *SMCH$*
00020  M01S00005.ns2198  +++|*         IS DEFINED.  OTHERWISE, LARGE CHARACTERS ARE ENCODED.
00021  M00S00015.comcban +++|*
00022  M00S00016.comcban +++|*         ENTRY  (A2) = BUFFER ADDRESS.

Line S00017 Modification History
`M01` (Removed by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00017.ns2198  ---|*                (X4) = WORD TO BE ENCODED (1 TO 8 CHARACTERS;
00024  M01S00018.ns2198  ---|*                       LEFT JUSTIFIED, ZERO FILLED).

Line S00006 Modification History
`M01` (Added by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00006.ns2198  +++|*                (X4) = WORD TO BE ENCODED, LEFT-JUSTIFIED, ZERO
00026  M01S00007.ns2198  +++|*                       FILLED.
00027  M00S00019.comcban +++|*
00028  M00S00020.comcban +++|*         EXIT   MESSAGE ENCODED AND WRITTEN TO BUFFER.
00029  M00S00021.comcban +++|*                (A2) = LWA + 1 OF LAST WORD WRITTEN IN BUFFER.
00030  M00S00022.comcban +++|*
00031  M00S00023.comcban +++|*         USES   X - 1, 2, 3, 6, 7.
00032  M00S00024.comcban +++|*                A - 1, 2, 7.
00033  M00S00025.comcban +++|*                B - 2, 3, 4, 5, 6, 7.
00034  M00S00026.comcban +++|*
00035  M00S00027.comcban +++|*         XREF   COMTBAN.
00036  M00S00028.comcban +++|          SPACE  4,10
00037  M00S00029.comcban +++|*         CONSTANTS.
00038  M00S00030.comcban +++|
00039  M00S00031.comcban +++|

Line S00032 Modification History
`M01` (Removed by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00032.ns2198  ---| BLSP     CON    4L          FOUR BLANK SPACES
00041  M01S00033.ns2198  ---| CHPW     EQU    8           CHARACTERS PER WORD
00042  M01S00034.ns2198  ---| LNCH     EQU    16          LINES PER CHARACTER
00043  M01S00035.ns2198  ---| LNCT     CON    LNCH        LINE COUNT
00044  M01S00036.ns2198  ---| TSPC     EQU    14          TOTAL SPACE PER CHARACTER

Line S00008 Modification History
`M01` (Added by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00045  M01S00008.ns2198  +++| .SMCH    IF     DEF,SMCH$
00046  M01S00009.ns2198  +++|
00047  M01S00010.ns2198  +++| CHPW     EQU    10          MAXIMUM CHARACTERS TO ENCODE
00048  M01S00011.ns2198  +++| LNCH     EQU    10          LINES PER CHARACTER
00049  M01S00012.ns2198  +++| NWPL     EQU    2           CM WORDS PER CHARACTER IN *COMTBAN* TABLE
00050  M01S00013.ns2198  +++|*                            (THIS MUST BE A POWER OF 2)
00051  M01S00014.ns2198  +++|
00052  M01S00015.ns2198  +++| LDSZ     EQU    12          SIZE OF LINE DESCRIPTOR IN *COMTBAN* TABLE
00053  M01S00016.ns2198  +++|*                            (THIS MUST EVENLY DIVIDE INTO 60)
00054  M01S00017.ns2198  +++|
00055  M01S00018.ns2198  +++| TSPC     EQU    12          TOTAL SIZE OF CHARACTER (INCLUDES SPACES
00056  M01S00019.ns2198  +++|*                            AFTER THE CHARACTER)
00057  M01S00020.ns2198  +++|
00058  M01S00021.ns2198  +++|          ERRNG  LDSZ-TSPC   CHARACTER SIZE LARGER THAN DESCRIPTOR
00059  M01S00022.ns2198  +++|
00060  M01S00023.ns2198  +++| .SMCH    ELSE
00061  M01S00024.ns2198  +++|
00062  M01S00025.ns2198  +++| CHPW     EQU    8           MAXIMUM CHARACTERS TO ENCODE
00063  M01S00026.ns2198  +++| LNCH     EQU    16          LINES PER CHARACTER
00064  M01S00027.ns2198  +++| NWPL     EQU    4           CM WORDS PER CHARACTER IN *COMTBAN* TABLE
00065  M01S00028.ns2198  +++|*                            (THIS MUST BE A POWER OF 2)
00066  M01S00029.ns2198  +++|
00067  M01S00030.ns2198  +++| LDSZ     EQU    15          SIZE OF LINE DESCRIPTOR IN *COMTBAN* TABLE
00068  M01S00031.ns2198  +++|*                            (THIS MUST EVENLY DIVIDE INTO 60)
00069  M01S00032.ns2198  +++|
00070  M01S00033.ns2198  +++| TSPC     EQU    14          TOTAL SIZE OF CHARACTER (INCLUDES SPACES
00071  M01S00034.ns2198  +++|*                            AFTER THE CHARACTER)
00072  M01S00035.ns2198  +++|
00073  M01S00036.ns2198  +++|          ERRNG  LDSZ-TSPC   CHARACTER SIZE LARGER THAN DESCRIPTOR
00074  M01S00037.ns2198  +++|
00075  M01S00038.ns2198  +++| .SMCH    ENDIF
00076  M01S00039.ns2198  +++|
00077  M01S00040.ns2198  +++| BLSP     CON    4L          FOUR BLANKS
00078  M01S00041.ns2198  +++| LNCT     CON    LNCH        LINE COUNT
00079  M01S00042.ns2198  +++| CTSI     EQU    NWPL/2      CHARACTER TABLE SHIFT INDEX
00080  M00S00037.comcban +++|          SPACE  4,10
00081  M00S00038.comcban +++| BAN      SUBR               ENTRY/EXIT
00082  M00S00039.comcban +++|          SB3    B0+         BYTE BIT NUMBER

Line S00040 Modification History
`M01` (Removed by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00083  M01S00040.ns2198  ---|          SB4    B0+         CHARACTER TABLE WORD = 0, 1, 2, 3

Line S00043 Modification History
`M01` (Added by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00043.ns2198  +++|          SB4    B0+         CHARACTER TABLE WORD
00085  M00S00041.comcban +++|          SX6    LNCH        INITIALIZE LINE COUNT
00086  M00S00042.comcban +++|          SA6    LNCT

Line S00043 Modification History
`M01` (Removed by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00043.ns2198  ---| BAN1     SB6    CHPW        8 CHARACTERS/WORD

Line S00044 Modification History
`M01` (Added by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00044.ns2198  +++| BAN1     SB6    CHPW        MAXIMUM CHARACTERS TO ENCODE
00089  M00S00044.comcban +++|          SA1    BLSP        ENSURE FIRST FOUR CHARACTERS OF LINE BLANK
00090  M00S00045.comcban +++|          BX7    X1
00091  M00S00046.comcban +++|          SB2    30          INITIAL SHIFT FOR STORING WORD
00092  M00S00047.comcban +++|          SB5    6
00093  M00S00048.comcban +++|
00094  M00S00049.comcban +++|*         GET CHARACTER.
00095  M00S00050.comcban +++|
00096  M00S00051.comcban +++| BAN2     LX2    X4,B5       SET NEXT CHARACTER
00097  M00S00052.comcban +++|          MX3    -6
00098  M00S00053.comcban +++|          BX3    -X3*X2
00099  M00S00054.comcban +++|          SB6    B6-B1
00100  M00S00055.comcban +++|          ZR     X3,BAN6     IF THROUGH PROCESSING CHARACTERS FOR LINE

Line S00056 Modification History
`M01` (Removed by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00101  M01S00056.ns2198  ---|          NG     B6,BAN6     IF EIGHT CHARACTERS PROCESSED

Line S00045 Modification History
`M01` (Added by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00102  M01S00045.ns2198  +++|          NG     B6,BAN6     IF MAXIMUM CHARACTERS PROCESSED
00103  M00S00057.comcban +++|          BX1    X3

Line S00058 Modification History
`M01` (Removed by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00104  M01S00058.ns2198  ---|          LX1    2

Line S00046 Modification History
`M01` (Added by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00105  M01S00046.ns2198  +++|          LX1    CTSI
00106  M00S00059.comcban +++|          SB7    X1+TBAN
00107  M00S00060.comcban +++|
00108  M00S00061.comcban +++|*         PROCESS CHARACTER BIT PATTERN.
00109  M00S00062.comcban +++|
00110  M00S00063.comcban +++|          SA1    B7+B4       GET CHARACTER BIT PATTERN
00111  M00S00064.comcban +++|          LX1    X1,B3
00112  M00S00065.comcban +++|          SB7    TSPC
00113  M00S00066.comcban +++| BAN3     SX6    1R
00114  M00S00067.comcban +++|          PL     X1,BAN4     IF BIT NOT SET
00115  M00S00068.comcban +++|          SX6    X3
00116  M00S00069.comcban +++| BAN4     LX6    X6,B2
00117  M00S00070.comcban +++|          BX7    X6+X7       BUILD WORD TO STORE
00118  M00S00071.comcban +++|          SB2    B2-6        UPDATE SHIFT FOR STORING WORD
00119  M00S00072.comcban +++|          PL     B2,BAN5     IF WORD NOT COMPLETE
00120  M00S00073.comcban +++|          SA7    A2          STORE WORD
00121  M00S00074.comcban +++|          SA2    A2+B1       UPDATE POINTER TO BUFFER
00122  M00S00075.comcban +++|          SX7    B0+
00123  M00S00076.comcban +++|          SB2    54          RESET SHIFT COUNT
00124  M00S00077.comcban +++| BAN5     LX1    B1          CHECK FOR COMPLETION
00125  M00S00078.comcban +++|          SB7    B7-B1
00126  M00S00079.comcban +++|          NZ     B7,BAN3     IF NOT ALL BITS PROCESSED
00127  M00S00080.comcban +++|          SB5    B5+6
00128  M00S00081.comcban +++|          EQ     BAN2        CHECK NEXT CHARACTER
00129  M00S00082.comcban +++|
00130  M00S00083.comcban +++|*         IF FINISHED PROCESSING ONE LINE.
00131  M00S00084.comcban +++|
00132  M00S00085.comcban +++| BAN6     ZR     X7,BAN7     IF NO WORD TO BE WRITTEN
00133  M00S00086.comcban +++|          MX3    -12
00134  M00S00087.comcban +++|          BX3    -X3*X7
00135  M00S00088.comcban +++|          ZR     X3,BAN7     IF WORD CONTAINS EOL
00136  M00S00089.comcban +++|          SA7    A2          WRITE WORD
00137  M00S00090.comcban +++|          SA2    A2+B1       UPDATE POINTER TO BUFFER
00138  M00S00091.comcban +++|          SX7    B0+
00139  M00S00092.comcban +++| BAN7     SA7    A2          WRITE EOL
00140  M00S00093.comcban +++|          SA2    A2+B1
00141  M00S00094.comcban +++|          SA1    LNCT        DECREMENT LINE COUNT
00142  M00S00095.comcban +++|          SX6    X1-1
00143  M00S00096.comcban +++|          SA6    A1
00144  M00S00097.comcban +++|          ZR     X6,BANX     IF BANNER MESSAGE ENCODED

Line S00098 Modification History
`M01` (Removed by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00145  M01S00098.ns2198  ---|          SB3    B3+15

Line S00047 Modification History
`M01` (Added by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00146  M01S00047.ns2198  +++|          SB3    B3+LDSZ
00147  M00S00099.comcban +++|          SX1    B3-60
00148  M00S00100.comcban +++|          NZ     X1,BAN1     IF NOT AT CHARACTER TABLE WORD BOUNDARY
00149  M00S00101.comcban +++|          SB4    B4+B1       UPDATE INDEX TO CHARACTER TABLE WORD
00150  M00S00102.comcban +++|          SB3    0
00151  M00S00103.comcban +++|          EQ     BAN1        ENCODE NEXT LINE
00152  M00S00104.comcban +++|          SPACE  4,10
00153  M00S00105.comcban +++|          BASE   *
00154  M00S00106.comcban +++| QUAL$    IF     -DEF,QUAL$
00155  M00S00107.comcban +++|          QUAL   *
00156  M00S00108.comcban +++| BAN      EQU    /COMCBAN/BAN
00157  M00S00109.comcban +++| QUAL$    ENDIF
00158  M00S00110.comcban +++|          ENDX