Common COMPWSS

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compwss +++|          CTEXT  COMPWSS - WRITE SYSTEM SECTOR.
00002  M01S00002.compwss +++| COMPWSS  SPACE  4,10
00003  M01S00003.compwss +++| QUAL$    IF     -DEF,QUAL$
00004  M01S00004.compwss +++|          QUAL   COMPWSS
00005  M01S00005.compwss +++| QUAL$    ENDIF

Line S00006 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT  CONTROL DATA CORPORATION. 1979.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.compwss +++| WSS      SPACE  4
00009  M01S00008.compwss +++|***       WSS - WRITE SYSTEM SECTOR.
00010  M01S00009.compwss +++|*         G. R. MANSFIELD.  70/07/20.
00011  M01S00010.compwss +++| WSS      SPACE  4
00012  M01S00011.compwss +++|***              WSS IS USED TO WRITE THE SYSTEM SECTOR FOR A FILE.
00013  M01S00012.compwss +++|*

Line S00013 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00013.242l642 ---|*         IF *WSS$* IS DEFINED, *WSE* IS ASSUMED TO BE THE LOCATION

Line S00014 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00014.242l642 ---|*         OF USERS ERROR PROCESSOR.  TRANSFER TO THAT ADDRESS WILL

Line S00015 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00015.242l642 ---|*         OCCUR IF ERROR RETURN FROM THE DRIVER IS SELECTED

Line S00016 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00016.242l642 ---|*         AND WRITE ERRORS ENCOUNTERED.

Line S00017 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.242l642 ---|*
00019  M01S00018.compwss +++|*         IF *WCS$* IS DEFINED IT IS ASSUMED THAT MORE SECTORS WILL
00020  M01S00019.compwss +++|*         BE WRITTEN CONSECUTIVELY AFTER THE SYSTEM SECTOR BEFORE
00021  M01S00020.compwss +++|*         THE CHANNEL IS RELEASED.  IF WCS$ IS NOT DEFINED IT IS
00022  M01S00021.compwss +++|*         ASSUMED NO SECTORS WILL BE WRITTEN CONSECUTIVELY AFTER THE
00023  M01S00022.compwss +++|*         SYSTEM SECTOR.  IF BOTH OF THE PREVIOUS OPTIONS ARE TO BE
00024  M01S00023.compwss +++|*         USED IN THE SAME PROGRAM IT IS UP TO THE CALLER TO SELECT
00025  M01S00024.compwss +++|*         THE CORRECT DRIVER DIRECTIVE.  THIS IS DONE BY STORING IN
00026  M01S00025.compwss +++|*         WSSA EITHER LDCI+WLSF/10000 OR LDCI+WCSF/10000.
00027  M01S00026.compwss +++|*
00028  M01S00027.compwss +++|*         IF *WIS$* IS DEFINED, THE EXISTING VALUE OF *T7* IS USED
00029  M01S00028.compwss +++|*         AS THE SECTOR NUMBER.  OTHERWISE, *T7* IS SET TO ZERO.

Line S00029 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00029.242l642 ---|*
00031  M01S00030.compwss +++|*         *WSS* SETS A POINTER TO THE NEXT SECTOR FOR THE FILE
00032  M01S00031.compwss +++|*         IN *NSSS*.  IF *WIS$* IS DEFINED, THIS MAY BE A POINTER TO
00033  M01S00032.compwss +++|*         THE NEXT TRACK, AND *WSS* WILL CALL *COMPSNT* IF NECESSARY
00034  M01S00033.compwss +++|*         TO FIND THE NEXT TRACK.  IF A TRACK IS REQUIRED AND
00035  M01S00034.compwss +++|*         NO NEXT TRACK IS SET IN THE TRT, *WSS* WILL HANG THE PP
00036  M01S00035.compwss +++|*         WITH AN *MXFM*.
00037  M01S00036.compwss +++|*
00038  M01S00037.compwss +++|*         *NOTE* TO USE *COMPWSS* WITH A GLOBAL FILE,  *FNSS* AND
00039  M01S00038.compwss +++|*         *FASS* MUST BE PRESET BY THE CALLER AND (FA) SET TO ZERO
00040  M01S00039.compwss +++|*         BEFORE CALLING *COMPWSS*.
00041  M01S00040.compwss +++|*
00042  M01S00041.compwss +++|*         AFTER THE SECTOR IS WRITTEN, THE DISK IS POSITIONED
00043  M01S00042.compwss +++|*         TO THE FIRST DATA SECTOR OF THE FILE.
00044  M01S00043.compwss +++|*
00045  M01S00044.compwss +++|*         CONTROL BYTES -
00046  M01S00045.compwss +++|*         CON    3777
00047  M01S00046.compwss +++|*         CON    77
00048  M01S00047.compwss +++|*
00049  M01S00048.compwss +++|*         INFORMATION WRITTEN -
00050  M01S00049.compwss +++|*T        60/ FNT ENTRY

