Common COMSMRT

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comsmrt +++|          CTEXT  COMSMRT - MACHINE RECOVERY EQUIVALENCES.
00002  M01S00001.281l803 +++|
00003  M01S00002.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M01S00002.comsmrt +++|          SPACE  4
00005  M01S00003.comsmrt +++|***       COMSMRT - MACHINE RECOVERY EQUIVALENCES.
00006  M01S00004.comsmrt +++|*         R. J. PRIEVE.      75/02/15.
00007  M01S00005.comsmrt +++|          SPACE  4
00008  M01S00006.comsmrt +++|***       COMSMRT CONTAINS EQUIVALENCES WHICH ARE USED
00009  M01S00007.comsmrt +++|*         BY THE MACHINE RECOVERY UTILITY *MREC* AND THE
00010  M01S00008.comsmrt +++|*         MACHINE RECOVERY PROCESSOR *1MR*.
00011  M01S00009.comsmrt +++|          SPACE  4
00012  M01S00010.comsmrt +++|**        FUNCTIONS ISSUED TO *1MR* BY *MREC*.
00013  M01S00011.comsmrt +++|
00014  M01S00012.comsmrt +++|

Line S00013 Modification History
`M01` (Added by)	`comsmrt`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00015  M02S00013.251l664 ---|          LOC    0

Line S00014 Modification History
`M01` (Added by)	`comsmrt`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00014.251l664 ---| RDI      BSS    1           RETRIEVE DISPLAY INFORMATION

Line S00015 Modification History
`M01` (Added by)	`comsmrt`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00015.251l664 ---| PMT      BSS    1           PROCESS DAT,S , MRT,S AND RESERVES

Line S00016 Modification History
`M01` (Added by)	`comsmrt`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00016.251l664 ---| UMT      BSS    1           UPDATE MST ENTRIES IN CM

Line S00017 Modification History
`M01` (Added by)	`comsmrt`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00017.251l664 ---| MFUN     EQU    *           MAXIMUM FUNCTIONS

Line S00018 Modification History
`M01` (Added by)	`comsmrt`
`M02` (Updated by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00018.251l664 ---|          LOC    *O

Line S00001 Modification History
`M01` (Added by)	`251l664`
`M02` (Updated by)	`ns2483`

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00001.ns2483  ---|          LIST   G
00022  M01S00002.251l664 +++| BEGIN    BSSN   0
00023  M01S00003.251l664 +++| RDI      BSSN   1           RETRIEVE DISPLAY INFORMATION
00024  M01S00004.251l664 +++| PMT      BSSN   1           PROCESS DAT-S, MRT-S AND RESERVES
00025  M01S00005.251l664 +++| UMT      BSSN   1           UPDATE MST ENTRIES IN CM
00026  M01S00006.251l664 +++| CDV      BSSN   1           CLEAR DEVICE INTERLOCKS (*MTE*/*CPUMTR*)
00027  M01S00001.283l840 +++| PRB      BSSN   1           PROCESS RESERVES AND BAT-S
00028  M01S00007.251l664 +++| MFUN     BSSN   1           MAXIMUM FUNCTIONS
00029  M01S00008.251l664 +++| END      BSSN

Line S00009 Modification History
`M01` (Added by)	`251l664`
`M02` (Updated by)	`ns2483`

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00009.ns2483  ---|          LIST   *
00031  M01S00019.comsmrt +++|          SPACE  4
00032  M01S00020.comsmrt +++|**        WORDS IN *MREC,S* FL READ AND WRITTEN BY *1MR*.
00033  M01S00021.comsmrt +++|
00034  M01S00022.comsmrt +++|
00035  M01S00023.comsmrt +++| COM      EQU    150B        BEGINNING OF COMMON STORAGE
00036  M01S00024.comsmrt +++| MASK     EQU    COM         *MMFL* WORD OF DOWNED MACHINE
00037  M01S00025.comsmrt +++| RCLW     EQU    MASK+1      *1MR* RECALL WORD
00038  M01S00026.comsmrt +++| ERRW     EQU    RCLW+1      ERROR RETURN WORD
00039  M01S00027.comsmrt +++| TMID     EQU    ERRW+1      TABLE OF *MMFL* WORDS
00040  M01S00028.comsmrt +++| COML     EQU    TMID+MXMF+MMPF-COM  LENGTH OF COMMON STORAGE
00041  M01S00029.comsmrt +++|          SPACE  4
00042  M01S00030.comsmrt +++|**        ERROR CODES - RETURNED TO WORD *ERRW* (BYTE 4) IN *MREC,S*
00043  M01S00031.comsmrt +++|*         FIELD LENGTH IF LINK DEVICE ERROR.  IN THE CASE OF RESERVE
00044  M01S00032.comsmrt +++|*         SITUATIONS, *ERRW* HAS THE FOLLOWING FORMAT.
00045  M01S00033.comsmrt +++|*
00046  M01S00034.comsmrt +++|*T, ERRW  12/,12/ ID,12/ IN,12/ EQ,12/ EC

Figure ERRW

00047  M01S00035.comsmrt +++|*
00048  M01S00036.comsmrt +++|*         ID     RELATIVE UNIT NUMBER FOR UNIT RESERVE.
00049  M01S00037.comsmrt +++|*                CHANNEL NUMBER FOR CONTROLLER RESERVE.
00050  M01S00038.comsmrt +++|*
00051  M01S00039.comsmrt +++|*         IN     CURRENT POSITION IN *TRDV* TABLE.
00052  M01S00040.comsmrt +++|*

Line S00041 Modification History
`M01` (Added by)	`comsmrt`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00041.ns22000 ---|*         EQ     EQUIPMENT NUMBER.
00054  M01S00001.ns22000 +++|*         EQ     EST ORDINAL.
00055  M01S00042.comsmrt +++|*
00056  M01S00043.comsmrt +++|*         EC     ERROR CODE.
00057  M01S00044.comsmrt +++|
00058  M01S00045.comsmrt +++|
00059  M01S00046.comsmrt +++| RER      EQU    1           UNRECOVERABLE READ ERROR
00060  M01S00047.comsmrt +++| WER      EQU    2           UNRECOVERABLE WRITE ERROR
00061  M01S00048.comsmrt +++| URS      EQU    3           UNIT RESERVED
00062  M01S00049.comsmrt +++| CRS      EQU    4           CONTROLLER RESERVED
00063  M01S00050.comsmrt +++|          SPACE  4
00064  M01S00051.comsmrt +++|**        CODES PLACED IN BYTE 0 OF APPROPRIATE EQUIPMENT ENTRY IN
00065  M01S00052.comsmrt +++|*         TABLE *TRDV* IN *MREC,S* FL.  THESE CODES ARE USED WHEN
00066  M01S00053.comsmrt +++|*         PROCESSING UNIT AND CONTROLLER RESERVES.  THE OPTIONS TO
00067  M01S00054.comsmrt +++|*         IGNORE A DEVICE OR RELEASE ALL RESERVES WILL BE DONE
00068  M01S00055.comsmrt +++|*         ONLY IF SELECTED BY THE OPERATOR.
00069  M01S00056.comsmrt +++|
00070  M01S00057.comsmrt +++|
00071  M01S00058.comsmrt +++| PRO      EQU    1           DEVICE HAS BEEN PROCESSED
00072  M01S00059.comsmrt +++| IGN      EQU    2           IGNORE DEVICE
00073  M01S00060.comsmrt +++| REL      EQU    3           RELEASE ALL UNIT RESERVES
00074  M01S00061.comsmrt +++|          SPACE  4
00075  M01S00062.comsmrt +++|          ENDX