cdc:nos2.source:opl.opl871:deck:6di.001
Deck 6DI Part 001
43 Modifications
Listing Sections
- Deck 6DI Start
- Deck 6DI Part 1 (Line 1665)
- Deck 6DI Part 2 (Line 3189)
- Deck 6DI Part 3 (Line 5025)
Source
Seq # *Modification Id* Act ----------------------------+ 01665 M01S00013.6di12 +++| LMC 5020 01666 M01S00014.6di12 +++| NJN DDI17 IF NOT *NOT READY* 01667 M01S00015.6di12 +++| LDM OFFW+10 01668 M00S01518.6di +++|* LDM OFFW (FSC) 01669 M00S01519.6di +++|* LDM OFFW+12 (ISD) 01670 M00S01520.6di +++| DDIE EQU *-1 01671 M00S01521.6di +++| SHN 0-7 01672 M00S01522.6di +++|* SHN 0-12 (FSC) 01673 M00S01523.6di +++|* SHN 0-3 (ISD) 01674 M00S01524.6di +++| DDIF EQU *-1 01675 M00S01525.6di +++| LPN 1 01676 M00S01526.6di +++| DDIG PSN 01677 M00S01527.6di +++|* LMN 1 (FSC) 01678 M00S01528.6di +++| NJN DDI17 IF NOT *NOT READY* 01679 M00S01529.6di +++| LDN EI6 SET *7EI* PROCESSOR INDEX 01680 M00S01530.6di +++| UJN DDI18 EXECUTE *7EI* 01681 M00S01531.6di +++| 01682 M00S01532.6di +++|* CHECK FOR ERROR ON PREVIOUS SECTOR. 01683 M00S01533.6di +++| 01684 M00S01534.6di +++| DDI17 LDM OFFW+14 01685 M00S01535.6di +++|* LDM OFFW+21 (FSC)
| Line S01536 Modification History | |
|---|---|
M01 (Removed by) | 6di13 |
Seq # *Modification Id* Act ----------------------------+ 01686 M01S01536.6di13 ---|* UJN DDI20 (ISD)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 6di13 |
Seq # *Modification Id* Act ----------------------------+ 01687 M01S00004.6di13 +++|* UJN DDI18.1 (ISD) 01688 M00S01537.6di +++| DDIH EQU *-2 01689 M00S01538.6di +++| SHN 0-13 01690 M00S01539.6di +++| ZJN DDI19 IF NOT ERROR ON PREVIOUS SECTOR
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di31 |
Seq # *Modification Id* Act ----------------------------+ 01691 M01S00001.6di31 +++| LDM DERW 01692 M01S00002.6di31 +++| ZJN DDI18.2 IF NOT A WRITE 01693 M00S01540.6di +++| AOI T1 SET *ERROR ON PREVIOUS SECTOR* FLAG 01694 M00S01541.6di +++| LDN EI1 SET *7EI* PROCESSOR INDEX
| Line S01542 Modification History | |
|---|---|
M01 (Removed by) | 6di13 |
Seq # *Modification Id* Act ----------------------------+ 01695 M01S01542.6di13 ---| DDI18 UJN DDI22 EXECUTE *7EI*
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 6di13 |
Seq # *Modification Id* Act ----------------------------+ 01696 M01S00005.6di13 +++| DDI18 LJM DDI22 EXECUTE *7EI* 01697 M01S00006.6di13 +++| 01698 M01S00007.6di13 +++|* CHECK FOR ISD MEDIA ERROR. 01699 M01S00008.6di13 +++| 01700 M01S00009.6di13 +++| DDI18.1 LDM OFFW+20 CHECK BOX ISOLATION STATUS 01701 M01S00010.6di13 +++| SHN 21-5 01702 M01S00011.6di13 +++| PJN DDI20 IF NOT DRIVE/MEDIA FAULT 01703 M01S00012.6di13 +++| LDM OFFW+10 01704 M01S00013.6di13 +++| SHN 0-4 01705 M01S00014.6di13 +++| LMC 101
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 6di13 |
M02 (Removed by) | 6di31 |
Seq # *Modification Id* Act ----------------------------+ 01706 M02S00015.6di31 ---| ZJN DDI18.2 IF MEDIA ERROR IN HEADER
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 6di31 |
Seq # *Modification Id* Act ----------------------------+ 01707 M01S00003.6di31 +++| ZJN DDI21 IF MEDIA ERROR IN HEADER
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 6di13 |
Seq # *Modification Id* Act ----------------------------+ 01708 M01S00016.6di13 +++| LMN 101&103
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 6di13 |
M02 (Removed by) | 6di31 |
Seq # *Modification Id* Act ----------------------------+ 01709 M02S00017.6di31 ---| NJN DDI18.3 IF NOT MEDIA ERROR IN DATA 01710 M02S00018.6di31 ---| DDI18.2 UJN DDI21 SET *7EI* PROCESSOR INDEX 01711 M02S00019.6di31 ---| 01712 M02S00020.6di31 ---| DDI18.3 LDN 40 SET *EXECUTE DIAGNOSTICS* FLAG
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 6di31 |
Seq # *Modification Id* Act ----------------------------+ 01713 M01S00004.6di31 +++| ZJN DDI21 IF MEDIA ERROR IN DATA 01714 M01S00005.6di31 +++| LDN 40 SET *EXECUTE DIAGNOSTICS* FLAG
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 6di13 |
Seq # *Modification Id* Act ----------------------------+ 01715 M01S00021.6di13 +++| RAI T1
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 6di13 |
M02 (Removed by) | 6di31 |
Seq # *Modification Id* Act ----------------------------+ 01716 M02S00022.6di31 ---| UJN DDI20 EXECUTE *7EI*
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 6di31 |
Seq # *Modification Id* Act ----------------------------+ 01717 M01S00006.6di31 +++| DDI18.2 UJN DDI20 SET *7EI* PROCESSOR INDEX (STATUS ERROR) 01718 M00S01543.6di +++| 01719 M00S01544.6di +++|* CHECK FOR 844/885 MEDIA ERROR. 01720 M00S01545.6di +++| 01721 M00S01546.6di +++| DDI19 LDM OFFW 01722 M00S01547.6di +++|* UJN DDI23 (FSC) 01723 M00S01548.6di +++| DDII EQU *-2 01724 M00S01549.6di +++| LPN 17 01725 M00S01550.6di +++| LMN 10 01726 M00S01551.6di +++| ZJN DDI21 IF MEDIA ERROR 01727 M00S01552.6di +++| LDM OFFW+1 01728 M00S01553.6di +++| SHN 21-13 01729 M00S01554.6di +++| MJN DDI21 IF MEDIA ERROR 01730 M00S01555.6di +++| SHN 13-11 01731 M00S01556.6di +++| MJN DDI21 IF MEDIA ERROR 01732 M00S01557.6di +++| LDM OFFW+20 01733 M00S01558.6di +++| SHN 21-10 01734 M00S01559.6di +++| MJN DDI21 IF MEDIA ERROR 01735 M00S01560.6di +++| DDI20 SOM DDIJ 01736 M00S01561.6di +++| ERRNZ EI5-EI4-1 CODE ASSUMES *EI5* = *EI4* + 1 01737 M00S01562.6di +++| DDI21 LDN EI5 SET *7EI* PROCESSOR INDEX 01738 M00S01563.6di +++|* LDN EI4 (NOT A MEDIA ERROR) 01739 M00S01564.6di +++| DDIJ EQU *-1 01740 M00S01565.6di +++| DDI22 STD T2 01741 M00S01566.6di +++| MSERR 7EI EXECUTE *7EI* 01742 M00S01567.6di +++| 01743 M00S01568.6di +++|* CHECK FOR FSC MEDIA ERROR. 01744 M00S01569.6di +++| 01745 M00S01570.6di +++| DDI23 LDI T2 01746 M00S01571.6di +++| SHN 21-4 01747 M00S01572.6di +++| PJN DDI20 IF NOT MEDIA ERROR 01748 M00S01573.6di +++| LDM OFFW 01749 M00S01574.6di +++| SHN 21-7 01750 M00S01575.6di +++| PJN DDI20 IF NOT MEDIA ERROR 01751 M00S01576.6di +++| LDM OFFW+1 01752 M00S01577.6di +++| SHN 21-6 01753 M00S01578.6di +++| PJN DDI20 IF NOT MEDIA ERROR 01754 M00S01579.6di +++| UJN DDI21 EXECUTE *7EI* 01755 M00S01580.6di +++| SPACE 4,10 01756 M00S01581.6di +++| ERRNG 10000-* *7DI* HAS OVERFLOWED 01757 M00S01582.6di +++| BSS 10000-* SPARES 01758 M00S01583.6di +++| CON DDI-1 (T0) = ENTRY ADDRESS - 1 01759 M00S01584.6di +++| CON DEST (T1) = DEST 01760 M00S01585.6di +++| CON DEGS (T2) = DEGS 01761 M00S01586.6di +++| ERRNZ LN-* INCORRECT *7DI* OVERLAY LENGTH 01762 M00S01587.6di +++| QUAL *
| Line S01588 Modification History | |
|---|---|
M01 (Removed by) | 6di20 |
Seq # *Modification Id* Act ----------------------------+ 01763 M01S01588.6di20 ---| 7EI MSOVL 7566,T1,DEXA,(SET ERROR CODE.)
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 6di20 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01764 M02S00005.252l678 ---| 7EI MSOVL 7542,T1,DEXA,(SET ERROR CODE.)
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 6di30 |
Seq # *Modification Id* Act ----------------------------+ 01765 M02S00008.6di30 ---| 7EI MSOVL 7547,T1,DEXA,(SET ERROR CODE.)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di30 |
Seq # *Modification Id* Act ----------------------------+ 01766 M01S00001.6di30 +++| 7EI MSOVL 7542,T1,DEXA,(SET ERROR CODE.) 01767 M00S01589.6di +++| SPACE 4 01768 M00S01590.6di +++|*** SET ERROR CODE. 01769 M00S01591.6di +++|* R. J. THIELEN. 75/11/20. 01770 M00S01592.6di +++|* W. E. GOEBEL. 77/01/24. 01771 M00S01593.6di +++| SPACE 4 01772 M00S01594.6di +++|* *7EI* IS CALLED BY *7CI*, *7DI* OR *7FI* TO PERFORM 01773 M00S01595.6di +++|* ADDITIONAL CHECKS ON GENERAL STATUS AND TO ASSIGN AN ERROR 01774 M00S01596.6di +++|* CODE FOR THE CURRENT ERROR. FOR COUPLER TO DISK ERRORS, 01775 M00S01597.6di +++|* *7EI* WILL READ BACK THE PREVIOUS SECTOR FROM THE CONTROLLER 01776 M00S01598.6di +++|* SO THAT THE DRIVER CAN RE-WRITE IT. 01777 M00S01599.6di +++| MSE SPACE 4 01778 M00S01600.6di +++|** DEI - SET ERROR CODE. 01779 M00S01601.6di +++|* 01780 M00S01602.6di +++|* ENTRY (T1) = DEST.
| Line S01603 Modification History | |
|---|---|
M01 (Removed by) | 6di30 |
Seq # *Modification Id* Act ----------------------------+ 01781 M01S01603.6di30 ---|* (T2 = INDEX TO PROCESSING ADDRESS IN *7EI*.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 6di30 |
Seq # *Modification Id* Act ----------------------------+ 01782 M01S00002.6di30 +++|* (T2) = INDEX TO PROCESSING ADDRESS IN *7EI*. 01783 M00S01604.6di +++|* (T4 - T7) = DRIVER PARAMETERS. 01784 M00S01605.6di +++|* (DEAI) = ALGORITHM INDEX. 01785 M00S01606.6di +++|* (DEEC) = ERROR CODE IF CALLED BY *7CI* OR *7FI*. 01786 M00S01607.6di +++|* (DEGS) = GENERAL STATUS. 01787 M00S01608.6di +++|* (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST. 01788 M00S01609.6di +++|* (DEST) = ERROR PROCESSING CONTROL WORD. 01789 M00S01610.6di +++|* (RDSB) = ADDRESS OF DATA BUFFER FOR READ. 01790 M00S01611.6di +++|* (WDSC) = ADDRESS OF DATA BUFFER FOR WRITE. 01791 M00S01612.6di +++|* (WDSE) = ADDRESS OF BUFFER FOR WRITE ERROR RETRY (IF 01792 M00S01613.6di +++|* SPECIFIED ON *SETMS*). 01793 M00S01614.6di +++|* (MB+1) = PHYSICAL DISK ADDRESS FROM *LDAM*. 01794 M00S01615.6di +++|* (MB+2 - MB+5) = DETAILED STATUS, IF ERROR WAS REPORTED 01795 M00S01616.6di +++|* BY CONTROLLER (NOT A *DSWM*/*LDAM*/ 01796 M00S01617.6di +++|* CHANNEL PARITY ERROR. 01797 M00S01618.6di +++|*
| Line S01619 Modification History | |
|---|---|
M01 (Removed by) | ns2741 |
Seq # *Modification Id* Act ----------------------------+ 01798 M01S01619.ns2741 ---|* EXIT TO *7EL*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2741 |
Seq # *Modification Id* Act ----------------------------+ 01799 M01S00001.ns2741 +++|* EXIT TO *7EK* 01800 M00S01620.6di +++|* (T2) = READ BUFFER ADDRESS. 01801 M00S01621.6di +++|* (T4 - T7) = UNCHANGED. 01802 M00S01622.6di +++|* (DEEC) = ERROR CODE. 01803 M00S01623.6di +++|* (DENR) = 1 IF NON-RECOVERABLE ERROR. 01804 M00S01624.6di +++|* (DEST) = ERROR PROCESSING CONTROL WORD. 01805 M00S01625.6di +++|* BITS AFFECTED BY THIS OVERLAY - 01806 M00S01626.6di +++|* BIT 12 = 1 IF NO RETRIES ARE ALLOWED. 01807 M00S01627.6di +++|* BIT 4 = 1 IF RECOVERY IN PROGRESS (BIT 10 01808 M00S01628.6di +++|* OF GENERAL STATUS IS SET). 01809 M00S01629.6di +++|* BIT 3 = 1 IF BUFFER READBACK FAILED. 01810 M00S01630.6di +++|* (DEWR) = 1 IF DATA MAY HAVE BEEN WRITTEN TO DISK. 01811 M00S01631.6di +++|* (DEXA) = ADDRESS AT WHICH TO RETRY OPERATION. 01812 M00S01632.6di +++|* *LDA1*, IF *7SI* WILL NOT BE CALLED. 01813 M00S01633.6di +++|* *ERR2*, IF *7SI* TO BE CALLED. 01814 M00S01634.6di +++|* (MB+1) = UNCHANGED. 01815 M00S01635.6di +++|* (MB+2 - MB+5) = UNCHANGED. 01816 M00S01636.6di +++|* 01817 M00S01637.6di +++|* USES T2, T7, CM. 01818 M00S01638.6di +++|*
| Line S01639 Modification History | |
|---|---|
M01 (Removed by) | 6di30 |
Seq # *Modification Id* Act ----------------------------+ 01819 M01S01639.6di30 ---|* MACROS MSERR.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 6di30 |
Seq # *Modification Id* Act ----------------------------+ 01820 M01S00003.6di30 +++|* MACROS ISTORE, MSERR. 01821 M00S01640.6di +++| 01822 M00S01641.6di +++| 01823 M00S01642.6di +++| DEI ENTRY *7EI* ENTRY 01824 M00S01643.6di +++| 01825 M00S01644.6di +++| LDM TDEI,T2 01826 M00S01645.6di +++| STD CM 01827 M00S01646.6di +++| LDN 0 01828 M00S01647.6di +++| LJM 0,CM ENTER PROCESSOR 01829 M00S01648.6di +++| 01830 M00S01649.6di +++|* *EI0* - GENERAL STATUS .NE. 5XXX. 01831 M00S01650.6di +++| 01832 M00S01651.6di +++| DEI1 LDM DEGS 01833 M00S01652.6di +++| SHN 21-10
| Line S01653 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01834 M01S01653.252l678 ---| MJN DEI2 IF RECOVERY IN PROGRESS 01835 M01S01654.252l678 ---| LJM DEI9 SET *DSTE* ERROR CODE 01836 M01S01655.252l678 ---| 01837 M01S01656.252l678 ---| DEI2 SHN 10-5
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01838 M01S00009.252l678 +++| PJN DEI4 IF NO RECOVERY IN PROGRESS 01839 M01S00010.252l678 +++| SHN 10-5 01840 M00S01657.6di +++| PJN DEI3 IF NOT A CORRECTABLE ERROR 01841 M00S01658.6di +++| LDM RDSB 01842 M00S01659.6di +++| SBK EPFW-502+1 01843 M00S01660.6di +++| PJN DEI4 IF ERROR PROCESSOR OVERLAYS BUFFER 01844 M00S01661.6di +++| DEI3 LDC ERR2 CAUSE *7EP* TO CALL *7SI* 01845 M00S01662.6di +++| STM DEXA 01846 M00S01663.6di +++| LDN 20 SET IMMEDIATE EXIT FLAG FOR *7EP* 01847 M00S01664.6di +++| RAI T1
| Line S01665 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01848 M01S01665.252l678 ---| DEI4 LDK DSTE
| Line S01666 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01849 M02S01666.252l678 ---| LJM DEI14 SET *PARE* ERROR CODE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01850 M02S00001.252l678 ---| LJM DEI14 SET ERROR CODE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01851 M01S00011.252l678 +++| DEI4 LJM DEI9 SET *DSTE* ERROR CODE 01852 M00S01667.6di +++| 01853 M00S01668.6di +++|* *EI1* - WRITE ERROR ON PREVIOUS SECTOR. 01854 M00S01669.6di +++|
| Line S01670 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01855 M01S01670.251l664 ---| DEI5 STM WDSB FORCE *WITE LAST SECTOR*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Removed by) | 6di30 |
Seq # *Modification Id* Act ----------------------------+ 01856 M02S00002.6di30 ---| DEI5 STM WDSB FORCE *WRITE LAST SECTOR*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 6di30 |
Seq # *Modification Id* Act ----------------------------+ 01857 M01S00004.6di30 +++| DEI5 LDM ERXA 01858 M01S00005.6di30 +++| NJP DEI8 IF ERROR ON A RETRY 01859 M01S00006.6di30 +++| STM WDSB FORCE *WRITE LAST SECTOR* 01860 M00S01671.6di +++| ERRNZ WLSF CODE ASSUMES VALUE 01861 M00S01672.6di +++| LDM WDSE 01862 M00S01673.6di +++| NJN DEI6 IF WRITE BUFFER SPECIFIED 01863 M00S01674.6di +++| LDM WDSC DESTROY CURRENT SECTOR BUFFER 01864 M00S01675.6di +++| DEI6 STM RDSB 01865 M00S01676.6di +++| STD T2 01866 M00S01677.6di +++| SBK EPFW-502+1 01867 M00S01678.6di +++| PJN DEI6.1 IF BUFFER IN ERROR PROCESSOR AREA 01868 M00S01679.6di +++| LDC DEI7 SET RETURN FROM READ OF COUPLER BUFFER 01869 M00S01680.6di +++| STM RDS 01870 M00S01681.6di +++| LDC DEI6.1 SET ERROR RETURN 01871 M00S01682.6di +++| STM ERRA
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 6di20 |
Seq # *Modification Id* Act ----------------------------+ 01872 M01S00006.6di20 +++| LDD HN 01873 M01S00007.6di20 +++| ERRNZ LJMI-100 CODE DEPENDS ON VALUE 01874 M01S00008.6di20 +++| STM RDSD 01875 M01S00009.6di20 +++| LDC DEI6.0 01876 M01S00010.6di20 +++| STM RDSD+1 01877 M00S01683.6di +++| LDN FCRB READ BACK COUPLER BUFFER 01878 M00S01684.6di +++| LJM RDS3 USE READ PROCESSOR 01879 M00S01685.6di +++| 01880 M00S01686.6di +++|* RETURN HERE ON ERROR IN COUPLER BUFFER READ ATTEMPT. 01881 M00S01687.6di +++| 01882 M00S01688.6di +++| DEI6.1 LDC UJNI+DEI17-DEIA 01883 M00S01689.6di +++| ERRPL DEI17-DEIA-40 RANGE ERROR 01884 M00S01690.6di +++| STM DEIA 01885 M00S01691.6di +++| LDN 10 SET *ERROR ON BUFFER READBACK* FLAG 01886 M00S01692.6di +++| RAI T1 01887 M00S01693.6di +++| UJN DEI8 CONTINUE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 6di20 |
Seq # *Modification Id* Act ----------------------------+ 01888 M01S00011.6di20 +++| 01889 M01S00012.6di20 +++|* RETURN HERE TO DELAY DURING COUPLER READ BACK. 01890 M01S00013.6di20 +++| 01891 M01S00014.6di20 +++| DEI6.0 STD T0 SAVE (A) 01892 M01S00015.6di20 +++| LDC LDMI RESTORE DRIVER CODE 01893 M01S00016.6di20 +++| STM RDSD+1 01894 M01S00017.6di20 +++| ISTORE RDSD,(NJN WDS5) 01895 M01S00018.6di20 +++| SBN 1 DELAY AT LEAST 128 MICROSECONDS 01896 M01S00019.6di20 +++| NJN *-1 IF DELAY NOT EXPIRED 01897 M01S00020.6di20 +++| LDD T0 RESTORE (A) 01898 M01S00021.6di20 +++| LJM RDS3.1 RE-ENTER DRIVER 01899 M00S01694.6di +++| 01900 M00S01695.6di +++|* SET UP RETRY OF PREVIOUS SECTOR. 01901 M00S01696.6di +++| 01902 M00S01697.6di +++| DEI7 LDM WDS SAVE *WDS* RETURN IN *RDS* 01903 M00S01698.6di +++| STM RDS 01904 M00S01699.6di +++| LDC WEP RETURN TO WEP AFTER RETRY 01905 M00S01700.6di +++| STM WDS 01906 M00S01701.6di +++| LDM WDSC SAVE CURRENT BUFFER ADDRESS 01907 M00S01702.6di +++| STM RDSB 01908 M00S01703.6di +++| LDD T2 SET RETRY BUFFER ADDRESS 01909 M00S01704.6di +++| STM WDSC 01910 M00S01705.6di +++| SOD T7 01911 M00S01706.6di +++| 01912 M00S01707.6di +++|* *EI2* - FUNCTION TIMEOUT / CONTROLLER MEMORY ERROR. 01913 M00S01708.6di +++| 01914 M00S01709.6di +++| DEI8 LDI T1 01915 M00S01710.6di +++| LPC 101 01916 M00S01711.6di +++| ZJN DEI11 IF FUNCTION TIMEOUT 01917 M00S01712.6di +++| LPN 1 01918 M00S01713.6di +++| ZJN DEI10 IF CONTROLLER MEMORY ERROR 01919 M00S01714.6di +++| 01920 M00S01715.6di +++|* *EI4* - STATUS ERROR. 01921 M00S01716.6di +++| 01922 M00S01717.6di +++| DEI9 LDK DSTE&RAME SET *DSTE* ERROR CODE 01923 M00S01718.6di +++| DEI10 LMK RAME&FTOE SET *RAME* ERROR CODE 01924 M00S01719.6di +++| DEI11 LMK FTOE&PARE SET *FTOE* ERROR CODE 01925 M00S01720.6di +++| 01926 M00S01721.6di +++|* *EI5* - MEDIA ERROR. 01927 M00S01722.6di +++| 01928 M00S01723.6di +++| DEI12 LMK PARE&NRDE SET *PARE* ERROR CODE 01929 M00S01724.6di +++| 01930 M00S01725.6di +++|* *EI6* - DEVICE NOT READY. 01931 M00S01726.6di +++| 01932 M00S01727.6di +++| DEI13 LMK NRDE SET *NRDE* ERROR CODE 01933 M00S01728.6di +++| DEI14 STM DEEC 01934 M00S01729.6di +++| 01935 M00S01730.6di +++|* *EI3* - ERROR CODE ALREADY SET. 01936 M00S01731.6di +++| 01937 M00S01732.6di +++| DEI15 LDM DEEC 01938 M00S01733.6di +++|* UJN DEI17 (ERROR ON COUPLER BUFFER READ) 01939 M00S01734.6di +++| DEIA EQU *-2 01940 M00S01735.6di +++| SBK RESE 01941 M00S01736.6di +++| PJN DEI18 IF RESERVE ERROR 01942 M00S01737.6di +++| 01943 M00S01738.6di +++|* CHECK FOR A WRITE REQUEST ON AN ISD DEVICE. THIS IS 01944 M00S01739.6di +++|* CONSIDERED A NON-RECOVERABLE CASE FOR CONTROLLER REPORTED 01945 M00S01740.6di +++|* ERRORS DUE TO THE DATA BUFFERING IN THE 7255 ADAPTER AND 01946 M00S01741.6di +++|* CONTROL MODULE. THE ERROR IS ALSO FORCED UNRECOVERED TO 01947 M00S01742.6di +++|* PREVENT RETRYING THE OPERATION. 01948 M00S01743.6di +++| 01949 M00S01744.6di +++| LDM DEAI 01950 M00S01745.6di +++| SBK AIIB 01951 M00S01746.6di +++| MJN DEI18 IF NOT ISD 01952 M00S01747.6di +++| SBK AIIE-AIIB 01953 M00S01748.6di +++| PJN DEI18 IF NOT ISD
| Line S01749 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01954 M01S01749.251l664 ---| LDC 200 SET ISD FLAG
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01955 M01S00003.251l664 +++| LDC 600 SET ISD/WRITE BUFFERING FLAGS 01956 M00S01750.6di +++| RAI T1 01957 M00S01751.6di +++| SHN 21-4 01958 M00S01752.6di +++| MJN DEI18 IF *CONTINUE* TO BE ISSUED 01959 M00S01753.6di +++| DEI17 LDM DERW 01960 M00S01754.6di +++| ZJN DEI18 IF READ REQUEST 01961 M00S01755.6di +++| STM DEWR SET *DATA WRITTEN/READ* FLAG 01962 M00S01756.6di +++| STM DENR SET *NON-RECOVERABLE* FLAG 01963 M00S01757.6di +++| LDC 2000 SET *UNRECOVERED* FLAG 01964 M00S01758.6di +++| RAI T1 01965 M00S01759.6di +++| DEI18 LDC LEP1 RESET *FNC* TIMEOUT EXIT ADDRESS 01966 M00S01760.6di +++| STM ERRA 01967 M00S01761.6di +++| LDM RDSB 01968 M00S01762.6di +++| STD T2
| Line S01763 Modification History | |
|---|---|
M01 (Removed by) | ns2741 |
Seq # *Modification Id* Act ----------------------------+ 01969 M01S01763.ns2741 ---| MSERR 7EL EXECUTE *7EL*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2741 |
Seq # *Modification Id* Act ----------------------------+ 01970 M01S00002.ns2741 +++| MSERR 7EK EXECUTE *7EK* 01971 M00S01764.6di +++| 01972 M00S01765.6di +++| 01973 M00S01766.6di +++| QUAL 01974 M00S01767.6di +++| TDEI BSS 0 PROCESSOR ADDRESS TABLE 01975 M00S01768.6di +++| LOC 0 01976 M00S01769.6di +++| EI0 CON /7EI/DEI1 01977 M00S01770.6di +++| EI1 CON /7EI/DEI5 01978 M00S01771.6di +++| EI2 CON /7EI/DEI8 01979 M00S01772.6di +++| EI3 CON /7EI/DEI15 01980 M00S01773.6di +++| EI4 CON /7EI/DEI9 01981 M00S01774.6di +++| EI5 CON /7EI/DEI12 01982 M00S01775.6di +++| EI6 CON /7EI/DEI13 01983 M00S01776.6di +++| CON 0 FORCE LAST ENTRY OF TABLE .LT. 7777B 01984 M00S01777.6di +++| LOC *O 01985 M00S01778.6di +++| QUAL * 01986 M00S01779.6di +++| SPACE 4 01987 M00S01780.6di +++| ERRNG 10000-* *7EI* HAS OVERFLOWED 01988 M00S01781.6di +++| BSS 10000-* (SPARES) 01989 M00S01782.6di +++| CON DEI-1 (T0) = ENTRY ADDRESS - 1 01990 M00S01783.6di +++| CON DEST (T1) = DEST 01991 M00S01784.6di +++| ERRNZ LN-* INCORRECT *7EI* OVERLAY LENGTH 01992 M00S01785.6di +++| QUAL *
| Line S01786 Modification History | |
|---|---|
M01 (Removed by) | 6di24 |
Seq # *Modification Id* Act ----------------------------+ 01993 M01S01786.6di24 ---| 7FI MSOVL 7524,T2,DEXA,(FUNCTION TIMEOUT PROCESSOR.)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di24 |
M02 (Removed by) | 6di25 |
Seq # *Modification Id* Act ----------------------------+ 01994 M02S00001.6di25 ---| 7FI MSOVL 7531,T2,DEXA,(FUNCTION TIMEOUT PROCESSOR.)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di25 |
M02 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01995 M02S00001.ns2776 ---| 7FI MSOVL 7524,T2,DEXA,(FUNCTION TIMEOUT PROCESSOR.)
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01996 M01S00046.ns2776 +++| 7FI MSOVL 7517,T2,DEXA,(FUNCTION TIMEOUT PROCESSOR.) 01997 M00S01787.6di +++| FTO SPACE 4,10 01998 M00S01788.6di +++|*** PROCESS FUNCTION TIMEOUT. 01999 M00S01789.6di +++|* R. M. DANISCH 83/01/03. 02000 M00S01790.6di +++|* P. D. HAAS. 83/04/29. 02001 M00S01791.6di +++| FTO SPACE 4,10 02002 M00S01792.6di +++|*** THE FUNCTION TIMEOUT PROCESSOR IS CALLED BY *7CI* 02003 M00S01793.6di +++|* WHEN ONE OF THE FOLLOWING OCCURS - THE GENERAL STATUS 02004 M00S01794.6di +++|* FUNCTION ISSUED BY *7CI* TIMES OUT, THE DETAILED 02005 M00S01795.6di +++|* STATUS FUNCTION ISSUED BY *7CI* TIMES OUT, OR THERE 02006 M00S01796.6di +++|* IS AN INCOMPLETE DATA TRANSFER ON THE INPUT OF GENERAL 02007 M00S01797.6di +++|* OR DETAILED STATUS IN *7CI*. 02008 M00S01798.6di +++|* 02009 M00S01799.6di +++|* THIS OVERLAY PERFORMS THE FOLLOWING FUNCTIONS - 02010 M00S01800.6di +++|* 1. RESTART A 7054 CONTROLLER HUNG ON A COUPLER LOCKUP 02011 M00S01801.6di +++|* VIA A SHORT AUTOLOAD. 02012 M00S01802.6di +++|* 2. DETERMINE IF A RAM PARITY ERROR OR CONTROLLER STOP 02013 M00S01803.6di +++|* OCCURRED ON A 7155 CONTROLLER. 02014 M00S01804.6di +++| 7FI SPACE 4,10 02015 M00S01805.6di +++|* REDEFINE CHANNEL INSTRUCTIONS TO PRODUCE A LINKED LIST. 02016 M00S01806.6di +++| 02017 M00S01807.6di +++| FWDL$ EQU 1 SELECT FORWARD LINKING 02018 M00S01808.6di +++| RICHL 02019 M00S01809.6di +++| FTO SPACE 4,10 02020 M00S01810.6di +++|** FTO - FUNCTION TIMEOUT PROCESSOR. 02021 M00S01811.6di +++|* 02022 M00S01812.6di +++|* ENTRY (T1) = DEST. 02023 M00S01813.6di +++|* (T2) = FIRST CHANNEL INSTRUCTION ADDRESS. 02024 M00S01814.6di +++|* (T4) = CHANNEL NUMBER.
| Line S01815 Modification History | |
|---|---|
M01 (Removed by) | 6di24 |
Seq # *Modification Id* Act ----------------------------+ 02025 M01S01815.6di24 ---|* (CHRV) = CHANNEL STATUS. 02026 M00S01816.6di +++|* (DEAI) = ALGORITHM INDEX. 02027 M00S01817.6di +++|* (DEEC) = *CSTE* ERROR CODE. 02028 M00S01818.6di +++|* (DEGS) = GENERAL STATUS. 02029 M00S01819.6di +++|* 5002 IF 7255 MEMORY ERROR. 02030 M00S01820.6di +++|* 5017 IF ISD CONTROL MODULE MEMORY ERROR. 02031 M00S01821.6di +++|* (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST. 02032 M00S01822.6di +++|* (MB, BYTES 0-3) = T4 - T7. 02033 M00S01823.6di +++|* (MB, BYTE 4) = ADDRESS OF LAST *FNC* CALL. 02034 M00S01824.6di +++|* (MB+1) = PHYSICAL DISK ADDRESS FROM *LDAM*. 02035 M00S01825.6di +++|* (MB+2 - MB+5) = DETAILED STATUS, IF ONE TAKEN. 02036 M00S01826.6di +++|* 02037 M00S01827.6di +++|* EXIT TO *7EI*. 02038 M00S01828.6di +++|* (T2) = INDEX TO PROCESSING ADDRESS IN *7EI* 02039 M00S01829.6di +++|* (T4 - T7) = RESTORED FROM *MB*. 02040 M00S01830.6di +++|* (DENR) = 1 IF ALL OF THE FOLLOWING CONDITIONS HOLD - 02041 M00S01831.6di +++|* A. THE CONTROLLER IS CONNECTED. 02042 M00S01832.6di +++|* B. NOT AN ISD DEVICE. 02043 M00S01833.6di +++|* C. THE OPERATION IS A WRITE. 02044 M00S01834.6di +++|* D. TIMEOUT OCCURRED BEFORE THE PREVIOUS 02045 M00S01835.6di +++|* SECTOR WAS WRITTEN TO DISK. 02046 M00S01836.6di +++|* (DERC) = *FTRT* IF ALL OF THE FOLLOWING ARE TRUE - 02047 M00S01837.6di +++|* A. THE CONTROLLER IS CONNECTED. 02048 M00S01838.6di +++|* B. THE DRIVE IS NOT AN ISD. 02049 M00S01839.6di +++|* C. THE CONTROLLER TYPE IS NOT A 7155 MODEL 02050 M00S01840.6di +++|* B OR C. 02051 M00S01841.6di +++|* D. TIMEOUT OCCURRED BEFORE THE PREVIOUS 02052 M00S01842.6di +++|* SECTOR WAS WRITTEN TO DISK. 02053 M00S01843.6di +++|* E. THE ERROR IS NOT A RAM PARITY ERROR. 02054 M00S01844.6di +++|* (DEST) = ERROR PROCESSING CONTROL WORD. 02055 M00S01845.6di +++|* BITS AFFECTED BY THIS OVERLAY - 02056 M00S01846.6di +++|* BIT 6 = 1 IF RAM PARITY ERROR. 02057 M00S01847.6di +++|* BITS 2-1 = CONTROLLER TYPE. 02058 M00S01848.6di +++|* 0 7155 MODEL A. 02059 M00S01849.6di +++|* 1 7155 MODEL B OR C. 02060 M00S01850.6di +++|* 2 7255 ADAPTER. 02061 M00S01851.6di +++|* 3 CONTROL MODULE. 02062 M00S01852.6di +++|* (DEWR) = 1 IF WRITE OPERATION ON NON-ISD DEVICE AND 02063 M00S01853.6di +++|* THE CONTROLLER IS CONNECTED. 02064 M00S01854.6di +++|* 02065 M00S01855.6di +++|* USES T0 - T2, T4 - T7, CM - CM+4. 02066 M00S01856.6di +++|* 02067 M00S01857.6di +++|* CALLS FNC, RCM. 02068 M00S01858.6di +++|* 02069 M00S01859.6di +++|* MACROS MSERR, RICHL. 02070 M00S01860.6di +++| 02071 M00S01861.6di +++| 02072 M00S01862.6di +++| DFI ENTRY *7FI* ENTRY 02073 M00S01863.6di +++| 02074 M00S01864.6di +++| FTO LDN 0 02075 M00S01865.6di +++| FTO1 RAD T2 MODIFY CHANNEL INSTRUCTIONS 02076 M00S01866.6di +++| LDI T2 02077 M00S01867.6di +++| LPN 37 02078 M00S01868.6di +++| STD CM 02079 M00S01869.6di +++| LDD T4 02080 M00S01870.6di +++| SBD CM 02081 M00S01871.6di +++| RAI T2 02082 M00S01872.6di +++| LDD CM 02083 M00S01873.6di +++| NJN FTO1 IF MORE INSTRUCTIONS 02084 M00S01874.6di +++| ERRNZ WLSF CODE DEPENDS ON VALUE 02085 M00S01875.6di +++| STM WDSB 02086 M00S01876.6di +++| LDN EI3 PRESET *7EI* PROCESSOR INDEX 02087 M00S01877.6di +++| STD T2 02088 M00S01878.6di +++| DCN CH+40
| Line S01879 Modification History | |
|---|---|
M01 (Removed by) | 6di24 |
Seq # *Modification Id* Act ----------------------------+ 02089 M01S01879.6di24 ---| LDM CHRV 02090 M01S01880.6di24 ---| LPN 10 02091 M01S01881.6di24 ---| NJN FTO2 IF CONTROLLER CONNECTED 02092 M01S01882.6di24 ---| LJM FTO17 CALL *7EI* 02093 M01S01883.6di24 ---| 02094 M01S01884.6di24 ---| FTO2 LDM DEAI
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 6di24 |
Seq # *Modification Id* Act ----------------------------+ 02095 M01S00002.6di24 +++| LDM DEAI 02096 M00S01885.6di +++| SBK AIIB 02097 M00S01886.6di +++| MJN FTO4 IF NOT ISD DEVICE 02098 M00S01887.6di +++| SBK AIIE-AIIB 02099 M00S01888.6di +++| PJN FTO4 IF NOT ISD DEVICE 02100 M00S01889.6di +++| LDD HN SET *MEMORY ERROR* FLAG 02101 M00S01890.6di +++| RAI T1 02102 M00S01891.6di +++| LDM DEGS SET CONTROLLER TYPE 02103 M00S01892.6di +++| LMC 5017 02104 M00S01893.6di +++| ZJN FTO3 IF ISD CONTROL MODULE MEMORY ERROR 02105 M00S01894.6di +++| LDN 1S1 02106 M00S01895.6di +++| FTO3 LMN 3S1 02107 M00S01896.6di +++| RAI T1 02108 M00S01897.6di +++| LJM FTO15 CALL *7EI* 02109 M00S01898.6di +++| 02110 M00S01899.6di +++|* ISSUE A SHORT AUTOLOAD TO RESTART THE CONTROLLER IN CASE IT 02111 M00S01900.6di +++|* IS HUNG, AND WAIT UNTIL THE FUNCTION HAS COMPLETED. 02112 M00S01901.6di +++|* DETERMINE WHETHER OR NOT THE ERROR COULD HAVE OCCURRED ON A 02113 M00S01902.6di +++|* PREVIOUS SECTOR. 02114 M00S01903.6di +++|
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 02115 M01S00047.ns2776 +++| FTO3.1 ADN AIDR-AIDQ 02116 M01S00048.ns2776 +++| ZJN FTO6 IF 885 *DQ* DRIVE 02117 M01S00049.ns2776 +++| ADN AIDQ-AIDM 02118 M01S00050.ns2776 +++| UJN FTO4.1 CHECK FOR 885 *DM* DRIVE 02119 M01S00051.ns2776 +++| 02120 M00S01904.6di +++| FTO4 FNC FCAL,CH ISSUE SHORT AUTOLOAD FUNCTION 02121 M00S01905.6di +++| LDM DERW 02122 M00S01906.6di +++| ZJN FTO5 IF READ SEQUENCE 02123 M00S01907.6di +++| STM DEWR SET *DATA WRITTEN* FLAG 02124 M00S01908.6di +++| LDM DEAI
| Line S01909 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 02125 M01S01909.ns2776 ---| LMN AIDQ 02126 M01S01910.ns2776 ---| ZJN FTO6 IF 885 DRIVE 02127 M01S01911.ns2776 ---| LMN AIDM&AIDQ 02128 M01S01912.ns2776 ---| ZJN FTO6 IF 885 DRIVE
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 02129 M01S00052.ns2776 +++| SBK AIDR 02130 M01S00053.ns2776 +++| MJN FTO3.1 IF POSSIBLE 885 *DQ* OR *DM* DRIVE 02131 M01S00054.ns2776 +++| FTO4.1 ZJN FTO6 IF CDSS II *DR* OR 885 *DM* DRIVE 02132 M00S01913.6di +++| LDM LDAA 02133 M00S01914.6di +++| LPN 77 EXTRACT INTERLACE 02134 M00S01915.6di +++| FTO5 LMN FCS1 02135 M00S01916.6di +++| ERRZR FCS1 CODE DEPENDS ON VALUE 02136 M00S01917.6di +++| FTO6 STD T7
| Line S01918 Modification History | |
|---|---|
M01 (Removed by) | 6di25 |
Seq # *Modification Id* Act ----------------------------+ 02137 M01S01918.6di25 ---| LDN 12 SET AUTOLOAD TIMEOUT COUNTER
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 6di25 |
Seq # *Modification Id* Act ----------------------------+ 02138 M01S00002.6di25 +++| LDD TH SET 5 SECOND TIMEOUT 02139 M00S01919.6di +++| STD T5
| Line S01920 Modification History | |
|---|---|
M01 (Removed by) | 6di25 |
Seq # *Modification Id* Act ----------------------------+ 02140 M01S01920.6di25 ---| FTO7 SOD T5
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 6di25 |
Seq # *Modification Id* Act ----------------------------+ 02141 M01S00003.6di25 +++| FTO7 DELAY 10D*8D DELAY FOR 10 MS 02142 M01S00004.6di25 +++| SOD T5 02143 M00S01921.6di +++| MJN RCM1 IF AUTOLOAD TIMEOUT
| Line S01922 Modification History | |
|---|---|
M01 (Removed by) | 6di25 |
Seq # *Modification Id* Act ----------------------------+ 02144 M01S01922.6di25 ---| ADN 1 02145 M01S01923.6di25 ---| PJN *-1 IF NOT ROLL OVER 02146 M00S01924.6di +++| AJM FTO7,CH IF AUTOLOAD NOT PROCESSED
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di25a |
Seq # *Modification Id* Act ----------------------------+ 02147 M01S00001.6di25a +++| 02148 M01S00002.6di25a +++|* ACTIVATE THE CHANNEL FOR 25 - 750 MICROSECONDS. 02149 M01S00003.6di25a +++| 02150 M01S00004.6di25a +++|* LDC ** 0 .LE. (A) .LT. 1000B 02151 M00S01925.6di +++| ACN CH
| Line S01926 Modification History | |
|---|---|
M01 (Removed by) | 6di25a |
Seq # *Modification Id* Act ----------------------------+ 02152 M01S01926.6di25a ---| SBD MA DELAY 02153 M01S01927.6di25a ---| PJN *-1 IF DELAY INCOMPLETE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 6di25a |
Seq # *Modification Id* Act ----------------------------+ 02154 M01S00005.6di25a +++| SBD MA 1022B .LE. (MA) .LE. 7632B 02155 M01S00006.6di25a +++| MJN *-1 IF DELAY INCOMPLETE 02156 M00S01928.6di +++| DCN CH+40 02157 M00S01929.6di +++| 02158 M00S01930.6di +++|* DETERMINE IF RAM PARITY ERROR OCCURRED. THE METHOD FOR 02159 M00S01931.6di +++|* DOING THIS IS TO ISSUE A MANIPULATE PROCESSOR FUNCTION 02160 M00S01932.6di +++|* AND SEE IF IT TIMES OUT. IF IT DOESN-T, THE CONTROLLER 02161 M00S01933.6di +++|* TYPE IS ESTABLISHED AS A 7155, OTHER MODELS WILL NOT ACCEPT 02162 M00S01934.6di +++|* THE FUNCTION. THE INPUT DISPLAY DATA FUNCTION IS USED 02163 M00S01935.6di +++|* TO REFERENCE EACH RAM ADDRESS IN THE CONTROLLER AND WILL 02164 M00S01936.6di +++|* NOT HALT IF A PARITY ERROR IS DETECTED, RATHER A BIT WILL 02165 M00S01937.6di +++|* BE SET IN THE CONTROLLER-S PROCESSOR STATUS THAT INDICATES 02166 M00S01938.6di +++|* THE ERROR. THIS BIT WILL BE INTERROGATED BY THE PP. 02167 M00S01939.6di +++| 02168 M00S01940.6di +++| LDN ZERL 02169 M00S01941.6di +++| CRD CM 02170 M00S01942.6di +++| LDC FTO13 SET ERROR EXIT FOR FUNCTION TIMEOUT 02171 M00S01943.6di +++| STM ERRA 02172 M00S01944.6di +++| LDC 8192DS-5 SET LOOP COUNT FOR 16384 BYTE DUMP 02173 M00S01945.6di +++| STD T5 02174 M00S01946.6di +++| 02175 M00S01947.6di +++| BUF EQU OFFW SCRATCH BUFFER 02176 M00S01948.6di +++| ERRPL BUF+77-* BUFFER OVERLAYS CODE 02177 M00S01949.6di +++| RCM SPACE 4,10 02178 M00S01950.6di +++|** RCM - READ CONTROLLER MEMORY. 02179 M00S01951.6di +++|* 02180 M00S01952.6di +++|* ENTRY (CM+1 - CM+2) = ADDRESS IN CONTROLLER MEMORY. 02181 M00S01953.6di +++|* 02182 M00S01954.6di +++|* EXIT (CM) = 2. 02183 M00S01955.6di +++|* *FCID* FUNCTION ISSUED TO CONTROLLER. 02184 M00S01956.6di +++|* (ERRA) = *FTO16*. 02185 M00S01957.6di +++|* 02186 M00S01958.6di +++|* CALLS FNC. 02187 M00S01959.6di +++| 02188 M00S01960.6di +++| 02189 M00S01961.6di +++| RCMX LJM FTO8 ENTRY/EXIT 02190 M00S01962.6di +++| RCM EQU *-1 02191 M00S01963.6di +++| LDN 2 SET READ MODE 02192 M00S01964.6di +++| STD CM 02193 M00S01965.6di +++| LDN FCMP ISSUE *MANIPULATE PROCESSOR* FUNCTION 02194 M00S01966.6di +++| RJM FNC 02195 M00S01967.6di +++| LDN 5 OUTPUT PARAMETERS 02196 M00S01968.6di +++| OAM CM,CH 02197 M00S01969.6di +++| RCM1 NJN FTO9 IF INCOMPLETE TRANSFER 02198 M00S01970.6di +++| DCN CH+40 02199 M00S01971.6di +++| LDC FTO16 SET ERROR EXIT FOR FUNCTION TIMEOUT 02200 M00S01972.6di +++| STM ERRA 02201 M00S01973.6di +++| LDN FCID ISSUE *INPUT DISPLAY DATA* FUNCTION 02202 M00S01974.6di +++| RJM FNC 02203 M00S01975.6di +++| UJN RCMX RETURN 02204 M00S01976.6di +++| 02205 M00S01977.6di +++|* READ OUT CONTROLLER MEMORY. 02206 M00S01978.6di +++| 02207 M00S01979.6di +++| FTO8 RJM RCM 02208 M00S01980.6di +++| LDD HN INPUT 64 BYTES 02209 M00S01981.6di +++| IAM BUF,CH 02210 M00S01982.6di +++| FTO9 NJN FTO11 IF INCOMPLETE TRANSFER 02211 M00S01983.6di +++| LDN 40 02212 M00S01984.6di +++| RAD CM+2 ADVANCE CONTROLLER ADDRESS 02213 M00S01985.6di +++| SHN 21-10 02214 M00S01986.6di +++| PJN FTO10 IF NOT 8 BIT OVERFLOW 02215 M00S01987.6di +++| STD CM+2 02216 M00S01988.6di +++| AOD CM+1 ADJUST CONTROLLER ADDRESS 02217 M00S01989.6di +++| FTO10 SOD T5 02218 M00S01990.6di +++| NJN FTO8 IF MORE TO READ 02219 M00S01991.6di +++| 02220 M00S01992.6di +++|* OBTAIN PROCESSOR STATUS. 02221 M00S01993.6di +++| 02222 M00S01994.6di +++| LDN FCST ISSUE *INPUT PROCESSOR STATUS* FUNCTION 02223 M00S01995.6di +++| RJM FNC 02224 M00S01996.6di +++| LDN 40 INPUT STATUS 02225 M00S01997.6di +++| IAM BUF,CH 02226 M00S01998.6di +++| FTO11 NJN FTO12 IF INCOMPLETE TRANSFER 02227 M00S01999.6di +++| LDM BUF+23 02228 M00S02000.6di +++| LPN 20 02229 M00S02001.6di +++| SHN 1-4 SET 7155 CONTROLLER TYPE, MODEL A OR/B/C 02230 M00S02002.6di +++| RAI T1 02231 M00S02003.6di +++| LDM BUF SET *RAM PARITY ERROR* FLAG 02232 M00S02004.6di +++| LPN 20 02233 M00S02005.6di +++| SHN 6-4 02234 M00S02006.6di +++| RAI T1 02235 M00S02007.6di +++| LDD MA 02236 M00S02008.6di +++| CRD CM 02237 M00S02009.6di +++| LDD CM+4 CHECK LAST CALL TO *FNC* 02238 M00S02010.6di +++| LMC WDS4+2 02239 M00S02011.6di +++| NJN FTO15 IF NOT WRITE FUNCTION TIMEOUT 02240 M00S02012.6di +++| STD CM+1 02241 M00S02013.6di +++| LDC 321 02242 M00S02014.6di +++| STD CM+2 READ CONTROLLER MEMORY 02243 M00S02015.6di +++| RJM RCM 02244 M00S02016.6di +++| LDN 2 INPUT *WRITE BUFFER TO DISK* FLAG 02245 M00S02017.6di +++| IAM T6,CH 02246 M00S02018.6di +++| FTO12 NJN FTO16 IF INCOMPLETE TRANSFER 02247 M00S02019.6di +++| FTO13 LDD T7 02248 M00S02020.6di +++| NJN FTO15 IF NOT ERROR AFFECTING PREVIOUS SECTOR 02249 M00S02021.6di +++| LDN 1 FORCE ERROR NON-RECOVERABLE 02250 M00S02022.6di +++| STM DENR 02251 M00S02023.6di +++| LDI T1 02252 M00S02024.6di +++| SHN 21-1 02253 M00S02025.6di +++| PJN FTO14 IF NOT B/C MODEL 7155 CONTROLLER 02254 M00S02026.6di +++| SOD T2 02255 M00S02027.6di +++| ERRNZ EI1+1-EI2 CODE DEPENDS ON VALUES 02256 M00S02028.6di +++| UJN FTO15 ADJUST *7EI* PROCESSOR INDEX 02257 M00S02029.6di +++|
| Line S02030 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02258 M01S02030.251l664 ---| FTO14 SHN 2+1-6 02259 M01S02031.251l664 ---| LPN 2 02260 M01S02032.251l664 ---| LMN 2 02261 M01S02033.251l664 ---| ERRNZ FTRT-3 CODE DEPENDS ON VALUE 02262 M01S02034.251l664 ---| RAM DERC
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 02263 M01S00004.251l664 +++| FTO14 LPN 20 02264 M01S00005.251l664 +++| NJN FTO15 IF RAM PARITY ERROR 02265 M01S00006.251l664 +++| LDK FTRT-1 FORCE UNRECOVERED 02266 M01S00007.251l664 +++| STM DERC 02267 M00S02035.6di +++| FTO15 SOD T2 02268 M00S02036.6di +++| ERRNZ EI2+1-EI3 CODE DEPENDS ON VALUES 02269 M00S02037.6di +++| FTO16 DCN CH+40
| Line S02038 Modification History | |
|---|---|
M01 (Removed by) | 6di24 |
Seq # *Modification Id* Act ----------------------------+ 02270 M01S02038.6di24 ---| FTO17 LDD MA RESTORE DRIVER PARAMETERS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 6di24 |
Seq # *Modification Id* Act ----------------------------+ 02271 M01S00003.6di24 +++| LDD MA RESTORE DRIVER PARAMETERS 02272 M00S02039.6di +++| CRD T4 02273 M00S02040.6di +++| MSERR 7EI CALL *7EI* 02274 M00S02041.6di +++| FTO SPACE 4,10 02275 M00S02042.6di +++| HERE TERMINATE LINKED CHANNEL INSTRUCTIONS 02276 M00S02043.6di +++| SPACE 4,10 02277 M00S02044.6di +++| ERRNG 10000-* OVERFLOW 02278 M00S02045.6di +++| BSS 10000-* SPARES 02279 M00S02046.6di +++| CON DFI-1 (T0) = ENTRY ADDRESS - 1 02280 M00S02047.6di +++| CON DEST (T1) = DEST 02281 M00S02048.6di +++| CON CH01$ (T2) = FIRST CHANNEL INSTRUCTION ADDRESS 02282 M00S02049.6di +++| ERRNZ LN-* INCORRECT *7FI* OVERLAY LENGTH 02283 M00S02050.6di +++| QUAL *
| Line S02051 Modification History | |
|---|---|
M01 (Removed by) | 6di17 |
Seq # *Modification Id* Act ----------------------------+ 02284 M01S02051.6di17 ---| 7GI MSOVL 7620,T2,HEDR+16,(CHANNEL/CONTROLLER ERROR PROCESSOR.)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di17 |
M02 (Removed by) | 6di21 |
Seq # *Modification Id* Act ----------------------------+ 02285 M02S00001.6di21 ---| 7GI MSOVL 7613,T2,HEDR+16,(CHANNEL/CONTROLLER ERROR PROCESSOR.)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di21 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02286 M02S00001.252l678 ---| 7GI MSOVL 7606,T2,HEDR+16,(CHANNEL/CONTROLLER ERROR PROCESSOR.)
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02287 M02S00012.ns2507 ---| 7GI MSOVL 7574,T2,DSFA+4,(CHANNEL/CONTROLLER ERROR PROCESSOR.)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2632 |
Seq # *Modification Id* Act ----------------------------+ 02288 M02S00001.ns2632 ---| 7GI MSOVL 7625,T2,DSFA+4,(CHANNEL/CONTROLLER ERROR PROCESSOR.)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2632 |
Seq # *Modification Id* Act ----------------------------+ 02289 M01S00001.ns2632 +++| 7GI MSOVL 7613,T2,DSFA+4,(CHANNEL/CONTROLLER ERROR PROCESSOR.) 02290 M00S02052.6di +++| DCP SPACE 4,10 02291 M00S02053.6di +++|*** PROCESS CHANNEL/CONTROLLER ERROR. 02292 M00S02054.6di +++|* R. M. DANISCH 83/01/03. 02293 M00S02055.6di +++| DCP SPACE 4,10
| Line S02056 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02294 M01S02056.ns2507 ---|*** THE CHANNEL/CONTROLLER ERROR PROCESSOR IS CALLED BY 02295 M01S02057.ns2507 ---|* *7HI* WHEN IT DETERMINES AN ATTEMPT MUST BE MADE TO 02296 M01S02058.ns2507 ---|* DOWN THE CHANNEL. IF THE CHANNEL CANNOT BE DOWNED 02297 M01S02059.ns2507 ---|* OR IF DRIVES CANNOT BE RELEASED, THE ERROR IS CONSIDERED 02298 M01S02060.ns2507 ---|* UNRECOVERABLE. IN THIS CASE IT MAY BE NECESSARY TO 02299 M01S02061.ns2507 ---|* REMOVE DRIVE RESERVATIONS MANUALLY IN ORDER TO GAIN 02300 M01S02062.ns2507 ---|* ACCESS THRU A DIFFERENT CONTROLLER.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02301 M01S00002.ns2507 +++|* THE CHANNEL/CONTROLLER ERROR PROCESSOR IS CALLED BY *7HI*. 02302 M01S00003.ns2507 +++|* IF *7HI* WAS UNSUCCESSFUL IN ATTEMPTING THE CONTROLWARE 02303 M01S00004.ns2507 +++|* RELOAD, *7GI* WILL ATTEMPT TO RELEASE DRIVES RESERVED TO THE 02304 M01S00005.ns2507 +++|* FAILING CONTROLLER SO THEY MAY BE ACCESSED THROUGH AN 02305 M01S00006.ns2507 +++|* ALTERNATE CHANNEL. IF THE CONTROLLER IS UNABLE TO RELEASE 02306 M01S00007.ns2507 +++|* DRIVES, IT MAY BE NECESSARY TO REMOVE DRIVE RESERVATIONS 02307 M01S00008.ns2507 +++|* MANUALLY IN ORDER TO GAIN ACCESS THROUGH AN ALTERNATE 02308 M01S00009.ns2507 +++|* CHANNEL. 02309 M00S02063.6di +++| SPACE 4,10 02310 M00S02064.6di +++|* GENERATE LINKED LIST OF CHANNEL INSTRUCTIONS. 02311 M00S02065.6di +++| 02312 M00S02066.6di +++| FWDL$ EQU 1 SELECT FORWARD LINKING 02313 M00S02067.6di +++| RICHL 02314 M00S02068.6di +++| SPACE 4,10 02315 M00S02069.6di +++|* LIST OF PROCESSOR INDICES. 02316 M00S02070.6di +++| 02317 M00S02071.6di +++| 02318 M00S02072.6di +++| QUAL 02319 M00S02073.6di +++| DC1 EQU 0 *DCP1* INDEX 02320 M00S02074.6di +++| DC6 EQU 1 *DCP6* INDEX 02321 M00S02075.6di +++| DC9 EQU 2 *DCP9* INDEX 02322 M00S02076.6di +++| DC11 EQU 3 *DCP11* INDEX 02323 M00S02077.6di +++| QUAL * 02324 M00S02078.6di +++| DCP SPACE 4,10 02325 M00S02079.6di +++|** DCP - PROCESS CHANNEL/CONTROLLER ERROR. 02326 M00S02080.6di +++|* 02327 M00S02081.6di +++|* ENTRY (A) = 0. 02328 M00S02082.6di +++|* (T1) = RDCT. 02329 M00S02083.6di +++|* (T2) = CH01$. 02330 M00S02084.6di +++|* (T4) = CHANNEL NUMBER. 02331 M00S02085.6di +++|* (T5) = EST ORDINAL. 02332 M00S02086.6di +++|*
| Line S02087 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02333 M01S02087.ns2507 ---|* USES T2, CM - CM+4.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02334 M01S00010.ns2507 +++|* USES CM, T2. 02335 M00S02088.6di +++|* 02336 M00S02089.6di +++|* CALLS FNC. 02337 M00S02090.6di +++|*
| Line S02091 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02338 M01S02091.252l678 ---|* MACROS ENDMS, MONITOR.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02339 M02S00013.ns2507 ---|* MACROS ENDMS, EXECUTE, MONITOR.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02340 M01S00011.ns2507 +++|* MACROS ENDMS. 02341 M00S02092.6di +++| 02342 M00S02093.6di +++| 02343 M00S02094.6di +++| DCP1 RAD T2 02344 M00S02095.6di +++| LDI T2 MODIFY CHANNEL INSTRUCTIONS 02345 M00S02096.6di +++| LPN 37 02346 M00S02097.6di +++| STD CM 02347 M00S02098.6di +++| LDD T4 02348 M00S02099.6di +++| SBD CM 02349 M00S02100.6di +++| RAI T2 02350 M00S02101.6di +++| LDD CM 02351 M00S02102.6di +++| NJN DCP1 IF MORE INSTRUCTIONS
| Line S02103 Modification History | |
|---|---|
M01 (Removed by) | 6di27 |
Seq # *Modification Id* Act ----------------------------+ 02352 M01S02103.6di27 ---| LCN 10 PREVENT OPERATION COMPLETE 02353 M01S02104.6di27 ---| RAM CHRV
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di27 |
Seq # *Modification Id* Act ----------------------------+ 02354 M01S00001.6di27 +++| LDM CHRV PREVENT OPERATION COMPLETE 02355 M01S00002.6di27 +++| SCN 10 02356 M01S00003.6di27 +++| STM CHRV
| Line S02105 Modification History | |
|---|---|
M01 (Removed by) | 6di17 |
Seq # *Modification Id* Act ----------------------------+ 02357 M01S02105.6di17 ---| AOM DCPA SET TIME-OUT FLAG
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 6di17 |
Seq # *Modification Id* Act ----------------------------+ 02358 M01S00002.6di17 +++| LDM DEST 02359 M01S00003.6di17 +++| LPN 40 02360 M01S00004.6di17 +++| ZJN DCP2 IF NOT AN ISD DEVICE 02361 M01S00005.6di17 +++| LJM DCP6 AVOID DROP SEEKS AND CONTROLLER HANG 02362 M01S00006.6di17 +++| 02363 M01S00007.6di17 +++| DCP2 AOM DCPA SET TIME-OUT FLAG 02364 M00S02106.6di +++| LDM UERR 02365 M00S02107.6di +++| ERRNZ EPDE-400-EPSM CODE ASSUMES VALUES 02366 M00S02108.6di +++| SHN 21-10 02367 M00S02109.6di +++| MJN DCP4 IF *ENDMS* IS DISABLED 02368 M00S02110.6di +++| LDC DCP3 SET ERROR EXIT ADDRESS 02369 M00S02111.6di +++| STM ERRA 02370 M00S02112.6di +++| 02371 M00S02113.6di +++|* RELEASE ALL UNITS RESERVED TO CONTROLLER. 02372 M00S02114.6di +++| 02373 M00S02115.6di +++| LDN FCDK RELEASE ALL BUT LAST DRIVE ACCESSED 02374 M00S02116.6di +++| RJM FNC 02375 M00S02117.6di +++| DCN CH+40 02376 M00S02118.6di +++| LDN FCDR RELEASE LAST DRIVE ACCESSED 02377 M00S02119.6di +++| RJM FNC 02378 M00S02120.6di +++| SOM DCPA CLEAR TIME-OUT FLAG 02379 M00S02121.6di +++| DCP3 DCN CH+40 02380 M00S02122.6di +++| 02381 M00S02123.6di +++|* SINCE IT IS KNOWN THE CONTROLLER CONTAINS A RAM PARITY 02382 M00S02124.6di +++|* ERROR, IT IS DESIRABLE TO LEAVE THE CONTROLLER IN SUCH A 02383 M00S02125.6di +++|* STATE THAT THE NEXT PP TO ACCESS IT DISCOVERS THE ERROR 02384 M00S02126.6di +++|* ALSO. THE METHOD USED TO ACCOMPLISH THIS IS TO ISSUE A 02385 M00S02127.6di +++|* PROCESSOR MANIPULATION FUNCTION TO CAUSE THE CONTROLLER TO 02386 M00S02128.6di +++|* HANG ON A ZERO INSTRUCTION. 02387 M00S02129.6di +++| 02388 M00S02130.6di +++| DCP4 LDC DCP5 SET ERROR EXIT ADDRESS 02389 M00S02131.6di +++| STM ERRA 02390 M00S02132.6di +++| LDN FCMP HANG CONTROLLER 02391 M00S02133.6di +++| RJM FNC 02392 M00S02134.6di +++| LDN 5 02393 M00S02135.6di +++| OAM DCPB,CH 02394 M00S02136.6di +++| DCP5 LDC LEP1 RESET ERROR EXIT ADDRESS 02395 M00S02137.6di +++| STM ERRA 02396 M00S02138.6di +++| DCN CH+40
| Line S02139 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02397 M01S02139.ns2507 ---|
| Line S02140 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02398 M02S02140.ns2507 ---|* ATTEMPT TO DOWN THE CHANNEL ON THE DRIVE. IF THE CHANNEL 02399 M02S02141.ns2507 ---|* CAN BE DOWNED, *MTR* WILL CALL *1MP* TO NOTIFY THE OPERATOR 02400 M02S02142.ns2507 ---|* THAT THE CHANNEL WAS DOWNED.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02401 M02S00014.ns2507 ---|* CALL *1DS* TO DOWN THE CHANNEL ON THIS DEVICE.
| Line S02143 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02402 M01S02143.ns2507 ---| 02403 M01S02144.ns2507 ---| DCP6 LDD T4
| Line S02145 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02404 M02S02145.ns2507 ---| STD CM+3 02405 M02S02146.ns2507 ---| LDN DCCS 02406 M02S02147.ns2507 ---| STD CM+2 02407 M02S02148.ns2507 ---| LDD T5 02408 M02S02149.ns2507 ---| STD CM+1 02409 M02S02150.ns2507 ---| MONITOR SEQM 02410 M02S02151.ns2507 ---| LDD CM+1 02411 M02S02152.ns2507 ---| STD T2 02412 M02S02153.ns2507 ---| LDM UERR
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02413 M02S00015.ns2507 ---| STM DCPC+3 02414 M02S00016.ns2507 ---| LDD T5 02415 M02S00017.ns2507 ---| RAM DCPC+4 02416 M02S00018.ns2507 ---| LDD MA PLACE *1DS* CALL IN MESSAGE BUFFER 02417 M02S00019.ns2507 ---| CWM DCPC,ON 02418 M02S00020.ns2507 ---| LDN 0 INITIALIZE RETRY COUNT 02419 M02S00021.ns2507 ---| STD T2 02420 M02S00022.ns2507 ---| DCP7 STD CM+1 02421 M02S00023.ns2507 ---| EXECUTE 1DS,= 02422 M02S00024.ns2507 ---| MONITOR RPPM 02423 M02S00025.ns2507 ---| LDD CM+1 02424 M02S00026.ns2507 ---| NJN DCP7.1 IF PP ASSIGNED OR REQUEST QUEUED 02425 M02S00027.ns2507 ---| AOD T2 INCREMENT RETRY COUNT 02426 M02S00028.ns2507 ---| SHN -3 02427 M02S00029.ns2507 ---| ZJN DCP7 IF RETRY LIMIT NOT YET REACHED 02428 M02S00030.ns2507 ---| DCP7.1 LDM UERR
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02429 M01S00012.ns2507 +++| DCP6 LDM UERR 02430 M00S02154.6di +++| ERRNZ EPDE-400-EPSM CODE ASSUMES VALUES 02431 M00S02155.6di +++| SHN 21-10 02432 M00S02156.6di +++| MJN DCP8 IF *ENDMS* DISABLED 02433 M00S02157.6di +++| ENDMS
| Line S02158 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02434 M01S02158.252l678 ---| LDD T2 02435 M01S02159.252l678 ---| ZJN DCP11 IF CHANNEL NOT DOWNED
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 6di21 |
Seq # *Modification Id* Act ----------------------------+ 02436 M01S00002.6di21 +++| LDM CHRV 02437 M01S00003.6di21 +++| SHN 21-4 02438 M01S00004.6di21 +++| MJN DCP11 IF CALLER SELECTED CHANNEL 02439 M00S02160.6di +++| DCPA LDN 0 02440 M00S02161.6di +++|* LDN 1 (*FCDK*/*FCDR* TIMED OUT) 02441 M00S02162.6di +++| DCP8 NJN DCP11 IF DRIVES NOT RELEASED
| Line S02163 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02442 M01S02163.ns2507 ---| DCP9 STM DERC CLEAR RETRY COUNT TO ALLOW RECOVERY
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 6di12 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02443 M02S00016.ns2507 ---| STD CM
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02444 M01S00013.ns2507 +++| DCP9 STD CM 02445 M00S02164.6di +++| LDI T1
| Line S02165 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02446 M01S02165.253l688 ---| LPC 420
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02447 M01S00005.253l688 +++| LPC 500 02448 M00S02166.6di +++| STI T1
| Line S02167 Modification History | |
|---|---|
M01 (Removed by) | 6di12 |
Seq # *Modification Id* Act ----------------------------+ 02449 M01S02167.6di12 ---| STD CM 02450 M00S02168.6di +++| SOM HEDR+6
| Line S02169 Modification History | |
|---|---|
M01 (Removed by) | 6di22 |
Seq # *Modification Id* Act ----------------------------+ 02451 M01S02169.6di22 ---| LDC -2000 02452 M01S02170.6di22 ---| RAM DEST
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di22 |
Seq # *Modification Id* Act ----------------------------+ 02453 M01S00001.6di22 +++| LDM DEST 02454 M01S00002.6di22 +++| LPC -3000 02455 M01S00003.6di22 +++| STM DEST 02456 M00S02171.6di +++| LDD CP CLEAR CONTROL POINT MESSAGE 02457 M00S02172.6di +++| ADN MS2W 02458 M00S02173.6di +++| CWD CM 02459 M00S02174.6di +++| LJM LDA1 RETRY I/O 02460 M00S02175.6di +++|
| Line S02176 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02461 M01S02176.ns2507 ---|* ONE OF THE FOLLOWING IS TRUE - 02462 M01S02177.ns2507 ---|* A. THE ATTEMPT TO DOWN THE CHANNEL FAILED. 02463 M01S02178.ns2507 ---|* B. THE CHANNEL WAS DOWNED BUT THE ATTEMPT TO RELEASE 02464 M01S02179.ns2507 ---|* THE DRIVES FAILED AND EITHER THE STATE OF THE 02465 M01S02180.ns2507 ---|* UNIT RESERVE IS UNCERTAIN OR THE DRIVE IS SHARED 02466 M01S02181.ns2507 ---|* AND THE ERROR IS UNRECOVERED. 02467 M01S02182.ns2507 ---|
| Line S02183 Modification History | |
|---|---|
M01 (Removed by) | ns2632 |
Seq # *Modification Id* Act ----------------------------+ 02468 M01S02183.ns2632 ---| DCP11 LJM LEP EXECUTE *7EQ*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2632 |
Seq # *Modification Id* Act ----------------------------+ 02469 M01S00002.ns2632 +++| DCP11 LDM DEST SET UNRECOVERED FLAG 02470 M01S00003.ns2632 +++| LPC -2000 02471 M01S00004.ns2632 +++| LMC 2000 02472 M01S00005.ns2632 +++| STM DEST 02473 M01S00006.ns2632 +++| LJM LEP EXECUTE *7EQ* 02474 M00S02184.6di +++| 02475 M00S02185.6di +++| DCPB CON 4,0,27,0,0
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02476 M02S00031.ns2507 ---| DCPC VFD 18/3R1DS,6/,6/0,6/DWNF,12/0,12/4000 02477 M00S02186.6di +++| PCE SPACE 4,20 02478 M00S02187.6di +++|** PCE - PROCESS CHANNEL/CONTROLLER ERROR. 02479 M00S02188.6di +++|* 02480 M00S02189.6di +++|* ENTRY (T3) = PROCESSOR INDEX. 02481 M00S02190.6di +++|* = 0 FOR *DCP1*. 02482 M00S02191.6di +++|* = 1 FOR *DCP6*. 02483 M00S02192.6di +++|* = 2 FOR *DCP9*. 02484 M00S02193.6di +++|* = 3 FOR *DCP11*. 02485 M00S02194.6di +++|* (MB+2) = ORIGINAL CELLS (T3 - T7). 02486 M00S02195.6di +++|* (MB+3 - MB+5) = LAST THREE WORDS OF DETAILED STATUS. 02487 M00S02196.6di +++|* 02488 M00S02197.6di +++|* EXIT (A) = 0. 02489 M00S02198.6di +++|* (T3 - T7) = RESTORED FROM (MB+2). 02490 M00S02199.6di +++|* (MB+3 - MB+5) = UNCHANGED. 02491 M00S02200.6di +++|* 02492 M00S02201.6di +++|* USES CM. 02493 M00S02202.6di +++|* 02494 M00S02203.6di +++|* NOTE IF THE TAGS IN *7GI* ARE RENAMED OR RENUMBERED, 02495 M00S02204.6di +++|* THE TABLE INDEX MNEMONICS DEFINED ABOVE SHOULD ALSO 02496 M00S02205.6di +++|* BE UPDATED TO REFLECT THOSE CHANGES (FOR CLARITY). 02497 M00S02206.6di +++| 02498 M00S02207.6di +++| 02499 M00S02208.6di +++| DGI ENTRY *7GI* ENTRY 02500 M00S02209.6di +++| 02501 M00S02210.6di +++| PCE BSS 0 02502 M00S02211.6di +++| LDM TPCE,T3 SET PROCESSOR ADDRESS 02503 M00S02212.6di +++| STD CM 02504 M00S02213.6di +++| LDD MA RESTORE DIRECT CELLS 02505 M00S02214.6di +++| ADN 2 02506 M00S02215.6di +++| CRD T3 02507 M00S02216.6di +++| LDN 0 02508 M00S02217.6di +++| LJM 0,CM EXIT TO PROCESSOR 02509 M00S02218.6di +++| 02510 M00S02219.6di +++| 02511 M00S02220.6di +++| TPCE BSS 0 PROCESSOR ADDRESSES 02512 M00S02221.6di +++| LOC 0 02513 M00S02222.6di +++| DC1 CON DCP1 02514 M00S02223.6di +++| DC6 CON DCP6 02515 M00S02224.6di +++| DC9 CON DCP9 02516 M00S02225.6di +++| DC11 CON DCP11 02517 M00S02226.6di +++| LOC *O 02518 M00S02227.6di +++| DCP SPACE 4,10 02519 M00S02228.6di +++| HERE TERMINATE LINKED CHANNEL INSTRUCTIONS 02520 M00S02229.6di +++| SPACE 4,10 02521 M00S02230.6di +++| ERRNG 10000-* OVERFLOW 02522 M00S02231.6di +++| BSS 10000-* SPARES 02523 M00S02232.6di +++| CON DGI-1 (T0) = ENTRY ADDRESS - 1 02524 M00S02233.6di +++| CON RDCT (T1) = RDCT 02525 M00S02234.6di +++| CON CH01$ (T2) = CH01$ 02526 M00S02235.6di +++| ERRNZ LN-* INCORRECT *7GI* OVERLAY LENGTH 02527 M00S02236.6di +++| QUAL *
| Line S02237 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02528 M01S02237.252l678 ---| 7HI MSOVL 7567,T2,HEDR+16,(CONTROLWARE RELOAD PROCESSOR.)
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02529 M01S00032.252l678 +++| 7HI MSOVL 7574,T2,DSFA+4,(CONTROLWARE RELOAD PROCESSOR.) 02530 M00S02238.6di +++| SPACE 4,10 02531 M00S02239.6di +++|*** PROCESS CONTROLWARE RELOAD. 02532 M00S02240.6di +++|* P. D. HAAS. 83/04/29. 02533 M00S02241.6di +++| 7HI SPACE 4,10 02534 M00S02242.6di +++|* *7HI* IS CALLED BY *7JI* TO RELOAD CHANNEL OR CONTROL 02535 M00S02243.6di +++|* MODULE CONTROLWARE. *7HI* SETS THE RELOAD FLAG FOR THE 02536 M00S02244.6di +++|* CHANNEL OR CONTROL MODULE AND THEN CALLS *1DS* TO START A 02537 M00S02245.6di +++|* *LOADBC* JOB WHICH RELOADS THE CONTROLWARE. *7HI* WILL WAIT 02538 M00S02246.6di +++|* UP TO *CRTO* SECONDS FOR THE RELOAD TO COMPLETE BEFORE GIVING 02539 M00S02247.6di +++|* UP. 02540 M00S02248.6di +++| SPACE 4,10 02541 M00S02249.6di +++|** COMMON DECKS. 02542 M00S02250.6di +++| 02543 M00S02251.6di +++| 02544 M00S02252.6di +++|*CALL COMS1DS 02545 M00S02253.6di +++| RCW SPACE 4,25 02546 M00S02254.6di +++|** RCW - RELOAD CONTROLWARE PROCESSOR. 02547 M00S02255.6di +++|* 02548 M00S02256.6di +++|* ENTRY (T1) = DEST. 02549 M00S02257.6di +++|* (T2) = RELOAD TIMEOUT VALUE. 02550 M00S02258.6di +++|* (T3) = ADDRESS + *CM* OF BYTE CONTAINING 02551 M00S02259.6di +++|* RELOAD FLAGS. 02552 M00S02260.6di +++|* (T4) = CONTROL MODULE ACCESS INDICATOR. FOR C/M 02553 M00S02261.6di +++|* RELOADS, 1 INDICATES PRIMARY CHANNEL SHOULD 02554 M00S02262.6di +++|* BE USED FOR RELOAD. 0 INDICATES SECONDARY 02555 M00S02263.6di +++|* CHANNEL SHOULD BE USED. THIS CELL IS 02556 M00S02264.6di +++|* UNUSED FOR NON-C/M RELOADS. 02557 M00S02265.6di +++|* (T5) = SYSTEM CP *MS2W* ADDRESS. 02558 M00S02266.6di +++|* (T6 - T7) = ADDRESS OF RELOAD INTERLOCK WORD. 02559 M00S02267.6di +++|* (DEST) = ERROR PROCESSING CONTROL WORD. 02560 M00S02268.6di +++|* (MB+2) = ORIGINAL CELLS (T3 - T7) 02561 M00S02269.6di +++|* (MB+3 - MB+5) = LAST THREE WORDS OF DETAILED STATUS. 02562 M00S02270.6di +++|* 02563 M00S02271.6di +++|* EXIT TO *7GI*. 02564 M00S02272.6di +++|* (T3) = *7GI* PROCESSOR INDEX.
| Line S02273 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02565 M01S02273.252l678 ---|* (DEDT) = BML MESSAGE CONTROL WORD. 02566 M01S02274.252l678 ---|* BITS AFFECTED BY THIS OVERLAY - 02567 M01S02275.252l678 ---|* BIT 5 = 1 IF CONTROL MODULE RELOADED. 02568 M01S02276.252l678 ---|* BIT 4 = 1 IF CONTROLLER/ADAPTER RELOADED. 02569 M00S02277.6di +++|* (MB+2) = UNCHANGED. 02570 M00S02278.6di +++|* (MB+3 - MB+5) = UNCHANGED. 02571 M00S02279.6di +++|* 02572 M00S02280.6di +++|* USES CM - CM+4, T0 - T7. 02573 M00S02281.6di +++|* 02574 M00S02282.6di +++|* CALLS FTN, SCT. 02575 M00S02283.6di +++|* 02576 M00S02284.6di +++|* MACROS DELAY, MONITOR, MSERR, PAUSE. 02577 M00S02285.6di +++| 02578 M00S02286.6di +++| 02579 M00S02287.6di +++| DHI ENTRY *7HI* ENTRY 02580 M00S02288.6di +++| 02581 M00S02289.6di +++| RCW LDI T1 02582 M00S02290.6di +++| SHN 0-1 02583 M00S02291.6di +++| LPN 3 02584 M00S02292.6di +++| LMN 3 02585 M00S02293.6di +++| NJN RCW0 IF NOT CONTROL MODULE RELOAD 02586 M00S02294.6di +++| LDD T4 STORE C/M ACCESS INDICATOR 02587 M00S02295.6di +++| RAM SCTC+4 SET PRIMARY OR SECONDARY CHANNEL
| Line S02296 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02588 M01S02296.252l678 ---| AOM RCWE CHANGE RECOVERY MESSAGE FOR C/M RELOAD 02589 M00S02297.6di +++| SOM RCWD AVOID DOWNING CHANNEL IF RELOAD FAILS 02590 M00S02298.6di +++| ERRNZ RCW8-RCW7-1 CODE ASSUMES *RCW8* = RCW7* + 1 02591 M00S02299.6di +++| AOM RCWC+4 INDICATE CONTROL MODULE RELOAD TO *1DS* 02592 M00S02300.6di +++| UJN RCW0.1 BEGIN RELOAD 02593 M00S02301.6di +++| 02594 M00S02302.6di +++| RCW0 LDM SCTA-CM,T3 DEFINE LOCATION OF LOAD FLAGS 02595 M00S02303.6di +++| STM SCTC+1 02596 M00S02304.6di +++| STM SCTB+1 02597 M00S02305.6di +++| SOM SCTC SET CORRECT FIELD WIDTH FOR NON-C/M LOAD 02598 M00S02306.6di +++| STM SCTC+4 SET CORRECT FIELD VALUE 02599 M00S02307.6di +++| 02600 M00S02308.6di +++|* SET THE CONTROLWARE RELOAD FLAG FOR THE APPROPRIATE CHANNEL 02601 M00S02309.6di +++|* OR CONTROL MODULE. 02602 M00S02310.6di +++| 02603 M00S02311.6di +++| RCW0.1 LDN 2 SET *UTEM* PARAMETER COUNT FOR *SCT* 02604 M00S02312.6di +++| STD T4 02605 M00S02313.6di +++| RJM SCT 02606 M00S02314.6di +++| NJN RCW3 IF RELOAD ALREADY REQUESTED OR IN PROGRESS 02607 M00S02315.6di +++| 02608 M00S02316.6di +++|* INITIATE A CONTROLWARE RELOAD *1DS* CALL. *1DS* WILL START A 02609 M00S02317.6di +++|* *LOADBC* JOB TO RELOAD THE CONTROLWARE. 02610 M00S02318.6di +++| 02611 M00S02319.6di +++| RCW1 RJM FTN 02612 M00S02320.6di +++|* PAUSE NE PAUSE FOR MOVE 02613 M00S02321.6di +++| LDD MA 02614 M00S02322.6di +++| CWM RCWC,ON STORE *1DS* CALL 02615 M00S02323.6di +++| MONITOR RPPM 02616 M00S02324.6di +++| LDD CM+1 02617 M00S02325.6di +++| ZJN RCW1 IF PP NOT ASSIGNED 02618 M00S02326.6di +++| 02619 M00S02327.6di +++|* WAIT *CRTO* SECONDS FOR THE RELOAD TO COMPLETE. 02620 M00S02328.6di +++| 02621 M00S02329.6di +++| LDN 0 02622 M00S02330.6di +++| RCW2 LPN 1 02623 M00S02331.6di +++| RCWA ZJN RCW3 IF RELOAD NOT INITIATED 02624 M00S02332.6di +++| STM RCWA 02625 M00S02333.6di +++| ZJN RCW4 IF RELOAD ABORTED 02626 M00S02334.6di +++| RCW3 SOD T2 02627 M00S02335.6di +++| NJN RCW5 IF NOT RELOAD TIMEOUT 02628 M00S02336.6di +++| RCW4 RJM SCT CLEAR LOAD REQUESTED FLAG 02629 M00S02337.6di +++| NJN RCW5 IF RELOAD REQUEST NOT CLEARED 02630 M00S02338.6di +++| LJM RCW8 CONTINUE 02631 M00S02339.6di +++| RCWD EQU *-1 02632 M00S02340.6di +++| 02633 M00S02341.6di +++| RCW5 DELAY 100D*8D 100 MILLISECOND DELAY LOOP 02634 M00S02342.6di +++| RJM FTN 02635 M00S02343.6di +++|* PAUSE NE 02636 M00S02344.6di +++| LDD T6 CHECK RELOAD FLAGS 02637 M00S02345.6di +++| SHN 14 02638 M00S02346.6di +++| LMD T7 02639 M00S02347.6di +++| CRD CM 02640 M00S02348.6di +++| LDI T3 02641 M00S02349.6di +++| SHN 0-12 02642 M00S02350.6di +++| NJN RCW2 IF RELOAD NOT COMPLETE
| Line S02351 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02643 M01S02351.252l678 ---| 02644 M01S02352.252l678 ---|* THE CONTROLWARE RELOAD HAS SUCCESSFULLY COMPLETED. SET A 02645 M01S02353.252l678 ---|* FLAG TO TELL *7EQ* THAT THE BML MESSAGE SHOULD INDICATE 02646 M01S02354.252l678 ---|* CONTROLWARE WAS RELOADED. 02647 M01S02355.252l678 ---| 02648 M01S02356.252l678 ---| LDN 1 02649 M01S02357.252l678 ---|* LDN 2 (CONTROL MODULE RELOAD) 02650 M01S02358.252l678 ---| RCWE EQU *-1 02651 M01S02359.252l678 ---| SHN 4-0 02652 M01S02360.252l678 ---| RAM DEDT 02653 M00S02361.6di +++| LDI T1 02654 M00S02362.6di +++| SHN 0-1 02655 M00S02363.6di +++| LPN 7 02656 M00S02364.6di +++| LMN 1 02657 M00S02365.6di +++| ZJN RCW6 IF 7155 B OR C AND READBACK WORKED 02658 M00S02366.6di +++| LDM DENR 02659 M00S02367.6di +++| LMN 1 02660 M00S02368.6di +++| ZJN RCW7 IF UNRECOVERABLE WITH CONTROLWARE RELOAD 02661 M00S02369.6di +++| RCW6 LDN DC9&DC11 02662 M00S02370.6di +++| RCW7 LMN DC11 02663 M00S02371.6di +++| ERRNZ DC1 CODE DEPENDS ON VALUE 02664 M00S02372.6di +++| RCW8 STD T3 02665 M00S02373.6di +++| LDN 0 02666 M00S02374.6di +++| STD CM 02667 M00S02375.6di +++| LDD T5 CLEAR SYSTEM CP MESSAGE 02668 M00S02376.6di +++| CWD CM 02669 M00S02377.6di +++| MSERR 7GI EXECUTE *7GI* 02670 M00S02378.6di +++| 02671 M00S02379.6di +++| 02672 M00S02380.6di +++| RCWC VFD 18/0L1DS,6/0,6/0,6/ILJF,24/0 02673 M00S02381.6di +++| SCT SPACE 4,15 02674 M00S02382.6di +++|** SCT - SET (CLEAR) CONTROLWARE LOAD REQUEST FLAG. 02675 M00S02383.6di +++|* 02676 M00S02384.6di +++|* ENTRY (T4) = 2. 02677 M00S02385.6di +++|* (T6 - T7) = ADDRESS OF WORD CONTAINING CONTROLWARE 02678 M00S02386.6di +++|* LOAD FLAGS. 02679 M00S02387.6di +++|* 02680 M00S02388.6di +++|* EXIT (A) = RESPONSE FROM *UTEM* REQUEST. 02681 M00S02389.6di +++|* 02682 M00S02390.6di +++|* USES CM - CM+4. 02683 M00S02391.6di +++|* 02684 M00S02392.6di +++|* MACROS MONITOR. 02685 M00S02393.6di +++| 02686 M00S02394.6di +++| 02687 M00S02395.6di +++| SCT SUBR ENTRY/EXIT 02688 M00S02396.6di +++| LDD MA SETUP OUTPUT REGISTER 02689 M00S02397.6di +++| CWD T7-4 02690 M00S02398.6di +++| CRD CM 02691 M00S02399.6di +++| CWM SCTB,CM+1 STORE *UTEM* PARAMETERS 02692 M00S02400.6di +++| MONITOR UTEM 02693 M00S02401.6di +++|* LDN 0 RESET PARAMETERS FOR ERROR PROCESSING 02694 M00S02402.6di +++| STM SCTC+4 02695 M00S02403.6di +++| LDN 2 02696 M00S02404.6di +++| STM SCTB+4 02697 M00S02405.6di +++| LDD CM+1 02698 M00S02406.6di +++| UJN SCTX RETURN 02699 M00S02407.6di +++| 02700 M00S02408.6di +++| 02701 M00S02409.6di +++| SCTA BSS 0 TABLE OF RELOAD FLAG BIT POSITIONS 02702 M00S02410.6di +++| CON 58DS6 02703 M00S02411.6di +++| CON 46DS6 02704 M00S02412.6di +++| CON 34DS6 02705 M00S02413.6di +++| CON 22DS6 02706 M00S02414.6di +++| CON 10DS6 02707 M00S02415.6di +++| 02708 M00S02416.6di +++| SCTB VFD 1/1,5/0,6/2,6/34D,42/0 02709 M00S02417.6di +++|* VFD 1/1,5/0,6/2,6/34D,42/2 02710 M00S02418.6di +++| SCTC VFD 1/0,5/0,6/3,6/33D,42/4 02711 M00S02419.6di +++|* VFD 1/0,5/0,6/3,6/33D,42/0 02712 M00S02420.6di +++| SPACE 4,10 02713 M00S02421.6di +++| ERRNG 10000-* OVERFLOW 02714 M00S02422.6di +++| BSS 10000-* SPARES 02715 M00S02423.6di +++| CON DHI-1 (T0) = ENTRY ADDRESS - 1 02716 M00S02424.6di +++| CON DEST (T1) = DEST 02717 M00S02425.6di +++| CON CRTO*10D+1 (T2) = RELOAD TIMEOUT VALUE 02718 M00S02426.6di +++| ERRNZ LN-* INCORRECT *7HI* OVERLAY LENGTH 02719 M00S02427.6di +++| QUAL *
| Line S02428 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02720 M01S02428.252l678 ---| 7II MSOVL 7613,T2,HEDR+16,(INITIATE CONTROLWARE RELOAD.)
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02721 M01S00033.252l678 +++| 7II MSOVL 7613,T2,DSFA+4,(INITIATE CONTROLWARE RELOAD.) 02722 M00S02429.6di +++| SPACE 4,10 02723 M00S02430.6di +++|*** INITIATE CONTROLWARE RELOAD. 02724 M00S02431.6di +++|* P. D. HAAS. 83/04/29. 02725 M00S02432.6di +++|* R. M. DANISCH. 83/10/17. 02726 M00S02433.6di +++| SPACE 4,10 02727 M00S02434.6di +++|*** *7II* IS CALLED BY *7EP* TO DETERMINE WHETHER OR NOT 02728 M00S02435.6di +++|* A CONTROLWARE RELOAD IS POSSIBLE. IF SO, *7JI* IS CALLED TO 02729 M00S02436.6di +++|* BEGIN THE RELOAD PROCESS. IF NOT, *7GI* IS CALLED TO TRY AND 02730 M00S02437.6di +++|* DOWN THE CHANNEL ON WHICH THE ERROR OCCURRED. 02731 M00S02438.6di +++| 7II SPACE 4,10 02732 M00S02439.6di +++|** ICR - INITIATE CONTROLWARE RELOAD. 02733 M00S02440.6di +++|* 02734 M00S02441.6di +++|* ENTRY (T1) = DEST. 02735 M00S02442.6di +++|* (T2) = DEEC. 02736 M00S02443.6di +++|* (T4) = CHANNEL NUMBER. 02737 M00S02444.6di +++|* (DEEC) = ERROR CODE. 02738 M00S02445.6di +++|* (DEST) = ERROR PROCESSING CONTROL WORD. 02739 M00S02446.6di +++|* (MB+3 - MB+5) = LAST THREE WORDS OF DETAILED STATUS. 02740 M00S02447.6di +++|* 02741 M00S02448.6di +++|* EXIT TO *7GI* IF NO CONTROLWARE RELOAD. 02742 M00S02449.6di +++|* (T3) = *7GI* PROCESSOR INDEX. 02743 M00S02450.6di +++|* (MB+2) = ORIGINAL CELLS (T3 - T7). 02744 M00S02451.6di +++|* (MB+3 - MB+5) = UNCHANGED. 02745 M00S02452.6di +++|* 02746 M00S02453.6di +++|* TO *7JI* IF CONTROLWARE RELOAD. 02747 M00S02454.6di +++|* (T3) = ADDRESS OF BYTE CONTAINING RELOAD FLAGS. 02748 M00S02455.6di +++|* (T4) = CONTROL MODULE ACCESS INDICATOR. FOR C/M 02749 M00S02456.6di +++|* RELOADS, 1 INDICATES PRIMARY CHANNEL SHOULD BE 02750 M00S02457.6di +++|* USED FOR RELOAD. 0 INDICATES SECONDARY CHANNEL 02751 M00S02458.6di +++|* SHOULD BE USED. THIS CELL IS UNUSED FOR 02752 M00S02459.6di +++|* NON-C/M RELOADS. 02753 M00S02460.6di +++|* (T5) = CONTROL MODULE EST ORDINAL IF C/M RELOAD. 02754 M00S02461.6di +++|* (T6-T7) = ADDRESS OF RELOAD INTERLOCK WORD. 02755 M00S02462.6di +++|* (MB+2) = ORIGINAL CELLS (T3 - T7). 02756 M00S02463.6di +++|* (MB+3 - MB+5) = UNCHANGED. 02757 M00S02464.6di +++|* 02758 M00S02465.6di +++|* USES CM - CM+4, T0 - T7. 02759 M00S02466.6di +++|* 02760 M00S02467.6di +++|* CALLS FCM, FCT. 02761 M00S02468.6di +++|* 02762 M00S02469.6di +++|* MACROS MSERR. 02763 M00S02470.6di +++| 02764 M00S02471.6di +++| 02765 M00S02472.6di +++| DII ENTRY *7II* ENTRY 02766 M00S02473.6di +++| 02767 M00S02474.6di +++|* IF THE ERROR IS EITHER A CHANNEL PARITY ERROR OR A CONTROLLER 02768 M00S02475.6di +++|* STOP, PROCEED TO *7GI* TO TRY AND DOWN THE CHANNEL. 02769 M00S02476.6di +++| 02770 M00S02477.6di +++| ICR LDD MA SAVE DRIVER PARAMETERS 02771 M00S02478.6di +++| ADN 2 02772 M00S02479.6di +++| CWD T3 02773 M00S02480.6di +++| LDI T2 02774 M00S02481.6di +++| SBN RAME 02775 M00S02482.6di +++| PJN ICR2 IF FUNCTION TIMEOUT / RAM PARITY 02776 M00S02483.6di +++| LDN DC6&DC11 02777 M00S02484.6di +++| ICR0 LMN DC11 02778 M00S02485.6di +++| ERRNZ DC1 CODE DEPENDS ON VALUE 02779 M00S02486.6di +++| ICR1 STD T3 02780 M00S02487.6di +++| MSERR 7GI EXECUTE *7GI* 02781 M00S02488.6di +++| 02782 M00S02489.6di +++| 02783 M00S02490.6di +++|* FOR RAM PARITY ERRORS AND FUNCTION TIMEOUTS, CHECK IF THE 02784 M00S02491.6di +++|* CONTROLWARE RELOAD LIMIT HAS ALREADY BEEN REACHED. IF NOT, 02785 M00S02492.6di +++|* CALL *7JI* TO BEGIN THE RELOAD. 02786 M00S02493.6di +++| 02787 M00S02494.6di +++| ICR2 LDI T1 02788 M00S02495.6di +++| SHN 0-1 02789 M00S02496.6di +++| LPN 3 02790 M00S02497.6di +++| LMN 3 02791 M00S02498.6di +++| ZJN ICR3 IF CONTROL MODULE RELOAD 02792 M00S02499.6di +++| ERRNZ ICR1-ICR0-1 CODE REQUIRES *ICR1* = *ICR0* + 1 02793 M00S02500.6di +++| AOM ICRB 02794 M00S02501.6di +++| LDC FCT STORE ADDRESS OF NON-C/M PROCESSOR 02795 M00S02502.6di +++| STM ICRA 02796 M00S02503.6di +++| ICR3 RJM FCM FIND CONTROL MODULE EST ENTRY 02797 M00S02504.6di +++|* RJM FCT (NOT CONTROL MODULE RELOAD) 02798 M00S02505.6di +++| ICRA EQU *-1 02799 M00S02506.6di +++| LDD CM+1 02800 M00S02507.6di +++| RAD T7 SET CONTROLWARE TABLE WORD ADDRESS 02801 M00S02508.6di +++| SHN -14 02802 M00S02509.6di +++| ADD CM 02803 M00S02510.6di +++| STD T6 02804 M00S02511.6di +++| SHN 14 READ RELOAD FLAGS WORD 02805 M00S02512.6di +++| LMD T7 02806 M00S02513.6di +++| CRD CM 02807 M00S02514.6di +++| LDI T3 02808 M00S02515.6di +++| SHN -6 02809 M00S02516.6di +++| LPN 7 02810 M00S02517.6di +++| LMN CRTH 02811 M00S02518.6di +++| ZJN ICR0 IF RELOAD THRESHOLD REACHED 02812 M00S02519.6di +++|* ZJN ICR1 (NOT CONTROL MODULE ERROR) 02813 M00S02520.6di +++| ICRB EQU *-1 02814 M00S02521.6di +++| MSERR 7JI EXECUTE *7JI* 02815 M00S02522.6di +++| FCM SPACE 4,15 02816 M00S02523.6di +++|** FCM - FIND CONTROL MODULE EST ENTRY. 02817 M00S02524.6di +++|* 02818 M00S02525.6di +++|* ENTRY (T4) = CHANNEL NUMBER. 02819 M00S02526.6di +++|* (HEDR+3) = ISD UNIT NUMBER. 02820 M00S02527.6di +++|* 02821 M00S02528.6di +++|* EXIT (T3) = *CM* + 2. 02822 M00S02529.6di +++|* (T4) = 1 IF PRIMARY CHANNEL SHOULD BE USED FOR RELOAD. 02823 M00S02530.6di +++|* 0 IF SECONDARY CHANNEL SHOULD BE USED. 02824 M00S02531.6di +++|* (T5) = CONTROL MODULE EST ORDINAL.
| Line S02532 Modification History | |
|---|---|
M01 (Removed by) | 6di29 |
Seq # *Modification Id* Act ----------------------------+ 02825 M01S02532.6di29 ---|* (T7) = EST ENTRY OFFSET FROM FWA OF EST.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di29 |
Seq # *Modification Id* Act ----------------------------+ 02826 M01S00001.6di29 +++|* (T7) = RELOAD INTERLOCK WORD OFFSET FROM FWA OF EST. 02827 M00S02533.6di +++|* (CM - CM+1) = FWA OF EST. 02828 M00S02534.6di +++|* 02829 M00S02535.6di +++|* USES T2 - CM+4. 02830 M00S02536.6di +++|* 02831 M00S02537.6di +++|* MACROS MONITOR, SFA. 02832 M00S02538.6di +++| 02833 M00S02539.6di +++| 02834 M00S02540.6di +++| FCM CON 0 ENTRY 02835 M00S02541.6di +++| LDD T4 STORE CHANNEL FOR COMPARISON 02836 M00S02542.6di +++| RAM FCMA 02837 M00S02543.6di +++| STM FCMB 02838 M00S02544.6di +++| LDK ESTP 02839 M00S02545.6di +++| CRD CM 02840 M00S02546.6di +++| FCM1 SOD CM+2 DECREMENT EST ORDINAL
| Line S02547 Modification History | |
|---|---|
M01 (Removed by) | 6di28 |
Seq # *Modification Id* Act ----------------------------+ 02841 M01S02547.6di28 ---| SHN 1 SAVE EST ENTRY OFFSET 02842 M01S02548.6di28 ---| ERRNZ ESTE-2 CODE ASSUMES *ESTE* = 2
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6di28 |
Seq # *Modification Id* Act ----------------------------+ 02843 M01S00001.6di28 +++| CFI EST SAVE EST ENTRY OFFSET 02844 M00S02549.6di +++| STD T7 02845 M00S02550.6di +++| NJN FCM3 IF NOT END OF SCAN 02846 M00S02551.6di +++| FCM2 MONITOR HNGM 02847 M00S02552.6di +++| UJN FCM2 HANG PP 02848 M00S02553.6di +++| 02849 M00S02554.6di +++| FCM3 SFA EST,CM+2 READ NEXT ENTRY 02850 M00S02555.6di +++| ADK EQDE 02851 M00S02556.6di +++| CRD T2 02852 M00S02557.6di +++| LDD T2+3
| Line S02558 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02853 M01S02558.252l678 ---| LPC 3777 02854 M00S02559.6di +++| LMC 2RCM 02855 M00S02560.6di +++| NJN FCM1 IF NOT CONTROL MODULE EST ENTRY 02856 M00S02561.6di +++| LDD T2+4 02857 M00S02562.6di +++| SHN 0-6 02858 M00S02563.6di +++| LMM HEDR+3 02859 M00S02564.6di +++| SCN 7 02860 M00S02565.6di +++| NJN FCM1 IF WRONG EQUIPMENT
| Line S02566 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02861 M01S02566.252l678 ---| LDD T2+1 SET CHANNEL INDICATOR FOR *7HI* 02862 M01S02567.252l678 ---| SHN -6 02863 M01S02568.252l678 ---| LPN 37
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02864 M01S00034.252l678 +++| LDD T2+2 SET CHANNEL INDICATOR FOR *7HI* 02865 M00S02569.6di +++| ZJN FCM4 IF NO SECONDARY CHANNEL
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02866 M01S00035.252l678 +++| LPN 37 02867 M00S02570.6di +++| LMN ** 02868 M00S02571.6di +++| FCMA EQU *-1 02869 M00S02572.6di +++| ZJN FCM5 IF SECONDARY CHANNEL IN USE 02870 M00S02573.6di +++| FCM4 LDD T2+1 02871 M00S02574.6di +++| LPN 37 02872 M00S02575.6di +++| LMN ** 02873 M00S02576.6di +++| FCMB EQU *-1 02874 M00S02577.6di +++| NJN FCM2 IF CHANNEL NOT IN EST ENTRY 02875 M00S02578.6di +++| LDN 1 02876 M00S02579.6di +++| FCM5 STD T4 02877 M00S02580.6di +++| LDD CM+2 SAVE EST ORDINAL FOR *7HI* 02878 M00S02581.6di +++| STD T5 02879 M00S02582.6di +++| LDN CM+2 SET BYTE NUMBER 02880 M00S02583.6di +++| STD T3
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 6di29 |
Seq # *Modification Id* Act ----------------------------+ 02881 M01S00002.6di29 +++| AOD T7 ADVANCE TO *EQAE* WORD OF EST ENTRY 02882 M01S00003.6di29 +++| ERRNZ EQAE-1 CODE ASSUMES *EQAE* = 1 02883 M00S02584.6di +++| FCM6 LJM ICRA+1 RETURN 02884 M00S02585.6di +++| FCT SPACE 4,10 02885 M00S02586.6di +++|** FCT - FIND CONTROLWARE TABLE ENTRY. 02886 M00S02587.6di +++|* 02887 M00S02588.6di +++|* ENTRY (T4) = CHANNEL NUMBER. 02888 M00S02589.6di +++|* 02889 M00S02590.6di +++|* EXIT (T3) = CHANNEL NUMBER MODULO 5 + *CM*. 02890 M00S02591.6di +++|* (T7) = WORD OFFSET RELATIVE TO FWA OF CONTROLWARE 02891 M00S02592.6di +++|* TABLE. 02892 M00S02593.6di +++|* (CM - CM+1) = FWA OF CONTROLWARE TABLE. 02893 M00S02594.6di +++|* 02894 M00S02595.6di +++|* USES T3, T4, T6 - CM+2. 02895 M00S02596.6di +++| 02896 M00S02597.6di +++| 02897 M00S02598.6di +++| FCT CON 0 ENTRY 02898 M00S02599.6di +++| LDD T4 STORE CHANNEL NUMBER 02899 M00S02600.6di +++| RAM FCTA 02900 M00S02601.6di +++| FNC FCAL,CH ISSUE SHORT AUTOLOAD 02901 M00S02602.6di +++| FCTA EQU *-2 02902 M00S02603.6di +++| LDC CHTP READ CHANNEL TABLE POINTER 02903 M00S02604.6di +++| CRD CM-2 02904 M00S02605.6di +++| LDN 2*CTALL-1 INITIALIZE WORD OFFSET 02905 M00S02606.6di +++| STD T7 02906 M00S02607.6di +++| FCT1 AOD T7 INCREMENT WORD OFFSET 02907 M00S02608.6di +++| LCN 5 02908 M00S02609.6di +++| RAD T4 02909 M00S02610.6di +++| PJN FCT1 IF CORRECT WORD NOT REACHED 02910 M00S02611.6di +++| ADN CM+5 SAVE BYTE NUMBER + *CM* 02911 M00S02612.6di +++| STD T3 02912 M00S02613.6di +++| UJN FCM6 RETURN 02913 M00S02614.6di +++| SPACE 4,10 02914 M00S02615.6di +++| ERRNG 10000-* OVERFLOW 02915 M00S02616.6di +++| BSS 10000-* SPARES 02916 M00S02617.6di +++| CON DII-1 (T0) = ENTRY ADDRESS - 1 02917 M00S02618.6di +++| CON DEST (T1) = DEST 02918 M00S02619.6di +++| CON DEEC (T2) = DEEC 02919 M00S02620.6di +++| ERRNZ LN-* INCORRECT *7II* OVERLAY LENGTH 02920 M00S02621.6di +++| QUAL *
| Line S02622 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02921 M01S02622.252l678 ---| 7JI MSOVL 7702,T2,HEDR+16,(ISSUE RELOAD MESSAGE.)
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02922 M01S00036.252l678 +++| 7JI MSOVL 7702,T2,DSFA+4,(ISSUE RELOAD MESSAGE.) 02923 M00S02623.6di +++| SPACE 4,10 02924 M00S02624.6di +++|*** ISSUE RELOAD MESSAGE. 02925 M00S02625.6di +++|* R. M. DANISCH. 83/10/11. 02926 M00S02626.6di +++| 7JI SPACE 4,10 02927 M00S02627.6di +++|*** *7JI* IS CALLED BY *7II* TO ISSUE A MESSAGE TO THE 02928 M00S02628.6di +++|* SYSTEM CONTROL POINT TO SHOW THE OPERATOR WHAT CHANNEL OR 02929 M00S02629.6di +++|* CONTROL MODULE IS HAVING ITS CONTROLWARE RELOADED. *7JI* 02930 M00S02630.6di +++|* THEN CALLS *7HI* TO BEGIN THE ACTUAL RELOAD. 02931 M00S02631.6di +++| IRM SPACE 4,30 02932 M00S02632.6di +++|** IRM - ISSUE RELOAD MESSAGE. 02933 M00S02633.6di +++|* 02934 M00S02634.6di +++|* ENTRY (T1) = DEST. 02935 M00S02635.6di +++|* (T2) = HEDR+7. 02936 M00S02636.6di +++|* (T3) = ADDRESS + *CM* OF BYTE CONTAINING RELOAD FLAGS. 02937 M00S02637.6di +++|* (T4) = CONTROL MODULE ACCESS INDICATOR. FOR CONTROL 02938 M00S02638.6di +++|* MODULE RELOADS, 1 INDICATES THE PRIMARY CHANNEL 02939 M00S02639.6di +++|* SHOULD BE USED FOR RELOAD. 0 INDICATES 02940 M00S02640.6di +++|* SECONDARY CHANNEL SHOULD BE USED. THIS CELL IS 02941 M00S02641.6di +++|* UNUSED FOR NON-CONTROL MODULE RELOADS. 02942 M00S02642.6di +++|* (T5) = CONTROL MODULE EST ORDINAL IF C/M RELOAD. 02943 M00S02643.6di +++|* (T6 - T7) = ADDRESS OF RELOAD INTERLOCK WORD. 02944 M00S02644.6di +++|* (DEST) = ERROR PROCESSING CONTROL WORD. 02945 M00S02645.6di +++|* (MB+2) = ORIGINAL (T3 - T7). 02946 M00S02646.6di +++|* (MB+3 - MB+5) = LAST THREE WORDS OF DETAILED STATUS. 02947 M00S02647.6di +++|* 02948 M00S02648.6di +++|* EXIT TO *7HI*. 02949 M00S02649.6di +++|* (T3) = UNCHANGED. 02950 M00S02650.6di +++|* (T4) = UNCHANGED. 02951 M00S02651.6di +++|* (T5) = SYSTEM CP *MS2W* ADDRESS. 02952 M00S02652.6di +++|* (T6 - T7) = UNCHANGED. 02953 M00S02653.6di +++|* (MB+2) = UNCHANGED. 02954 M00S02654.6di +++|* (MB+3 - MB+5) = UNCHANGED. 02955 M00S02655.6di +++|* 02956 M00S02656.6di +++|* USES T5, CM - CM+4. 02957 M00S02657.6di +++|* 02958 M00S02658.6di +++|* MACROS MSERR. 02959 M00S02659.6di +++| 02960 M00S02660.6di +++| 02961 M00S02661.6di +++| DJI ENTRY *7JI* ENTRY 02962 M00S02662.6di +++| 02963 M00S02663.6di +++| IRM LDI T1 02964 M00S02664.6di +++| SHN 0-1 02965 M00S02665.6di +++| LPN 3 02966 M00S02666.6di +++| LMN 3 02967 M00S02667.6di +++| NJN IRM1 IF NOT CONTROL MODULE RELOAD 02968 M00S02668.6di +++| LDC 2REQ CONVERT MESSAGE FOR C/M RELOAD 02969 M00S02669.6di +++| STM IRMA+5 02970 M00S02670.6di +++| UJN IRM2 CONVERT EST ORDINAL 02971 M00S02671.6di +++| 02972 M00S02672.6di +++| IRM1 LDI T2 GET CHANNEL NUMBER 02973 M00S02673.6di +++| SHN -6 02974 M00S02674.6di +++| STD T5 02975 M00S02675.6di +++| LDC 2R 0 02976 M00S02676.6di +++| STM IRMA+6 02977 M00S02677.6di +++| IRM2 LDD T5 CONVERT CHANNEL OR EST ORDINAL TO DISPLAY 02978 M00S02678.6di +++| LPN 7 02979 M00S02679.6di +++| SHN 6 02980 M00S02680.6di +++| RAM IRMA+7 02981 M00S02681.6di +++| LDD T5 02982 M00S02682.6di +++| SHN -3 02983 M00S02683.6di +++| LPN 7 02984 M00S02684.6di +++| LMD T5 02985 M00S02685.6di +++| LPN 77 02986 M00S02686.6di +++| LMD T5 02987 M00S02687.6di +++| RAM IRMA+6 02988 M00S02688.6di +++| LDN NCPL WRITE MESSAGE TO SYSTEM CONTROL POINT 02989 M00S02689.6di +++| CRD CM 02990 M00S02690.6di +++| AOD CM+1 02991 M00S02691.6di +++| SHN 7 02992 M00S02692.6di +++| ADN MS2W 02993 M00S02693.6di +++| STD T5 02994 M00S02694.6di +++| CWM IRMA,TR 02995 M00S02695.6di +++| MSERR 7HI EXECUTE *7HI* 02996 M00S02696.6di +++| 02997 M00S02697.6di +++| 02998 M00S02698.6di +++| IRMA DATA C*RELOADING CH000 CONTROLWARE.* 02999 M00S02699.6di +++| IRM SPACE 4,10 03000 M00S02700.6di +++| ERRNG 10000-* OVERFLOW 03001 M00S02701.6di +++| BSS 10000-* SPARES 03002 M00S02702.6di +++| CON DJI-1 (T0) = ENTRY ADDRESS - 1 03003 M00S02703.6di +++| CON DEST (T1) = DEST 03004 M00S02704.6di +++| CON HEDR+7 (T2) = POINTER TO CHANNEL NUMBER 03005 M00S02705.6di +++| ERRNZ LN-* INCORRECT *7JI* OVERLAY LENGTH 03006 M00S02706.6di +++| QUAL *
| Line S02707 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03007 M01S02707.252l678 ---| 7KI MSOVL 7625,T2,HEDR+16,(EXECUTE LEVEL 1 DIAGNOSTICS.)
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03008 M01S00037.252l678 +++| 7KI MSOVL 7567,T2,DSFA+4,(EXECUTE LEVEL 1 DIAGNOSTICS.) 03009 M00S02708.6di +++| SPACE 4,10 03010 M00S02709.6di +++|*** EXECUTE LEVEL 1 DIAGNOSTICS. 03011 M00S02710.6di +++|* R. M. DANISCH. 83/10/17. 03012 M00S02711.6di +++| SPACE 4,10 03013 M00S02712.6di +++|*** *7KI* IS CALLED BY *7EO* FOR UNRECOVERED ERRORS ON 03014 M00S02713.6di +++|* ISD DEVICES. IT ISSUES A SPINUP COMMAND TO EXECUTE 03015 M00S02714.6di +++|* LEVEL 1 DIAGNOSTICS IN THE CONTROL MODULE. FOLLOWING
| Line S02715 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03016 M01S02715.252l678 ---|* COMPLETION OF THE DIAGNOSTICS EXECUTION *7LI* IS CALLED 03017 M01S02716.252l678 ---|* TO ISSUE A BML MESSAGE TO NOTE THE DIAGNOSTICS RESULTS 03018 M01S02717.252l678 ---|* FOR *HPA*.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03019 M01S00038.252l678 +++|* COMPLETION OF THE DIAGNOSTICS EXECUTION, *7EP* IS ENTERED 03020 M01S00039.252l678 +++|* TO ISSUE A BML MESSAGE NOTING DIAGNOSTIC RESULTS FOR *HPA*. 03021 M00S02718.6di +++| SPACE 4,10 03022 M00S02719.6di +++|* GENERATE LINKED LIST OF CHANNEL INSTRUCTIONS. 03023 M00S02720.6di +++| 03024 M00S02721.6di +++| FWDL$ EQU 1 SELECT FORWARD LINKING 03025 M00S02722.6di +++| RICHL 03026 M00S02723.6di +++| 7KI SPACE 4,10 03027 M00S02724.6di +++|** EXD - EXECUTE LEVEL 1 DIAGNOSTICS. 03028 M00S02725.6di +++|*
| Line S02726 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03029 M01S02726.252l678 ---|* ENTRY (T1) = ERRA.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03030 M01S00040.252l678 +++|* ENTRY (T1) = DEDT. 03031 M00S02727.6di +++|* (T2) = FIRST CHANNEL INSTRUCTION ADDRESS. 03032 M00S02728.6di +++|* (T4 - T7) = DRIVER PARAMETERS.
| Line S02729 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03033 M01S02729.252l678 ---|* (ERRA) = FUNCTION TIMEOUT ERROR ADDRESS. 03034 M01S02730.252l678 ---|* (HEDR - HEDR+11) = BML MESSAGE HEADER. 03035 M01S02731.252l678 ---|* (HEDR+12 - HEDR+16) = FIRST WORD OF DETAILED STATUS 03036 M01S02732.252l678 ---|* TAKEN BY *7CI*. 03037 M01S02733.252l678 ---|* (MB+3 - MB+5) = LAST THREE WORDS OF DETAILED STATUS 03038 M01S02734.252l678 ---|* TAKEN BY *7CI*. 03039 M01S02735.252l678 ---|* 03040 M01S02736.252l678 ---|* EXIT TO *7LI* NORMALLY. 03041 M01S02737.252l678 ---|* (T4 - T7) = UNCHANGED. 03042 M01S02738.252l678 ---|* (HEDR - HEDR+11) = UNCHANGED. 03043 M01S02739.252l678 ---|* (HEDR+12 - HEDR+35) = DETAILED STATUS TAKEN BY *7CI*. 03044 M01S02740.252l678 ---|* (MB, BYTE 0) = LEVEL 1 DIAGNOSTICS GENERAL STATUS. 03045 M01S02741.252l678 ---|* (MB+2 - MB+5) = LEVEL 1 DIAGNOSTICS DETAILED STATUS. 03046 M01S02742.252l678 ---|* TO *7EP* IF UNABLE TO EXECUTE DIAGNOSTICS. 03047 M01S02743.252l678 ---|* (T4 - T7) = UNCHANGED. 03048 M01S02744.252l678 ---|* (HEDR - HEDR+16) = UNCHANGED. 03049 M01S02745.252l678 ---|* (MB+3 - MB+5) = UNCHANGED.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03050 M01S00041.252l678 +++|* (DEDT) = ERROR PROCESSING CONTROL WORD. 03051 M01S00042.252l678 +++|* (MSGH - MSGH+4) = *EMB* MESSAGE HEADER. 03052 M01S00043.252l678 +++|* (HEDR - HEDR+11) = BML MESSAGE HEADER. 03053 M01S00044.252l678 +++|* (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA. 03054 M01S00045.252l678 +++|* (DSFA - DSFA+4) = FIRST WORD OF DETAILED STATUS. 03055 M01S00046.252l678 +++|* (MB+2 - MB+5) = DETAILED STATUS TAKEN BY *7CI*. 03056 M01S00047.252l678 +++|* 03057 M01S00048.252l678 +++|* EXIT (T4 - T7) = UNCHANGED. 03058 M01S00049.252l678 +++|* (MSGH - MSGH+4) = UNCHANGED. 03059 M01S00050.252l678 +++|* (HEDR - HEDR+11) = BML MESSAGE HEADER. 03060 M01S00051.252l678 +++|* (DDMD - DDMD+4) = DEVICE DEPENDENT MESSAGE DATA. 03061 M01S00052.252l678 +++|* (DSFA - DSFA+23) = DETAILED STATUS TAKEN BY *7KI*. 03062 M01S00053.252l678 +++|* (MB+2 - MB+5) = DETAILED STATUS TAKEN BY *7KI*. 03063 M00S02746.6di +++|* 03064 M00S02747.6di +++|* USES T0 - T2, CM - CM+4. 03065 M00S02748.6di +++|* 03066 M00S02749.6di +++|* CALLS FNC. 03067 M00S02750.6di +++|* 03068 M00S02751.6di +++|* MACROS DELAY, MSERR, PAUSE. 03069 M00S02752.6di +++| 03070 M00S02753.6di +++| 03071 M00S02754.6di +++| DKI ENTRY *7KI* ENTRY 03072 M00S02755.6di +++|
| Line S02756 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03073 M01S02756.252l678 ---| LDD MA SAVE ORIGINAL DETAILED STATUS 03074 M01S02757.252l678 ---| ADN 3 03075 M01S02758.252l678 ---| CRM DSFA+5,TR 03076 M01S02759.252l678 ---| ERRNG *-DSFA-DSLN DATA READ IN DESTROYS CODE
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03077 M01S00054.252l678 +++| LDI T1 CHECK INITIAL CALL 03078 M01S00055.252l678 +++| LPN 20 03079 M01S00056.252l678 +++| NJN EXD1 IF FIRST FAILURE MESSAGE ISSUED 03080 M01S00057.252l678 +++| LDM ERXA 03081 M01S00058.252l678 +++| STI D1 SAVE ERROR RETURN ADDRESS 03082 M01S00059.252l678 +++| MSERR 7KI,* 03083 M01S00060.252l678 +++| STM ERR2+1 MODIFY ERROR PROCESSOR CALL 03084 M01S00061.252l678 +++| LDC ERR2 03085 M01S00062.252l678 +++| STM ERXA 03086 M01S00063.252l678 +++| LDN 20 SET RETURN TO ERROR PROCESSOR 03087 M01S00064.252l678 +++| RAI T1 03088 M01S00065.252l678 +++| LJM LEP ISSUE FIRST FAILURE MESSAGE 03089 M01S00066.252l678 +++| 03090 M01S00067.252l678 +++| EXD1 LDI D1 RESTORE ERROR RETURN ADDRESS 03091 M01S00068.252l678 +++| STM ERXA 03092 M01S00069.252l678 +++| LCN 20 CLEAR RETURN TO ERROR PROCESSOR 03093 M01S00070.252l678 +++| RAI T1 03094 M01S00071.252l678 +++| MSERR 7SI,* RESTORE ERROR PROCESSOR CALL 03095 M01S00072.252l678 +++| STM ERR2+1 03096 M00S02760.6di +++| LDN 0 03097 M00S02761.6di +++| EXD2 RAD T2 MODIFY CHANNEL INSTRUCTIONS 03098 M00S02762.6di +++| LDI T2 03099 M00S02763.6di +++| LPN 37 03100 M00S02764.6di +++| STD T0 03101 M00S02765.6di +++| LDD T4 03102 M00S02766.6di +++| SBD T0 03103 M00S02767.6di +++| RAI T2 03104 M00S02768.6di +++| LDD T0 03105 M00S02769.6di +++| NJN EXD2 IF MORE INSTRUCTIONS TO MODIFY 03106 M00S02770.6di +++| 03107 M00S02771.6di +++|* ISSUE SPINUP FUNCTION TO EXECUTE LEVEL ONE DIAGNOSTICS. 03108 M00S02772.6di +++| 03109 M00S02773.6di +++| EXD3 LDN 0 03110 M00S02774.6di +++| STD CM INITIALIZE *FCSU* TIMEOUT FLAG 03111 M00S02775.6di +++| STD T2 INITIALIZE CHANNEL PARITY RETRY COUNT
| Line S02776 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03112 M01S02776.252l678 ---| LDC EXD4 SET ERROR EXIT ADDRESS 03113 M01S02777.252l678 ---| STI T1
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03114 M01S00073.252l678 +++| LDC EXD5 03115 M01S00074.252l678 +++| STM ERRA SET ERROR EXIT ADDRESS 03116 M00S02778.6di +++| LDN FCSU ISSUE SPINUP FUNCTION 03117 M00S02779.6di +++| RJM FNC 03118 M00S02780.6di +++| LDN 1 OUTPUT PARAMETER 03119 M00S02781.6di +++| OAM HEDR+3,CH
| Line S02782 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03120 M01S02782.252l678 ---| NJN EXD4 IF TRANSFER ERROR 03121 M01S02783.252l678 ---| EXD3.1 SBN 1 03122 M01S02784.252l678 ---| ZJN EXD4 IF TIMEOUT 03123 M01S02785.252l678 ---| FJM EXD3.1,CH IF CHANNEL FULL 03124 M01S02786.252l678 ---| AOD CM INDICATE NO ERROR ON *FCSU* 03125 M01S02787.252l678 ---| EXD4 DCN CH+40
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03126 M01S00075.252l678 +++| NJN EXD5 IF INCOMPLETE TRANSFER 03127 M01S00076.252l678 +++| EXD4 SBN 1 03128 M01S00077.252l678 +++| ZJN EXD5 IF TIMEOUT 03129 M01S00078.252l678 +++| FJM EXD4,CH IF CHANNEL FULL 03130 M01S00079.252l678 +++| AOD CM INDICATE NO ERROR ON *FCSU* 03131 M01S00080.252l678 +++| EXD5 DCN CH+40 03132 M00S02788.6di +++| 03133 M00S02789.6di +++|* TAKE GENERAL STATUS. IF STATUS SHOWS SPINUP STILL IN 03134 M00S02790.6di +++|* PROGRESS, LOOP ISSUING SPINUP AND GENERAL STATUS FUNCTIONS 03135 M00S02791.6di +++|* UNTIL DIAGNOSTICS COMPLETE. IF GENERAL STATUS CANNOT BE 03136 M00S02792.6di +++|* TAKEN, EXIT TO *7EP*. 03137 M00S02793.6di +++| 03138 M00S02794.6di +++| LDC EXD11 SET ERROR EXIT ADDRESS
| Line S02795 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03139 M01S02795.252l678 ---| STI T1 03140 M01S02796.252l678 ---| EXD5 AOD T2 INCREMENT CHANNEL PARITY RETRY COUNT
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03141 M01S00081.252l678 +++| STM ERRA 03142 M01S00082.252l678 +++| EXD6 AOD T2 INCREMENT CHANNEL PARITY RETRY COUNT 03143 M00S02797.6di +++| LMN CHRT+1 03144 M00S02798.6di +++| ZJN EXD7 IF CHANNEL PARITY RETRY LIMIT REACHED
| Line S02799 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03145 M01S02799.252l678 ---| EXD6 LDN FCGS ISSUE GENERAL STATUS FUNCTION
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03146 M01S00083.252l678 +++| LDN FCGS ISSUE GENERAL STATUS FUNCTION 03147 M00S02800.6di +++| RJM FNC 03148 M00S02801.6di +++| LDN 1 INPUT GENERAL STATUS
| Line S02802 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03149 M01S02802.252l678 ---| IAM DEPL,CH 03150 M01S02803.252l678 ---| ERRNG *-DEPL-1 DATA READ IN DESTROYS CODE 03151 M01S02804.252l678 ---| ZJN EXD8 IF DATA TRANSFER COMPLETED
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03152 M01S00084.252l678 +++| IAM DEGS,CH 03153 M01S00085.252l678 +++| ZJN EXD9 IF DATA TRANSFER COMPLETE 03154 M00S02805.6di +++| EXD7 LJM EXD11 CALL *7EP*
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 6di12 |
Seq # *Modification Id* Act ----------------------------+ 03155 M01S00017.6di12 +++|
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 6di12 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03156 M02S00018.252l678 ---| EXD7.1 LJM EXD3 REISSUE SPINUP FUNCTION
| Line S02806 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03157 M01S02806.252l678 ---| 03158 M01S02807.252l678 ---| EXD8 LDD CM 03159 M01S02808.252l678 ---| SFM EXD5,CH IF CHANNEL PARITY ERROR 03160 M01S02809.252l678 ---| ZJN EXD9 IF *FCSU* TIMED OUT 03161 M01S02810.252l678 ---| LDM DEPL 03162 M01S02811.252l678 ---| LMN 2 03163 M01S02812.252l678 ---| NJN EXD9 IF NOT BUSY STATUS
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03164 M01S00086.252l678 +++| EXD8 LJM EXD3 REISSUE SPINUP FUNCTION 03165 M01S00087.252l678 +++| 03166 M01S00088.252l678 +++| EXD9 STD T2 CLEAR CHANNEL PARITY RETRY COUNT 03167 M01S00089.252l678 +++| LDD CM 03168 M01S00090.252l678 +++| SFM EXD6,CH IF CHANNEL PARITY ERROR 03169 M01S00091.252l678 +++| ZJN EXD10 IF *FCSU* TIMED OUT 03170 M01S00092.252l678 +++| LDM DEGS 03171 M01S00093.252l678 +++| STM DDMD+4 SET GENERAL STATUS IN MESSAGE 03172 M01S00094.252l678 +++| LMN 2 03173 M01S00095.252l678 +++| NJN EXD10 IF NOT BUSY STATUS 03174 M00S02813.6di +++| DELAY 1*8D DELAY FOR 1 MILLISECOND 03175 M00S02814.6di +++| PAUSE
| Line S02815 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03176 M01S02815.252l678 ---|* STD CM (*CM* MUST BE NON-ZERO, NO *FCSU* TIMEOUT) 03177 M00S02816.6di +++| LDD CM+1 03178 M00S02817.6di +++| LMN ORET
| Line S02818 Modification History | |
|---|---|
M01 (Removed by) | 6di12 |
Seq # *Modification Id* Act ----------------------------+ 03179 M01S02818.6di12 ---| NJP EXD3 IF NOT OPERATOR OVERRIDE
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 6di12 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03180 M02S00019.252l678 ---| NJN EXD7.1 IF NOT OPERATOR OVERRIDE
| Line S02819 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03181 M01S02819.252l678 ---| 03182 M01S02820.252l678 ---|* TAKE DETAILED STATUS. SAVE BOTH GENERAL STATUS AND DETAILED 03183 M01S02821.252l678 ---|* STATUS IN THE MESSAGE BUFFER AND CALL *7LI*. IF DETAILED 03184 M01S02822.252l678 ---|* STATUS CANNOT BE TAKEN, EXIT TO *7EP*. 03185 M01S02823.252l678 ---| 03186 M01S02824.252l678 ---| EXD9 LDN 0 RESET CHANNEL PARITY RETRY COUNT 03187 M01S02825.252l678 ---| STD T2
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03188 M01S00096.252l678 +++| NJN EXD8 IF NOT OPERATOR OVERRIDE
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/6di.001.txt · Last modified: (external edit)