Figure

00051  M01S00050.compwss +++|*T,       12/EQ,12/FT,12/NS,12/0,12/FA

Figure

00052  M01S00051.compwss +++|*T,       60/ PACKED DATE AND TIME

Figure

00053  M01S00052.compwss +++|*

Line S00053 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00053.ns22000 ---|*         EQ = EQUIPMENT NUMBER
00055  M01S00001.ns22000 +++|*         EQ = EST ORDINAL
00056  M01S00054.compwss +++|*         FT = FIRST TRACK
00057  M01S00055.compwss +++|*         NS = NEXT SECTOR/TRACK POINTER
00058  M01S00056.compwss +++|*         FA = RELATIVE FNT ADDRESS IN NFL
00059  M01S00057.compwss +++|*
00060  M01S00058.compwss +++|*         BSS    5
00061  M01S00059.compwss +++|*
00062  M01S00060.compwss +++|*         DATA BEGINNING AT WORD 10 IS PARTICULAR TO A FILE TYPE, AND
00063  M01S00061.compwss +++|*         IS PRESTORED BY THE CALLING PROGRAM.
00064  M01S00062.compwss +++|*
00065  M01S00063.compwss +++|*         ENTRY  (FA) = RELATIVE FNT ADDRESS IN NFL.
00066  M01S00064.compwss +++|*                (FS - FS+4) = FST ENTRY.

Line S00065 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00065.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
00068  M01S00002.ns22000 +++|*                (T5) = EST ORDINAL.
00069  M01S00066.compwss +++|*                (T6) = FIRST TRACK.
00070  M01S00067.compwss +++|*                (T7) = FIRST SECTOR (IF *WIS$* DEFINED).
00071  M01S00068.compwss +++|*                (BFMS+2+10*5 - BFMS+2+77*5) = SECTOR DATA IF NEEDED.
00072  M01S00001.242l642 +++|*                DRIVER PRESET.
00073  M01S00069.compwss +++|*
00074  M01S00070.compwss +++|*                IF (FA) = 0, FNT ENTRY AND (FA) ARE ASSUMED TO BE
00075  M01S00071.compwss +++|*                PRESTORED BY CALLER.
00076  M01S00072.compwss +++|*

Line S00073 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

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

Line S00075 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00075.242l642 ---|*                DISK POSITIONED FOR FIRST DATA SECTOR.
00081  M01S00003.242l642 +++|*                (T7) = FIRST DATA SECTOR.
00082  M01S00076.compwss +++|*
00083  M01S00077.compwss +++|*         USES   T6, T7.
00084  M01S00078.compwss +++|*

