Common COMCBAN

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcban +++|          CTEXT  COMCBAN - ENCODE BANNER MESSAGE.
00002  M01S00002.comcban +++|          SPACE  4
00003  M01S00003.comcban +++|          IF     -DEF,QUAL$
00004  M01S00004.comcban +++|          QUAL   COMCBAN
00005  M01S00005.comcban +++|          ENDIF
00006  M01S00006.comcban +++|          BASE   D

Line S00007 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1982.
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.comcban +++|          SPACE  4
00010  M01S00009.comcban +++|***       BAN - ENCODE BANNER MESSAGE.
00011  M01S00010.comcban +++|*
00012  M01S00011.comcban +++|*         P. J. ENGLE        82/10/10.
00013  M01S00012.comcban +++|          SPACE  4,10

Line S00013 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00013.ns2198  ---|***       BAN WILL ENCODE AN EIGHT CHARACTER WORD INTO A

Line S00014 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00014.ns2198  ---|*         PATTERN AND WRITE IT INTO THE SPECIFIED BUFFER.
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  M01S00015.comcban +++|*
00022  M01S00016.comcban +++|*         ENTRY  (A2) = BUFFER ADDRESS.

Line S00017 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00017.ns2198  ---|*                (X4) = WORD TO BE ENCODED (1 TO 8 CHARACTERS;

Line S00018 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00018.ns2198  ---|*                       LEFT JUSTIFIED, ZERO FILLED).
00025  M01S00006.ns2198  +++|*                (X4) = WORD TO BE ENCODED, LEFT-JUSTIFIED, ZERO
00026  M01S00007.ns2198  +++|*                       FILLED.
00027  M01S00019.comcban +++|*
00028  M01S00020.comcban +++|*         EXIT   MESSAGE ENCODED AND WRITTEN TO BUFFER.
00029  M01S00021.comcban +++|*                (A2) = LWA + 1 OF LAST WORD WRITTEN IN BUFFER.
00030  M01S00022.comcban +++|*
00031  M01S00023.comcban +++|*         USES   X - 1, 2, 3, 6, 7.
00032  M01S00024.comcban +++|*                A - 1, 2, 7.
00033  M01S00025.comcban +++|*                B - 2, 3, 4, 5, 6, 7.
00034  M01S00026.comcban +++|*
00035  M01S00027.comcban +++|*         XREF   COMTBAN.
00036  M01S00028.comcban +++|          SPACE  4,10
00037  M01S00029.comcban +++|*         CONSTANTS.
00038  M01S00030.comcban +++|
00039  M01S00031.comcban +++|

Line S00032 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00032.ns2198  ---| BLSP     CON    4L          FOUR BLANK SPACES

Line S00033 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00033.ns2198  ---| CHPW     EQU    8           CHARACTERS PER WORD

Line S00034 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00034.ns2198  ---| LNCH     EQU    16          LINES PER CHARACTER

Line S00035 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00035.ns2198  ---| LNCT     CON    LNCH        LINE COUNT

Line S00036 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00036.ns2198  ---| TSPC     EQU    14          TOTAL SPACE PER CHARACTER
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  M01S00037.comcban +++|          SPACE  4,10
00081  M01S00038.comcban +++| BAN      SUBR               ENTRY/EXIT
00082  M01S00039.comcban +++|          SB3    B0+         BYTE BIT NUMBER

Line S00040 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00040.ns2198  ---|          SB4    B0+         CHARACTER TABLE WORD = 0, 1, 2, 3
00084  M01S00043.ns2198  +++|          SB4    B0+         CHARACTER TABLE WORD
00085  M01S00041.comcban +++|          SX6    LNCH        INITIALIZE LINE COUNT
00086  M01S00042.comcban +++|          SA6    LNCT

Line S00043 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00043.ns2198  ---| BAN1     SB6    CHPW        8 CHARACTERS/WORD
00088  M01S00044.ns2198  +++| BAN1     SB6    CHPW        MAXIMUM CHARACTERS TO ENCODE
00089  M01S00044.comcban +++|          SA1    BLSP        ENSURE FIRST FOUR CHARACTERS OF LINE BLANK
00090  M01S00045.comcban +++|          BX7    X1
00091  M01S00046.comcban +++|          SB2    30          INITIAL SHIFT FOR STORING WORD
00092  M01S00047.comcban +++|          SB5    6
00093  M01S00048.comcban +++|
00094  M01S00049.comcban +++|*         GET CHARACTER.
00095  M01S00050.comcban +++|
00096  M01S00051.comcban +++| BAN2     LX2    X4,B5       SET NEXT CHARACTER
00097  M01S00052.comcban +++|          MX3    -6
00098  M01S00053.comcban +++|          BX3    -X3*X2
00099  M01S00054.comcban +++|          SB6    B6-B1
00100  M01S00055.comcban +++|          ZR     X3,BAN6     IF THROUGH PROCESSING CHARACTERS FOR LINE

