Common COMSMRT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comsmrt +++|          CTEXT  COMSMRT - MACHINE RECOVERY EQUIVALENCES.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00001.281l803 +++|
00003  M01S00002.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M00S00002.comsmrt +++|          SPACE  4
00005  M00S00003.comsmrt +++|***       COMSMRT - MACHINE RECOVERY EQUIVALENCES.
00006  M00S00004.comsmrt +++|*         R. J. PRIEVE.      75/02/15.
00007  M00S00005.comsmrt +++|          SPACE  4
00008  M00S00006.comsmrt +++|***       COMSMRT CONTAINS EQUIVALENCES WHICH ARE USED
00009  M00S00007.comsmrt +++|*         BY THE MACHINE RECOVERY UTILITY *MREC* AND THE
00010  M00S00008.comsmrt +++|*         MACHINE RECOVERY PROCESSOR *1MR*.
00011  M00S00009.comsmrt +++|          SPACE  4
00012  M00S00010.comsmrt +++|**        FUNCTIONS ISSUED TO *1MR* BY *MREC*.
00013  M00S00011.comsmrt +++|
00014  M00S00012.comsmrt +++|

Line S00013 Modification History
`M01` (Removed by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00013.251l664 ---|          LOC    0
00016  M01S00014.251l664 ---| RDI      BSS    1           RETRIEVE DISPLAY INFORMATION
00017  M01S00015.251l664 ---| PMT      BSS    1           PROCESS DAT,S , MRT,S AND RESERVES
00018  M01S00016.251l664 ---| UMT      BSS    1           UPDATE MST ENTRIES IN CM
00019  M01S00017.251l664 ---| MFUN     EQU    *           MAXIMUM FUNCTIONS
00020  M01S00018.251l664 ---|          LOC    *O

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

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00001.ns2483  ---|          LIST   G

Line S00002 Modification History
`M01` (Added by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
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*)

Line S00001 Modification History
`M01` (Added by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00001.283l840 +++| PRB      BSSN   1           PROCESS RESERVES AND BAT-S

Line S00007 Modification History
`M01` (Added by)	`251l664`

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00007.251l664 +++| MFUN     BSSN   1           MAXIMUM FUNCTIONS
00029  M01S00008.251l664 +++| END      BSSN

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

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00009.ns2483  ---|          LIST   *
00031  M00S00019.comsmrt +++|          SPACE  4
00032  M00S00020.comsmrt +++|**        WORDS IN *MREC,S* FL READ AND WRITTEN BY *1MR*.
00033  M00S00021.comsmrt +++|
00034  M00S00022.comsmrt +++|
00035  M00S00023.comsmrt +++| COM      EQU    150B        BEGINNING OF COMMON STORAGE
00036  M00S00024.comsmrt +++| MASK     EQU    COM         *MMFL* WORD OF DOWNED MACHINE
00037  M00S00025.comsmrt +++| RCLW     EQU    MASK+1      *1MR* RECALL WORD
00038  M00S00026.comsmrt +++| ERRW     EQU    RCLW+1      ERROR RETURN WORD
00039  M00S00027.comsmrt +++| TMID     EQU    ERRW+1      TABLE OF *MMFL* WORDS
00040  M00S00028.comsmrt +++| COML     EQU    TMID+MXMF+MMPF-COM  LENGTH OF COMMON STORAGE
00041  M00S00029.comsmrt +++|          SPACE  4
00042  M00S00030.comsmrt +++|**        ERROR CODES - RETURNED TO WORD *ERRW* (BYTE 4) IN *MREC,S*
00043  M00S00031.comsmrt +++|*         FIELD LENGTH IF LINK DEVICE ERROR.  IN THE CASE OF RESERVE
00044  M00S00032.comsmrt +++|*         SITUATIONS, *ERRW* HAS THE FOLLOWING FORMAT.
00045  M00S00033.comsmrt +++|*
00046  M00S00034.comsmrt +++|*T, ERRW  12/,12/ ID,12/ IN,12/ EQ,12/ EC

Figure ERRW

00047  M00S00035.comsmrt +++|*
00048  M00S00036.comsmrt +++|*         ID     RELATIVE UNIT NUMBER FOR UNIT RESERVE.
00049  M00S00037.comsmrt +++|*                CHANNEL NUMBER FOR CONTROLLER RESERVE.
00050  M00S00038.comsmrt +++|*
00051  M00S00039.comsmrt +++|*         IN     CURRENT POSITION IN *TRDV* TABLE.
00052  M00S00040.comsmrt +++|*

Line S00041 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00041.ns22000 ---|*         EQ     EQUIPMENT NUMBER.

Line S00001 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00001.ns22000 +++|*         EQ     EST ORDINAL.
00055  M00S00042.comsmrt +++|*
00056  M00S00043.comsmrt +++|*         EC     ERROR CODE.
00057  M00S00044.comsmrt +++|
00058  M00S00045.comsmrt +++|
00059  M00S00046.comsmrt +++| RER      EQU    1           UNRECOVERABLE READ ERROR
00060  M00S00047.comsmrt +++| WER      EQU    2           UNRECOVERABLE WRITE ERROR
00061  M00S00048.comsmrt +++| URS      EQU    3           UNIT RESERVED
00062  M00S00049.comsmrt +++| CRS      EQU    4           CONTROLLER RESERVED
00063  M00S00050.comsmrt +++|          SPACE  4
00064  M00S00051.comsmrt +++|**        CODES PLACED IN BYTE 0 OF APPROPRIATE EQUIPMENT ENTRY IN
00065  M00S00052.comsmrt +++|*         TABLE *TRDV* IN *MREC,S* FL.  THESE CODES ARE USED WHEN
00066  M00S00053.comsmrt +++|*         PROCESSING UNIT AND CONTROLLER RESERVES.  THE OPTIONS TO
00067  M00S00054.comsmrt +++|*         IGNORE A DEVICE OR RELEASE ALL RESERVES WILL BE DONE
00068  M00S00055.comsmrt +++|*         ONLY IF SELECTED BY THE OPERATOR.
00069  M00S00056.comsmrt +++|
00070  M00S00057.comsmrt +++|
00071  M00S00058.comsmrt +++| PRO      EQU    1           DEVICE HAS BEEN PROCESSED
00072  M00S00059.comsmrt +++| IGN      EQU    2           IGNORE DEVICE
00073  M00S00060.comsmrt +++| REL      EQU    3           RELEASE ALL UNIT RESERVES
00074  M00S00061.comsmrt +++|          SPACE  4
00075  M00S00062.comsmrt +++|          ENDX