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