Seq # *Modification Id* Act
----------------------------+
22828 M00S13200.cpumtr +++|
22829 M00S13201.cpumtr +++|* UPDATE REMAINING TRACK COUNT.
22830 M00S13202.cpumtr +++|* UPDATE FIRST FREE TRACK POINTER.
22831 M00S13203.cpumtr +++|
22832 M00S13204.cpumtr +++| SA3 A5 LOCATE DEVICE MST
22833 M00S13205.cpumtr +++| MX0 -9
22834 M00S13206.cpumtr +++| AX3 36
| Line S13207 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22835 M01S13207.253l688 ---| BX3 -X0*X3 EXTRACT EST ORDINAL
22836 M01S13208.253l688 ---| R= X6,ESTE
| Line S01443 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22837 M01S01443.253l688 +++| BX0 -X0*X3 EXTRACT EST ORDINAL
22838 M01S01444.253l688 +++| CX3 X0,EST CONVERT EST ORDINAL TO OFFSET
22839 M00S13209.cpumtr +++| MX0 -12
| Line S13210 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22840 M01S13210.253l688 ---| IX3 X3*X6
22841 M00S13211.cpumtr +++| TA3 X3+EQDE,EST READ EST ENTRY
| Line S13212 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22842 M01S13212.253l688 ---| BX6 -X0*X3
22843 M01S13213.253l688 ---| LX6 3
22844 M01S13214.253l688 ---| SA3 X6+TDGL READ *TDGL* WORD OF MST
| Line S01445 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22845 M01S01445.253l688 +++| BX7 -X0*X3
22846 M01S01446.253l688 +++| LX7 3
22847 M01S01447.253l688 +++| SA3 X7+TDGL READ *TDGL* WORD OF MST
22848 M00S13215.cpumtr +++| MX0 -24
| Line S13216 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22849 M01S13216.253l688 ---| BX6 -X0*X7 NUMBER OF TRACKS DROPPED
| Line S01448 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22850 M01S01448.253l688 +++| BX7 -X0*X6 NUMBER OF TRACKS DROPPED
22851 M00S13217.cpumtr +++| SX1 B5-B6 FIRST FREE TRACK
| Line S13218 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22852 M01S13218.253l688 ---| IX6 X3+X6 ADD TRACKS TO TDGL
22853 M01S13219.253l688 ---| AX7 24 NUMBER OF SECTORS DROPPED
22854 M01S13220.253l688 ---| LX6 -12
| Line S01449 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22855 M01S01449.253l688 +++| IX7 X3+X7 ADD TRACKS TO *TDGL*
22856 M01S01450.253l688 +++| AX6 24 NUMBER OF SECTORS DROPPED
22857 M01S01451.253l688 +++| LX7 -12
22858 M00S13221.cpumtr +++| SB5 PRG
| Line S13222 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22859 M01S13222.253l688 ---| BX6 X4*X6 CLEAR FIRST FREE TRACK POINTER
| Line S01452 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22860 M01S01452.253l688 +++| BX7 X4*X7 CLEAR FIRST FREE TRACK POINTER
22861 M00S13223.cpumtr +++| AX3 24
| Line S13224 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22862 M01S13224.253l688 ---| BX6 X6+X1 UPDATE FIRST FREE TRACK
22863 M01S13225.253l688 ---| LX6 12
| Line S01453 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22864 M01S01453.253l688 +++| BX7 X7+X1 UPDATE FIRST FREE TRACK
22865 M01S01454.253l688 +++| LX7 12
22866 M00S13226.cpumtr +++| BX5 -X4*X3 LENGTH OF TRT
| Line S13227 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22867 M01S13227.253l688 ---| SA6 A3
| Line S01455 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22868 M01S01455.253l688 +++| SA7 A3
| Line S13228 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
22869 M01S13228.241l630 ---| SA2 A5 CHECK IF CALLED FROM MONITOR MODE
| Line S00253 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
22870 M01S00253.241l630 +++| SA2 A3+NVGL-TDGL
| Line S00254 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | cpum192 |
Seq # *Modification Id* Act
----------------------------+
22871 M02S00254.cpum192 ---| SX3 B1
| Line S01456 Modification History |
M01 (Added by) | 253l688 |
M02 (Removed by) | cpum192 |
Seq # *Modification Id* Act
----------------------------+
22872 M02S01456.cpum192 ---| BX7 X6 SET REPLY
| Line S00001 Modification History |
M01 (Added by) | cpum192 |
Seq # *Modification Id* Act
----------------------------+
22873 M01S00001.cpum192 +++| SX3 B1+
| Line S00255 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
22874 M02S00255.242l642 ---| PL X2,DTC6.1 IF NO FLAW REQUEST
| Line S00416 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
22875 M01S00416.242l642 +++| PL X2,DTC8 IF NO FLAW REQUEST
| Line S00256 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
22876 M01S00256.241l630 +++| LX2 12
22877 M01S00257.241l630 +++| BX2 -X4*X2
22878 M01S00258.241l630 +++| LX2 -2
22879 M01S00259.241l630 +++| BX0 -X0+X2
22880 M01S00260.241l630 +++| SA2 B6+X2 READ TRT WORD FOR TRACK
22881 M01S00261.241l630 +++| LX0 2
22882 M01S00262.241l630 +++| SB3 X0
| Line S00263 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22883 M02S00263.253l688 ---| IX6 X6-X3
| Line S01457 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22884 M01S01457.253l688 +++| IX7 X7-X3
| Line S00264 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
22885 M01S00264.241l630 +++| AX3 B3
22886 M01S00265.241l630 +++| BX2 X3-X2
22887 M01S00266.241l630 +++| BX3 X3*X2
| Line S00267 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
22888 M02S00267.242l642 ---| ZR X3,DTC6.1 IF TRACK RESERVED
| Line S00417 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
22889 M01S00417.242l642 +++| ZR X3,DTC8 IF TRACK RESERVED
| Line S00268 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
22890 M01S00268.241l630 +++| SB3 B3+X0
22891 M01S00269.241l630 +++| SB3 B3+X0
22892 M01S00270.241l630 +++| SB3 B3+B3
| Line S00271 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22893 M02S00271.253l688 ---| SA6 A3 STORE UPDATED TDGL
| Line S01458 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22894 M01S01458.253l688 +++| SA7 A3 STORE UPDATED *TDGL*
| Line S00272 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
22895 M01S00272.241l630 +++| LX4 12
22896 M01S00273.241l630 +++| SB3 B3+B3
22897 M01S00274.241l630 +++| AX4 B3
| Line S00275 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22898 M02S00275.253l688 ---| BX6 -X4+X2
22899 M02S00276.253l688 ---| SA6 A2
| Line S01459 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22900 M01S01459.253l688 +++| BX7 -X4+X2
22901 M01S01460.253l688 +++| SA7 A2
| Line S00277 Modification History |
M01 (Added by) | 241l630 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
22902 M02S00277.242l642 ---| DTC6.1 SA2 A5 CHECK IF CALLED FROM MONITOR MODE
| Line S00418 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | cpum192 |
Seq # *Modification Id* Act
----------------------------+
22903 M02S00418.cpum192 ---| DTC8 SA2 A5 CHECK IF CALLED FROM MONITOR MODE
| Line S00002 Modification History |
M01 (Added by) | cpum192 |
Seq # *Modification Id* Act
----------------------------+
22904 M01S00002.cpum192 +++| DTC8 SA2 A5+
22905 M01S00003.cpum192 +++| BX7 X6 SET REPLY
22906 M00S13229.cpumtr +++| LX2 59-58
| Line S13230 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22907 M01S13230.253l688 ---| NG X2,CCP1 IF PROGRAM MODE
| Line S01461 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22908 M01S01461.253l688 +++| NG X2,CCP1 IF PROGRAM MODE
22909 M00S13231.cpumtr +++| SA2 /MONITOR/T1 RESTORE (B2)
22910 M00S13232.cpumtr +++| SB5 /MONITOR/PPRX SET MONITOR MODE EXIT
| Line S13233 Modification History |
M01 (Removed by) | cpum192 |
Seq # *Modification Id* Act
----------------------------+
22911 M01S13233.cpum192 ---| SB2 X2
| Line S00004 Modification History |
M01 (Added by) | cpum192 |
Seq # *Modification Id* Act
----------------------------+
22912 M01S00004.cpum192 +++| SB2 X2+
| Line S13234 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22913 M01S13234.253l688 ---| EQ CCP1
| Line S01462 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22914 M01S01462.253l688 +++| EQ CCP1 CHECK FOR CHECKPOINT REQUEST
22915 M00S13235.cpumtr +++|
22916 M00S13236.cpumtr +++|* PROCESS PRESERVED FILE.
22917 M00S13237.cpumtr +++|
| Line S13238 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
22918 M01S13238.242l642 ---| DTC7 LX1 4 POSITION TO TRACK INTERLOCK BIT
| Line S00419 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
22919 M01S00419.242l642 +++| DTC9 LX1 4 POSITION TRACK INTERLOCK
| Line S13239 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22920 M01S13239.253l688 ---| ZR X7,DTC4 IF NOT DROPPING ALL TRACKS
| Line S01463 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22921 M01S01463.253l688 +++| ZR X6,DTC4 IF NOT DROPPING ALL TRACKS
22922 M00S13240.cpumtr +++| SA2 A3+B1 READ MST
22923 M00S13241.cpumtr +++| ERRNZ ACGL-1 INDEX MUST BE ONE
22924 M00S13242.cpumtr +++| LX5 24
| Line S13243 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22925 M01S13243.253l688 ---| BX7 -X5*X2 PRESERVED FILE COUNT
22926 M01S13244.253l688 ---| ZR X7,DTC4 IF FILE COUNT IS ZERO
| Line S01464 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22927 M01S01464.253l688 +++| BX6 -X5*X2 PRESERVED FILE COUNT
22928 M01S01465.253l688 +++| ZR X6,DTC4 IF FILE COUNT IS ZERO
22929 M00S13245.cpumtr +++| SX5 B1
22930 M00S13246.cpumtr +++| LX5 24
| Line S13247 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22931 M01S13247.253l688 ---| IX7 X2-X5 DECREMENT PRESERVED FILE COUNT
22932 M01S13248.253l688 ---| SA7 A2
22933 M01S13249.253l688 ---| BX7 X7-X7
| Line S01466 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22934 M01S01466.253l688 +++| IX6 X2-X5 DECREMENT PRESERVED FILE COUNT
22935 M01S01467.253l688 +++| SA6 A2
22936 M01S01468.253l688 +++| BX6 X6-X6
22937 M00S13250.cpumtr +++| EQ DTC4 RE-ENTER PROCESSING
22938 M00S13251.cpumtr +++|
22939 M00S13252.cpumtr +++| DTCA BSS 0 SCRATCH WORD
22940 M00S13253.cpumtr +++| CON 0 MUST BE THE WORD BEFORE TMSK
22941 M00S13254.cpumtr +++|
22942 M00S13255.cpumtr +++| TMSK BSS 0 TRACK CLEARING MASKS
22943 M00S13256.cpumtr +++| VFD 12/0,12/-0,12/-0,12/-0,12/3567B BYTE 0
22944 M00S13257.cpumtr +++| VFD 12/-0,12/0,12/-0,12/-0,12/5673B BYTE 1
22945 M00S13258.cpumtr +++| VFD 12/-0,12/-0,12/0,12/-0,12/6735B BYTE 2
22946 M00S13259.cpumtr +++| VFD 12/-0,12/-0,12/-0,12/0,12/7356B BYTE 3
| Line S00013 Modification History |
M01 (Added by) | cpum101 |
Seq # *Modification Id* Act
----------------------------+
22947 M01S00013.cpum101 +++| DTCB CON 0 DEVICE TRACK LIMIT
22948 M00S13260.cpumtr +++| LCC SPACE 4
22949 M00S13261.cpumtr +++|** LCC - *PIOM* LOAD CENTRAL PROGRAM (SF = 6). PROGRAM MODE.
22950 M00S13262.cpumtr +++|*
22951 M00S13263.cpumtr +++|* ENTRY (A5) = PP OUTPUT REGISTER.
22952 M00S13264.cpumtr +++|* (X5) = *PIOM* REQUEST.
22953 M00S13265.cpumtr +++|* (B7) = CP ADDRESS.
22954 M00S13266.cpumtr +++|*
22955 M00S13267.cpumtr +++|* USES X - ALL.
22956 M00S13268.cpumtr +++|* B - 3, 4, 5, 6.
22957 M00S13269.cpumtr +++|* A - 1, 2, 4.
22958 M00S13270.cpumtr +++|*
22959 M00S13271.cpumtr +++|* CALLS CMP, MSR.
22960 M00S13272.cpumtr +++|
22961 M00S13273.cpumtr +++|
22962 M00S13274.cpumtr +++| LCC SA2 B7+FLSW GET RA AND FL
22963 M00S13275.cpumtr +++| MX6 -12
22964 M00S13276.cpumtr +++| SB5 X5 GET RELATIVE CM ADDRESS OF LOAD
22965 M00S13277.cpumtr +++| BX4 -X6*X2 FL/100B
22966 M00S13278.cpumtr +++| LX2 -12
22967 M00S13279.cpumtr +++| MX6 -RMSK
22968 M00S13280.cpumtr +++| BX2 -X6*X2 RA/100B
22969 M00S13281.cpumtr +++| LX5 -18
22970 M00S13282.cpumtr +++| SA1 A5+B1 GET PARAMETERS FROM MESSAGE BUFFER
22971 M00S13283.cpumtr +++| LX4 6
22972 M00S13284.cpumtr +++| LX2 6
22973 M00S13285.cpumtr +++| SX3 X5 GET LWA+1 OF LOAD
22974 M00S13286.cpumtr +++| LX1 -12
22975 M00S13287.cpumtr +++| LX5 18
22976 M00S13288.cpumtr +++| ZR X3,LCC1 IF NO LWA SPECIFIED FOR LOAD
22977 M00S13289.cpumtr +++| IX0 X4-X3
22978 M00S13290.cpumtr +++| BX4 X3
22979 M00S13291.cpumtr +++| NG X0,HNG IF LWA+1 .GT. FL
22980 M00S13292.cpumtr +++| LCC1 BX1 -X6*X1 ABSOLUTE CM ADDRESS
22981 M00S13293.cpumtr +++| ERX3 X1
22982 M00S13294.cpumtr +++| SB6 X4 FL OR RELATIVE LWA+1 LOAD
22983 M00S13295.cpumtr +++| SB4 X3-1 GET PROGRAM LENGTH
22984 M00S13296.cpumtr +++| MX6 -36
22985 M00S13297.cpumtr +++| SB3 B4+B5 RELATIVE LOAD ADDRESS + LENGTH
22986 M00S13298.cpumtr +++| SX3 IFLS RETURN STATUS = INSUFFICIENT FL
22987 M00S13299.cpumtr +++| BX5 -X6*X5
22988 M00S13300.cpumtr +++| GT B3,B6,LCC2 IF INSUFFICIENT FIELD LENGTH FOR LOAD
22989 M00S13301.cpumtr +++| SX0 B1
22990 M00S13302.cpumtr +++| IX0 X1+X0 FWA PROGRAM CODE
22991 M00S13303.cpumtr +++| SX3 B5
22992 M00S13304.cpumtr +++| IX1 X2+X3 CM ADDRESS LOADING TO
22993 M00S13305.cpumtr +++| SX2 B4+
22994 M00S13306.cpumtr +++| BX3 X3-X3 RETURN STATUS = NO ERROR
22995 M00S13307.cpumtr +++| IX5 X5+X2 ADVANCE RELATIVE CM ADDRESS
22996 M00S13308.cpumtr +++| IX1 X0-X1
22997 M00S13309.cpumtr +++| SB6 LCC2 *CMP* *MSR* RETURN ADDRESS
| Line S13310 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22998 M01S13310.253l688 ---| TJMP /CME/MSR,CME,/PROGRAM/CMP,CMU,/MONITOR/MSR
| Line S01469 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
22999 M01S01469.253l688 +++| TJP (/CME/MSR,CME,/PROGRAM/CMP,CMU,/MONITOR/MSR)
23000 M00S13311.cpumtr +++|
23001 M00S13312.cpumtr +++| LCC2 LX3 -24
23002 M00S13313.cpumtr +++| BX7 X5+X3
23003 M00S13314.cpumtr +++| EQ PRG1 EXIT TO STORE OUTPUT REGISTER
23004 M00S13315.cpumtr +++| PIP SPACE 4,15
23005 M00S13316.cpumtr +++|** PIP - *PIOM* PROGRAM MODE PROCESSOR.
23006 M00S13317.cpumtr +++|*
23007 M00S13318.cpumtr +++|* ENTRY (A5) = PP *OR* ADDRESS.
23008 M00S13319.cpumtr +++|* (X5) = (OR).
23009 M00S13320.cpumtr +++|* (B7) = CP ADDRESS.
23010 M00S13321.cpumtr +++|* SEE *PIOM* DOCUMENTATION FOR *OR* AND *MB*
23011 M00S13322.cpumtr +++|* DESCRIPTION.
23012 M00S13323.cpumtr +++|* (MB+1) = 1/MODE,23/,18/PROC,18/SUBFUNCTION DATA.
23013 M00S13324.cpumtr +++|* MODE = 1 (PROGRAM MODE).
23014 M00S13325.cpumtr +++|* PROC = PROGRAM MODE *PIOM* RETURN ADDRESS.
23015 M00S13326.cpumtr +++|*
23016 M00S13327.cpumtr +++|* EXIT TO *PIOM* PROCESSOR RETURN ADDRESS.
23017 M00S13328.cpumtr +++|* (B5) = *PIOM* SUBFUNCTION - 1.
23018 M00S13329.cpumtr +++|* A5, B7, X5 SAME AS ON ENTRY.
23019 M00S13330.cpumtr +++|
23020 M00S13331.cpumtr +++|
23021 M00S13332.cpumtr +++| PIP AX1 42 GET *PIOM* SUBFUNCTION CODE
23022 M00S13333.cpumtr +++| SB4 X1-LCRS
23023 M00S13334.cpumtr +++| ZR B4,LCC IF LOAD CM RESIDENT CODE SUBFUNCTION
23024 M00S13335.cpumtr +++| SA3 A5+2 GET PROGRAM MODE PROCESSOR ADDRESS
23025 M00S13336.cpumtr +++| SB5 X1-1 SUBFUNCTION - 1
23026 M00S13337.cpumtr +++| LX3 -18
23027 M00S13338.cpumtr +++| SB6 X3
23028 M00S13339.cpumtr +++| JP B6 JUMP TO *PIOM* SUBFUNCTION PROCESSOR
23029 M00S13340.cpumtr +++| RDC SPACE 4
23030 M00S13341.cpumtr +++|** RDC - REQUEST DATA CONVERSION.
23031 M00S13342.cpumtr +++|*
23032 M00S13343.cpumtr +++|* ENTRY (A5) = PPU OUTPUT REGISTER ADDRESS.
23033 M00S13344.cpumtr +++|* REFER TO *RDCM* DOCUMENTATION FOR MORE INFORMATION.
23034 M00S13345.cpumtr +++|*
23035 M00S13346.cpumtr +++|* EXIT TO *PRG*.
23036 M00S13347.cpumtr +++|*
23037 M00S13348.cpumtr +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
23038 M00S13349.cpumtr +++|* B - 1, 2, 3, 4, 5, 6.
23039 M00S13350.cpumtr +++|* A - 1, 2, 3, 4, 6, 7.
23040 M00S13351.cpumtr +++|*
23041 M00S13352.cpumtr +++|* CALLS DSB.
23042 M00S13353.cpumtr +++|
23043 M00S13354.cpumtr +++|
23044 M00S13355.cpumtr +++| RDC SA1 A5 PRESET (A1)
23045 M00S13356.cpumtr +++| MX4 -6
23046 M00S13357.cpumtr +++| SB3 B1 SET WORD COUNT
23047 M00S13358.cpumtr +++| LX1 24
23048 M00S13359.cpumtr +++| SB6 RCDS CHECK FOR *RCIS*/*RCDS* SUBFUNCTIONS
23049 M00S13360.cpumtr +++| ERRNZ RCIS CODE DEPENDS ON VALUE
23050 M00S13361.cpumtr +++| BX2 -X4*X1
23051 M00S13362.cpumtr +++| LX1 6
23052 M00S13363.cpumtr +++| SB5 6 SHIFT COUNT
23053 M00S13364.cpumtr +++| BX5 -X4*X1 MILLIUNITS CONVERSION
23054 M00S13365.cpumtr +++| LX1 6
23055 M00S13366.cpumtr +++| BX1 -X4*X1 VALIDATE WORD COUNT AND SRU POINTER
23056 M00S13367.cpumtr +++| MX4 -30 (X4) = DATA MASK
23057 M00S13368.cpumtr +++| ZR X2,RDC4 IF 1 WORD TO CONVERT (0 IMPLIES 1)
23058 M00S13369.cpumtr +++| SB3 X2 SET SUBFUNCTION / WORD COUNT
23059 M00S13370.cpumtr +++| SB4 X1 SET SRU POINTER
23060 M00S13371.cpumtr +++| GT B3,B6,RDC9 IF NOT *RCIS*/*RCDS* SUBFUNCTION
23061 M00S13372.cpumtr +++| LT B3,B6,RDC1 IF NOT *RCDS* SUBFUNCTION
23062 M00S13373.cpumtr +++|
23063 M00S13374.cpumtr +++|* CONVERT INTEGER TO F10.3 FORMAT (*RCDS*).
23064 M00S13375.cpumtr +++|
23065 M00S13376.cpumtr +++| MX4 -48 DATA MASK
23066 M00S13377.cpumtr +++| SA3 A5+B1 WORD TO CONVERT
23067 M00S13378.cpumtr +++| ZR B4,RDC4 IF NO CONVERSION TO CLOCK CYCLES
23068 M00S13379.cpumtr +++| SB4 RDC3 SET *DSB* RETURN ADDRESS
23069 M00S13380.cpumtr +++| SA2 /MONITOR/CPTA CONVERT QUARTER NANOUNITS TO CLOCK CYCLE
23070 M00S13381.cpumtr +++| PX2 X2
23071 M00S13382.cpumtr +++| BX6 X3
23072 M00S13383.cpumtr +++| NX2 X2
23073 M00S13384.cpumtr +++| EQ DSB DIVIDE 60 BIT INTEGER
23074 M00S13385.cpumtr +++|
23075 M00S13386.cpumtr +++|* CONVERT INTEGER(S) TO F10.3 FORMAT (*RCIS*).
23076 M00S13387.cpumtr +++|
23077 M00S13388.cpumtr +++| RDC1 ZR B4,RDC2 IF NO SRU CONVERSION
23078 M00S13389.cpumtr +++| GT B4,B3,HNG IF SRU POINTER .GT. WORD COUNT
23079 M00S13390.cpumtr +++| SA2 A5+B4
23080 M00S13391.cpumtr +++| MX6 -42
23081 M00S13392.cpumtr +++| SA3 /MONITOR/TTH
23082 M00S13393.cpumtr +++| BX6 -X6*X2 ISOLATE SRU ACCUMULATOR
23083 M00S13394.cpumtr +++| PX6 X6
23084 M00S13395.cpumtr +++| FX6 X3*X6 SCALE SRU ACCUMULATOR
23085 M00S13396.cpumtr +++| SA6 A2 STORE FOR CONVERSION
23086 M00S13397.cpumtr +++| RDC2 ZR X5,RDC4 IF NO NANOUNITS TO MILLIUNITS CONVERSION
23087 M00S13398.cpumtr +++| SB4 X5
23088 M00S13399.cpumtr +++| SA3 A5+B4 WORD TO CONVERT
23089 M00S13400.cpumtr +++| GT B4,B6,HNG IF MILLIUNITS POINTER .GT. WORD COUNT
23090 M00S13401.cpumtr +++| SA2 /MONITOR/CPTB CONVERT QUARTER NANOUNITS TO MILLIUNITS
23091 M00S13402.cpumtr +++| SB4 RDC3 SET *DSB* RETURN ADDRESS
23092 M00S13403.cpumtr +++| BX6 X3
23093 M00S13404.cpumtr +++| EQ MSB MULTIPLY 60 BIT INTEGER
23094 M00S13405.cpumtr +++|
23095 M00S13406.cpumtr +++| RDC3 SA6 A3+ STORE QUOTIENT
23096 M00S13407.cpumtr +++| SB6 7 RESTORE B6
23097 M00S13408.cpumtr +++|
23098 M00S13409.cpumtr +++|* INITIALIZE CONVERSION. (A1) = OR. (B6) = CONVERSION COUNT.
23099 M00S13410.cpumtr +++|
23100 M00S13411.cpumtr +++| RDC4 SA2 RDCA (X2) = 0.1P48+1
23101 M00S13412.cpumtr +++| SX5 1R. (X5) = DECIMAL POINT
23102 M00S13413.cpumtr +++| SA3 RDCB (X3) = 10.0P
23103 M00S13414.cpumtr +++| LX5 18
23104 M00S13415.cpumtr +++| MX0 -18 (X0) = FRACTION MASK
23105 M00S13416.cpumtr +++|
23106 M00S13417.cpumtr +++|* CONVERT ACCOUNTING WORDS.
23107 M00S13418.cpumtr +++|
23108 M00S13419.cpumtr +++| RDC5 SA1 A1+B1 CHECK NEXT WORD
23109 M00S13420.cpumtr +++| BX6 -X4*X1
23110 M00S13421.cpumtr +++| SX7 1000
23111 M00S13422.cpumtr +++| ZR X6,RDC8 IF BLANK WORD
23112 M00S13423.cpumtr +++| SB4 1R0-1R (B4) = CONVERSION
23113 M00S13424.cpumtr +++| SA4 A3+B1 (X4) = BACKGROUND
23114 M00S13425.cpumtr +++| PX1 X6
23115 M00S13426.cpumtr +++| SB2 9 SET MAXIMUM NUMBER OF DIGITS PER WORD
23116 M00S13427.cpumtr +++| IX7 X6-X7
23117 M00S13428.cpumtr +++| SB6 -B5
23118 M00S13429.cpumtr +++| PL X7,RDC6 IF INTEGER PRESENT
23119 M00S13430.cpumtr +++| SB4 B0+
23120 M00S13431.cpumtr +++| SA4 A4+1
23121 M00S13432.cpumtr +++| RDC6 DX6 X2*X1 EXTRACT REMAINDER
23122 M00S13433.cpumtr +++| FX1 X2*X1
23123 M00S13434.cpumtr +++| UX7 X1 CHECK QUOTIENT
23124 M00S13435.cpumtr +++| SB2 B2-B1 DECREMENT CHARACTER COUNT
23125 M00S13436.cpumtr +++| LX4 -6 SHIFT ASSEMBLY
23126 M00S13437.cpumtr +++| GT B2,B0,RDC7 IF WORD NOT FULL
23127 M00S13438.cpumtr +++| BX7 X7-X7 TERMINATE CONVERSION
23128 M00S13439.cpumtr +++| RDC7 SB6 B6+B5 ADVANCE SHIFT COUNT
23129 M00S13440.cpumtr +++| FX6 X3*X6 EXTRACT DIGIT
23130 M00S13441.cpumtr +++| SX6 X6+B4 CONVERT DIGIT
23131 M00S13442.cpumtr +++| IX4 X6+X4
23132 M00S13443.cpumtr +++| NZ X7,RDC6 LOOP TO ZERO QUOTIENT
23133 M00S13444.cpumtr +++| LX6 X4,B6 RIGHT JUSTIFY ASSEMBLY
23134 M00S13445.cpumtr +++| BX4 -X0*X6 EXTRACT FRACTION
23135 M00S13446.cpumtr +++| ZR X5,RDC8 IF SECOND PASS FOR F20.3 CONVERSION
23136 M00S13447.cpumtr +++| IX7 X4+X5 ADD DECIMAL POINT
23137 M00S13448.cpumtr +++| LX6 6
23138 M00S13449.cpumtr +++| MX4 36
23139 M00S13450.cpumtr +++| BX4 X4*X6 EXTRACT INTEGER
23140 M00S13451.cpumtr +++| IX6 X4+X7 ADD INTEGER
23141 M00S13452.cpumtr +++| SB6 -B5 RESET SHIFT COUNT
23142 M00S13453.cpumtr +++| LE B3,B5,RDC8 IF NOT F20.3 CONVERSION
23143 M00S13454.cpumtr +++| SA6 A1+1 STORE WORD FROM FIRST PASS
23144 M00S13455.cpumtr +++| SB2 10 RESET NUMBER OF DIGITS PER WORD
23145 M00S13456.cpumtr +++| SA4 A3+1 RESET BACKGROUND
23146 M00S13457.cpumtr +++| UX7 X1
23147 M00S13458.cpumtr +++| SX5 B0+ INDICATE F20.3 FIRST PASS COMPLETE
23148 M00S13459.cpumtr +++| BX6 X4
23149 M00S13460.cpumtr +++| SB4 1R0-1R RESET CONVERSION OFFSET
23150 M00S13461.cpumtr +++| NZ X7,RDC6 IF MORE DIGITS TO CONVERT
23151 M00S13462.cpumtr +++| RDC8 SA6 A1 STORE CONVERSION
23152 M00S13463.cpumtr +++| BX7 X7-X7
23153 M00S13464.cpumtr +++| GT B3,B5,PRG1 IF F20.3 CONVERSION
23154 M00S13465.cpumtr +++| SB3 B3-B1 DECREMENT WORD COUNT
23155 M00S13466.cpumtr +++| MX4 -30
23156 M00S13467.cpumtr +++| NZ B3,RDC5 IF MORE TO CONVERT
23157 M00S13468.cpumtr +++| EQ PRG1 EXIT AND STORE *OR*
23158 M00S13469.cpumtr +++|
23159 M00S13470.cpumtr +++|* INCREMENT CURRENT PACKED DATE BY SPECIFIED TERM (*RIDS*).
23160 M00S13471.cpumtr +++|
23161 M00S13472.cpumtr +++| RDC9 SB6 REPS
23162 M00S13473.cpumtr +++| ERRNZ REPS-RIDS-1 CODE DEPENDS ON VALUE
23163 M00S13474.cpumtr +++| GT B3,B6,HNG IF ILLEGAL SUBFUNCTION
23164 M00S13475.cpumtr +++| EQ B3,B6,RDC17 IF *REPS* SUBFUNCTION
23165 M00S13476.cpumtr +++| SA2 PDTL GET CURRENT DATE
23166 M00S13477.cpumtr +++| AX2 18
23167 M00S13478.cpumtr +++| SA5 A5 GET TERM
23168 M00S13479.cpumtr +++| MX0 -12
23169 M00S13480.cpumtr +++| BX1 -X0*X5
23170 M00S13481.cpumtr +++| MX0 -6 UNPACK DATE
23171 M00S13482.cpumtr +++| BX3 -X0*X2
23172 M00S13483.cpumtr +++| SB3 X3 DAY
23173 M00S13484.cpumtr +++| AX2 6
23174 M00S13485.cpumtr +++| BX3 -X0*X2
23175 M00S13486.cpumtr +++| SB4 X3 MONTH
23176 M00S13487.cpumtr +++| AX2 6
23177 M00S13488.cpumtr +++| BX2 -X0*X2
23178 M00S13489.cpumtr +++| SB5 X2 YEAR
23179 M00S13490.cpumtr +++| MX0 -2 MASK FOR LEAP YEAR
23180 M00S13491.cpumtr +++|
23181 M00S13492.cpumtr +++|* ADVANCE YEAR.
23182 M00S13493.cpumtr +++|
23183 M00S13494.cpumtr +++| RDC10 SX4 X1-366D (TERM REMAINING) - (DAYS IN LEAP YEAR)
23184 M00S13495.cpumtr +++| NG X4,RDC14 IF LESS THAN 1 YEAR REMAINING
23185 M00S13496.cpumtr +++| SB5 B5+B1 ADD 1 YEAR TO EXPIRATION DATE
23186 M00S13497.cpumtr +++| SX3 B5+B1
23187 M00S13498.cpumtr +++| SB6 B1+B1
23188 M00S13499.cpumtr +++| BX2 -X0*X3
23189 M00S13500.cpumtr +++| ZR X2,RDC11 IF CURRENT YEAR IS A LEAP YEAR
23190 M00S13501.cpumtr +++| SX2 X3+B1 YEAR + 1 + LEAP YEAR OFFSET
23191 M00S13502.cpumtr +++| BX2 -X0*X2
23192 M00S13503.cpumtr +++| NZ X2,RDC13 IF NEXT YEAR IS NOT A LEAP YEAR
23193 M00S13504.cpumtr +++| LE B4,B6,RDC13 IF BEFORE LEAP DAY
23194 M00S13505.cpumtr +++| SX1 X1-1 SUBTRACT 1 DAY TO OFFSET LEAP DAY
23195 M00S13506.cpumtr +++| EQ RDC13 SUBTRACT 1 YEAR FROM TERM
23196 M00S13507.cpumtr +++|
23197 M00S13508.cpumtr +++| RDC11 GT B4,B6,RDC13 IF AFTER LEAP DAY
23198 M00S13509.cpumtr +++| SX1 X1-1 SUBTRACT 1 DAY TO OFFSET LEAP DAY
23199 M00S13510.cpumtr +++| RDC13 SX1 X1-365D SUBTRACT 1 YEAR FROM TERM
23200 M00S13511.cpumtr +++| EQ RDC10 CONTINUE PROCESSING
23201 M00S13512.cpumtr +++|
23202 M00S13513.cpumtr +++|* ADVANCE MONTH.
23203 M00S13514.cpumtr +++|
23204 M00S13515.cpumtr +++| RDC14 SA4 RDCC+B4 GET DAYS IN CURRENT MONTH
23205 M00S13516.cpumtr +++| SX7 B4-2
23206 M00S13517.cpumtr +++| NZ X7,RDC15 IF CURRENT MONTH NOT FEBRUARY
23207 M00S13518.cpumtr +++| SX2 B5+2
23208 M00S13519.cpumtr +++| BX7 -X0*X2
23209 M00S13520.cpumtr +++| NZ X7,RDC15 IF NOT LEAP YEAR
23210 M00S13521.cpumtr +++| SX4 X4+B1 ADD LEAP DAY
23211 M00S13522.cpumtr +++| RDC15 SX2 B3+
23212 M00S13523.cpumtr +++| IX2 X4-X2 DAYS TO END OF CURRENT MONTH
23213 M00S13524.cpumtr +++| IX3 X1-X2 SUBTRACT FROM TERM REMAINING
23214 M00S13525.cpumtr +++| NG X3,RDC16 IF NOT ENOUGH TERM REMAINING TO FILL MONTH
23215 M00S13526.cpumtr +++| ZR X3,RDC16 IF TERM EXACTLY FILLS CURRENT MONTH
23216 M00S13527.cpumtr +++| SB3 B0+
23217 M00S13528.cpumtr +++| SB4 B4+B1 INCREMENT MONTH
23218 M00S13529.cpumtr +++| BX1 X3 SET NEW TERM
23219 M00S13530.cpumtr +++| SX7 B4-13
23220 M00S13531.cpumtr +++| NZ X7,RDC14 IF NOT END OF YEAR
23221 M00S13532.cpumtr +++| SB5 B5+B1 INCREMENT YEAR
23222 M00S13533.cpumtr +++| SB4 B1 SET MONTH TO JANUARY
23223 M00S13534.cpumtr +++| EQ RDC14 CONTINUE
23224 M00S13535.cpumtr +++|
23225 M00S13536.cpumtr +++|* RETURN NEW PACKED DATE.
23226 M00S13537.cpumtr +++|
23227 M00S13538.cpumtr +++| RDC16 SB3 X1+B3 SET DAYS
23228 M00S13539.cpumtr +++| SX6 B5 ADD IN YEAR
23229 M00S13540.cpumtr +++| LX6 6
23230 M00S13541.cpumtr +++| SX6 X6+B4 ADD IN MONTH
23231 M00S13542.cpumtr +++| LX6 6
23232 M00S13543.cpumtr +++| SX6 X6+B3 ADD IN DAY
23233 M00S13544.cpumtr +++| SA6 A5+B1 SET DATE IN MESSAGE BUFFER WORD
23234 M00S13545.cpumtr +++| BX7 X7-X7
23235 M00S13546.cpumtr +++| EQ PRG1 EXIT AND STORE OUTPUT REGISTER
23236 M00S13547.cpumtr +++|
23237 M00S13548.cpumtr +++|* ENCRYPT PASSWORD (*REPS*).
23238 M00S13549.cpumtr +++|*
23239 M00S13550.cpumtr +++|* THE ENCRYPTION ALGORITHM USED IS A POLYNOMIAL EXPANSION,
23240 M00S13551.cpumtr +++|* MODULUS A LARGE PRIME NUMBER, OF THE FORM -
23241 M00S13552.cpumtr +++|*
23242 M00S13553.cpumtr +++|* E = SUM(A(N) * K**B(N))MOD PRIME
23243 M00S13554.cpumtr +++|*
23244 M00S13555.cpumtr +++|* WHERE -
23245 M00S13556.cpumtr +++|*
23246 M00S13557.cpumtr +++|* E = ENCRYPTED PASSWORD.
23247 M00S13558.cpumtr +++|* K = UNENCRYPTED (PLAINTEXT) PASSWORD.
23248 M00S13559.cpumtr +++|* A(N) = LARGE EXPANSION COEFFICIENT (N=1,6).
23249 M00S13560.cpumtr +++|* B(N) = PRIME EXPANSION EXPONENT (N=1,6).
23250 M00S13561.cpumtr +++|* PRIME = LARGE PRIME INTEGER IN THE INTERVAL
23251 M00S13562.cpumtr +++|* (2**41, 2**42-1).
23252 M00S13563.cpumtr +++|*
23253 M00S13564.cpumtr +++|* PROGRAMMING NOTES.
23254 M00S13565.cpumtr +++|*
23255 M00S13566.cpumtr +++|* 1. THIS ALGORITHM MAY BE CUSTOMIZED BY ANY OR ALL
23256 M00S13567.cpumtr +++|* OF THE FOLLOWING METHODS -
23257 M00S13568.cpumtr +++|*
23258 M00S13569.cpumtr +++|* A. CHANGING THE VALUE OF THE PRIME MODULUS,
23259 M00S13570.cpumtr +++|* MAINTAINING THE CORRECT RANGE.
23260 M00S13571.cpumtr +++|*
23261 M00S13572.cpumtr +++|* B. CHANGING THE NUMBER OF TERMS IN THE EXPANSION
23262 M00S13573.cpumtr +++|* POLYNOMIAL.
23263 M00S13574.cpumtr +++|*
23264 M00S13575.cpumtr +++|* C. CHANGING THE VALUES OF THE PRIME EXPONENTS.
23265 M00S13576.cpumtr +++|*
23266 M00S13577.cpumtr +++|* D. CHANGING THE VALUES OF THE COEFFICIENTS.
23267 M00S13578.cpumtr +++|*
23268 M00S13579.cpumtr +++|* 2. THE LENGTH OF THE BIT STRING TO BE ENCRYPTED MAY
23269 M00S13580.cpumtr +++|* BE ALTERED TO ANY VALUE N .LE. 48D BY ALTERING
23270 M00S13581.cpumtr +++|* THE RANGE OF THE PRIME MODULUS TO ANY VALUE *MOD*
23271 M00S13582.cpumtr +++|* SUCH THAT -
23272 M00S13583.cpumtr +++|*
23273 M00S13584.cpumtr +++|* (2**(N-1)) .LE. MOD .LE. (2**(N)-1)
23274 M00S13585.cpumtr +++|
23275 M00S13586.cpumtr +++| NTERM EQU 6 NUMBER OF TERMS IN POLYNOMIAL EXPANSION
23276 M00S13587.cpumtr +++|
23277 M00S13588.cpumtr +++|** TEMPORARY STORAGE LOCATIONS USED BY SUBFUNCTION *REPS*.
23278 M00S13589.cpumtr +++|
23279 M00S13590.cpumtr +++|
23280 M00S13591.cpumtr +++| RDCD BSS 0 START OF TEMPORARY STORAGE
23281 M00S13592.cpumtr +++| EPWD CON 0 ENCRYPTED PASSWORD
23282 M00S13593.cpumtr +++| UPWD CON 0 UNENCRYPTED PASSWORD
23283 M00S13594.cpumtr +++| TMP1 CON 0 TEMPORARY STORAGE
23284 M00S13595.cpumtr +++| TMP2 CON 0 TEMPORARY STORAGE
23285 M00S13596.cpumtr +++| TMP3 CON 0 TEMPORARY STORAGE
23286 M00S13597.cpumtr +++| RDCDL EQU *-RDCD LENGTH OF TEMPORARY STORAGE
23287 M00S13598.cpumtr +++| SPACE 4,10
23288 M00S13599.cpumtr +++|* PRIME - PRIME IS CHOSEN TO PROVIDE A LARGE PRIME
23289 M00S13600.cpumtr +++|* INTEGER IN THE INTERVAL (2**41,2**42-1).
23290 M00S13601.cpumtr +++|
23291 M00S13602.cpumtr +++|
23292 M00S13603.cpumtr +++| PRIM DATA 00000077777777777561B (2**42)-143 PRIME MODULUS
23293 M00S13604.cpumtr +++| MOD DATA 17717777777777756100B PACKED/NORMALIZED PRIME MODULUS
23294 M00S13605.cpumtr +++| SPACE 4,10
23295 M00S13606.cpumtr +++|* EXPT - TABLE OF PRIME EXPONENTS USED BY SUBFUNCTION *REPS*.
23296 M00S13607.cpumtr +++|
23297 M00S13608.cpumtr +++|
23298 M00S13609.cpumtr +++| EXPT BSS 0 START OF TABLE
23299 M00S13610.cpumtr +++| DATA 1777777777747B (2**37)-25
23300 M00S13611.cpumtr +++| DATA 1777755B (2**19)-19
23301 M00S13612.cpumtr +++| DATA 3
23302 M00S13613.cpumtr +++| DATA 2
23303 M00S13614.cpumtr +++| DATA 1
23304 M00S13615.cpumtr +++| DATA 0
23305 M00S13616.cpumtr +++| EXPTL EQU *-EXPT
23306 M00S13617.cpumtr +++| ERRNZ EXPTL-NTERM IMPROPER NUMBER OF EXPONENTS
23307 M00S13618.cpumtr +++| SPACE 4,10
23308 M00S13619.cpumtr +++|* COFT - TABLE OF COEFFICIENTS USED BY SUBFUNCTION *REPS*.
23309 M00S13620.cpumtr +++|
23310 M00S13621.cpumtr +++|
23311 M00S13622.cpumtr +++| COFT BSS 0 START OF TABLE
23312 M00S13623.cpumtr +++| DATA 35216
23313 M00S13624.cpumtr +++| DATA 14486
23314 M00S13625.cpumtr +++| DATA 29891
23315 M00S13626.cpumtr +++| DATA 68607
23316 M00S13627.cpumtr +++| DATA 41867
23317 M00S13628.cpumtr +++| DATA 14951
23318 M00S13629.cpumtr +++| COFTL EQU *-COFT
23319 M00S13630.cpumtr +++| ERRNZ COFTL-NTERM IMPROPER NUMBER OF COEFFICIENTS
23320 M00S13631.cpumtr +++|
23321 M00S13632.cpumtr +++| RDC17 SA1 A5+B1 GET UNENCRYPTED PASSWORD
23322 M00S13633.cpumtr +++| MX0 -42
23323 M00S13634.cpumtr +++| AX1 18
23324 M00S13635.cpumtr +++| BX6 -X0*X1
23325 M00S13636.cpumtr +++| SB6 B0+ INITIALIZE ITERATION INDEX
23326 M00S13637.cpumtr +++| SA6 UPWD
23327 M00S13638.cpumtr +++|
23328 M00S13639.cpumtr +++|* CALCULATE THE EXPONENT Y = (Z**N)MOD PRIME, WHERE
23329 M00S13640.cpumtr +++|* Y, Z, AND N ARE 42-BIT INTEGERS.
23330 M00S13641.cpumtr +++|
23331 M00S13642.cpumtr +++| RDC18 SA1 UPWD GET UNENCRYPTED PASSWORD
23332 M00S13643.cpumtr +++| SA2 EXPT+B6 GET EXPONENT
23333 M00S13644.cpumtr +++| BX6 X1 SAVE Z = INTEGER
23334 M00S13645.cpumtr +++| LX7 X2 SAVE N = WORKING EXPONENT
23335 M00S13646.cpumtr +++| SA6 A1+B1 (TMP1) = Z TERM
23336 M00S13647.cpumtr +++| ERRNZ TMP1-UPWD-1 ERROR IF WORDS NOT CONTIGUOUS
23337 M00S13648.cpumtr +++| SA7 A6+B1 (TMP2) = N
23338 M00S13649.cpumtr +++| ERRNZ TMP2-TMP1-1 ERROR IF WORDS NOT CONTIGUOUS
23339 M00S13650.cpumtr +++| SX6 B1 INITIALIZE Y TERM
23340 M00S13651.cpumtr +++| SA6 A7+B1 (TMP3) = Y
23341 M00S13652.cpumtr +++| ERRNZ TMP3-TMP2-1 ERROR IF WORDS NOT CONTIGUOUS
23342 M00S13653.cpumtr +++| ZR X2,RDC23 IF EXPONENT = ZERO
23343 M00S13654.cpumtr +++| RDC19 SA3 TMP2 GET N TERM
23344 M00S13655.cpumtr +++| SA1 TMP1 GET Z TERM
23345 M00S13656.cpumtr +++| AX6 X3,B1 N = N/2
23346 M00S13657.cpumtr +++| LX3 59-0
23347 M00S13658.cpumtr +++| SA6 A3+ STORE HALVED N TERM
23348 M00S13659.cpumtr +++| PL X3,RDC21 IF N TERM WAS EVEN BEFORE HALVING
23349 M00S13660.cpumtr +++| SA2 TMP3 GET Y TERM
23350 M00S13661.cpumtr +++| SB3 RDC20 SET RETURN ADDRESS
23351 M00S13662.cpumtr +++| EQ MPY Y = Z*Y
23352 M00S13663.cpumtr +++|
23353 M00S13664.cpumtr +++| RDC20 SA6 TMP3 SAVE NEW Y
23354 M00S13665.cpumtr +++| SA3 TMP2 CHECK N
23355 M00S13666.cpumtr +++| ZR X3,RDC23 IF CALCULATION COMPLETE
23356 M00S13667.cpumtr +++| SA1 TMP1 GET Z TERM
23357 M00S13668.cpumtr +++| RDC21 BX2 X1
23358 M00S13669.cpumtr +++| SB3 RDC22 SET RETURN ADDRESS
23359 M00S13670.cpumtr +++| EQ MPY Z = Z*Z
23360 M00S13671.cpumtr +++|
23361 M00S13672.cpumtr +++| RDC22 SA6 TMP1 SAVE NEW Z TERM
23362 M00S13673.cpumtr +++| EQ RDC19 LOOP
23363 M00S13674.cpumtr +++|
23364 M00S13675.cpumtr +++|* MULTIPLY COEFFICIENT * EXPONENT.
23365 M00S13676.cpumtr +++|
23366 M00S13677.cpumtr +++| RDC23 SA2 COFT+B6 GET COEFFICIENT
23367 M00S13678.cpumtr +++| SA1 TMP3 GET EXPONENT
23368 M00S13679.cpumtr +++| SB3 RDC24 SET RETURN ADDRESS
23369 M00S13680.cpumtr +++| EQ MPY MULTIPLY BY COEFFICIENT
23370 M00S13681.cpumtr +++|
23371 M00S13682.cpumtr +++|* CALCULATE THE ENCRYPTED PASSWORD.
23372 M00S13683.cpumtr +++|
23373 M00S13684.cpumtr +++| RDC24 SA2 EPWD GET ENCRYPTED PASSWORD
23374 M00S13685.cpumtr +++| SA3 PRIM GET PRIME MODULUS
23375 M00S13686.cpumtr +++| IX6 X2+X6 SUM VALUES
23376 M00S13687.cpumtr +++| IX1 X6-X3
23377 M00S13688.cpumtr +++| NG X1,RDC25 IF SUM .LT. MODULUS
23378 M00S13689.cpumtr +++| BX6 X1
23379 M00S13690.cpumtr +++| RDC25 SA6 A2 STORE NEW ENCRYPTED PASSWORD
23380 M00S13691.cpumtr +++| SB6 B6+B1 INCREMENT ITERATION INDEX
23381 M00S13692.cpumtr +++| SB5 B6-NTERM
23382 M00S13693.cpumtr +++| NG B5,RDC18 IF MORE ITERATIONS REQUIRED
23383 M00S13694.cpumtr +++|
23384 M00S13695.cpumtr +++|* CLEAR TEMPORARY STORAGE LOCATIONS AND RETURN
23385 M00S13696.cpumtr +++|* ENCRYPTED PASSWORD.
23386 M00S13697.cpumtr +++|
23387 M00S13698.cpumtr +++| SA1 EPWD GET ENCRYPTED PASSWORD
23388 M00S13699.cpumtr +++| SB6 RDCDL-1
23389 M00S13700.cpumtr +++| BX6 X1
23390 M00S13701.cpumtr +++| LX6 18 LEFT-JUSTIFY OUTPUT
23391 M00S13702.cpumtr +++| BX7 X7-X7
23392 M00S13703.cpumtr +++| SA6 A5+B1 RETURN ENCRYPTED PASSWORD
23393 M00S13704.cpumtr +++| RDC26 SA7 RDCD+B6 CLEAR TEMPORARY STORAGE
23394 M00S13705.cpumtr +++| SB6 B6-1
23395 M00S13706.cpumtr +++| PL B6,RDC26 IF MORE WORDS TO CLEAR
23396 M00S13707.cpumtr +++| EQ PRG1 EXIT AND SET OUTPUT REGISTER
23397 M00S13708.cpumtr +++|
23398 M00S13709.cpumtr +++| RDCA CON 0.1P48+1 EXTRACT REMAINDER
23399 M00S13710.cpumtr +++| RDCB CON 10.0P EXTRACT DIGIT
23400 M00S13711.cpumtr +++| CON 10H
23401 M00S13712.cpumtr +++| CON 10H 0000
23402 M00S13713.cpumtr +++|
23403 M00S13714.cpumtr +++| RDCC EQU *-1 TABLE OF DAYS IN MONTH
23404 M00S13715.cpumtr +++| CON 31 JANUARY
23405 M00S13716.cpumtr +++| CON 28 FEBRUARY
23406 M00S13717.cpumtr +++| CON 31 MARCH
23407 M00S13718.cpumtr +++| CON 30 APRIL
23408 M00S13719.cpumtr +++| CON 31 MAY
23409 M00S13720.cpumtr +++| CON 30 JUNE
23410 M00S13721.cpumtr +++| CON 31 JULY
23411 M00S13722.cpumtr +++| CON 31 AUGUST
23412 M00S13723.cpumtr +++| CON 30 SEPTEMBER
23413 M00S13724.cpumtr +++| CON 31 OCTOBER
23414 M00S13725.cpumtr +++| CON 30 NOVEMBER
23415 M00S13726.cpumtr +++| CON 31 DECEMBER
23416 M00S13727.cpumtr +++| RTC SPACE 4,20
23417 M00S13728.cpumtr +++|** RTC - RESERVE TRACK CHAIN.
23418 M00S13729.cpumtr +++|*
23419 M00S13730.cpumtr +++|* ENTRY (A5) = PPU OUTPUT REGISTER ADDRESS.
| Line S13731 Modification History |
M01 (Removed by) | cpum104 |
Seq # *Modification Id* Act
----------------------------+
23420 M01S13731.cpum104 ---|* (B6) .GT. 0.
23421 M00S13732.cpumtr +++|*
23422 M00S13733.cpumtr +++|* EXIT (X7) = FIRST TRACK IN BYTE 4, IF TRACKS ASSIGNED.
23423 M00S13734.cpumtr +++|* (X7) = REASON CODE IN BYTE 3, IF NO TRACKS ASSIGNED.
23424 M00S13735.cpumtr +++|*
23425 M00S13736.cpumtr +++|* USES X - ALL.
23426 M00S13737.cpumtr +++|* B - 2, 3, 4, 5, 6, 7.
23427 M00S13738.cpumtr +++|* A - 0, 1, 2, 3, 4, 6, 7.
23428 M00S13739.cpumtr +++|*
| Line S13740 Modification History |
M01 (Removed by) | cpumt78 |
Seq # *Modification Id* Act
----------------------------+
23429 M01S13740.cpumt78 ---|* CALLS CTR.
| Line S00001 Modification History |
M01 (Added by) | cpumt78 |
Seq # *Modification Id* Act
----------------------------+
23430 M01S00001.cpumt78 +++|* CALLS CCP1, CTR.
23431 M00S13741.cpumtr +++|
23432 M00S13742.cpumtr +++|
23433 M00S13743.cpumtr +++| RTC BSS 0 ENTRY
23434 M00S13744.cpumtr +++| BX2 X1 CHECK EQUIPMENT SPECIFIED
23435 M00S13745.cpumtr +++| MX0 -9
23436 M00S13746.cpumtr +++| LX2 24
23437 M00S13747.cpumtr +++| BX3 -X0*X2
23438 M00S13748.cpumtr +++| SB3 RTC7 SET *CTR* RETURN
23439 M00S13749.cpumtr +++| NZ X3,CTR IF EQUIPMENT SPECIFIED
23440 M00S13750.cpumtr +++| AX2 48
23441 M00S13751.cpumtr +++| SB4 B0 (B4) = FIRST UNRESTRICTED DEVICE
23442 M00S13752.cpumtr +++| SB2 X2-MXRS
23443 M00S13753.cpumtr +++| PL B2,HNG IF ILLEGAL DEVICE SELECTION
23444 M00S13754.cpumtr +++| TA1 X2,MSA READ DEVICE SELECTION BITS
| Line S13755 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
23445 M01S13755.v23l617 ---| NZ X1,RTC1 IF SELECTION PRESENT
23446 M01S13756.v23l617 ---| TA1 MSA USE TEMPORARY DEVICES
| Line S13757 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23447 M01S13757.242l642 ---| RTC1 SB3 X2-ROLS
| Line S00266 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23448 M02S00266.242l642 ---| SX3 X2-SROS
| Line S13758 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23449 M01S13758.242l642 ---| UX2,B5 X1 (B5) = CURRENT EQUIPMENT
23450 M01S13759.242l642 ---| MX0 13 (X0) = BASE MASK
23451 M01S13760.242l642 ---| SB7 B0 (B7) = FIRST POSSIBLE DEVICE
| Line S13761 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23452 M02S13761.242l642 ---| SB2 B0 SET TO NOT LOOK FOR LEAST ACTIVITY
23453 M02S13762.242l642 ---| SX7 B1+ PRESET REJECT REASON CODE TO *TRACK LIMIT*
23454 M02S13763.242l642 ---| NZ B3,RTC1.1 IF NOT *ROLS*
23455 M02S13764.242l642 ---| SB2 7777B SET TO FIND DEVICE WITH LEAST ACTIVITY
| Line S00267 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23456 M02S00267.242l642 ---| SX7 B1 PRESET REJECT REASON CODE TO *TRACK LIMIT*
23457 M02S00268.242l642 ---| SB2 7777B SET LEAST ACTIVITY CHECK
23458 M02S00269.242l642 ---| ZR B3,RTC1.1 IF ROLLOUT SELECTION
23459 M02S00270.242l642 ---| ZR X3,RTC1.1 IF SECONDARY ROLLOUT SELECTION
23460 M02S00271.242l642 ---| SB2 B0+ SET TO NOT CHECK LEAST ACTIVITY
| Line S13765 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23461 M01S13765.242l642 ---| RTC1.1 TEQ (/PROGRAM/RTC1.2,/PROGRAM/RTC1.3,OSSM)
23462 M01S13766.242l642 ---| RTC1.2 MX3 1 CHECK FOR ACCESS LEVEL SELECTION
23463 M01S13767.242l642 ---| LX3 23-59
23464 M01S13768.242l642 ---| BX3 X3*X5
23465 M01S13769.242l642 ---| ZR X3,RTC1.3 IF ACCESS LEVEL SELECTION NOT SPECIFIED
23466 M01S13770.242l642 ---| MX3 3
23467 M01S13771.242l642 ---| LX3 20-59
23468 M01S13772.242l642 ---| BX3 X3*X5
23469 M01S13773.242l642 ---| LX3 -18
23470 M01S13774.242l642 ---| BX3 -X3
23471 M01S13775.242l642 ---| SB6 X3-0 (B6) = -(SPECIFIED ACCESS LEVEL)
23472 M01S13776.242l642 ---| SX7 2 PRESET REJECT REASON CODE TO *AL CONFLICT*
23473 M01S13777.242l642 ---| RTC1.3 SX5 X5+
23474 M01S13778.242l642 ---| SA7 RTCB SAVE REJECT REASON CODE
23475 M01S13779.242l642 ---|
23476 M01S13780.242l642 ---|* EQUIPMENT SELECTION LOOP.
23477 M01S13781.242l642 ---|* CODE ASSUMES *MSAL* EST ORDINALS REQUIRE 6 BITS.
23478 M01S13782.242l642 ---|
23479 M01S13783.242l642 ---| RTC2 AX2 X0,B5 SET CURRENT EQUIPMENT MASK
23480 M01S13784.242l642 ---| MX7 -12
23481 M01S13785.242l642 ---| BX3 -X2*X1
23482 M01S13786.242l642 ---| PX2 X3
23483 M01S13787.242l642 ---| NX4,B5 X2
23484 M01S13788.242l642 ---| ZR X3,RTC6 IF END OF PASS
23485 M01S13789.242l642 ---| R= X6,ESTE
23486 M01S13790.242l642 ---| SX4 B5
23487 M01S13791.242l642 ---| IX2 X4*X6
23488 M01S13792.242l642 ---| TA3 X2+EQDE,EST READ EST ENTRY
23489 M01S13793.242l642 ---| MX4 -1
23490 M01S13794.242l642 ---| BX6 -X7*X3 FWA MST
23491 M01S13795.242l642 ---| BX2 X3 POSITION *UNAVAILABLE* BIT
23492 M01S13796.242l642 ---| LX2 59-54
23493 M01S13797.242l642 ---| LX3 0-58 EXTRACT *SYSTEM ON DEVICE* BIT
23494 M01S13798.242l642 ---| BX4 -X4*X3
23495 M01S13799.242l642 ---| SB3 X4
23496 M01S13800.242l642 ---| LX3 59-23-0+58-60 POSITION *OFF* BIT
23497 M01S13801.242l642 ---| LX6 3
23498 M01S13802.242l642 ---| SA4 X6 READ TDGL WORD OF MST
23499 M01S13803.242l642 ---| ERRNZ TDGL CODE DEPENDS ON VALUE
23500 M01S13804.242l642 ---| BX3 X2+X3
23501 M01S13805.242l642 ---| SA2 X6+B1 CHECK DEVICE STATUS
23502 M01S13806.242l642 ---| ERRNZ ACGL-1 CODE DEPENDS ON VALUE
23503 M01S13807.242l642 ---| BX6 -X7*X4 AVAILABLE TRACKS
23504 M01S13808.242l642 ---| LX2 59-11 POSITION *REDEFINITION REQUESTED* BIT
| Line S13809 Modification History |
M01 (Removed by) | cpumt74 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23505 M02S13809.242l642 ---| AX4 48+3 NUMBER OF TRACKS ON DEVICE / 8
| Line S13810 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23506 M01S13810.242l642 ---| BX3 X2+X3
23507 M01S13811.242l642 ---| LX2 59-4-59+11 POSITION *ERROR IDLE STATUS* BIT
23508 M01S13812.242l642 ---| BX3 X2+X3
23509 M01S13813.242l642 ---| SA2 A4+MDGL READ SECTOR LIMIT
23510 M01S13814.242l642 ---| SX2 X2
23511 M01S13815.242l642 ---| IX2 X2*X6 SECTORS AVAILABLE
23512 M01S13816.242l642 ---| IX7 X5-X2 POSITIVE IF NOT ENOUGH SECTORS AVAILABLE
23513 M01S13817.242l642 ---| BX3 -X7+X3
23514 M01S13818.242l642 ---| PL B6,RTC2.1 IF ACCESS LEVEL SELECTION NOT SPECIFIED
23515 M01S13819.242l642 ---| SA2 A4+PFGL READ DEVICE ACCESS LEVEL LIMITS
23516 M01S13820.242l642 ---| LX2 -6 CHECK UPPER ACCESS LEVEL LIMIT
23517 M01S13821.242l642 ---| MX4 -3
23518 M01S13822.242l642 ---| BX4 -X4*X2
23519 M01S13823.242l642 ---| SX4 X4+B6
23520 M01S13824.242l642 ---| NG X4,RTC2 IF REQUESTED *AL* .GT. LIMIT
23521 M01S13825.242l642 ---| MX4 -3 CHECK LOWER ACCESS LEVEL LIMIT
23522 M01S13826.242l642 ---| LX2 -3
23523 M01S13827.242l642 ---| BX4 -X4*X2
23524 M01S13828.242l642 ---| SX4 X4+B6
23525 M01S13829.242l642 ---| SX4 X4-1
23526 M01S13830.242l642 ---| PL X4,RTC2 IF REQUESTED *AL* .LT. LIMIT
23527 M01S13831.242l642 ---| NG X7,RTC2.1 IF ENOUGH SECTORS AVAILABLE ON DEVICE
23528 M01S13832.242l642 ---| SX7 B1+ SET REJECT REASON CODE TO *TRACK LIMIT*
23529 M01S13833.242l642 ---| SA7 RTCB
23530 M01S13834.242l642 ---|
23531 M01S13835.242l642 ---|* BYPASS DEVICE IF UNAVAILABLE, OFF, RECONFIGURATION PENDING,
23532 M01S13836.242l642 ---|* ERROR IDLE OR NOT ENOUGH SPACE.
23533 M01S13837.242l642 ---|
23534 M01S13838.242l642 ---| RTC2.1 NG X3,RTC2 IF DEVICE MAY NOT BE USED
| Line S00001 Modification History |
M01 (Added by) | cpumt74 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23535 M02S00001.242l642 ---| SA4 A4 GET DEVICE SIZE
| Line S13839 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23536 M01S13839.242l642 ---| LX6 6 NUMBER OF TRACKS * 100B
| Line S00002 Modification History |
M01 (Added by) | cpumt74 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23537 M02S00002.242l642 ---| AX4 48+3 NUMBER OF TRACKS ON DEVICE / 8
| Line S13840 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23538 M01S13840.242l642 ---| BX6 -X6
23539 M01S13841.242l642 ---| SB7 X6+B7
23540 M01S13842.242l642 ---| PL B7,RTC3 IF NOT MORE SPACE THAN CURRENT
23541 M01S13843.242l642 ---| SB7 B5
23542 M01S13844.242l642 ---| RTC3 BX6 -X6
23543 M01S13845.242l642 ---| SB7 X6+B7 MERGE TRACKS WITH EQUIPMENT
23544 M01S13846.242l642 ---| AX6 6
23545 M01S13847.242l642 ---| IX6 X6-X4
23546 M01S13848.242l642 ---| SA4 A4+DALL
23547 M01S13849.242l642 ---| NG X6,RTC2 IF .LT. 1/8 OF SPACE LEFT
23548 M01S13850.242l642 ---| MX7 -11
23549 M01S13851.242l642 ---| LX4 12
23550 M01S13852.242l642 ---| BX4 -X7*X4
23551 M01S13853.242l642 ---| MX7 -12
23552 M01S13854.242l642 ---| LX4 1
23553 M01S13855.242l642 ---| SB3 B3+X4 SET ACTIVITY
23554 M01S13856.242l642 ---| ZR B4,RTC4.1 IF NO DEVICE SELECTED
23555 M01S13857.242l642 ---| ZR X4,RTC5 IF NO ACTIVITY
23556 M01S13858.242l642 ---| GE B3,B2,RTC2 IF NOT LESS ACTIVITY
23557 M01S13859.242l642 ---| RTC4 SB4 B5 SET EQUIPMENT
23558 M01S13860.242l642 ---| ZR B2,RTC2 IF NOT SCAN FOR LEAST ACTIVITY
23559 M01S13861.242l642 ---| SB2 B3 SET ACTIVITY
23560 M01S13862.242l642 ---| EQ RTC2 CHECK NEXT EQUIPMENT
23561 M01S13863.242l642 ---|
23562 M01S13864.242l642 ---|* UPDATE EST ORDINAL TO START SCAN AT NEXT TIME.
23563 M01S13865.242l642 ---|
23564 M01S13866.242l642 ---| RTC4.1 SA1 A1 **** PERFORM IN ONE WORD ****
23565 M01S13867.242l642 ---| PX6 X1,B5 **** PERFORM IN ONE WORD ****
23566 M01S13868.242l642 ---| SA6 A1+ **** PERFORM IN ONE WORD ****
23567 M01S13869.242l642 ---| NZ X4,RTC4 IF ACTIVITY
23568 M01S13870.242l642 ---|
23569 M01S13871.242l642 ---|* DEVICE FOUND - SET EQUIPMENT IN REQUEST.
23570 M01S13872.242l642 ---|
23571 M01S13873.242l642 ---| RTC5 SA5 A5 RESET (OR)
23572 M01S13874.242l642 ---| MX7 -12
23573 M01S13875.242l642 ---| SX2 B5
23574 M01S13876.242l642 ---| LX7 24
23575 M01S13877.242l642 ---| LX2 36
| Line S13878 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23576 M02S13878.242l642 ---| BX5 X7*X5 CLEAR FIRST TRACK BYTE
23577 M02S13879.242l642 ---| BX5 X2+X5 MERGE EQUIPMENT
| Line S00272 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23578 M02S00272.242l642 ---| BX3 -X7*X5 ORIGINAL DEVICE SELECTION
23579 M02S00273.242l642 ---| BX5 X7*X5 CLEAR DEVICE SELECTION
23580 M02S00274.242l642 ---| AX3 24
23581 M02S00275.242l642 ---| SX4 X3-ROLS
23582 M02S00276.242l642 ---| SX3 X3-SROS
23583 M02S00277.242l642 ---| ZR X4,RTC5.1 IF ROLLOUT
23584 M02S00278.242l642 ---| NZ X3,RTC5.2 IF NOT SECONDARY ROLLOUT
23585 M02S00279.242l642 ---| RTC5.1 TA3 ROTS,SDA READ ROLLOUT STATISTICS
23586 M02S00280.242l642 ---| TA4 NROS,SDA
23587 M02S00281.242l642 ---| SX0 B1
23588 M02S00282.242l642 ---| SX1 X5 SECTOR COUNT
23589 M02S00283.242l642 ---| IX6 X3+X0 COUNT ROLLOUT
23590 M02S00284.242l642 ---| IX7 X4+X1 COUNT SECTORS ROLLED
23591 M02S00285.242l642 ---| SA6 A3
23592 M02S00286.242l642 ---| SA7 A4
23593 M02S00287.242l642 ---| TX7 A1-SROS,-MSA CHECK FILE ALLOCATION
23594 M02S00288.242l642 ---| NZ X7,RTC5.2 IF NOT SECONDARY ROLLOUT DEVICE
23595 M02S00289.242l642 ---| TA3 SOTS,SDA READ SECONDARY ROLLOUT STATISTICS
23596 M02S00290.242l642 ---| TA4 NSRS,SDA
23597 M02S00291.242l642 ---| IX6 X3+X0 COUNT SECONDARY ROLLOUT
23598 M02S00292.242l642 ---| IX7 X4+X1 COUNT SECONDARY SECTORS ROLLED
23599 M02S00293.242l642 ---| SA6 A3+
23600 M02S00294.242l642 ---| SA7 A4+
23601 M02S00295.242l642 ---| RTC5.2 BX5 X2+X5 MERGE EQUIPMENT
| Line S13880 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23602 M01S13880.242l642 ---| BX7 X5
23603 M01S13881.242l642 ---| UX1 X5
23604 M01S13882.242l642 ---| SA7 A5
23605 M01S13883.242l642 ---| SB3 RTC7 SET *CTR* RETURN
| Line S00001 Modification History |
M01 (Added by) | cpum104 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23606 M02S00001.242l642 ---| SB6 B1+ SET *CTR* ENTRY CONDITION
| Line S13884 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23607 M01S13884.242l642 ---| TEQ (/ISD/RTC,/PROGRAM/CTR,ISD) CHECK TRACK REQUEST
23608 M01S13885.242l642 ---|
23609 M01S13886.242l642 ---|* PROCESS END OF PASS ON EQUIPMENTS.
23610 M01S13887.242l642 ---|
23611 M01S13888.242l642 ---| RTC6 UX1,B5 X1 CHECK FOR WRAP ON SELECTION WORD
23612 M01S13889.242l642 ---| PX1 X1 INITIALIZE TO WRAP WORD
23613 M01S13890.242l642 ---| AX2 X0,B5
23614 M01S13891.242l642 ---| BX1 X2*X1 CLEAR EQUIPMENTS ALREADY CHECKED
23615 M01S13892.242l642 ---| SB5 B0
23616 M01S13893.242l642 ---| BX3 X2-X0
23617 M01S13894.242l642 ---| NZ X3,RTC2 IF SECOND PASS ON SELECTON WORD NEEDED
23618 M01S13895.242l642 ---| SB5 B4 FIRST DEVICE WITH .GE. 1/8 OF SPACE LEFT
23619 M01S13896.242l642 ---| NZ B4,RTC5 IF DEVICE FOUND
23620 M01S13897.242l642 ---| SX3 B7 EXTRACT EST ORDINAL
23621 M01S13898.242l642 ---| MX2 -6
23622 M01S13899.242l642 ---| BX3 -X2*X3
23623 M01S13900.242l642 ---| SB5 X3+ BEST DEVICE WHICH FITS
23624 M01S13901.242l642 ---| NZ B7,RTC5 IF DEVICE FOUND
| Line S13902 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23625 M02S13902.242l642 ---| TX7 A1,-MSA
23626 M02S13903.242l642 ---| ZR X7,RTC6.1 IF ALL TEMP DEVICES CHECKED
23627 M02S13904.242l642 ---| SA2 A1 REREAD LAST SELECTION
23628 M02S13905.242l642 ---| MX7 -12
23629 M02S13906.242l642 ---| TA1 MSA READ TEMP DEVICES
| Line S00296 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23630 M02S00296.242l642 ---| TB5 A1,-MSA
23631 M02S00297.242l642 ---| ZR B5,RTC6.1 IF ALL TEMPORARY DEVICES CHECKED
23632 M02S00298.242l642 ---| SX3 B5-SROS
23633 M02S00299.242l642 ---| NZ X3,RTC6.0 IF LAST SELECTION NOT SECONDARY ROLLOUT
23634 M02S00300.242l642 ---| SB5 B5-ROLS SELECT ROLLOUT DEVICES
23635 M02S00301.242l642 ---| RTC6.0 SA2 A1 REREAD LAST SELECTION
23636 M02S00302.242l642 ---| SA1 A1-B5 READ NEXT SELECTION
| Line S13907 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23637 M01S13907.242l642 ---| UX2 X2
23638 M01S13908.242l642 ---| BX1 -X2*X1 DELETE EQUIPMENTS ALREADY CHECKED
23639 M01S13909.242l642 ---| UX2,B5 X1 SET STARTING EQUIPMENT
| Line S13910 Modification History |
M01 (Removed by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23640 M02S13910.242l642 ---| EQ RTC2 CHECK FOR TEMP DEVICE
| Line S00303 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23641 M02S00303.242l642 ---| EQ RTC2 REENTER SELECTION LOOP
| Line S13911 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23642 M01S13911.242l642 ---|
23643 M01S13912.242l642 ---| RTC6.1 SA1 RTCB RETURN REJECT REASON CODE
23644 M01S13913.242l642 ---| LX1 12
23645 M01S13914.242l642 ---| BX7 X1
23646 M01S13915.242l642 ---| EQ PRG1 EXIT AND SET (OR) - NO TRACKS FOUND
| Line S00420 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23647 M01S00420.242l642 +++| TA0 EQDE,EST (A0) = FWA OF EST
23648 M01S00421.242l642 +++| UX3,B5 X1 (B5) = CURRENT EQUIPMENT TO CHECK
23649 M01S00422.242l642 +++| MX0 13 (X0) = MASK TO CLEAR CURRENT SELECTION
23650 M01S00423.242l642 +++| SX2 X5 (X2) = SECTORS REQUESTED
| Line S00424 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23651 M02S00424.252l678 ---| MX7 -12 (X7) = -7777B
| Line S00689 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23652 M01S00689.252l678 +++| PL X2,RTC0 IF SECTORS REQUESTED FIELD GT 0
23653 M01S00690.252l678 +++| SX6 X2+1 CHECK FOR -1 IN SECTORS REQUESTED FIELD
23654 M01S00691.252l678 +++| MX7 -18
23655 M01S00692.252l678 +++| ZR X6,RTC0 IF ALL AVAILABLE TRACKS REQUESTED
23656 M01S00693.252l678 +++| BX2 -X7*X2 SET SECTORS REQUESTED TO POSITIVE NUMBER
23657 M01S00694.252l678 +++| RTC0 MX7 -12
| Line S00425 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23658 M01S00425.242l642 +++| SB2 1000B-1777B (B2) = DALL ACTIVITY TO BEAT
23659 M01S00426.242l642 +++| PX6 X7,B0 (X6) = TRACK LIMIT REJECT
23660 M01S00427.242l642 +++| LX5 59-23
23661 M01S00428.242l642 +++| SB3 0-1777B (B3) = DALL ACTIVITY, IMMEDIATE SELECTION
23662 M01S00429.242l642 +++| PL X5,RTC3 IF NO ACCESS LEVEL SELECTION
| Line S00430 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23663 M02S00430.252l678 ---| TEQ (/PROGRAM/RTC1,/PROGRAM/RTC3,OSSM)
| Line S00695 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23664 M01S00695.252l678 +++| TEQ (/PROGRAM/RTC1,OSSM,/PROGRAM/RTC3)
| Line S00431 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23665 M01S00431.242l642 +++|
23666 M01S00432.242l642 +++| RTC1 LX5 -59+23-18 EXTRACT ACCESS LEVEL SELECTION REQUIREMENT
23667 M01S00433.242l642 +++| MX6 -3 (X6) = -7 = ACCESS LEVEL REJECT CODE
23668 M01S00434.242l642 +++| BX4 -X5+X6
23669 M01S00435.242l642 +++| SB6 X4 (B6) = - ACCESS LEVEL REQUESTED
23670 M01S00436.242l642 +++| EQ RTC3 ENTER SELECTION LOOP
23671 M01S00437.242l642 +++|
23672 M01S00438.242l642 +++| RTC2 SA3 X5+PFGL READ DEVICE ACCESS LEVEL LIMITS
23673 M01S00439.242l642 +++| LX3 -6
23674 M01S00440.242l642 +++| BX4 -X6*X3 UPPER ACCESS LEVEL LIMIT
23675 M01S00441.242l642 +++| SX4 X4+B6 NEGATIVE IF ACCESS LEVEL EXCEEDED
23676 M01S00442.242l642 +++| LX3 -3
23677 M01S00443.242l642 +++| BX3 -X6*X3
23678 M01S00444.242l642 +++| SB7 B6-B1
23679 M01S00445.242l642 +++| SX3 X3+B7
23680 M01S00446.242l642 +++| BX4 -X3+X4
23681 M01S00447.242l642 +++| UX6,B7 X6
23682 M01S00448.242l642 +++| PX6 X6,B0 SET DEVICE FOUND (TRACK LIMIT REJECT)
23683 M01S00449.242l642 +++| PL X4,RTC4 IF REQUESTED ACCESS LEVEL WITHIN LIMITS
23684 M01S00450.242l642 +++| PX6 X6,B7 RESET TO PREVIOUS REJECT REASON
23685 M01S00451.242l642 +++|
23686 M01S00452.242l642 +++|* DEVICE SEARCH LOOP.
23687 M01S00453.242l642 +++|
23688 M01S00454.242l642 +++| RTC3 AX5 X0,B5 FIND NEXT EQUIPMENT
23689 M01S00455.242l642 +++| BX3 -X5*X1
23690 M01S00456.242l642 +++| PX5 X3
23691 M01S00457.242l642 +++| NX4,B5 X5
23692 M01S00458.242l642 +++| ZR X3,RTC6 IF END OF PASS ON EQUIPMENTS
23693 M01S00459.242l642 +++| IFEQ ESTE,2,1
| Line S00460 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
23694 M02S00460.271l716 ---| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS
| Line S01412 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
23695 M01S01412.271l716 +++| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS (ESTE = 2)
| Line S00461 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23696 M01S00461.242l642 +++| IFEQ ESTE,3,2
| Line S00462 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
23697 M02S00462.271l716 ---| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS
| Line S01413 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
23698 M01S01413.271l716 +++| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS (ESTE = 3)
| Line S00463 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23699 M01S00463.242l642 +++| SB7 B7+B5
23700 M01S00464.242l642 +++| IFEQ ESTE,4,2
| Line S00465 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
23701 M02S00465.271l716 ---| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS
| Line S01414 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
23702 M01S01414.271l716 +++| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS (ESTE = 4)
| Line S00466 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23703 M01S00466.242l642 +++| SB7 B7+B7
| Line S00467 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
23704 M02S00467.271l716 ---| ERRPL ESTE-5 CODE DOES NOT HANDLE EST SIZE .GT. 4
| Line S01415 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
23705 M01S01415.271l716 +++| IFEQ ESTE,5,3
23706 M01S01416.271l716 +++| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS (ESTE = 5)
23707 M01S01417.271l716 +++| SB7 B7+B7
23708 M01S01418.271l716 +++| SB7 B7+B5
23709 M01S01419.271l716 +++| IFEQ ESTE,6,3
23710 M01S01420.271l716 +++| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS (ESTE = 6)
23711 M01S01421.271l716 +++| SB7 B7+B5
23712 M01S01422.271l716 +++| SB7 B7+B7
23713 M01S01423.271l716 +++| IFEQ ESTE,7,4
23714 M01S01424.271l716 +++| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS (ESTE = 7)
23715 M01S01425.271l716 +++| SB7 B7+B5
23716 M01S01426.271l716 +++| SB7 B7+B7
23717 M01S01427.271l716 +++| SB7 B7+B5
23718 M01S01428.271l716 +++| IFEQ ESTE,8,3
23719 M01S01429.271l716 +++| SB7 B5+B5 COMPUTE RELATIVE EST ADDRESS (ESTE = 8)
23720 M01S01430.271l716 +++| SB7 B7+B7
23721 M01S01431.271l716 +++| SB7 B7+B7
23722 M01S01432.271l716 +++| ERRPL ESTE-9 CODE DOES NOT HANDLE EST SIZE .GT. 8
| Line S00468 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23723 M01S00468.242l642 +++| SA4 A0+B7 READ EST ENTRY
23724 M01S00469.242l642 +++| BX5 -X7*X4
23725 M01S00470.242l642 +++| LX4 59-54
23726 M01S00471.242l642 +++| LX5 3
23727 M01S00472.242l642 +++| NG X4,RTC3 IF UNAVAILABLE DEVICE
23728 M01S00473.242l642 +++| LE B6,B0,RTC2 IF ACCESS LEVEL VALIDATION REQUIRED
23729 M01S00474.242l642 +++| RTC4 SA3 X5+DALL READ ACTIVITY BYTE
23730 M01S00475.242l642 +++| UX3,B7 X3
23731 M01S00476.242l642 +++| SA4 X5 + TDGL READ TRACK COUNT
23732 M01S00477.242l642 +++| ERRNZ TDGL
23733 M01S00478.242l642 +++| GE B7,B2,RTC3 IF NOT LESS THAN PREVIOUS LEAST ACTIVITY
23734 M01S00479.242l642 +++| SA3 X5+MDGL READ SECTORS PER TRACK
23735 M01S00480.242l642 +++| BX4 -X7*X4
23736 M01S00481.242l642 +++| BX3 -X7*X3
23737 M01S00482.242l642 +++| IX4 X4*X3
23738 M01S00483.242l642 +++| IX4 X4-X2
| Line S00001 Modification History |
M01 (Added by) | cpum144 |
Seq # *Modification Id* Act
----------------------------+
23739 M01S00001.cpum144 +++| SA3 X5+ACGL
| Line S00484 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23740 M01S00484.242l642 +++| NG X4,RTC3 IF NOT ENOUGH TRACKS
| Line S00002 Modification History |
M01 (Added by) | cpum144 |
Seq # *Modification Id* Act
----------------------------+
23741 M01S00002.cpum144 +++| LX3 59-4
23742 M01S00003.cpum144 +++| NG X3,RTC3 IF ERROR IDLE SET
| Line S00485 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23743 M01S00485.242l642 +++| SB4 B5 SET CURRENT EQUIPMENT AS BEST
23744 M01S00486.242l642 +++| SB2 B7 SET CURRENT ACTIVITY AS BEST
23745 M01S00487.242l642 +++| GT B2,B3,RTC3 IF ACTIVITY PROHIBITS IMMEDIATE SELECTION
23746 M01S00488.242l642 +++| RTC5 SA1 A1 UPDATE LAST EQUIPMENT SELECTED
23747 M01S00489.242l642 +++| PX6 X1,B4
23748 M01S00490.242l642 +++| SA6 A1
23749 M01S00491.242l642 +++| SA5 A5 REREAD OUTPUT REGISTER
23750 M01S00492.242l642 +++| LX7 24
23751 M01S00493.242l642 +++| SX4 B4 MERGE EQUIPMENT IN REQUEST
| Line S00001 Modification History |
M01 (Added by) | cpum117 |
Seq # *Modification Id* Act
----------------------------+
23752 M01S00001.cpum117 +++| BX3 -X7*X5 ORIGINAL DEVICE SELECTION
| Line S00494 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23753 M01S00494.242l642 +++| BX5 X7*X5
23754 M01S00495.242l642 +++| LX4 36
| Line S00496 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | cpum117 |
Seq # *Modification Id* Act
----------------------------+
23755 M02S00496.cpum117 ---| BX5 X4+X5
| Line S00002 Modification History |
M01 (Added by) | cpum117 |
Seq # *Modification Id* Act
----------------------------+
23756 M01S00002.cpum117 +++| AX3 24 CHECK ORIGINAL DEVICE SELECTION
23757 M01S00003.cpum117 +++| SX2 X3-ROLS
23758 M01S00004.cpum117 +++| SX3 X3-SROS
23759 M01S00005.cpum117 +++| IX3 X2*X3
23760 M01S00006.cpum117 +++| NZ X3,RTC5.2 IF NEITHER ROLLOUT NOR SECONDARY ROLL
23761 M01S00007.cpum117 +++| TA3 ROTS,SDA UPDATE ROLLOUT STATISTICS
23762 M01S00008.cpum117 +++| TA2 NROS,SDA
23763 M01S00009.cpum117 +++| SX0 B1
23764 M01S00010.cpum117 +++| SX1 X5
23765 M01S00011.cpum117 +++| IX6 X3+X0 COUNT ROLLOUT
23766 M01S00012.cpum117 +++| IX7 X2+X1 COUNT SECTORS ROLLED
23767 M01S00013.cpum117 +++| SA6 A3
23768 M01S00014.cpum117 +++| SA7 A2
23769 M01S00015.cpum117 +++| TX7 A1-SROS,-MSA CHECK FILE ALLOCATION
23770 M01S00016.cpum117 +++| NZ X7,RTC5.2 IF NOT SECONDARY ROLLOUT DEVICE
23771 M01S00017.cpum117 +++| TA3 SOTS,SDA UPDATE SECONDARY ROLLOUT STATISTICS
23772 M01S00018.cpum117 +++| TA2 NSRS,SDA
23773 M01S00019.cpum117 +++| IX6 X3+X0 COUNT SECONDARY ROLLOUT
23774 M01S00020.cpum117 +++| IX7 X2+X1 COUNT SECONDARY SECTORS ROLLED
23775 M01S00021.cpum117 +++| SA6 A3
23776 M01S00022.cpum117 +++| SA7 A2
23777 M01S00023.cpum117 +++| RTC5.2 BX5 X4+X5
| Line S00497 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23778 M01S00497.242l642 +++| BX7 X5
23779 M01S00498.242l642 +++| UX1 X5
23780 M01S00499.242l642 +++| SA7 A5 UPDATE OUTPUT REGISTER
23781 M01S00500.242l642 +++| SB3 RTC7 SET *CTR* RETURN
23782 M01S00501.242l642 +++| SB6 B1+ SET *CTR* ENTRY CONDITION
| Line S00502 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23783 M02S00502.252l678 ---| TEQ (/ISD/RTC,/PROGRAM/CTR,ISD) CHECK TRACK REQUEST
| Line S00696 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23784 M01S00696.252l678 +++| TEQ (/ISD/RTC,ISD,/PROGRAM/CTR) CHECK TRACK REQUEST
| Line S00024 Modification History |
M01 (Added by) | cpum117 |
Seq # *Modification Id* Act
----------------------------+
23785 M01S00024.cpum117 +++|
23786 M01S00025.cpum117 +++|* PROCESS END OF PASS ON EQUIPMENTS.
| Line S00503 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23787 M01S00503.242l642 +++|
23788 M01S00504.242l642 +++| RTC6 UX5,B5 X1 CHECK FOR WRAP ON SELECTION WORD
23789 M01S00505.242l642 +++| AX4 X0,B5
| Line S00506 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | cpum140 |
Seq # *Modification Id* Act
----------------------------+
23790 M02S00506.cpum140 ---| BX1 X4*X5 CLEAR EQUIPMENTS ALREADY CHECKED
23791 M02S00507.cpum140 ---| SB5 B0
23792 M02S00508.cpum140 ---| NZ X1,RTC3 IF SECOND PASS ON EQUIPMENTS NEEDED
| Line S00001 Modification History |
M01 (Added by) | cpum140 |
Seq # *Modification Id* Act
----------------------------+
23793 M01S00001.cpum140 +++| PX1 X5 INITIALIZE FOR EQUIPMENT WRAP
23794 M01S00002.cpum140 +++| SB5 B0
23795 M01S00003.cpum140 +++| BX1 X4*X1 CLEAR EQUIPMENTS ALREADY CHECKED
23796 M01S00004.cpum140 +++| BX4 X4-X0
23797 M01S00005.cpum140 +++| NZ X4,RTC3 IF SECOND PASS ON EQUIPMENTS NEEDED
| Line S00509 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23798 M01S00509.242l642 +++| SB7 100B-1777B UNRESTRICTED DEVICE THRESHOLD
23799 M01S00510.242l642 +++| LT B2,B7,RTC5 IF UNRESTRICTED EQUIPMENT FOUND
23800 M01S00511.242l642 +++| SA4 A1 REREAD SELECTION
23801 M01S00512.242l642 +++| UX4 X4
23802 M01S00513.242l642 +++| TB7 A1-SROS,-MSA
23803 M01S00514.242l642 +++| NZ B7,RTC6.1 IF NOT SECONDARY ROLLOUT
23804 M01S00515.242l642 +++| TA1 ROLS,MSA
23805 M01S00516.242l642 +++| BX1 -X4*X1 CLEAR DEVICES ALREADY CHECKED
23806 M01S00517.242l642 +++| UX3,B5 X1
23807 M01S00518.242l642 +++| NZ X3,RTC3 IF ROLLOUT DEVICES PRESENT
23808 M01S00519.242l642 +++| RTC6.1 TA1 MSA
23809 M01S00520.242l642 +++| BX1 -X4*X1
23810 M01S00521.242l642 +++| UX3,B5 X1
23811 M01S00522.242l642 +++| NZ X3,RTC3 IF TO TRY TEMP DEVICES
23812 M01S00523.242l642 +++| SA1 A4 RESET DEVICE TO UPDATE EQUIPMENT FOR
23813 M01S00524.242l642 +++| NZ B4,RTC5 IF EQUIPMENT FOUND
23814 M01S00525.242l642 +++| SX7 10000B TRACK LIMIT REJECT CODE
23815 M01S00526.242l642 +++| AX6 12 CHECK REJECT REASON
| Line S00527 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23816 M02S00527.253l688 ---| NZ X6,PRG1 IF NOT ACCESS LEVEL REJECT - EXIT
| Line S01470 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23817 M01S01470.253l688 +++| NZ X6,RTC6.2 IF NOT ACCESS LEVEL REJECT - EXIT
| Line S00528 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23818 M01S00528.242l642 +++| LX7 1
| Line S00529 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23819 M02S00529.253l688 ---| EQ PRG1 EXIT TO STORE OUTPUT REGISTER
| Line S01471 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23820 M01S01471.253l688 +++| RTC6.2 SB5 PRG
23821 M01S01472.253l688 +++| EQ CSM1 CHECK FOR STORAGE MOVE
23822 M00S13916.cpumtr +++|
23823 M00S13917.cpumtr +++|* CHECK TRACKS AVAILABLE.
23824 M00S13918.cpumtr +++|
23825 M00S13919.cpumtr +++| RTC7 SA4 A3+MDGL-TDGL READ SECTOR LIMITS
23826 M00S13920.cpumtr +++| BX6 -X5*X3 TRACKS AVAILABLE
23827 M00S13921.cpumtr +++| BX4 -X5*X4 MINUMUM SECTOR LIMIT
23828 M00S13922.cpumtr +++| NZ X7,RTC7.1 IF NOT REQUESTING ONE TRACK
23829 M00S13923.cpumtr +++| SX7 B1+ SET ONE SECTOR REQUESTED
23830 M00S13924.cpumtr +++| EQ RTC8 COMPUTE REQUESTED TRACKS
23831 M00S13925.cpumtr +++|
23832 M00S13926.cpumtr +++| RTC7.1 PL X7,RTC8 IF NOT REQUESTING ALL TRACKS
| Line S13927 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23833 M01S13927.252l678 ---| SX7 X7+1
23834 M01S13928.252l678 ---| NZ X7,HNG IF NEGATIVE TRACK COUNT
23835 M01S13929.252l678 ---| IX7 X6*X4 REQUEST ALL TRACKS ON DEVICE
| Line S00697 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23836 M02S00697.253l688 ---| SX2 X7+1
| Line S01473 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23837 M01S01473.253l688 +++| SX2 X7+B1
| Line S00698 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23838 M01S00698.252l678 +++| MX5 -18
23839 M01S00699.252l678 +++| BX7 -X5*X7 SET SECTORS REQUESTED TO POSITIVE NUMBER
23840 M01S00700.252l678 +++| NZ X2,RTC8 IF NOT REQUESTING ALL TRACKS
23841 M01S00701.252l678 +++|
23842 M01S00702.252l678 +++| IX7 X6*X4 REQUEST ALL TRACKS ON DEVICE
23843 M00S13930.cpumtr +++| RTC8 PX2 X4 COMPUTE REQUESTED TRACKS
23844 M00S13931.cpumtr +++| PX5 X7
23845 M00S13932.cpumtr +++| NX2 X2
23846 M00S13933.cpumtr +++| FX2 X5/X2
23847 M00S13934.cpumtr +++| UX2,B2 X2
23848 M00S13935.cpumtr +++| LX2 X2,B2
23849 M00S13936.cpumtr +++| IX5 X2*X4 COMPUTE SECTORS IN LAST TRACK
23850 M00S13937.cpumtr +++| IX7 X7-X5
23851 M00S13938.cpumtr +++| SA7 RTCA SAVE REMAINDER
| Line S00001 Modification History |
M01 (Added by) | cpumt49 |
Seq # *Modification Id* Act
----------------------------+
23852 M01S00001.cpumt49 +++| SX5 -1
23853 M00S13939.cpumtr +++| ZR X7,RTC9 IF MULTIPLE OF SECTOR LIMIT
23854 M00S13940.cpumtr +++| SX2 X2+1 INCREASE TRACK COUNT BY ONE
23855 M00S13941.cpumtr +++| RTC9 SB4 X2 REQUESTED TRACKS
23856 M00S13942.cpumtr +++| IX3 X3-X2 DECREMENT TRACKS REMAINING
23857 M00S13943.cpumtr +++| SX7 B1
23858 M00S13944.cpumtr +++| IX6 X6-X2 DECREMENT TRACKS REMAINING
23859 M00S13945.cpumtr +++| LX7 47
23860 M00S13946.cpumtr +++| NG X6,CCP1 IF TRACKS NOT AVAILABLE
23861 M00S13947.cpumtr +++| MX6 -11
23862 M00S13948.cpumtr +++| SB7 -48 (B7) = -48 = NORMALIZE BIAS
23863 M00S13949.cpumtr +++| LX3 -12
23864 M00S13950.cpumtr +++| SB3 B6-B1 FIRST WORD ADDRESS - 1 OF TRT
23865 M00S13951.cpumtr +++| BX2 -X6*X3 FIRST FREE TRACK POINTER
23866 M00S13952.cpumtr +++| MX5 -4 (X5) = -17B = RESERVATION BIT MASK
23867 M00S13953.cpumtr +++| BX3 X6*X3 CLEAR FIRST FREE TRACK POINTER
23868 M00S13954.cpumtr +++| SA2 X2+B3 SET START OF TRT SEARCH
23869 M00S13955.cpumtr +++| SA0 TMSK-1 SET SCRATCH WORD ADDRESS
23870 M00S13956.cpumtr +++| SA4 B0+ SET NO LINK WORD ADDRESS
23871 M00S13957.cpumtr +++|
23872 M00S13958.cpumtr +++|* CLEAR LINK BYTE IN CURRENT TRACK.
23873 M00S13959.cpumtr +++|
23874 M00S13960.cpumtr +++| ZR X1,RTC10 IF NO CURRENT TRACK
23875 M00S13961.cpumtr +++| MX2 -2
23876 M00S13962.cpumtr +++| BX0 -X6*X1 CURRENT TRACK
23877 M00S13963.cpumtr +++| BX2 -X2*X1
23878 M00S13964.cpumtr +++| AX0 2
23879 M00S13965.cpumtr +++| SB2 X2+56 RESERVATION BIT SHIFT COUNT
23880 M00S13966.cpumtr +++| LX2 2
23881 M00S13967.cpumtr +++| SB3 X2
23882 M00S13968.cpumtr +++| LX2 1
23883 M00S13969.cpumtr +++| SA4 X0+B6 READ TRT WORD OF CURRENT TRACK
23884 M00S13970.cpumtr +++| SB3 X2+B3 SET LINK BIT SHIFT COUNT
23885 M00S13971.cpumtr +++| LX2 X4,B2 POSITION RESERVATION BIT
23886 M00S13972.cpumtr +++| SA0 A4 SET LINK ADDRESS
23887 M00S13973.cpumtr +++| LX0 X4,B3 POSITION LINK BIT
23888 M00S13974.cpumtr +++| SB3 B3+B7 SET LINK SHIFT COUNT
23889 M00S13975.cpumtr +++| BX2 -X0*X2
23890 M00S13976.cpumtr +++| AX6 X6,B3 POSITION CLEARING MASK
23891 M00S13977.cpumtr +++| MX0 1 SET NO MRT PROCESSING
23892 M00S13978.cpumtr +++| PL X2,HNG IF NOT RESERVED OR IF LINKED
23893 M00S13979.cpumtr +++| BX6 X6*X4
23894 M00S13980.cpumtr +++| SA6 A4
23895 M00S13981.cpumtr +++|
| Line S13982 Modification History |
M01 (Removed by) | ns2418 |
Seq # *Modification Id* Act
----------------------------+
23896 M01S13982.ns2418 ---|* SEARCH FOR FIRST FREE TRACK
| Line S00050 Modification History |
M01 (Added by) | ns2418 |
Seq # *Modification Id* Act
----------------------------+
23897 M01S00050.ns2418 +++|* SEARCH FOR FIRST FREE TRACK.
23898 M00S13983.cpumtr +++|
23899 M00S13984.cpumtr +++| RTC10 SA2 A2+B1 SEARCH FOR FREE TRACK
23900 M00S13985.cpumtr +++| BX6 X2+X5
23901 M00S13986.cpumtr +++| ZR X6,RTC10 IF NO FREE TRACK
23902 M00S13987.cpumtr +++| SX4 A2-B6 COMPUTE TRACK NUMBER
23903 M00S13988.cpumtr +++| NX6,B2 X6
23904 M00S13989.cpumtr +++| LX4 2
23905 M00S13990.cpumtr +++| SB6 4000B-44+X4
23906 M00S13991.cpumtr +++| SX4 B6+B2 TRACK NUMBER
23907 M00S13992.cpumtr +++| BX3 X3+X4 SAVE FIRST TRACK ASSIGNED
23908 M00S13993.cpumtr +++| NG X0,RTC13 IF NO MRT BIT TO SET
| Line S13994 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23909 M01S13994.252l678 ---| TEQ (/ISDMMF/SMB,/PROGRAM/HNG,ISDMMF) SET MRT BIT
| Line S00703 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
23910 M01S00703.252l678 +++| TEQ (/ISDMMF/SMB,ISDMMF,/PROGRAM/HNG) SET MRT BIT
23911 M00S13995.cpumtr +++|
23912 M00S13996.cpumtr +++|* TRT SEARCH AND LINK LOOP.
23913 M00S13997.cpumtr +++|
23914 M00S13998.cpumtr +++| RTC11 SA2 A2+B1 NEXT TRT WORD
23915 M00S13999.cpumtr +++| SB6 B6+4 INCREMENT BASE TRACK NUMBER
23916 M00S14000.cpumtr +++| BX6 X2+X5 CHECK TRACKS RESERVED
23917 M00S14001.cpumtr +++| RTC12 ZR X6,RTC11 IF ALL TRACKS RESERVED
23918 M00S14002.cpumtr +++| NX6,B2 X6 (B2) = BYTE NUMBER + 44
23919 M00S14003.cpumtr +++| SX4 B6+B2 TRACK NUMBER
23920 M00S14004.cpumtr +++| RTC13 AX6 X7,B2 POSITION RESERVATION BIT
23921 M00S14005.cpumtr +++| BX6 X2+X6 RESERVE TRACK
23922 M00S14006.cpumtr +++| SA6 A2
23923 M00S14007.cpumtr +++| SA1 A0 READ PREVIOUS RESERVATION
23924 M00S14008.cpumtr +++| AX6 X4,B3 POSITION LINK BYTE
23925 M00S14009.cpumtr +++| BX6 X6+X1 MERGE LINK BYTE
23926 M00S14010.cpumtr +++| SX4 B2+B7 BYTE NUMBER - 4
23927 M00S14011.cpumtr +++| SA6 A1
23928 M00S14012.cpumtr +++| LX4 2
23929 M00S14013.cpumtr +++| SB4 B4-B1 DECREMENT TRACK COUNT
23930 M00S14014.cpumtr +++| SB3 X4
23931 M00S14015.cpumtr +++| SA2 A2 RE-READ RESERVATION WORD
23932 M00S14016.cpumtr +++| LX4 1
23933 M00S14017.cpumtr +++| SA0 A2 SET LINK ADDRESS
23934 M00S14018.cpumtr +++| SB3 X4+B3 SET LINK SHIFT COUNT
23935 M00S14019.cpumtr +++| BX6 X2+X5
23936 M00S14020.cpumtr +++| NZ B4,RTC12 IF MORE TRACKS REQUESTED
23937 M00S14021.cpumtr +++|
23938 M00S14022.cpumtr +++|* UPDATE LAST TRACK BYTE (EOI SECTOR).
23939 M00S14023.cpumtr +++|
23940 M00S14024.cpumtr +++| SA1 RTCA GET REMAINDER
23941 M00S14025.cpumtr +++| NZ X1,RTC13.1 IF REQUEST NOT MULTIPLE OF SECTOR LIMIT
23942 M00S14026.cpumtr +++| SA1 A3+MDGL-TDGL GET SECTOR LIMIT
23943 M00S14027.cpumtr +++| MX7 -12
23944 M00S14028.cpumtr +++| BX1 -X7*X1 SECTOR LIMIT
23945 M00S14029.cpumtr +++| RTC13.1 SX7 B1 COMPUTE REMAINING SECTOR COUNT
23946 M00S14030.cpumtr +++| IX1 X1-X7
23947 M00S14031.cpumtr +++| AX7 X1,B3 POSITION TO TRACK BYTE IN TRT
23948 M00S14032.cpumtr +++| BX7 X7+X2
23949 M00S14033.cpumtr +++| SA7 A2 UPDATE TRACK BYTE
23950 M00S14034.cpumtr +++| LX1 12
23951 M00S14035.cpumtr +++| SX7 B2+B6 TRACK NUMBER
23952 M00S14036.cpumtr +++| LX7 24
23953 M00S14037.cpumtr +++| BX7 X1+X7 PRESET RESPONSE
23954 M00S14038.cpumtr +++|
23955 M00S14039.cpumtr +++|* UPDATE FIRST FREE TRACK AND RETURN FIRST TRACK ASSIGNED.
23956 M00S14040.cpumtr +++|
23957 M00S14041.cpumtr +++| MX4 -11
23958 M00S14042.cpumtr +++| SA1 A3+TRLL-TDGL SET FWA OF TRT
23959 M00S14043.cpumtr +++| SB6 X1
23960 M00S14044.cpumtr +++| SB4 A4 SET LINK WORD ADDRESS
23961 M00S14045.cpumtr +++| BX1 -X4*X3
23962 M00S14046.cpumtr +++| BX6 X4*X3
23963 M00S14047.cpumtr +++| SX5 A2-B6 FIRST FREE TRACK
23964 M00S14048.cpumtr +++| SX0 X1+4000B FIRST TRACK
23965 M00S14049.cpumtr +++| BX7 X0+X7 INSERT INTO RESPONSE TO PP
23966 M00S14050.cpumtr +++| BX6 X6+X5 MERGE FIRST FREE TRACK BYTE
23967 M00S14051.cpumtr +++| AX1 2
23968 M00S14052.cpumtr +++| SB3 A2
23969 M00S14053.cpumtr +++| LX6 12
23970 M00S14054.cpumtr +++| SA2 A5 RE-READ REQUEST
| Line S14055 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23971 M01S14055.253l688 ---| LX4 36
23972 M00S14056.cpumtr +++| LT B4,B3,RTC14 IF LINK WORD BEFORE LAST WORD TO UPDATE
23973 M00S14057.cpumtr +++| SX5 B4-B6 UPDATE UP TO LINK WORD
| Line S14058 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23974 M01S14058.253l688 ---| RTC14 BX2 -X4*X2
23975 M01S14059.253l688 ---| SX3 B1
| Line S01474 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23976 M01S01474.253l688 +++| RTC14 MX4 -9 SET EST ORDINAL
| Line S14060 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23977 M01S14060.253l688 ---| SA6 A3 STORE UPDATED TDGL
| Line S01475 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23978 M01S01475.253l688 +++| SA6 A3 STORE UPDATED *TDGL*
23979 M01S01476.253l688 +++| LX4 36
23980 M01S01477.253l688 +++| BX2 -X4*X2
23981 M01S01478.253l688 +++| SX5 X5+B1 SET LWA+1 OF TRT TO UPDATE
23982 M00S14061.cpumtr +++| BX7 X2+X7 RETURN FIRST TRACK ASSIGNED
| Line S14062 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23983 M01S14062.253l688 ---| SX5 X5+B1 SET LWA+1 FOR ECS UPDATE
| Line S14063 Modification History |
M01 (Removed by) | cpumt78 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23984 M02S14063.253l688 ---| EQ CDI RELEASE MST/TRT INTERLOCK
| Line S00002 Modification History |
M01 (Added by) | cpumt78 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23985 M02S00002.253l688 ---| EQ CCP1 CHECK FOR DEVICE CHECKPOINT REQUESTED
| Line S01479 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
23986 M01S01479.253l688 +++| EQ CCP1 CHECK FOR DEVICE CHECKPOINT REQUESTED
23987 M00S14064.cpumtr +++|
23988 M00S14065.cpumtr +++|
23989 M00S14066.cpumtr +++| RTCA CON 0 REMAINDER
| Line S14067 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
23990 M01S14067.242l642 ---| RTCB CON 0 REJECT REASON CODE
23991 M00S14068.cpumtr +++| STB SPACE 4
23992 M00S14069.cpumtr +++|** STB - SET TRACK BIT.
23993 M00S14070.cpumtr +++|* ENTERED FROM BOTH MONITOR AND PROGRAM MODE.
23994 M00S14071.cpumtr +++|*
23995 M00S14072.cpumtr +++|* ENTRY (A5) = PP OUTPUT REGISTER ADDRESS.
23996 M00S14073.cpumtr +++|* STB ENTRY FROM PROGRAM MODE.
23997 M00S14074.cpumtr +++|* STB1 ENTRY FROM MONITOR MODE.
23998 M00S14075.cpumtr +++|* (B5) EXIT ADDRESS IF ENTERED AT *STB1*.
23999 M00S14076.cpumtr +++|*
24000 M00S14077.cpumtr +++|* EXIT NONE.
24001 M00S14078.cpumtr +++|*
24002 M00S14079.cpumtr +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
24003 M00S14080.cpumtr +++|* B - 3, 4, 5.
24004 M00S14081.cpumtr +++|* A - 3, 4, 6, 7.
24005 M00S14082.cpumtr +++|*
24006 M00S14083.cpumtr +++|* CALLS CCP, CTR.
24007 M00S14084.cpumtr +++|
24008 M00S14085.cpumtr +++|
24009 M00S14086.cpumtr +++| STB SX4 X1
24010 M00S14087.cpumtr +++| LX4 -14
24011 M00S14088.cpumtr +++| SA2 X4+/MONITOR/TSTB READ OPTION TABLE
| Line S14089 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24012 M01S14089.253l688 ---| PL X4,STB1 IF FIRST ENTRY IN OPTION TABLE WORD
| Line S01480 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24013 M01S01480.253l688 +++| NG X4,STB1 IF SECOND ENTRY IN OPTION TABLE WORD
24014 M00S14090.cpumtr +++| LX2 30
24015 M00S14091.cpumtr +++| STB1 SB3 X2 SET *CTR* RETURN
24016 M00S14092.cpumtr +++| UX2,B6 X2 SET *CTR* PARAMETER
24017 M00S14093.cpumtr +++| EQ CTR CHECK TRACK REQUEST
24018 M00S14094.cpumtr +++|
24019 M00S14095.cpumtr +++| STB2 SX7 STIS*10000B INTERLOCK IQFT TRACK
| Line S14096 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24020 M01S14096.253l688 ---| ZR X1,/MONITOR/STB10 IF NO IQFT TRACK
| Line S01481 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24021 M01S01481.253l688 +++| ZR X1,/MONITOR/STB3 IF NO IQFT TRACK
24022 M00S14097.cpumtr +++|
| Line S14098 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24023 M01S14098.253l688 ---| STB3 AX4 X5,B1 -3777B MASK
| Line S01482 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24024 M01S01482.253l688 +++| SUBFUN STBM,(STFS,CTFS,STIS,CTIS,SPFS,CPFS)
24025 M01S01483.253l688 +++| AX4 X5,B1 -3777B MASK
24026 M00S14099.cpumtr +++| BX1 -X4*X1 TRACK NUMBER
24027 M00S14100.cpumtr +++| MX3 -2
24028 M00S14101.cpumtr +++| SX5 B1
24029 M00S14102.cpumtr +++| BX3 X3+X1 BYTE NUMBER - 3
24030 M00S14103.cpumtr +++| LX7 -13
24031 M00S14104.cpumtr +++| SB3 X3 SET RESERVATION BIT SHIFT COUNT
24032 M00S14105.cpumtr +++| LX1 -2
24033 M00S14106.cpumtr +++| SX2 X7
24034 M00S14107.cpumtr +++| AX5 X5,B3 POSITION RESERVATION BIT
24035 M00S14108.cpumtr +++| LX2 2
24036 M00S14109.cpumtr +++| SA4 B6+X1 READ TRT WORD
24037 M00S14110.cpumtr +++| SB3 X2 SET TRACK BIT SHIFT COUNT
24038 M00S14111.cpumtr +++| BX2 X5*X4 CURRENT VALUE OF RESERVATION BIT
24039 M00S14112.cpumtr +++| LX5 X5,B3 POSITION TRACK BIT
24040 M00S14113.cpumtr +++| AX7 59 (X7) = 0 FOR SET, -0 FOR CLEAR OPTION
24041 M00S14114.cpumtr +++| BX6 X4-X5 COMPLEMENT TRACK BIT
24042 M00S14115.cpumtr +++| BX4 X5*X4 CURRENT VALUE OF TRACK BIT
24043 M00S14116.cpumtr +++| BX5 -X7*X5 NON-ZERO IF SET REQUEST
24044 M00S14117.cpumtr +++| BX4 X5-X4 ZERO IF BIT ALREADY SET/CLEAR
| Line S14118 Modification History |
M01 (Removed by) | ns2638 |
Seq # *Modification Id* Act
----------------------------+
24045 M01S14118.ns2638 ---| ZR X4,STB7 IF BIT ALREADY SET CLEAR
24046 M00S14119.cpumtr +++| ZR B3,STB8 IF FLAW REQUEST
| Line S14120 Modification History |
M01 (Removed by) | ns2304 |
Seq # *Modification Id* Act
----------------------------+
24047 M01S14120.ns2304 ---| ZR X2,/MONITOR/HNG1 IF TRACK NOT RESERVED
| Line S00004 Modification History |
M01 (Added by) | ns2304 |
Seq # *Modification Id* Act
----------------------------+
24048 M01S00004.ns2304 +++| ZR X2,STB9 IF TRACK NOT RESERVED
| Line S00001 Modification History |
M01 (Added by) | ns2638 |
Seq # *Modification Id* Act
----------------------------+
24049 M01S00001.ns2638 +++| ZR X4,STB7 IF BIT ALREADY SET/CLEAR
24050 M00S14121.cpumtr +++| AX4 8
24051 M00S14122.cpumtr +++| SX3 B1
24052 M00S14123.cpumtr +++| STB4 NZ X4,STB5 IF INCREMENT/DECREMENT OF PF COUNT
24053 M00S14124.cpumtr +++| BX7 X7-X7
24054 M00S14125.cpumtr +++| SA6 A4 STORE TRT WORD
24055 M00S14126.cpumtr +++| NG X0,CCP1 IF NOT SHARED DEVICE
| Line S14127 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
24056 M01S14127.252l678 ---| TEQ (/ISDMMF/STB10,/MONITOR/HNG1,ISDMMF)
| Line S00704 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
24057 M01S00704.252l678 +++| TEQ (/ISDMMF/STB10,ISDMMF,/MONITOR/HNG1)
24058 M00S14128.cpumtr +++|
24059 M00S14129.cpumtr +++|* INCREMENT/DECREMENT PRESERVED FILE COUNT.
24060 M00S14130.cpumtr +++|
24061 M00S14131.cpumtr +++| STB5 BX7 X7-X3 (X7) = 1 IF INCREMENT, -1 IF DECREMENT
24062 M00S14132.cpumtr +++| LX3 24+11
24063 M00S14133.cpumtr +++| SA2 A3+B1 READ *ACGL* WORD
24064 M00S14134.cpumtr +++| LX7 24
24065 M00S14135.cpumtr +++| IX7 X2+X7 ADJUST COUNT
24066 M00S14136.cpumtr +++| BX4 -X3+X7 CHECK FOR OVERFLOW/UNDERFLOW
24067 M00S14137.cpumtr +++| ZR X4,STB4 IF OVERFLOW/UNDERFLOW
24068 M00S14138.cpumtr +++| STB6 SA7 A2 STORE UPDATED COUNTS
24069 M00S14139.cpumtr +++| BX4 X4-X4
24070 M00S14140.cpumtr +++| EQ STB4
24071 M00S14141.cpumtr +++|
24072 M00S14142.cpumtr +++| STB7 ZR X5,/MONITOR/HNG1 IF CLEARING AN ALREADY CLEARED BIT
24073 M00S14143.cpumtr +++| SX7 B1
24074 M00S14144.cpumtr +++| SX3 B1
24075 M00S14145.cpumtr +++| LX7 36
24076 M00S14146.cpumtr +++| MX5 1 SET NO UPDATE OF TRT IN ECS
24077 M00S14147.cpumtr +++| EQ CDI RELEASE DEVICE INTERLOCK
24078 M00S14148.cpumtr +++|
24079 M00S14149.cpumtr +++|* PROCESS FLAW REQUEST.
24080 M00S14150.cpumtr +++|
| Line S14151 Modification History |
M01 (Removed by) | ns2638 |
Seq # *Modification Id* Act
----------------------------+
24081 M01S14151.ns2638 ---| STB8 SA2 X3+TMSK+3
| Line S00002 Modification History |
M01 (Added by) | ns2638 |
Seq # *Modification Id* Act
----------------------------+
24082 M01S00002.ns2638 +++| STB8 ZR X4,STB7 IF BIT ALREADY SET/CLEAR
24083 M01S00003.ns2638 +++| SA2 X3+TMSK+3
24084 M00S14152.cpumtr +++| LX3 2 COMPUTE BYTE SHIFT COUNT
24085 M00S14153.cpumtr +++| BX5 -X2*X6 MASK OUT ALL FIELDS FOR THIS TRACK
24086 M00S14154.cpumtr +++| SB4 X3
24087 M00S14155.cpumtr +++| LX3 1
24088 M00S14156.cpumtr +++| SB4 B4+X3
24089 M00S14157.cpumtr +++| MX4 -11
24090 M00S14158.cpumtr +++| SA2 A3 REREAD *TDGL*
24091 M00S14159.cpumtr +++| LX4 12
24092 M00S14160.cpumtr +++| BX2 X4*X2 CLEAR FIRST FREE TRACK POINTER
24093 M00S14161.cpumtr +++| AX4 X4,B4 POSITION FLAW STATUS BYTE
24094 M00S14162.cpumtr +++| BX6 -X4-X6 COMPLIMENT FLAW STATUS
24095 M00S14163.cpumtr +++| BX4 -X4*X7
24096 M00S14164.cpumtr +++| BX5 X5-X4
24097 M00S14165.cpumtr +++| AX5 4 SHIFT OFF RESERVATION BITS
24098 M00S14166.cpumtr +++| NZ X5,/MONITOR/HNG1 IF BAD TRACK
24099 M00S14167.cpumtr +++| SX3 B1
24100 M00S14168.cpumtr +++| BX7 -X7-X3
24101 M00S14169.cpumtr +++| IX7 X2+X7
24102 M00S14170.cpumtr +++| EQ STB6
| Line S00005 Modification History |
M01 (Added by) | ns2304 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
24103 M02S00005.242l642 ---|
24104 M02S00006.242l642 ---| STB9 SA5 A5 CHECK FOR RETURN ON TRACK NOT RESERVED
24105 M02S00007.242l642 ---| SX7 B1
24106 M02S00008.242l642 ---| SX3 B1
24107 M02S00009.242l642 ---| LX7 37
24108 M02S00010.242l642 ---| LX5 59-46
24109 M02S00011.242l642 ---| PL X5,/MONITOR/HNG1 IF NOT TO RETURN STATUS
24110 M02S00012.242l642 ---| MX5 1 SET NO UPDATE OF TRT IN ECS
24111 M02S00013.242l642 ---| EQ CDI RELEASE DEVICE INTERLOCK
| Line S00530 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
24112 M01S00530.242l642 +++|
24113 M01S00531.242l642 +++| STB9 SA4 A5 CHECK RETURN ON TRACK NOT RESERVED
24114 M01S00532.242l642 +++| SX7 B1+B1
24115 M01S00533.242l642 +++| MX5 1 SET NO TRT UPDATE
24116 M01S00534.242l642 +++| LX4 59-46
24117 M01S00535.242l642 +++| PL X4,/MONITOR/HNG1 IF NO RETURN
24118 M01S00536.242l642 +++| SX3 B1
24119 M01S00537.242l642 +++| LX7 36
24120 M01S00538.242l642 +++| EQ CDI CLEAR DEVICE INTERLOCK
24121 M00S14171.cpumtr +++| TITLE PROGRAM MODE SUBROUTINES.
| Line S14172 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
24122 M01S14172.261l700 ---| CTR SPACE 4
24123 M00S14173.cpumtr +++| APS SPACE 4,10
24124 M00S14174.cpumtr +++|** APS - ASSIGN PP (PROGRAM MODE).
24125 M00S14175.cpumtr +++|*
24126 M00S14176.cpumtr +++|* ENTRY (X1) = PP REQUEST.
24127 M00S14177.cpumtr +++|* (B3) = EXIT ADDRESS.
24128 M00S14178.cpumtr +++|*
24129 M00S14179.cpumtr +++|* EXIT (X1) = ADDRESS OF COMMUNICATION BUFFER.
24130 M00S14180.cpumtr +++|* (X1) = 0 IF NO BUFFER AVAILABLE.
24131 M00S14181.cpumtr +++|* (X6) = PP REQUEST.
24132 M00S14182.cpumtr +++|*
24133 M00S14183.cpumtr +++|* USES X - 1, 6, 7.
24134 M00S14184.cpumtr +++|* A - 1, 6.
24135 M00S14185.cpumtr +++|*
24136 M00S14186.cpumtr +++|* CALLS /MONITOR/ACB.
24137 M00S14187.cpumtr +++|
24138 M00S14188.cpumtr +++|
24139 M00S14189.cpumtr +++| APS SX6 -B1 SET PP REQUEST TO MONITOR MODE
24140 M00S14190.cpumtr +++| BX7 X1 SAVE PP REQUEST
24141 M00S14191.cpumtr +++| SA6 PX
24142 M00S14192.cpumtr +++| SB3 -B3 SET *APS* CALL TO *ACB*
24143 M00S14193.cpumtr +++| EQ /MONITOR/ACB ASSIGN COMMUNICATION BUFFER
24144 M00S14194.cpumtr +++|
24145 M00S14195.cpumtr +++| APS1 SB3 -B3 RESET RETURN ADDRESS
24146 M00S14196.cpumtr +++| BX6 X1 PARAMETER WORD
24147 M00S14197.cpumtr +++| ZR X1,APS2 IF NO BUFFER AVAILABLE
24148 M00S14198.cpumtr +++|
24149 M00S14199.cpumtr +++| MJ EXCHANGE TO MONITOR MODE
24150 M00S14200.cpumtr +++|
24151 M00S14201.cpumtr +++| ZR X6,APS3 IF NO PP ASSIGNED
24152 M00S14202.cpumtr +++| APS2 BX6 X7 RESTORE PP REQUEST
24153 M00S14203.cpumtr +++| JP B3 RETURN
24154 M00S14204.cpumtr +++|
24155 M00S14205.cpumtr +++| APS3 SA6 X1 RELEASE COMMUNICATION BUFFER
24156 M00S14206.cpumtr +++| BX1 X1-X1 CLEAR RESPONSE
24157 M00S14207.cpumtr +++| EQ APS2 EXIT
24158 M00S14208.cpumtr +++| CCP SPACE 4
24159 M00S14209.cpumtr +++|** CCP - CHECK FOR CHECKPOINT REQUESTED.
24160 M00S14210.cpumtr +++|*
24161 M00S14211.cpumtr +++|* ENTRY (X7) = STATUS TO RETURN TO OR.
24162 M00S14212.cpumtr +++|* (X1) = FIRST WORD OF TRT TO UPDATE. (MSD ONLY)
24163 M00S14213.cpumtr +++|* (X5) = LAST WORD + 1 OF TRT TO UPDATE. (MSD ONLY)
24164 M00S14214.cpumtr +++|* (B4) = TRT LINK WORD TO UPDATE. (MSD ONLY)
24165 M00S14215.cpumtr +++|* (B5) = EXIT ADDRESS.
24166 M00S14216.cpumtr +++|* (B6) = STARTING ADDRESS OF TRT.
24167 M00S14217.cpumtr +++|* (A3) = ADDRESS OF TDGL WORD OF MST.
24168 M00S14218.cpumtr +++|* (A5) = OR ADDRESS.
24169 M00S14219.cpumtr +++|* BIT 11 SET IN OR+1 INDICATES CHECKPOINT REQUESTED.
24170 M00S14220.cpumtr +++|*
24171 M00S14221.cpumtr +++|* EXIT EXITS TO CDI.
24172 M00S14222.cpumtr +++|*
24173 M00S14223.cpumtr +++|* USES X - 2, 3, 4, 6.
24174 M00S14224.cpumtr +++|* A - 2, 6.
24175 M00S14225.cpumtr +++|
24176 M00S14226.cpumtr +++|
24177 M00S14227.cpumtr +++|
24178 M00S14228.cpumtr +++|* ENTERED HERE FROM MONITOR MODE.
24179 M00S14229.cpumtr +++|
24180 M00S14230.cpumtr +++| CCP1 SA2 A5
| Line S01484 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24181 M01S01484.253l688 +++| SA4 A3+SDGL-TDGL CHECK FOR ISHARED DEVICE
24182 M00S14231.cpumtr +++| SX3 B1
24183 M00S14232.cpumtr +++| LX2 12 POSITION CHECKPOINT REQUESTED BIT
| Line S14233 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24184 M01S14233.253l688 ---| PL X2,CDI IF NO CHECKPOINT REQUESTED
24185 M01S14234.253l688 ---| BX4 X3
| Line S01485 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24186 M01S01485.253l688 +++| BX2 -X4*X2
24187 M01S01486.253l688 +++| PL X2,CDI IF ISHARED OR NO CHECKPOINT REQUESTED
24188 M01S01487.253l688 +++| SA2 A3+STLL-TDGL READ MST WORD
24189 M01S01488.253l688 +++| SX4 B1+
24190 M00S14235.cpumtr +++| LX4 50
| Line S14236 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24191 M01S14236.253l688 ---| SA2 A3+STLL READ MST WORD
24192 M00S14237.cpumtr +++| BX6 X2+X4 SET CHECKPOINT BIT
| Line S14238 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24193 M01S14238.253l688 ---| SA6 A2
| Line S01489 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24194 M01S01489.253l688 +++| SA6 A2+
24195 M00S14239.cpumtr +++|* EQ CDI CLEAR DEVICE INTERLOCK
24196 M00S14240.cpumtr +++| CDI SPACE 4
24197 M00S14241.cpumtr +++|** CDI - CLEAR DEVICE INTERLOCK.
24198 M00S14242.cpumtr +++|*
24199 M00S14243.cpumtr +++|* ENTRY (X1) = FIRST WORD OF TRT TO UPDATE. (MSD ONLY)
24200 M00S14244.cpumtr +++|* (X3) = 1.
24201 M00S14245.cpumtr +++|* (X5) = LAST WORD + 1 OF TRT TO UPDATE. (MSD ONLY)
24202 M00S14246.cpumtr +++|* (X7) = WORD TO BE STORED IN OUTPUT REGISTER.
24203 M00S14247.cpumtr +++|* (B4) = TRT LINK WORD TO UPDATE. (MSD ONLY)
24204 M00S14248.cpumtr +++|* (B5) = EXIT ADDRESS.
24205 M00S14249.cpumtr +++|* (B6) = START OF TRT.
24206 M00S14250.cpumtr +++|* (A3) = ADDRESS OF MST IN CM.
24207 M00S14251.cpumtr +++|* (A5) = OUTPUT REGISTER ADDRESS.
24208 M00S14252.cpumtr +++|*
24209 M00S14253.cpumtr +++|* EXIT (OR) = (X7) = STATUS RESPONSE.
24210 M00S14254.cpumtr +++|
24211 M00S14255.cpumtr +++|
24212 M00S14256.cpumtr +++| CDI SA4 A3+SDGL READ SDGL WORD OF MST
24213 M00S14257.cpumtr +++| BX6 -X3*X4 RELEASE MST INTERLOCK
24214 M00S14258.cpumtr +++| AX4 36
| Line S14259 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
24215 M01S14259.252l678 ---| TNG X4,(/PROGRAM/CDI0,/MONITOR/HNG1,ISD) IF ISD
| Line S14260 Modification History |
M01 (Removed by) | 251l664 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
24216 M02S14260.252l678 ---| TNZ X4,(/PROGRAM/CDI1,/MONITOR/HNG1,MMF) IF MMF DEVICE
| Line S00472 Modification History |
M01 (Added by) | 251l664 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
24217 M02S00472.252l678 ---| TNZ X4,(/PROGRAM/CDI1,/LSPMMF/CDI,MMF) IF MMF DEVICE
| Line S00705 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24218 M02S00705.253l688 ---| TNG X4,(/PROGRAM/CDI0,ISD,/MONITOR/HNG1) IF ISD
| Line S01490 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24219 M01S01490.253l688 +++| TNG X6,(/ISD/CDI,ISD,/MONITOR/HNG1) IF ISHARED
| Line S00706 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
24220 M01S00706.252l678 +++| TNZ X4,(/PROGRAM/CDI1,MMF,/LSPMMF/CDI) IF MMF DEVICE
| Line S14261 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24221 M01S14261.253l688 ---| CDI0 SA6 A4 STORE SDGL
24222 M01S14262.253l688 ---| SA7 A5 STORE OR
| Line S01491 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
24223 M01S01491.253l688 +++| SA6 A4+ STORE *SDGL*
24224 M01S01492.253l688 +++|* EQ CSM1 CHECK FOR STORAGE MOVE
| Line S01493 Modification History |
M01 (Added by) | 253l688 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
24225 M02S01493.273l780 ---| CSM SPACE 4,10
| Line S00686 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
24226 M01S00686.273l780 +++| CSM SPACE 4,15