Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.0pt +++| IDENT 0PT,RPFX
00002 M01S00002.0pt +++| TITLE 0PT - RESET PRIMARY FILE.
00003 M01S00003.0pt +++| PERIPH J
00004 M01S00004.0pt +++| BASE MIXED
00005 M01S00005.0pt +++| SST
00006 M01S00006.0pt +++|*COMMENT 0PT - RESET PRIMARY FILE.
| Line S00007 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1981.
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M01S00008.0pt +++| RPF SPACE 4,10
00010 M01S00009.0pt +++|*** RPF - RESET PRIMARY FILE.
00011 M01S00010.0pt +++|* P. D. FARRELL. 81/09/10.
00012 M01S00011.0pt +++| RPF SPACE 4,10
00013 M01S00012.0pt +++|*** RPF IS A LOCATION-FREE, ZERO-LEVEL OVERLAY TO
00014 M01S00013.0pt +++|* BE USED TO RESET THE PRIMARY FILE POINTERS IN THE JOB
00015 M01S00014.0pt +++|* EJT ENTRY.
00016 M01S00015.0pt +++| RPF SPACE 4,10
00017 M01S00016.0pt +++|*** CALL.
00018 M01S00017.0pt +++|*
| Line S00018 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00019 M02S00018.ns22000 ---|* ((LA)-3) = NEW EQUIPMENT NUMBER.
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00020 M02S00001.ns2358 ---|* ((LA)-3) = NEW EST ORDINAL.
| Line S00019 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00021 M02S00019.ns2358 ---|* ((LA)-2) = NEW FIRST TRACK.
00022 M01S00001.ns2358 +++|* ENTRY (FS - FS+4) = FST INFORMATION FOR NEW FILE.
00023 M01S00001.242l642 +++|*
00024 M01S00002.242l642 +++|* EXIT (A) = 0.
00025 M01S00020.0pt +++| RPF SPACE 4,10
00026 M01S00021.0pt +++|** DEFINITION COMMON DECKS.
00027 M01S00022.0pt +++|
00028 M01S00023.0pt +++|
00029 M01S00024.0pt +++|*CALL COMPMAC
00030 M01S00025.0pt +++|*CALL COMPREL
00031 M01S00026.0pt +++|*CALL COMSZOL
00032 M01S00002.ns2358 +++| SPACE 4,10
00033 M01S00003.ns2358 +++|**** DIRECT LOCATION ASSIGNMENTS.
00034 M01S00004.ns2358 +++|
00035 M01S00005.ns2358 +++|
00036 M01S00006.ns2358 +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS)
00037 M01S00007.ns2358 +++|
00038 M01S00008.ns2358 +++|****
00039 M01S00027.0pt +++| RPF TITLE MAIN ROUTINE.
00040 M01S00028.0pt +++| RPF SPACE 4,10
00041 M01S00029.0pt +++|** RPF - MAIN ROUTINE.
| Line S00030 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00042 M02S00030.ns2358 ---|*
| Line S00031 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns22000 |
M03 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00043 M03S00031.ns2358 ---|* ENTRY ((LA)-3) = NEW EQUIPMENT NUMBER.
| Line S00002 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00044 M02S00002.ns2358 ---|* ENTRY ((LA)-3) = NEW EST ORDINAL.
| Line S00032 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00045 M02S00032.ns2358 ---|* ((LA)-2) = NEW FIRST TRACK.
| Line S00033 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00046 M02S00033.ns2358 ---|*
| Line S00034 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns22000 |
M03 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00047 M03S00034.ns2358 ---|* EXIT NEW EQUIPMENT NUMBER AND NEW FIRST TRACK SET
| Line S00003 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00048 M02S00003.ns2358 ---|* EXIT NEW EST ORDINAL AND NEW FIRST TRACK SET
| Line S00035 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00049 M02S00035.ns2358 ---|* IN THE JOB EJT ENTRY.
| Line S00036 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00050 M02S00036.ns2358 ---|*
| Line S00037 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00051 M02S00037.ns2358 ---|* USES CM - CM+4.
| Line S00038 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00052 M02S00038.ns2358 ---|*
| Line S00039 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00053 M02S00039.ns2358 ---|* MACROS MONITOR, SFA.
00054 M01S00040.0pt +++|
00055 M01S00041.0pt +++|
00056 M01S00042.0pt +++| ORG 5
00057 M01S00043.0pt +++| RPF SUBR ENTRY/EXIT
00058 M01S00044.0pt +++| LDD LA RELOCATE INSTRUCTION
00059 M01S00045.0pt +++| RAM RPFA
00060 M01S00046.0pt +++|
00061 M01S00047.0pt +++|* FORMAT *UTEM* MONITOR REQUEST.
00062 M01S00048.0pt +++|
| Line S00049 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00063 M02S00049.ns22000 ---| LDM -3 SET NEW EQUIPMENT NUMBER
| Line S00004 Modification History |
M01 (Added by) | ns22000 |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00064 M02S00004.ns2358 ---| LDM -3 SET NEW EST ORDINAL
| Line S00050 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00065 M02S00050.ns2358 ---| STM RPFB+3
| Line S00051 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
00066 M02S00051.ns2358 ---| LDM -2 SET NEW FIRST TRACK
00067 M01S00009.ns2358 +++| LDD FS SET NEW EST ORDINAL
00068 M01S00010.ns2358 +++| STM RPFB+3
00069 M01S00011.ns2358 +++| LDD FS+1 SET NEW FIRST TRACK
00070 M01S00052.0pt +++| STM RPFB+4
00071 M01S00053.0pt +++|
00072 M01S00054.0pt +++|* SET EJT ADDRESS AND ISSUE MONITOR REQUEST.
00073 M01S00055.0pt +++|
00074 M01S00056.0pt +++| LDD CP READ EJT ORDINAL WORD
00075 M01S00057.0pt +++| ADK TFSW
00076 M01S00058.0pt +++| CRD CM
00077 M01S00059.0pt +++| SFA EJT,CM SET EJT ADDRESS
00078 M01S00060.0pt +++| STD CM+4
00079 M01S00061.0pt +++| SHN -14
00080 M01S00062.0pt +++| STD CM+3
00081 M01S00063.0pt +++| LDN 0
00082 M01S00064.0pt +++| STD CM+2
00083 M01S00065.0pt +++| LDN 1 SET REQUEST LENGTH
00084 M01S00066.0pt +++| STD CM+1
00085 M01S00067.0pt +++| LDD MA WRITE PARAMETERS TO MESSAGE BUFFER
00086 M01S00068.0pt +++| CWM. RPFB,ON
00087 M01S00069.0pt +++| RPFA EQU *-1
00088 M01S00070.0pt +++| MONITOR UTEM ISSUE MONITOR REQUEST
00089 M01S00003.242l642 +++|* LDN 0
00090 M01S00071.0pt +++| LJM RPFX RETURN
00091 M01S00072.0pt +++|
00092 M01S00073.0pt +++|
00093 M01S00074.0pt +++| RPFB VFD 1/0,5/PRFE,6/21D,6/0,42/0
00094 M01S00075.0pt +++| RPF SPACE 4,10
00095 M01S00076.0pt +++|** EXECUTABLE COMMON DECKS.
00096 M01S00077.0pt +++|
00097 M01S00078.0pt +++|
00098 M01S00079.0pt +++| EJT$ EQU 1 ASSEMBLE EJT ADDRESSING (COMPGFP)
00099 M01S00080.0pt +++|*CALL COMPGFP
00100 M01S00081.0pt +++| RPF SPACE 4,10
00101 M01S00082.0pt +++| RSTR RESTORE INSTRUCTIONS
00102 M01S00083.0pt +++| RPF SPACE 4,10
00103 M01S00084.0pt +++|** OVERFLOW TEST.
00104 M01S00085.0pt +++|
00105 M01S00086.0pt +++|
| Line S00087 Modification History |
M01 (Added by) | 0pt |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
00106 M02S00087.242l642 ---| ERRNG ZPTL-* OVERLAY LENGTH OVERFLOW
00107 M01S00004.242l642 +++| OVERFLOW 5,ZPTL
00108 M01S00088.0pt +++|
00109 M01S00089.0pt +++|
00110 M01S00090.0pt +++| END