Seq # *Modification Id* Act
----------------------------+
05740 M00S05459.exdrvr +++| GOTO STRLBL[LLR$RS[0]];
05741 M00S05460.exdrvr +++|
05742 M00S05461.exdrvr +++|#
05743 M00S05462.exdrvr +++|* INITIAL DRIVER REQUEST STATE.
05744 M00S05463.exdrvr +++|#
05745 M00S05464.exdrvr +++|
05746 M00S05465.exdrvr +++|STRINIT:
05747 M00S05466.exdrvr +++| IF LLR$MBH[0] EQ 0
05748 M00S05467.exdrvr +++| THEN # ** PATCH #
05749 M00S05468.exdrvr +++| BEGIN
05750 M00S05469.exdrvr +++| FE$RTN[0] = "STRCART0.";
05751 M00S05470.exdrvr +++| GOTO STRCART2;
05752 M00S05471.exdrvr +++| END
05753 M00S05472.exdrvr +++|
05754 M00S05473.exdrvr +++| P<KWORD> = LOC(LLR$KWORDS[0]);
05755 M00S05474.exdrvr +++| IF LLR$UCPABT[0] ##
05756 M00S05475.exdrvr +++| AND NOT KW$COMP[0] # K-DISPLAY MSG PENDING #
05757 M00S05476.exdrvr +++| THEN # IGNORE UCP ABORT #
05758 M00S05477.exdrvr +++| BEGIN # EXIT #
05759 M00S05478.exdrvr +++| RETURN; # AVOID ISSUING INFINITE STORES #
05760 M00S05479.exdrvr +++| END # EXIT #
05761 M00S05480.exdrvr +++|
| Line S00068 Modification History |
M01 (Added by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
05762 M01S00068.mse1 +++| IF LLR$SCU[0] EQ 0 # NO CHANNEL/CU SAVED #
05763 M01S00069.mse1 +++| AND LLR$DRFUL[0] # ERROR OCCURRED #
05764 M01S00070.mse1 +++| THEN # DATA ERROR AFTER GOOD REW/UNL #
05765 M01S00071.mse1 +++| BEGIN # SAVE #
05766 M01S00072.mse1 +++| LLR$SCIF[0] = LLR$CIF[0]; # SAVE TO DECIDE ON RETRY #
05767 M01S00073.mse1 +++| LLR$SCU[0] = LLR$CU[0];
05768 M01S00074.mse1 +++| END # SAVE #
05769 M01S00075.mse1 +++|
05770 M00S05481.exdrvr +++| LLR$SDR[0] = LLR$DR[0]; # IN CASE EJECTING CARTRIDGE #
05771 M00S05482.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
05772 M00S05483.exdrvr +++| P<UDT$MSG> = P<MBFHDR> + 1;
05773 M00S05484.exdrvr +++| IF MBF$WORD[0] NQ 0
05774 M00S05485.exdrvr +++| THEN # LAST MESSAGE NOT PROCESSED #
05775 M00S05486.exdrvr +++| BEGIN # CHECK #
05776 M00S05487.exdrvr +++| IF MS$MSG[0] GQ HFC$MVLMVR # MOUNT-VOLUME #
05777 M00S05488.exdrvr +++| AND MS$MSG[0] LQ HFC$MVLMNW
05778 M00S05489.exdrvr +++| THEN # FORCED STORE ON DATA TRANSFER #
05779 M00S05490.exdrvr +++| BEGIN # OK #
05780 M00S05491.exdrvr +++| MBF$WORD[0] = 0; # PRESET HEADER #
05781 M00S05492.exdrvr +++| MS$MSG[0] = HFC$STCRNF; # FORCE REWIND/UNLOAD #
05782 M00S05493.exdrvr +++| END # OK #
05783 M00S05494.exdrvr +++|
05784 M00S05495.exdrvr +++| ELSE # SOFTWARE ERROR #
05785 M00S05496.exdrvr +++| BEGIN # ABORT #
05786 M00S05497.exdrvr +++| FE$RTN[0] = "STRCART1.";
05787 M00S05498.exdrvr +++| GOTO STRCART2;
05788 M00S05499.exdrvr +++| END # ABORT #
05789 M00S05500.exdrvr +++|
05790 M00S05501.exdrvr +++| END # CHECK #
05791 M00S05502.exdrvr +++|
05792 M00S05503.exdrvr +++| ELSE # ISSUE NORMAL STORE #
05793 M00S05504.exdrvr +++| BEGIN # OK #
| Line S05505 Modification History |
M01 (Removed by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
05794 M01S05505.mse1 ---| IF LLR$LDERR[0] # DDE ON LOAD #
05795 M01S05506.mse1 ---| THEN # TURN OFF DRD ONLY #
05796 M01S05507.mse1 ---| BEGIN # OFF #
05797 M01S05508.mse1 ---| GOTO STRCART5;
05798 M01S05509.mse1 ---| END # OFF #
05799 M01S05510.mse1 ---|
05800 M00S05511.exdrvr +++| MS$MSG[0] = HFC$STCRNV;
05801 M00S05512.exdrvr +++| END # OK #
05802 M00S05513.exdrvr +++|
05803 M00S05514.exdrvr +++| MBF$SAVE[0] = SAVEMOST;
05804 M00S05515.exdrvr +++| LLR$RS[0] = PROCST"CONT1";
05805 M00S05516.exdrvr +++|
05806 M00S05517.exdrvr +++|#
05807 M00S05518.exdrvr +++|* ISSUE M860 MESSAGE TO STORE CARTRIDGE.
05808 M00S05519.exdrvr +++|#
05809 M00S05520.exdrvr +++|
05810 M00S05521.exdrvr +++|STRCUBE:
05811 M00S05522.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
05812 M00S05523.exdrvr +++| SENDMSG; # SEND M860 MESSAGE #
05813 M00S05524.exdrvr +++| IF MBF$SBADDR[0] EQ 0 ##
05814 M00S05525.exdrvr +++| AND LLR$DR[0] EQ RESPTYP4"OK4" # GOOD HARDWARE #
05815 M00S05526.exdrvr +++| THEN # RESPONSE NOT YET RECEIVED #
05816 M00S05527.exdrvr +++| BEGIN # RETRY #
05817 M00S05528.exdrvr +++| RETURN;
05818 M00S05529.exdrvr +++| END # RETRY #
05819 M00S05530.exdrvr +++|
| Line S00076 Modification History |
M01 (Added by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
05820 M01S00076.mse1 +++| IF MS$RETCODE[0] EQ HRC$CSNERR # CSN/DRD IN USE #
05821 M01S00077.mse1 +++| AND MS$MSG[0] EQ HFC$STCRNV # NORMAL STORE #
05822 M01S00078.mse1 +++| THEN # MAY BE *ACQUIRE* ERROR RCVY #
05823 M01S00079.mse1 +++| BEGIN # CHECK #
05824 M01S00080.mse1 +++| IF NOT LLR$LDERR[0]
05825 M01S00081.mse1 +++| THEN # DRIVER ERROR #
05826 M01S00082.mse1 +++| BEGIN # ABORT #
05827 M01S00083.mse1 +++| FE$RTN[0] = "STRCART2.";
05828 M01S00084.mse1 +++| GOTO STRCART2;
05829 M01S00085.mse1 +++| END # ABORT #
05830 M01S00086.mse1 +++|
05831 M01S00087.mse1 +++| ELSE # CARTRIDGE HAD LOADED OK #
05832 M01S00088.mse1 +++| BEGIN # IGNORE #
05833 M01S00089.mse1 +++| MS$RETCODE[0] = 0; # DRD IN USE BY THIS LLRQ #
05834 M01S00090.mse1 +++| END # IGNORE #
05835 M01S00091.mse1 +++|
05836 M01S00092.mse1 +++| END # CHECK #
05837 M01S00093.mse1 +++|
05838 M00S05531.exdrvr +++| SM$ACCBUSY[LLR$SMO[0]] = FALSE;# SM ARM NOT IN USE #
05839 M00S05532.exdrvr +++| IF LLR$DR[0] EQ RESPTYP4"M86$HDW$PR"
05840 M00S05533.exdrvr +++| THEN # HARDWARE PROBLEM #
05841 M00S05534.exdrvr +++| BEGIN # EXIT #
05842 M00S05535.exdrvr +++| IF LLR$SDR[0] EQ 0
05843 M00S05536.exdrvr +++| THEN # SAVE THIS ERROR FOR EXEC #
05844 M00S05537.exdrvr +++| BEGIN # SAVE #
05845 M00S05538.exdrvr +++| LLR$SDR[0] = LLR$DR[0];
05846 M00S05539.exdrvr +++| END # SAVE #
05847 M00S05540.exdrvr +++|
05848 M00S05541.exdrvr +++| GOTO STRCART3; # ASSUME CARTRIDGE NOT STORED #
05849 M00S05542.exdrvr +++| END # EXIT #
05850 M00S05543.exdrvr +++|
05851 M00S05544.exdrvr +++| IF MS$RETCODE[0] EQ HRC$CSNERR # FORCED STORE VOLUME UNLOADED #
05852 M00S05545.exdrvr +++| OR (MS$RETCODE[0] EQ 0 # NO M860 ERROR #
| Line S05546 Modification History |
M01 (Removed by) | exdrvr3 |
Seq # *Modification Id* Act
----------------------------+
05853 M01S05546.exdrvr3 ---| AND (LLR$RQI[0] EQ REQNAME"RQILABL" # SSLABEL HANDLES EJECTS #
| Line S00018 Modification History |
M01 (Added by) | exdrvr3 |
Seq # *Modification Id* Act
----------------------------+
05854 M01S00018.exdrvr3 +++| AND ((LLR$RQI[0] EQ REQNAME"RQILABL" # SSLABEL HANDLES EJECTS #
05855 M01S00019.exdrvr3 +++| AND NOT LLR$UCPABT[0]) # SSLABEL MUST BE UP #
05856 M00S05547.exdrvr +++| OR LLR$Y[0] NQ SM$EXIT$TY # CARTRIDGE NOT EJECTED #
05857 M00S05548.exdrvr +++| OR LLR$Z[0] NQ SM$TY$Z))
05858 M00S05549.exdrvr +++| THEN # DO NOT ISSUE K-DISPLAY MSG #
05859 M00S05550.exdrvr +++| BEGIN # MATRIX #
05860 M00S05551.exdrvr +++| GOTO STRCART3;
05861 M00S05552.exdrvr +++| END # MATRIX #
05862 M00S05553.exdrvr +++|
05863 M00S05554.exdrvr +++| IF MS$RETCODE[0] EQ HRC$CELEMP # CELL FULL #
05864 M00S05555.exdrvr +++| AND NOT (LLR$Y[0] EQ SM$EXIT$TY # NOT OUTPUT TRAY FULL #
05865 M00S05556.exdrvr +++| AND LLR$Z[0] EQ SM$TY$Z)
05866 M00S05557.exdrvr +++| THEN # TURN SM OFF IN UDT #
05867 M00S05558.exdrvr +++| BEGIN # OFF #
05868 M00S05559.exdrvr +++| P<PTHSTAT> = LOC(SM$STS[LLR$SMO[0]]);
05869 M00S05560.exdrvr +++| SMST = SMST1; # ASSUME 2ND CU #
05870 M00S05561.exdrvr +++| IF LLR$CU[0] EQ SM$CUO0[LLR$SMO[0]]
05871 M00S05562.exdrvr +++| THEN # RESET INDEX TO 1ST CU #
05872 M00S05563.exdrvr +++| BEGIN # RESET #
05873 M00S05564.exdrvr +++| SMST = SMST0;
05874 M00S05565.exdrvr +++| END # RESET #
05875 M00S05566.exdrvr +++|
05876 M00S05567.exdrvr +++| PATHBIT(SMST,PATH$DF"U$ON") = OFF;
| Line S05568 Modification History |
M01 (Removed by) | exdrvr2 |
Seq # *Modification Id* Act
----------------------------+
05877 M01S05568.exdrvr2 ---| GOTO STRCARTA; # FIXES COMPILER BUG #
05878 M01S05569.exdrvr2 ---|
05879 M01S05570.exdrvr2 ---|STRCARTA:
05880 M01S05571.exdrvr2 ---| STSP = SM$STS0[LLR$SMO[0]]; # RESET GLOBAL FLAGS #
05881 M01S05572.exdrvr2 ---| STSS = SM$STS1[LLR$SMO[0]];
05882 M01S05573.exdrvr2 ---| SM$FLAG[LLR$SMO[0]] = STSP LOR STSS;
| Line S00157 Modification History |
M01 (Added by) | exdrvr2 |
Seq # *Modification Id* Act
----------------------------+
05883 M01S00157.exdrvr2 +++|
05884 M01S00158.exdrvr2 +++| CONTROL REACTIVE;
05885 M01S00159.exdrvr2 +++|
05886 M01S00160.exdrvr2 +++| SM$FLAG[LLR$SMO[0]] = SM$STS0[LLR$SMO[0]] LOR # RESET GLOBALS #
05887 M01S00161.exdrvr2 +++| SM$STS1[LLR$SMO[0]];
05888 M01S00162.exdrvr2 +++|
05889 M01S00163.exdrvr2 +++| CONTROL INERT;
05890 M01S00164.exdrvr2 +++|
05891 M00S05574.exdrvr +++| END # OFF #
05892 M00S05575.exdrvr +++|
05893 M00S05576.exdrvr +++|#
05894 M00S05577.exdrvr +++|* ISSUE A K-DISPLAY MESSAGE INFORMING THE OPERATOR THAT
05895 M00S05578.exdrvr +++|* EITHER A CARTRIDGE WAS EJECTED, THE OUTPUT TRAY WAS
05896 M00S05579.exdrvr +++|* FULL, OR A MATRIX CELL WAS FULL.
05897 M00S05580.exdrvr +++|#
05898 M00S05581.exdrvr +++|
05899 M00S05582.exdrvr +++| P<KWORD> = LOC(LLR$KWORDS[0]);
05900 M00S05583.exdrvr +++| KW$WORD[0] = 0;
05901 M00S05584.exdrvr +++| KW$LINE1[0] = KM"KM2"; # PRESET MESSAGE ORDINALS #
05902 M00S05585.exdrvr +++| KW$LINE2[0] = KM"KM9"; # ASSUME CARTRIDGE EJECTED #
05903 M00S05586.exdrvr +++| KW$IC[0] = TRUE; # SET IMMEDIATE COMPLETION #
05904 M00S05587.exdrvr +++| KW$DF[0] = TRUE; # ISSUE TO JOB DAYFILE #
05905 M00S05588.exdrvr +++| IF LLR$CSNT[0] NQ 0 # *TDAM* REQUEST #
05906 M00S05589.exdrvr +++| AND (LLR$SDR[0] EQ RESPTYP4"UNK$CART" # UNEXPECTED LABEL #
05907 M00S05590.exdrvr +++| OR LLR$SDR[0] EQ RESPTYP4"CART$LB$ERR")
05908 M00S05591.exdrvr +++| THEN # INDICATE LABEL ERROR IN MESSAGE #
05909 M00S05592.exdrvr +++| BEGIN # RESET #
05910 M00S05593.exdrvr +++| KW$LINE2[0] = KM"KM8";
05911 M00S05594.exdrvr +++| KW$LINE3[0] = KM"KM9"; # CARTRIDGE EJECTED #
05912 M00S05595.exdrvr +++| END # RESET #
05913 M00S05596.exdrvr +++|
05914 M00S05597.exdrvr +++| IF MS$RETCODE[0] EQ HRC$CELEMP
05915 M00S05598.exdrvr +++| THEN # CELL WAS FULL #
05916 M00S05599.exdrvr +++| BEGIN # FULL #
05917 M00S05600.exdrvr +++| KW$LINE2[0] = KM"KM11"; # ASSUME MATRIX CELL FULL #
05918 M00S05601.exdrvr +++| KW$LINE3[0] = KM"KM16"; # SM TURNED OFF #
05919 M00S05602.exdrvr +++| IF LLR$Y[0] EQ SM$EXIT$TY ##
05920 M00S05603.exdrvr +++| AND LLR$Z[0] EQ SM$TY$Z
05921 M00S05604.exdrvr +++| THEN # OUTPUT TRAY IS FULL #
05922 M00S05605.exdrvr +++| BEGIN # TRAY #
05923 M00S05606.exdrvr +++| KW$LINE2[0] = KM"KM19";
05924 M00S05607.exdrvr +++| KW$LINE3[0] = 0; # SM LEFT ON #
05925 M00S05608.exdrvr +++| KW$IC[0] = FALSE; # WAIT FOR OPERATOR RESPONSE #
05926 M00S05609.exdrvr +++| KW$DF[0] = FALSE;
05927 M00S05610.exdrvr +++| END # TRAY #
05928 M00S05611.exdrvr +++|
05929 M00S05612.exdrvr +++| END # FULL #
05930 M00S05613.exdrvr +++|
05931 M00S05614.exdrvr +++| KW$RPGO[0] = TRUE; # ALLOW GO RESPONSE #
05932 M00S05615.exdrvr +++| KP$EQ = UD$ESTO[LLR$CU[0]]; # PRESET MESSAGE PARAMETERS #
05933 M00S05616.exdrvr +++| P<MWBTMP> = LOC(UD$CAMF[LLR$CU[0]]); # LOCATE READ FET #
05934 M00S05617.exdrvr +++| P<FETMWB> = MWB$ADDR[LLR$CIF[0]];
05935 M00S05618.exdrvr +++| P<FETMRA> = P<FETMWB> - 1;
05936 M00S05619.exdrvr +++| P<FETMRB> = FRA$MRBADR[0];
05937 M00S05620.exdrvr +++| KP$CN = FMR$CHAN[0];
05938 M00S05621.exdrvr +++| KP$DT = SM$ID[LLR$SMO[0]];
05939 M00S05622.exdrvr +++| KP$YA = LLR$Y[0]; # SET FULL CELL #
05940 M00S05623.exdrvr +++| KP$ZA = LLR$Z[0];
05941 M00S05624.exdrvr +++| KREQ(LOC(KWORD),KLINK); # SEND K-DISPLAY REQUEST #
05942 M00S05625.exdrvr +++|
05943 M00S05626.exdrvr +++|STRCART3:
| Line S05627 Modification History |
M01 (Removed by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
05944 M01S05627.mse1 ---| IF MS$RETCODE[0] EQ HRC$CSNERR
05945 M01S05628.mse1 ---| THEN # RETRY FORCED AS NORMAL STORE #
| Line S00094 Modification History |
M01 (Added by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
05946 M01S00094.mse1 +++| IF MS$RETCODE[0] EQ HRC$CSNERR # RETRY FORCED AS NORMAL STORE #
05947 M01S00095.mse1 +++| OR LLR$LDERR[0] # RCVY FROM *ACQ* ERROR #
05948 M01S00096.mse1 +++| OR LLR$CSNT[0] EQ 0 # ERROR RELATED TO UTILITY #
05949 M01S00097.mse1 +++| THEN # BUFFERED LOG NOT NEEDED #
05950 M00S05629.exdrvr +++| BEGIN # SKIP #
05951 M00S05630.exdrvr +++| GOTO STRCART5;
05952 M00S05631.exdrvr +++| END # SKIP #
05953 M00S05632.exdrvr +++|
| Line S05633 Modification History |
M01 (Removed by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
05954 M01S05633.mse1 ---| IF LLR$CSNT[0] EQ 0 # BUFFERED LOG NOT NEEDED #
05955 M01S05634.mse1 ---| THEN # PROCESSING COMPLETE #
05956 M01S05635.mse1 ---| BEGIN # SKIP #
05957 M01S05636.mse1 ---| GOTO STRCART5;
05958 M01S05637.mse1 ---| END # SKIP #
05959 M01S05638.mse1 ---|
05960 M00S05639.exdrvr +++| IF KW$LINE2[0] EQ KM"KM19" # OUTPUT TRAY FULL #
05961 M00S05640.exdrvr +++| AND NOT KW$COMP[0]
05962 M00S05641.exdrvr +++| THEN # RETRY STORE REQUEST #
05963 M00S05642.exdrvr +++| BEGIN # EXIT #
05964 M00S05643.exdrvr +++| GOTO STRCART4;
05965 M00S05644.exdrvr +++| END # EXIT #
05966 M00S05645.exdrvr +++|
05967 M00S05646.exdrvr +++| IF LLR$DR[0] EQ RESPTYP4"M86$HDW$PR"
05968 M00S05647.exdrvr +++| THEN # BUFFERED LOG NOT NEEDED #
05969 M00S05648.exdrvr +++| BEGIN # SKIP #
05970 M00S05649.exdrvr +++| GOTO STRCART5; # TREAT DRD AS FULL #
05971 M00S05650.exdrvr +++| END # SKIP #
05972 M00S05651.exdrvr +++|
05973 M00S05652.exdrvr +++| IF MBF$SBADDR[0] NQ 0
05974 M00S05653.exdrvr +++| THEN # CLEAR SBT ENTRY #
05975 M00S05654.exdrvr +++| BEGIN # CLEAR #
05976 M00S05655.exdrvr +++| P<UDT$MSG> = MBF$SBADDR[0];
05977 M00S05656.exdrvr +++| ZFILL(UDT$MSG,MSGLT);
05978 M00S05657.exdrvr +++| END # CLEAR #
05979 M00S05658.exdrvr +++|
05980 M00S05659.exdrvr +++| MBF$WORD[0] = 0; # CLEAR MESSAGE STATUS #
05981 M00S05660.exdrvr +++| MBF$SAVE[0] = SAVEPART;
05982 M00S05661.exdrvr +++| P<UDT$MSG> = P<MBFHDR> + 1;
05983 M00S05662.exdrvr +++| MS$MSG[0] = HFC$DBLD0; # SET *DUMP BUF LOG* FUNCTION #
05984 M00S05663.exdrvr +++| LLR$RS[0] = PROCST"CONT2";
05985 M00S05664.exdrvr +++|
05986 M00S05665.exdrvr +++|#
05987 M00S05666.exdrvr +++|* ISSUE M860 MESSAGE TO DUMP BUFFERED LOG.
05988 M00S05667.exdrvr +++|#
05989 M00S05668.exdrvr +++|
05990 M00S05669.exdrvr +++|STRBUFL:
05991 M00S05670.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
05992 M00S05671.exdrvr +++| SENDMSG; # SEND M860 MESSAGE #
05993 M00S05672.exdrvr +++| IF MBF$SBADDR[0] EQ 0 ##
05994 M00S05673.exdrvr +++| AND LLR$DR[0] EQ RESPTYP4"OK4"
05995 M00S05674.exdrvr +++| THEN # RESPONSE NOT YET RECEIVED #
05996 M00S05675.exdrvr +++| BEGIN # RETRY #
05997 M00S05676.exdrvr +++| RETURN;
05998 M00S05677.exdrvr +++| END # RETRY #
05999 M00S05678.exdrvr +++|
06000 M00S05679.exdrvr +++| LLR$DR[0] = RESPTYP4"OK4"; # DO NOT RETURN ERRORS #
06001 M00S05680.exdrvr +++|
06002 M00S05681.exdrvr +++|#
06003 M00S05682.exdrvr +++|* TURN OFF THE DRD IF AN M860 RESPONSE TO
06004 M00S05683.exdrvr +++|* A DRD MESSAGE WAS A DEVICE DRIVER ERROR, OR THE RESPONSE
06005 M00S05684.exdrvr +++|* TIMED OUT.
06006 M00S05685.exdrvr +++|#
06007 M00S05686.exdrvr +++|
06008 M00S05687.exdrvr +++|STRCART5:
06009 M00S05688.exdrvr +++| IF MS$RETCODE[0] EQ HRC$CSNERR # RETRY AS NORMAL STORE FIRST #
06010 M00S05689.exdrvr +++| OR NOT LLR$DRFUL[0]
06011 M00S05690.exdrvr +++| THEN # DO NOT TURN OFF DRD #
06012 M00S05691.exdrvr +++| BEGIN # OK #
06013 M00S05692.exdrvr +++| GOTO STRCART4;
06014 M00S05693.exdrvr +++| END # OK #
06015 M00S05694.exdrvr +++|
| Line S00098 Modification History |
M01 (Added by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
06016 M01S00098.mse1 +++|#
06017 M01S00099.mse1 +++|* DECIDE IF RETRY COUNT AND RETRY TIME JUSTIFY TURNING DRD OFF.
06018 M01S00100.mse1 +++|#
06019 M01S00101.mse1 +++|
06020 M01S00102.mse1 +++| P<MWBTMP> = LOC(UD$CAMF[LLR$SCU[0]]); # LOCATE BAD CHAN FETS #
06021 M01S00103.mse1 +++| P<FETMWB> = MWB$ADDR[LLR$SCIF[0]];
06022 M01S00104.mse1 +++| P<FETMRA> = P<FETMWB> - 1;
06023 M01S00105.mse1 +++| P<FETMRB> = FRA$MRBADR[0];
06024 M01S00106.mse1 +++| IF FMW$ERROR[0] # ORIGINALLY A CHANNEL ERROR #
06025 M01S00107.mse1 +++| THEN # RETRY CNT ALREADY INCREMENTED #
06026 M01S00108.mse1 +++| BEGIN # CLEAR #
06027 M01S00109.mse1 +++| FMW$ERROR[0] = FALSE; # IN CASE OF ANOTHER CHAN ERR #
06028 M01S00110.mse1 +++| END # CLEAR #
06029 M01S00111.mse1 +++|
06030 M01S00112.mse1 +++| ELSE # ONLY A DRD ERROR #
06031 M01S00113.mse1 +++| BEGIN # BUMP #
06032 M01S00114.mse1 +++| FMW$RCNT[0] = FMW$RCNT[0] + 1; # RECORD ERROR #
06033 M01S00115.mse1 +++| END # BUMP #
06034 M01S00116.mse1 +++|
06035 M01S00117.mse1 +++| RTIME(RTIMESTAT);
06036 M01S00118.mse1 +++| IF (FMW$RCNT[0] EQ 1 # START OF ERROR SEQUENCE #
06037 M01S00119.mse1 +++| AND FMW$RCNT[0] LS MAXCHERR) ##
06038 M01S00120.mse1 +++| OR (FMW$RCNT[0] GR 1 # RETRY TIME EXPIRED #
06039 M01S00121.mse1 +++| AND RTIMSECS[0] GQ FMW$RTIME[0])
06040 M01S00122.mse1 +++| THEN # RESET CHAN FOR NEW INTERVAL #
06041 M01S00123.mse1 +++| BEGIN # RESET #
06042 M01S00124.mse1 +++| FMW$RCNT[0] = 1; # IN CASE INTERVAL EXPIRED #
06043 M01S00125.mse1 +++| FMW$RTIME[0] = RTIMSECS[0] + MAXCHERRTM; # RESET RETRY TIME #
06044 M01S00126.mse1 +++| END # RESET #
06045 M01S00127.mse1 +++|
| Line S00165 Modification History |
M01 (Added by) | exdrvr2 |
Seq # *Modification Id* Act
----------------------------+
06046 M01S00165.exdrvr2 +++| IF LLR$DR[0] EQ RESPTYP4"M86$HDW$PR"
06047 M01S00166.exdrvr2 +++| THEN # DRD CANNOT BE REUSED #
06048 M01S00167.exdrvr2 +++| BEGIN # OFF #
06049 M01S00168.exdrvr2 +++| FMW$RCNT[0] = MAXCHERR; # 7990 WOULD ABORT A RE-ACQUIRE #
06050 M01S00169.exdrvr2 +++| END # OFF #
06051 M01S00170.exdrvr2 +++|
| Line S00128 Modification History |
M01 (Added by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
06052 M01S00128.mse1 +++| IF (FMW$RCNT[0] GR 1 ##
06053 M01S00129.mse1 +++| AND FMW$RCNT[0] GQ MAXCHERR ##
06054 M01S00130.mse1 +++| AND RTIMSECS[0] GQ FMW$RTIME[0]) # ERROR SEQUENCE EXPIRED #
06055 M01S00131.mse1 +++| OR FMW$RCNT[0] LS MAXCHERR # SEQUENCE NOT COMPLETE #
06056 M01S00132.mse1 +++| THEN # DRD NOT READY TO BE TURNED OFF #
06057 M01S00133.mse1 +++| BEGIN # ON #
06058 M01S00134.mse1 +++| GOTO STRCART4; # SKIP TURNING OFF DRD #
06059 M01S00135.mse1 +++| END # ON #
06060 M01S00136.mse1 +++|
06061 M01S00137.mse1 +++| FMW$RCNT[0] = 0; # PRESET IN CASE OF MORE ERRORS #
06062 M01S00138.mse1 +++|
06063 M01S00139.mse1 +++|#
06064 M01S00140.mse1 +++|* PRESET UDT TO TURN OFF DRD.
06065 M01S00141.mse1 +++|#
06066 M01S00142.mse1 +++|
06067 M00S05695.exdrvr +++| DRVRACTIVE = TRUE; # IN CASE DRD MSG TIMED OUT #
06068 M00S05696.exdrvr +++| P<PTHSTAT> = LOC(D1$ST[LLR$SMO[0]]); # ASSUME LOWER DRD #
06069 M00S05697.exdrvr +++| IF LLR$DRD[0] EQ 0
06070 M00S05698.exdrvr +++| THEN # UPPER DRD GOING OFF #
06071 M00S05699.exdrvr +++| BEGIN # RESET #
06072 M00S05700.exdrvr +++| P<PTHSTAT> = LOC(D0$ST[LLR$SMO[0]]);
06073 M00S05701.exdrvr +++| END # RESET #
06074 M00S05702.exdrvr +++|
06075 M00S05703.exdrvr +++| DRST = DRST1; # ASSUME 2ND CU #
06076 M00S05704.exdrvr +++| IF LLR$CU[0] EQ SM$CUO0[LLR$SMO[0]]
06077 M00S05705.exdrvr +++| THEN # RESET DRD INDEX TO 1ST CU #
06078 M00S05706.exdrvr +++| BEGIN # RESET #
06079 M00S05707.exdrvr +++| DRST = DRST0;
06080 M00S05708.exdrvr +++| END # RESET #
06081 M00S05709.exdrvr +++|
06082 M00S05710.exdrvr +++| PATHBIT(DRST,PATH$DF"U$ON") = OFF;
06083 M00S05711.exdrvr +++| PATHBIT(DRST,PATH$DF"U$CU$ACK") = ON;
06084 M00S05712.exdrvr +++| PATHBIT(DRST,PATH$DF"U$DONE") = OFF;
06085 M00S05713.exdrvr +++|
06086 M00S05714.exdrvr +++| CONTROL REACTIVE;
06087 M00S05715.exdrvr +++|
06088 M00S05716.exdrvr +++| IF LLR$DRD[0] EQ 0
06089 M00S05717.exdrvr +++| THEN # STOP LOADS TO UPPER DRD #
06090 M00S05718.exdrvr +++| BEGIN # DRD 0 #
06091 M00S05719.exdrvr +++| D0$FLAG[LLR$SMO[0]] = D0$STSP[LLR$SMO[0]] LOR
06092 M00S05720.exdrvr +++| D0$STSS[LLR$SMO[0]];
06093 M00S05721.exdrvr +++| END # DRD 0 #
06094 M00S05722.exdrvr +++|
06095 M00S05723.exdrvr +++| ELSE # STOP LOADS TO LOWER DRD #
06096 M00S05724.exdrvr +++| BEGIN # DRD 1 #
06097 M00S05725.exdrvr +++| D1$FLAG[LLR$SMO[0]] = D1$STSP[LLR$SMO[0]] LOR
06098 M00S05726.exdrvr +++| D1$STSS[LLR$SMO[0]];
06099 M00S05727.exdrvr +++| END # DRD 1 #
06100 M00S05728.exdrvr +++|
06101 M00S05729.exdrvr +++| CONTROL INERT;
06102 M00S05730.exdrvr +++|
06103 M00S05731.exdrvr +++| LLR$SSD[0] = LLR$D$SMO[0]; # SAVE SM/DRD ORDINALS #
06104 M00S05732.exdrvr +++| LLR$RS[0] = PROCST"CONT3";
06105 M00S05733.exdrvr +++| RETURN;
06106 M00S05734.exdrvr +++|
06107 M00S05735.exdrvr +++|#
06108 M00S05736.exdrvr +++|* ISSUE A K-DISPLAY MESSAGE STATING THAT THE DRD WAS
06109 M00S05737.exdrvr +++|* TURNED OFF.
06110 M00S05738.exdrvr +++|#
06111 M00S05739.exdrvr +++|
06112 M00S05740.exdrvr +++|STRDRDO:
06113 M00S05741.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
06114 M00S05742.exdrvr +++| P<UDT$MSG> = P<MBFHDR> + 1;
06115 M00S05743.exdrvr +++| LLR$D$SMO[0] = LLR$SSD[0]; # RESTORE SM/DRD ORDINALS #
06116 M00S05744.exdrvr +++| P<KWORD> = LOC(LLR$KWORDS[0]);
06117 M00S05745.exdrvr +++| KW$WORD[0] = 0;
06118 M00S05746.exdrvr +++| KW$LINE1[0] = KM"KM3"; # PRESET MESSAGE ORDINALS #
06119 M00S05747.exdrvr +++| KW$LINE2[0] = KM"KM16";
06120 M00S05748.exdrvr +++| KW$IC[0] = TRUE; # SET IMMEDIATE COMPLETION #
06121 M00S05749.exdrvr +++| KW$DF[0] = TRUE; # SEND TO JOB DAYFILE #
06122 M00S05750.exdrvr +++| KW$RPGO[0] = TRUE; # ALLOW GO RESPONSE #
06123 M00S05751.exdrvr +++| KP$EQ = UD$ESTO[LLR$CU[0]]; # PRESET MESSAGE PARAMETERS #
06124 M00S05752.exdrvr +++| P<MWBTMP> = LOC(UD$CAMF[LLR$CU[0]]); # LOCATE READ FET #
06125 M00S05753.exdrvr +++| P<FETMWB> = MWB$ADDR[LLR$CIF[0]];
06126 M00S05754.exdrvr +++| P<FETMRA> = P<FETMWB> - 1;
06127 M00S05755.exdrvr +++| P<FETMRB> = FRA$MRBADR[0];
06128 M00S05756.exdrvr +++| KP$CN = FMR$CHAN[0];
06129 M00S05757.exdrvr +++| KP$DT = SM$ID[LLR$SMO[0]];
06130 M00S05758.exdrvr +++| KP$ID = D1$SUN[LLR$SMO[0]]; # ASSUME LOWER DRD #
06131 M00S05759.exdrvr +++| IF LLR$DRD[0] EQ 0
06132 M00S05760.exdrvr +++| THEN # LOWER DRD HAD ERROR #
06133 M00S05761.exdrvr +++| BEGIN # RESET #
06134 M00S05762.exdrvr +++| KP$ID = D0$SUN[LLR$SMO[0]];
06135 M00S05763.exdrvr +++| END # RESET #
06136 M00S05764.exdrvr +++|
06137 M00S05765.exdrvr +++| KREQ(LOC(KWORD),KLINK); # SEND K-DISPLAY REQUEST #
06138 M00S05766.exdrvr +++|
06139 M00S05767.exdrvr +++|STRCART4:
06140 M00S05768.exdrvr +++| IF LLR$DRD[0] EQ 0
06141 M00S05769.exdrvr +++| THEN # UPPER DRD EMPTY #
06142 M00S05770.exdrvr +++| BEGIN # CLEAR #
06143 M00S05771.exdrvr +++| D0$FULL[LLR$SMO[0]] = FALSE;
06144 M00S05772.exdrvr +++| END # CLEAR #
06145 M00S05773.exdrvr +++|
06146 M00S05774.exdrvr +++| ELSE # LOWER DRD EMPTY #
06147 M00S05775.exdrvr +++| BEGIN # CLEAR #
06148 M00S05776.exdrvr +++| D1$FULL[LLR$SMO[0]] = FALSE;
06149 M00S05777.exdrvr +++| END # CLEAR #
06150 M00S05778.exdrvr +++|
06151 M00S05779.exdrvr +++| IF LLR$SDR[0] NQ 0
06152 M00S05780.exdrvr +++| THEN # RESTORE ORIGINAL ERROR FOR EXEC #
06153 M00S05781.exdrvr +++| BEGIN # RESET #
06154 M00S05782.exdrvr +++| LLR$DR[0] = LLR$SDR[0];
06155 M00S05783.exdrvr +++| END # RESET #
06156 M00S05784.exdrvr +++|
06157 M00S05785.exdrvr +++| IF LLR$PRCNME[0] EQ REQTYP4"INITHW"
06158 M00S05786.exdrvr +++| THEN # CLEAR SO UDT SCAN CAN FINISH #
06159 M00S05787.exdrvr +++| BEGIN # CLEAR #
06160 M00S05788.exdrvr +++| IF MS$RETCODE[0] NQ HRC$CSNERR # DRD NOT YET OFF #
06161 M00S05789.exdrvr +++| THEN # NOT RETRYING AS NORMAL STORE #
06162 M00S05790.exdrvr +++| BEGIN # OFF #
06163 M00S05791.exdrvr +++| LLR$DRFUL[0] = FALSE;
06164 M00S05792.exdrvr +++| END # OFF #
06165 M00S05793.exdrvr +++|
06166 M00S05794.exdrvr +++| LLR$DRDOFF[0] = FALSE;
06167 M00S05795.exdrvr +++| LLR$LDERR[0] = FALSE; # IN CASE LOAD ERROR OCCURRED #
06168 M00S05796.exdrvr +++| END # CLEAR #
06169 M00S05797.exdrvr +++|
06170 M00S05798.exdrvr +++| LLR$RS[0] = PROCST"COMPLETE";
06171 M00S05799.exdrvr +++| IF MS$RETCODE[0] EQ HRC$CSNERR # RETRY AS NORMAL STORE #
06172 M00S05800.exdrvr +++| OR (KW$LINE2[0] EQ KM"KM19" # RETRY STORE TO OUTPUT TRAY #
06173 M00S05801.exdrvr +++| AND NOT KW$COMP[0])
06174 M00S05802.exdrvr +++| THEN # RETRY STORING CARTRIDGE #
06175 M00S05803.exdrvr +++| BEGIN # RETRY #
06176 M00S05804.exdrvr +++| LLR$RS[0] = PROCST"INITIAL";
06177 M00S05805.exdrvr +++| END # RETRY #
06178 M00S05806.exdrvr +++|
06179 M00S05807.exdrvr +++| IF MBF$SBADDR[0] NQ 0
06180 M00S05808.exdrvr +++| THEN # CLEAR SBT ENTRY #
06181 M00S05809.exdrvr +++| BEGIN # CLEAR #
06182 M00S05810.exdrvr +++| P<UDT$MSG> = MBF$SBADDR[0];
06183 M00S05811.exdrvr +++| ZFILL(UDT$MSG,MSGLT);
06184 M00S05812.exdrvr +++| END # CLEAR #
06185 M00S05813.exdrvr +++|
06186 M00S05814.exdrvr +++| MBF$WORD[0] = 0; # CLEAR MESSAGE STATUS #
06187 M00S05815.exdrvr +++| RETURN;
06188 M00S05816.exdrvr +++|
06189 M00S05817.exdrvr +++|STRCART2:
06190 M00S05818.exdrvr +++| MESSAGE(FEMSG,UDFL1);
06191 M00S05819.exdrvr +++| ABORT;
06192 M00S05820.exdrvr +++| END # STRCART #
06193 M00S05821.exdrvr +++|
06194 M00S05822.exdrvr +++| TERM
06195 M00S05823.exdrvr +++|PROC XFRDATA;
06196 M00S05824.exdrvr +++|# TITLE XFRDATA - TRANSFER DATA TO/FROM M860. #
06197 M00S05825.exdrvr +++|
06198 M00S05826.exdrvr +++| BEGIN # XFRDATA #
06199 M00S05827.exdrvr +++|
06200 M00S05828.exdrvr +++|#
06201 M00S05829.exdrvr +++|** XFRDATA - TRANSFER DATA TO/FROM M860.
06202 M00S05830.exdrvr +++|*
06203 M00S05831.exdrvr +++|* *XFRDATA* PROCESSES *DRQUEUE* REQUESTS TO MOUNT AND UNLOAD
06204 M00S05832.exdrvr +++|* VOLUMES, AND INITIATES DATA TRANSFERS BETWEEN *SSEXEC* AND THE
06205 M00S05833.exdrvr +++|* M860 HARDWARE.
06206 M00S05834.exdrvr +++|*
06207 M00S05835.exdrvr +++|* PROC XFRDATA
06208 M00S05836.exdrvr +++|*
06209 M00S05837.exdrvr +++|* ENTRY P<LLRQ> = *DRQUEUE* ENTRY ADDRESS.
06210 M00S05838.exdrvr +++|*
06211 M00S05839.exdrvr +++|* EXIT THE *DRQUEUE* ENTRY REQUEST STATE FIELD HAS BEEN
06212 M00S05840.exdrvr +++|* UPDATED TO INDICATE WHERE SUBSEQUENT PROCESSING OF
06213 M00S05841.exdrvr +++|* THIS REQUEST IS TO CONTINUE.
06214 M00S05842.exdrvr +++|*
06215 M00S05843.exdrvr +++|* MESSAGES *EXEC ABNORMAL, XFRDATA1.* - UDT MESSAGE BUFFER STILL
06216 M00S05844.exdrvr +++|* IN USE.
06217 M00S05845.exdrvr +++|*
06218 M00S05846.exdrvr +++|* *EXEC ABNORMAL, XFRDATA2.* - FATAL ERROR RECEIVED IN
06219 M00S05847.exdrvr +++|* M860 *MOUNT VOLUME*
06220 M00S05848.exdrvr +++|* RESPONSE.
06221 M00S05849.exdrvr +++|*
06222 M00S05850.exdrvr +++|* NOTES THIS IS A PSEUDO-REENTRANT PROCEDURE.
06223 M00S05851.exdrvr +++|#
06224 M00S05852.exdrvr +++|
06225 M00S05853.exdrvr +++|
06226 M00S05854.exdrvr +++|#
06227 M00S05855.exdrvr +++|**** PROC XFRDATA - XREF LIST BEGIN.
06228 M00S05856.exdrvr +++|#
06229 M00S05857.exdrvr +++|
06230 M00S05858.exdrvr +++| XREF
06231 M00S05859.exdrvr +++| BEGIN
06232 M00S05860.exdrvr +++| PROC ABORT; # ABORT #
06233 M00S05861.exdrvr +++| PROC CALLPP; # PASS MESSAGES/DATA TO PP #
06234 M00S05862.exdrvr +++| PROC MESSAGE; # ISSUE DAYFILE MESSAGE #
06235 M00S05863.exdrvr +++| PROC RTIME; # GET TIME SINCE DEADSTART #
06236 M00S05864.exdrvr +++| PROC SENDMSG; # SEND M860 MESSAGE #
06237 M00S05865.exdrvr +++| PROC ZFILL; # ZERO-FILL BUFFER #
06238 M00S05866.exdrvr +++| END
06239 M00S05867.exdrvr +++|
06240 M00S05868.exdrvr +++|#
06241 M00S05869.exdrvr +++|**** PROC XFRDATA - XREF LIST END.
06242 M00S05870.exdrvr +++|#
06243 M00S05871.exdrvr +++|
06244 M00S05872.exdrvr +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
06245 M00S05873.exdrvr +++|*CALL,COMBFAS
06246 M00S05874.exdrvr +++|*CALL,COMBCDD
06247 M00S05875.exdrvr +++|*CALL COMBCPR
06248 M00S05876.exdrvr +++|*CALL,COMBFET
06249 M00S05877.exdrvr +++|*CALL,COMBHFC
06250 M00S05878.exdrvr +++|*CALL,COMBLRQ
06251 M00S05879.exdrvr +++|*CALL,COMBUDT
06252 M00S05880.exdrvr +++|*CALL,COMXMSC
06253 M00S05881.exdrvr +++|
06254 M00S05882.exdrvr +++| ITEM I I; # INDEX #
06255 M00S05883.exdrvr +++|
06256 M00S05884.exdrvr +++| SWITCH XFRLBL:PROCST # DRIVER REQUEST STATE #
06257 M00S05885.exdrvr +++| XFRINIT:INITIAL, # INITIAL STATE #
06258 M00S05886.exdrvr +++| XFRMNVL:CONT1, # CONTINUATION 1 #
06259 M00S05887.exdrvr +++| XFRPDAT:CONT2, # CONTINUATION 2 #
06260 M00S05888.exdrvr +++| XFRINCR:CONT3, # CONTINUATION 3 #
06261 M00S05889.exdrvr +++| XFRUNLD:CONT4, # CONTINUATION 4 #
06262 M00S05890.exdrvr +++| XFRRESP:CONT5; # CONTINUATION 5 #
06263 M00S05891.exdrvr +++| CONTROL EJECT;
06264 M00S05892.exdrvr +++|
06265 M00S05893.exdrvr +++| GOTO XFRLBL[LLR$RS[0]];
06266 M00S05894.exdrvr +++|
06267 M00S05895.exdrvr +++|#
06268 M00S05896.exdrvr +++|* INITIAL DRIVER REQUEST STATE.
06269 M00S05897.exdrvr +++|#
06270 M00S05898.exdrvr +++|
06271 M00S05899.exdrvr +++|XFRINIT:
06272 M00S05900.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
06273 M00S05901.exdrvr +++| IF MBF$WORD[0] NQ 0
06274 M00S05902.exdrvr +++| THEN # DRD STILL IN USE #
06275 M00S05903.exdrvr +++| BEGIN # ABORT #
06276 M00S05904.exdrvr +++| FE$RTN[0] = "XFRDATA1.";
06277 M00S05905.exdrvr +++| GOTO XFRDATA1;
06278 M00S05906.exdrvr +++| END # ABORT #
06279 M00S05907.exdrvr +++|
06280 M00S05908.exdrvr +++| P<UDT$MSG> = P<MBFHDR> + 1;
06281 M00S05909.exdrvr +++| MBF$SAVE[0] = SAVEMOST;
06282 M00S05910.exdrvr +++| MS$MSG[0] = HFC$MVLMVR; # ASSUME READING DATA #
06283 M00S05911.exdrvr +++| LLR$RS[0] = PROCST"CONT1";
06284 M00S05912.exdrvr +++|
06285 M00S05913.exdrvr +++|#
06286 M00S05914.exdrvr +++|* ISSUE M860 MESSAGE TO MOUNT VOLUME.
06287 M00S05915.exdrvr +++|#
06288 M00S05916.exdrvr +++|
06289 M00S05917.exdrvr +++|XFRMNVL:
06290 M00S05918.exdrvr +++| P<FETFHB> = LLR$MSFET[0];
06291 M00S05919.exdrvr +++| FHB$UNIT[0] = D1$SUN[LLR$SMO[0]];
06292 M00S05920.exdrvr +++| IF LLR$DRD[0] EQ 0
06293 M00S05921.exdrvr +++| THEN # UPPER DRD BEING USED #
06294 M00S05922.exdrvr +++| BEGIN # RESET #
06295 M00S05923.exdrvr +++| FHB$UNIT[0] = D0$SUN[LLR$SMO[0]];
06296 M00S05924.exdrvr +++| END # RESET #
06297 M00S05925.exdrvr +++|
06298 M00S05926.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
06299 M00S05927.exdrvr +++| SENDMSG; # SEND M860 MESSAGE #
06300 M00S05928.exdrvr +++| IF LLR$DR[0] EQ RESPTYP4"M86$HDW$PR"
06301 M00S05929.exdrvr +++| THEN # HARDWARE PROBLEM #
06302 M00S05930.exdrvr +++| BEGIN # EXIT #
06303 M00S05931.exdrvr +++| IF MS$INTER[0] NQ 0 # CIF SELECTED #
06304 M00S05932.exdrvr +++| THEN # DATA TRANSFER STOPPED #
06305 M00S05933.exdrvr +++| BEGIN # NO DATA #
06306 M00S05934.exdrvr +++| B<LLR$CIF[0],1>UD$DBACT[LLR$CU[0]] = OFF;
06307 M00S05935.exdrvr +++| END # NO DATA #
06308 M00S05936.exdrvr +++|
06309 M00S05937.exdrvr +++| IF MBF$SENT[0]
06310 M00S05938.exdrvr +++| THEN # IGNORE RESPONSES #
06311 M00S05939.exdrvr +++| BEGIN # IGNORE #
06312 M00S05940.exdrvr +++| MSGCNT(LLR$CIF[0],LLR$CU[0]) = MSGCNT(LLR$CIF[0],LLR$CU[0])-1;
06313 M00S05941.exdrvr +++| # COUNT INCLUDED REWIND/UNLOAD #
06314 M00S05942.exdrvr +++| END # IGNORE #
06315 M00S05943.exdrvr +++|
06316 M00S05944.exdrvr +++| GOTO XFRDATA2;
06317 M00S05945.exdrvr +++| END # EXIT #
06318 M00S05946.exdrvr +++|
06319 M00S05947.exdrvr +++| IF MBF$SBADDR[0] EQ 0
06320 M00S05948.exdrvr +++| THEN # RESPONSE NOT YET RECEIVED #
06321 M00S05949.exdrvr +++| BEGIN # RETRY #
06322 M00S05950.exdrvr +++| RETURN;
06323 M00S05951.exdrvr +++| END # RETRY #
06324 M00S05952.exdrvr +++|
06325 M00S05953.exdrvr +++| IF MS$RETCODE[0] NQ 0
06326 M00S05954.exdrvr +++| THEN # SOFTWARE ERROR #
06327 M00S05955.exdrvr +++| BEGIN # ABORT #
06328 M00S05956.exdrvr +++| FE$RTN[0] = "XFRDATA2.";
06329 M00S05957.exdrvr +++| GOTO XFRDATA1;
06330 M00S05958.exdrvr +++| END # ABORT #
06331 M00S05959.exdrvr +++|
06332 M00S05960.exdrvr +++| ZFILL(UDT$MSG,MSGLT); # CLEAR STORAGE BUFFER #
06333 M00S05961.exdrvr +++| MBF$SBADDR[0] = 0; # CLEAR SBT ENTRY ADDRESS #
06334 M00S05962.exdrvr +++| MBF$TMOUT[0] = 0; # CLEAR MESSAGE TIMEOUT #
06335 M00S05963.exdrvr +++| LLR$RS[0] = PROCST"CONT2";
06336 M00S05964.exdrvr +++|
06337 M00S05965.exdrvr +++|#
06338 M00S05966.exdrvr +++|* PASS DATA BUFFER ADDRESS TO PP TO START DATA TRANSFER.
06339 M00S05967.exdrvr +++|#
06340 M00S05968.exdrvr +++|
06341 M00S05969.exdrvr +++|XFRPDAT:
06342 M00S05970.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
06343 M00S05971.exdrvr +++| P<UDT$MSG> = P<MBFHDR> + 1;
06344 M00S05972.exdrvr +++| CALLPP(IRMDAT);
06345 M00S05973.exdrvr +++| IF LLR$DR[0] EQ RESPTYP4"M86$HDW$PR"
06346 M00S05974.exdrvr +++| THEN # HARDWARE PROBLEM #
06347 M00S05975.exdrvr +++| BEGIN # EXIT #
06348 M00S05976.exdrvr +++| GOTO XFRDATA2;
06349 M00S05977.exdrvr +++| END # EXIT #
06350 M00S05978.exdrvr +++|
06351 M00S05979.exdrvr +++| IF B<FMR$CIF[0],1>UD$DBACT[LLR$CU[0]] EQ ON ##
06352 M00S05980.exdrvr +++| AND P<FETMWB> NQ 0 # CHANNEL WAS ALLOCATED #
06353 M00S05981.exdrvr +++| THEN # DATA TRANSFER STARTED #
06354 M00S05982.exdrvr +++| BEGIN # RETRY #
06355 M00S05983.exdrvr +++| LLR$RS[0] = PROCST"COMPLETE";# RETURN WHEN COPY COMPLETE #
06356 M00S05984.exdrvr +++| END # RETRY #
06357 M00S05985.exdrvr +++|
06358 M00S05986.exdrvr +++| RETURN;
06359 M00S05987.exdrvr +++|
06360 M00S05988.exdrvr +++|#
06361 M00S05989.exdrvr +++|* AWAIT M860-INITIATED UNLOAD MESSAGE.
06362 M00S05990.exdrvr +++|#
06363 M00S05991.exdrvr +++|
06364 M00S05992.exdrvr +++|XFRINCR:
06365 M00S05993.exdrvr +++| SLOWFOR I = 1 STEP 1 UNTIL PPCBTSIZE
06366 M00S05994.exdrvr +++| DO # NOTE DATA TRANSFER COMPLETE #
06367 M00S05995.exdrvr +++| BEGIN # SCAN #
06368 M00S05996.exdrvr +++| IF LLR$MSFET[0] EQ PPU$DBADDR[I]
06369 M00S05997.exdrvr +++| THEN # REMOVE ADDRESS #
06370 M00S05998.exdrvr +++| BEGIN # CLEAR #
06371 M00S05999.exdrvr +++| PPU$DBADDR[I] = 0;
06372 M00S06000.exdrvr +++| B<LLR$CIF[0],1>UD$DBACT[LLR$CU[0]] = OFF;
06373 M00S06001.exdrvr +++| # FREE PP FOR NEXT DATA XFER #
06374 M00S06002.exdrvr +++| END # CLEAR #
06375 M00S06003.exdrvr +++|
06376 M00S06004.exdrvr +++| END # SCAN #
06377 M00S06005.exdrvr +++|
06378 M00S06006.exdrvr +++| IF LLR$DRFUL[0]
06379 M00S06007.exdrvr +++| THEN # DATA TRANSFER ERROR #
06380 M00S06008.exdrvr +++| BEGIN # EXIT #
| Line S00143 Modification History |
M01 (Added by) | mse1 |
Seq # *Modification Id* Act
----------------------------+
06381 M01S00143.mse1 +++| LLR$SCIF[0] = LLR$CIF[0]; # SAVE TO DECIDE IF DRD GOES OFF #
06382 M01S00144.mse1 +++| LLR$SCU[0] = LLR$CU[0];
06383 M00S06009.exdrvr +++| MSGCNT(LLR$CIF[0],LLR$CU[0]) = MSGCNT(LLR$CIF[0],LLR$CU[0])-1;
06384 M00S06010.exdrvr +++| GOTO XFRDATA2; # DO NOT EXPECT REWIND/UNLOAD #
06385 M00S06011.exdrvr +++| END # EXIT #
06386 M00S06012.exdrvr +++|
06387 M00S06013.exdrvr +++| RTIME(RTIMESTAT); # RESET MESSAGE TIMEOUT #
06388 M00S06014.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
06389 M00S06015.exdrvr +++| MBF$TMOUT[0] = RTIMSECS[0];
06390 M00S06016.exdrvr +++| LLR$RS[0] = PROCST"CONT4";
06391 M00S06017.exdrvr +++|
06392 M00S06018.exdrvr +++|XFRUNLD:
06393 M00S06019.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
06394 M00S06020.exdrvr +++| SENDMSG; # AWAIT UNLOAD MESSAGE #
06395 M00S06021.exdrvr +++| IF LLR$DR[0] EQ RESPTYP4"M86$HDW$PR"
06396 M00S06022.exdrvr +++| THEN # RESPONSE TIMED OUT #
06397 M00S06023.exdrvr +++| BEGIN # EXIT #
06398 M00S06024.exdrvr +++| GOTO XFRDATA2;
06399 M00S06025.exdrvr +++| END # EXIT #
06400 M00S06026.exdrvr +++|
06401 M00S06027.exdrvr +++| IF MBF$SBADDR[0] EQ 0
06402 M00S06028.exdrvr +++| THEN # MESSAGE NOT YET RECEIVED #
06403 M00S06029.exdrvr +++| BEGIN # RETRY #
06404 M00S06030.exdrvr +++| RETURN;
06405 M00S06031.exdrvr +++| END # RETRY #
06406 M00S06032.exdrvr +++|
06407 M00S06033.exdrvr +++| IF LLR$PRCNME[0] EQ REQTYP4"CPY$DA" # VOLUME DESTAGE #
06408 M00S06034.exdrvr +++| THEN # RETURN STATISTICS #
06409 M00S06035.exdrvr +++| BEGIN # STATS #
06410 M00S06036.exdrvr +++| LLR$LT$ST[0] = MS$PARM1A[0]; # LAST STRIPE WRITTEN #
06411 M00S06037.exdrvr +++| LLR$LOG$ST[0] = MS$PARM2[0]; # LOGICAL STRIPE POSITION #
06412 M00S06038.exdrvr +++| END # STATS #
06413 M00S06039.exdrvr +++|
06414 M00S06040.exdrvr +++| MBF$SENT[0] = FALSE;
06415 M00S06041.exdrvr +++| MS$MSG$R[0] = TRUE; # SET AS UNLOAD RESPONSE #
06416 M00S06042.exdrvr +++| LLR$RS[0] = PROCST"CONT5";
06417 M00S06043.exdrvr +++|
06418 M00S06044.exdrvr +++|#
06419 M00S06045.exdrvr +++|* ISSUE RESPONSE TO M860-INITIATED UNLOAD MESSAGE.
06420 M00S06046.exdrvr +++|#
06421 M00S06047.exdrvr +++|
06422 M00S06048.exdrvr +++|XFRRESP:
06423 M00S06049.exdrvr +++| P<MBFHDR> = LLR$MBH[0];
06424 M00S06050.exdrvr +++| SENDMSG; # SEND UNLOAD RESPONSE #
06425 M00S06051.exdrvr +++| IF LLR$DR[0] EQ RESPTYP4"OK4" # HARDWARE GOOD #
06426 M00S06052.exdrvr +++| AND NOT MBF$SENT[0]
06427 M00S06053.exdrvr +++| THEN # RESPONSE NOT YET SENT #
06428 M00S06054.exdrvr +++| BEGIN # RETRY #
06429 M00S06055.exdrvr +++| RETURN;
06430 M00S06056.exdrvr +++| END # RETRY #
06431 M00S06057.exdrvr +++|
06432 M00S06058.exdrvr +++|XFRDATA2:
06433 M00S06059.exdrvr +++| IF MBF$SBADDR[0] NQ 0
06434 M00S06060.exdrvr +++| THEN # CLEAR SBT ENTRY #
06435 M00S06061.exdrvr +++| BEGIN # CLEAR #
06436 M00S06062.exdrvr +++| P<UDT$MSG> = MBF$SBADDR[0];
06437 M00S06063.exdrvr +++| ZFILL(UDT$MSG,MSGLT);
06438 M00S06064.exdrvr +++| END # CLEAR #
06439 M00S06065.exdrvr +++|
06440 M00S06066.exdrvr +++| IF NOT LLR$DRFUL[0]
06441 M00S06067.exdrvr +++| THEN # DO NOT ISSUE FORCED-STORE #
06442 M00S06068.exdrvr +++| BEGIN # NORMAL #
06443 M00S06069.exdrvr +++| MBF$WORD[0] = 0; # STOP *STRCART* FROM FORCING #
06444 M00S06070.exdrvr +++| END # NORMAL #
06445 M00S06071.exdrvr +++|
06446 M00S06072.exdrvr +++| LLR$RS[0] = PROCST"COMPLETE";
06447 M00S06073.exdrvr +++| RETURN;
06448 M00S06074.exdrvr +++|
06449 M00S06075.exdrvr +++|XFRDATA1:
06450 M00S06076.exdrvr +++| MESSAGE(FEMSG,UDFL1);
06451 M00S06077.exdrvr +++| ABORT;
06452 M00S06078.exdrvr +++| END # XFRDATA #
06453 M00S06079.exdrvr +++|
06454 M00S06080.exdrvr +++| TERM