Common COMCTIO

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comctio +++|          CTEXT  COMCTIO - TEXT I/O ROUTINES.
00002  M00S00002.comctio +++|          BASE   D

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

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.281l803 ---|*COMMENT  COPYRIGHT CONTROL DATA CORP.  1985.

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.comctio +++| COMCTIO  SPACE  4,10
00006  M00S00005.comctio +++|***       COMCTIO - TEXT I/O.
00007  M00S00006.comctio +++|*
00008  M00S00007.comctio +++|*         COMCTIO PROVIDES ROUTINES TO PERFORM TEXT I/O FROM
00009  M00S00008.comctio +++|*         COMPASS PROGRAMS.  TEXT IS ADDED TO A FILE IN CHARACTER
00010  M00S00009.comctio +++|*         INCREMENTS, INSTEAD OF IN WORD INCREMENTS.  NUMERIC DATA
00011  M00S00010.comctio +++|*         ITEMS ARE CONVERTED TO EITHER LEFT OR RIGHT JUSTIFIED
00012  M00S00011.comctio +++|*         CHARACTERS.  NOS END OF LINE CONVENTIONS ARE INSURED.
00013  M00S00012.comctio +++|*
00014  M00S00013.comctio +++|*         NOTE   FET+5 IS USED BY THESE ROUTINES.
00015  M00S00014.comctio +++| CTI      SPACE  4,15
00016  M00S00015.comctio +++|**        CTI - CONVERT TO DECIMAL DISPLAY CODE WITH LEADING ZERO.
00017  M00S00016.comctio +++|*         SUPPRESSION.
00018  M00S00017.comctio +++|*
00019  M00S00018.comctio +++|*         ENTRY  (X1) = NUMBER TO BE CONVERTED.
00020  M00S00019.comctio +++|*
00021  M00S00020.comctio +++|*         EXIT   (X3) = DECIMAL CONVERSION LEFT JUSTIFIED, BLANK FILLED
00022  M00S00021.comctio +++|*                (B6) = NUMBER OF CHARACTERS CONVERTED.
00023  M00S00022.comctio +++|*
00024  M00S00023.comctio +++|*         USES   A - 3, 4, 5.
00025  M00S00024.comctio +++|*                X - 1, 3, 4, 5, 6, 7.
00026  M00S00025.comctio +++|*                B - 6.
00027  M00S00026.comctio +++|
00028  M00S00027.comctio +++|
00029  M00S00028.comctio +++| CTI      SUBR               ENTRY/EXIT
00030  M00S00029.comctio +++|          SA4    CTIA        0.1P48+1
00031  M00S00030.comctio +++|          SA5    CTIB
00032  M00S00031.comctio +++|          PX1    X1
00033  M00S00032.comctio +++|          SB6    B0          CLEAR CHARACTER COUNT
00034  M00S00033.comctio +++|          SA3    CTIC
00035  M00S00034.comctio +++| CTI1     DX6    X1*X4       COMPUTE QUOTIENT
00036  M00S00035.comctio +++|          FX1    X1*X4
00037  M00S00036.comctio +++|          UX7    X1          CHECK QUOTIENT
00038  M00S00037.comctio +++|          FX6    X6*X5       EXTRACT REMAINDER DIGIT
00039  M00S00038.comctio +++|          SB6    B6+B1
00040  M00S00039.comctio +++|          SX6    X6+1R0-1R   CONVERT DIGIT
00041  M00S00040.comctio +++|          IX3    X6+X3
00042  M00S00041.comctio +++|          LX3    -6          SHIFT ASSEMBLY
00043  M00S00042.comctio +++|          NZ     X7,CTI1     IF LOOP TO ZERO QUOTIENT
00044  M00S00043.comctio +++|          EQ     CTIX        RETURN
00045  M00S00044.comctio +++|
00046  M00S00045.comctio +++| CTIA     CON    0.1P48+1
00047  M00S00046.comctio +++| CTIB     CON    10.P
00048  M00S00047.comctio +++| CTIC     CON    10H
00049  M00S00048.comctio +++| CTO      SPACE  4,15
00050  M00S00049.comctio +++|**        CTO - CONVERT TO OCTAL DISPLAY CODE WITH LEADING ZERO.
00051  M00S00050.comctio +++|*         SUPPRESSION.
00052  M00S00051.comctio +++|*
00053  M00S00052.comctio +++|*         ENTRY  (X1) = NUMBER TO BE CONVERTED.
00054  M00S00053.comctio +++|*
00055  M00S00054.comctio +++|*         EXIT   (X3) = OCTAL CONVERSION LEFT JUSTIFIED, BLANK FILLED.
00056  M00S00055.comctio +++|*                (B6) = NUMBER OF CHARACTERS CONVERTED.
00057  M00S00056.comctio +++|*
00058  M00S00057.comctio +++|*         USES   A - 3.
00059  M00S00058.comctio +++|*                X - 1, 3, 4, 6.
00060  M00S00059.comctio +++|*                B - 6.
00061  M00S00060.comctio +++|
00062  M00S00061.comctio +++|
00063  M00S00062.comctio +++| CTO      SUBR               ENTRY/EXIT
00064  M00S00063.comctio +++|          SA3    CTIC
00065  M00S00064.comctio +++|          MX6    -3          (X2) = DIGIT MASK
00066  M00S00065.comctio +++|          SB6    B0          CLEAR CHARACTER COUNT
00067  M00S00066.comctio +++| CTO1     BX4    -X6*X1      EXTRACT DIGIT
00068  M00S00067.comctio +++|          SB6    B6+B1
00069  M00S00068.comctio +++|          SX4    X4+1R0-1R   CONVERT DIGIT
00070  M00S00069.comctio +++|          AX1    3           SHIFT OFF DIGIT
00071  M00S00070.comctio +++|          IX3    X4+X3       ADD DIGIT TO ASSEMBLY
00072  M00S00071.comctio +++|          LX3    -6
00073  M00S00072.comctio +++|          NZ     X1,CTO1     IF LOOP TO ZERO DIGIT
00074  M00S00073.comctio +++|          EQ     CTOX        RETURN
00075  M00S00074.comctio +++| WRC      SPACE  4,10
00076  M00S00075.comctio +++|**        WRC - WRITE CHARACTERS TO TEXT FILE.
00077  M00S00076.comctio +++|*
00078  M00S00077.comctio +++|*         ENTRY  (X2) = TEXT FILE FET ADDRESS.
00079  M00S00078.comctio +++|*                (X3) = FIRST WORD OF CHARACTERS TO WRITE.
00080  M00S00079.comctio +++|*                (B6) = NUMBER OF CHARACTERS TO WRITE.
00081  M00S00080.comctio +++|*                     = 0, IF TO WRITE TILL ZERO BYTE TERMINATOR.
00082  M00S00081.comctio +++|*                (A3) = ADDRESS OF FIRST WORD OF CHARACTERS, IF MORE
00083  M00S00082.comctio +++|*                       THAN 10 CHARACTERS TO WRITE.
00084  M00S00083.comctio +++|*
00085  M00S00084.comctio +++|*         USES   A - 1, 3, 4, 6, 7.
00086  M00S00085.comctio +++|*                X - 1, 3, 4, 5, 6, 7.
00087  M00S00086.comctio +++|*                B - 2, 3, 4, 6, 7.
00088  M00S00087.comctio +++|
00089  M00S00088.comctio +++|
00090  M00S00089.comctio +++| WRC8     SB5    X7+B6       ADVANCE CHARACTER COUNT IN BUFFER WORD
00091  M00S00090.comctio +++|          LT     B5,B4,WRC9  IF NOT INTO NEXT WORD
00092  M00S00091.comctio +++|          SA6    B2
00093  M00S00092.comctio +++|          SB2    B2+B1       ADVANCE BUFFER ADDRESS
00094  M00S00093.comctio +++|          BX6    -X1*X3
00095  M00S00094.comctio +++|          SB5    B5-B4
00096  M00S00095.comctio +++|          SB6    B6-B4