Line S00056 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

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

Line S00058 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00058.ns2198  ---|          LX1    2
00105  M01S00046.ns2198  +++|          LX1    CTSI
00106  M01S00059.comcban +++|          SB7    X1+TBAN
00107  M01S00060.comcban +++|
00108  M01S00061.comcban +++|*         PROCESS CHARACTER BIT PATTERN.
00109  M01S00062.comcban +++|
00110  M01S00063.comcban +++|          SA1    B7+B4       GET CHARACTER BIT PATTERN
00111  M01S00064.comcban +++|          LX1    X1,B3
00112  M01S00065.comcban +++|          SB7    TSPC
00113  M01S00066.comcban +++| BAN3     SX6    1R
00114  M01S00067.comcban +++|          PL     X1,BAN4     IF BIT NOT SET
00115  M01S00068.comcban +++|          SX6    X3
00116  M01S00069.comcban +++| BAN4     LX6    X6,B2
00117  M01S00070.comcban +++|          BX7    X6+X7       BUILD WORD TO STORE
00118  M01S00071.comcban +++|          SB2    B2-6        UPDATE SHIFT FOR STORING WORD
00119  M01S00072.comcban +++|          PL     B2,BAN5     IF WORD NOT COMPLETE
00120  M01S00073.comcban +++|          SA7    A2          STORE WORD
00121  M01S00074.comcban +++|          SA2    A2+B1       UPDATE POINTER TO BUFFER
00122  M01S00075.comcban +++|          SX7    B0+
00123  M01S00076.comcban +++|          SB2    54          RESET SHIFT COUNT
00124  M01S00077.comcban +++| BAN5     LX1    B1          CHECK FOR COMPLETION
00125  M01S00078.comcban +++|          SB7    B7-B1
00126  M01S00079.comcban +++|          NZ     B7,BAN3     IF NOT ALL BITS PROCESSED
00127  M01S00080.comcban +++|          SB5    B5+6
00128  M01S00081.comcban +++|          EQ     BAN2        CHECK NEXT CHARACTER
00129  M01S00082.comcban +++|
00130  M01S00083.comcban +++|*         IF FINISHED PROCESSING ONE LINE.
00131  M01S00084.comcban +++|
00132  M01S00085.comcban +++| BAN6     ZR     X7,BAN7     IF NO WORD TO BE WRITTEN
00133  M01S00086.comcban +++|          MX3    -12
00134  M01S00087.comcban +++|          BX3    -X3*X7
00135  M01S00088.comcban +++|          ZR     X3,BAN7     IF WORD CONTAINS EOL
00136  M01S00089.comcban +++|          SA7    A2          WRITE WORD
00137  M01S00090.comcban +++|          SA2    A2+B1       UPDATE POINTER TO BUFFER
00138  M01S00091.comcban +++|          SX7    B0+
00139  M01S00092.comcban +++| BAN7     SA7    A2          WRITE EOL
00140  M01S00093.comcban +++|          SA2    A2+B1
00141  M01S00094.comcban +++|          SA1    LNCT        DECREMENT LINE COUNT
00142  M01S00095.comcban +++|          SX6    X1-1
00143  M01S00096.comcban +++|          SA6    A1
00144  M01S00097.comcban +++|          ZR     X6,BANX     IF BANNER MESSAGE ENCODED

Line S00098 Modification History
`M01` (Added by)	`comcban`
`M02` (Updated by)	`ns2198`

Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00098.ns2198  ---|          SB3    B3+15
00146  M01S00047.ns2198  +++|          SB3    B3+LDSZ
00147  M01S00099.comcban +++|          SX1    B3-60
00148  M01S00100.comcban +++|          NZ     X1,BAN1     IF NOT AT CHARACTER TABLE WORD BOUNDARY
00149  M01S00101.comcban +++|          SB4    B4+B1       UPDATE INDEX TO CHARACTER TABLE WORD
00150  M01S00102.comcban +++|          SB3    0
00151  M01S00103.comcban +++|          EQ     BAN1        ENCODE NEXT LINE
00152  M01S00104.comcban +++|          SPACE  4,10
00153  M01S00105.comcban +++|          BASE   *
00154  M01S00106.comcban +++| QUAL$    IF     -DEF,QUAL$
00155  M01S00107.comcban +++|          QUAL   *
00156  M01S00108.comcban +++| BAN      EQU    /COMCBAN/BAN
00157  M01S00109.comcban +++| QUAL$    ENDIF
00158  M01S00110.comcban +++|          ENDX