Common COMPRLA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comprla +++|          CTEXT  COMPRLA - READ SECTOR OF LOCAL AREAS.
00002  M00S00002.comprla +++|          SPACE  4,10
00003  M00S00003.comprla +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comprla +++|          QUAL   COMPRLA
00005  M00S00005.comprla +++|          BASE   M

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT 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.comprla +++|          SPACE  4,10
00009  M00S00008.comprla +++|*****     RLA - READ SECTOR OF LOCAL AREAS.
00010  M00S00009.comprla +++|*
00011  M00S00010.comprla +++|*         P. D. HAAS.        79/05/01.
00012  M00S00011.comprla +++|          SPACE  4,10
00013  M00S00012.comprla +++|***              *RLA* READS THE SECTOR OF LOCAL AREAS FROM A
00014  M00S00013.comprla +++|*         SPECIFIED MASS STORAGE DEVICE.  THE SECTOR OF LOCAL
00015  M00S00014.comprla +++|*         AREAS (SLA) WILL BE READ IF SUCH EXISTS, AS INDICATED
00016  M00S00015.comprla +++|*         BY THE SLA FLAG IN THE *ACGL* WORD OF THE MST.
00017  M00S00016.comprla +++|*
00018  M00S00017.comprla +++|*         IF THE SYMBOL *RLA$* IS DEFINED, THE DRIVER IS ASSUMED TO
00019  M00S00018.comprla +++|*         BE LOADED, (T6) = LABEL TRACK, AND A SECTOR OF LOCAL AREAS
00020  M00S00019.comprla +++|*         IS ASSUMED TO BE PRESENT.
00021  M00S00020.comprla +++| RLA      SPACE  4,20
00022  M00S00021.comprla +++|**        RLA - READ SECTOR OF LOCAL AREAS (SLA).
00023  M00S00022.comprla +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00023.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT NUMBER.

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

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00001.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
00026  M00S00024.comprla +++|*
00027  M00S00025.comprla +++|*         EXIT   (A) = ADDRESS OF DAYFILE DATA IN SLA ENTRY.
00028  M00S00026.comprla +++|*                    = 0 IF NO SLA, OR NO ENTRY FOR THIS MACHINE.
00029  M00S00027.comprla +++|*                    .LT. 0 IF ERROR READING SLA.
00030  M00S00028.comprla +++|*                (T3) = ADDRESS OF SLA ENTRY.
00031  M00S00029.comprla +++|*                (T6) = LABEL TRACK.
00032  M00S00030.comprla +++|*                (T7) = SLA SECTOR.
00033  M00S00031.comprla +++|*                (BFMS) = SLA SECTOR.
00034  M00S00032.comprla +++|*
00035  M00S00033.comprla +++|*         USES   T2, CM - CM+7.
00036  M00S00034.comprla +++|*
00037  M00S00035.comprla +++|*         CALLS  RDS.
00038  M00S00036.comprla +++|*
00039  M00S00037.comprla +++|*         MACROS ENDMS, SETMS.
00040  M00S00038.comprla +++|*
00041  M00S00039.comprla +++|*         NOTES  THIS COMMON DECK REQUIRES *COMSMMF*, *COMSMST*.
00042  M00S00040.comprla +++|
00043  M00S00041.comprla +++|
00044  M00S00042.comprla +++| RLA      SUBR               ENTRY/EXIT
00045  M00S00043.comprla +++|          IF     -DEF,RLA$

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

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00044.242l642 ---|          SETMS  READ        SET MASS STORAGE

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

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00001.242l642 +++|          SETMS  IO
00048  M00S00045.comprla +++|          LDD    CM+4        READ MST
00049  M00S00046.comprla +++|          SHN    3
00050  M00S00047.comprla +++|          ADN    ACGL
00051  M00S00048.comprla +++|          CRD    CM+2
00052  M00S00049.comprla +++|          ADN    ALGL-ACGL
00053  M00S00050.comprla +++|          CRD    CM
00054  M00S00051.comprla +++|          LDD    CM+6        CHECK SLA PRESENT
00055  M00S00052.comprla +++|          LPC    MGLAP
00056  M00S00053.comprla +++|          ZJN    RLAX        IF NO SLA
00057  M00S00054.comprla +++|          LDD    CM+1        SET LABEL TRACK
00058  M00S00055.comprla +++|          STD    T6
00059  M00S00056.comprla +++|          ENDIF
00060  M00S00057.comprla +++|          LDN    LMLT        SET SLA SECTOR
00061  M00S00058.comprla +++|          STD    T7
00062  M00S00059.comprla +++|          LDC    BFMS-10     INITIALIZE SEARCH ADDRESS
00063  M00S00060.comprla +++|          STD    T3
00064  M00S00061.comprla +++|          ADN    10          READ SLA
00065  M00S00062.comprla +++|          RJM    RDS
00066  M00S00063.comprla +++|          MJN    RLAX        IF MASS STORAGE ERROR
00067  M00S00064.comprla +++|          ENDMS              RELEASE CHANNEL
00068  M00S00065.comprla +++|          LDM    BFMS
00069  M00S00066.comprla +++|          SBN    1
00070  M00S00067.comprla +++|          MJN    RLA3        IF SECTOR NOT REFORMATTED
00071  M00S00068.comprla +++|          LDM    BFMS+1      SET END OF DATA IN SLA
00072  M00S00069.comprla +++|          STD    T2
00073  M00S00070.comprla +++|          SHN    2
00074  M00S00071.comprla +++|          ADC    BFMS+2
00075  M00S00072.comprla +++|          RAD    T2
00076  M00S00073.comprla +++|          LDC    MMFL        GET MACHINE ID
00077  M00S00074.comprla +++|          CRD    CM
00078  M00S00075.comprla +++| RLA1     LDN    2*5         ADVANCE SLA ADDRESS
00079  M00S00076.comprla +++|          RAD    T3
00080  M00S00077.comprla +++|          LMD    T2
00081  M00S00078.comprla +++|          ZJN    RLA3        IF END OF DATA
00082  M00S00079.comprla +++|          LDI    T3
00083  M00S00080.comprla +++|          LMD    CM
00084  M00S00081.comprla +++|          NJN    RLA1        IF NOT SLA ENTRY FOR THIS MACHINE
00085  M00S00082.comprla +++|          LDM    2,T3
00086  M00S00083.comprla +++|          NJN    RLA2        IF LAST USED ON POST LEVEL 509 SYSTEM
00087  M00S00084.comprla +++|          STM    10,T3       CLEAR MAINTENANCE LOG POINTER
00088  M00S00085.comprla +++| RLA2     LDD    T3          SET ADDRESS OF DAYFILE DATA
00089  M00S00086.comprla +++|          ADN    5
00090  M00S00087.comprla +++| RLA3     LJM    RLAX        RETURN
00091  M00S00088.comprla +++| RLA      SPACE  4,10
00092  M00S00089.comprla +++|          BASE   *
00093  M00S00090.comprla +++| QUAL$    IF     -DEF,QUAL$
00094  M00S00091.comprla +++|          QUAL   *
00095  M00S00092.comprla +++| RLA      EQU    /COMPRLA/RLA
00096  M00S00093.comprla +++| QUAL$    ENDIF
00097  M00S00094.comprla +++|          ENDX