Line S00096 Modification History
`M01` (Removed by)	`ctio1`

Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00096.ctio1   ---| WRC9     SA4    WRCB+10+B5  EXTRACT CHARACTERS TO STORE

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

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00001.ctio1   +++| WRC9     SA4    WRCC+B5     EXTRACT CHARACTERS TO STORE
00099  M00S00097.comctio +++|          SX1    B6          UPDATE CHARACTER COUNT IN LAST BUFFER WORD
00100  M00S00098.comctio +++|          BX6    -X4*X6
00101  M00S00099.comctio +++|          SA6    B2          STORE LAST WORD
00102  M00S00100.comctio +++|          SX6    B2          UPDATE IN
00103  M00S00101.comctio +++|          IX7    X7+X1
00104  M00S00102.comctio +++|          SA6    X2+2
00105  M00S00103.comctio +++|          SA7    X2+5
00106  M00S00104.comctio +++|
00107  M00S00105.comctio +++| WRC=     SUBR               ENTRY/EXIT
00108  M00S00106.comctio +++|          SB4    10          (B4) = 10
00109  M00S00107.comctio +++|          NZ     B6,WRC3     IF LINE LENGTH PRESENT
00110  M00S00108.comctio +++|          SA1    WRCA        40404040404040404040B
00111  M00S00109.comctio +++|
00112  M00S00110.comctio +++|*         COMPUTE CHARACTER COUNT IN LINE.
00113  M00S00111.comctio +++|
00114  M00S00112.comctio +++|          MX6    -6
00115  M00S00113.comctio +++|          BX7    -X6*X3
00116  M00S00114.comctio +++|          BX4    X3
00117  M00S00115.comctio +++|          ZR     X7,WRC2     IF SINGLE WORD
00118  M00S00116.comctio +++|          SB5    B1
00119  M00S00117.comctio +++| WRC1     SA4    A3+B5
00120  M00S00118.comctio +++|          SB6    B6+B4
00121  M00S00119.comctio +++|          SB5    B5+B1
00122  M00S00120.comctio +++|          BX7    -X6*X4
00123  M00S00121.comctio +++| WRC2     NZ     X7,WRC1     IF NOT LAST WORD IN LINE
00124  M00S00122.comctio +++|          SX6    B1
00125  M00S00123.comctio +++|          IX6    X4-X6
00126  M00S00124.comctio +++|          BX6    -X6+X4
00127  M00S00125.comctio +++|          BX6    X1*X6
00128  M00S00126.comctio +++|          CX6    X6
00129  M00S00127.comctio +++|          SB6    X6+B6
00130  M00S00128.comctio +++|
00131  M00S00129.comctio +++|*         TRANSFER CHARACTERS TO FILE BUFFER.
00132  M00S00130.comctio +++|
00133  M00S00131.comctio +++| WRC3     SA4    X2+4
00134  M00S00132.comctio +++|          SA1    A4+B1       READ CHARACTER COUNT
00135  M00S00133.comctio +++|          SB7    X4          (B7) = LIMIT POINTER
00136  M00S00134.comctio +++|          BX7    X1          (X7) = FET + 5
00137  M00S00135.comctio +++|          SA4    WRCB+X7
00138  M00S00136.comctio +++|          SA1    A4+B4       (X1) = WORD SPLITING MASK
00139  M00S00137.comctio +++|          SB5    X4          (B5) = SHIFT COUNT FOR WORD
00140  M00S00138.comctio +++|          SA4    X2+2
00141  M00S00139.comctio +++|          SB2    X4          (B2) = IN POINTER
00142  M00S00140.comctio +++|          SA4    A4+B1
00143  M00S00141.comctio +++|          SB3    X4          (B3) = OUT POINTER
00144  M00S00142.comctio +++|          SA4    B2          READ BUFFER WORD TO ADD CHARACTERS TO
00145  M00S00143.comctio +++|          BX4    -X1*X4
00146  M00S00144.comctio +++| WRC4     LX3    B5
00147  M00S00145.comctio +++|          BX6    X1*X3       EXTRACT LOWER CHARACTERS
00148  M00S00146.comctio +++|          BX6    X6+X4       MERGE WITH WORD IN BUFFER
00149  M00S00147.comctio +++|          BX4    -X1*X3      EXTRACT CHARACTERS TO CARRY FORWARD
00150  M00S00148.comctio +++|          LT     B6,B4,WRC8  IF PARTIAL WORD TO ADD TO BUFFER
00151  M00S00149.comctio +++|          SA6    B2
00152  M00S00150.comctio +++|          SB2    B2+B1
00153  M00S00151.comctio +++|          SB6    B6-B4       DECREMENT CHARACTER COUNT
00154  M00S00152.comctio +++|          SA3    A3+B1       READ NEXT WORD TO ADD
00155  M00S00153.comctio +++|          EQ     B2,B7,WRC6  IF IN+1 = LIMIT - BUFFER WRAP
00156  M00S00154.comctio +++|          NE     B2,B3,WRC4  IF IN+1 .NE. OUT - ROOM IN BUFFER
00157  M00S00155.comctio +++|          SA1    X2
00158  M00S00156.comctio +++|          SX6    B2-B1       SET IN POINTER
00159  M00S00157.comctio +++|          LX1    59
00160  M00S00158.comctio +++|          SA6    X2+2
00161  M00S00159.comctio +++|          NG     X1,WRC7     IF BUFFER NOT BUSY
00162  M00S00160.comctio +++|          ZR     X1,WRC7     IF NULL FET
00163  M00S00161.comctio +++| WRC5     RECALL
00164  M00S00162.comctio +++|          SA1    X2+3        REREAD POINTERS
00165  M00S00163.comctio +++|          SB3    X1
00166  M00S00164.comctio +++|          SA1    X2+5
00167  M00S00165.comctio +++|          BX7    X1

