cdc:nos2.source:opl.opl871:deck:pfload.003
Deck PFLOAD Part 003
34 Modifications
Listing Sections
- Deck PFLOAD Start
- Deck PFLOAD Part 1 (Line 838)
- Deck PFLOAD Part 2 (Line 1745)
- Deck PFLOAD Part 3 (Line 2694)
- Deck PFLOAD Part 4 (Line 3990)
- Deck PFLOAD Part 5 (Line 4919)
- Deck PFLOAD Part 6 (Line 6099)
- Deck PFLOAD Part 7 (Line 7310)
- Deck PFLOAD Part 8 (Line 9172)
- Deck PFLOAD Part 9 (Line 10380)
- Deck PFLOAD Part 10 (Line 11334)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00307 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02694 M01S00307.286l859 +++| SA1 CPAR+/COMSPFS/CPTD 02695 M01S00308.286l859 +++| ZR X1,CSPX IF NO TRUE DEVICE SELECTION 02696 M01S00309.286l859 +++| SA2 TMDA+X2 02697 M01S00310.286l859 +++| SA3 TCBF+FCDN 02698 M01S00311.286l859 +++| SA2 X2+
| Line S00541 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02699 M01S00541.ns22000 +++| MX0 -6
| Line S00542 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02700 M02S00542.286l859 ---| BX3 -X0*X2 02701 M02S00543.286l859 ---| IX7 X3-X1 02702 M02S00544.286l859 ---| ZR X7,CSPX IF MASTER DEVICE = SECONDARY
| Line S00545 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2697 |
M03 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02703 M03S00545.286l859 ---| CSP2 SA2 TCBF+FCDN GET DEVICE NUMBER FROM CATALOG
| Line S00248 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02704 M02S00248.286l859 ---| CSP4 SA2 TCBF+FCDN GET DEVICE NUMBER FROM CATALOG
| Line S00546 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02705 M02S00546.286l859 ---| LX2 24 02706 M02S00547.286l859 ---| MX0 -6 02707 M02S00548.286l859 ---| BX2 -X0*X2 02708 M02S00549.286l859 ---| BX2 X2-X1 02709 M02S00550.286l859 ---| ZR X2,CSPX IF FILE IS TO BE LOADED
| Line S00312 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02710 M01S00312.286l859 +++| LX3 24 02711 M01S00313.286l859 +++| BX2 -X0*X2 MASTER DEVICE NUMBER 02712 M01S00314.286l859 +++| BX3 -X0*X3 OLD RESIDENCY DEVICE NUMBER 02713 M01S00315.286l859 +++| IX2 X2-X1 02714 M01S00316.286l859 +++| BX3 X3-X1 02715 M01S00317.286l859 +++| ZR X2,CSPX IF FILE CATALOGED ON TRUE DEVICE 02716 M01S00318.286l859 +++| ZR X3,CSPX IF FILE RESIDED ON TRUE DEVICE
| Line S00551 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02717 M01S00551.ns22000 +++| BX6 X6-X6 SET TO NOT LOAD FILE 02718 M01S00552.ns22000 +++| EQ CSPX RETURN
| Line S01379 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02719 M01S01379.286l859 ---| CWR SPACE 4,60 02720 M01S01380.286l859 ---|** CWR - CONTROL WORD READ WORDS. 02721 M01S01381.286l859 ---|* 02722 M01S01382.286l859 ---|* ENTRY (X2) = FET ADDRESS. 02723 M01S01383.286l859 ---|* (B6) = FWA OF WORKING BUFFER. 02724 M01S01384.286l859 ---|* (B7) = WORD COUNT OF WORKING BUFFER. 02725 M01S01385.286l859 ---|* (X2+CWSW) = 0 FOR FIRST CALL. 02726 M01S01386.286l859 ---|* = CONTENTS AT EXIT FROM PREVIOUS CALL, 02727 M01S01387.286l859 ---|* OTHERWISE. 02728 M01S01388.286l859 ---|* 02729 M01S01389.286l859 ---|* EXIT (X1) = 0 FOR TRANSFER COMPLETE. 02730 M01S01390.286l859 ---|* = (B6) FOR EOR DETECTED ON FILE. 02731 M01S01391.286l859 ---|* = -1 FOR EOF DETECTED ON FILE. 02732 M01S01392.286l859 ---|* = -2 FOR EOI DETECTED ON FILE. 02733 M01S01393.286l859 ---|* (X2) = FET ADDRESS. 02734 M01S01394.286l859 ---|* (X7) = 0 IF NO ERROR DETECTED. 02735 M01S01395.286l859 ---|* = ERROR CODE FROM FET IF ERROR DETECTED. 02736 M01S01396.286l859 ---|* (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO 02737 M01S01397.286l859 ---|* WORKING BUFFER. 02738 M01S01398.286l859 ---|* (B7) = WORD COUNT REMAINING TO BE TRANSFERRED. 02739 M01S01399.286l859 ---|* 02740 M01S01400.286l859 ---|* *CWSW* IS A STATUS WORD USED BY *CWR* TO UNPACK 02741 M01S01401.286l859 ---|* CONTROL WORD BLOCKS. THIS WORD SHOULD BE CLEARED BY 02742 M01S01402.286l859 ---|* THE CALLER BEFORE THE FIRST CALL TO *CWR*. WHEN AN 02743 M01S01403.286l859 ---|* EOR/EOF TERMINATION STATUS IS INDICATED BY *CWR* AS A 02744 M01S01404.286l859 ---|* RESULT OF DETECTING A SHORT BLOCK IN THE BUFFER, 02745 M01S01405.286l859 ---|* *CWSW* WILL BE NON-ZERO. SUBSEQUENT CALLS TO *CWR* 02746 M01S01406.286l859 ---|* WILL THEN CONTINUE TO INDICATE EOR/EOF TERMINATION 02747 M01S01407.286l859 ---|* STATUS UNTIL *CWSW* IS AGAIN CLEARED BY THE CALLER. 02748 M01S01408.286l859 ---|* THUS THE CLEARING OF *CWSW* IS ANALOGOUS TO THE USE 02749 M01S01409.286l859 ---|* OF THE *READ* MACRO TO ADVANCE PAST EOR/EOF WHEN 02750 M01S01410.286l859 ---|* USING *CIO* BUFFER READ OPERATIONS. 02751 M01S01411.286l859 ---|* 02752 M01S01412.286l859 ---|* BEFORE THE FIRST CALL TO *CWR* OR FOLLOWING THE 02753 M01S01413.286l859 ---|* DETECTION OF EOF/EOI IN THE FET STATUS FIELD, THE 02754 M01S01414.286l859 ---|* *READCW* MACRO MUST BE ISSUED TO INITIATE A CONTROL 02755 M01S01415.286l859 ---|* WORD READ OPERATION. IF THE READ IS TO EOF 02756 M01S01416.286l859 ---|* (*READCW FET,17B*), AN EOF TERMINATION STATUS 02757 M01S01417.286l859 ---|* INDICATES THAT AN EOF WAS DETECTED IN THE FET AND A 02758 M01S01418.286l859 ---|* NEW READ MUST BE ISSUED IN ADDITION TO CLEARING *CWSW* 02759 M01S01419.286l859 ---|* IN ORDER TO ADVANCE PAST EOF. IF THE READ IS TO EOI 02760 M01S01420.286l859 ---|* (*READCW FET,0*), AN EOF TERMINATION STATUS 02761 M01S01421.286l859 ---|* INDICATES THAT AN EOF BLOCK WAS DETECTED IN THE BUFFER 02762 M01S01422.286l859 ---|* AND THAT ONLY *CWSW* NEED BE CLEARED TO ADVANCE PAST 02763 M01S01423.286l859 ---|* EOF. 02764 M01S01424.286l859 ---|* 02765 M01S01425.286l859 ---|* NOTE THAT THE FIRST TIME (X7) INDICATES AN ERROR, NO 02766 M01S01426.286l859 ---|* BAD DATA WILL BE TRANSFERRED TO THE WORKING BUFFER. 02767 M01S01427.286l859 ---|* SUBSEQUENT CALLS WILL CONTINUE TO INDICATE THE ERROR 02768 M01S01428.286l859 ---|* BY THE (X7) AND WILL TRANSFER BAD DATA IF AVAILABLE. 02769 M01S01429.286l859 ---|* IN ALL ERROR CASES (X1) WILL INDICATE EOR/EOF/EOI 02770 M01S01430.286l859 ---|* STATUS AND (B6) AND (B7) WILL INDICATE WORKING BUFFER 02771 M01S01431.286l859 ---|* STATUS AS FOR NON-ERROR CASES. IN ERROR CASES, 02772 M01S01432.286l859 ---|* HOWEVER, EVEN THOUGH (X1) MAY BE ZERO INDICATING 02773 M01S01433.286l859 ---|* TRANSFER COMPLETE, (B6) OR (B7) MUST BE ANALYZED TO 02774 M01S01434.286l859 ---|* DETERMINE HOW MUCH DATA WAS ACTUALLY TRANSFERRED TO 02775 M01S01435.286l859 ---|* THE WORKING BUFFER. 02776 M01S01436.286l859 ---|* 02777 M01S01437.286l859 ---|* USES X - 1, 3, 4, 6, 7. 02778 M01S01438.286l859 ---|* A - 1, 3, 4, 6, 7. 02779 M01S01439.286l859 ---|* B - 5, 6, 7. 02780 M01S01440.286l859 ---|* 02781 M01S01441.286l859 ---|* MACROS READW, RECALL. 02782 M01S01442.286l859 ---| 02783 M01S01443.286l859 ---| 02784 M01S01444.286l859 ---|* SET ERROR STATUS CODE. 02785 M01S01445.286l859 ---| 02786 M01S01446.286l859 ---| CWR11 PL X3,CWRX IF CURRENT BLOCK NOT BAD 02787 M01S01447.286l859 ---| BX4 X1 SAVE TERMINATION STATUS 02788 M01S01448.286l859 ---| RECALL X2 WAIT FOR FILE NOT BUSY 02789 M01S01449.286l859 ---| SA1 X2 GET ERROR CODE FROM FET 02790 M01S01450.286l859 ---| SX3 36000B 02791 M01S01451.286l859 ---| BX7 X3*X1 02792 M01S01452.286l859 ---| SX1 X4 RESTORE TERMINATION STATUS 02793 M01S01453.286l859 ---| LX7 -10 02794 M01S01454.286l859 ---| 02795 M01S01455.286l859 ---| CWR SUBR ENTRY/EXIT 02796 M01S01456.286l859 ---| 02797 M01S01457.286l859 ---|* TRANSFER DATA TO WORKING BUFFER. 02798 M01S01458.286l859 ---| 02799 M01S01459.286l859 ---| CWR1 SA3 X2+CWSW GET CONTROL WORD STATUS 02800 M01S01460.286l859 ---| BX7 X7-X7 CLEAR ERROR STATUS 02801 M01S01461.286l859 ---| SX1 B0 SET TRANSFER COMPLETE STATUS 02802 M01S01462.286l859 ---| ZR B7,CWR11 IF WORKING BUFFER FULL 02803 M01S01463.286l859 ---| SB5 X3-1 02804 M01S01464.286l859 ---| LE B5,CWR3 IF CURRENT BLOCK EMPTY 02805 M01S01465.286l859 ---| SX6 B7-B5 SET REMAINING WORKING BUFFER LENGTH 02806 M01S01466.286l859 ---| GE B7,B5,CWR2 IF BLOCK WILL FIT IN BUFFER 02807 M01S01467.286l859 ---| BX6 X6-X6 02808 M01S01468.286l859 ---| SB5 B7 SET TO FILL BUFFER 02809 M01S01469.286l859 ---| CWR2 SA6 CWRA SAVE REMAINING WORKING BUFFER LENGTH 02810 M01S01470.286l859 ---| SX1 B5 UPDATE BLOCK WORD COUNT 02811 M01S01471.286l859 ---| IX7 X3-X1 02812 M01S01472.286l859 ---| SA7 A3 02813 M01S01473.286l859 ---| READW X2,B6,B5 TRANSFER DATA TO WORKING BUFFER 02814 M01S01474.286l859 ---| SA1 CWRA RESTORE WORKING BUFFER LENGTH 02815 M01S01475.286l859 ---| SB7 B7+X1 02816 M01S01476.286l859 ---| EQ CWR1 FILL REMAINDER OF WORKING BUFFER 02817 M01S01477.286l859 ---| 02818 M01S01478.286l859 ---|* SAVE WORKING BUFFER PARAMETERS. 02819 M01S01479.286l859 ---| 02820 M01S01480.286l859 ---| CWR3 SX6 B7 SAVE WORKING BUFFER LENGTH 02821 M01S01481.286l859 ---| SX7 B6 SAVE WORKING BUFFER ADDRESS 02822 M01S01482.286l859 ---| SA6 CWRA 02823 M01S01483.286l859 ---| SA7 A6+B1 02824 M01S01484.286l859 ---| LX3 -18 02825 M01S01485.286l859 ---| ZR B5,CWR9 IF SECOND CONTROL WORD LEFT 02826 M01S01486.286l859 ---| 02827 M01S01487.286l859 ---|* PROCESS FIRST CONTROL WORD. 02828 M01S01488.286l859 ---| 02829 M01S01489.286l859 ---| CWR4 SA4 CWRC 02830 M01S01490.286l859 ---| PL X4,CWR5 IF LAST BLOCK NOT BAD 02831 M01S01491.286l859 ---| RECALL X2 02832 M01S01492.286l859 ---| SA3 X2 CLEAR ERROR STATUS 02833 M01S01493.286l859 ---| SX6 36000B 02834 M01S01494.286l859 ---| BX6 -X6*X3 02835 M01S01495.286l859 ---| SA6 A3 02836 M01S01496.286l859 ---| CWR5 READW X2,CWRB,1 READ FIRST CONTROL WORD 02837 M01S01497.286l859 ---| SA3 CWRA RESTORE WORKING BUFFER LENGTH 02838 M01S01498.286l859 ---| SA4 A3+B1 RESTORE WORKING BUFFER ADDRESS 02839 M01S01499.286l859 ---| SB5 B7 SAVE TRANSFER COMPLETE STATUS 02840 M01S01500.286l859 ---| SB7 X3 02841 M01S01501.286l859 ---| SB6 X4 02842 M01S01502.286l859 ---| NZ B5,CWR7 IF CONTROL WORD NOT READ 02843 M01S01503.286l859 ---| SA1 CWRB BLOCK SIZE = BYTE COUNT / 5 02844 M01S01504.286l859 ---| SX6 5 02845 M01S01505.286l859 ---| SX3 X1 02846 M01S01506.286l859 ---| PX3 X3 02847 M01S01507.286l859 ---| PX6 X6 02848 M01S01508.286l859 ---| NX6 X6 02849 M01S01509.286l859 ---| FX7 X3/X6 02850 M01S01510.286l859 ---| UX7,B5 X7 02851 M01S01511.286l859 ---| LX7 X7,B5 02852 M01S01512.286l859 ---| MX4 1 SAVE ERROR FLAG 02853 M01S01513.286l859 ---| BX3 X4*X1 02854 M01S01514.286l859 ---| LX1 -36 GET PRU SIZE 02855 M01S01515.286l859 ---| SX6 X7+B1 ALLOW FOR SECOND CONTROL WORD 02856 M01S01516.286l859 ---| SX1 X1 02857 M01S01517.286l859 ---| IX7 X7-X1 CHECK FOR SHORT BLOCK 02858 M01S01518.286l859 ---| BX6 X3+X6 02859 M01S01519.286l859 ---| ZR X7,CWR6 IF FULL BLOCK 02860 M01S01520.286l859 ---| LX4 18-59 SET SHORT BLOCK FLAG 02861 M01S01521.286l859 ---| BX6 X6+X4 02862 M01S01522.286l859 ---| CWR6 SA4 X2+CWSW GET OLD STATUS WORD 02863 M01S01523.286l859 ---| SA6 CWRC 02864 M01S01524.286l859 ---| SA6 A4 SAVE NEW STATUS WORD 02865 M01S01525.286l859 ---| BX6 X4-X6 02866 M01S01526.286l859 ---| PL X6,CWR1 IF NO CHANGE IN BLOCK STATUS 02867 M01S01527.286l859 ---| BX1 X1-X1 SET TRANSFER COMPLETE STATUS 02868 M01S01528.286l859 ---| EQ CWR11 GET ERROR STATUS 02869 M01S01529.286l859 ---| 02870 M01S01530.286l859 ---|* PROCESS EOF/EOI AND FET ERROR CODE STATUS. 02871 M01S01531.286l859 ---| 02872 M01S01532.286l859 ---| CWR7 SX3 X1+3 02873 M01S01533.286l859 ---| ZR X3,CWR8 IF READ ERROR 02874 M01S01534.286l859 ---| BX7 X7-X7 CLEAR ERROR STATUS
| Line S01535 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02875 M02S01535.286l859 ---| EQ CWRX EXIT
| Line S00553 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02876 M02S00553.286l859 ---| EQ CWRX RETURN
| Line S01536 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02877 M01S01536.286l859 ---| 02878 M01S01537.286l859 ---| CWR8 BX6 X6-X6 CLEAR STATUS WORD 02879 M01S01538.286l859 ---| BX1 X1-X1 02880 M01S01539.286l859 ---| SA6 X2+CWSW
| Line S01540 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02881 M02S01540.286l859 ---| EQ CWRX EXIT
| Line S00554 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02882 M02S00554.286l859 ---| EQ CWRX RETURN
| Line S01541 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02883 M01S01541.286l859 ---| 02884 M01S01542.286l859 ---|* PROCESS SECOND CONTROL WORD. 02885 M01S01543.286l859 ---| 02886 M01S01544.286l859 ---| CWR9 SX4 X3-2 02887 M01S01545.286l859 ---| PL X4,CWR10 IF SECOND CONTROL WORD ALREADY READ 02888 M01S01546.286l859 ---| READW X2,CWRB,1 READ SECOND CONTROL WORD 02889 M01S01547.286l859 ---| SA3 X2+CWSW CHECK SHORT BLOCK STATUS 02890 M01S01548.286l859 ---| LX3 -18 02891 M01S01549.286l859 ---| SX6 X3 02892 M01S01550.286l859 ---| ZR X6,CWR4 IF NOT SHORT BLOCK 02893 M01S01551.286l859 ---| SA4 B6-B1 GET END OF RECORD LEVEL NUMBER 02894 M01S01552.286l859 ---| IX3 X3+X6 02895 M01S01553.286l859 ---| AX4 48 02896 M01S01554.286l859 ---| IX6 X3+X4 SAVE LEVEL NUMBER IN STATUS WORD 02897 M01S01555.286l859 ---| LX6 18 02898 M01S01556.286l859 ---| SA6 A3 02899 M01S01557.286l859 ---| CWR10 SB5 X4-17B 02900 M01S01558.286l859 ---| SA4 CWRA RESTORE WORKING BUFFER LENGTH 02901 M01S01559.286l859 ---| LX3 18 02902 M01S01560.286l859 ---| SA1 A4+B1 RESTORE WORKING BUFFER ADDRESS 02903 M01S01561.286l859 ---| SB7 X4 02904 M01S01562.286l859 ---| BX7 X7-X7 CLEAR ERROR STATUS 02905 M01S01563.286l859 ---| SB6 X1 02906 M01S01564.286l859 ---| NZ B5,CWR11 IF NOT LEVEL 17B END OF RECORD 02907 M01S01565.286l859 ---| SX1 -B1 SET EOF STATUS 02908 M01S01566.286l859 ---| EQ CWR11 SET ERROR STATUS CODE 02909 M01S01567.286l859 ---|
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02910 M02S00060.286l859 ---|
| Line S01568 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02911 M02S01568.286l859 ---| CWRA BSS 2 WORKING BUFFER PARAMETER STORAGE 02912 M02S01569.286l859 ---| CWRB BSS 1 CONTROL WORD BUFFER
| Line S00555 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02913 M02S00555.286l859 ---| CWRA BSSZ 2 WORKING BUFFER PARAMETER STORAGE 02914 M02S00556.286l859 ---| CWRB CON 0 CONTROL WORD BUFFER
| Line S01570 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02915 M01S01570.286l859 ---| CWRC CON 0 STATUS WORD FROM LAST BLOCK
| Line S01571 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02916 M01S01571.ns22000 ---| CWSW EQU 5 CONTROL WORD STATUS WORD 02917 M01S01572.ns22000 ---| DDS SPACE 4,20
| Line S00557 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02918 M02S00557.ns2697 ---| DDS SPACE 4,15
| Line S00249 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02919 M01S00249.ns2697 +++| DDS SPACE 4,10 02920 M00S01573.pfload +++|** DDS - DELETE DATA SPACE. 02921 M00S01574.pfload +++|*
| Line S01575 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02922 M01S01575.ns22000 ---|* ENTRY (*CATS* *IN* POINTER) = ADDRESS OF CATALOG ENTRY. 02923 M01S01576.ns22000 ---|* (DAEQ) = DAF EQUIPMENT NUMBER.
| Line S00558 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02924 M01S00558.ns22000 +++|* ENTRY (*CATS* IN POINTER) = ADDRESS OF CATALOG ENTRY.
| Line S00559 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02925 M02S00559.ns2697 ---|* (DAEQ) = DAPF EST ORDINAL. 02926 M00S01577.pfload +++|* 02927 M00S01578.pfload +++|* EXIT DATA SPACE FOR FILE DELETED. 02928 M00S01579.pfload +++|* 02929 M00S01580.pfload +++|* USES X - 1, 2, 3, 6, 7. 02930 M00S01581.pfload +++|* A - 1, 2, 3, 6, 7. 02931 M00S01582.pfload +++|*
| Line S01583 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02932 M01S01583.ns2697 ---|* CALLS FDB.
| Line S00250 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02933 M01S00250.ns2697 +++|* CALLS FDB, SFD. 02934 M00S01584.pfload +++| 02935 M00S01585.pfload +++| 02936 M00S01586.pfload +++| DDS SUBR ENTRY/EXIT 02937 M00S01587.pfload +++| RJ FDB FLUSH DATA BUFFER 02938 M00S01588.pfload +++| SA3 CATS+2 CHECK FOR FILE WITH WRITE ERROR 02939 M00S01589.pfload +++| SA1 X3+FCUI 02940 M00S01590.pfload +++| SX6 X1+ 02941 M00S01591.pfload +++| SX7 X1-IFUI 02942 M00S01592.pfload +++| ZR X6,DDSX IF WRITE ERROR ON FILE 02943 M00S01593.pfload +++| ZR X7,DDSX IF WRITE ERROR ON FILE 02944 M00S01594.pfload +++| SA1 X3+FCBS+FCBT* SET FIRST TRACK AND SECTOR OF FILE 02945 M00S01595.pfload +++| MX3 -12 02946 M00S01596.pfload +++| BX6 -X3*X1 02947 M00S01597.pfload +++| LX3 12 02948 M00S01598.pfload +++| BX7 X3*X1 CLEAR FIRST TRACK OF FILE 02949 M00S01599.pfload +++| BX3 -X3*X1 02950 M00S01600.pfload +++| LX1 59-11 02951 M00S01601.pfload +++| ZR X3,DDSX IF NO FIRST TRACK
| Line S00251 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02952 M01S00251.ns2697 +++| SA7 A1+ 02953 M00S01602.pfload +++| PL X1,DDS1 IF INDIRECT ACCESS FILE
| Line S01603 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02954 M01S01603.ns22000 ---| SA2 DAEQ SET DAF EQUIPMENT
| Line S00560 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02955 M02S00560.ns2697 ---| SA2 DAEQ SET DAPF EQUIPMENT
| Line S01604 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
M02 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02956 M02S01604.ns2697 ---| SX6 X2+4000B SET *DROP AND FLAW TRACKS* FLAG
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02957 M02S00025.ns2697 ---| SX6 X2+4000B SET *DROP TRACKS* FLAG
| Line S01605 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02958 M01S01605.ns2697 ---| DDS1 SA7 A1 02959 M01S01606.ns2697 ---| BX6 X3+X6 PUT PARAMETER IN FET
| Line S00252 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 02960 M01S00252.ns2697 +++| SA2 A1+FCDN-FCBT 02961 M01S00253.ns2697 +++| MX6 -6 02962 M01S00254.ns2697 +++| LX2 -36 02963 M01S00255.ns2697 +++| BX2 -X6*X2 SET DEVICE NUMBER 02964 M01S00256.ns2697 +++| MX6 -9 02965 M01S00257.ns2697 +++| RJ SFD SEARCH FOR DEVICE 02966 M01S00258.ns2697 +++| LX1 -6 02967 M01S00259.ns2697 +++| BX6 -X6*X1 SET EST ORDINAL 02968 M01S00260.ns2697 +++| SX6 X6+4000B SET *DROP TRACKS* FLAG 02969 M01S00261.ns2697 +++| DDS1 BX6 X3+X6 PUT PARAMETER IN FET 02970 M00S01607.pfload +++| SA1 DATA SET POSITION REQUEST IN FET 02971 M00S01608.pfload +++| MX3 42 02972 M00S01609.pfload +++| BX7 X3*X1 02973 M00S01610.pfload +++| SA6 DATA+FTPM 02974 M00S01611.pfload +++| SA7 A1
| Line S01612 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02975 M01S01612.ns22000 ---| EQ DDSX EXIT 02976 M01S01613.ns22000 ---| DIF SPACE 4,20
| Line S00561 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02977 M01S00561.ns22000 +++| EQ DDSX RETURN 02978 M01S00562.ns22000 +++| DIF SPACE 4,15 02979 M00S01614.pfload +++|** DIF - DELETE INCOMPLETE FILE. 02980 M00S01615.pfload +++|* 02981 M00S01616.pfload +++|* ENTRY (IPFF) = INCOMPLETE PERMANENT FILE FLAG. 02982 M00S01617.pfload +++|* 02983 M00S01618.pfload +++|* EXIT (IPFF) = 0.
| Line S00319 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02984 M01S00319.286l859 +++|* (*TFST* ENTRY) = 0. 02985 M00S01619.pfload +++|* ANY INCOMPLETE PERMANENT FILE DELETED. 02986 M00S01620.pfload +++|* 02987 M00S01621.pfload +++|* USES X - 1, 6. 02988 M00S01622.pfload +++|* A - 1, 6. 02989 M00S01623.pfload +++|* 02990 M00S01624.pfload +++|* CALLS DDS, DPS. 02991 M00S01625.pfload +++| 02992 M00S01626.pfload +++| 02993 M00S01627.pfload +++| DIF SUBR ENTRY/EXIT 02994 M00S01628.pfload +++| SA1 IPFF
| Line S01629 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02995 M01S01629.286l859 ---| ZR X1,DIFX IF NO INCOMPLETE PERMANENT FILE
| Line S00320 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02996 M01S00320.286l859 +++| ZR X1,DIF1 IF NO INCOMPLETE PERMANENT FILE 02997 M00S01630.pfload +++| RJ DDS DELETE DATA SPACE 02998 M00S01631.pfload +++| RJ DPS DELETE PERMIT SPACE
| Line S01632 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02999 M01S01632.ns22000 ---| BX6 X6-X6 CLEAR INCOMPLETE FILE FLAG
| Line S00563 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03000 M02S00563.286l859 ---| SX6 B0+ CLEAR INCOMPLETE FILE FLAG
| Line S01633 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03001 M01S01633.286l859 ---| SA6 IPFF
| Line S00321 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03002 M01S00321.286l859 +++| DIF1 SA1 CBFO 03003 M01S00322.286l859 +++| SA1 TFST+X1 03004 M01S00323.286l859 +++| SX6 B0 03005 M01S00324.286l859 +++| SA6 IPFF CLEAR INCOMPLETE FILE FLAG 03006 M01S00325.286l859 +++| SA6 A1 CLEAR FILE STATUS
| Line S01634 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03007 M01S01634.ns22000 ---| EQ DIFX EXIT 03008 M01S01635.ns22000 ---| DPS SPACE 4,20
| Line S00564 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03009 M01S00564.ns22000 +++| EQ DIFX RETURN 03010 M01S00565.ns22000 +++| DPS SPACE 4,15 03011 M00S01636.pfload +++|** DPS - DELETE PERMIT SPACE. 03012 M00S01637.pfload +++|*
| Line S01638 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03013 M01S01638.ns22000 ---|* ENTRY (*CATS* *IN* POINTER) = ADDRESS OF CATALOG ENTRY.
| Line S00566 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03014 M01S00566.ns22000 +++|* ENTRY (*CATS* IN POINTER) = ADDRESS OF CATALOG ENTRY. 03015 M00S01639.pfload +++|* 03016 M00S01640.pfload +++|* EXIT PERMIT SPACE FOR FILE DELETED. 03017 M00S01641.pfload +++|* (RICT) = UPDATED TO REFLECT DELETED PERMITS. 03018 M00S01642.pfload +++|* 03019 M00S01643.pfload +++|* USES X - 1, 3, 6, 7. 03020 M00S01644.pfload +++|* A - 1, 3, 6, 7. 03021 M00S01645.pfload +++|* B - 6, 7. 03022 M00S01646.pfload +++|* 03023 M00S01647.pfload +++|* CALLS FPB, WPR.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | pfloa18 |
Seq # *Modification Id* Act ----------------------------+ 03024 M01S00001.pfloa18 +++|* 03025 M01S00002.pfloa18 +++|* MACROS RECALL. 03026 M00S01648.pfload +++| 03027 M00S01649.pfload +++| 03028 M00S01650.pfload +++| DPS SUBR ENTRY/EXIT 03029 M00S01651.pfload +++| RJ FPB FLUSH PERMIT BUFFER 03030 M00S01652.pfload +++| SA3 CATS+2 GET PERMIT RANDOM INDEX 03031 M00S01653.pfload +++| SA1 X3+FCRI 03032 M00S01654.pfload +++| MX6 24 03033 M00S01655.pfload +++| BX7 X6*X1 03034 M00S01656.pfload +++| ZR X7,DPSX IF NO PERMITS 03035 M00S01657.pfload +++| LX7 -36 03036 M00S01658.pfload +++| SA1 X2 SET POSITION REQUEST IN FET 03037 M00S01659.pfload +++| SA7 RICT UPDATE PERMIT RANDOM INDEX 03038 M00S01660.pfload +++| MX3 42 03039 M00S01661.pfload +++| BX6 X3*X1 03040 M00S01662.pfload +++| SA7 X2+FTPM PUT RANDOM INDEX PARAMETER IN FET 03041 M00S01663.pfload +++| SA6 X2
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | pfloa18 |
Seq # *Modification Id* Act ----------------------------+ 03042 M01S00003.pfloa18 +++| RECALL X2 03043 M00S01664.pfload +++| SX7 B1+B1 SET EOI CONTROL WORD 03044 M00S01665.pfload +++| SB6 LWRD SET BUFFER ADDRESS 03045 M00S01666.pfload +++| LX7 54 03046 M00S01667.pfload +++| SB7 B1 SET BUFFER WORD COUNT
| Line S01668 Modification History | |
|---|---|
M01 (Removed by) | pfloa18 |
Seq # *Modification Id* Act ----------------------------+ 03047 M01S01668.pfloa18 ---| SA7 B6+
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | pfloa18 |
Seq # *Modification Id* Act ----------------------------+ 03048 M01S00004.pfloa18 +++| SA7 B6 03049 M00S01669.pfload +++| RJ WPR WRITE EOI SECTOR
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | pfloa18 |
Seq # *Modification Id* Act ----------------------------+ 03050 M01S00005.pfloa18 +++| RJ FPB FLUSH PERMIT BUFFER TO FORCE EOI WRITE
| Line S01670 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03051 M01S01670.ns22000 ---| EQ DPSX EXIT
| Line S00567 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03052 M01S00567.ns22000 +++| EQ DPSX RETURN 03053 M01S00568.ns22000 +++| DUP SPACE 4,15 03054 M01S00569.ns22000 +++|** DUP - DROP UTILITY PROCESSOR. 03055 M01S00570.ns22000 +++|* 03056 M01S00571.ns22000 +++|* ENTRY (PAFL) = 0 IF *PFU* NOT ACTIVE. 03057 M01S00572.ns22000 +++|* = 1 IF *PFU* ACTIVE. 03058 M01S00573.ns22000 +++|* 03059 M01S00574.ns22000 +++|* EXIT (PAFL) = 0. 03060 M01S00575.ns22000 +++|* *PFU* DROPPED IF ACTIVE. 03061 M01S00576.ns22000 +++|* CATALOG PROCESSING COMPLETED. 03062 M01S00577.ns22000 +++|* 03063 M01S00578.ns22000 +++|* USES X - 1, 2, 6. 03064 M01S00579.ns22000 +++|* A - 1, 6. 03065 M01S00580.ns22000 +++|* 03066 M01S00581.ns22000 +++|* CALLS FCB. 03067 M01S00582.ns22000 +++|* 03068 M01S00583.ns22000 +++|* MACROS RECALL. 03069 M01S00584.ns22000 +++| 03070 M01S00585.ns22000 +++| 03071 M01S00586.ns22000 +++| DUP SUBR ENTRY/EXIT 03072 M01S00587.ns22000 +++| SA1 PAFL 03073 M01S00588.ns22000 +++| ZR X1,DUPX IF *PFU* NOT ACTIVE 03074 M01S00589.ns22000 +++| RJ FCB FLUSH CATALOG BUFFER 03075 M01S00590.ns22000 +++| RECALL DATA 03076 M01S00591.ns22000 +++| SA1 DATA SIGNAL *PFU* TO DROP 03077 M01S00592.ns22000 +++| MX2 42 03078 M01S00593.ns22000 +++| BX6 X2*X1 03079 M01S00594.ns22000 +++| SX1 10B 03080 M01S00595.ns22000 +++| BX6 X6+X1 03081 M01S00596.ns22000 +++| SA6 A1 03082 M01S00597.ns22000 +++| RECALL DATA WAIT FOR *PFU* TO COMPLETE 03083 M01S00598.ns22000 +++| EQ DUPX RETURN 03084 M00S01671.pfload +++| DWE SPACE 4,40 03085 M00S01672.pfload +++|** DWE - DATA WRITE ERROR PROCESSOR. 03086 M00S01673.pfload +++|*
| Line S01674 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03087 M01S01674.ns22000 ---|* ENTRY (DATA+FTPM) = *FST* ENTRY AT TIME OF ERROR.
| Line S00599 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03088 M01S00599.ns22000 +++|* ENTRY (DATA+FTPM) = FST ENTRY AT TIME OF ERROR. 03089 M00S01675.pfload +++|* WRITE ERROR DETECTED ON DATA FILE. 03090 M00S01676.pfload +++|* 03091 M00S01677.pfload +++|* EXIT (BFCA) = BAD FILE CATALOG ADDRESS. 03092 M00S01678.pfload +++|* 03093 M00S01679.pfload +++|* IF A WRITE ERROR - 03094 M00S01680.pfload +++|* DATA FOR BAD FILE REMOVED FROM BUFFER. 03095 M00S01681.pfload +++|* (DATA+FTSC) = DECREMENTED BY SECTOR COUNT REMOVED FROM 03096 M00S01682.pfload +++|* BUFFER. 03097 M00S01683.pfload +++|* FILE LENGTH IN CATALOG DECREMENTED BY THE NUMBER OF 03098 M00S01684.pfload +++|* SECTORS - 1 REMOVED FROM BUFFER. 03099 M00S01685.pfload +++|* USER INDEX OF FILE CLEARED FROM CATALOG FOR A DIRECT 03100 M00S01686.pfload +++|* ACCESS FILE AND SET TO A SPECIAL WRITE ERROR USER 03101 M00S01687.pfload +++|* INDEX FOR AN INDIRECT ACCESS FILE. 03102 M00S01688.pfload +++|* DATA WRITE ERROR MESSAGES ISSUED.
| Line S01689 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03103 M01S01689.242l642 ---|* MASS STORAGE SPACE DROPPED AND BAD TRACK FLAWED FOR A 03104 M01S01690.242l642 ---|* DIRECT ACCESS FILE.
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03105 M01S00026.242l642 +++|* MASS STORAGE SPACE DROPPED FOR A DIRECT ACCESS FILE. 03106 M00S01691.pfload +++|* ERROR STATUS CLEARED FROM FET. 03107 M00S01692.pfload +++|* 03108 M00S01693.pfload +++|* IF A TRACK LIMIT OR ERROR IDLE - 03109 M00S01694.pfload +++|* DATA AND PERMITS FOR UNWRITTEN CATALOG ENTRIES ARE 03110 M00S01695.pfload +++|* PURGED. 03111 M00S01696.pfload +++|* UTILITY PROCESSOR IS DROPPED. 03112 M00S01697.pfload +++|* UTILITY INTERLOCK IS CLEARED. 03113 M00S01698.pfload +++|* TRACK LIMIT OR ERROR IDLE MESSAGES ARE ISSUED. 03114 M00S01699.pfload +++|* MESSAGE IDENTIFYING FIRST FILE NOT LOADED IS ISSUED. 03115 M00S01700.pfload +++|* EXIT TO *ABT* IS TAKEN. 03116 M00S01701.pfload +++|*
| Line S01702 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03117 M01S01702.286l859 ---|* USES X - 1, 2, 3, 6, 7.
| Line S00326 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03118 M01S00326.286l859 +++|* USES X - 1, 2, 3, 6, 7. 03119 M00S01703.pfload +++|* A - 1, 2, 3, 6, 7.
| Line S00327 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03120 M01S00327.286l859 +++|* B - 2. 03121 M00S01704.pfload +++|*
| Line S01705 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03122 M01S01705.ns22000 ---|* CALLS PFD, SEC, SEM.
| Line S00600 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03123 M02S00600.286l859 ---|* CALLS AEC, PFD, SEC, SEM.
| Line S01706 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03124 M01S01706.286l859 ---|* 03125 M01S01707.286l859 ---|* MACROS EDITS.
| Line S00328 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03126 M01S00328.286l859 +++|* CALLS CFE, PFD, SEC, SFE. 03127 M00S01708.pfload +++| 03128 M00S01709.pfload +++| 03129 M00S01710.pfload +++| DWE SUBR ENTRY/EXIT 03130 M00S01711.pfload +++| SA1 DATA GET FET ERROR CODE 03131 M00S01712.pfload +++| MX2 -6 03132 M00S01713.pfload +++| LX1 -12 03133 M00S01714.pfload +++| BX6 -X2*X1 03134 M00S01715.pfload +++| SX2 A1 SAVE FET ADDRESS 03135 M00S01716.pfload +++| SX1 X6-FEWE
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03136 M01S00027.242l642 +++| ZR X1,DWE0 IF WRITE ERROR WITH DATA TANSFERRED 03137 M01S00028.242l642 +++| SX1 X6-FEWN CHECK WRITE ERROR WITH NO DATA TRANSFERRED 03138 M00S01717.pfload +++| NZ X1,DWE3 IF NOT WRITE ERROR
| Line S00329 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03139 M01S00329.286l859 +++| DWE0 SA1 DATA+FTPM 03140 M01S00330.286l859 +++| MX7 -9 03141 M01S00331.286l859 +++| LX1 12 03142 M01S00332.286l859 +++| BX7 -X7*X1 SET EST ORDINAL 03143 M01S00333.286l859 +++| SA7 DWEB 03144 M00S01718.pfload +++|
| Line S01719 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03145 M01S01719.286l859 ---|* SET BAD SECTOR ADDRESS MESSAGE PARAMETERS. 03146 M01S01720.286l859 ---|
| Line S01721 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03147 M02S01721.286l859 ---| SA1 DATA+FTPM GET BAD TRACK AND SECTOR ADDRESS
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03148 M02S00029.286l859 ---| DWE0 SA1 DATA+FTPM GET BAD TRACK AND SECTOR ADDRESS
| Line S01722 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03149 M01S01722.286l859 ---| MX2 -12 03150 M01S01723.286l859 ---| LX1 -12 SET BAD SECTOR 03151 M01S01724.286l859 ---| BX6 -X2*X1 03152 M01S01725.286l859 ---| LX1 -12 SET BAD TRACK 03153 M01S01726.286l859 ---| BX7 -X2*X1 03154 M01S01727.286l859 ---| LX1 -24 SET BAD EQUIPMENT 03155 M01S01728.286l859 ---| SA6 MPSC 03156 M01S01729.286l859 ---| SA7 MPTK
| Line S01730 Modification History | |
|---|---|
M01 (Removed by) | pfloa3 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03157 M02S01730.286l859 ---| MX2 -6
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | pfloa3 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03158 M02S00001.286l859 ---| MX2 -9
| Line S01731 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03159 M01S01731.286l859 ---| BX6 -X2*X1 03160 M01S01732.286l859 ---| SA6 MPEQ 03161 M01S01733.286l859 ---| 03162 M01S01734.286l859 ---|* SET FILE NAME AND USER INDEX MESSAGE PARAMETERS.
| Line S00334 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03163 M01S00334.286l859 +++|* SET BAD FILE CATALOG ADDRESS. 03164 M00S01735.pfload +++| 03165 M00S01736.pfload +++| SA1 DATA+3 GET CONTROL WORD FOR BAD SECTOR 03166 M00S01737.pfload +++| SA2 X1 03167 M00S01738.pfload +++| LX2 -36 SET BAD FILE CATALOG ADDRESS 03168 M00S01739.pfload +++| SX6 X2
| Line S01740 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03169 M01S01740.286l859 ---| SA1 X2+FCFN+FCUI* SET FILE NAME OF BAD FILE 03170 M01S01741.286l859 ---| MX3 42 03171 M00S01742.pfload +++| SA6 BFCA
| Line S01743 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03172 M01S01743.286l859 ---| BX7 X3*X1 03173 M01S01744.286l859 ---| BX6 -X3*X1 SET USER INDEX OF BAD FILE 03174 M01S01745.286l859 ---| SA7 MPFN 03175 M01S01746.286l859 ---| SA6 MPUI 03176 M01S01747.286l859 ---| 03177 M01S01748.286l859 ---|* SET FILE RESIDENCY DEVICE MESSAGE PARAMETER. 03178 M01S01749.286l859 ---| 03179 M01S01750.286l859 ---| SA1 X2+FCBS CHECK FILE TYPE 03180 M01S01751.286l859 ---| SA3 CPAR+/COMSPFS/CPDN GET MASTER DEVICE NUMBER 03181 M01S01752.286l859 ---| LX1 59-11 03182 M01S01753.286l859 ---| BX6 X3 03183 M01S01754.286l859 ---| PL X1,DWE1 IF INDIRECT ACCESS FILE
| Line S01755 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03184 M02S01755.286l859 ---| SA1 X2+FCEO GET DAF RESIDENCY DEVICE
| Line S00601 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03185 M02S00601.286l859 ---| SA1 X2+FCDN GET DAPF RESIDENCY DEVICE
| Line S01756 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03186 M01S01756.286l859 ---| MX3 -6 03187 M01S01757.286l859 ---| LX1 -36 03188 M01S01758.286l859 ---| BX3 -X3*X1 03189 M01S01759.286l859 ---| ZR X3,DWE1 IF FILE RESIDENT ON MASTER DEVICE 03190 M01S01760.286l859 ---| BX6 X3 SET ALTERNATE RESIDENCE 03191 M01S01761.286l859 ---| DWE1 SA6 MPDN SAVE FILE RESIDENCY DEVICE 03192 M00S01762.pfload +++| 03193 M00S01763.pfload +++|* REMOVE BAD FILE FROM BUFFER. 03194 M00S01764.pfload +++| 03195 M00S01765.pfload +++| SX2 DATA SKIP TO END OF BAD FILE 03196 M00S01766.pfload +++| RJ SEC 03197 M00S01767.pfload +++| SA1 DATA+FTSC ADJUST SECTOR COUNTER 03198 M00S01768.pfload +++| SX3 A0 03199 M00S01769.pfload +++| IX6 X1-X3 03200 M00S01770.pfload +++| SA6 A1 03201 M00S01771.pfload +++| 03202 M00S01772.pfload +++|* SET CORRECT CATALOG LENGTH AND USER INDEX. 03203 M00S01773.pfload +++| 03204 M00S01774.pfload +++| SA2 BFCA ADJUST CATALOG LENGTH 03205 M00S01775.pfload +++| SX3 A0-B1 LEAVE BAD SECTOR WITH FILE 03206 M00S01776.pfload +++| SA1 X2+FCLF+FCBS* 03207 M00S01777.pfload +++| LX3 36 03208 M00S01778.pfload +++| IX6 X1-X3 03209 M00S01779.pfload +++| SA3 X2+FCUI 03210 M00S01780.pfload +++| LX1 59-11 CHECK FILE TYPE 03211 M00S01781.pfload +++| SA6 A1 03212 M00S01782.pfload +++| MX2 42 CLEAR USER INDEX 03213 M00S01783.pfload +++| BX7 X2*X3
| Line S01784 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03214 M01S01784.ns22000 ---| SX6 MES4 PRESET DIRECT ACCESS MESSAGE ADDRESS
| Line S00602 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03215 M02S00602.286l859 ---| SX6 MES4 * PFLOAD - DAPF WRITE ERROR.* 03216 M00S01785.pfload +++| NG X1,DWE2 IF DIRECT ACCESS FILE
| Line S01786 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03217 M01S01786.ns22000 ---| SX1 IFUI SET *IAF* FLAWED SECTOR CHAIN USER INDEX 03218 M01S01787.ns22000 ---| SX6 MES5 SET INDIRECT ACCESS MESSAGE ADDRESS
| Line S00603 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03219 M01S00603.ns22000 +++| SX1 IFUI SET *IAPF* FLAWED SECTOR CHAIN USER INDEX
| Line S00604 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03220 M02S00604.286l859 ---| SX6 MES5 * PFLOAD - IAPF WRITE ERROR.* 03221 M00S01788.pfload +++| BX7 X7+X1
| Line S01789 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03222 M01S01789.286l859 ---| DWE2 SA6 DWEA 03223 M01S01790.286l859 ---| SA7 A3+
| Line S00335 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03224 M01S00335.286l859 +++| DWE2 SA7 A3+ 03225 M00S01791.pfload +++|
| Line S01792 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03226 M01S01792.286l859 ---|* ISSUE ERROR MESSAGES.
| Line S00336 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03227 M01S00336.286l859 +++|* ISSUE ERROR MESSAGE. 03228 M00S01793.pfload +++|
| Line S01794 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03229 M01S01794.286l859 ---| SA1 SADD BUILD DATA WRITE ERROR MESSAGE 03230 M01S01795.286l859 ---| EDITS X1,X6 03231 M01S01796.286l859 ---| RJ SEM SEND ERROR MESSAGE 03232 M01S01797.286l859 ---| SA1 DWEA BUILD MESSAGE WITH FILE NAME 03233 M01S01798.286l859 ---| EDITS MSFN,X1 03234 M01S01799.286l859 ---| RJ SEM SEND ERROR MESSAGE
| Line S00337 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03235 M01S00337.286l859 +++| SA2 BFCA 03236 M01S00338.286l859 +++| SA1 X2+FCUI 03237 M01S00339.286l859 +++| SB2 ERDW * DATA WRITE ERROR ...* 03238 M01S00340.286l859 +++| RJ SFE SEND ERROR MESSAGE 03239 M01S00341.286l859 +++| RJ CFE COUNT FILE SKIPPED
| Line S00605 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03240 M02S00605.286l859 ---| RJ AEC ADVANCE ERROR COUNT 03241 M00S01800.pfload +++|
| Line S01801 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03242 M01S01801.242l642 ---|* DROP AND FLAW DIRECT ACCESS FILE.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03243 M01S00030.242l642 +++|* DROP DIRECT ACCESS FILE. 03244 M00S01802.pfload +++| 03245 M00S01803.pfload +++| SA2 BFCA 03246 M00S01804.pfload +++| SA1 X2+FCBS+FCBT* 03247 M00S01805.pfload +++| LX1 59-11 03248 M00S01806.pfload +++| PL X1,DWEX IF INDIRECT ACCESS FILE 03249 M00S01807.pfload +++| MX7 -12
| Line S01808 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03250 M01S01808.242l642 ---| SA2 MPTK SET BAD TRACK
| Line S01809 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03251 M01S01809.286l859 ---| SA3 MPEQ SET BAD EQUIPMENT
| Line S00342 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03252 M01S00342.286l859 +++| SA3 DWEB SET BAD EQUIPMENT 03253 M00S01810.pfload +++| BX6 -X7*X1 SET FIRST TRACK OF FILE
| Line S01811 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03254 M01S01811.242l642 ---| LX2 24 03255 M01S01812.242l642 ---| SX3 X3+4000B SET *DROP AND FLAW TRACKS* FLAG 03256 M01S01813.242l642 ---| LX6 12 03257 M01S01814.242l642 ---| BX1 X2+X3 03258 M01S01815.242l642 ---| BX7 X6+X1
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03259 M01S00031.242l642 +++| LX6 12 03260 M01S00032.242l642 +++| SX3 X3+4000B SET *DROP TRACKS* FLAG 03261 M01S00033.242l642 +++| BX7 X3+X6 03262 M00S01816.pfload +++| MX2 42 03263 M00S01817.pfload +++| SA7 DATA+FTPM PUT POSITION PARAMETERS IN FET 03264 M00S01818.pfload +++| SA1 DATA SET POSITION FUNCTION IN FET 03265 M00S01819.pfload +++| BX6 X2*X1 03266 M00S01820.pfload +++| SA6 A1
| Line S01821 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03267 M01S01821.ns22000 ---| EQ DWEX EXIT
| Line S00606 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03268 M01S00606.ns22000 +++| EQ DWEX RETURN 03269 M00S01822.pfload +++| 03270 M00S01823.pfload +++|* PROCESS TRACK LIMIT/ERROR IDLE CONDITION. 03271 M00S01824.pfload +++| 03272 M00S01825.pfload +++| DWE3 RJ PFD PROCESS FULL DEVICE
| Line S00343 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03273 M01S00343.286l859 +++| SB2 B0 SET NO MESSAGE
| Line S01826 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03274 M01S01826.ns22000 ---| EQ ABT ABORT LOAD
| Line S00607 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03275 M01S00607.ns22000 +++| EQ ABT ABORT 03276 M00S01827.pfload +++|
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 03277 M01S00061.253l688 +++|
| Line S01828 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03278 M01S01828.ns22000 ---| DWEA BSS 1 WRITE ERROR MESSAGE ADDRESS
| Line S00608 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03279 M01S00608.ns22000 +++| DWEA CON 0 WRITE ERROR MESSAGE ADDRESS
| Line S00344 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03280 M01S00344.286l859 +++| DWEB CON 0 EST ORDINAL 03281 M01S00345.286l859 +++| ECL SPACE 4,10 03282 M01S00346.286l859 +++|** ECL - EDIT CATALOG ENTRY FOR LOAD. 03283 M01S00347.286l859 +++|* 03284 M01S00348.286l859 +++|* ENTRY CATALOG ENTRY IN *TCBF*. 03285 M01S00349.286l859 +++|* 03286 M01S00350.286l859 +++|* EXIT CATALOG ENTRY FIELDS MODIFIED AS REQUIRED. 03287 M01S00351.286l859 +++|* 03288 M01S00352.286l859 +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 03289 M01S00353.286l859 +++|* A - 1, 2, 3, 4, 6, 7. 03290 M01S00354.286l859 +++| 03291 M01S00355.286l859 +++| 03292 M01S00356.286l859 +++| ECL SUBR ENTRY/EXIT 03293 M01S00357.286l859 +++| 03294 M01S00358.286l859 +++|* PROCESS UTILITY CONTROL DATE OPTION. 03295 M01S00359.286l859 +++| 03296 M01S00360.286l859 +++| SA1 UDAT FETCH UTLITY CONTROL UPDATE FLAG 03297 M01S00361.286l859 +++| ZR X1,ECL1 IF FORCED UPDATE FLAG NOT SET 03298 M01S00362.286l859 +++| SA2 TCBF+FCUD 03299 M01S00363.286l859 +++| MX0 24 03300 M01S00364.286l859 +++| BX6 X0*X2 03301 M01S00365.286l859 +++| BX6 X6+X1 SET UTILITY CONTROL DATE 03302 M01S00366.286l859 +++| SA6 A2+ 03303 M01S00367.286l859 +++| 03304 M01S00368.286l859 +++|* PROCESS OP=Z OPTION. 03305 M01S00369.286l859 +++| 03306 M01S00370.286l859 +++| ECL1 SA1 PFCO FETCH *PFC ONLY* FLAG 03307 M01S00371.286l859 +++| ZR X1,ECL2 IF *PFC* ONLY 03308 M01S00372.286l859 +++| SA1 CPAR+/COMSPFS/CPOP 03309 M01S00373.286l859 +++| BX6 X6-X6 03310 M01S00374.286l859 +++| LX1 59-46 03311 M01S00375.286l859 +++| PL X1,ECL2 IF *OP=Z* NOT SELECTED 03312 M01S00376.286l859 +++| SA6 TCBF+FCAA+FCAT*0+FCAF*0 CLEAR CARTRIDGE POINTERS 03313 M01S00377.286l859 +++| SA6 TCBF+FCTV+FCTS*0+FCTF*0 CLEAR TAPE POINTERS 03314 M01S00378.286l859 +++| EQ ECLX RETURN 03315 M01S00379.286l859 +++| 03316 M01S00380.286l859 +++|* INITIALIZE ALTERNATE STORAGE FLAGS. 03317 M01S00381.286l859 +++| 03318 M01S00382.286l859 +++| ECL2 SA1 TCBF+FCAF CHECK ALTERNATE STORAGE INFORMATION 03319 M01S00383.286l859 +++| SA2 TCBF+FCTF 03320 M01S00384.286l859 +++| MX0 -59 03321 M01S00385.286l859 +++| BX6 -X0*X1 CLEAR *AFLOK* FLAG 03322 M01S00386.286l859 +++| BX7 -X0*X2 CLEAR *TFLOK* FLAG 03323 M01S00387.286l859 +++| MX0 -36 03324 M01S00388.286l859 +++| BX3 -X0*X1 03325 M01S00389.286l859 +++| BX4 -X0*X2 03326 M01S00390.286l859 +++| SX0 1 03327 M01S00391.286l859 +++| LX1 59-48 03328 M01S00392.286l859 +++| LX0 52-0 03329 M01S00393.286l859 +++| ZR X3,ECL3 IF NO CARTRIDGE ALTERNATE STORAGE COPY 03330 M01S00394.286l859 +++| NG X1,ECL3 IF CARTRIDGE COPY IS OBSOLETE 03331 M01S00395.286l859 +++| BX6 X6+X0 SET *AFVER* FLAG 03332 M01S00396.286l859 +++| ECL3 ZR X4,ECL4 IF NO TAPE ALTERNATE STORAGE COPY 03333 M01S00397.286l859 +++| LX0 48-52 03334 M01S00398.286l859 +++| BX7 X7+X0 SET *TFVER* FLAG 03335 M01S00399.286l859 +++| ECL4 SA6 TCBF+FCAF SET CARTRIDGE ALTERNATE STORAGE FLAGS 03336 M01S00400.286l859 +++| SA7 TCBF+FCTF SET TAPE ALTERNATE STORAGE FLAGS 03337 M01S00401.286l859 +++| EQ ECLX RETURN
| Line S01829 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 03338 M01S01829.253l688 ---| EDS SPACE 4,60 03339 M01S01830.253l688 ---|** EDS - EDIT MESSAGE STRING. 03340 M01S01831.253l688 ---|* 03341 M01S01832.253l688 ---|* THE EDIT STRING SUBROUTINE FORMATS A MESSAGE USING 03342 M01S01833.253l688 ---|* A MESSAGE PARAMETER SKELETON AND A MESSAGE DESCRIPTION 03343 M01S01834.253l688 ---|* STRING. THE SKELETON CONTAINS SEARCH CHARACTERS, *$*, 03344 M01S01835.253l688 ---|* WHEREVER A STRING SUBSTITUTION IS TO BE MADE. IF A MESSAGE 03345 M01S01836.253l688 ---|* DESCRIPTION STRING IS SPECIFIED, IT IS SUBSTITUTED INTO THE 03346 M01S01837.253l688 ---|* SKELETON AT THE FIRST SEARCH CHARACTER FOUND. THE 03347 M01S01838.253l688 ---|* DESCRIPTION STRING MUST BE DISPLAY CODED AND IN *C* FORMAT. 03348 M01S01839.253l688 ---|* IF NO DESCRIPTION STRING IS SPECIFIED OR ONCE IT HAS BEEN 03349 M01S01840.253l688 ---|* SUBSTITUTED INTO THE SKELETON, THE SKELETON IS SCANNED FOR 03350 M01S01841.253l688 ---|* SEARCH CHARACTERS AND THE VALUES SPECIFIED ARE SUBSTITUTED 03351 M01S01842.253l688 ---|* WHEN EACH SEARCH CHARACTER IS ENCOUNTERED. VALUES MAY BE 03352 M01S01843.253l688 ---|* DISPLAY CODED OR NUMERIC. NUMERIC VALUES WILL BE CONVERTED 03353 M01S01844.253l688 ---|* TO DISPLAY CODE AND MUST BE SPECIFIED BY BITS 59 AND 58 03354 M01S01845.253l688 ---|* IN TABLE *TMSP*. 03355 M01S01846.253l688 ---|* THE FIRST SEARCH CHARACTER IN THE SKELETON MAY STAND 03356 M01S01847.253l688 ---|* ALONE IF IT IS REPRESENTING THE DESCRIPTION STRING. ANY AND 03357 M01S01848.253l688 ---|* ALL OTHER SEARCH CHARACTERS MEANT FOR SUBSTITUTION MUST BE 03358 M01S01849.253l688 ---|* FOLLOWED BY 3 CHARACTERS, THE FIRST 2 BEING OCTAL DIGITS FOR 03359 M01S01850.253l688 ---|* THE BINARY VALUE OF THE PARAMETER ADDRESS LOCATION IN TABLE 03360 M01S01851.253l688 ---|* *TMSP* (THE *LOC* ADDRESS). THE THIRD CHARACTER REPRESENTS 03361 M01S01852.253l688 ---|* A FORMATTING CONTROL FOR THE PARAMETER. IF THE CHARACTER IS 03362 M01S01853.253l688 ---|* A DIGIT IT SPECIFIES THE NUMBER OF CHARACTERS-1 OF THE 03363 M01S01854.253l688 ---|* PARAMETER VALUE TO INSERT IN THE MESSAGE. IF THE PARAMETER 03364 M01S01855.253l688 ---|* IS DISPLAY CODED, THE CHARACTERS ARE TAKEN STARTING WITH THE 03365 M01S01856.253l688 ---|* LEFTMOST NON-ZERO CHARACTER AND DISPLAYED WITH TRAILING 03366 M01S01857.253l688 ---|* BLANKS IF NECESSARY. IF THE PARAMETER IS NUMERIC, THE 03367 M01S01858.253l688 ---|* CHARACTERS ARE TAKEN STARTING WITH THE LEAST SIGNIFICANT 03368 M01S01859.253l688 ---|* DIGIT (RIGHTMOST CHARACTER) AND DISPLAYED WITH LEADING 03369 M01S01860.253l688 ---|* ZEROS. IF THE FORMATTING CONTROL CHARACTER IS A *B*, ALL 03370 M01S01861.253l688 ---|* PARAMETER VALUES ARE DISPLAYED AS 10 CHARACTERS WITH 03371 M01S01862.253l688 ---|* LEADING BLANK, RIGHT JUSTIFIED NUMERICAL VALUES AND 03372 M01S01863.253l688 ---|* TRAILING BLANK, LEFT JUSTIFIED DISPLAY CODED VALUES. IF 03373 M01S01864.253l688 ---|* THE FORMATTING CONTROL CHARACTER IS ANY NON-DIGIT OTHER 03374 M01S01865.253l688 ---|* THAN *B*, CHARACTERS FROM THE VALUE ARE DISPLAYED STARTING 03375 M01S01866.253l688 ---|* WITH THE LEFTMOST CHARACTER AND CONTINUING ACROSS WORD 03376 M01S01867.253l688 ---|* BOUNDARIES, IF NECESSARY, UNTIL A ZERO CHARACTER IS FOUND. 03377 M01S01868.253l688 ---|* TO DISPLAY A DOLLAR SIGN IN THE MESSAGE, 2 DOLLAR SIGNS, 03378 M01S01869.253l688 ---|* *$$*, MUST BE PLACED IN THE SKELETON. 03379 M01S01870.253l688 ---|* 03380 M01S01871.253l688 ---|* ENTRY (B6) = ADDRESS OF MESSAGE PARAMETER SKELETON. 03381 M01S01872.253l688 ---|* (X6) = MESSAGE DESCRIPTION STRING ADDRESS. 03382 M01S01873.253l688 ---|* TABLE OF PARAMETERS, *TMSP*, WITH ENTRIES IN FORM - 03383 M01S01874.253l688 ---|* 1/CONVERT VALUE,1/DECIMAL PARAMETER,58/VALUE ADDRESS. 03384 M01S01875.253l688 ---|* 03385 M01S01876.253l688 ---|* EXIT (X5) = ADDRESS OF FORMATTED MESSAGE IN *C* FORMAT. 03386 M01S01877.253l688 ---|* 03387 M01S01878.253l688 ---|* USES X - ALL. 03388 M01S01879.253l688 ---|* A - ALL. 03389 M01S01880.253l688 ---|* B - 2, 3, 4, 5, 6, 7. 03390 M01S01881.253l688 ---|* 03391 M01S01882.253l688 ---|* CALLS CDD, COD, DXB, ZTB. 03392 M01S01883.253l688 ---| 03393 M01S01884.253l688 ---| 03394 M01S01885.253l688 ---|* END MESSAGE. 03395 M01S01886.253l688 ---| 03396 M01S01887.253l688 ---| EDS21 SX2 B4 INSURE EVEN NUMBER OF CHARACTERS 03397 M01S01888.253l688 ---| LX2 -1 03398 M01S01889.253l688 ---| PL X2,EDS22 IF NOT ODD NUMBER 03399 M01S01890.253l688 ---| LX7 6 ADD TRAILING BLANK 03400 M01S01891.253l688 ---| SX3 1R 03401 M01S01892.253l688 ---| SB4 B4-B1 03402 M01S01893.253l688 ---| BX7 X3+X7 03403 M01S01894.253l688 ---| EDS22 SB4 B4+B4 LEFT JUSTIFY LAST WORD OF NEW MESSAGE 03404 M01S01895.253l688 ---| SB3 B4+B4 03405 M01S01896.253l688 ---| SB4 B3+B4 03406 M01S01897.253l688 ---| LX7 X7,B4 03407 M01S01898.253l688 ---| SA7 A0+ 03408 M01S01899.253l688 ---| BX6 X6-X6 GUARANTEE END OF LINE 03409 M01S01900.253l688 ---| SA6 A0+B1 03410 M01S01901.253l688 ---| SX5 EDBF SET MESSAGE ADDRESS 03411 M01S01902.253l688 ---| 03412 M01S01903.253l688 ---| EDS SUBR ENTRY/EXIT 03413 M01S01904.253l688 ---| SA6 EDSA SAVE MESSAGE DESCRIPTION STRING ADDRESS 03414 M01S01905.253l688 ---| SA0 EDBF SET FORMATTED MESSAGE ADDRESS 03415 M01S01906.253l688 ---| SA4 B6-B1 INITIALIZE REGISTER 03416 M01S01907.253l688 ---| SB4 10 NEW MESSAGE WORD CHARACTER COUNT 03417 M01S01908.253l688 ---| SB3 B0 OLD MESSAGE WORD CHARACTER COUNT 03418 M01S01909.253l688 ---| BX7 X7-X7 ASSEMBLY REGISTER 03419 M01S01910.253l688 ---| MX0 -6 03420 M01S01911.253l688 ---| 03421 M01S01912.253l688 ---|* CHECK FOR SEARCH CHARACTERS IN MESSAGE SKELETON. 03422 M01S01913.253l688 ---| 03423 M01S01914.253l688 ---| EDS1 SX5 1R$ SET SEARCH CHARACTER 03424 M01S01915.253l688 ---| SB3 B3-1 DECREMENT OLD MESSAGE COUNT 03425 M01S01916.253l688 ---| PL B3,EDS2 IF MORE CHARACTERS IN OLD WORD 03426 M01S01917.253l688 ---| SA4 A4+1 GET NEXT OLD MESSAGE WORD 03427 M01S01918.253l688 ---| SB3 9 RESET OLD MESSAGE WORD CHARACTER COUNT 03428 M01S01919.253l688 ---| EDS2 LX4 6 GET NEXT CHARACTER FROM OLD MESSAGE 03429 M01S01920.253l688 ---| BX2 -X0*X4 03430 M01S01921.253l688 ---| ZR X2,EDS21 IF END OF LINE 03431 M01S01922.253l688 ---| SB6 B0 03432 M01S01923.253l688 ---| BX3 X5-X2 03433 M01S01924.253l688 ---| NZ X3,EDS19 IF NOT SEARCH CHARACTER 03434 M01S01925.253l688 ---| 03435 M01S01926.253l688 ---|* INSERT DESCRIPTION STRING INTO MESSAGE. 03436 M01S01927.253l688 ---| 03437 M01S01928.253l688 ---| SX6 B0+ 03438 M01S01929.253l688 ---| SA2 EDSA 03439 M01S01930.253l688 ---| ZR X2,EDS5 IF DESCRIPTION STRING INSERTED 03440 M01S01931.253l688 ---| SA1 X2+ GET MESSAGE DESCRIPTION WORD 03441 M01S01932.253l688 ---| SB2 10 03442 M01S01933.253l688 ---| SA6 A2+ CLEAR DESCRIPTION STRING FLAG 03443 M01S01934.253l688 ---| EDS3 SB2 B2-1 03444 M01S01935.253l688 ---| PL B2,EDS4 IF MORE CHARACTERS IN WORD 03445 M01S01936.253l688 ---| SA1 A1+1 GET NEXT WORD IN DESCRIPTION STRING 03446 M01S01937.253l688 ---| SB2 9 03447 M01S01938.253l688 ---| EDS4 LX1 6 GET NEXT CHARACTER 03448 M01S01939.253l688 ---| BX2 -X0*X1 03449 M01S01940.253l688 ---| ZR X2,EDS1 IF DESCRIPTION STRING INSERTED IN MESSAGE 03450 M01S01941.253l688 ---| SB6 -B1 03451 M01S01942.253l688 ---| EQ EDS19 INSERT CHARACTER IN NEW MESSAGE 03452 M01S01943.253l688 ---| 03453 M01S01944.253l688 ---|* EXTRACT PARAMETER DESCRIPTOR AND FORMAT CONTROL CHARACTERS. 03454 M01S01945.253l688 ---| 03455 M01S01946.253l688 ---| EDS5 SB3 B3-1 03456 M01S01947.253l688 ---| PL B3,EDS6 IF MORE CHARACTERS IN OLD WORD 03457 M01S01948.253l688 ---| SA4 A4+1 GET NEXT WORD 03458 M01S01949.253l688 ---| SB3 9 03459 M01S01950.253l688 ---| EDS6 LX4 6 GET NEXT CHARACTER 03460 M01S01951.253l688 ---| BX3 -X0*X4 03461 M01S01952.253l688 ---| NG X6,EDS8 IF FORMAT CONTROL CHARACTER 03462 M01S01953.253l688 ---| NZ X6,EDS7 IF SECOND DESCRIPTOR CHARACTER 03463 M01S01954.253l688 ---| BX6 X5-X3 CHECK FOR DOUBLE SEARCH CHARACTER 03464 M01S01955.253l688 ---| SX2 X5 03465 M01S01956.253l688 ---| ZR X6,EDS19 IF NOT MEANT TO BE A SEARCH CHARACTER 03466 M01S01957.253l688 ---| LX3 6 SAVE FIRST PARAMETER DESCRIPTOR CHARACTER 03467 M01S01958.253l688 ---| BX6 X3 03468 M01S01959.253l688 ---| EQ EDS5 EXTRACT NEXT CHARACTER 03469 M01S01960.253l688 ---| 03470 M01S01961.253l688 ---| EDS7 BX6 X6+X3 MERGE DESCRIPTOR CHARACTERS 03471 M01S01962.253l688 ---| LX6 -12 03472 M01S01963.253l688 ---| SA6 EDSB 03473 M01S01964.253l688 ---| SX6 -B1 03474 M01S01965.253l688 ---| EQ EDS5 GET FORMAT CHARACTER 03475 M01S01966.253l688 ---| 03476 M01S01967.253l688 ---| EDS8 SA7 EDSC SAVE REGISTERS 03477 M01S01968.253l688 ---| SX6 A4 03478 M01S01969.253l688 ---| SA6 A7+B1 03479 M01S01970.253l688 ---| BX7 X4 03480 M01S01971.253l688 ---| SA7 A6+B1 03481 M01S01972.253l688 ---| SX6 B3 03482 M01S01973.253l688 ---| SX7 B4 03483 M01S01974.253l688 ---| SA6 A7+B1 03484 M01S01975.253l688 ---| SA7 A6+B1 03485 M01S01976.253l688 ---| SX6 -1 CHECK FOR *B* FORMAT CHARACTER 03486 M01S01977.253l688 ---| SX5 X3-1RB 03487 M01S01978.253l688 ---| ZR X5,EDS9 IF *B* CHARACTER 03488 M01S01979.253l688 ---| SX6 B0+ CHECK FOR NON-DIGIT 03489 M01S01980.253l688 ---| SX2 X3-1R0 03490 M01S01981.253l688 ---| NG X2,EDS9 IF ALPHABETIC CHARACTER 03491 M01S01982.253l688 ---| SX5 X3-1R+ 03492 M01S01983.253l688 ---| PL X5,EDS9 IF NON-DIGIT 03493 M01S01984.253l688 ---| LX3 -6 CONVERT LENGTH CHARACTER TO BINARY 03494 M01S01985.253l688 ---| BX5 X3 03495 M01S01986.253l688 ---| SB7 B1 03496 M01S01987.253l688 ---| RJ DXB 03497 M01S01988.253l688 ---| SX6 X6+B1 SET MASK LENGTH - 1 03498 M01S01989.253l688 ---| SX7 6 03499 M01S01990.253l688 ---| IX1 X6*X7 03500 M01S01991.253l688 ---| SX6 X1-1 03501 M01S01992.253l688 ---| EDS9 SA5 EDSB CONVERT DESCRIPTOR CHARACTERS TO BINARY 03502 M01S01993.253l688 ---| SB7 B0 03503 M01S01994.253l688 ---| SA6 A5 SAVE FORMAT CONTROL VALUE 03504 M01S01995.253l688 ---| RJ DXB 03505 M01S01996.253l688 ---| 03506 M01S01997.253l688 ---|* CONVERT NUMERICAL PARAMETERS. 03507 M01S01998.253l688 ---| 03508 M01S01999.253l688 ---| SA3 TMSP+X6 GET PARAMETER ADDRESS 03509 M01S02000.253l688 ---| SA1 X3+ 03510 M01S02001.253l688 ---| PL X3,EDS13 IF DISPLAY CODED PARAMETER 03511 M01S02002.253l688 ---| LX3 59-58 03512 M01S02003.253l688 ---| NG X3,EDS10 IF DECIMAL PARAMETER 03513 M01S02004.253l688 ---| RJ COD CONVERT TO DISPLAY CODE 03514 M01S02005.253l688 ---| EQ EDS11 CHECK FORMATTING CONTROL 03515 M01S02006.253l688 ---| 03516 M01S02007.253l688 ---| EDS10 RJ CDD CONVERT TO DISPLAY CODE 03517 M01S02008.253l688 ---| EDS11 SA2 EDSB 03518 M01S02009.253l688 ---| SB5 B1 SET ONE WORD MAXIMUM 03519 M01S02010.253l688 ---| BX1 X6 03520 M01S02011.253l688 ---| NG X2,EDS16 IF TO PUT OUT WITH BLANK FILL 03521 M01S02012.253l688 ---| 03522 M01S02013.253l688 ---|* SUPPRESS LEADING ZEROS ON NUMERICAL FIELDS. 03523 M01S02014.253l688 ---| 03524 M01S02015.253l688 ---| SB2 B2-B1 MASK OFF SIGNIFICANT CHARACTERS 03525 M01S02016.253l688 ---| MX3 1 03526 M01S02017.253l688 ---| AX3 X3,B2 03527 M01S02018.253l688 ---| BX1 X3*X4 03528 M01S02019.253l688 ---| ZR X2,EDS16 IF TO SUPPRESS LEADING ZEROS 03529 M01S02020.253l688 ---| 03530 M01S02021.253l688 ---|* USE NUMBER OF CHARACTERS AS SPECIFIED IN SKELETON. 03531 M01S02022.253l688 ---| 03532 M01S02023.253l688 ---| SA4 EDSD ZERO FILL WORD 03533 M01S02024.253l688 ---| BX4 -X3*X4 03534 M01S02025.253l688 ---| BX6 X1+X4 03535 M01S02026.253l688 ---| SB7 X2 FORM MASK 03536 M01S02027.253l688 ---| MX3 1 03537 M01S02028.253l688 ---| SB2 B2-B7 CALCULATE SHIFT COUNT 03538 M01S02029.253l688 ---| AX3 X3,B7 03539 M01S02030.253l688 ---| PL B2,EDS12 IF LEFT CIRCULAR SHIFT 03540 M01S02031.253l688 ---| SB2 B2+60 INSURE LEFT SHIFT 03541 M01S02032.253l688 ---| EDS12 LX6 X6,B2 03542 M01S02033.253l688 ---| BX1 X3*X6 03543 M01S02034.253l688 ---| EQ EDS16 RESTORE REGISTERS 03544 M01S02035.253l688 ---| 03545 M01S02036.253l688 ---|* PROCESS DISPLAY CODED PARAMETER. 03546 M01S02037.253l688 ---| 03547 M01S02038.253l688 ---| EDS13 SA2 EDSB 03548 M01S02039.253l688 ---| SB5 EDBFL-1 SET MAXIMUM WORDS POSSIBLE 03549 M01S02040.253l688 ---| ZR X2,EDS16 IF TO TAKE WHAT IS GIVEN IN *C* FORMAT 03550 M01S02041.253l688 ---| RJ ZTB CONVERT ZEROS TO BLANKS 03551 M01S02042.253l688 ---| SB3 10 03552 M01S02043.253l688 ---| BX1 X6 03553 M01S02044.253l688 ---| SB5 B1 SET ONE WORD MAXIMUM 03554 M01S02045.253l688 ---| EDS14 SX7 1R CHECK FOR FIRST NON-BLANK CHARACTER 03555 M01S02046.253l688 ---| LX7 -6 03556 M01S02047.253l688 ---| MX0 6 03557 M01S02048.253l688 ---| BX6 X0*X1 03558 M01S02049.253l688 ---| BX3 X6-X7 03559 M01S02050.253l688 ---| NZ X3,EDS15 IF NON-BLANK FOUND 03560 M01S02051.253l688 ---| SB3 B3-B1 03561 M01S02052.253l688 ---| LX1 6 SHIFT TO CHECK NEXT CHARACTER 03562 M01S02053.253l688 ---| NZ B3,EDS14 IF NOT ALL CHARACTERS CHECKED 03563 M01S02054.253l688 ---| EDS15 NG X2,EDS16 IF TO BE LEFT JUSTIFIED WITH BLANK FILL 03564 M01S02055.253l688 ---| SB7 X2 FORM MASK 03565 M01S02056.253l688 ---| MX3 1 03566 M01S02057.253l688 ---| AX3 X3,B7 03567 M01S02058.253l688 ---| BX1 X3*X1 GET SPECIFIED NUMBER OF CHARACTERS 03568 M01S02059.253l688 ---| 03569 M01S02060.253l688 ---|* INSERT PARAMETER VALUE INTO MESSAGE. 03570 M01S02061.253l688 ---| 03571 M01S02062.253l688 ---| EDS16 SA2 EDSC RESTORE REGISTERS SAVED 03572 M01S02063.253l688 ---| BX7 X2 03573 M01S02064.253l688 ---| SA2 A2+B1 03574 M01S02065.253l688 ---| SA4 X2 03575 M01S02066.253l688 ---| SA3 A2+B1 03576 M01S02067.253l688 ---| BX4 X3 03577 M01S02068.253l688 ---| SA2 A3+B1 03578 M01S02069.253l688 ---| SB3 X2+ 03579 M01S02070.253l688 ---| SA3 A2+1 03580 M01S02071.253l688 ---| SB4 X3 03581 M01S02072.253l688 ---| SB2 10 SET MAXIMUM CHARACTERS TO TRANSFER 03582 M01S02073.253l688 ---| MX0 -6 03583 M01S02074.253l688 ---| EDS17 SB2 B2-B1 03584 M01S02075.253l688 ---| PL B2,EDS18 IF NOT END OF WORD 03585 M01S02076.253l688 ---| SB5 B5-B1 03586 M01S02077.253l688 ---| ZR B5,EDS1 IF ALL CHARACTERS TRANSFERRED 03587 M01S02078.253l688 ---| SA1 A1+1 GET NEXT WORD 03588 M01S02079.253l688 ---| SB2 9 03589 M01S02080.253l688 ---| EDS18 LX1 6 GET NEXT CHARACTER 03590 M01S02081.253l688 ---| BX2 -X0*X1 03591 M01S02082.253l688 ---| ZR X2,EDS1 IF ALL NON-ZERO CHARACTERS TRANSFERRED 03592 M01S02083.253l688 ---| SB6 B1+ 03593 M01S02084.253l688 ---| 03594 M01S02085.253l688 ---|* INSERT CHARACTER INTO NEW MESSAGE. 03595 M01S02086.253l688 ---| 03596 M01S02087.253l688 ---| EDS19 LX7 6 ENTER CHARACTER INTO NEW MESSAGE 03597 M01S02088.253l688 ---| BX7 X7+X2 03598 M01S02089.253l688 ---| SB4 B4-1 DECREMENT NEW MESSAGE CHARACTER COUNT 03599 M01S02090.253l688 ---| GT B4,EDS20 IF NEW MESSAGE WORD NOT FULL 03600 M01S02091.253l688 ---| SX6 A0-EDBF-EDBFL+2 03601 M01S02092.253l688 ---| ZR X6,EDS21 IF END OF MESSAGE BUFFER 03602 M01S02093.253l688 ---| SA7 A0+ SAVE NEW MESSAGE WORD 03603 M01S02094.253l688 ---| SA0 A0+B1 03604 M01S02095.253l688 ---| BX7 X7-X7 03605 M01S02096.253l688 ---| SB4 10 RESET CHARACTER COUNT 03606 M01S02097.253l688 ---| EDS20 ZR B6,EDS1 IF NON-REPLACEMENT CHARACTER 03607 M01S02098.253l688 ---| NG B6,EDS3 IF ERROR TYPE MESSAGE REPLACEMENT 03608 M01S02099.253l688 ---| EQ EDS17 INSERT NEXT PARAMETER CHARACTER 03609 M01S02100.253l688 ---| 03610 M01S02101.253l688 ---| EDSA CON 0 ERROR TYPE ADDRESS 03611 M01S02102.253l688 ---| EDSB CON 0 CONVERTED FORMAT CONTROL CHARACTER 03612 M01S02103.253l688 ---| EDSC BSS 5 REGISTER SAVE AREA 03613 M01S02104.253l688 ---| EDSD DATA 10L0000000000 03614 M00S02105.pfload +++| EFL SPACE 4,20 03615 M00S02106.pfload +++|** EFL - ENTER FILE LIST. 03616 M00S02107.pfload +++|* 03617 M00S02108.pfload +++|* ENTRY (TCBF) = CATALOG ENTRY FOR FILE. 03618 M00S02109.pfload +++|* (FLOF) = 0 IF NO FILE LIST OVERFLOW. 03619 M00S02110.pfload +++|* = 1 IF FILE LIST OVERFLOWED TO MASS STORAGE. 03620 M00S02111.pfload +++|* (FLPT) = NEXT AVAILABLE LOCATION IN FILE LIST BUFFER. 03621 M00S02112.pfload +++|* (FLBF) = MEMORY RESIDENT PORTION OF FILE LIST. 03622 M00S02113.pfload +++|*
| Line S02114 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03623 M01S02114.ns2697 ---|* EXIT (X6) = 0 IF FILE ALREADY PRESENT IN LIST. 03624 M01S02115.ns2697 ---|* = NON-ZERO IF FILE NOT ALREADY PRESENT IN LIST. 03625 M01S02116.ns2697 ---|* (FLOF) = 0 IF NO FILE LIST OVERFLOW.
| Line S00262 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03626 M01S00262.ns2697 +++|* EXIT (FLOF) = 0 IF NO FILE LIST OVERFLOW. 03627 M00S02117.pfload +++|* = 1 IF FILE LIST OVERFLOWED TO MASS STORAGE. 03628 M00S02118.pfload +++|* (FLPT) = NEXT AVAILABLE LOCATION IN FILE LIST BUFFER. 03629 M00S02119.pfload +++|* (FLBF) = MEMORY RESIDENT PORTION OF FILE LIST.
| Line S02120 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03630 M01S02120.ns2697 ---|* FILE ADDED TO FILE LIST IF NOT ALREADY PRESENT.
| Line S00263 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03631 M01S00263.ns2697 +++|* FILE ADDED TO FILE LIST. 03632 M00S02121.pfload +++|*
| Line S02122 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03633 M01S02122.ns2697 ---|* USES X - 0, 1, 2, 3, 6, 7. 03634 M01S02123.ns2697 ---|* A - 1, 2, 3, 6, 7.
| Line S00264 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03635 M01S00264.ns2697 +++|* USES X - 1, 2, 6, 7. 03636 M01S00265.ns2697 +++|* A - 1, 2, 6, 7. 03637 M00S02124.pfload +++|*
| Line S02125 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03638 M01S02125.ns2697 ---|* MACROS READ, READW, REWIND, WRITE, WRITEW.
| Line S00266 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03639 M01S00266.ns2697 +++|* MACROS WRITE, WRITEW. 03640 M00S02126.pfload +++| 03641 M00S02127.pfload +++| 03642 M00S02128.pfload +++| EFL SUBR ENTRY/EXIT
| Line S02129 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03643 M01S02129.ns2697 ---| 03644 M01S02130.ns2697 ---|* SEARCH MEMORY RESIDENT PORTION OF FILE LIST. 03645 M01S02131.ns2697 ---| 03646 M01S02132.ns2697 ---| SA1 TCBF+FCFN+FCUI* GET FILE NAME AND USER INDEX 03647 M01S02133.ns2697 ---| SA2 FLPT LWA+1 OF FILE LIST 03648 M01S02134.ns2697 ---| SX0 FLBF FWA OF FILE LIST 03649 M01S02135.ns2697 ---| EFL1 IX6 X0-X2 03650 M01S02136.ns2697 ---| PL X6,EFL2 IF NO MORE ENTRIES IN LIST 03651 M01S02137.ns2697 ---| SA3 X0 COMPARE FILE NAME AND USER INDEX 03652 M01S02138.ns2697 ---| BX6 X3-X1 03653 M01S02139.ns2697 ---| SX0 X0+B1 ADVANCE FILE LIST BUFFER ADDRESS 03654 M01S02140.ns2697 ---| ZR X6,EFLX IF MATCHING ENTRY 03655 M01S02141.ns2697 ---| EQ EFL1 CHECK NEXT ENTRY 03656 M01S02142.ns2697 ---| 03657 M01S02143.ns2697 ---|* SEARCH SCRATCH FILE PORTION OF FILE LIST. 03658 M01S02144.ns2697 ---| 03659 M01S02145.ns2697 ---| EFL2 SA3 FLOF 03660 M01S02146.ns2697 ---| ZR X3,EFL4 IF NO FILE LIST OVERFLOW 03661 M01S02147.ns2697 ---| REWIND S1 START SCRATCH FILE READ 03662 M01S02148.ns2697 ---| READ S1 03663 M01S02149.ns2697 ---| EFL3 READW S1,EFLA,1 GET NEXT FILE LIST ENTRY 03664 M01S02150.ns2697 ---| NZ X1,EFL4 IF END OF SCRATCH FILE 03665 M01S02151.ns2697 ---| SA1 TCBF+FCFN+FCUI* COMPARE FILE NAME AND USER INDEX 03666 M01S02152.ns2697 ---| SA2 EFLA 03667 M01S02153.ns2697 ---| BX6 X1-X2 03668 M01S02154.ns2697 ---| ZR X6,EFLX IF MATCHING ENTRY 03669 M01S02155.ns2697 ---| EQ EFL3 CHECK NEXT ENTRY 03670 M01S02156.ns2697 ---| 03671 M01S02157.ns2697 ---|* ADD ENTRY TO FILE LIST. 03672 M01S02158.ns2697 ---| 03673 M01S02159.ns2697 ---| EFL4 SA1 FLPT CHECK FOR FULL FILE LIST
| Line S00267 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03674 M01S00267.ns2697 +++| SA1 FLPT CHECK FOR FULL FILE LIST 03675 M00S02160.pfload +++| SX6 X1-FLBF-FLBFL
| Line S02161 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03676 M01S02161.ns2697 ---| NG X6,EFL5 IF FILE LIST NOT FULL
| Line S00268 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03677 M01S00268.ns2697 +++| NG X6,EFL1 IF FILE LIST NOT FULL
| Line S02162 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03678 M01S02162.286l859 ---| WRITEW S1,FLBF+FLBFL-100B,100B WRITE LAST SECTOR OF BUFFER
| Line S00402 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03679 M01S00402.286l859 +++| WRITEW FO,FLBF+FLBFL-100B,100B WRITE LAST SECTOR OF BUFFER 03680 M00S02163.pfload +++| WRITE X2 03681 M00S02164.pfload +++| SA1 FLPT BACK LIST POINTER UP ONE SECTOR 03682 M00S02165.pfload +++| SX1 X1-100B 03683 M00S02166.pfload +++| SX6 B1+ SET FILE LIST OVERFLOW 03684 M00S02167.pfload +++| SA6 FLOF
| Line S02168 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03685 M01S02168.ns2697 ---| EFL5 SA2 TCBF+FCFN+FCUI* PUT FILE IN FILE LIST
| Line S00269 Modification History | |
|---|---|
M01 (Added by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03686 M01S00269.ns2697 +++| EFL1 SA2 TCBF+FCFN+FCUI* PUT FILE IN FILE LIST 03687 M00S02169.pfload +++| BX7 X2 03688 M00S02170.pfload +++| SA7 X1 03689 M00S02171.pfload +++| SX6 X1+B1 ADVANCE FILE LIST POINTER 03690 M00S02172.pfload +++| SA6 A1
| Line S02173 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03691 M01S02173.ns22000 ---| EQ EFLX EXIT
| Line S00609 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03692 M01S00609.ns22000 +++| EQ EFLX RETURN
| Line S02174 Modification History | |
|---|---|
M01 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03693 M01S02174.ns2697 ---|
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03694 M02S00062.ns2697 ---|
| Line S02175 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03695 M02S02175.ns2697 ---| EFLA BSS 1 FILE LIST ENTRY SCRATCH WORD
| Line S00610 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2697 |
Seq # *Modification Id* Act ----------------------------+ 03696 M02S00610.ns2697 ---| EFLA CON 0 FILE LIST ENTRY SCRATCH WORD
| Line S00611 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03697 M02S00611.286l859 ---| EOL SPACE 4,20
| Line S00403 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03698 M01S00403.286l859 +++| EOL SPACE 4,15
| Line S00612 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03699 M01S00612.ns22000 +++|** EOL - END OF LOAD PROCESSOR.
| Line S00613 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03700 M02S00613.286l859 ---|* 03701 M02S00614.286l859 ---|* ENTRY (FPRF) = FILE PROCESSED FLAG.
| Line S00615 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
M03 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03702 M03S00615.286l859 ---|* (SEMF) = ERROR MESSAGE ISSUED FLAG.
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03703 M02S00063.286l859 ---|* (EMIF) = ERROR MESSAGE ISSUED FLAG.
| Line S00616 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03704 M01S00616.ns22000 +++|* 03705 M01S00617.ns22000 +++|* EXIT UTILITY PROCESSOR DROPPED. 03706 M01S00618.ns22000 +++|* UTILITY INTERLOCK CLEARED. 03707 M01S00619.ns22000 +++|* LOAD SYSTEM FILES RETURNED.
| Line S00620 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03708 M02S00620.286l859 ---|* TERMINATION MESSAGES ISSUED. 03709 M02S00621.286l859 ---|* ARCHIVE FILE REWOUND OR POSITIONED AS APPROPRIATE.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03710 M02S00064.286l859 ---|* OUTPUT FILES FLUSHED.
| Line S00622 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03711 M02S00622.286l859 ---|* PERMANENT FILE PARAMETERS RESTORED.
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03712 M01S00404.286l859 +++|* ARCHIVE FILE POSITIONED AS APPROPRIATE.
| Line S00623 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03713 M01S00623.ns22000 +++|*
| Line S00624 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03714 M02S00624.286l859 ---|* USES X - 1, 3, 5, 6, 7. 03715 M02S00625.286l859 ---|* A - 1, 3, 5.
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03716 M01S00405.286l859 +++|* USES X - 1, 3, 6, 7. 03717 M01S00406.286l859 +++|* A - 1, 3.
| Line S00626 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03718 M01S00626.ns22000 +++|*
| Line S00627 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 03719 M02S00627.253l688 ---|* CALLS CIN, DUP.
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03720 M02S00065.286l859 ---|* CALLS CIN, DUP, TOF.
| Line S00407 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03721 M01S00407.286l859 +++|* CALLS CIN, DUP, PSF.
| Line S00628 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03722 M01S00628.ns22000 +++|*
| Line S00629 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 03723 M02S00629.253l688 ---|* MACROS MESSAGE, MOVE, RECALL, RETURN, SETPFP, SKIPFF, WRITER.
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03724 M02S00066.286l859 ---|* MACROS MESSAGE, MOVE, RECALL, RETURN, SETPFP, SKIPFF.
| Line S00408 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03725 M01S00408.286l859 +++|* MACROS RECALL, RETURN, SKIPFF.
| Line S00630 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03726 M01S00630.ns22000 +++| 03727 M01S00631.ns22000 +++| 03728 M01S00632.ns22000 +++| EOL SUBR ENTRY/EXIT 03729 M01S00633.ns22000 +++| RJ DUP DROP UTILITY PROCESSOR 03730 M01S00634.ns22000 +++| RJ CIN CLEAR UTILITY INTERLOCK
| Line S00409 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03731 M01S00409.286l859 +++| RJ PSF PROCESS SORTED FILE OUTPUT
| Line S00635 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03732 M01S00635.ns22000 +++| RETURN CATS RETURN LOAD SYSTEM FILES 03733 M01S00636.ns22000 +++| RETURN PETS 03734 M01S00637.ns22000 +++| RETURN DATA
| Line S00638 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03735 M02S00638.286l859 ---| SA1 FPRF 03736 M02S00639.286l859 ---| NZ X1,EOL1 IF FILES PROCESSED 03737 M02S00640.286l859 ---| MESSAGE MSGF * PFLOAD - NO FILES PROCESSED.*
| Line S00641 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
M03 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03738 M03S00641.286l859 ---| EOL1 SA1 SEMF
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03739 M02S00067.286l859 ---| EOL1 SA1 EMIF
| Line S00642 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03740 M02S00642.286l859 ---| ZR X1,EOL2 IF NO ERROR MESSAGES 03741 M02S00643.286l859 ---| MESSAGE MSGG * CHECK DAYFILE FOR ERRORS.* 03742 M02S00644.286l859 ---| EOL2 MESSAGE MSGD,,R *P. F. DEVICE XX LOADED.*
| Line S00645 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03743 M01S00645.ns22000 +++| SETPFP GPAR RESTORE PERMANENT FILE PARAMETERS
| Line S00646 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03744 M02S00646.286l859 ---| SA5 IDSA+/COMSPFS/ADMS 03745 M02S00647.286l859 ---| MOVE 3,MSGD,X5
| Line S00648 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03746 M01S00648.ns22000 +++| RETURN DATA RETURN FILES 03747 M01S00649.ns22000 +++| RETURN CIRF
| Line S00650 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03748 M02S00650.286l859 ---| RETURN S1
| Line S00651 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
M03 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03749 M03S00651.286l859 ---| WRITER OUTPUT FLUSH OUTPUT BUFFER
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03750 M02S00068.286l859 ---| RJ TOF TERMINATE OUTPUT FILES
| Line S00410 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03751 M01S00410.286l859 +++| RETURN FO
| Line S00652 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03752 M01S00652.ns22000 +++| RECALL TAPE POSITION ARCHIVE FILE 03753 M01S00653.ns22000 +++| SA1 CPAR+/COMSPFS/CPNB 03754 M01S00654.ns22000 +++| ZR X1,EOLX IF NO FILE COUNT SPECIFIED 03755 M01S00655.ns22000 +++| SA3 X2 CHECK FOR EOF/EOI ON ARCHIVE FILE 03756 M01S00656.ns22000 +++| SX6 30B 03757 M01S00657.ns22000 +++| BX7 X6*X3 03758 M01S00658.ns22000 +++| BX6 X7-X6 03759 M01S00659.ns22000 +++| NZ X6,EOL3 IF NOT EOF/EOI 03760 M01S00660.ns22000 +++| SX1 X1-1 03761 M01S00661.ns22000 +++| EOL3 ZR X1,EOLX IF NO FILES TO SKIP 03762 M01S00662.ns22000 +++| SKIPFF X2,X1 SKIP FILES NOT PROCESSED 03763 M01S00663.ns22000 +++| EQ EOLX RETURN
| Line S02176 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03764 M01S02176.286l859 ---| FCB SPACE 4,35
| Line S00411 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03765 M01S00411.286l859 +++| FCB SPACE 4,40 03766 M00S02177.pfload +++|** FCB - FLUSH CATALOG BUFFER. 03767 M00S02178.pfload +++|* 03768 M00S02179.pfload +++|* ENTRY (CEWF) = 0 IF NO CATALOG ENTRIES IN BUFFER. 03769 M00S02180.pfload +++|* = NON-ZERO IF CATALOG ENTRIES IN BUFFER. 03770 M00S02181.pfload +++|* (CSWC) = CURRENT CATALOG SECTOR WORD COUNT. 03771 M00S02182.pfload +++|*
| Line S02183 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03772 M01S02183.286l859 ---|* EXIT (CEWF) = 0.
| Line S00412 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03773 M01S00412.286l859 +++|* EXIT (CBFO) = 0. 03774 M01S00413.286l859 +++|* (CEWF) = 0. 03775 M00S02184.pfload +++|* THE FOLLOWING CONDITIONS EXIST IF (CEWF) WAS NON-ZERO. 03776 M00S02185.pfload +++|* (CSWC) = 0. 03777 M00S02186.pfload +++|* (ANCE) = FWA OF CATALOG BUFFER. 03778 M00S02187.pfload +++|* PERMIT BUFFER FLUSHED. 03779 M00S02188.pfload +++|* DATA BUFFER FLUSHED. 03780 M00S02189.pfload +++|* CATALOG BUFFER WRITTEN TO MASS STORAGE. 03781 M00S02190.pfload +++|* CATALOG BUFFER REWOUND. 03782 M00S02191.pfload +++|* 03783 M00S02192.pfload +++|* IF A CATALOG WRITE ERROR IS DETECTED THE UTILITY 03784 M00S02193.pfload +++|* PROCESSOR IS DROPPED, ERROR IDLE STATUS IS SET ON THE
| Line S02194 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03785 M01S02194.242l642 ---|* MASTER EQUIPMENT, THE UTILITY INTERLOCK IS CLEARED,
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03786 M01S00034.242l642 +++|* MASTER EQUIPMENT IF DATA ON THE CATALOG FILE HAS 03787 M01S00035.242l642 +++|* BEEN CORRUPTED, THE UTILITY INTERLOCK IS CLEARED, 03788 M00S02195.pfload +++|* CATALOG WRITE ERROR MESSAGES ARE ISSUED AND EXIT IS TO 03789 M00S02196.pfload +++|* *ABT*. 03790 M00S02197.pfload +++|* 03791 M00S02198.pfload +++|* IF A TRACK LIMIT OR ERROR IDLE CONDITION IS DETECTED, 03792 M00S02199.pfload +++|* DATA AND PERMITS FOR UNWRITTEN CATALOG ENTRIES ARE 03793 M00S02200.pfload +++|* PURGED, THE UTILITY PROCESSOR IS DROPPED, THE UTILITY 03794 M00S02201.pfload +++|* INTERLOCK IS CLEARED, TRACK LIMIT OR ERROR IDLE 03795 M00S02202.pfload +++|* MESSAGES ARE ISSUED, THE FIRST FILE NOT LOADED IS 03796 M00S02203.pfload +++|* IDENTIFIED AND EXIT IS TO *ABT*. 03797 M00S02204.pfload +++|*
| Line S02205 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03798 M01S02205.286l859 ---|* USES X - 1, 2, 3, 6, 7.
| Line S00414 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03799 M01S00414.286l859 +++|* USES X - 1, 2, 3, 5, 6, 7. 03800 M00S02206.pfload +++|* A - 1, 2, 3, 6, 7. 03801 M00S02207.pfload +++|*
| Line S02208 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03802 M01S02208.286l859 ---|* CALLS FDB, FPB, PCE, PFD.
| Line S00415 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03803 M01S00415.286l859 +++|* CALLS FDB, FPB, LLF, PCE, PFD. 03804 M00S02209.pfload +++|* 03805 M00S02210.pfload +++|* MACROS RECALL. 03806 M00S02211.pfload +++| 03807 M00S02212.pfload +++| 03808 M00S02213.pfload +++| FCB SUBR ENTRY/EXIT 03809 M00S02214.pfload +++| SA1 CEWF 03810 M00S02215.pfload +++| ZR X1,FCBX IF NO CATALOG ENTRIES IN BUFFER 03811 M00S02216.pfload +++| SA1 CSWC GET SECTOR WORD COUNT 03812 M00S02217.pfload +++| ZR X1,FCB3 IF SECTOR IS EMPTY 03813 M00S02218.pfload +++| 03814 M00S02219.pfload +++|* GET SECTOR CONTROL WORD. 03815 M00S02220.pfload +++| 03816 M00S02221.pfload +++| SA2 CATS+FTIN 03817 M00S02222.pfload +++| SA3 CATS+FTFT 03818 M00S02223.pfload +++| SX2 X2 03819 M00S02224.pfload +++| SX3 X3
| Line S02225 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03820 M01S02225.ns22000 ---| IX6 X2-X1 *IN* - SECTOR WORD COUNT
| Line S00664 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03821 M01S00664.ns22000 +++| IX6 X2-X1 IN - SECTOR WORD COUNT 03822 M00S02226.pfload +++| IX7 X6-X3 03823 M00S02227.pfload +++| ZR X7,FCB1 IF WRAP AROUND 03824 M00S02228.pfload +++| PL X7,FCB2 IF NO WRAP AROUND 03825 M00S02229.pfload +++| FCB1 SA3 CATS+FTLM 03826 M00S02230.pfload +++| SX3 X3
| Line S02231 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03827 M01S02231.ns22000 ---| IX6 X3+X7 *LIMIT* + COMPLEMENT OF REMAINING COUNT
| Line S00665 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03828 M01S00665.ns22000 +++| IX6 X3+X7 LIMIT + COMPLEMENT OF REMAINING COUNT 03829 M00S02232.pfload +++| FCB2 SA2 X6-1 GET SECTOR CONTROL WORD 03830 M00S02233.pfload +++| 03831 M00S02234.pfload +++|* INSERT WORD COUNT INTO SECTOR CONTROL WORD. 03832 M00S02235.pfload +++| 03833 M00S02236.pfload +++| MX7 48 03834 M00S02237.pfload +++| BX6 X7*X2 03835 M00S02238.pfload +++| IX7 X6+X1 03836 M00S02239.pfload +++| SA7 A2 03837 M00S02240.pfload +++| 03838 M00S02241.pfload +++|* INCREMENT BUFFER SECTOR COUNTER. 03839 M00S02242.pfload +++| 03840 M00S02243.pfload +++| SA2 CATS+FTSC 03841 M00S02244.pfload +++| SX6 X2+1 03842 M00S02245.pfload +++| SA6 A2+ 03843 M00S02246.pfload +++| 03844 M00S02247.pfload +++|* FLUSH CATALOG AND ASSOCIATED BUFFERS. 03845 M00S02248.pfload +++| 03846 M00S02249.pfload +++| FCB3 RJ FPB FLUSH PERMIT BUFFER 03847 M00S02250.pfload +++| RJ FDB FLUSH DATA BUFFER 03848 M00S02251.pfload +++| SA1 CATS ISSUE WRITE REQUEST 03849 M00S02252.pfload +++| MX2 42 03850 M00S02253.pfload +++| BX7 X2*X1 03851 M00S02254.pfload +++| SX1 B1+B1 SET WRITE FUNCTION CODE 03852 M00S02255.pfload +++| BX6 X7+X1 03853 M00S02256.pfload +++| SA6 A1 03854 M00S02257.pfload +++| RECALL A1 WAIT FOR *PFU* TO FLUSH BUFFER
| Line S02258 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03855 M01S02258.286l859 ---| SA1 X2 CHECK ERROR STATUS
| Line S00416 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03856 M01S00416.286l859 +++| RJ LLF LIST LOADED FILES 03857 M01S00417.286l859 +++| SA1 CATS CHECK ERROR STATUS 03858 M00S02259.pfload +++| MX7 -6 03859 M00S02260.pfload +++| LX1 -12 03860 M00S02261.pfload +++| BX6 -X7*X1 03861 M00S02262.pfload +++| NZ X6,FCB4 IF MASS STORAGE ERROR
| Line S02263 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03862 M01S02263.286l859 ---| SA1 X2+B1 REWIND BUFFER
| Line S00418 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03863 M01S00418.286l859 +++| SA1 A1+B1 REWIND BUFFER 03864 M00S02264.pfload +++| SX7 X1 03865 M00S02265.pfload +++| SA7 A1+B1 03866 M00S02266.pfload +++| SA7 A7+B1 03867 M00S02267.pfload +++| SA7 ANCE SET ADDRESS OF NEW CATALOG ENTRIES 03868 M00S02268.pfload +++| SA6 CSWC CLEAR SECTOR WORD COUNT
| Line S02269 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03869 M01S02269.286l859 ---| SA6 X2+FTSC CLEAR SECTOR COUNTER
| Line S00419 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03870 M01S00419.286l859 +++| SA6 CATS+FTSC CLEAR SECTOR COUNTER 03871 M00S02270.pfload +++| SA6 CEWF CLEAR *CATALOG ENTRIES WRITTEN*
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03872 M01S00420.286l859 +++| SA6 CBFO RESET CATALOG BUFFER ORDINAL
| Line S02271 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03873 M01S02271.ns22000 ---| EQ FCBX EXIT
| Line S00666 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03874 M01S00666.ns22000 +++| EQ FCBX RETURN 03875 M00S02272.pfload +++| 03876 M00S02273.pfload +++|* PROCESS CATALOG WRITE ERROR. 03877 M00S02274.pfload +++| 03878 M00S02275.pfload +++| FCB4 SX1 X6-FEWE
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03879 M01S00036.242l642 +++| ZR X1,FCB4.1 IF WRITE ERROR WITH DATA TRANSFERRED 03880 M01S00037.242l642 +++| SX1 X6-FEWN CHECK WRITE ERROR WITH NO DATA TRANSFERRED 03881 M00S02276.pfload +++| NZ X1,FCB5 IF NOT WRITE ERROR
| Line S02277 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03882 M01S02277.242l642 ---| SA2 CATS+FTOT GET BAD SECTOR CONTROL WORD
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03883 M01S00038.242l642 +++| FCB4.1 SA2 CATS+FTOT GET BAD SECTOR CONTROL WORD 03884 M00S02278.pfload +++| SA3 CATS+FTPM GET BAD TRACK AND SECTOR ADDRESS 03885 M00S02279.pfload +++| MX6 24 03886 M00S02280.pfload +++| LX3 12 PUT BAD ADDRESS IN CONTROL WORD 03887 M00S02281.pfload +++| SA1 X2 03888 M00S02282.pfload +++| LX6 -12 03889 M00S02283.pfload +++| BX2 X6*X3 03890 M00S02284.pfload +++| BX3 -X6*X1 03891 M00S02285.pfload +++| BX7 X2+X3 03892 M00S02286.pfload +++| SA7 A1
| Line S02287 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03893 M01S02287.ns22000 ---| SX6 MES2 SET WRITE ERROR MESSAGE ADDRESS
| Line S00667 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03894 M02S00667.286l859 ---| SX6 MES2 * PFLOAD - CATALOG WRITE ERROR.*
| Line S00421 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03895 M01S00421.286l859 +++| SX6 ERCW * CATALOG WRITE ERROR...* 03896 M00S02288.pfload +++| RJ PCE PROCESS CATALOG WRITE ERROR
| Line S00422 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03897 M01S00422.286l859 +++| SB2 B0 SET NO MESSAGE
| Line S02289 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03898 M01S02289.ns22000 ---| EQ ABT ABORT LOAD
| Line S00668 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03899 M01S00668.ns22000 +++| EQ ABT ABORT 03900 M00S02290.pfload +++| 03901 M00S02291.pfload +++|* PROCESS TRACK LIMIT/ERROR IDLE CONDITION. 03902 M00S02292.pfload +++| 03903 M00S02293.pfload +++| FCB5 SX2 CATS 03904 M00S02294.pfload +++| RJ PFD PROCESS FULL DEVICE
| Line S00423 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03905 M01S00423.286l859 +++| SB2 B0 SET NO MESSAGE
| Line S02295 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03906 M01S02295.ns22000 ---| EQ ABT ABORT LOAD
| Line S00669 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03907 M01S00669.ns22000 +++| EQ ABT ABORT
| Line S00670 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03908 M02S00670.286l859 ---| FCM SPACE 4,20 03909 M02S00671.286l859 ---|** FCM - ISSUE FILES LOADED MESSAGES. 03910 M02S00672.286l859 ---|* 03911 M02S00673.286l859 ---|* ENTRY (IDNU) = COUNT OF INDIRECT ACCESS FILES LOADED. 03912 M02S00674.286l859 ---|* (DFNU) = COUNT OF DIRECT ACCESS FILES LOADED. 03913 M02S00675.286l859 ---|* (ERNU) = COUNT OF FILES WITH ERRORS. 03914 M02S00676.286l859 ---|* 03915 M02S00677.286l859 ---|* EXIT COUNTS ISSUED TO DAYFILE. 03916 M02S00678.286l859 ---|* 03917 M02S00679.286l859 ---|* USES X = 1, 4. 03918 M02S00680.286l859 ---|* A = 1, 5. 03919 M02S00681.286l859 ---|* B = 2, 5. 03920 M02S00682.286l859 ---|* 03921 M02S00683.286l859 ---|* CALLS CDD, SNM. 03922 M02S00684.286l859 ---|* 03923 M02S00685.286l859 ---|* MACROS MESSAGE. 03924 M02S00686.286l859 ---| 03925 M02S00687.286l859 ---| 03926 M02S00688.286l859 ---| FCM SUBR ENTRY/EXIT 03927 M02S00689.286l859 ---| SA5 TFCA READ TABLE OF MESSAGE ADDRESSES 03928 M02S00690.286l859 ---| FCM1 ZR X5,FCMX IF NO MORE MESSAGES 03929 M02S00691.286l859 ---| SB5 X5 MESSAGE ADDRESS 03930 M02S00692.286l859 ---| LX5 -18 03931 M02S00693.286l859 ---| SA1 X5 GET COUNT 03932 M02S00694.286l859 ---| SB2 X1 03933 M02S00695.286l859 ---| NE B2,B1,FCM2 IF COUNT NOT = 1 03934 M02S00696.286l859 ---| LX5 -18 SET ALTERNATE MESSAGE ADDRESS 03935 M02S00697.286l859 ---| SB5 X5 03936 M02S00698.286l859 ---| EQ FCM3 ISSUE MESSAGE 03937 M02S00699.286l859 ---| 03938 M02S00700.286l859 ---| FCM2 RJ CDD CONVERT TO DISPLAY CODE 03939 M02S00701.286l859 ---| SB2 1RX SEARCH CHARACTER FOR *SNM* 03940 M02S00702.286l859 ---| MX1 30 POSITION RESULT 03941 M02S00703.286l859 ---| LX6 30 03942 M02S00704.286l859 ---| BX1 X1*X6 03943 M02S00705.286l859 ---| RJ SNM ADD COUNT TO MESSAGE 03944 M02S00706.286l859 ---| FCM3 MESSAGE B5 03945 M02S00707.286l859 ---| SA5 A5+B1 GET NEXT ADDRESS 03946 M02S00708.286l859 ---| EQ FCM1 PROCESS NEXT MESSAGE 03947 M02S00709.286l859 ---| 03948 M02S00710.286l859 ---| 03949 M02S00711.286l859 ---|** TABLE OF FILE COUNT MESSAGE ADDRESSES. 03950 M02S00712.286l859 ---|* 03951 M02S00713.286l859 ---|*T 6/ ,18/ M2,18/ CT,18/ M1
Figure
03952 M02S00714.286l859 ---|* 03953 M02S00715.286l859 ---|* CT = ADDRESS OF COUNT. 03954 M02S00716.286l859 ---|* M1 = ADDRESS OF MESSAGE. 03955 M02S00717.286l859 ---|* M2 = ADDRESS OF ALTERNATE MESSAGE (IF COUNT = 1). 03956 M02S00718.286l859 ---| 03957 M02S00719.286l859 ---| TFCA BSS 0 03958 M02S00720.286l859 ---| VFD 6/0,18/ER1M,18/ERNU,18/ERMS 03959 M02S00721.286l859 ---| VFD 6/0,18/DF1M,18/DFNU,18/DFMS 03960 M02S00722.286l859 ---| VFD 6/0,18/ID1M,18/IDNU,18/IDMS 03961 M02S00723.286l859 ---| CON 0 END OF TABLE 03962 M00S02296.pfload +++|FDB SPACE 4,10 03963 M00S02297.pfload +++|** FDB - FLUSH DATA BUFFER. 03964 M00S02298.pfload +++|* 03965 M00S02299.pfload +++|* EXIT DATA BUFFER FLUSHED. 03966 M00S02300.pfload +++|* DATA WRITE ERRORS PROCESSED IF NECESSARY. 03967 M00S02301.pfload +++|* 03968 M00S02302.pfload +++|* USES X - 2. 03969 M00S02303.pfload +++|* 03970 M00S02304.pfload +++|* CALLS DWE, FUB. 03971 M00S02305.pfload +++| 03972 M00S02306.pfload +++| 03973 M00S02307.pfload +++| FDB SUBR ENTRY/EXIT 03974 M00S02308.pfload +++| FDB1 SX2 DATA FLUSH DATA BUFFER 03975 M00S02309.pfload +++| RJ FUB 03976 M00S02310.pfload +++| ZR X6,FDBX IF NO MASS STORAGE ERROR 03977 M00S02311.pfload +++| RJ DWE PROCESS DATA WRITE ERROR 03978 M00S02312.pfload +++| EQ FDB1 FLUSH DATA BUFFER 03979 M00S02313.pfload +++| FPB SPACE 4,20 03980 M00S02314.pfload +++|** FPB - FLUSH PERMIT BUFFER. 03981 M00S02315.pfload +++|* 03982 M00S02316.pfload +++|* EXIT (X2) = PERMIT FET ADDRESS. 03983 M00S02317.pfload +++|* PERMIT BUFFER FLUSHED. 03984 M00S02318.pfload +++|* 03985 M00S02319.pfload +++|* IF A PERMIT WRITE ERROR, TRACK LIMIT ERROR OR ERROR 03986 M00S02320.pfload +++|* IDLE CONDITION IS DETECTED, CLEANUP IS PERFORMED AND 03987 M00S02321.pfload +++|* EXIT IS TO *ABT*. 03988 M00S02322.pfload +++|*
| Line S02323 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03989 M01S02323.286l859 ---|* USES X - 2.
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/pfload.003.txt · Last modified: (external edit)