Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comspfu +++| CTEXT COMSPFU - PERMANENT FILE UTILITIES EQUIVALENCES.
00002 M01S00002.comspfu +++| SPACE 4
| Line S00003 Modification History |
M01 (Added by) | comspfu |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00003 M02S00003.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1973.
00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00005 M01S00004.comspfu +++| SPACE 4
00006 M01S00005.comspfu +++|*** COMSPFU - PERMANENT FILE UTILITIES EQUIVALENCES.
00007 M01S00006.comspfu +++|* D. A. HIVELEY. 70/11/20.
00008 M01S00007.comspfu +++|* S. T. WORSTELL. 73/02/15.
00009 M01S00008.comspfu +++| SPACE 4
00010 M01S00009.comspfu +++|*** COMSPFU DEFINES EQUIVALENCES NEEDED TO COMMUNICATE
00011 M01S00010.comspfu +++|* WITH *PFU* AND DESCRIPTIONS OF PERMANENT FILE ARCHIVE FILE
00012 M01S00011.comspfu +++|* FORMATS.
00013 M01S00012.comspfu +++| CALLPFU SPACE 4
00014 M01S00013.comspfu +++|** CALLPFU - CALL PERMANENT FILE UTILITY.
00015 M01S00014.comspfu +++|*
00016 M01S00015.comspfu +++|* CALLPFU FET,FN,RCL
00017 M01S00016.comspfu +++|*
00018 M01S00017.comspfu +++|* FET = FET ADDRESS.
00019 M01S00018.comspfu +++|* FN = PFU FUNCTION CODE.
00020 M01S00019.comspfu +++|* RCL = NON-NULL TO CALL FPU WITH AUTO RECALL.
00021 M01S00020.comspfu +++|*
00022 M01S00021.comspfu +++|* CALLS PFU.
00023 M01S00022.comspfu +++|
00024 M01S00023.comspfu +++|
00025 M01S00024.comspfu +++| PURGMAC CALLPFU
00026 M01S00025.comspfu +++|
00027 M01S00026.comspfu +++| CALLPFU MACRO FET,FN,RCL
00028 M01S00027.comspfu +++| MACREF CALLPFU
00029 M01S00028.comspfu +++| R= X2,FET
00030 M01S00029.comspfu +++| R= X7,FN
00031 M01S00030.comspfu +++|* PROCESS AUTO RECALL.
00032 M01S00031.comspfu +++| IFC NE,$RCL$$,1
00033 M01S00032.comspfu +++| BX7 -X7
00034 M01S00033.comspfu +++| RJ PFU
00035 M01S00034.comspfu +++| ENDM
00036 M01S00035.comspfu +++| SPACE 4
00037 M01S00036.comspfu +++|**** *PFU* FUNCTION CODES.
00038 M01S00037.comspfu +++|
00039 M01S00038.comspfu +++|
00040 M01S00039.comspfu +++| CTOP EQU 0 OPEN FILE (NO LOCKOUT)
00041 M01S00040.comspfu +++| CTOL EQU CTOP+100B OPEN FILE (LOCKOUT)
00042 M01S00041.comspfu +++| CTAC EQU CTOL+100B ADVANCE CATALOG TRACK
00043 M01S00042.comspfu +++| CTRL EQU CTAC+100B *PFDUMP* READ LIST
00044 M01S00043.comspfu +++| CTLM EQU CTRL+100B *PFLOAD* MAIN LOOP
00045 M01S00044.comspfu +++| CTSU EQU CTLM+100B SET PERMANENT FILE UTILITY INTERLOCK
00046 M01S00045.comspfu +++| CTCU EQU CTSU+100B CLEAR PERMANENT FILE UTILITY INTERLOCK
00047 M01S00046.comspfu +++| CTRC EQU CTCU+100B REWIND CATALOG FILE
00048 M01S00047.comspfu +++| CTCF EQU CTRC+100B UNUSED
00049 M01S00048.comspfu +++| CTFL EQU CTCF+100B SET FILE LENGTH
00050 M01S00049.comspfu +++| CTSC EQU CTFL+100B SET CATALOG TRACK INTERLOCK
00051 M01S00050.comspfu +++| CTCC EQU CTSC+100B CLEAR CATALOG TRACK INTERLOCK
00052 M01S00051.comspfu +++| CTEI EQU CTCC+100B SET DEVICE ERROR IDLE STATUS
00053 M01S00052.comspfu +++| CTCT EQU CTEI+100B LOCATE CATALOG TRACK
00054 M01S00053.comspfu +++| CTIA EQU CTCT+100B INCREMENT PERMANENT FILE ACTIVITY COUNT
00055 M01S00054.comspfu +++| CTDA EQU CTIA+100B DECREMENT PERMANENT FILE ACTIVITY COUNT
00056 M01S00055.comspfu +++| CTTU EQU CTDA+100B TEST PERMANENT FILE UTILITY INTERLOCK
00057 M01S00056.comspfu +++| CTGE EQU CTTU+100B GET MSS CATALOG MODIFY MODE INTERLOCK
00058 M01S00057.comspfu +++| CTRE EQU CTGE+100B RELEASE MSS CATALOG MODIFY MODE INTERLOCK
00059 M01S00058.comspfu +++| CTSR EQU CTRE+100B STAGE FILE FROM CARTRIDGE
00060 M01S00059.comspfu +++| CTUU EQU CTSR+100B UPDATE UTILITY CONTROL DATE/TIME
00061 M01S00060.comspfu +++| CTGU EQU CTUU+100B GET MSS CATALOG UPDATE MODE INTERLOCK
00062 M01S00061.comspfu +++| CTRU EQU CTGU+100B RELEASE MSS CATALOG UPDATE MODE INTERLOCK
00063 M01S00062.comspfu +++| CTSL EQU CTRU+100B SET *TFLOK* FLAG IN PFC ENTRY
00064 M01S00001.286l859 +++| CTPC EQU CTSL+100B POSITION CATALOG FILE
00065 M01S00063.comspfu +++| SPACE 4
00066 M01S00064.comspfu +++|** FET EQUIVALENCES USED BY PFU.
00067 M01S00065.comspfu +++|
00068 M01S00066.comspfu +++|
00069 M01S00067.comspfu +++| FTFT EQU 1 FET - *FIRST* POINTER
00070 M01S00068.comspfu +++| FTIN EQU 2 FET - *IN* POINTER
00071 M01S00069.comspfu +++| FTOT EQU 3 FET - *OUT* POINTER
00072 M01S00070.comspfu +++| FTLM EQU 4 FET - *LIMIT* POINTER
00073 M01S00071.comspfu +++| FTSC EQU 6 FET - SECTOR COUNT
00074 M01S00072.comspfu +++| FTRE EQU 6 FET - RECOVERY WORD
00075 M01S00073.comspfu +++| FTDW EQU 7 FET - DATA WORD (FOR *PFDUMP* READ LIST)
00076 M01S00074.comspfu +++| FTDL EQU 10B FET - DATA LIST
00077 M01S00075.comspfu +++| FTCA EQU 10B FET - CATALOG ADDRESS
00078 M01S00076.comspfu +++| FTPM EQU 11B FET - PARAMETER WORD
00079 M01S00077.comspfu +++| SPACE 4,10
00080 M01S00078.comspfu +++|** FET ERROR STATUS CODES.
00081 M01S00079.comspfu +++|
00082 M01S00080.comspfu +++|
00083 M01S00081.comspfu +++| FEWE EQU 1 WRITE ERROR STATUS
00084 M01S00082.comspfu +++|* (DATA TRANSFERRED TO DEVICE)
00085 M01S00083.comspfu +++| FEWN EQU 2 WRITE ERROR STATUS
00086 M01S00084.comspfu +++|* (NO DATA TRANSFERRED TO DEVICE)
00087 M01S00085.comspfu +++| FETL EQU 3 TRACK LIMIT ERROR STATUS
00088 M01S00086.comspfu +++| FEEI EQU 4 ERROR IDLE ERROR STATUS
00089 M01S00087.comspfu +++| SPACE 4
00090 M01S00088.comspfu +++| ENDX
00091 M01S00014.comspfu +++|COMSPIM
00092 M01S149359.comspfu +++|7
| Line S162240 Modification History |
M01 (Yanked) (Updated by) | @025608 |
M02 (Yanked) (Updated by) | @056165 |
M03 (Yanked) (Added by) | @001068 |
M04 (Yanked) (Updated by) | @037778 |
M05 (Yanked) (Added by) | @017556 |
M06 (Yanked) (Added by) | @016974 |
M07 (Yanked) (Updated by) | @060236 |
M08 (Yanked) (Updated by) | @057676 |
M09 (Yanked) (Updated by) | @057922 |
M10 (Yanked) (Added by) | @015295 |
Seq # *Modification Id* Act
----------------------------+
00093 M10S162240.@015295 +++|8
00094 M01S00007.comspfu +++|*** *PIM* DEFINES THE MNEMONICS FOR ALL PERIPHERAL
00095 M01S00008.comspfu +++|* PROCESSOR INSTRUCTIONS. MNEMONICS ARE DEFINED IN
00096 M01S00009.comspfu +++|* NUMERICAL ORDER.
00097 M01S00010.comspfu +++|
00098 M01S00011.comspfu +++|
00099 M01S00012.comspfu +++| PSNI EQU 0077 PASS
00100 M01S00013.comspfu +++| LJMI EQU 0100 LONG JUMP
00101 M01S00014.comspfu +++| RJMI EQU 0200 RETURN JUMP
00102 M01S00015.comspfu +++| UJNI EQU 0300 UNCONDITIONAL JUMP
00103 M01S00016.comspfu +++| ZJNI EQU 0400 ZERO JUMP
00104 M01S00017.comspfu +++| NJNI EQU 0500 NONZERO JUMP
00105 M01S00018.comspfu +++| PJNI EQU 0600 PLUS JUMP
00106 M01S00019.comspfu +++| MJNI EQU 0700 MINUS JUMP
00107 M01S00020.comspfu +++| SHNI EQU 1000 SHIFT
00108 M01S00021.comspfu +++| LMNI EQU 1100 LOGICAL DIFFERENCE
00109 M01S00022.comspfu +++| LPNI EQU 1200 LOGICAL PRODUCT
00110 M01S00023.comspfu +++| SCNI EQU 1300 SELECTIVE CLEAR
00111 M01S00024.comspfu +++| LDNI EQU 1400 LOAD
00112 M01S00025.comspfu +++| LCNI EQU 1500 LOAD COMPLEMENT
00113 M01S00026.comspfu +++| ADNI EQU 1600 ADD
00114 M01S00027.comspfu +++| SBNI EQU 1700 SUBTRACT
00115 M01S00028.comspfu +++| LDCI EQU 2000 LOAD CONSTANT
00116 M01S00029.comspfu +++| ADCI EQU 2100 ADD CONSTANT
00117 M01S00030.comspfu +++| LPCI EQU 2200 LOGICAL PRODUCT CONSTANT
00118 M01S00031.comspfu +++| LMCI EQU 2300 LOGICAL DIFFERENCE CONSTANT
00119 M01S00032.comspfu +++| LRDI EQU 2400 LOAD R-REGISTER DIRECT
00120 M01S00033.comspfu +++| SRDI EQU 2500 STORE R-REGISTER DIRECT
00121 M01S00034.comspfu +++| ETNI EQU 2600 EXTENDED TRANSFER (6416)
00122 M01S00035.comspfu +++| EXNI EQU 2600 EXCHANGE JUMP
00123 M01S00036.comspfu +++| MXNI EQU 2610 MONITOR EXCHANGE JUMP
00124 M01S00037.comspfu +++| MANI EQU 2620 MONITOR EXCHANGE JUMP TO (MA)
00125 M01S00038.comspfu +++| ERNI EQU 2700 EXTENDED READ STATUS (6416)
00126 M01S00039.comspfu +++| RPNI EQU 2700 READ PROGRAM ADDRESS
00127 M01S00040.comspfu +++| LDDI EQU 3000 LOAD DIRECT
00128 M01S00041.comspfu +++| ADDI EQU 3100 ADD DIRECT
00129 M01S00042.comspfu +++| SBDI EQU 3200 SUBTRACT DIRECT
00130 M01S00043.comspfu +++| LMDI EQU 3300 LOGICAL DIFFERENCE DIRECT
00131 M01S00044.comspfu +++| STDI EQU 3400 STORE DIRECT
00132 M01S00045.comspfu +++| RADI EQU 3500 REPLACE ADD DIRECT
00133 M01S00046.comspfu +++| AODI EQU 3600 REPLACE ADD ONE DIRECT
00134 M01S00047.comspfu +++| SODI EQU 3700 REPLACE SUBTRACT ONE DIRECT
00135 M01S00048.comspfu +++| LDII EQU 4000 LOAD INDIRECT
00136 M01S00049.comspfu +++| ADII EQU 4100 ADD INDIRECT
00137 M01S00050.comspfu +++| SBII EQU 4200 SUBTRACT INDIRECT
00138 M01S00051.comspfu +++| LMII EQU 4300 LOGICAL DIFFERENCE INDIRECT
00139 M01S00052.comspfu +++| STII EQU 4400 STORE INDIRECT
00140 M01S00053.comspfu +++| RAII EQU 4500 REPLACE ADD INDIRECT
00141 M01S00054.comspfu +++| AOII EQU 4600 REPLACE ADD ONE INDIRECT
00142 M01S00055.comspfu +++| SOII EQU 4700 REPLACE SUBTRACT ONE INDIRECT
00143 M01S00056.comspfu +++| LDMI EQU 5000 LOAD MEMORY
00144 M01S00057.comspfu +++| ADMI EQU 5100 ADD MEMORY
00145 M01S00058.comspfu +++| SBMI EQU 5200 SUBTRACT MEMORY
00146 M01S00059.comspfu +++| LMMI EQU 5300 LOGICAL DIFFERENCE MEMORY
00147 M01S00060.comspfu +++| STMI EQU 5400 STORE MEMORY
00148 M01S00061.comspfu +++| RAMI EQU 5500 REPLACE ADD MEMORY
00149 M01S00062.comspfu +++| AOMI EQU 5600 REPLACE ADD ONE MEMORY
00150 M01S00063.comspfu +++| SOMI EQU 5700 REPLACE SUBTRACT ONE MEMORY
00151 M01S00064.comspfu +++|
00152 M01S00065.comspfu +++| .A IFPP6
00153 M01S00066.comspfu +++| CRDI EQU 6000 CENTRAL READ DIRECT
00154 M01S00067.comspfu +++| CRMI EQU 6100 CENTRAL READ MEMORY
00155 M01S00068.comspfu +++| CWDI EQU 6200 CENTRAL WRITE DIRECT
00156 M01S00069.comspfu +++| CWMI EQU 6300 CENTRAL WRITE MEMORY
00157 M01S00070.comspfu +++| AJMI EQU 6400 ACTIVE CHANNEL JUMP
00158 M01S00071.comspfu +++| SCFI EQU 6440 TEST AND SET CHANNEL FLAG
00159 M01S00072.comspfu +++| IJMI EQU 6500 INACTIVE CHANNEL JUMP
00160 M01S00073.comspfu +++| CCFI EQU 6540 CLEAR CHANNEL FLAG
00161 M01S00074.comspfu +++| FJMI EQU 6600 FULL CHANNEL JUMP
00162 M01S00075.comspfu +++| SFMI EQU 6640 TEST AND CLEAR CHANNEL ERROR FLAG SET
00163 M01S00076.comspfu +++| EJMI EQU 6700 EMPTY CHANNEL JUMP
00164 M01S00077.comspfu +++| CFMI EQU 6740 TEST AND CLEAR CHANNEL ERROR FLAG CLEAR
00165 M01S00078.comspfu +++| .A ELSE
00166 M01S00079.comspfu +++| FIMI EQU 6000 INPUT WORD FLAG JUMP
00167 M01S00080.comspfu +++| EIMI EQU 6100 NO INPUT WORD FLAG JUMP
00168 M01S00081.comspfu +++| IRMI EQU 6200 INPUT RECORD FLAG JUMP
00169 M01S00082.comspfu +++| NIMI EQU 6300 NO INPUT RECORD FLAG JUMP
00170 M01S00083.comspfu +++| FOMI EQU 6400 OUTPUT WORD FLAG JUMP
00171 M01S00084.comspfu +++| EOMI EQU 6500 NO OUTPUT RECORD FLAG JUMP
00172 M01S00085.comspfu +++| ORMI EQU 6600 OUTPUT RECORD FLAG JUMP
00173 M01S00086.comspfu +++| NOMI EQU 6700 NO OUTPUT RECORD FLAG JUMP
00174 M01S00087.comspfu +++| .A ENDIF
00175 M01S00088.comspfu +++|
00176 M01S00089.comspfu +++| IANI EQU 7000 INPUT BYTE FROM CHANNEL
00177 M01S00090.comspfu +++| IAMI EQU 7100 INPUT WORDS FROM CHANNEL
00178 M01S00091.comspfu +++| OANI EQU 7200 OUTPUT BYTE ON CHANNEL
00179 M01S00092.comspfu +++| OAMI EQU 7300 OUTPUT WORDS ON CHANNEL
00180 M01S00093.comspfu +++|
00181 M01S00094.comspfu +++| .B IFPP6
00182 M01S00095.comspfu +++| ACNI EQU 7400 ACTIVATE CHANNEL
00183 M01S00096.comspfu +++| DCNI EQU 7500 DISCONNECT CHANNEL
00184 M01S00097.comspfu +++| .B ELSE
00185 M01S00098.comspfu +++| RFNI EQU 7400 SEND RECORD FLAG
00186 M01S00099.comspfu +++| .B ENDIF
00187 M01S00100.comspfu +++|
00188 M01S00101.comspfu +++| FANI EQU 7600 FUNCTION CHANNEL
00189 M01S00102.comspfu +++|
00190 M01S00103.comspfu +++| .C IFPP6
00191 M01S00104.comspfu +++| FNCI EQU 7700 FUNCTION CHANNEL
00192 M01S00105.comspfu +++| .C ELSE
00193 M01S00106.comspfu +++| ESNI EQU 7700 ERROR STOP
00194 M01S00107.comspfu +++| .C ENDIF
00195 M01S00108.comspfu +++| PIM SPACE 4,10
00196 M01S00109.comspfu +++| BASE *
00197 M01S00110.comspfu +++| ENDX