Line S00166 Modification History
`M01` (Removed by)	`ctio1`

Seq #  *Modification Id* Act 
----------------------------+
00168  M01S00166.ctio1   ---|          SA1    A4+B4

Line S00002 Modification History
`M01` (Added by)	`ctio1`

Seq #  *Modification Id* Act 
----------------------------+
00169  M01S00002.ctio1   +++|          SA1    WRCC+X7
00170  M00S00167.comctio +++|          EQ     B2,B3,WRC7  IF NO ROOM IN BUFFER
00171  M00S00168.comctio +++|          EQ     WRC4        PROCESS NEXT WORD
00172  M00S00169.comctio +++|
00173  M00S00170.comctio +++| WRC6     SA1    X2+3        SET IN TO FIRST IF ROOM
00174  M00S00171.comctio +++|          SB3    X1
00175  M00S00172.comctio +++|          SA1    X2+B1       FIRST
00176  M00S00173.comctio +++|          SB2    X1
00177  M00S00174.comctio +++|          SA1    X2+5
00178  M01S00003.ctio1   +++|          BX7    X1
00179  M01S00004.ctio1   +++|          SA1    WRCC+X7
00180  M00S00175.comctio +++|          NE     B2,B3,WRC4  IF OUT .NE. FIRST, SET IN TO FIRST
00181  M00S00176.comctio +++| WRC7     WRITE  X2
00182  M00S00177.comctio +++|          EQ     WRC5        RECHECK POINTERS
00183  M00S00178.comctio +++|
00184  M00S00179.comctio +++| WRCA     CON    40404040404040404040B
00185  M00S00180.comctio +++| WRCB     CON    0,54,48,42,36,30,24,18,12,6  SHIFT COUNT TABLE

