Common COMPWSS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compwss +++|          CTEXT  COMPWSS - WRITE SYSTEM SECTOR.
00002  M00S00002.compwss +++| COMPWSS  SPACE  4,10
00003  M00S00003.compwss +++| QUAL$    IF     -DEF,QUAL$
00004  M00S00004.compwss +++|          QUAL   COMPWSS
00005  M00S00005.compwss +++| QUAL$    ENDIF

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT  CONTROL DATA CORPORATION. 1979.

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compwss +++| WSS      SPACE  4
00009  M00S00008.compwss +++|***       WSS - WRITE SYSTEM SECTOR.
00010  M00S00009.compwss +++|*         G. R. MANSFIELD.  70/07/20.
00011  M00S00010.compwss +++| WSS      SPACE  4
00012  M00S00011.compwss +++|***              WSS IS USED TO WRITE THE SYSTEM SECTOR FOR A FILE.
00013  M00S00012.compwss +++|*

Line S00013 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00013.242l642 ---|*         IF *WSS$* IS DEFINED, *WSE* IS ASSUMED TO BE THE LOCATION
00015  M01S00014.242l642 ---|*         OF USERS ERROR PROCESSOR.  TRANSFER TO THAT ADDRESS WILL
00016  M01S00015.242l642 ---|*         OCCUR IF ERROR RETURN FROM THE DRIVER IS SELECTED
00017  M01S00016.242l642 ---|*         AND WRITE ERRORS ENCOUNTERED.
00018  M01S00017.242l642 ---|*
00019  M00S00018.compwss ---|*         IF *WCS$* IS DEFINED IT IS ASSUMED THAT MORE SECTORS WILL
00020  M00S00019.compwss ---|*         BE WRITTEN CONSECUTIVELY AFTER THE SYSTEM SECTOR BEFORE
00021  M00S00020.compwss ---|*         THE CHANNEL IS RELEASED.  IF WCS$ IS NOT DEFINED IT IS
00022  M00S00021.compwss ---|*         ASSUMED NO SECTORS WILL BE WRITTEN CONSECUTIVELY AFTER THE
00023  M00S00022.compwss ---|*         SYSTEM SECTOR.  IF BOTH OF THE PREVIOUS OPTIONS ARE TO BE
00024  M00S00023.compwss ---|*         USED IN THE SAME PROGRAM IT IS UP TO THE CALLER TO SELECT
00025  M00S00024.compwss ---|*         THE CORRECT DRIVER DIRECTIVE.  THIS IS DONE BY STORING IN
00026  M00S00025.compwss ---|*         WSSA EITHER LDCI+WLSF/10000 OR LDCI+WCSF/10000.
00027  M00S00026.compwss ---|*
00028  M00S00027.compwss ---|*         IF *WIS$* IS DEFINED, THE EXISTING VALUE OF *T7* IS USED
00029  M00S00028.compwss ---|*         AS THE SECTOR NUMBER.  OTHERWISE, *T7* IS SET TO ZERO.
00030  M01S00029.242l642 ---|*
00031  M00S00030.compwss ---|*         *WSS* SETS A POINTER TO THE NEXT SECTOR FOR THE FILE
00032  M00S00031.compwss ---|*         IN *NSSS*.  IF *WIS$* IS DEFINED, THIS MAY BE A POINTER TO
00033  M00S00032.compwss ---|*         THE NEXT TRACK, AND *WSS* WILL CALL *COMPSNT* IF NECESSARY
00034  M00S00033.compwss ---|*         TO FIND THE NEXT TRACK.  IF A TRACK IS REQUIRED AND
00035  M00S00034.compwss ---|*         NO NEXT TRACK IS SET IN THE TRT, *WSS* WILL HANG THE PP
00036  M00S00035.compwss ---|*         WITH AN *MXFM*.
00037  M00S00036.compwss ---|*
00038  M00S00037.compwss ---|*         *NOTE* TO USE *COMPWSS* WITH A GLOBAL FILE,  *FNSS* AND
00039  M00S00038.compwss ---|*         *FASS* MUST BE PRESET BY THE CALLER AND (FA) SET TO ZERO
00040  M00S00039.compwss ---|*         BEFORE CALLING *COMPWSS*.
00041  M00S00040.compwss ---|*
00042  M00S00041.compwss ---|*         AFTER THE SECTOR IS WRITTEN, THE DISK IS POSITIONED
00043  M00S00042.compwss ---|*         TO THE FIRST DATA SECTOR OF THE FILE.
00044  M00S00043.compwss ---|*
00045  M00S00044.compwss ---|*         CONTROL BYTES -
00046  M00S00045.compwss ---|*         CON    3777
00047  M00S00046.compwss ---|*         CON    77
00048  M00S00047.compwss ---|*
00049  M00S00048.compwss ---|*         INFORMATION WRITTEN -
00050  M00S00049.compwss ---|*T        60/ FNT ENTRY

