Retro1.org codex

User Tools

Site Tools

Trace: • 5ME
cdc:nos2.source:opl871:5me

Table of Contents

5ME

Table Of Contents

  • [00233] TABLES AND MESSAGES.

Source Code

5ME.txt 
  1.           IDENT  5ME,DVEX
  2.           PERIPH
  3.           BASE   M
  4.           SST
  5.  5ME      TITLE  5ME - MASS STORAGE VALIDATION ERROR PROCESSOR.
  6. *COMMENT  5ME - MS VALIDATION ERROR PROCESSOR.
  7.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  8.           SPACE  4,10
  9. *****     5ME - MASS STORAGE VALIDATION ERROR PROCESSOR.
  10. *
  11. *         P. D. HAAS.        76/05/27.
  12. *         J. M. MAREK.       87/04/24.
  13.           SPACE  4,10
  14. ***              5ME TRANSLATES ERROR CODES RETURNED BY CPUMTR ON A
  15. *         *VMSM* REQUEST INTO ERRLOG MESSAGES.  MESSAGES WILL NOT
  16. *         BE ISSUED IF THE ERRORS ARE ON THE ERRLOG DEVICE.
  17.           SPACE  4,10
  18. ***       ERRLOG MESSAGES.
  19. *
  20. *         *MSER, EQXXX, TRACK COUNT.* = THE NUMBER OF AVAILABLE
  21. *         TRACKS AS MAINTAINED IN THE *TDGL* WORD OF THE MST FOR
  22. *         EST ORDINAL XXX IS INCORRECT (EC=1).
  23. *
  24. *         *MSER, EQXXX, PF COUNT.* = THE NUMBER OF PRESERVED FILES
  25. *         INDICATED IN THE TRT FOR EST ORDINAL XXX DOES NOT MATCH THE
  26. *         COUNT MAINTAINED IN THE *ACGL* WORD OF THE MST (EC=2).
  27. *
  28. *         *MSER, EQXXX, PERMITS CHAIN.* = THE FIRST TRACK OF THE
  29. *         PERMITS CHAIN ON EST ORDINAL XXX IS NOT RESERVED AND/OR
  30. *         PRESERVED IN THE TRT (EC=4).
  31. *
  32. *         *MSER, EQXXX, CATALOG CHAIN.* = ERROR IN CATALOG CHAIN ON EST
  33. *         ORDINAL XXX (EC=10), CAUSED BY ONE OR MORE OF THE FOLLOWING -
  34. *         1) LABEL TRACK NOT LINKED TO FIRST CATALOG TRACK.
  35. *         2) NUMBER OF CATALOG TRACKS NOT A POWER OF 2.
  36. *         3) CATALOG CHAIN NOT RESERVED.
  37. *         4) LENGTH OF CATALOG CHAIN INCORRECT.
  38. *         5) CATALOG CHAIN NON-CONTIGUOUS IF FLAGGED AS SUCH.
  39. *
  40. *         *MSER, EQXXX, INDIRECT CHAIN.* = THE FIRST TRACK OF THE
  41. *         INDIRECT CHAIN ON EST ORDINAL XXX IS NOT RESERVED AND/OR
  42. *         PRESERVED IN THE TRT (EC=20).
  43. *
  44. *         *MSER, EQXXX, PACK=VVVVVVV, DN=DD-U* = WRONG PACK MOUNTED
  45. *         ON EQUIPMENT XXX.  THE PACK MOUNTED HAS A VSN OF VVVVVVV,
  46. *         A DEVICE NUMBER OF DD, AND IS RELATIVE UNIT U (IF IT IS
  47. *         PART OF MULTI-SPINDLE SET.)
  48.           SPACE  4,10
  49. ***       OPERATOR MESSAGES.
  50. *
  51. *         *EQXXX, VALIDATION ERROR NN.* = MESSAGE FLASHED AT THE
  52. *         SYSTEM CONTROL POINT AS A RESULT OF *VMSM* ERRORS ON
  53. *         EST ORDINAL XXX.  NN REPRESENTS ANY COMBINATION OF THE
  54. *         ERROR CODES (EC) IDENTIFIED WITH THE ERRLOG MESSAGES.
  55. *
  56. *         *EQXXX, PACK=VVVVVVV, DN=DD-U* = WRONG PACK MOUNTED ON
  57. *         EQUIPMENT XXX.  THE PACK MOUNTED HAS A VSN OF VVVVVVV,
  58. *         A DEVICE NUMBER OF DD, AND IS RELATIVE UNIT U (IF IT IS
  59. *         PART OF MULTI-SPINDLE SET.)
  60.           SPACE  4,10
  61. ***       ENTRY CONDITIONS.
  62. *
  63. *         (IR+2) = ERROR CODES.
  64. *                  .GT. 77 = FWA OF BUFFER CONTAINING LABEL SECTOR
  65. *                            (WRONG PACK ERROR.)
  66. *         (IR+3) = EST ORDINAL.
  67.           SPACE  4,10
  68. ***       EXIT CONDITIONS.
  69. *
  70. *         (A) = STATUS RESPONSE.
  71. *               0 = OPERATOR ENTERED *GO*.
  72. *               .LT. 0 = DEVICE IS DOWN.
  73.           SPACE  4,10
  74. **        COMMON DECKS.
  75.  
  76.  
  77. *CALL     COMPMAC
  78. *CALL     COMSCPS
  79. *CALL     COMSLSD
  80. *CALL     COMSMSC
  81.           SPACE  4,10
  82. ****      DIRECT LOCATION ASSIGNMENTS.
  83.  
  84.  
  85.  EI       EQU    17          ERROR INDEX
  86.  
  87. ****
  88.  DVE      TITLE  MAIN LOOP.
  89.           ORG    N4SS+5*PFGL+12
  90.  
  91.  DVEX     LJM    DVE1        ENTRY FROM *PPR*
  92.  DVE      EQU    *-1         RETURN (FROM *EXR* CALL)
  93.           UJN    DVE3        ENTRY FROM *EXR*
  94.  
  95.  DVE1     LDN    DVE2-DVE1   MODIFY EXIT
  96.           RAM    DVE
  97.           LDD    IR+2        GET ERROR FLAGS
  98.           NJN    DVE4        IF ERRORS SET
  99.  DVE2     MONITOR DPPM       RELEASE PP
  100.           LJM    PPR         EXIT (FROM *PPR* CALL)
  101.  
  102.  DVE3     LDD    IR+2
  103.           ZJN    DVEX        IF NO ERROR FLAGS
  104.  DVE4     RJM    C2D         CONVERT ERROR FLAGS
  105.           STM    CMSG+14
  106.           LDD    IR+3        CONVERT UPPER TWO DIGITS OF EST ORDINAL
  107.           STD    T5
  108.           SHN    -3
  109.           RJM    C2D
  110.           STM    CMSG+1
  111.           LDD    IR+3        CONVERT LOWER DIGIT OF EST ORDINAL
  112.           LPN    7
  113.           SHN    6
  114.           RAM    CMSG+2
  115.           LDN    NCPL        GET NUMBER OF CONTROL POINTS
  116.           CRD    T6
  117.           AOD    T6+1        SET ADDRESS OF SENSE SWITCH WORD
  118.           SHN    7
  119.           ADN    SNSW
  120.           STD    T7
  121.           LDN    DFPP        READ DAYFILE POINTER
  122.           CRD    CM
  123.           LDD    CM          SET FWA OF DAYFILE POINTERS
  124.           SHN    14
  125.           LMD    CM+1
  126.           ADN    3*ELDY+2
  127.           CRD    CM
  128.           LDD    IR+2        CHECK ERROR CODE
  129.           ADK    N4SS+PFGL*5-BFMS
  130.           STD    T6          SET PACK NAME ADDRESS FOR WRONG PACK
  131.           SHN    -7
  132.           ZJN    DVE5        IF *VMSM* ERROR CODE
  133.           LDN    40          PROHIBIT USING THIS PP TO DUMP DAYFILE
  134.           RAM    DVEA
  135.           LDN    1
  136.           STD    IR+2        FORCE ERROR CODE
  137.           STM    DVEB        POST-PROCESS THE ERROR
  138.           LCN    0
  139.           ERRNZ  WPEM
  140.  DVE5     STD    EI          SET ERROR MESSAGE INDEX
  141.           NJN    DVE6        IF WRONG PACK
  142.           LDD    T7          DISPLAY MESSAGE AT SYSTEM CONTROL POINT
  143.           ADK    MS2W-SNSW
  144.           CWM    CMSG,TR
  145.  DVE6     AOD    EI          ADVANCE ERROR INDEX
  146.           LDD    IR+2        CHECK NEXT ERROR FLAG
  147.           SHN    21-0
  148.           STD    IR+2
  149.           PJN    DVE6        IF NO ERROR SET
  150.           LDM    TMSG,EI     SET ADDRESS OF MESSAGE SUFFIX
  151.           STD    T1
  152.           LDC    CMSG+2
  153.           STD    T2
  154.  DVE7     AOD    T1          APPEND DESCRIPTION TO BASIC MESSAGE
  155.           AOD    T2
  156.           LDI    T1
  157.           STI    T2
  158.           NJN    DVE7        IF NOT END OF ERROR DESCRIPTION
  159.           LDD    EI          CHECK FOR WRONG PACK
  160.           NJN    DVE10       IF NOT WRONG PACK
  161.           STD    T1          MOVE PACK NAME TO MESSAGE
  162.  DVE8     LDI    T6
  163.           ZJN    DVE9        IF SHORT NAME
  164.           STM    CMSG+6,T1
  165.  DVE9     AOD    T6
  166.           AOD    T1
  167.           SBN    3
  168.           MJN    DVE8        IF MORE TO MOVE
  169.           LDI    T6
  170.           SCN    77
  171.           RAM    CMSG+11
  172.           LDI    T6
  173.           RJM    C2D         CONVERT DEVICE NUMBER
  174.           STM    CMSG+14
  175.           AOD    T6
  176.           LDI    T6          GET RELATIVE UNIT NUMBER
  177.           LPN    7
  178.           ZJN    DVE10       IF SINGLE SPINDLE DEVICE
  179.           LDI    T6
  180.           SHN    -3
  181.           LPN    7
  182.           ADC    2R-0
  183.           STM    CMSG+15
  184.           ERRNZ  CMSG+16-CMSGL  CODE ASSUMES A ZERO BYTE AFTER UNIT
  185.  DVE10    LDD    T5          CHECK ERRLOG EST ORDINAL
  186.           LMD    CM
  187.           ZJN    DVE11       IF ERRORS ON ERRLOG DEVICE
  188.  DVEA     LDC    EMSG+ERLN   ISSUE ERRLOG MESSAGE
  189. *         LDC    EMSG+ERLN+400000  (WRONG PACK ERROR)
  190.           RJM    DFM
  191.           LDD    IR+2
  192.           NJP    DVE6        IF MORE ERRORS
  193.  DVE11    UJN    DVE13       RETURN
  194. *         PSN                (WRONG PACK ERROR)
  195.  DVEB     EQU    *-1
  196.  
  197. *         WAIT FOR A *GO* OR *DOWN* WHEN WRONG PACK MOUNTED.
  198.  
  199.           LDD    T7          READ SENSE SWITCH WORD
  200.           CRD    CM
  201.           LDN    3           SET PAUSE + NOGO FLAGS
  202.           STD    CM+3
  203.           LDD    T7          STORE SENSE SWITCH WORD
  204.           CWD    CM
  205.  DVE12    LDD    T7          DISPLAY MESSAGE AT SYSTEM CONTROL POINT
  206.           ADN    MS2W-SNSW
  207.           CWM    CMSG,TR
  208.           PAUSE  NE          WAIT FOR A *GO* OR *DOWN*
  209. *         LDN    0           DELAY
  210.           SBN    1
  211.           NJN    *-1         IF NOT DONE DELAYING
  212.           LDD    T7          READ SENSE SWITCH WORD
  213.           CRD    CM
  214.           LDD    CM+3        CHECK ON OPERATOR INPUT
  215.  DVE13    ZJN    DVE15       IF OPERATOR ENTERED *GO*
  216.           SFA    EST,T5      CHECK DEVICE STATE
  217.           ADK    EQDE
  218.           CRD    CM
  219.           LDD    CM
  220.           LPN    3
  221.           LMN    3
  222.           ZJN    DVE14       IF DOWN
  223.           LDD    CM
  224.           SHN    21-11
  225.           MJN    DVE12       IF SHARED
  226.           LDD    T5
  227.           STD    CM+1
  228.           LDN    DWES        DOWN THE DEVICE
  229.           STD    CM+2
  230.           MONITOR  SEQM
  231.  DVE14    LCN    1           SET INACCESSIBLE STATUS
  232.  DVE15    LJM    DVEX        RETURN
  233.           TITLE  TABLES AND MESSAGES.
  234.  TMSG     SPACE  4,5
  235. **        TABLE OF ERROR MESSAGE SUFFIXES.
  236.  
  237.  
  238.  TMSG     BSS    0
  239.           LOC    0
  240.  
  241.           CHAR   1R0,00
  242.           CODE   OTHER
  243.  WPEM     CON    =C* PACK=      0, DN=DD*-1  MUST BE 1 BYTE .LT. *CMSG*
  244. *         CON    =C* PACK=      0, DN=DD-U*  (MULTISPINDLE DEVICE)
  245.           CODE   *
  246.           CON    =C* TRACK COUNT.*-1
  247.           CON    =C* PF COUNT.*-1
  248.           CON    =C* PERMITS CHAIN.*-1
  249.           CON    =C* CATALOG CHAIN.*-1
  250.           CON    =C* INDIRECT CHAIN.*-1
  251.           LOC    *
  252.  
  253.  
  254.           USE    LITERALS    FORCE MESSAGES HERE
  255.  
  256.  EMSG     SPACE  4,5
  257.  EMSG     DATA   6HMSER,     PREFIX FOR DETAILED ANALYSIS
  258.  CMSG     DATA   C*EQ000, VALIDATION ERROR NN.*
  259.  CMSGL    EQU    *-1
  260.           SPACE  4,5
  261. **        COMMON DECKS.
  262.  
  263.  
  264. *CALL     COMPC2D
  265.  
  266.  
  267.           OVERFLOW  DVEX,EPFW,CMR
  268.           ERRPL  *-DVEX+5-473  OVERFLOW ONE SECTOR
  269.  
  270.           END
cdc/nos2.source/opl871/5me.txt · Last modified: 2023/08/05 17:24 by Site Administrator