cdc:nos2.source:opl.opl871:deck:cpumtr.018
Deck CPUMTR Part 018
308 Modifications
Listing Sections
- Deck CPUMTR Start
- Deck CPUMTR Part 1 (Line 1426)
- Deck CPUMTR Part 2 (Line 2835)
- Deck CPUMTR Part 3 (Line 4189)
- Deck CPUMTR Part 4 (Line 5202)
- Deck CPUMTR Part 5 (Line 6708)
- Deck CPUMTR Part 6 (Line 8299)
- Deck CPUMTR Part 7 (Line 9638)
- Deck CPUMTR Part 8 (Line 10916)
- Deck CPUMTR Part 9 (Line 11967)
- Deck CPUMTR Part 10 (Line 13138)
- Deck CPUMTR Part 11 (Line 14282)
- Deck CPUMTR Part 12 (Line 15410)
- Deck CPUMTR Part 13 (Line 16567)
- Deck CPUMTR Part 14 (Line 17788)
- Deck CPUMTR Part 15 (Line 19052)
- Deck CPUMTR Part 16 (Line 20073)
- Deck CPUMTR Part 17 (Line 21429)
- Deck CPUMTR Part 18 (Line 22828)
- Deck CPUMTR Part 19 (Line 24227)
- Deck CPUMTR Part 20 (Line 25696)
- Deck CPUMTR Part 21 (Line 26966)
- Deck CPUMTR Part 22 (Line 28134)
- Deck CPUMTR Part 23 (Line 29251)
- Deck CPUMTR Part 24 (Line 30351)
- Deck CPUMTR Part 25 (Line 31361)
- Deck CPUMTR Part 26 (Line 32485)
- Deck CPUMTR Part 27 (Line 33477)
- Deck CPUMTR Part 28 (Line 34727)
- Deck CPUMTR Part 29 (Line 36372)
- Deck CPUMTR Part 30 (Line 38175)
- Deck CPUMTR Part 31 (Line 39467)
- Deck CPUMTR Part 32 (Line 41032)
- Deck CPUMTR Part 33 (Line 42467)
- Deck CPUMTR Part 34 (Line 44089)
- Deck CPUMTR Part 35 (Line 45392)
- Deck CPUMTR Part 36 (Line 46832)
- Deck CPUMTR Part 37 (Line 47923)
- Deck CPUMTR Part 38 (Line 49530)
- Deck CPUMTR Part 39 (Line 50976)
- Deck CPUMTR Part 40 (Line 52390)
- Deck CPUMTR Part 41 (Line 53539)
- Deck CPUMTR Part 42 (Line 54779)
- Deck CPUMTR Part 43 (Line 56002)
- Deck CPUMTR Part 44 (Line 57163)
- Deck CPUMTR Part 45 (Line 58215)
- Deck CPUMTR Part 46 (Line 59341)
Source
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
Proceed to Part 19
cdc/nos2.source/opl.opl871/deck/cpumtr.018.txt · Last modified: by 127.0.0.1