Figure

00051  M00S00050.compwss ---|*T,       12/EQ,12/FT,12/NS,12/0,12/FA

Figure

00052  M00S00051.compwss ---|*T,       60/ PACKED DATE AND TIME

Figure

00053  M00S00052.compwss ---|*

Line S00053 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00053.ns22000 ---|*         EQ = EQUIPMENT NUMBER

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

Seq #  *Modification Id* Act 
----------------------------+
00055  M01S00001.ns22000 +++|*         EQ = EST ORDINAL
00056  M00S00054.compwss +++|*         FT = FIRST TRACK
00057  M00S00055.compwss +++|*         NS = NEXT SECTOR/TRACK POINTER
00058  M00S00056.compwss +++|*         FA = RELATIVE FNT ADDRESS IN NFL
00059  M00S00057.compwss +++|*
00060  M00S00058.compwss +++|*         BSS    5
00061  M00S00059.compwss +++|*
00062  M00S00060.compwss +++|*         DATA BEGINNING AT WORD 10 IS PARTICULAR TO A FILE TYPE, AND
00063  M00S00061.compwss +++|*         IS PRESTORED BY THE CALLING PROGRAM.
00064  M00S00062.compwss +++|*
00065  M00S00063.compwss +++|*         ENTRY  (FA) = RELATIVE FNT ADDRESS IN NFL.
00066  M00S00064.compwss +++|*                (FS - FS+4) = FST ENTRY.

Line S00065 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00065.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.

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

Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00002.ns22000 +++|*                (T5) = EST ORDINAL.
00069  M00S00066.compwss +++|*                (T6) = FIRST TRACK.
00070  M00S00067.compwss +++|*                (T7) = FIRST SECTOR (IF *WIS$* DEFINED).
00071  M00S00068.compwss +++|*                (BFMS+2+10*5 - BFMS+2+77*5) = SECTOR DATA IF NEEDED.

Line S00001 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00001.242l642 +++|*                DRIVER PRESET.
00073  M00S00069.compwss +++|*
00074  M00S00070.compwss +++|*                IF (FA) = 0, FNT ENTRY AND (FA) ARE ASSUMED TO BE
00075  M00S00071.compwss +++|*                PRESTORED BY CALLER.
00076  M00S00072.compwss +++|*

Line S00073 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00077  M01S00073.242l642 ---|*         EXIT   (T7) = FIRST DATA SECTOR.

Line S00002 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00002.242l642 +++|*         EXIT   (A) .LT. 0 (RESPONSE FROM DRIVER) IF WRITE ERROR.
00079  M00S00074.compwss +++|*                (T6) = TRACK FOR FIRST DATA SECTOR.

Line S00075 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00075.242l642 ---|*                DISK POSITIONED FOR FIRST DATA SECTOR.

Line S00003 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00081  M01S00003.242l642 +++|*                (T7) = FIRST DATA SECTOR.
00082  M00S00076.compwss +++|*
00083  M00S00077.compwss +++|*         USES   T6, T7.
00084  M00S00078.compwss +++|*

Line S00079 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00079.242l642 ---|*         CALLS  WDS.

