cdc:nos2.source:opl.opl871:deck:1hp.001
Deck 1HP Part 001
23 Modifications
Listing Sections
- Deck 1HP Start
- Deck 1HP Part 1 (Line 1622)
- Deck 1HP Part 2 (Line 3159)
Source
Seq # *Modification Id* Act ----------------------------+ 01622 M01S01401.252l678 ---|* LDC ELMSN*10000+ELM (SHORT MESSAGE FORMAT) 01623 M01S01402.252l678 ---| IEMA EQU *-2 01624 M01S01403.252l678 ---| RJM IMS ISSUE MESSAGE 01625 M01S01404.252l678 ---| LJM IEMX RETURN 01626 M01S01405.252l678 ---| 01627 M01S01406.252l678 ---| 01628 M01S01407.252l678 ---| IEMB BSS 0 TABLE OF MESSAGE LENGTHS 01629 M01S01408.252l678 ---| CON LDCI+ELMLN LONG MESSAGE FORMAT 01630 M01S01409.252l678 ---| CON LDCI+ELMSN SHORT MESSAGE FORMAT 01631 M01S01410.252l678 ---| 01632 M01S01411.252l678 ---| IEMC BSS 0 TABLE OF MESSAGE LINE ADDRESSES 01633 M01S01412.252l678 ---| CON ELML1+1 01634 M01S01413.252l678 ---| CON ELML2+1 01635 M01S01414.252l678 ---| CON ELML3+1 01636 M01S01415.252l678 ---| CON ELML4+1 01637 M01S01416.252l678 ---| CON ELML5+1 01638 M01S01417.252l678 ---| CON ELML6+1 01639 M01S01418.252l678 ---| CON ELML7+1 01640 M01S01419.252l678 ---| CON ELML8+1 01641 M01S01420.252l678 ---| CON ELML9+1 01642 M01S01421.252l678 ---| CON ELML10+1 01643 M01S01422.252l678 ---| CON ELML11+1 01644 M01S01423.252l678 ---| CON 0 END OF TABLE 01645 M01S01424.252l678 ---| IEM SPACE 4,10 01646 M01S01425.252l678 ---|* ERROR LOG MESSAGE BLOCK. 01647 M01S01426.252l678 ---| 01648 M01S01427.252l678 ---| ELM BSS 0 01649 M01S01428.252l678 ---| 01650 M01S01429.252l678 ---|* LINE 1. 01651 M01S01430.252l678 ---| 01652 M01S01431.252l678 ---| ELMH1 VFD 36/0 RESERVED 01653 M01S01432.252l678 ---| VFD 12/ELMH2/5-ELMH1/5 MESSAGE LENGTH INCLUDING HEADER 01654 M01S01433.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01655 M01S01434.252l678 ---| 01656 M01S01435.252l678 ---| ELML1 DATA H* DB000,UNRECOVERED MASS STORAGE ERROR.* 01657 M01S01436.252l678 ---| CON 0 MESSAGE TERMINATOR 01658 M01S01437.252l678 ---| 01659 M01S01438.252l678 ---| 01660 M01S01439.252l678 ---|* LINE 2. 01661 M01S01440.252l678 ---| 01662 M01S01441.252l678 ---| ELMH2 VFD 36/0 RESERVED 01663 M01S01442.252l678 ---| VFD 12/ELMH3/5-ELMH2/5 MESSAGE LENGTH INCLUDING HEADER 01664 M01S01443.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01665 M01S01444.252l678 ---| 01666 M01S01445.252l678 ---| ELML2 DATA H* DB000,OPERATION* 01667 M01S01446.252l678 ---| ELMOP VFD 36/ 01668 M01S01447.252l678 ---| DATA H* ERROR CODE=* 01669 M01S01448.252l678 ---| ELMEC VFD 12/ 01670 M01S01449.252l678 ---| DATA H*.* 01671 M01S01450.252l678 ---| 01672 M01S01451.252l678 ---|* LINE 3. 01673 M01S01452.252l678 ---| 01674 M01S01453.252l678 ---| ELMH3 VFD 36/0 RESERVED 01675 M01S01454.252l678 ---| VFD 12/ELMH4/5-ELMH3/5 MESSAGE LENGTH INCLUDING HEADER 01676 M01S01455.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01677 M01S01456.252l678 ---| 01678 M01S01457.252l678 ---| ELML3 DATA H* DB000,CH=* 01679 M01S01458.252l678 ---| ELMCH VFD 12/ 01680 M01S01459.252l678 ---| DATA H* UN=* 01681 M01S01460.252l678 ---| ELMUN VFD 12/ 01682 M01S01461.252l678 ---| DATA H* CY=* 01683 M01S01462.252l678 ---| ELMCY VFD 24/ 01684 M01S01463.252l678 ---| DATA H* TK=* 01685 M01S01464.252l678 ---| ELMTK VFD 12/ 01686 M01S01465.252l678 ---| DATA H* SC=* 01687 M01S01466.252l678 ---| ELMSC VFD 12/ 01688 M01S01467.252l678 ---| DATA H*.* 01689 M01S01468.252l678 ---| 01690 M01S01469.252l678 ---|* LINE 4. 01691 M01S01470.252l678 ---| 01692 M01S01471.252l678 ---| ELMH4 VFD 36/0 RESERVED 01693 M01S01472.252l678 ---| VFD 12/ELMH5/5-ELMH4/5 MESSAGE LENGTH INCLUDING HEADER 01694 M01S01473.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01695 M01S01474.252l678 ---| 01696 M01S01475.252l678 ---| ELML4 DATA H* DB000,LAST FUNCTION ISSUED = * 01697 M01S01476.252l678 ---| ELMLF VFD 24/ 01698 M01S01477.252l678 ---| DATA H*.* 01699 M01S01478.252l678 ---| VFD 24/0 MESSAGE TERMINATOR 01700 M01S01479.252l678 ---| 01701 M01S01480.252l678 ---|* LINE 5. 01702 M01S01481.252l678 ---| 01703 M01S01482.252l678 ---| ELMH5 VFD 36/0 RESERVED 01704 M01S01483.252l678 ---| VFD 12/ELMH6/5-ELMH5/5 MESSAGE LENGTH INCLUDING HEADER 01705 M01S01484.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01706 M01S01485.252l678 ---| 01707 M01S01486.252l678 ---| ELML5 DATA H* DB000,GENERAL STATUS = * 01708 M01S01487.252l678 ---| ELMGS VFD 24/ 01709 M01S01488.252l678 ---| DATA H*.* 01710 M01S01489.252l678 ---| VFD 60/0 MESSAGE TERMINATOR 01711 M01S01490.252l678 ---| 01712 M01S01491.252l678 ---| ELMSN EQU */5-ELM/5 SHORT MESSAGE LENGTH 01713 M01S01492.252l678 ---| 01714 M01S01493.252l678 ---|* LINE 6. 01715 M01S01494.252l678 ---| 01716 M01S01495.252l678 ---| ELMH6 VFD 36/0 RESERVED 01717 M01S01496.252l678 ---| VFD 12/ELMH7/5-ELMH6/5 MESSAGE LENGTH INCLUDING HEADER 01718 M01S01497.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01719 M01S01498.252l678 ---| 01720 M01S01499.252l678 ---| ELML6 DATA H* DB000,DETAILED STATUS =* 01721 M01S01500.252l678 ---| VFD 36/0 MESSAGE TERMINATOR 01722 M01S01501.252l678 ---| 01723 M01S01502.252l678 ---|* LINE 7. 01724 M01S01503.252l678 ---| 01725 M01S01504.252l678 ---| ELMH7 VFD 36/0 RESERVED 01726 M01S01505.252l678 ---| VFD 12/ELMH8/5-ELMH7/5 MESSAGE LENGTH INCLUDING HEADER 01727 M01S01506.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01728 M01S01507.252l678 ---| 01729 M01S01508.252l678 ---| ELMDS BSS 0 START OF DETAILED STATUS 01730 M01S01509.252l678 ---| ELML7 DATA H* DB000, 01=XXXX 02=XXXX 03=XXXX 04=XXXX* 01731 M01S01510.252l678 ---| 01732 M01S01511.252l678 ---|* LINE 8. 01733 M01S01512.252l678 ---| 01734 M01S01513.252l678 ---| ELMH8 VFD 36/0 RESERVED 01735 M01S01514.252l678 ---| VFD 12/ELMH9/5-ELMH8/5 MESSAGE LENGTH INCLUDING HEADER 01736 M01S01515.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01737 M01S01516.252l678 ---| 01738 M01S01517.252l678 ---| ELML8 DATA H* DB000, 05=XXXX 06=XXXX 07=XXXX 08=XXXX* 01739 M01S01518.252l678 ---| 01740 M01S01519.252l678 ---|* LINE 9. 01741 M01S01520.252l678 ---| 01742 M01S01521.252l678 ---| ELMH9 VFD 36/0 RESERVED 01743 M01S01522.252l678 ---| VFD 12/ELMH10/5-ELMH9/5 MESSAGE LENGTH INCLUDING HEADER 01744 M01S01523.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01745 M01S01524.252l678 ---| 01746 M01S01525.252l678 ---| ELML9 DATA H* DB000, 09=XXXX 10=XXXX 11=XXXX 12=XXXX* 01747 M01S01526.252l678 ---| 01748 M01S01527.252l678 ---|* LINE 10. 01749 M01S01528.252l678 ---| 01750 M01S01529.252l678 ---| ELMH10 VFD 36/0 RESERVED 01751 M01S01530.252l678 ---| VFD 12/ELMH11/5-ELMH10/5 MESSAGE LENGTH INCLUDING HEADER 01752 M01S01531.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01753 M01S01532.252l678 ---| 01754 M01S01533.252l678 ---| ELML10 DATA H* DB000, 13=XXXX 14=XXXX 15=XXXX 16=XXXX* 01755 M01S01534.252l678 ---| 01756 M01S01535.252l678 ---|* LINE 11. 01757 M01S01536.252l678 ---| 01758 M01S01537.252l678 ---| ELMH11 VFD 36/0 RESERVED 01759 M01S01538.252l678 ---| VFD 12/ELMLW/5-ELMH11/5 MESSAGE LENGTH INCLUDING HEADER 01760 M01S01539.252l678 ---| VFD 12/ERLT MESSAGE TYPE 01761 M01S01540.252l678 ---| 01762 M01S01541.252l678 ---| ELML11 DATA H* DB000, 17=XXXX 18=XXXX 19=XXXX 20=XXXX* 01763 M01S01542.252l678 ---| ELMDSE EQU * END OF DETAILED STATUS 01764 M01S01543.252l678 ---| VFD 60/0 MESSAGE TERMINATOR 01765 M01S01544.252l678 ---| 01766 M01S01545.252l678 ---| ELMLW BSS 0 LWA+1 OF MESSAGE BLOCK 01767 M01S01546.252l678 ---| ELMLN EQU */5-ELM/5 MESSAGE BLOCK LENGTH INCLUDING HEADER 01768 M00S01547.1hp +++| IIC SPACE 4,10 01769 M00S01548.1hp +++|** IIC - ISSUE I/O COMPLETION REQUEST. 01770 M00S01549.1hp +++|* 01771 M00S01550.1hp +++|* ENTRY (CC) = COMPLETION COUNT. 01772 M00S01551.1hp +++|* (PB) = PREVIOUS BUFFER ORDINAL, IF ANY. 01773 M00S01552.1hp +++|* 01774 M00S01553.1hp +++|* EXIT (PB) = 0. 01775 M00S01554.1hp +++|* 01776 M00S01555.1hp +++|* USES CC ,PB. 01777 M00S01556.1hp +++|* 01778 M00S01557.1hp +++|* CALLS CRQ. 01779 M00S01558.1hp +++| 01780 M00S01559.1hp +++| 01781 M00S01560.1hp +++| IIC SUBR ENTRY/EXIT 01782 M00S01561.1hp +++| LDD PB 01783 M00S01562.1hp +++| ZJN IIC1 IF NO PREVIOUS BUFFER ORDINAL 01784 M00S01563.1hp +++| AOD CC INCREMENT COMPLETION COUNT 01785 M00S01564.1hp +++| LDN 0 CLEAR PREVIOUS BUFFER ORDINAL 01786 M00S01565.1hp +++| STD PB 01787 M00S01566.1hp +++| IIC1 LDD CC 01788 M00S01567.1hp +++| SHN ** 01789 M00S01568.1hp +++| IICA EQU *-1 01790 M00S01569.1hp +++| ZJN IICX IF NOT AT THRESHOLD 01791 M00S01570.1hp +++| RJM CRQ ISSUE COMPLETION REQUEST 01792 M00S01571.1hp +++| UJN IICX RETURN 01793 M00S01572.1hp +++| 01794 M00S01573.1hp +++|
| Line S01574 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 01795 M01S01574.ns2446 ---| IICB CON SHNI+77-1 01796 M01S01575.ns2446 ---| CON SHNI+77-2
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 01797 M01S00008.ns2446 +++| IICB BSS 0 01798 M01S00009.ns2446 +++| CON SHNI+77-0 01799 M01S00010.ns2446 +++| CON SHNI+77-1 01800 M00S01576.1hp +++| IMF SPACE 4,10 01801 M00S01577.1hp +++|** IMF - ISSUE MONITOR FUNCTION. 01802 M00S01578.1hp +++|* 01803 M00S01579.1hp +++|* ENTRY (A) = MONITOR FUNCTION CODE. 01804 M00S01580.1hp +++|* 01805 M00S01581.1hp +++|* EXIT (A) = 0. 01806 M00S01582.1hp +++|* (CM - CM+4) = COMPLETED PP OUTPUT REGISTER IMAGE. 01807 M00S01583.1hp +++|* 01808 M00S01584.1hp +++|* USES S1. 01809 M00S01585.1hp +++|* 01810 M00S01586.1hp +++|* CALLS CRQ, FTN. 01811 M00S01587.1hp +++| 01812 M00S01588.1hp +++| 01813 M00S01589.1hp +++| IMF SUBR ENTRY/EXIT 01814 M00S01590.1hp +++| STD S1 SAVE MONITOR FUNCTION CODE 01815 M00S01591.1hp +++| IMF1 RJM CRQ CHECK FOR FUNCTION REISSUE REQUIRED 01816 M00S01592.1hp +++| NJN IMF1 IF PREVIOUS FUNCTION NOT YET COMPLETE 01817 M00S01593.1hp +++| LDD S1 01818 M00S01594.1hp +++| RJM FTN ISSUE MONITOR FUNCTION 01819 M00S01595.1hp +++| UJN IMFX RETURN
| Line S01596 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01820 M01S01596.ns2769 ---| IMS SPACE 4,10 01821 M01S01597.ns2769 ---|** IMS - ISSUE MESSAGE BLOCK TO *EMB*. 01822 M01S01598.ns2769 ---|* 01823 M01S01599.ns2769 ---|* THIS ROUTINE PLACES A MESSAGE BLOCK IN THE *EMB* AND CALLS 01824 M01S01600.ns2769 ---|* *1MD* (IF NOT ALREADY ACTIVE) TO ISSUE EACH MESSAGE IN THE 01825 M01S01601.ns2769 ---|* BLOCK TO THE APPROPRIATE DAYFILE. 01826 M01S01602.ns2769 ---|* 01827 M01S01603.ns2769 ---|* ENTRY (A) = 6/ LN, 12/ AD 01828 M01S01604.ns2769 ---|* LN MESSAGE BLOCK LENGTH IN CM WORDS, 01829 M01S01605.ns2769 ---|* INCLUDING HEADER. 01830 M01S01606.ns2769 ---|* AD ADDRESS OF MESSAGE BLOCK. 01831 M01S01607.ns2769 ---|* 01832 M01S01608.ns2769 ---|* USES S2, T6, CM - CM+4, SR - SR+4. 01833 M01S01609.ns2769 ---|* 01834 M01S01610.ns2769 ---|* CALLS CMD. 01835 M01S01611.ns2769 ---|* 01836 M01S01612.ns2769 ---|* MACROS DELAY, MONITOR. 01837 M01S01613.ns2769 ---| 01838 M01S01614.ns2769 ---|
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01839 M02S00011.ns2769 ---| IMS7 AOM IMSG SET DATA LOST FLAG 01840 M02S00012.ns2769 ---|
| Line S01615 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01841 M01S01615.ns2769 ---| IMS SUBR ENTRY/EXIT 01842 M01S01616.ns2769 ---| STM IMSE SAVE MESSAGE ADDRESS 01843 M01S01617.ns2769 ---| SHN -14 SAVE MESSAGE LENGTH 01844 M01S01618.ns2769 ---| STD S2 01845 M01S01619.ns2769 ---| LDN 0 CLEAR *EMB* FLUSH RETRY COUNT 01846 M01S01620.ns2769 ---| STD T6 01847 M01S01621.ns2769 ---| IMS1 STD CM+1 SET UP *UTEM* REQUEST 01848 M01S01622.ns2769 ---| STD CM+2 01849 M01S01623.ns2769 ---| LDC ** 01850 M01S01624.ns2769 ---| IMSA EQU *-1 (FWA OF *EMB*) 01851 M01S01625.ns2769 ---| STD CM+4 01852 M01S01626.ns2769 ---| SHN -14 01853 M01S01627.ns2769 ---| STD CM+3 01854 M01S01628.ns2769 ---| MONITOR UTEM 01855 M01S01629.ns2769 ---| LDD CM+1 01856 M01S01630.ns2769 ---| ZJN IMS3 IF INTERLOCK SUCCESSFUL 01857 M01S01631.ns2769 ---| IMS2 DELAY 10D*8D DELAY FOR 10 MILLISECONDS 01858 M01S01632.ns2769 ---| AOD T6 INCREMENT *EMB* FLUSH RETRY COUNT 01859 M01S01633.ns2769 ---| LMN BFRL
| Line S01634 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01860 M02S01634.ns2769 ---| ZJN IMS4 IF *EMB* FLUSH RETRY LIMIT REACHED
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01861 M02S00013.ns2769 ---| ZJP IMS7 IF *EMB* FLUSH RETRY LIMIT REACHED
| Line S01635 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01862 M01S01635.ns2769 ---| LDN 0 01863 M01S01636.ns2769 ---| UJN IMS1 TRY AGAIN 01864 M01S01637.ns2769 ---|
| Line S01638 Modification History | |
|---|---|
M01 (Removed by) | ns2454 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01865 M02S01638.ns2769 ---| IMS3 STD T6 01866 M02S01639.ns2769 ---| LDC **
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2454 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01867 M02S00003.ns2769 ---| IMS3 LDC **
| Line S01640 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01868 M01S01640.ns2769 ---| IMSB EQU *-1 (FWA OF *EMB*) 01869 M01S01641.ns2769 ---| CRD SR 01870 M01S01642.ns2769 ---| SOD SR+4 CLEAR INTERLOCK 01871 M01S01643.ns2769 ---| LDD S2 01872 M01S01644.ns2769 ---| ADD SR+3
| Line S01645 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01873 M02S01645.ns2769 ---| SBK EMBL
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01874 M02S00035.ns2769 ---| SBK EMBLL
| Line S01646 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01875 M01S01646.ns2769 ---| MJN IMS5 IF ENOUGH ROOM IN BUFFER 01876 M01S01647.ns2769 ---| AOD T6 INCREMENT *EMB* FLUSH RETRY COUNT 01877 M01S01648.ns2769 ---| LMN BFRL 01878 M01S01649.ns2769 ---| ZJN IMS4 IF *EMB* FLUSH RETRY LIMIT REACHED 01879 M01S01650.ns2769 ---| RJM CMD CALL *1MD* 01880 M01S01651.ns2769 ---| ZJN IMS4 IF UNABLE TO CALL *1MD* 01881 M01S01652.ns2769 ---| LDC ** CLEAR *EMB* INTERLOCK 01882 M01S01653.ns2769 ---| IMSC EQU *-1 (FWA OF *EMB*) 01883 M01S01654.ns2769 ---| CWD SR 01884 M01S01655.ns2769 ---| UJP IMS2 RETRY 01885 M01S01656.ns2769 ---|
| Line S01657 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01886 M02S01657.ns2769 ---| IMS4 LDN 1 SET DATA LOST FLAG 01887 M02S01658.ns2769 ---| STD SR+1
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01888 M02S00014.ns2769 ---| IMS4 AOM IMSG SET DATA LOST FLAG
| Line S01659 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01889 M01S01659.ns2769 ---| UJN IMS6 FINISH AND RETURN 01890 M01S01660.ns2769 ---| 01891 M01S01661.ns2769 ---| IMS5 LDC ** 01892 M01S01662.ns2769 ---| IMSD EQU *-1 (FWA OF *EMB*) 01893 M01S01663.ns2769 ---| ADN 1 SKIP HEADER 01894 M01S01664.ns2769 ---| ADD SR+3 ADD WORD COUNT 01895 M01S01665.ns2769 ---| CWM **,S2 WRITE MESSAGE TO BUFFER 01896 M01S01666.ns2769 ---| IMSE EQU *-1 (MESSAGE ADDRESS) 01897 M01S01667.ns2769 ---| LDD S2 UPDATE WORD COUNT 01898 M01S01668.ns2769 ---| RAD SR+3 01899 M01S01669.ns2769 ---| RJM CMD CALL *1MD*
| Line S01670 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01900 M02S01670.ns2769 ---| IMS6 LDC ** CLEAR *EMB* INTERLOCK
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01901 M02S00015.ns2769 ---| IMS6 LDC ** 01902 M02S00016.ns2769 ---| IMSG EQU *-1 01903 M02S00017.ns2769 ---| RAD SR+1 01904 M02S00018.ns2769 ---| LDC ** UPDATE *EMB* HEADER WORD
| Line S01671 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01905 M01S01671.ns2769 ---| IMSF EQU *-1 (FWA OF *EMB*) 01906 M01S01672.ns2769 ---| CWD SR
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01907 M02S00019.ns2769 ---| LDN 0 CLEAR DATA LOST FLAG 01908 M02S00020.ns2769 ---| STM IMSG
| Line S01673 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01909 M01S01673.ns2769 ---| LJM IMSX RETURN 01910 M00S01674.1hp +++| ISF SPACE 4,25 01911 M00S01675.1hp +++|** ISF - ISSUE SEEK OPERATION. 01912 M00S01676.1hp +++|* 01913 M00S01677.1hp +++|* THIS ROUTINE ISSUES THE SEEK FUNCTION. 01914 M00S01678.1hp +++|* 01915 M00S01679.1hp +++|* ENTRY (CB) = BUFFER ORDINAL. 01916 M00S01680.1hp +++|* (CS) = CHANNEL RESERVATION STATUS. 01917 M00S01681.1hp +++|* 01918 M00S01682.1hp +++|* EXIT (A) .EQ. 0 IF UNIT ON-CYLINDER. 01919 M00S01683.1hp +++|* .NE. 0 IF CONTROLLER RESERVED TO OPPOSITE ACCESS, 01920 M00S01684.1hp +++|* DRIVE RESERVED TO OTHER CONTROLLER, OR 01921 M00S01685.1hp +++|* POSITIONER BUSY. 01922 M00S01686.1hp +++|* (CA - CA+2) = PHYSICAL ADDRESS OF FIRST SECTOR IN 01923 M00S01687.1hp +++|* BUFFER. 01924 M00S01688.1hp +++|* (CS) = BIT 3 SET IF CONTROLLER HARDWARE RESERVE IS 01925 M00S01689.1hp +++|* HELD. BIT 3 IS CLEAR IF *OPERATION COMPLETE* 01926 M00S01690.1hp +++|* FUNCTION WAS ISSUED. 01927 M00S01691.1hp +++|* TO *ERR* IF ERROR. 01928 M00S01692.1hp +++|* 01929 M00S01693.1hp +++|* USES CS, EC, CA - CA+4, CM - CM+4. 01930 M00S01694.1hp +++|* 01931 M00S01695.1hp +++|* CALLS ERR, FNC, GGS, RHR. 01932 M00S01696.1hp +++|* 01933 M00S01697.1hp +++|* MACROS CCBA. 01934 M00S01698.1hp +++| 01935 M00S01699.1hp +++| 01936 M00S01700.1hp +++| ISF SUBR ENTRY/EXIT
| Line S01701 Modification History | |
|---|---|
M01 (Removed by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 01937 M01S01701.ns2454 ---| LDD CS 01938 M01S01702.ns2454 ---| LPN 10 01939 M01S01703.ns2454 ---| NJN ISF1 IF CONTROLLER ALREADY CONNECTED 01940 M01S01704.ns2454 ---| RJM GGS GET GENERAL STATUS 01941 M01S01705.ns2454 ---| MJN ISF2 IF GENERAL STATUS WAS NOT OBTAINED 01942 M01S01706.ns2454 ---| SHN 21-12 01943 M01S01707.ns2454 ---| MJN ISFX IF COUPLER RESERVED ON OTHER ACCESS 01944 M01S01708.ns2454 ---| LDN 10 SET HARDWARE RESERVE FLAG 01945 M01S01709.ns2454 ---| RAD CS 01946 M01S01710.ns2454 ---| ISF1 CCBA PAD1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 01947 M01S00004.ns2454 +++| CCBA PAD1 GET DISK ADDRESS FROM CBT ENTRY 01948 M00S01711.1hp +++| CRD CA 01949 M00S01712.1hp +++| LDD CA SET OPTION SELECT FLAGS
| Line S01713 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 01950 M01S01713.ns2446 ---| LMD HN 01951 M01S01714.ns2446 ---| ERRNZ SOSF-100 CODE DEPENDS ON VALUE
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 01952 M01S00021.ns2446 +++| LMC SOSF 01953 M01S00022.ns2446 +++|* LMC SOSF+4000 (PRIORITY OVERRIDE REQUIRED) 01954 M01S00023.ns2446 +++| ISFA EQU *-1 01955 M00S01715.1hp +++| STD CA 01956 M00S01716.1hp +++| LDD CA+2 SET HEAD NUMBER 01957 M00S01717.1hp +++| SHN 14 01958 M00S01718.1hp +++| STD CA+2 01959 M00S01719.1hp +++| SHN -14 SET SECTOR NUMBER 01960 M00S01720.1hp +++| STD CA+3
| Line S01721 Modification History | |
|---|---|
M01 (Removed by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 01961 M01S01721.ns2454 ---| LDN FCSK ISSUE SEEK FUNCTION
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 01962 M01S00005.ns2454 +++| LDD CS 01963 M01S00006.ns2454 +++| LPN 10 01964 M01S00007.ns2454 +++| NJN ISF1 IF CONTROLLER ALREADY CONNECTED 01965 M01S00008.ns2454 +++| RJM GGS GET GENERAL STATUS 01966 M01S00009.ns2454 +++| MJN ISF2 IF GENERAL STATUS WAS NOT OBTAINED 01967 M01S00010.ns2454 +++| SHN 21-12 01968 M01S00011.ns2454 +++| MJP ISFX IF COUPLER RESERVED ON OTHER ACCESS 01969 M01S00012.ns2454 +++| LDN 10 SET HARDWARE RESERVE FLAG 01970 M01S00013.ns2454 +++| RAD CS 01971 M01S00014.ns2454 +++| ISF1 LDN FCSK ISSUE SEEK FUNCTION 01972 M00S01722.1hp +++| RJM FNC 01973 M00S01723.1hp +++| ISF2 MJN ISF5 IF ERROR 01974 M00S01724.1hp +++| LDN FCSKL OUTPUT SEEK PARAMETERS 01975 M00S01725.1hp +++| OAM CA,CH 01976 M00S01726.1hp +++| ZJN ISF3 IF ALL DATA WAS TAKEN 01977 M00S01727.1hp +++| LCN IDTE SET *INCOMPLETE DATA TRANSFER* ERROR CODE 01978 M00S01728.1hp +++| UJN ISF4 PROCESS ERROR 01979 M00S01729.1hp +++| 01980 M00S01730.1hp +++| ISF3 EJM ISF6,CH IF LAST BYTE TRANSFERRED 01981 M00S01731.1hp +++| SBN 1 01982 M00S01732.1hp +++| NJN ISF3 IF NOT TIMEOUT 01983 M00S01733.1hp +++| LCN CHFE SET *CHANNEL FAILURE* ERROR CODE 01984 M00S01734.1hp +++| ISF4 STD EC 01985 M00S01735.1hp +++| ISF5 RJM ERR CALL ERROR PROCESSOR 01986 M00S01736.1hp +++| 01987 M00S01737.1hp +++| ISF6 DCN CH+40 01988 M00S01738.1hp +++| RJM GGS GET GENERAL STATUS 01989 M00S01739.1hp +++| ZJN ISF8 IF NO ERROR AND ON-CYLINDER 01990 M00S01740.1hp +++| MJN ISF5 IF STATUS WAS NOT OBTAINED 01991 M00S01741.1hp +++| SHN 21-3 01992 M00S01742.1hp +++| MJN ISF7 IF UNIT IS RESERVED TO OTHER ACCESS 01993 M00S01743.1hp +++| SHN 3-1 01994 M00S01744.1hp +++| PJN ISF5 IF ERROR 01995 M00S01745.1hp +++| ISF7 RJM RHR RELEASE HARDWARE RESERVES 01996 M00S01746.1hp +++| NJN ISF5 IF ERROR 01997 M00S01747.1hp +++| LDN 1 INDICATE NOT ON CYLINDER 01998 M00S01748.1hp +++| ISF8 LJM ISFX RETURN 01999 M00S01749.1hp +++| OVI SPACE 4,15 02000 M00S01750.1hp +++|** OVI - OBTAIN AND VERIFY *PUT* INTERLOCK. 02001 M00S01751.1hp +++|* 02002 M00S01752.1hp +++|* THIS ROUTINE ATTEMPTS TO OBTAIN THE *PUT* INTERLOCK AND IF 02003 M00S01753.1hp +++|* SUCCESSFUL, VERIFIES THAT THE BUFFER FOR WHICH THE SEEK WAS 02004 M00S01754.1hp +++|* ISSUED IS STILL CURRENT IN THE QUEUE. 02005 M00S01755.1hp +++|* 02006 M00S01756.1hp +++|* ENTRY (CA+1 - CA+3) = ADDRESS USED FOR SEEK. 02007 M00S01757.1hp +++|* (CB) = BUFFER ORDINAL. 02008 M00S01758.1hp +++|* (ER) = RECOVERY IN PROGRESS FLAG. 02009 M00S01759.1hp +++|* (IL) = NONZERO IF THE *PUT* INTERLOCK IS ALREADY HELD. 02010 M00S01760.1hp +++|* (PO) = *PUT* ORDINAL. 02011 M00S01761.1hp +++|* 02012 M00S01762.1hp +++|* EXIT (A) = 0 IF *PUT* ENTRY IS INTERLOCKED AND BUFFER IS 02013 M00S01763.1hp +++|* STILL CURRENT IN QUEUE. 02014 M00S01764.1hp +++|* = NONZERO IF *PUT* ENTRY IS INTERLOCKED BY OTHER 02015 M00S01765.1hp +++|* DRIVER OR THE BUFFER FOR WHICH THE SEEK WAS 02016 M00S01766.1hp +++|* PERFORMED HAS ALREADY BEEN PROCESSED BY THE 02017 M00S01767.1hp +++|* OTHER DRIVER. 02018 M00S01768.1hp +++|* (IL) = 1 IF (A) = 0. 02019 M00S01769.1hp +++|* 02020 M00S01770.1hp +++|* USES IL, CM+1 - CM+2, CN - CN+4. 02021 M00S01771.1hp +++|* 02022 M00S01772.1hp +++|* CALLS RPI. 02023 M00S01773.1hp +++|*
| Line S01774 Modification History | |
|---|---|
M01 (Removed by) | ns2468 |
Seq # *Modification Id* Act ----------------------------+ 02024 M01S01774.ns2468 ---|* MACROS CCBA, MONITOR.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2468 |
Seq # *Modification Id* Act ----------------------------+ 02025 M01S00001.ns2468 +++|* MACROS CCBA, CPTA, MONITOR. 02026 M00S01775.1hp +++| 02027 M00S01776.1hp +++| 02028 M00S01777.1hp +++| OVI2 LDN 0 INDICATE *PUT* INTERLOCKED AND BUFFER OK 02029 M00S01778.1hp +++| 02030 M00S01779.1hp +++| OVI SUBR ENTRY/EXIT 02031 M00S01780.1hp +++| LDD IL 02032 M00S01781.1hp +++| NJN OVI2 IF THIS DRIVER ALREADY HAS *PUT* INTERLOCK
| Line S01782 Modification History | |
|---|---|
M01 (Removed by) | 1hp10 |
Seq # *Modification Id* Act ----------------------------+ 02033 M01S01782.1hp10 ---| LDK SUIS
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1hp10 |
Seq # *Modification Id* Act ----------------------------+ 02034 M01S00005.1hp10 +++|* LDK SUIS 02035 M01S00006.1hp10 +++| ERRNZ SUIS CODE DEPENDS ON VALUE 02036 M00S01783.1hp +++| STD CM+1 02037 M00S01784.1hp +++| LDD PO 02038 M00S01785.1hp +++| STD CM+2 02039 M00S01786.1hp +++| MONITOR BIOM ISSUE INTERLOCK REQUEST 02040 M00S01787.1hp +++| LDD CM+1 02041 M00S01788.1hp +++| NJN OVIX IF *PUT* IS INTERLOCKED BY OTHER DRIVER 02042 M00S01789.1hp +++| AOD IL SET *PUT* INTERLOCK FLAG 02043 M00S01790.1hp +++| LDC CREQ UPDATE *CCT* TABLE 02044 M00S01791.1hp +++| OVIA EQU *-2 (*CCT* FWA SET BY *PRS*) 02045 M00S01792.1hp +++| CWD IL 02046 M00S01793.1hp +++| LDD ER 02047 M00S01794.1hp +++| NJN OVI2 IF RECOVERY IN PROGRESS 02048 M00S01795.1hp +++| 02049 M00S01796.1hp +++|* VERIFY THAT THE BUFFER FOR WHICH THE SEEK WAS ISSUED IS STILL 02050 M00S01797.1hp +++|* CURRENT IN THE QUEUE. 02051 M00S01798.1hp +++|
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2468 |
Seq # *Modification Id* Act ----------------------------+ 02052 M01S00002.ns2468 +++| CPTA UNCT 02053 M01S00003.ns2468 +++| CRD CN 02054 M01S00004.ns2468 +++| LDD CN+3 02055 M01S00005.ns2468 +++| LMD CB 02056 M01S00006.ns2468 +++| NJN OVI1 IF CURRENT CBT ORDINAL CHANGED 02057 M00S01799.1hp +++| CCBA HSLK GET *PUT* ORDINAL FROM CBT ENTRY 02058 M00S01800.1hp +++| CRD CN 02059 M00S01801.1hp +++| LDD CN+4 02060 M00S01802.1hp +++| LMD PO 02061 M00S01803.1hp +++| NJN OVI1 IF *PUT* ORDINALS DO NOT MATCH 02062 M00S01804.1hp +++| CCBA PAD1 GET PHYSICAL ADDRESS FROM CBT ENTRY 02063 M00S01805.1hp +++| CRD CN 02064 M00S01806.1hp +++| LDD CN+1 02065 M00S01807.1hp +++| LMD CA+1 02066 M00S01808.1hp +++| NJN OVI1 IF NO CYLINDER MATCH 02067 M00S01809.1hp +++| LDD CA+2 TRACK 02068 M00S01810.1hp +++| SHN 6 02069 M00S01811.1hp +++| LMD CA+3 SECTOR 02070 M00S01812.1hp +++| LMD CN+2 02071 M00S01813.1hp +++| ZJN OVI1.1 IF BUFFER OK 02072 M00S01814.1hp +++| OVI1 RJM RPI RELEASE *PUT* INTERLOCK 02073 M00S01815.1hp +++| LDN 1 INDICATE VERIFICATION FAILURE 02074 M00S01816.1hp +++| OVI1.1 UJP OVIX RETURN 02075 M00S01817.1hp +++| PCH SPACE 4,20 02076 M00S01818.1hp +++|** PCH - PROCESS CHANNEL REQUEST. 02077 M00S01819.1hp +++|* 02078 M00S01820.1hp +++|* THIS ROUTINE IS CALLED TO ISSUE A READ, WRITE OR CONTINUE 02079 M00S01821.1hp +++|* FUNCTION TO THE CONTROLLER. 02080 M00S01822.1hp +++|* 02081 M00S01823.1hp +++|* ENTRY (A) = FUNCTION CODE. 02082 M00S01824.1hp +++|* (CD - CD+1) = EXTENDED MEMORY ADDRESS. 02083 M00S01825.1hp +++|* (CD+2 - CD+5) = SHORT PRU FLAGS IF WRITE REQUEST. 02084 M00S01826.1hp +++|* (RW) = READ/WRITE FLAG. 02085 M00S01827.1hp +++|* 02086 M00S01828.1hp +++|* EXIT (A) .EQ. 0 IF COMPLETED SUCCESSFULLY. 02087 M00S01829.1hp +++|* .LT. 0 IF FUNCTION TIMEOUT, INCOMPLETE DATA 02088 M00S01830.1hp +++|* TRANSFER OR CHANNEL FAILURE. 02089 M00S01831.1hp +++|* (EC) = COMPLEMENT OF *IDTE* ERROR CODE IF DATA 02090 M00S01832.1hp +++|* TRANSFER ERROR. 02091 M00S01833.1hp +++|* 02092 M00S01834.1hp +++|* USES EC. 02093 M00S01835.1hp +++|* 02094 M00S01836.1hp +++|* CALLS FNC. 02095 M00S01837.1hp +++| 02096 M00S01838.1hp +++| 02097 M00S01839.1hp +++| PCH3 LCN IDTE SET *INCOMPLETE DATA TRANSFER* ERROR CODE 02098 M00S01840.1hp +++| PCH4 STD EC 02099 M00S01841.1hp +++| 02100 M00S01842.1hp +++| PCH SUBR ENTRY/EXIT 02101 M00S01843.1hp +++| RJM FNC FUNCTION CHANNEL 02102 M00S01844.1hp +++| MJN PCHX IF ERROR 02103 M00S01845.1hp +++| LDC ** OUTPUT PARAMETERS 02104 M00S01846.1hp +++| PCHA EQU *-1 (PARAMETER BLOCK SIZE) 02105 M00S01847.1hp +++| OAM CD,CH 02106 M00S01848.1hp +++| NJN PCH3 IF INCOMPLETE DATA TRANSFER 02107 M00S01849.1hp +++| PCH1 EJM PCH2,CH IF LAST BYTE ACCEPTED 02108 M00S01850.1hp +++| SBN 1 02109 M00S01851.1hp +++| NJN PCH1 IF NOT TIMEOUT 02110 M00S01852.1hp +++| LCN CHFE SET *CHANNEL FAILURE* ERROR CODE 02111 M00S01853.1hp +++| UJN PCH4 SET ERROR CODE 02112 M00S01854.1hp +++| 02113 M00S01855.1hp +++| PCH2 DCN CH+40B 02114 M00S01856.1hp +++| LDN 0 SET REPLY = SUCCESSFUL 02115 M00S01857.1hp +++| UJN PCHX RETURN 02116 M00S01858.1hp +++| PDT SPACE 4,15 02117 M00S01859.1hp +++|** PDT - PROCESS DATA TRANSFER. 02118 M00S01860.1hp +++|* 02119 M00S01861.1hp +++|* THIS ROUTINE PREPARES FOR AND STARTS THE DATA TRANSFER WHEN A 02120 M00S01862.1hp +++|* REQUEST IS FOUND IN THE *PUT* AND THE SEEK HAS COMPLETED. IT 02121 M00S01863.1hp +++|* WILL CALL THE PROPER ROUTINE FOR THE DIRECTION OF THE I/O. 02122 M00S01864.1hp +++|* THIS ROUTINE WILL RETURN TO THE MAIN LOOP ONLY WHEN THE 02123 M00S01865.1hp +++|* TRANSFER CANNOT CONTINUE ON THE CURRENT UNIT. 02124 M00S01866.1hp +++|* 02125 M00S01867.1hp +++|* ENTRY (EC) = ERROR CODE, IF RECOVERY IS IN PROGRESS. 02126 M00S01868.1hp +++|* (PO) = *PUT* ORDINAL. 02127 M00S01869.1hp +++|* (RW) = READ/WRITE FLAG. 02128 M00S01870.1hp +++|* 02129 M00S01871.1hp +++|* USES NB, PB, PI, T1, T7, CD - CD+1, CN+2 - CN+4. 02130 M00S01872.1hp +++|* 02131 M00S01873.1hp +++|* CALLS ERR, OVI, RHR, RIO, RPI, WIO. 02132 M00S01874.1hp +++|* 02133 M00S01875.1hp +++|* MACROS CCBA. 02134 M00S01876.1hp +++| 02135 M00S01877.1hp +++| 02136 M00S01878.1hp +++| PDT SUBR ENTRY/EXIT 02137 M00S01879.1hp +++| LDM PDTB,RW STORE PARAMETER BLOCK LENGTH 02138 M00S01880.1hp +++| STM PCHA 02139 M00S01881.1hp +++| RJM OVI OBTAIN *PUT* INTERLOCK AND VERIFY BUFFER 02140 M00S01882.1hp +++| NJN PDT1 IF UNABLE TO INTERLOCK *PUT*/WRONG BUFFER 02141 M00S01883.1hp +++| STD NB CLEAR NEXT BUFFER ORDINAL 02142 M00S01884.1hp +++| STD PB CLEAR PREVIOUS BUFFER ORDINAL 02143 M00S01885.1hp +++| STD PI SET *PADN* WORD OFFSET 02144 M00S01886.1hp +++| LDM IICB,RW 02145 M00S01887.1hp +++| STM IICA 02146 M00S01888.1hp +++| LDM PDTA,RW STORE SUBROUTINE ADDRESS 02147 M00S01889.1hp +++| STD T1 02148 M00S01890.1hp +++| CCBA IOLK 02149 M00S01891.1hp +++| CRD CD-3 02150 M00S01892.1hp +++| ERRNZ CD-CN-5 CODE IS VALUE DEPENDENT 02151 M00S01893.1hp +++| LDN PPSLB SET SECTOR COUNT 02152 M00S01894.1hp +++| STD T7 02153 M00S01895.1hp +++| RJM 0,T1 ENTER DATA TRANSFER ROUTINE 02154 M00S01896.1hp +++| 02155 M00S01897.1hp +++|* CONTROL RETURNS HERE AFTER THE DATA TRANSFER IS COMPLETED. 02156 M00S01898.1hp +++| 02157 M00S01899.1hp +++| PDT1 RJM RHR RELEASE HARDWARE RESERVES 02158 M00S01900.1hp +++| ZJN PDT2 IF NO ERROR 02159 M00S01901.1hp +++| LDD EC 02160 M00S01902.1hp +++| NJN PDT2 IF ERROR RECOVERY IN PROGRESS 02161 M00S01903.1hp +++| RJM ERR CALL ERROR PROCESSOR 02162 M00S01904.1hp +++| 02163 M00S01905.1hp +++| PDT2 RJM RPI RELEASE *PUT* INTERLOCK 02164 M00S01906.1hp +++| UJP PDTX RETURN 02165 M00S01907.1hp +++| 02166 M00S01908.1hp +++| PDTA BSS 0 PROCESSOR ADDRESS TABLE 02167 M00S01909.1hp +++| CON RIO 02168 M00S01910.1hp +++| CON WIO 02169 M00S01911.1hp +++| 02170 M00S01912.1hp +++| PDTB BSS 0 PARAMETER BLOCK LENGTH TABLE 02171 M00S01913.1hp +++| CON FCRDL 02172 M00S01914.1hp +++| CON FCWRL 02173 M00S01915.1hp +++| PFR SPACE 4,15 02174 M00S01916.1hp +++|** PFR - PREPARE FOR RETRY ATTEMPT. 02175 M00S01917.1hp +++|* 02176 M00S01918.1hp +++|* THIS ROUTINE DOES WHATEVER IS NECESSARY TO PREPARE FOR THE 02177 M00S01919.1hp +++|* NEXT RETRY ATTEMPT. ITS DUTIES INCLUDE PLUGGING INSTRUCTIONS 02178 M00S01920.1hp +++|* TO FORCE RETURN TO THE ERROR PROCESSOR FOLLOWING RECOVERY. 02179 M00S01921.1hp +++|* 02180 M00S01922.1hp +++|* ENTRY (RW) = READ/WRITE FLAG. 02181 M00S01923.1hp +++|* 02182 M00S01924.1hp +++|* USES T1, T2. 02183 M00S01925.1hp +++| 02184 M00S01926.1hp +++| 02185 M00S01927.1hp +++| PFR SUBR ENTRY/EXIT 02186 M00S01928.1hp +++| LDD RW 02187 M00S01929.1hp +++| SHN 1 02188 M00S01930.1hp +++| STD T1 02189 M00S01931.1hp +++| LDM PFRA,T1 02190 M00S01932.1hp +++| STD T2 02191 M00S01933.1hp +++| LDM PFRA+1,T1 02192 M00S01934.1hp +++| STI T2 02193 M00S01935.1hp +++| UJN PFRX RETURN 02194 M00S01936.1hp +++| 02195 M00S01937.1hp +++| PFRA BSS 0 02196 M00S01938.1hp +++| CON RIOA,RIOX
| Line S01939 Modification History | |
|---|---|
M01 (Removed by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 02197 M01S01939.ns2454 ---| CON WIOA,WIOX
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 02198 M01S00015.ns2454 +++| CON WIOA,WIO6.1 02199 M00S01940.1hp +++| PRE SPACE 4,15 02200 M00S01941.1hp +++|** PRE - PRESET ERROR PROCESSOR. 02201 M00S01942.1hp +++|* 02202 M00S01943.1hp +++|* THIS ROUTINE PERFORMS OPERATIONS NECESSARY TO PREPARE THE 02203 M00S01944.1hp +++|* DRIVER FOR ERROR PROCESSOR EXECUTION. 02204 M00S01945.1hp +++|* 02205 M00S01946.1hp +++|* EXIT (A) = 0 IF ERROR PROCESSING SHOULD CONTINUE. 02206 M00S01947.1hp +++|* (RS) = RECOVERY STATUS. 02207 M00S01948.1hp +++|* (T5) = EST ORDINAL. 02208 M00S01949.1hp +++|* (TEPA) = 1 IF VERIFICATION/INTERLOCK REJECT. 02209 M00S01950.1hp +++|* 02210 M00S01951.1hp +++|* USES RS, T5, CM - CM+4. 02211 M00S01952.1hp +++|* 02212 M00S01953.1hp +++|* CALLS CRQ, OVI. 02213 M00S01954.1hp +++|* 02214 M00S01955.1hp +++|* MACROS CPTA. 02215 M00S01956.1hp +++| 02216 M00S01957.1hp +++| 02217 M00S01958.1hp +++| PRE2 AOM TEPA SET VERIFICATION/INTERLOCK REJECT FLAG 02218 M00S01959.1hp +++| STD RS FORCE EXIT TO *MST* 02219 M00S01960.1hp +++| 02220 M00S01961.1hp +++| PRE SUBR ENTRY/EXIT 02221 M00S01962.1hp +++| DCN CH+40 DISCONNECT CHANNEL IN CASE STILL ACTIVE 02222 M00S01963.1hp +++| LDM FNCA SAVE CURRENT FUNCTION 02223 M00S01964.1hp +++| STM BMLLF 02224 M00S01965.1hp +++| LCN 0 INITIALIZE RECOVERY STATUS 02225 M00S01966.1hp +++| STD RS
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 02226 M01S00024.ns2446 +++| LDD HN 02227 M01S00025.ns2446 +++| ERRNZ SOSF-100 CODE DEPENDS ON VALUE 02228 M01S00026.ns2446 +++| STM ISFA 02229 M00S01967.1hp +++| RJM OVI GET *PUT* INTERLOCK (IF NOT ALREADY HELD) 02230 M00S01968.1hp +++| NJN PRE2 IF INTERLOCK NOT OBTAINED 02231 M00S01969.1hp +++| CPTA UNCT GET EST ORDINAL 02232 M00S01970.1hp +++| CRD CM 02233 M00S01971.1hp +++| LDD CM+1 02234 M00S01972.1hp +++| STD T5 02235 M00S01973.1hp +++| PRE1 RJM CRQ ENSURE NO PENDING MONITOR FUNCTIONS 02236 M00S01974.1hp +++| NJN PRE1 IF FUNCTION STILL PENDING 02237 M00S01975.1hp +++| UJN PREX RETURN 02238 M00S01976.1hp +++| RCH SPACE 4,10 02239 M00S01977.1hp +++|** RCH - REQUEST CHANNEL. 02240 M00S01978.1hp +++|* 02241 M00S01979.1hp +++|* ENTRY (IR+4) = CHANNEL NUMBER. 02242 M00S01980.1hp +++|* (CS) = CHANNEL RESERVATION STATUS. 02243 M00S01981.1hp +++|* 02244 M00S01982.1hp +++|* EXIT (A) .NE. 0 IF CHANNEL ASSIGNED. 02245 M00S01983.1hp +++|* .EQ. 0 IF CHANNEL NOT ASSIGNED. 02246 M00S01984.1hp +++|* 02247 M00S01985.1hp +++|* USES CM+1, CS. 02248 M00S01986.1hp +++|* 02249 M00S01987.1hp +++|* MACROS MONITOR. 02250 M00S01988.1hp +++| 02251 M00S01989.1hp +++| 02252 M00S01990.1hp +++| RCH SUBR ENTRY/EXIT 02253 M00S01991.1hp +++| LDD CS 02254 M00S01992.1hp +++| LPN 1 02255 M00S01993.1hp +++| NJN RCHX IF CHANNEL ALREADY ASSIGNED 02256 M00S01994.1hp +++| LDD IR+4 02257 M00S01995.1hp +++| STD CM+1 02258 M00S01996.1hp +++| MONITOR CCHM 02259 M00S01997.1hp +++| LDD CM+2 02260 M00S01998.1hp +++| ZJN RCHX IF CHANNEL NOT ASSIGNED 02261 M00S01999.1hp +++| AOD CS SET CHANNEL RESERVATION FLAG 02262 M00S02000.1hp +++| UJN RCHX RETURN
| Line S02001 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02263 M01S02001.ns2507 ---| RCS SPACE 4,20 02264 M01S02002.ns2507 ---|** RCS - REMOVE CHANNEL FROM SYSTEM USE. 02265 M01S02003.ns2507 ---|* 02266 M01S02004.ns2507 ---|* THIS ROUTINE REMOVES A FAILING CHANNEL/CONTROLLER FROM
| Line S02005 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02267 M02S02005.ns2507 ---|* SYSTEM USE BY GLOBALLY DOWNING THE CHANNEL VIA A CALL TO 02268 M02S02006.ns2507 ---|* *1DS*. IT ATTEMPTS TO RELEASE UNITS CONNECTED TO THE 02269 M02S02007.ns2507 ---|* CONTROLLER TO MAKE THEM ACCESSIBLE THROUGH THE ALTERNATE 02270 M02S02008.ns2507 ---|* CHANNEL, IF ONE EXISTS.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02271 M02S00036.ns2507 ---|* SYSTEM USE AS A PATH TO A SPECIFIC DEVICE BY DOWNING THE 02272 M02S00037.ns2507 ---|* CHANNEL ON THAT DEVICE VIA A CALL TO *1DS*. IT ATTEMPTS TO 02273 M02S00038.ns2507 ---|* RELEASE UNITS CONNECTED TO THE CONTROLLER TO MAKE THEM 02274 M02S00039.ns2507 ---|* ACCESSIBLE THROUGH THE ALTERNATE CHANNEL, IF ONE EXISTS.
| Line S02009 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02275 M01S02009.ns2507 ---|* 02276 M01S02010.ns2507 ---|* ENTRY (CS) = CHANNEL/CONTROLLER RESERVATION STATUS.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02277 M02S00040.ns2507 ---|* (T5) = EST ORDINAL.
| Line S02011 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02278 M01S02011.ns2507 ---|*
| Line S02012 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02279 M02S02012.ns2507 ---|* USES EC, CM - CM+4.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02280 M02S00027.ns2507 ---|* USES EC, S2, CM - CM+4.
| Line S02013 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02281 M01S02013.ns2507 ---|* 02282 M01S02014.ns2507 ---|* CALLS FNC, RHR, 1DS. 02283 M01S02015.ns2507 ---|* 02284 M01S02016.ns2507 ---|* MACROS EXECUTE, MONITOR. 02285 M01S02017.ns2507 ---| 02286 M01S02018.ns2507 ---| 02287 M01S02019.ns2507 ---| RCS SUBR ENTRY/EXIT 02288 M01S02020.ns2507 ---| LDD CS 02289 M01S02021.ns2507 ---| LPN 10 02290 M01S02022.ns2507 ---| ZJN RCS1 IF CONTROLLER NOT RESERVED TO THIS ACCESS 02291 M01S02023.ns2507 ---| 02292 M01S02024.ns2507 ---|* BEFORE DOWNING THE CHANNEL A ZERO WORD AUTOLOAD FUNCTION IS 02293 M01S02025.ns2507 ---|* ISSUED TO PLACE THE CONTROLLER IN ITS IDLE LOOP. THIS MAY BE 02294 M01S02026.ns2507 ---|* NECESSARY SINCE A CONTROLLER MEMORY ERROR CAN HANG THE 02295 M01S02027.ns2507 ---|* PROCESSOR, PREVENTING PROCESSING OF THE *OPERATION COMPLETE* 02296 M01S02028.ns2507 ---|* FUNCTION, RESULTING IN DRIVES RESERVED TO THE DOWN 02297 M01S02029.ns2507 ---|* CONTROLLER. 02298 M01S02030.ns2507 ---| 02299 M01S02031.ns2507 ---| LDK FCAL ISSUE AUTOLOAD FUNCTION 02300 M01S02032.ns2507 ---| RJM FNC 02301 M01S02033.ns2507 ---| PJN RCS1 IF FUNCTION WAS ACCEPTED 02302 M01S02034.ns2507 ---| LDN CSTE SET *CONTROLLER STOP* ERROR CODE 02303 M01S02035.ns2507 ---| STD EC 02304 M01S02036.ns2507 ---| UJN RCS2 CONTINUE 02305 M01S02037.ns2507 ---| 02306 M01S02038.ns2507 ---| RCS1 DCN CH+40 02307 M01S02039.ns2507 ---| RCS2 RJM RHR RELEASE HARDWARE RESERVES 02308 M01S02040.ns2507 ---|
| Line S02041 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02309 M02S02041.ns2507 ---|* CALL *1DS* TO GLOBALLY DOWN THE CHANNEL.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02310 M02S00041.ns2507 ---|* CALL *1DS* TO DOWN THE CHANNEL ON THE DEVICE.
| Line S02042 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02311 M01S02042.ns2507 ---|
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02312 M02S00042.ns2507 ---| LDD T5 STORE EST ORDINAL IN *1DS* CALL 02313 M02S00043.ns2507 ---| LMC 4000 SET DRIVER CALL FLAG 02314 M02S00044.ns2507 ---| STM RCSA+4
| Line S02043 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02315 M01S02043.ns2507 ---| LDD MA PLACE *1DS* REQUEST IN MESSAGE BUFFER 02316 M01S02044.ns2507 ---| CWM RCSA,ON 02317 M01S02045.ns2507 ---| LDN 0
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02318 M02S00028.ns2507 ---| STD S2 INITIALIZE RETRY COUNT
| Line S02046 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02319 M01S02046.ns2507 ---| RCS3 STD CM+1 02320 M01S02047.ns2507 ---| EXECUTE 1DS,= 02321 M01S02048.ns2507 ---| MONITOR RPPM CALL *1DS* 02322 M01S02049.ns2507 ---| LDD CM+1 02323 M01S02050.ns2507 ---| NJP RCSX IF PP ASSIGNED
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02324 M02S00029.ns2507 ---| AOD S2 INCREMENT RETRY COUNT 02325 M02S00030.ns2507 ---| LMK PCRL 02326 M02S00031.ns2507 ---| ZJP RCSX IF RETRY LIMIT 02327 M02S00032.ns2507 ---| LDN 0
| Line S02051 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02328 M01S02051.ns2507 ---| UJN RCS3 RETRY *1DS* CALL 02329 M01S02052.ns2507 ---|
| Line S02053 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02330 M02S02053.ns2507 ---| RCSA VFD 18/3L1DS,6/,6/0,6/CDCF,12/0,12/0
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02331 M02S00045.ns2507 ---| RCSA VFD 18/3L1DS,6/,12/DWNF,12/0,12/4000 02332 M00S02054.1hp +++| RHR SPACE 4,10 02333 M00S02055.1hp +++|** RHR - RELEASE HARDWARE RESERVES. 02334 M00S02056.1hp +++|* 02335 M00S02057.1hp +++|* ENTRY (CS) = CHANNEL STATUS. 02336 M00S02058.1hp +++|* 02337 M00S02059.1hp +++|* EXIT (A) = 0 IF NO ERROR. 02338 M00S02060.1hp +++|* 02339 M00S02061.1hp +++|* USES CS, S1. 02340 M00S02062.1hp +++|* 02341 M00S02063.1hp +++|* CALLS FNC. 02342 M00S02064.1hp +++| 02343 M00S02065.1hp +++| 02344 M00S02066.1hp +++| RHR SUBR ENTRY/EXIT 02345 M00S02067.1hp +++| LDD CS 02346 M00S02068.1hp +++| LPN 10 02347 M00S02069.1hp +++| ZJN RHRX IF CONTROLLER NOT RESERVED 02348 M00S02070.1hp +++| LDN FCOC ISSUE *OPERATION COMPLETE* FUNCTION 02349 M00S02071.1hp +++| RJM FNC 02350 M00S02072.1hp +++| SHN 0-21 SAVE ERROR STATUS 02351 M00S02073.1hp +++| STD S1 02352 M00S02074.1hp +++| DCN CH+40 02353 M00S02075.1hp +++| LCN 10 CLEAR CONTROLLER RESERVE FLAG 02354 M00S02076.1hp +++| RAD CS 02355 M00S02077.1hp +++| LDD S1 SET REPLY STATUS 02356 M00S02078.1hp +++| UJN RHRX RETURN 02357 M00S02079.1hp +++| RIO SPACE 4,15 02358 M00S02080.1hp +++|** RIO - PERFORM READ OPERATION. 02359 M00S02081.1hp +++|* 02360 M00S02082.1hp +++|* ENTRY (CB) = CURRENT BUFFER ORDINAL. 02361 M00S02083.1hp +++|* (CD - CD+1) = BUFFER ADDRESS. 02362 M00S02084.1hp +++|* (NB) = 0. 02363 M00S02085.1hp +++|* (PB) = 0. 02364 M00S02086.1hp +++|* (PI) = 0. 02365 M00S02087.1hp +++|* (T7) = *PPSLB*. 02366 M00S02088.1hp +++|* 02367 M00S02089.1hp +++|* EXIT (PB) = ORDINAL OF LAST BUFFER PROCESSED. 02368 M00S02090.1hp +++|* 02369 M00S02091.1hp +++|* USES CB, PB, PI, T7, CD - CD+1, CM - CM+4, CN+2 - CN+4. 02370 M00S02092.1hp +++|* 02371 M00S02093.1hp +++|* CALLS CCS, CRQ, ERR, GGS, IIC, PCH. 02372 M00S02094.1hp +++|* 02373 M00S02095.1hp +++|* MACROS CCBA. 02374 M00S02096.1hp +++| 02375 M00S02097.1hp +++| 02376 M00S02098.1hp +++| RIO SUBR ENTRY/EXIT 02377 M00S02099.1hp +++| RIO1 LDN FCRD ISSUE READ FUNCTION 02378 M00S02100.1hp +++| RJM PCH 02379 M00S02101.1hp +++| MJN RIO4 IF ERROR 02380 M00S02102.1hp +++| RJM IIC CHECK FOR NEED TO ISSUE COMPLETION REQUEST 02381 M00S02103.1hp +++| LDD T7 02382 M00S02104.1hp +++| LPN 1 02383 M00S02105.1hp +++| ZJN RIO3 IF FIRST SECTOR OF CONTROL WORD 02384 M00S02106.1hp +++| CCBA PAD1 UPDATE PRU FLAGS 02385 M00S02107.1hp +++| ADD PI 02386 M00S02108.1hp +++| CRD CM 02387 M00S02109.1hp +++| LDM GGSA+3 02388 M00S02110.1hp +++| STD CM+3 02389 M00S02111.1hp +++| LDM GGSA+4 UPDATE LINKAGE BYTE 02390 M00S02112.1hp +++| STD CM+4 02391 M00S02113.1hp +++| CCBA PAD1 02392 M00S02114.1hp +++| ADD PI 02393 M00S02115.1hp +++| CWD CM 02394 M00S02116.1hp +++| AOD PI INCREMENT *PADN* WORD OFFSET 02395 M00S02117.1hp +++| RIO3 RJM CCS CHECK FOR CONSECUTIVE REQUEST 02396 M00S02118.1hp +++| RJM GGS GET GENERAL STATUS 02397 M00S02119.1hp +++| ZJN RIO5 IF NO ERROR 02398 M00S02120.1hp +++| RIO4 RJM ERR PROCESS ERROR 02399 M00S02121.1hp +++| RIO5 AOD CA+3 ADVANCE CURRENT POSITION 02400 M00S02122.1hp +++| LMN PSPT 02401 M00S02123.1hp +++| NJN RIO6 IF NOT END OF TRACK 02402 M00S02124.1hp +++| STD CA+3 RESET TO SECTOR 0 02403 M00S02125.1hp +++| AOD CA+2 ADVANCE TO NEXT TRACK 02404 M00S02126.1hp +++| RIO6 SOD T7 DECREMENT SECTOR COUNT 02405 M00S02127.1hp +++| ZJN RIO7 IF FINISHED WITH BUFFER 02406 M00S02128.1hp +++| LDC EMAI INCREMENT EXTENDED MEMORY ADDRESS 02407 M00S02129.1hp +++| RAD CD+1 02408 M00S02130.1hp +++| SHN -14 02409 M00S02131.1hp +++| RAD CD 02410 M00S02132.1hp +++| LJM RIO1 READ NEXT SECTOR 02411 M00S02133.1hp +++| 02412 M00S02134.1hp +++| RIO7 STD PI RESET *PADN* WORD OFFSET 02413 M00S02135.1hp +++| RJM CCS CHECK FOR CONSECUTIVE REQUEST 02414 M00S02136.1hp +++| LDD CB ADVANCE BUFFER POINTERS 02415 M00S02137.1hp +++| STD PB 02416 M00S02138.1hp +++| LDD NB 02417 M00S02139.1hp +++| STD CB 02418 M00S02140.1hp +++| ZJP RIOX IF NO CONSECUTIVE REQUEST FOUND 02419 M00S02141.1hp +++| CCBA IOLK,A INITIALIZE EXTENDED MEMORY ADDRESS 02420 M00S02142.1hp +++| CRD CD-3 02421 M00S02143.1hp +++| ERRNZ CD-CN-5 CODE IS VALUE DEPENDENT 02422 M00S02144.1hp +++| LDN PPSLB RESET SECTOR COUNT 02423 M00S02145.1hp +++| STD T7 02424 M00S02146.1hp +++| LDN 0 CLEAR NEXT BUFFER ORDINAL 02425 M00S02147.1hp +++| STD NB 02426 M00S02148.1hp +++| LJM RIO1 CONTINUE TRANSFER 02427 M00S02149.1hp +++|* LJM RIOX (ERROR RECOVERY IN PROGRESS) 02428 M00S02150.1hp +++| RIOA EQU *-1 02429 M00S02151.1hp +++| RLC SPACE 4,15 02430 M00S02152.1hp +++|** RLC - RELOAD CONTROLWARE. 02431 M00S02153.1hp +++|*
| Line S02154 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02432 M01S02154.ns2507 ---|* THIS ROUTINE CALLS *1DS* TO INITIATE THE CONTROLWARE 02433 M01S02155.ns2507 ---|* RELOAD. IT WILL TIME OUT AFTER *CRTO* SECONDS.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02434 M01S00005.ns2507 +++|* THIS ROUTINE CALLS *1DS* TO INITIATE THE CONTROLWARE RELOAD. 02435 M00S02156.1hp +++|* 02436 M00S02157.1hp +++|* EXIT (A) = 0 IF CONTROLWARE RELOADED. 02437 M00S02158.1hp +++|*
| Line S02159 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 02438 M01S02159.ns2446 ---|* USES CM - CM+4, CN - CN+4.
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 02439 M01S00033.ns2446 +++|* USES S2, CM - CM+4, CN - CN+4. 02440 M00S02160.1hp +++|* 02441 M00S02161.1hp +++|* CALLS *1DS*. 02442 M00S02162.1hp +++|* 02443 M00S02163.1hp +++|* MACROS DELAY, EXECUTE, MONITOR. 02444 M00S02164.1hp +++| 02445 M00S02165.1hp +++| 02446 M00S02166.1hp +++| RLC6 LDN 1 INDICATE CONTROLWARE NOT RELOADED 02447 M00S02167.1hp +++| 02448 M00S02168.1hp +++| RLC SUBR ENTRY/EXIT
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02449 M01S00006.ns2507 +++| LDC ** 02450 M01S00007.ns2507 +++| RLCJ EQU *-1 02451 M01S00008.ns2507 +++| NJN RLCX IF RELOAD WAS ALREADY ATTEMPTED 02452 M00S02169.1hp +++| LDK DSSL AVOID CONTROLWARE LOAD DURING DEADSTART 02453 M00S02170.1hp +++| CRD CM 02454 M00S02171.1hp +++| LDD CM+4 02455 M00S02172.1hp +++| LPN 4 02456 M00S02173.1hp +++| NJN RLCX IF DEADSTART IN PROGRESS 02457 M00S02174.1hp +++| LDC ** READ CONTROLWARE TABLE 02458 M00S02175.1hp +++| RLCA EQU *-1 CM ADDRESS OF TABLE ENTRY 02459 M00S02176.1hp +++| CRD CM 02460 M00S02177.1hp +++| LDD CM+** 02461 M00S02178.1hp +++| RLCB EQU *-1 BYTE ADDRESS OF TABLE ENTRY
| Line S02179 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02462 M01S02179.ns2507 ---| SHN -6
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02463 M01S00009.ns2507 +++| SHN 21-13 02464 M01S00010.ns2507 +++| MJN RLCX IF RELOAD IN PROGRESS 02465 M01S00011.ns2507 +++| SHN 13-21-6 02466 M00S02180.1hp +++| LPN 7 CONTROLWARE LOAD COUNT 02467 M00S02181.1hp +++| LMK CRTH 02468 M00S02182.1hp +++| ZJN RLC6 IF RELOAD LIMIT REACHED
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02469 M01S00012.ns2507 +++| AOM RLCJ SET RELOAD ATTEMPTED FLAG 02470 M00S02183.1hp +++| 02471 M00S02184.1hp +++|* SET RELOAD REQUEST BIT IN CONTROLWARE TABLE. 02472 M00S02185.1hp +++| 02473 M00S02186.1hp +++| LDN 0 02474 M00S02187.1hp +++| STD CM+2 02475 M00S02188.1hp +++| LDD MA MESSAGE BUFFER ADDRESS 02476 M00S02189.1hp +++| CWM RLCG,ON REQUEST WORD 02477 M00S02190.1hp +++| LDC ** 02478 M00S02191.1hp +++| RLCC EQU *-1 ADDRESS OF CONTROLWARE TABLE ENTRY 02479 M00S02192.1hp +++| STD CM+4 02480 M00S02193.1hp +++| SHN -14 02481 M00S02194.1hp +++| STD CM+3 02482 M00S02195.1hp +++| LDN 1 NUMBER OF REQUESTS TO PROCESS 02483 M00S02196.1hp +++| STD CM+1 02484 M00S02197.1hp +++| MONITOR UTEM
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 02485 M01S00034.ns2446 +++|* LDN 0 INITIALIZE RETRY COUNT 02486 M01S00035.ns2446 +++| STD S2 02487 M00S02198.1hp +++| 02488 M00S02199.1hp +++|* CALL *1DS* TO INITIATE CONTROLWARE LOAD JOB. 02489 M00S02200.1hp +++| 02490 M00S02201.1hp +++| RLC1 DELAY 02491 M00S02202.1hp +++| LDD MA MESSAGE BUFFER ADDRESS 02492 M00S02203.1hp +++| CWM RLCH,ON *1DS* REQUEST 02493 M00S02204.1hp +++| EXECUTE 1DS,= 02494 M00S02205.1hp +++| MONITOR RPPM REQUEST PP 02495 M00S02206.1hp +++| LDD CM+1
| Line S02207 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 02496 M01S02207.ns2446 ---| ZJN RLC1 IF NO PP AVAILABLE 02497 M01S02208.ns2446 ---| LDC RTCL GET REAL TIME CLOCK
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02498 M02S00036.ns2507 ---| NJN RLC1.1 IF PP ASSIGNED
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02499 M01S00013.ns2507 +++| NJN RLC2 IF PP ASSIGNED
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 02500 M01S00037.ns2446 +++| AOD S2 INCREMENT RETRY COUNT 02501 M01S00038.ns2446 +++| LMK PCRL
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02502 M02S00039.ns2507 ---| ZJN RLC3 IF RETRY LIMIT 02503 M02S00040.ns2507 ---| UJN RLC1 RETRY 02504 M02S00041.ns2507 ---| 02505 M02S00042.ns2507 ---| RLC1.1 LDK RTCL GET REAL TIME CLOCK
| Line S02209 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02506 M01S02209.ns2507 ---| CRD CN 02507 M01S02210.ns2507 ---| LDC CRTO TIME TO WAIT (IN SECONDS) 02508 M01S02211.ns2507 ---| RAD CN+1 SET TARGET TIME 02509 M01S02212.ns2507 ---| SHN -14 02510 M01S02213.ns2507 ---| RAD CN 02511 M01S02214.ns2507 ---| RLC2 DELAY 1000D*8D DELAY FOR ONE SECOND 02512 M01S02215.ns2507 ---| LDC RTCL READ REAL-TIME CLOCK 02513 M01S02216.ns2507 ---| CRD CM 02514 M01S02217.ns2507 ---| LDD CM COMPARE CURRENT AGAINST TARGET TIME 02515 M01S02218.ns2507 ---| SBD CN 02516 M01S02219.ns2507 ---| MJN RLC5 IF NOT TIMEOUT 02517 M01S02220.ns2507 ---| ZJN RLC4 IF NOT TIMEOUT 02518 M01S02221.ns2507 ---| RLC3 LJM RLC6 RETURN 02519 M01S02222.ns2507 ---| 02520 M01S02223.ns2507 ---| RLC4 LDD CM+1 02521 M01S02224.ns2507 ---| SBD CN+1 02522 M01S02225.ns2507 ---| PJN RLC3 IF TIMEOUT 02523 M01S02226.ns2507 ---| RLC5 LDC ** CHECK FOR CONTROLWARE LOAD COMPLETE 02524 M01S02227.ns2507 ---| RLCD EQU *-1 02525 M01S02228.ns2507 ---| CRD CM 02526 M01S02229.ns2507 ---| LDD CM+** 02527 M01S02230.ns2507 ---| RLCE EQU *-1 BYTE ADDRESS OF ENTRY 02528 M01S02231.ns2507 ---| SHN 0-13 02529 M01S02232.ns2507 ---| NJN RLC2 IF LOAD NOT COMPLETE 02530 M01S02233.ns2507 ---| LJM RLCX RETURN
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 02531 M01S00014.ns2507 +++| NJN RLC1 IF NOT RETRY LIMIT 02532 M01S00015.ns2507 +++| RLC2 LJM RLCX RETURN 02533 M00S02234.1hp +++| 02534 M00S02235.1hp +++| 02535 M00S02236.1hp +++| RLCG VFD 1/0,5/0,6/1,6/,42/1 *UTEM* REQUEST 02536 M00S02237.1hp +++| RLCH VFD 18/3L1DS,6/,12/ILJF,24/0 *1DS* REQUEST 02537 M00S02238.1hp +++| RPI SPACE 4,10 02538 M00S02239.1hp +++|** RPI - RELEASE *PUT* INTERLOCK. 02539 M00S02240.1hp +++|* 02540 M00S02241.1hp +++|* ENTRY (CC) = COMPLETION COUNT. 02541 M00S02242.1hp +++|* (IL) = *PUT* INTERLOCK FLAG. 02542 M00S02243.1hp +++|* (PB) = PREVIOUS BUFFER ORDINAL. 02543 M00S02244.1hp +++|* (PO) = *PUT* ORDINAL. 02544 M00S02245.1hp +++|* (TB) = TOTAL CBT COUNT. 02545 M00S02246.1hp +++|* 02546 M00S02247.1hp +++|* USES CC, IL, PB, CM - CM+4. 02547 M00S02248.1hp +++|* 02548 M00S02249.1hp +++|* MACROS MONITOR. 02549 M00S02250.1hp +++| 02550 M00S02251.1hp +++| 02551 M00S02252.1hp +++| RPI SUBR ENTRY/EXIT 02552 M00S02253.1hp +++| LDD IL 02553 M00S02254.1hp +++| ZJN RPIX IF *PUT* NOT INTERLOCKED 02554 M00S02255.1hp +++| LDD TB SET TOTAL BUFFER COUNT 02555 M00S02256.1hp +++| STD CM+4 02556 M00S02257.1hp +++| LDD PB 02557 M00S02258.1hp +++| ZJN RPI1 IF NO PREVIOUS BUFFER 02558 M00S02259.1hp +++| LDN 1 ACCOUNT FOR PREVIOUS BUFFER 02559 M00S02260.1hp +++| RPI1 ADD CC 02560 M00S02261.1hp +++| LMC 4000 SET *RELEASE INTERLOCK* FLAG 02561 M00S02262.1hp +++| STD CM+3 02562 M00S02263.1hp +++| LDD PO 02563 M00S02264.1hp +++| STD CM+2 02564 M00S02265.1hp +++| LDN DCBS CLEAR UNIT INTERLOCK 02565 M00S02266.1hp +++| STD CM+1 02566 M00S02267.1hp +++| LDN 0 CLEAR COMPLETION COUNT BEFORE *CRQ* CALL 02567 M00S02268.1hp +++| STD CC 02568 M00S02269.1hp +++| MONITOR BIOM 02569 M00S02270.1hp +++|* LDN 0 02570 M00S02271.1hp +++| STD IL CLEAR *PUT* INTERLOCK FLAG 02571 M00S02272.1hp +++| STD PB CLEAR PREVIOUS BUFFER ORDINAL 02572 M00S02273.1hp +++| LDC CREQ UPDATE *CCT* TABLE 02573 M00S02274.1hp +++| RPIA EQU *-2 (*CCT* FWA SET BY *PRS*) 02574 M00S02275.1hp +++| CWD IL 02575 M00S02276.1hp +++| UJP RPIX RETURN
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02576 M01S00046.252l678 +++| RTM SPACE 4,25 02577 M01S00047.252l678 +++|** RTM - REQUEST TRACK FLAW IF MEDIA ERROR. 02578 M01S00048.252l678 +++|* 02579 M01S00049.252l678 +++|* THIS ROUTINE DETERMINES IF THE ERROR RESULTED FROM A MEDIA 02580 M01S00050.252l678 +++|* FAILURE. IF IT DID, *CPUMTR* WILL BE CALLED TO PLACE THE 02581 M01S00051.252l678 +++|* LOGICAL TRACK NUMBER IN THE MST SO *1MV* CAN PERFORM A MEDIA 02582 M01S00052.252l678 +++|* VERIFICATION WHEN THE TRACK IS RELEASED. AN ERROR LOG 02583 M01S00053.252l678 +++|* MESSAGE IS ISSUED INFORMING THE OPERATOR THAT A MEDIA FAILURE 02584 M01S00054.252l678 +++|* OCCURRED BUT THE TRACK HAS NOT YET BEEN FLAWED BY THE SYSTEM. 02585 M01S00055.252l678 +++|* 02586 M01S00056.252l678 +++|* ENTRY (CA - CA+3) = PHYSICAL ADDRESS. 02587 M01S00057.252l678 +++|* (CB) = BUFFER ORDINAL. 02588 M01S00058.252l678 +++|* (EC) = ERROR CODE. 02589 M01S00059.252l678 +++|* (T5) = EST ORDINAL. 02590 M01S00060.252l678 +++|* 02591 M01S00061.252l678 +++|* USES T1, CM - CM+4. 02592 M01S00062.252l678 +++|*
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02593 M02S00063.ns2769 ---|* CALLS C2D, C4D, IMS.
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02594 M01S00123.ns2769 +++|* CALLS C2D, IMB.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02595 M01S00064.252l678 +++|* 02596 M01S00065.252l678 +++|* MACROS MONITOR. 02597 M01S00066.252l678 +++| 02598 M01S00067.252l678 +++| 02599 M01S00068.252l678 +++| RTM SUBR ENTRY/EXIT 02600 M01S00069.252l678 +++| LDD EC 02601 M01S00070.252l678 +++| LMK PARE 02602 M01S00071.252l678 +++| NJN RTMX IF NOT MEDIA ERROR 02603 M01S00072.252l678 +++| LDD T5 CONVERT AND STORE EST ORDINAL IN MESSAGE 02604 M01S00073.252l678 +++| SHN -3 02605 M01S00074.252l678 +++| RJM C2D 02606 M01S00075.252l678 +++| STM RTMB+1 02607 M01S00076.252l678 +++| LDD T5
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2505 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02608 M02S00001.253l688 ---| STD CM+1 STORE EST ORDINAL FOR *STBM*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02609 M01S00002.253l688 +++| STD CM+1 STORE EST ORDINAL FOR *SMDM*
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02610 M01S00077.252l678 +++| LPN 7 02611 M01S00078.252l678 +++| SHN 6 02612 M01S00079.252l678 +++| ADC 2R0, 02613 M01S00080.252l678 +++| STM RTMB+2 02614 M01S00081.252l678 +++| LDD CA+1 COMPUTE LOGICAL TRACK 02615 M01S00082.252l678 +++| SHN 1 02616 M01S00083.252l678 +++| ADC 4000 02617 M01S00084.252l678 +++| STD CM+2 02618 M01S00085.252l678 +++| LDD CA+2 PHYSICAL TRACK 02619 M01S00086.252l678 +++| LPN 77 02620 M01S00087.252l678 +++| SHN 5 02621 M01S00088.252l678 +++| ERRNZ PSPT-40 CODE DEPENDS ON VALUE 02622 M01S00089.252l678 +++| ADD CA+3 02623 M01S00090.252l678 +++| SBK PSLTDB 02624 M01S00091.252l678 +++| MJN RTM1 IF FIRST LOGICAL TRACK OF CYLINDER 02625 M01S00092.252l678 +++| AOD CM+2
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02626 M02S00093.ns2769 ---| RTM1 LDC RTMB+4 CONVERT AND STORE TRACK NUMBER IN MESSAGE 02627 M02S00094.ns2769 ---| STD T1 02628 M02S00095.ns2769 ---| LDD CM+2 02629 M02S00096.ns2769 ---| RJM C4D
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02630 M01S00124.ns2769 +++| RTM1 LDD CM+2 02631 M01S00125.ns2769 +++| SHN -6 CONVERT UPPER 6 BITS 02632 M01S00126.ns2769 +++| RJM C2D 02633 M01S00127.ns2769 +++| STM RTMB+4 STORE RESULT IN DISPLAY BUFFER 02634 M01S00128.ns2769 +++| LDD CM+2 CONVERT LOWER 6 BITS 02635 M01S00129.ns2769 +++| LPN 77 02636 M01S00130.ns2769 +++| RJM C2D 02637 M01S00131.ns2769 +++| STM RTMB+5 STORE RESULT IN DISPLAY BUFFER
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02638 M01S00097.252l678 +++| LDK SFTS SET SUBFUNCTION 02639 M01S00098.252l678 +++| STD CM+3
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02640 M02S00099.253l688 ---| MONITOR STBM
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02641 M01S00003.253l688 +++| MONITOR SMDM
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02642 M01S00100.252l678 +++| LDD CM+1 02643 M01S00101.252l678 +++| NJN RTM2 IF THIS TRACK FLAW ALREADY REQUESTED
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02644 M02S00102.271l716 ---| LDC RTML*10000+RTMA ISSUE ERROR LOG MESSAGE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02645 M02S00003.ns2769 ---| LDC RTMAL*10000+RTMA ISSUE ERROR LOG MESSAGE
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02646 M02S00103.ns2769 ---| RJM IMS
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02647 M01S00132.ns2769 +++| LDC RTMA ISSUE ERROR LOG MESSAGE 02648 M01S00133.ns2769 +++| RJM IMB
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02649 M01S00104.252l678 +++| RTM2 UJP RTMX RETURN 02650 M01S00105.252l678 +++| 02651 M01S00106.252l678 +++|
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02652 M02S00107.271l716 ---|* ERROR LOG MESSAGE HEADER. 02653 M02S00108.271l716 ---| 02654 M02S00109.271l716 ---| RTMA VFD 36/0 RESERVED 02655 M02S00110.271l716 ---| VFD 12/RTML MESSAGE LENGTH INCLUDING HEADER 02656 M02S00111.271l716 ---| VFD 12/ELDY 02657 M02S00112.271l716 ---| 02658 M02S00113.271l716 ---| RTMB DATA C*EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED* 02659 M02S00114.271l716 ---| 02660 M02S00115.271l716 ---| .1 SET *+4-RTMA 02661 M02S00116.271l716 ---| RTML EQU .1/5 MESSAGE LENGTH
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02662 M01S00004.271l716 +++| RTMA VFD 24/0 RESERVED 02663 M01S00005.271l716 +++| VFD 12/1 ERRLOG ALERT FLAG 02664 M01S00006.271l716 +++| VFD 12/RTMAL MESSAGE LENGTH 02665 M01S00007.271l716 +++| VFD 12/ELDY ERRLOG DAYFILE 02666 M01S00008.271l716 +++| 02667 M01S00009.271l716 +++| RTMB DATA C*EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED.* 02668 M01S00010.271l716 +++| 02669 M01S00011.271l716 +++| .1 SET *-RTMA+4 02670 M01S00012.271l716 +++| RTMAL EQU .1/5 02671 M00S02277.1hp +++| SCD SPACE 4,15 02672 M00S02278.1hp +++|** SCD - SET DRIVER DROPPED FLAG. 02673 M00S02279.1hp +++|* 02674 M00S02280.1hp +++|* THIS ROUTINE SETS A FLAG IN THE CONTROLWARE TABLE INDICATING 02675 M00S02281.1hp +++|* THAT THE DRIVER OF THIS CHANNEL HAS DROPPED. 02676 M00S02282.1hp +++|* 02677 M00S02283.1hp +++|* EXIT (A) = 0. 02678 M00S02284.1hp +++|* 02679 M00S02285.1hp +++|* USES CM+1 - CM+4. 02680 M00S02286.1hp +++|* 02681 M00S02287.1hp +++|* MACROS MONITOR. 02682 M00S02288.1hp +++| 02683 M00S02289.1hp +++| 02684 M00S02290.1hp +++| SCD SUBR ENTRY/EXIT 02685 M00S02291.1hp +++| LDD MA STORE *UTEM* PARAMETERS 02686 M00S02292.1hp +++| CWM SCDB,ON 02687 M00S02293.1hp +++| LDC ** 02688 M00S02294.1hp +++| SCDA EQU *-1 (CONTROLWARE TABLE ADDRESS) 02689 M00S02295.1hp +++| STD CM+4 02690 M00S02296.1hp +++| SHN -14 02691 M00S02297.1hp +++| STD CM+3 02692 M00S02298.1hp +++| LDN 1 02693 M00S02299.1hp +++| STD CM+1 02694 M00S02300.1hp +++| LDN 0 02695 M00S02301.1hp +++| STD CM+2 02696 M00S02302.1hp +++| MONITOR UTEM SET DRIVER DROP FLAG 02697 M00S02303.1hp +++| UJN SCDX RETURN 02698 M00S02304.1hp +++| 02699 M00S02305.1hp +++| SCDB VFD 1/0,5/0,6/1,6/,42/1 02700 M00S02306.1hp +++| SSF SPACE 4,15 02701 M00S02307.1hp +++|** SSF - SET SUSPECT FLAG. 02702 M00S02308.1hp +++|* 02703 M00S02309.1hp +++|* THIS ROUTINE SETS THE SUSPECT FLAG IN THE MST ENTRY VIA 02704 M00S02310.1hp +++|* AN *SEQM* MONITOR FUNCTION IF CERTAIN CRITERIA ARE MET. IT 02705 M00S02311.1hp +++|* ALSO SETS AN ERROR CODE IN THE MST THAT APPEARS ON THE *E,M* 02706 M00S02312.1hp +++|* DISPLAY. 02707 M00S02313.1hp +++|* 02708 M00S02314.1hp +++|* ENTRY (EC) = ERROR CODE. 02709 M00S02315.1hp +++|* (RC) = RETRY COUNT. 02710 M00S02316.1hp +++|* (T5) = EST ORDINAL. 02711 M00S02317.1hp +++|* 02712 M00S02318.1hp +++|* USES CM+1 - CM+3. 02713 M00S02319.1hp +++|*
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02714 M01S00117.252l678 +++|* CALLS RTM. 02715 M01S00118.252l678 +++|* 02716 M00S02320.1hp +++|* MACROS MONITOR. 02717 M00S02321.1hp +++| 02718 M00S02322.1hp +++| 02719 M00S02323.1hp +++| SSF SUBR ENTRY/EXIT 02720 M00S02324.1hp +++| LDD RC 02721 M00S02325.1hp +++| LMK SURT 02722 M00S02326.1hp +++| NJN SSFX IF NOT TIME TO SET SUSPECT FLAG
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02723 M01S00119.252l678 +++| RJM RTM CHECK FOR MEDIA FAILURE 02724 M00S02327.1hp +++| LDM TEPF,EC 02725 M00S02328.1hp +++| SHN 21-7 02726 M00S02329.1hp +++| PJN SSFX IF SUSPECT FLAG NOT TO BE SET 02727 M00S02330.1hp +++| LDD T5 SET SUSPECT FLAG 02728 M00S02331.1hp +++| STD CM+1 02729 M00S02332.1hp +++| LDN SSES 02730 M00S02333.1hp +++| STD CM+2 02731 M00S02334.1hp +++| MONITOR SEQM 02732 M00S02335.1hp +++| LDD T5 SET ERROR CODE IN MST 02733 M00S02336.1hp +++| STD CM+1 02734 M00S02337.1hp +++| LDN STDE 02735 M00S02338.1hp +++| STD CM+2 02736 M00S02339.1hp +++| LDN SERS 02737 M00S02340.1hp +++| STD CM+3
| Line S02341 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02738 M01S02341.253l688 ---| MONITOR STBM
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02739 M01S00004.253l688 +++| MONITOR SMDM 02740 M00S02342.1hp +++| UJN SSFX RETURN 02741 M00S02343.1hp +++| SUQ SPACE 4,15 02742 M00S02344.1hp +++|** SUQ - SCAN UNIT QUEUE. 02743 M00S02345.1hp +++|* 02744 M00S02346.1hp +++|* THIS ROUTINE SCANS THE *PUT* ENTRIES OF UNITS ACCESSED BY 02745 M00S02347.1hp +++|* THIS CHANNEL UNTIL IT HAS SCANNED THE ENTIRE TABLE OR FINDS 02746 M00S02348.1hp +++|* AN ENTRY ELIGIBLE FOR PROCESSING. 02747 M00S02349.1hp +++|* 02748 M00S02350.1hp +++|* ENTRY (TI) = CURRENT *TPOR* INDEX. 02749 M00S02351.1hp +++|* 02750 M00S02352.1hp +++|* EXIT (A) .EQ. 0 IF ENTIRE TABLE SCANNED AND NO ELIGIBLE 02751 M00S02353.1hp +++|* ENTRY FOUND. 02752 M00S02354.1hp +++|* .NE. 0 IF ENTRY SELECTED. 02753 M00S02355.1hp +++|* (CB) = CURRENT BUFFER ORDINAL. 02754 M00S02356.1hp +++|* (ER) = 1 IF ERROR RECOVERY IS IN PROGRESS. 02755 M00S02357.1hp +++|* (PO) = ORDINAL OF SELECTED *PUT* ENTRY. 02756 M00S02358.1hp +++|* (RC) = 0 IF ELIGIBLE ENTRY FOUND AND *RECOVERY IN 02757 M00S02359.1hp +++|* PROGRESS* FLAG IS CLEAR. 02758 M00S02360.1hp +++|* = N/2 WHERE N IS THE RETRY LIMIT FOR THE ERROR 02759 M00S02361.1hp +++|* CODE SET IN *EC* IF *RECOVERY IN PROGRESS* 02760 M00S02362.1hp +++|* FLAG IS SET. 02761 M00S02363.1hp +++|* (RW) = READ/WRITE FLAG. 02762 M00S02364.1hp +++|* TO *ERR* IF ERROR RECOVERY IS IN PROGRESS FOR 02763 M00S02365.1hp +++|* SELECTED BUFFER. 02764 M00S02366.1hp +++|* (TB) = TOTAL BUFFER COUNT. 02765 M00S02367.1hp +++|*
| Line S02368 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02766 M01S02368.252l678 ---|* USES CB, EC, ER, PO, RC, RW, TB, T1, CM - CM+4, CN - CN+4, 02767 M01S02369.252l678 ---|* T1 - T5.
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02768 M01S00120.252l678 +++|* USES CB, EC, ER, PO, RC, RW, S1, TB, TI, CM - CM+4, 02769 M01S00121.252l678 +++|* CN - CN+4, T1 - T5. 02770 M00S02370.1hp +++|* 02771 M00S02371.1hp +++|* CALLS ERR. 02772 M00S02372.1hp +++|* 02773 M00S02373.1hp +++|* MACROS CCBA, CPTA, SFA. 02774 M00S02374.1hp +++| 02775 M00S02375.1hp +++| 02776 M00S02376.1hp +++| SUQ7 LDD TI 02777 M00S02377.1hp +++| LMN 1 02778 M00S02378.1hp +++| SUQA EQU *-1 02779 M00S02379.1hp +++| NJN SUQ1 IF NOT FINISHED WITH *PUT* SCAN 02780 M00S02380.1hp +++| 02781 M00S02381.1hp +++| SUQ SUBR ENTRY/EXIT 02782 M00S02382.1hp +++| SUQ1 AOD TI ADVANCE *TPOR* INDEX 02783 M00S02383.1hp +++| ERRNZ TPORE-1 CODE IS VALUE DEPENDENT 02784 M00S02384.1hp +++| LDM TPOR-1,TI 02785 M00S02385.1hp +++| NJN SUQ2 IF NOT END OF *TPOR* TABLE 02786 M00S02386.1hp +++| STD TI RESET INDEX 02787 M00S02387.1hp +++| UJN SUQ1 CONTINUE 02788 M00S02388.1hp +++|
| Line S02389 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02789 M01S02389.252l678 ---| SUQ2 STD PO STORE *PUT* ORDINAL
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02790 M01S00122.252l678 +++| SUQ2 SHN 14 SET CHANNEL BYTE INDEX 02791 M01S00123.252l678 +++| STD S1 02792 M01S00124.252l678 +++| SHN -14 SET *PUT* ORDINAL 02793 M01S00125.252l678 +++| STD PO 02794 M00S02390.1hp +++| CPTA UNCT,A READ *PUT* ENTRY 02795 M00S02391.1hp +++| CRD CM 02796 M00S02392.1hp +++| LDD CM 02797 M00S02393.1hp +++| SHN 21-13 02798 M00S02394.1hp +++| MJN SUQ7 IF UNIT INTERLOCK SET 02799 M00S02395.1hp +++| LDD CM+3
| Line S02396 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02800 M01S02396.ns2769 ---| SUQ3 ZJN SUQ7 IF NO REQUEST IN QUEUE 02801 M01S02397.ns2769 ---| STD CB SAVE BUFFER ORDINAL
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02802 M01S00134.ns2769 +++| NJN SUQ3 IF REQUEST IN QUEUE 02803 M01S00135.ns2769 +++| SUQ2.1 UJN SUQ7 PROCESS NEXT *PUT* 02804 M01S00136.ns2769 +++| 02805 M01S00137.ns2769 +++| SUQ3 STD CB SAVE BUFFER ORDINAL 02806 M00S02398.1hp +++| CCBA IOLK,A READ *CBT* ENTRY 02807 M00S02399.1hp +++| CRD CN 02808 M00S02400.1hp +++| ADK HSLK-IOLK 02809 M00S02401.1hp +++| CRD T1 02810 M00S02402.1hp +++| SFA EST,CM+1 READ EST ENTRY 02811 M00S02403.1hp +++| ADK EQDE 02812 M00S02404.1hp +++| CRD CM
| Line S02405 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02813 M01S02405.252l678 ---| LDD CM+1 02814 M01S02406.252l678 ---| LPC 4040 02815 M01S02407.252l678 ---| ZJN SUQ5 IF BOTH CHANNELS ARE UP 02816 M01S02408.252l678 ---| LDD CM+1 02817 M01S02409.252l678 ---| SHN 14 02818 M01S02410.252l678 ---| PJN SUQ4 IF CHANNEL 1 IS DOWN 02819 M01S02411.252l678 ---| LDD CM+1 02820 M01S02412.252l678 ---| SUQ4 LPN 37 02821 M01S02413.252l678 ---| LMD IR+4 02822 M01S02414.252l678 ---| ZJN SUQ3 IF THIS CHANNEL IS DOWN ON DEVICE
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02823 M01S00126.252l678 +++| LDM CM+1,S1 02824 M01S00127.252l678 +++| SHN -11 02825 M01S00128.252l678 +++| LPN 3
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2502 |
Seq # *Modification Id* Act ----------------------------+ 02826 M02S00129.ns2502 ---| ZJN SUQ5 IF CHANNEL UP 02827 M02S00130.ns2502 ---| LPN 2 02828 M02S00131.ns2502 ---| ZJN SUQ4 IF CHANNEL IDLE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2502 |
Seq # *Modification Id* Act ----------------------------+ 02829 M01S00001.ns2502 +++| STD T2 SAVE CHANNEL STATE INDICATOR 02830 M01S00002.ns2502 +++| LMN 3 02831 M01S00003.ns2502 +++| NJN SUQ4 IF CHANNEL NOT DOWN
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02832 M02S00132.ns2769 ---| SUQ3.1 LJM SUQ7 PROCESS NEXT *PUT*
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02833 M01S00138.ns2769 +++| SUQ3.1 UJN SUQ2.1 PROCESS NEXT *PUT*
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02834 M01S00133.252l678 +++| 02835 M01S00134.252l678 +++| SUQ4 LDD T1 02836 M01S00135.252l678 +++| SHN 0-12
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2502 |
Seq # *Modification Id* Act ----------------------------+ 02837 M02S00136.ns2502 ---| ZJN SUQ3 IF NOT CHANNEL SPECIFIC REQUEST
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2502 |
Seq # *Modification Id* Act ----------------------------+ 02838 M01S00004.ns2502 +++| ZJN SUQ4.1 IF NOT CHANNEL SPECIFIC REQUEST
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02839 M02S00137.253l688 ---| LDD T1 02840 M02S00138.253l688 ---| LPN 37
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02841 M01S00005.253l688 +++| CCBA PAD4 GET CHANNEL FROM CBT ENTRY 02842 M01S00006.253l688 +++| CRD CM 02843 M01S00007.253l688 +++| LDD CM 02844 M01S00008.253l688 +++| SHN -6
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02845 M01S00139.252l678 +++| LMD IR+4
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02846 M02S00140.ns2769 ---| NJN SUQ3.1 IF OTHER CHANNEL SPECIFIED
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2502 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02847 M02S00005.ns2769 ---| UJN SUQ5 AVOID CHANNEL STATE CHECK 02848 M02S00006.ns2769 ---|
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02849 M01S00139.ns2769 +++| STD T2
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2502 |
Seq # *Modification Id* Act ----------------------------+ 02850 M01S00007.ns2502 +++| SUQ4.1 LDD T2
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2502 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02851 M02S00008.ns2769 ---| NJN SUQ3.1 IF THIS CHANNEL IN IDLE STATE
| Line S02415 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02852 M01S02415.ns2769 ---| SUQ5 LDD CN SET/CLEAR READ/WRITE FLAG
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02853 M01S00140.ns2769 +++| NJN SUQ3.1 IF IDLE STATE OR OTHER CHANNEL SPECIFIED 02854 M01S00141.ns2769 +++| LDD CN SET/CLEAR READ/WRITE FLAG 02855 M00S02416.1hp +++| SHN 0-11 02856 M00S02417.1hp +++| LPN 1 02857 M00S02418.1hp +++| STD RW 02858 M00S02419.1hp +++| SHN 13-0 SET TOTAL BUFFER COUNT 02859 M00S02420.1hp +++| ADN 1 02860 M00S02421.1hp +++| STD TB
| Line S02422 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02861 M01S02422.252l678 ---| LDD T1 02862 M01S02423.252l678 ---| SHN 0-12 02863 M01S02424.252l678 ---| ZJN SUQ6 IF NO CHANNEL SPECIFIED 02864 M01S02425.252l678 ---| LDD T1 02865 M01S02426.252l678 ---| LPN 37 02866 M01S02427.252l678 ---| LMD IR+4 02867 M01S02428.252l678 ---| NJP SUQ7 IF OTHER DRIVER MUST HANDLE THIS ONE 02868 M00S02429.1hp +++| LDD T1 02869 M00S02430.1hp +++| SHN 0-13 02870 M00S02431.1hp +++| STD ER SET/CLEAR RECOVERY IN PROGRESS FLAG 02871 M00S02432.1hp +++| ZJN SUQ6 IF NOT ERROR RECOVERY 02872 M00S02433.1hp +++| LDD T1 SAVE ERROR CODE
| Line S02434 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02873 M01S02434.253l688 ---| SHN -6 02874 M01S02435.253l688 ---| LPN 17
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 02875 M01S00009.253l688 +++| LPN 77 02876 M00S02436.1hp +++| STD T1 02877 M00S02437.1hp +++| LMC 7777 COMPLEMENT ERROR CODE 02878 M00S02438.1hp +++| STD EC 02879 M00S02439.1hp +++| LDM TREC,T1 SET RETRY COUNT = LIMIT/2 02880 M00S02440.1hp +++| SHN -1
| Line S02441 Modification History | |
|---|---|
M01 (Removed by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 02881 M01S02441.ns2732a ---| SBN 1 02882 M00S02442.1hp +++| STD RC 02883 M00S02443.1hp +++| RJM ERR CALL ERROR PROCESSOR 02884 M00S02444.1hp +++| LJM SUQ1 CONTINUE SCAN 02885 M00S02445.1hp +++| 02886 M00S02446.1hp +++| SUQ6 LDD TI SET SCAN LIMIT 02887 M00S02447.1hp +++| LMC LMNI 02888 M00S02448.1hp +++| STM SUQA 02889 M00S02449.1hp +++| LJM SUQX RETURN 02890 M00S02450.1hp +++| TEP SPACE 4,25 02891 M00S02451.1hp +++|** TEP - TERMINATE ERROR PROCESSING. 02892 M00S02452.1hp +++|* 02893 M00S02453.1hp +++|* THIS ROUTINE PERFORMS OPERATIONS NECESSARY TO RESTORE THE 02894 M00S02454.1hp +++|* DRIVER TO ITS NORMAL STATE (NON-ERROR PROCESSING). 02895 M00S02455.1hp +++|* 02896 M00S02456.1hp +++|* ENTRY (EC) = ERROR CODE. 02897 M00S02457.1hp +++|* (PO) = *PUT* ORDINAL. 02898 M00S02458.1hp +++|* (RS) = RECOVERY STATUS. 02899 M00S02459.1hp +++|* (RW) = READ/WRITE FLAG. 02900 M00S02460.1hp +++|* 02901 M00S02461.1hp +++|* EXIT (EC) = 0. 02902 M00S02462.1hp +++|* (ER) = 0. 02903 M00S02463.1hp +++|* (RC) = 0. 02904 M00S02464.1hp +++|* (RS) = RECOVERY STATUS. 02905 M00S02465.1hp +++|* 0 RECOVERED BY CONTROLLER. 02906 M00S02466.1hp +++|* 1 RECOVERED BY DRIVER. 02907 M00S02467.1hp +++|* 2 UNRESOLVED. 02908 M00S02468.1hp +++|* 3 UNRECOVERED. 02909 M00S02469.1hp +++|* 02910 M00S02470.1hp +++|* USES EC, ER, IL, RC, RS, S2, T1, T2, CM - CM+4. 02911 M00S02471.1hp +++|*
| Line S02472 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02912 M01S02472.252l678 ---|* CALLS IBM, IEM, RHR, RPI.
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02913 M01S00141.252l678 +++|* CALLS IBM, RHR, RPI. 02914 M00S02473.1hp +++|* 02915 M00S02474.1hp +++|* MACROS MONITOR. 02916 M00S02475.1hp +++| 02917 M00S02476.1hp +++|
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02918 M01S00142.ns2769 +++| TEP4 LDN 0 02919 M01S00143.ns2769 +++| STD EC CLEAR ERROR CODE 02920 M01S00144.ns2769 +++| STD ER CLEAR RECOVERY IN PROGRESS FLAG 02921 M01S00145.ns2769 +++| STD RC CLEAR RETRY COUNT 02922 M01S00146.ns2769 +++| STM RLCJ CLEAR RELOAD ATTEMPTED FLAG 02923 M01S00147.ns2769 +++| STM TEPA CLEAR VERIFICATION/INTERLOCK REJECT FLAG 02924 M01S00148.ns2769 +++| LDD HN RESET SEEK SELECTION OPTIONS 02925 M01S00149.ns2769 +++| ERRNZ SOSF-100 CODE DEPENDS ON VALUE 02926 M01S00150.ns2769 +++| STM ISFA 02927 M01S00151.ns2769 +++| 02928 M00S02477.1hp +++| TEP SUBR ENTRY/EXIT 02929 M00S02478.1hp +++| LDD RW 02930 M00S02479.1hp +++| SHN 1 02931 M00S02480.1hp +++| STD T1 02932 M00S02481.1hp +++| LDM TEPB,T1 RESTORE INSTRUCTIONS 02933 M00S02482.1hp +++| STD T2 02934 M00S02483.1hp +++| LDM TEPB+1,T1 02935 M00S02484.1hp +++| STI T2 02936 M00S02485.1hp +++| LDC ** 02937 M00S02486.1hp +++| TEPA EQU *-1
| Line S02487 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02938 M01S02487.ns2769 ---| NJP TEP5 IF OTHER DRIVER HANDLING ERROR
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 02939 M01S00152.ns2769 +++| NJP TEP4 IF OTHER DRIVER HANDLING ERROR 02940 M00S02488.1hp +++| LDD RS 02941 M00S02489.1hp +++| ZJN TEP1 IF RECOVERED BY CONTROLLER 02942 M00S02490.1hp +++| LDD EC SAVE ERROR CODE IN CASE FUNCTION TIMEOUT 02943 M00S02491.1hp +++| STD S2 02944 M00S02492.1hp +++| RJM RHR RELEASE HARDWARE RESERVES 02945 M00S02493.1hp +++| LDD S2 RESTORE ERROR CODE 02946 M00S02494.1hp +++| STD EC 02947 M00S02495.1hp +++| LDD RS 02948 M00S02496.1hp +++| TEP1 LMN 2 02949 M00S02497.1hp +++| NJN TEP2 IF NOT UNRESOLVED ERROR 02950 M00S02498.1hp +++| 02951 M00S02499.1hp +++|* ISSUING SUBFUNCTION *SETS* OF THE *BIOM* MONITOR FUNCTION 02952 M00S02500.1hp +++|* CAUSES ONE OF THE FOLLOWING TO OCCUR - 02953 M00S02501.1hp +++|* A. IF THE RECOVERY IN PROGRESS FLAG IS SET IN THE CBT 02954 M00S02502.1hp +++|* ENTRY, THE REQUEST WILL BE TERMINATED WITH STATUS 02955 M00S02503.1hp +++|* RETURNED TO THE PROGRAM THAT ISSUED THE REQUEST. 02956 M00S02504.1hp +++|* IN THIS CASE IT IS THE RESPONSIBILITY OF THIS 02957 M00S02505.1hp +++|* DRIVER TO ISSUE MESSAGES TO THE BML, ERROR LOG, JOB 02958 M00S02506.1hp +++|* DAYFILE AND SYSTEM DAYFILE INDICATING AN 02959 M00S02507.1hp +++|* UNRECOVERED ERROR OCCURRED. 02960 M00S02508.1hp +++|* B. IF THE RECOVERY IN PROGRESS FLAG IS CLEAR AND AN 02961 M00S02509.1hp +++|* ALTERNATE CHANNEL EXISTS (WITH AN ACTIVE DRIVER), 02962 M00S02510.1hp +++|* THE REQUEST WILL BE MODIFIED TO FORCE CONTINUATION 02963 M00S02511.1hp +++|* OF ERROR RECOVERY BY THE OTHER DRIVER. 02964 M00S02512.1hp +++|* C. IF THE RECOVERY IN PROGRESS FLAG IS CLEAR BUT 02965 M00S02513.1hp +++|* EITHER THERE IS NO ALTERNATE ACCESS PATH OR IT HAS 02966 M00S02514.1hp +++|* BEEN DOWNED, THE REQUEST WILL BE MODIFIED TO FORCE 02967 M00S02515.1hp +++|* CONTINUATION OF ERROR PROCESSING ON THIS CHANNEL. 02968 M00S02516.1hp +++| 02969 M00S02517.1hp +++| LDN SETS SET SUBFUNCTION 02970 M00S02518.1hp +++| STD CM+1 02971 M00S02519.1hp +++| LDD PO SET *PUT* ORDINAL 02972 M00S02520.1hp +++| STD CM+2 02973 M00S02521.1hp +++| LDN 1 SET BUFFER COUNT 02974 M00S02522.1hp +++| STD CM+3 02975 M00S02523.1hp +++| LDD EC SET ERROR CODE 02976 M00S02524.1hp +++| STD CM+4 02977 M00S02525.1hp +++| MONITOR BIOM 02978 M00S02526.1hp +++| STD IL CLEAR *PUT* INTERLOCK FLAG 02979 M00S02527.1hp +++| LDD CM+1 02980 M00S02528.1hp +++| ZJN TEP2 IF PROCESSING WILL RESUME ON OTHER CHANNEL 02981 M00S02529.1hp +++| AOD RS SET UNRECOVERED STATUS
| Line S02530 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02982 M01S02530.252l678 ---| 02983 M01S02531.252l678 ---|* ISSUE AN ERROR LOG MESSAGE IF APPROPRIATE FOR THIS ERROR 02984 M01S02532.252l678 ---|* TYPE. 02985 M01S02533.252l678 ---| 02986 M01S02534.252l678 ---| RJM IEM
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 02987 M01S00142.252l678 +++| 02988 M00S02535.1hp +++| 02989 M00S02536.1hp +++|* ISSUE THE BML MESSAGE AND INCREMENT ERROR COUNTERS IF 02990 M00S02537.1hp +++|* APPROPRIATE FOR THIS ERROR TYPE AND RESOLUTION OF THE ERROR 02991 M00S02538.1hp +++|* HAS BEEN DETERMINED. 02992 M00S02539.1hp +++| 02993 M00S02540.1hp +++| TEP2 LDD RS 02994 M00S02541.1hp +++| LPN 1 02995 M00S02542.1hp +++| ZJN TEP3 IF UNRESOLVED OR RECOVERED BY CONTROLLER 02996 M00S02543.1hp +++| RJM RPI RELEASE *PUT* INTERLOCK 02997 M00S02544.1hp +++| TEP3 RJM IBM ISSUE BML MESSAGE 02998 M00S02545.1hp +++| 02999 M00S02546.1hp +++|* CLEAR B-DISPLAY MESSAGE. 03000 M00S02547.1hp +++| 03001 M00S02548.1hp +++| LDK ZERL 03002 M00S02549.1hp +++| CRD CM 03003 M00S02550.1hp +++| LDD CP 03004 M00S02551.1hp +++| ADK MS2W 03005 M00S02552.1hp +++| CWD CM
| Line S02553 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03006 M01S02553.ns2769 ---| TEP5 LDN 0 03007 M01S02554.ns2769 ---| STD EC CLEAR ERROR CODE 03008 M01S02555.ns2769 ---| STD ER CLEAR RECOVERY IN PROGRESS FLAG 03009 M01S02556.ns2769 ---| STD RC CLEAR RETRY COUNT
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03010 M02S00016.ns2769 ---| STM RLCJ CLEAR RELOAD ATTEMPTED FLAG
| Line S02557 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03011 M01S02557.ns2769 ---| STM TEPA CLEAR VERIFICATION/INTERLOCK REJECT FLAG
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03012 M02S00043.ns2769 ---| LDD HN RESET SEEK SELECTION OPTIONS 03013 M02S00044.ns2769 ---| ERRNZ SOSF-100 CODE DEPENDS ON VALUE 03014 M02S00045.ns2769 ---| STM ISFA
| Line S02558 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03015 M01S02558.ns2769 ---| LJM TEPX RETURN
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03016 M01S00153.ns2769 +++| UJP TEP4 CONTINUE CLEARING AND RETURN 03017 M01S00154.ns2769 +++| 03018 M00S02559.1hp +++| 03019 M00S02560.1hp +++| TEPB BSS 0 03020 M00S02561.1hp +++| CON RIOA,RIO1 03021 M00S02562.1hp +++| CON WIOA,WIO1 03022 M00S02563.1hp +++| WIO SPACE 4,10 03023 M00S02564.1hp +++|** WIO - PERFORM WRITE OPERATION. 03024 M00S02565.1hp +++|* 03025 M00S02566.1hp +++|* ENTRY (CB) = CURRENT BUFFER ORDINAL. 03026 M00S02567.1hp +++|* (CD - CD+1) = BUFFER ADDRESS. 03027 M00S02568.1hp +++|* (NB) = 0. 03028 M00S02569.1hp +++|* (PB) = 0. 03029 M00S02570.1hp +++|* (PI) = 0. 03030 M00S02571.1hp +++|* (T7) = *PPSLB*. 03031 M00S02572.1hp +++|* 03032 M00S02573.1hp +++|* EXIT (PB) = ORDINAL OF LAST BUFFER PROCESSED. 03033 M00S02574.1hp +++|* 03034 M00S02575.1hp +++|* USES CB, PB, PI, T1, T7, CA+2 - CA+3, CD - CD+5, 03035 M00S02576.1hp +++|* CN+2 - CN+4. 03036 M00S02577.1hp +++|* 03037 M00S02578.1hp +++|* CALLS CCS, CRQ, ERR, GGS, IIC, PCH. 03038 M00S02579.1hp +++|* 03039 M00S02580.1hp +++|* MACROS CCBA. 03040 M00S02581.1hp +++| 03041 M00S02582.1hp +++| 03042 M00S02583.1hp +++| WIO SUBR ENTRY/EXIT 03043 M00S02584.1hp +++| WIO1 LDD T7 03044 M00S02585.1hp +++| LPN 1 03045 M00S02586.1hp +++| NJN WIO2 IF NOT FIRST SECTOR OF CONTROL WORD 03046 M00S02587.1hp +++| LDD CD+1 SAVE EXTENDED MEMORY ADDRESS BYTE 03047 M00S02588.1hp +++| STD T1 03048 M00S02589.1hp +++| CCBA PAD1 GET LINKAGE BYTES FROM *CBT* ENTRY 03049 M00S02590.1hp +++| ADD PI 03050 M00S02591.1hp +++| CRD CD+1 03051 M00S02592.1hp +++| LDD T1 RESTORE EXTENDED MEMORY ADDRESS BYTE 03052 M00S02593.1hp +++| STD CD+1 03053 M00S02594.1hp +++| AOD PI INCREMENT *PADN* INDEX
| Line S02595 Modification History | |
|---|---|
M01 (Removed by) | ns2502 |
Seq # *Modification Id* Act ----------------------------+ 03054 M01S02595.ns2502 ---| WIO2 LDC FCWR ISSUE WRITE FUNCTION
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2502 |
Seq # *Modification Id* Act ----------------------------+ 03055 M01S00009.ns2502 +++| WIO2 LDN FCWR ISSUE WRITE FUNCTION 03056 M00S02596.1hp +++| RJM PCH 03057 M00S02597.1hp +++| MJN WIO4.1 IF ERROR 03058 M00S02598.1hp +++| AOD CA+3 ADVANCE CURRENT POSITION 03059 M00S02599.1hp +++| LMN PSPT 03060 M00S02600.1hp +++| NJN WIO3 IF NOT END OF TRACK 03061 M00S02601.1hp +++| STD CA+3 RESET TO SECTOR ZERO 03062 M00S02602.1hp +++| AOD CA+2 ADVANCE TO NEXT TRACK 03063 M00S02603.1hp +++| WIO3 SOD T7 DECREMENT SECTOR COUNT 03064 M00S02604.1hp +++| ZJN WIO5 IF FINISHED WITH BUFFER 03065 M00S02605.1hp +++| LMK PPSLB-1 03066 M00S02606.1hp +++| ZJN WIO4 IF FIRST SECTOR OF BUFFER 03067 M00S02607.1hp +++| RJM IIC ISSUE I/O COMPLETION REQUEST IF REQUIRED 03068 M00S02608.1hp +++| WIO4 LDC EMAI INCREMENT EXTENDED MEMORY ADDRESS 03069 M00S02609.1hp +++| RAD CD+1 03070 M00S02610.1hp +++| SHN -14 03071 M00S02611.1hp +++| RAD CD 03072 M00S02612.1hp +++| RJM CCS CHECK FOR CONSECUTIVE REQUEST 03073 M00S02613.1hp +++| RJM GGS GET GENERAL STATUS 03074 M00S02614.1hp +++| ZJP WIO1 IF NO ERROR 03075 M00S02615.1hp +++| WIO4.1 UJN WIO8 CALL ERROR PROCESSOR 03076 M00S02616.1hp +++| 03077 M00S02617.1hp +++| WIO5 STD PI RESET *PADN* WORD INDEX 03078 M00S02618.1hp +++| RJM CCS CHECK FOR CONSECUTIVE REQUEST 03079 M00S02619.1hp +++| LDD CB ADVANCE BUFFER POINTERS 03080 M00S02620.1hp +++| STD PB 03081 M00S02621.1hp +++| LDD NB 03082 M00S02622.1hp +++| STD CB 03083 M00S02623.1hp +++| ZJN WIO6 IF NO CONSECUTIVE REQUEST 03084 M00S02624.1hp +++| CCBA IOLK,A SET EXTENDED MEMORY ADDRESS 03085 M00S02625.1hp +++| CRD CD-3 03086 M00S02626.1hp +++| ERRNZ CD-CN-5 CODE IS VALUE DEPENDENT 03087 M00S02627.1hp +++| LDN PPSLB RESET SECTOR COUNT 03088 M00S02628.1hp +++| STD T7 03089 M00S02629.1hp +++| RJM GGS GET GENERAL STATUS 03090 M00S02630.1hp +++| NJN WIO7 IF ERROR 03091 M00S02631.1hp +++| STD NB CLEAR NEXT BUFFER ORDINAL 03092 M00S02632.1hp +++| LJM WIO1 CONTINUE TRANSFER
| Line S02633 Modification History | |
|---|---|
M01 (Removed by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 03093 M01S02633.ns2454 ---|* LJM WIOX (ERROR RECOVERY IN PROGRESS)
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 03094 M01S00016.ns2454 +++|* LJM WIO6.1 (ERROR RECOVERY IN PROGRESS) 03095 M00S02634.1hp +++| WIOA EQU *-1 03096 M00S02635.1hp +++| 03097 M00S02636.1hp +++| WIO6 RJM GGS GET GENERAL STATUS 03098 M00S02637.1hp +++| NJN WIO7 IF ERROR ON LAST SECTOR
| Line S02638 Modification History | |
|---|---|
M01 (Removed by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 03099 M01S02638.ns2454 ---| RJM GGS GET GENERAL STATUS
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 03100 M01S00017.ns2454 +++| WIO6.1 RJM GGS GET GENERAL STATUS 03101 M00S02639.1hp +++| ZJN WIO9 IF NO ERROR 03102 M00S02640.1hp +++| WIO7 LDD PB BACKUP TO PREVIOUS BUFFER 03103 M00S02641.1hp +++| STD CB 03104 M00S02642.1hp +++| LDN 0 AVOID BUFFER COMPLETION 03105 M00S02643.1hp +++| STD PB 03106 M00S02644.1hp +++| WIO8 RJM ERR CALL ERROR PROCESSOR 03107 M00S02645.1hp +++| WIO9 LJM WIOX RETURN 03108 M00S02646.1hp +++| SPACE 4,10 03109 M00S02647.1hp +++|* COMMON DECKS. 03110 M00S02648.1hp +++| 03111 M00S02649.1hp +++| 03112 M00S02650.1hp +++|*CALL COMPC2D
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03113 M01S00155.ns2769 +++|*CALL COMPIMB 03114 M00S02651.1hp +++| SPACE 4,10 03115 M00S02652.1hp +++| PRS TITLE PRESET PROGRAM. 03116 M00S02653.1hp +++| PRS SPACE 4,10 03117 M00S02654.1hp +++|** PRS - PRESET *1HP*. 03118 M00S02655.1hp +++|* 03119 M00S02656.1hp +++|* EXIT (CC) = 0. 03120 M00S02657.1hp +++|* (CS) = 0. 03121 M00S02658.1hp +++|* (EC) = 0. 03122 M00S02659.1hp +++|* (ER) = 0. 03123 M00S02660.1hp +++|* (IL) = 0.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2481 |
Seq # *Modification Id* Act ----------------------------+ 03124 M01S00001.ns2481 +++|* (PB) = 0. 03125 M00S02661.1hp +++|* (RC) = 0. 03126 M00S02662.1hp +++|* (TI) = 0. 03127 M00S02663.1hp +++|* (BMLCR) = 6/ CHANNEL, 6/0. 03128 M00S02664.1hp +++|* (BMLMF) = MAINFRAME ID. 03129 M00S02665.1hp +++|* (BMLPP) = 6/ PP NUMBER, 6/ CHANNEL. 03130 M00S02666.1hp +++|* (CCPA) = *SCR* CHANNEL PARITY BIT + FCTC + 30B. 03131 M00S02667.1hp +++|* (CCPB) = *SCR* CHANNEL OUTPUT INSTRUCTION (OAN). 03132 M00S02668.1hp +++|* (CCPC) = *SCR* CHANNEL INPUT INSTRUCTION (IAN). 03133 M00S02669.1hp +++|* (CCRA) = WORD ADDRESS OF CHANNEL TABLE ENTRY. 03134 M00S02670.1hp +++|* (CCRB) = BYTE ADDRESS OF CHANNEL TABLE ENTRY + LDDI. 03135 M00S02671.1hp +++|* (CHRV) = 1. 03136 M00S02672.1hp +++|* (CRQA) = FWA OF PP EXCHANGE PACKAGE. 03137 M00S02673.1hp +++|* (CRQB) = FWA OF PP EXCHANGE PACKAGE. 03138 M00S02674.1hp +++|* (CRQC) = CPU EXCHANGE INSTRUCTION (MXN). 03139 M00S02675.1hp +++|* (CRQD) = FIRST WORD OF PP EXCHANGE PACKAGE.
| Line S02676 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03140 M01S02676.ns2769 ---|* (IMSA) = FWA OF *EMB*. 03141 M01S02677.ns2769 ---|* (IMSB) = FWA OF *EMB*. 03142 M01S02678.ns2769 ---|* (IMSC) = FWA OF *EMB*. 03143 M01S02679.ns2769 ---|* (IMSD) = FWA OF *EMB*. 03144 M01S02680.ns2769 ---|* (IMSF) = FWA OF *EMB*.
| Line S02681 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 03145 M01S02681.ns2507 ---|* (RCSA+3) = CHANNEL NUMBER. 03146 M00S02682.1hp +++|* (RLCA) = WORD ADDRESS OF CONTROLWARE TABLE ENTRY. 03147 M00S02683.1hp +++|* (RLCB) = BYTE ADDRESS OF CONTROLWARE TABLE ENTRY. 03148 M00S02684.1hp +++|* (RLCC) = WORD ADDRESS OF CONTROLWARE TABLE ENTRY.
| Line S02685 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 03149 M01S02685.ns2507 ---|* (RLCD) = WORD ADDRESS OF CONTROLWARE TABLE ENTRY. 03150 M01S02686.ns2507 ---|* (RLCE) = BYTE ADDRESS OF CONTROLWARE ENTRY. 03151 M00S02687.1hp +++|* (RLCG) = BIT NUMBER OF LOAD REQUESTED FLAG. 03152 M00S02688.1hp +++|* (SCDA) = WORD ADDRESS OF CONTROLWARE TABLE ENTRY. 03153 M00S02689.1hp +++|* (SCDB) = BIT NUMBER OF DRIVER DROP FLAG. 03154 M00S02690.1hp +++|* ALL *CCBA* REFERENCES TO *CBT* PLUGGED. 03155 M00S02691.1hp +++|* ALL *CPTA* REFERENCES TO *PUT* PLUGGED.
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 03156 M01S00156.ns2769 +++|* ALL *EMBE* REFERENCES TO *EMB* PLUGGED. 03157 M00S02692.1hp +++|*
| Line S02693 Modification History | |
|---|---|
M01 (Removed by) | ns2481 |
Seq # *Modification Id* Act ----------------------------+ 03158 M01S02693.ns2481 ---|* USES CC, CS, EC, ER, IL, RC, TI, CM - CM+4, CN - CN+4,
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1hp.001.txt · Last modified: by 127.0.0.1