Line S00181 Modification History
`M01` (Removed by)	`ctio1`

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00181.ctio1   ---|          CON    -0          TABLE OF MASKS TO SPLIT WORD

Line S00005 Modification History
`M01` (Added by)	`ctio1`

Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00005.ctio1   +++| WRCC     CON    -0          TABLE OF MASKS TO SPLIT WORD
00188  M00S00182.comctio +++|          CON    777777777777777777B,7777777777777777B,77777777777777B
00189  M00S00183.comctio +++|          CON    777777777777B,7777777777B,77777777B,777777B,7777B,77B
00190  M00S00184.comctio +++| WRL      SPACE  4,10
00191  M00S00185.comctio +++|**        WRL - WRITE LINE TO FILE.
00192  M00S00186.comctio +++|*
00193  M00S00187.comctio +++|*         ENTRY  (X2) = FET ADDRESS.
00194  M00S00188.comctio +++|*
00195  M00S00189.comctio +++|*         EXIT   LINE WRITTEN TO FILE.
00196  M00S00190.comctio +++|*
00197  M00S00191.comctio +++|*         USES   A - 1, 3, 4, 6.
00198  M00S00192.comctio +++|*                X - 1, 3, 4, 6.
00199  M00S00193.comctio +++|*                B - 2.
00200  M00S00194.comctio +++|*
00201  M00S00195.comctio +++|*         MACROS WRITEW.
00202  M00S00196.comctio +++|
00203  M00S00197.comctio +++|
00204  M00S00198.comctio +++| WRL=     SUBR               ENTRY/EXIT
00205  M00S00199.comctio +++|          SA1    X2+2
00206  M00S00200.comctio +++|          SA3    X2+5
00207  M00S00201.comctio +++|          SX3    X3
00208  M00S00202.comctio +++|          LX3    -1
00209  M00S00203.comctio +++|          PL     X3,WRL1     IF EVEN CHARACTERS IN LAST WORD
00210  M00S00204.comctio +++|          SA3    WRLA+X3
00211  M00S00205.comctio +++|          SA4    X1          BLANK FILL TO EVEN CHARACTER
00212  M00S00206.comctio +++|          BX6    X4+X3
00213  M00S00207.comctio +++|          SA6    A4
00214  M00S00208.comctio +++|          AX3    6
00215  M00S00209.comctio +++|          NZ     X3,WRL1     IF WORD NOT COMPLETED
00216  M00S00210.comctio +++|          WRITEW X2,A6,1
00217  M00S00211.comctio +++|          SX1    =0
00218  M00S00212.comctio +++|
00219  M00S00213.comctio +++| WRL1     WRITEW X2,X1,1     WRITE LAST WORD OF LINE TO BUFFER
00220  M00S00214.comctio +++|          SA1    X2+5        CHECK FOR LINE LIMIT
00221  M00S00215.comctio +++|          UX1,B2 X1          (B2) = LINE COUNT
00222  M00S00216.comctio +++|          SX6    X1          CLEAR CHARACTER COUNT
00223  M00S00217.comctio +++|          BX1    X1-X6
00224  M00S00218.comctio +++|          SB2    B2+B1
00225  M00S00219.comctio +++|          PX6    X1,B2
00226  M00S00220.comctio +++|          SA6    A1
00227  M00S00221.comctio +++|          EQ     WRL=        RETURN
00228  M00S00222.comctio +++|
00229  M00S00223.comctio +++| WRLA     CON    55BS48,55BS36,55BS24,55BS12,1R
00230  M00S00224.comctio +++|          SPACE  4
00231  M00S00225.comctio +++|          BASE   *
00232  M00S00226.comctio +++|          ENDX