Line S00004 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00086  M01S00004.242l642 +++|*         CALLS  SNT (IF WIS$ DEFINED), WDS.
00087  M00S00080.compwss +++|*
00088  M00S00081.compwss +++|*         MACROS MONITOR, NFA.
00089  M00S00082.compwss +++|
00090  M00S00083.compwss +++|
00091  M00S00084.compwss +++| WSS      SUBR               ENTRY/EXIT
00092  M00S00085.compwss +++|          LDC    3777        SET SECTOR CODE CONTROL BYTE
00093  M00S00086.compwss +++|          STM    BFMS
00094  M00S00087.compwss +++|          LDN    77          SET WORD COUNT
00095  M00S00088.compwss +++|          STM    BFMS+1
00096  M00S00089.compwss +++| FA       IF     DEF,FA
00097  M00S00090.compwss +++|          LDD    FA          ENTER FNT ORDINAL
00098  M00S00091.compwss +++|          ZJN    WSS1        IF NOT DEFINED
00099  M00S00092.compwss +++|          STM    FASS
00100  M00S00093.compwss +++|          NFA    FA,R        READ FNT ENTRY
00101  M00S00094.compwss +++|          CRM    FNSS,ON
00102  M00S00095.compwss +++| FA       ENDIF
00103  M00S00096.compwss +++| WSS1     LDD    T5          ENTER EQUIPMENT
00104  M00S00097.compwss +++|          STM    EQSS
00105  M00S00098.compwss +++|          LDD    T6          ENTER FIRST TRACK
00106  M00S00099.compwss +++|          STM    FTSS
00107  M00S00100.compwss +++|          LDN    PDTL        ENTER PACKED DATE
00108  M00S00101.compwss +++|          CRM    DTSS,ON
00109  M00S00102.compwss +++|          AOM    DTSS        SET ENHANCED EOI FLAG
00110  M00S00103.compwss +++|
00111  M00S00104.compwss +++|*         SET NEXT SECTOR POINTER.
00112  M00S00105.compwss +++|
00113  M00S00106.compwss +++| WIS$     IF     DEF,WIS$
00114  M00S00107.compwss +++|          LDD    T7
00115  M00S00108.compwss +++|          ADN    FSMS
00116  M00S00109.compwss +++|          STM    NSSS
00117  M00S00110.compwss +++|          LMM    SLM
00118  M00S00111.compwss +++|          NJN    WSS3        IF NOT END OF TRACK
00119  M00S00112.compwss +++|          RJM    SNT         SET NEXT TRACK
00120  M00S00113.compwss +++|          STM    NSSS
00121  M00S00114.compwss +++|          SHN    21-13
00122  M00S00115.compwss +++|          MJN    WSS3        IF NEXT TRACK AVAILABLE
00123  M00S00116.compwss +++| WSS2     MONITOR  HNGM      HANG IF NEXT TRACK NOT AVAILABLE
00124  M00S00117.compwss +++|          UJN    WSS2        HANG
00125  M00S00118.compwss +++|
00126  M00S00119.compwss +++| WIS$     ELSE
00127  M00S00120.compwss +++|          LDN    0           SET FIRST SECTOR
00128  M00S00121.compwss +++|          STD    T7
00129  M00S00122.compwss +++|          ADN    FSMS        SET NEXT SECTOR POINTER
00130  M00S00123.compwss +++|          STM    NSSS
00131  M00S00124.compwss +++| WIS$     ENDIF
00132  M00S00125.compwss +++|
00133  M00S00126.compwss +++|*         WRITE SECTOR.
00134  M00S00127.compwss +++|
00135  M00S00128.compwss +++| WSS3     BSS    0
00136  M00S00129.compwss +++| WCS$     IF     DEF,WCS$
00137  M00S00130.compwss +++| WSSA     LDC    BFMS+WCSF   WRITE CONSECUTIVE SECTORS
00138  M00S00131.compwss +++| WCS$     ELSE   1
00139  M00S00132.compwss +++| WSSA     LDC    BFMS+WLSF   WRITE LAST SECTOR
00140  M00S00133.compwss +++|          RJM    WDS

Line S00134 Modification History
`M01` (Removed by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00141  M01S00134.242l642 ---| WSS$     IF     DEF,WSS$
00142  M01S00135.242l642 ---|          PJN    WSS4        IF NO ERROR
00143  M01S00136.242l642 ---|          LJM    WSE         PROCESS WRITE ERROR
00144  M01S00137.242l642 ---| WSS$     ENDIF

Line S00005 Modification History
`M01` (Added by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00145  M01S00005.242l642 +++|          MJN    WSS5        IF ERROR
00146  M00S00138.compwss +++|
00147  M00S00139.compwss +++|*         SET NEXT SECTOR.
00148  M00S00140.compwss +++|
00149  M00S00141.compwss +++| WSS4     LDM    NSSS        SET NEXT SECTOR
00150  M00S00142.compwss +++|          STD    T7
00151  M00S00143.compwss +++| WIS$     IF     DEF,WIS$
00152  M00S00144.compwss +++|          SHN    21-13
00153  M00S00145.compwss +++|          PJN    WSS5        IF NOT TRACK POINTER
00154  M00S00146.compwss +++|          SHN    13-21       SET NEXT TRACK/SECTOR
00155  M00S00147.compwss +++|          STD    T6
00156  M00S00148.compwss +++|          LDN    0
00157  M00S00149.compwss +++|          STD    T7
00158  M00S00150.compwss +++| WIS$     ENDIF
00159  M00S00151.compwss +++| WSS5     LJM    WSSX        RETURN
00160  M00S00152.compwss +++|          SPACE  4
00161  M00S00153.compwss +++| QUAL$    IF     -DEF,QUAL$
00162  M00S00154.compwss +++|          QUAL   *
00163  M00S00155.compwss +++| WSS      EQU    /COMPWSS/WSS
00164  M00S00156.compwss +++| WSSA     EQU    /COMPWSS/WSSA
00165  M00S00157.compwss +++| QUAL$    ENDIF
00166  M00S00158.compwss +++|          ENDX