cdc:nos2.source:opl.opl871:common:comspfu
Common COMSPFU
2 Modifications
Source
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
cdc/nos2.source/opl.opl871/common/comspfu.txt · Last modified: by 127.0.0.1