Line S00079 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00079.242l642 ---|*         CALLS  WDS.
00086  M01S00004.242l642 +++|*         CALLS  SNT (IF WIS$ DEFINED), WDS.
00087  M01S00080.compwss +++|*
00088  M01S00081.compwss +++|*         MACROS MONITOR, NFA.
00089  M01S00082.compwss +++|
00090  M01S00083.compwss +++|
00091  M01S00084.compwss +++| WSS      SUBR               ENTRY/EXIT
00092  M01S00085.compwss +++|          LDC    3777        SET SECTOR CODE CONTROL BYTE
00093  M01S00086.compwss +++|          STM    BFMS
00094  M01S00087.compwss +++|          LDN    77          SET WORD COUNT
00095  M01S00088.compwss +++|          STM    BFMS+1
00096  M01S00089.compwss +++| FA       IF     DEF,FA
00097  M01S00090.compwss +++|          LDD    FA          ENTER FNT ORDINAL
00098  M01S00091.compwss +++|          ZJN    WSS1        IF NOT DEFINED
00099  M01S00092.compwss +++|          STM    FASS
00100  M01S00093.compwss +++|          NFA    FA,R        READ FNT ENTRY
00101  M01S00094.compwss +++|          CRM    FNSS,ON
00102  M01S00095.compwss +++| FA       ENDIF
00103  M01S00096.compwss +++| WSS1     LDD    T5          ENTER EQUIPMENT
00104  M01S00097.compwss +++|          STM    EQSS
00105  M01S00098.compwss +++|          LDD    T6          ENTER FIRST TRACK
00106  M01S00099.compwss +++|          STM    FTSS
00107  M01S00100.compwss +++|          LDN    PDTL        ENTER PACKED DATE
00108  M01S00101.compwss +++|          CRM    DTSS,ON
00109  M01S00102.compwss +++|          AOM    DTSS        SET ENHANCED EOI FLAG
00110  M01S00103.compwss +++|
00111  M01S00104.compwss +++|*         SET NEXT SECTOR POINTER.
00112  M01S00105.compwss +++|
00113  M01S00106.compwss +++| WIS$     IF     DEF,WIS$
00114  M01S00107.compwss +++|          LDD    T7
00115  M01S00108.compwss +++|          ADN    FSMS
00116  M01S00109.compwss +++|          STM    NSSS
00117  M01S00110.compwss +++|          LMM    SLM
00118  M01S00111.compwss +++|          NJN    WSS3        IF NOT END OF TRACK
00119  M01S00112.compwss +++|          RJM    SNT         SET NEXT TRACK
00120  M01S00113.compwss +++|          STM    NSSS
00121  M01S00114.compwss +++|          SHN    21-13
00122  M01S00115.compwss +++|          MJN    WSS3        IF NEXT TRACK AVAILABLE
00123  M01S00116.compwss +++| WSS2     MONITOR  HNGM      HANG IF NEXT TRACK NOT AVAILABLE
00124  M01S00117.compwss +++|          UJN    WSS2        HANG
00125  M01S00118.compwss +++|
00126  M01S00119.compwss +++| WIS$     ELSE
00127  M01S00120.compwss +++|          LDN    0           SET FIRST SECTOR
00128  M01S00121.compwss +++|          STD    T7
00129  M01S00122.compwss +++|          ADN    FSMS        SET NEXT SECTOR POINTER
00130  M01S00123.compwss +++|          STM    NSSS
00131  M01S00124.compwss +++| WIS$     ENDIF
00132  M01S00125.compwss +++|
00133  M01S00126.compwss +++|*         WRITE SECTOR.
00134  M01S00127.compwss +++|
00135  M01S00128.compwss +++| WSS3     BSS    0
00136  M01S00129.compwss +++| WCS$     IF     DEF,WCS$
00137  M01S00130.compwss +++| WSSA     LDC    BFMS+WCSF   WRITE CONSECUTIVE SECTORS
00138  M01S00131.compwss +++| WCS$     ELSE   1
00139  M01S00132.compwss +++| WSSA     LDC    BFMS+WLSF   WRITE LAST SECTOR
00140  M01S00133.compwss +++|          RJM    WDS

Line S00134 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00134.242l642 ---| WSS$     IF     DEF,WSS$

Line S00135 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00135.242l642 ---|          PJN    WSS4        IF NO ERROR

Line S00136 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00136.242l642 ---|          LJM    WSE         PROCESS WRITE ERROR

Line S00137 Modification History
`M01` (Added by)	`compwss`
`M02` (Updated by)	`242l642`

Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00137.242l642 ---| WSS$     ENDIF
00145  M01S00005.242l642 +++|          MJN    WSS5        IF ERROR
00146  M01S00138.compwss +++|
00147  M01S00139.compwss +++|*         SET NEXT SECTOR.
00148  M01S00140.compwss +++|
00149  M01S00141.compwss +++| WSS4     LDM    NSSS        SET NEXT SECTOR
00150  M01S00142.compwss +++|          STD    T7
00151  M01S00143.compwss +++| WIS$     IF     DEF,WIS$
00152  M01S00144.compwss +++|          SHN    21-13
00153  M01S00145.compwss +++|          PJN    WSS5        IF NOT TRACK POINTER
00154  M01S00146.compwss +++|          SHN    13-21       SET NEXT TRACK/SECTOR
00155  M01S00147.compwss +++|          STD    T6
00156  M01S00148.compwss +++|          LDN    0
00157  M01S00149.compwss +++|          STD    T7
00158  M01S00150.compwss +++| WIS$     ENDIF
00159  M01S00151.compwss +++| WSS5     LJM    WSSX        RETURN
00160  M01S00152.compwss +++|          SPACE  4
00161  M01S00153.compwss +++| QUAL$    IF     -DEF,QUAL$
00162  M01S00154.compwss +++|          QUAL   *
00163  M01S00155.compwss +++| WSS      EQU    /COMPWSS/WSS
00164  M01S00156.compwss +++| WSSA     EQU    /COMPWSS/WSSA
00165  M01S00157.compwss +++| QUAL$    ENDIF
00166  M01S00158.compwss +++|          ENDX