Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compwei +++|          CTEXT  COMPWEI - WRITE EOI SECTOR.
00002  M00S00002.compwei +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compwei +++|          QUAL   COMPWEI

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compwei +++| WEI      SPACE  4
00006  M00S00005.compwei +++|***       WEI - WRITE EOI SECTOR.
00007  M00S00006.compwei +++|*         P. D. HAAS.        76/05/20.
00008  M00S00007.compwei +++| WEI      SPACE  4
00009  M00S00008.compwei +++|***              WEI WRITES THE EOI SECTOR FOR A MASS STORAGE FILE.
00010  M00S00009.compwei +++|*
00011  M00S00010.compwei +++|*         IF *WEI$* IS DEFINED, WEI WILL BE ASSEMBLED TO USE EOI
00012  M00S00011.compwei +++|*         BUFFER SPECIFIED BY THE CALLING ROUTINE ON ENTRY.
00013  M00S00012.compwei +++|*
00014  M00S00013.compwei +++|*         CONTROL BYTES -
00015  M00S00014.compwei +++|*         CON    0,0
00016  M00S00015.compwei +++|*
00017  M00S00016.compwei +++|*         INFORMATION WRITTEN -
00018  M00S00017.compwei +++|*T        60/

Figure

00019  M00S00018.compwei +++|*T        12/,12/ FT,12/ ET,12/ ES,12/

Figure

00020  M00S00019.compwei +++|*T        60/ PACKED DATE AND TIME

Figure

00021  M00S00020.compwei +++|*
00022  M00S00021.compwei +++|*         FT = FIRST TRACK
00023  M00S00022.compwei +++|*         ET = CURRENT (EOI) TRACK
00024  M00S00023.compwei +++|*         ES = CURRENT (EOI) SECTOR
00025  M00S00024.compwei +++|*
00026  M00S00025.compwei +++|*         ENTRY  (A) = BUFFER ADDRESS IF *WEI$* DEFINED.
00027  M00S00026.compwei +++|*                (FA) = RELATIVE FNT ADDRESS IN NFL.
00028  M00S00027.compwei +++|*                (RA) = REFERENCE ADDRESS IF (FA) .NE. 0.
00029  M00S00028.compwei +++|*                (T6) = EOI TRACK.
00030  M00S00029.compwei +++|*                (T7) = EOI SECTOR.
00031  M00S00030.compwei +++|*                DRIVER PRESET.
00032  M00S00031.compwei +++|*
00033  M00S00032.compwei +++|*                IF (FA) = 0, FT IS ASSUMED TO BE
00034  M00S00033.compwei +++|*                PRESTORED BY THE CALLER.
00035  M00S00034.compwei +++|*
00036  M00S00035.compwei +++|*         EXIT   (A) = STATUS FROM DRIVER.
00037  M00S00036.compwei +++|*
00038  M00S00037.compwei +++|*         USES   T3.
00039  M00S00038.compwei +++|*
00040  M00S00039.compwei +++|*         CALLS  WDS.
00041  M00S00040.compwei +++|*
00042  M00S00041.compwei +++|*         MACROS NFA.
00043  M00S00042.compwei +++|
00044  M00S00043.compwei +++|
00045  M00S00044.compwei +++|          IF     DEF,WEI$,3
00046  M00S00045.compwei +++| WEIA     EQU    0
00047  M00S00046.compwei +++| TX       EQU    T3          BUFFER ADDRESS
00048  M00S00047.compwei +++|          SKIP
00049  M00S00048.compwei +++| TX       EQU    0
00050  M00S00049.compwei +++|          IF     -DEF,WEIA
00051  M00S00050.compwei +++| WEIA     EQU    BFMS        DEFINE EOI BUFFER
00052  M00S00051.compwei +++|          ENDIF
00053  M00S00052.compwei +++|
00054  M00S00053.compwei +++|
00055  M00S00054.compwei +++| WEI      SUBR               ENTRY/EXIT
00056  M00S00055.compwei +++|          IF     DEF,WEI$
00057  M00S00056.compwei +++|          STD    TX          SET BUFFER ADDRESS
00058  M00S00057.compwei +++|          ADN    DTEI        ADDRESS FOR DATE/TIME
00059  M00S00058.compwei +++|          STM    WEIC
00060  M00S00059.compwei +++|          IF     DEF,FA
00061  M00S00060.compwei +++|          SBN    DTEI-FNEI   ADDRESS FOR FNT/FST
00062  M00S00061.compwei +++|          STM    WEIB
00063  M00S00062.compwei +++|          ENDIF
00064  M00S00063.compwei +++| FA       IF     DEF,FA
00065  M00S00064.compwei +++|          LDD    FA
00066  M00S00065.compwei +++|          ZJN    WEI1        IF FNT UNDEFINED
00067  M00S00066.compwei +++|          NFA    FA,R
00068  M00S00067.compwei +++|          CRM    WEIA+FNEI,TR  READ FNT/FST TO EOI BUFFER
00069  M00S00068.compwei +++| WEIB     EQU    *-1
00070  M00S00069.compwei +++| FA       ENDIF
00071  M00S00070.compwei +++| WEI1     LDN    PDTL        READ DATE/TIME
00072  M00S00071.compwei +++|          CRM    WEIA+DTEI,ON
00073  M00S00072.compwei +++| WEIC     EQU    *-1
00074  M00S00073.compwei +++|          LDD    T6          ENTER EOI TRACK
00075  M00S00074.compwei +++|          STM    WEIA+ETEI,TX
00076  M00S00075.compwei +++|          LDD    T7          ENTER EOI SECTOR
00077  M00S00076.compwei +++|          STM    WEIA+ESEI,TX
00078  M00S00077.compwei +++| WEI2     LDN    0           SET EOI LINKAGE BYTES
00079  M00S00078.compwei +++|          STM    WEIA+1,TX
00080  M00S00079.compwei +++| .ML      IF     DEF,WEI$
00081  M00S00080.compwei +++|          STI    TX
00082  M00S00081.compwei +++|          LDD    TX          WRITE EOI SECTOR
00083  M00S00082.compwei +++|          IFNE   WLSF,0,1
00084  M00S00083.compwei +++|          LMC    WLSF
00085  M00S00084.compwei +++| .ML      ELSE
00086  M00S00085.compwei +++|          STM    WEIA
00087  M00S00086.compwei +++|          LDC    WEIA+WLSF   WRITE EOI SECTOR
00088  M00S00087.compwei +++|          ENDIF
00089  M00S00088.compwei +++|          RJM    WDS

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00089.ns22000 ---|          LJM    WEIX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00001.ns22000 +++|          UJP    WEIX        RETURN
00092  M00S00090.compwei +++| WEI      SPACE  4
00093  M00S00091.compwei +++| QUAL$    IF     -DEF,QUAL$
00094  M00S00092.compwei +++|          QUAL   *
00095  M00S00093.compwei +++| WEI      EQU    /COMPWEI/WEI
00096  M00S00094.compwei +++|          IF     -DEF,WEIA,1
00097  M00S00095.compwei +++| WEIA     EQU    /COMPWEI/WEIA
00098  M00S00096.compwei +++| QUAL$    ENDIF
00099  M00S00097.compwei +++|          ENDX