Deck 0PT

4 Modifications

Source

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