Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comprfi +++| CTEXT COMPRFI - RETURN FILE SIZE INDEX.
00002 M00S00002.comprfi +++| SPACE 4,10
00003 M00S00003.comprfi +++| IF -DEF,QUAL$,1
00004 M00S00004.comprfi +++| QUAL COMPRFI
| Line S00005 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1984.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M00S00006.comprfi +++| SPACE 4,10
00008 M00S00007.comprfi +++|*** RFI - RETURN FILE SIZE INDEX.
00009 M00S00008.comprfi +++|* J. HOLLISTER. 84/01/25.
00010 M00S00009.comprfi +++| SPACE 4,10
00011 M00S00010.comprfi +++|*** *RFI* RETURNS A FILE SIZE INDEX, A DIGIT BETWEEN 1 AND
00012 M00S00011.comprfi +++|* 7, INDICATING RELATIVE FILE SIZE, FROM SMALLEST TO LARGEST.
00013 M00S00012.comprfi +++|* THE RANGE OF FILE SIZES CORRESPONDING TO EACH INDEX MAY BE
00014 M00S00013.comprfi +++|* ADJUSTED BY CHANGING THE VALUES IN TABLE *TFSI*, WHICH
00015 M00S00014.comprfi +++|* SPECIFIES THE LARGEST FILE SIZE FOR EACH INDEX. THE SIZE
00016 M00S00015.comprfi +++|* FOR FILE SIZE INDEX 7 SHOULD ALWAYS BE THE LARGEST POSSIBLE
00017 M00S00016.comprfi +++|* FILE SIZE.
00018 M00S00017.comprfi +++|*
00019 M00S00018.comprfi +++|* ENTRY (A) = ADDRESS OF TWO WORD FILE SIZE.
00020 M00S00019.comprfi +++|*
00021 M00S00020.comprfi +++|* EXIT (IOSS+ENTQ*5+2) = FILE SIZE INDEX.
00022 M00S00021.comprfi +++|*
00023 M00S00022.comprfi +++|* USES T1, T2, T3.
00024 M00S00023.comprfi +++|
00025 M00S00024.comprfi +++|
00026 M00S00025.comprfi +++| RFI3 LDM IOSS+ENTQ*5+2 CLEAR FIELD FOR SIZE INDEX IN QFT ENTRY
00027 M00S00026.comprfi +++| SCN 7
00028 M00S00027.comprfi +++| LMD T2 INSERT SIZE INDEX INTO QFT ENTRY
00029 M00S00028.comprfi +++| STM IOSS+ENTQ*5+2 SAVE NEW QFT ENTRY WORD
00030 M00S00029.comprfi +++|
00031 M00S00030.comprfi +++| RFI SUBR ENTRY/EXIT
00032 M00S00031.comprfi +++| STD T1 SAVE FILE SIZE ADDRESS
00033 M00S00032.comprfi +++| LDN 1 PRESET FILE SIZE INDEX
00034 M00S00033.comprfi +++| STD T2
00035 M00S00034.comprfi +++| LDN 0 PRESET TABLE OFFSET
00036 M00S00035.comprfi +++| STD T3
00037 M00S00036.comprfi +++| RFI1 LDM TFSI,T3 GET FILE SIZE LIMIT FOR CURRENT INDEX
00038 M00S00037.comprfi +++| SBI T1 CHECK FIRST WORD OF FILE SIZE
00039 M00S00038.comprfi +++| MJN RFI2 IF FILE SIZE .GT. LIMIT
00040 M00S00039.comprfi +++| NJN RFI3 IF FILE SIZE .LT. LIMIT
00041 M00S00040.comprfi +++| LDM TFSI+1,T3 CHECK SECOND WORD OF FILE SIZE
00042 M00S00041.comprfi +++| SBM 1,T1
00043 M00S00042.comprfi +++| PJN RFI3 IF FILE SIZE .LE. LIMIT
00044 M00S00043.comprfi +++| RFI2 AOD T2 INCREMENT FILE SIZE INDEX
00045 M00S00044.comprfi +++| LDN 2 INCREMENT TABLE OFFSET
00046 M00S00045.comprfi +++| RAD T3
00047 M00S00046.comprfi +++| UJN RFI1 CHECK NEXT FILE SIZE INDEX
00048 M00S00047.comprfi +++| SPACE 4,10
00049 M00S00048.comprfi +++|** TFSI - TABLE OF MAXIMUM FILE SIZES FOR EACH FILE SIZE INDEX.
00050 M00S00049.comprfi +++|
00051 M00S00050.comprfi +++|
00052 M00S00051.comprfi +++| TFSI BSS 0
00053 M00S00052.comprfi +++| VFD 24/FSI1 FILE SIZE INDEX 1
00054 M00S00053.comprfi +++| VFD 24/FSI2 FILE SIZE INDEX 2
00055 M00S00054.comprfi +++| VFD 24/FSI3 FILE SIZE INDEX 3
00056 M00S00055.comprfi +++| VFD 24/FSI4 FILE SIZE INDEX 4
00057 M00S00056.comprfi +++| VFD 24/FSI5 FILE SIZE INDEX 5
00058 M00S00057.comprfi +++| VFD 24/FSI6 FILE SIZE INDEX 6
00059 M00S00058.comprfi +++| VFD 24/77777777 FILE SIZE INDEX 7
00060 M00S00059.comprfi +++| SPACE 4,10
00061 M00S00060.comprfi +++| QUAL$ IF -DEF,QUAL$
00062 M00S00061.comprfi +++| QUAL *
00063 M00S00062.comprfi +++| RFI EQU /COMPRFI/RFI
00064 M00S00063.comprfi +++| QUAL$ ENDIF
00065 M00S00064.comprfi +++| ENDX