Common COMPWEI

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compwei +++|          CTEXT  COMPWEI - WRITE EOI SECTOR.
00002  M01S00002.compwei +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compwei +++|          QUAL   COMPWEI
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compwei +++| WEI      SPACE  4
00006  M01S00005.compwei +++|***       WEI - WRITE EOI SECTOR.
00007  M01S00006.compwei +++|*         P. D. HAAS.        76/05/20.
00008  M01S00007.compwei +++| WEI      SPACE  4
00009  M01S00008.compwei +++|***              WEI WRITES THE EOI SECTOR FOR A MASS STORAGE FILE.
00010  M01S00009.compwei +++|*
00011  M01S00010.compwei +++|*         IF *WEI$* IS DEFINED, WEI WILL BE ASSEMBLED TO USE EOI
00012  M01S00011.compwei +++|*         BUFFER SPECIFIED BY THE CALLING ROUTINE ON ENTRY.
00013  M01S00012.compwei +++|*
00014  M01S00013.compwei +++|*         CONTROL BYTES -
00015  M01S00014.compwei +++|*         CON    0,0
00016  M01S00015.compwei +++|*
00017  M01S00016.compwei +++|*         INFORMATION WRITTEN -
00018  M01S00017.compwei +++|*T        60/

Figure

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

Figure

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

Figure

00021  M01S00020.compwei +++|*
00022  M01S00021.compwei +++|*         FT = FIRST TRACK
00023  M01S00022.compwei +++|*         ET = CURRENT (EOI) TRACK
00024  M01S00023.compwei +++|*         ES = CURRENT (EOI) SECTOR
00025  M01S00024.compwei +++|*
00026  M01S00025.compwei +++|*         ENTRY  (A) = BUFFER ADDRESS IF *WEI$* DEFINED.
00027  M01S00026.compwei +++|*                (FA) = RELATIVE FNT ADDRESS IN NFL.
00028  M01S00027.compwei +++|*                (RA) = REFERENCE ADDRESS IF (FA) .NE. 0.
00029  M01S00028.compwei +++|*                (T6) = EOI TRACK.
00030  M01S00029.compwei +++|*                (T7) = EOI SECTOR.
00031  M01S00030.compwei +++|*                DRIVER PRESET.
00032  M01S00031.compwei +++|*
00033  M01S00032.compwei +++|*                IF (FA) = 0, FT IS ASSUMED TO BE
00034  M01S00033.compwei +++|*                PRESTORED BY THE CALLER.
00035  M01S00034.compwei +++|*
00036  M01S00035.compwei +++|*         EXIT   (A) = STATUS FROM DRIVER.
00037  M01S00036.compwei +++|*
00038  M01S00037.compwei +++|*         USES   T3.
00039  M01S00038.compwei +++|*
00040  M01S00039.compwei +++|*         CALLS  WDS.
00041  M01S00040.compwei +++|*
00042  M01S00041.compwei +++|*         MACROS NFA.
00043  M01S00042.compwei +++|
00044  M01S00043.compwei +++|
00045  M01S00044.compwei +++|          IF     DEF,WEI$,3
00046  M01S00045.compwei +++| WEIA     EQU    0
00047  M01S00046.compwei +++| TX       EQU    T3          BUFFER ADDRESS
00048  M01S00047.compwei +++|          SKIP
00049  M01S00048.compwei +++| TX       EQU    0
00050  M01S00049.compwei +++|          IF     -DEF,WEIA
00051  M01S00050.compwei +++| WEIA     EQU    BFMS        DEFINE EOI BUFFER
00052  M01S00051.compwei +++|          ENDIF
00053  M01S00052.compwei +++|
00054  M01S00053.compwei +++|
00055  M01S00054.compwei +++| WEI      SUBR               ENTRY/EXIT
00056  M01S00055.compwei +++|          IF     DEF,WEI$
00057  M01S00056.compwei +++|          STD    TX          SET BUFFER ADDRESS
00058  M01S00057.compwei +++|          ADN    DTEI        ADDRESS FOR DATE/TIME
00059  M01S00058.compwei +++|          STM    WEIC
00060  M01S00059.compwei +++|          IF     DEF,FA
00061  M01S00060.compwei +++|          SBN    DTEI-FNEI   ADDRESS FOR FNT/FST
00062  M01S00061.compwei +++|          STM    WEIB
00063  M01S00062.compwei +++|          ENDIF
00064  M01S00063.compwei +++| FA       IF     DEF,FA
00065  M01S00064.compwei +++|          LDD    FA
00066  M01S00065.compwei +++|          ZJN    WEI1        IF FNT UNDEFINED
00067  M01S00066.compwei +++|          NFA    FA,R
00068  M01S00067.compwei +++|          CRM    WEIA+FNEI,TR  READ FNT/FST TO EOI BUFFER
00069  M01S00068.compwei +++| WEIB     EQU    *-1
00070  M01S00069.compwei +++| FA       ENDIF
00071  M01S00070.compwei +++| WEI1     LDN    PDTL        READ DATE/TIME
00072  M01S00071.compwei +++|          CRM    WEIA+DTEI,ON
00073  M01S00072.compwei +++| WEIC     EQU    *-1
00074  M01S00073.compwei +++|          LDD    T6          ENTER EOI TRACK
00075  M01S00074.compwei +++|          STM    WEIA+ETEI,TX
00076  M01S00075.compwei +++|          LDD    T7          ENTER EOI SECTOR
00077  M01S00076.compwei +++|          STM    WEIA+ESEI,TX
00078  M01S00077.compwei +++| WEI2     LDN    0           SET EOI LINKAGE BYTES
00079  M01S00078.compwei +++|          STM    WEIA+1,TX
00080  M01S00079.compwei +++| .ML      IF     DEF,WEI$
00081  M01S00080.compwei +++|          STI    TX
00082  M01S00081.compwei +++|          LDD    TX          WRITE EOI SECTOR
00083  M01S00082.compwei +++|          IFNE   WLSF,0,1
00084  M01S00083.compwei +++|          LMC    WLSF
00085  M01S00084.compwei +++| .ML      ELSE
00086  M01S00085.compwei +++|          STM    WEIA
00087  M01S00086.compwei +++|          LDC    WEIA+WLSF   WRITE EOI SECTOR
00088  M01S00087.compwei +++|          ENDIF
00089  M01S00088.compwei +++|          RJM    WDS

Line S00089 Modification History
`M01` (Added by)	`compwei`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00089.ns22000 ---|          LJM    WEIX        RETURN
00091  M01S00001.ns22000 +++|          UJP    WEIX        RETURN
00092  M01S00090.compwei +++| WEI      SPACE  4
00093  M01S00091.compwei +++| QUAL$    IF     -DEF,QUAL$
00094  M01S00092.compwei +++|          QUAL   *
00095  M01S00093.compwei +++| WEI      EQU    /COMPWEI/WEI
00096  M01S00094.compwei +++|          IF     -DEF,WEIA,1
00097  M01S00095.compwei +++| WEIA     EQU    /COMPWEI/WEIA
00098  M01S00096.compwei +++| QUAL$    ENDIF
00099  M01S00097.compwei +++|          ENDX