Common COMPRFI

Library Member Format: MODIFY

Source

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