Seq # *Modification Id* Act
----------------------------+
01817 M00S01569.set +++|* MOVE ALTERNATE PP.
01818 M00S01570.set +++|
01819 M00S01571.set +++| PRS12 LDN DIDS GET DEADSTART DISK INFORMATION
01820 M00S01572.set +++| RJM IAF
01821 M00S01573.set +++| LDM DBUF+DDCH
01822 M00S01574.set +++| LPN 37
01823 M00S01575.set +++| SHN 14
01824 M00S01576.set +++| LMM DBUF+DDEU
01825 M00S01577.set +++| SHN 6
01826 M00S01578.set +++| STM .DSD
01827 M00S01579.set +++| RJM EPP EXCLUDE D/S DISK CHANNEL PP
01828 M00S01580.set +++| LDD DH
01829 M00S01581.set +++| RJM EPP EXCLUDE D/S TAPE CHANNEL PP
01830 M00S01582.set +++| LDM .PPL
01831 M00S01583.set +++| LMC 6407 REMOVE PP-S 0, 1, 2, 10
01832 M00S01584.set +++| PRSC EQU *-1
01833 M00S01585.set +++| RJM MSB
01834 M00S01586.set +++| PJN PRS15 IF PP FOUND
01835 M00S01587.set +++| LDM .PPL+1
01836 M00S01588.set +++| LMC 6000 CHECK UPPER BANK
01837 M00S01589.set +++| PRSD EQU *-1
01838 M00S01590.set +++| RJM MSB
01839 M00S01591.set +++| PJN PRS14 IF PP FOUND
01840 M00S01592.set +++| LDC =C* NOT ENOUGH PP-S FOR DEADSTART.*
01841 M00S01593.set +++| JMP DSE DISPLAY ERROR AND HANG
01842 M00S01594.set +++|
01843 M00S01595.set +++| PRS14 ADN 20 SET NEW ALTERNATE PP NUMBER
01844 M00S01596.set +++| PRS15 STM .APP
01845 M00S01597.set +++| ADC MAPS*10000 MOVE PP FUNCTION
01846 M00S01598.set +++| RJM APM
01847 M00S01599.set +++| CHKAPE CHECK ALTERNATE PP ERROR
01848 M00S01600.set +++|
01849 M00S01601.set +++|* IDLE CPU(S) AWAY FROM LOCATION 0.
01850 M00S01602.set +++|
01851 M00S01603.set +++| PRS16 LDN 20 EXCHANGE PACKAGE LENGTH
01852 M00S01604.set +++| STD T1
01853 M00S01605.set +++| LDD HN SAVE EXCHANGE PACKAGE AREA
01854 M00S01606.set +++| CRM MBUF,T1
01855 M00S01607.set +++| LDN CPSL STORE CPU IDLE PROGRAM
01856 M00S01608.set +++| CWM PRSA,ON
01857 M00S01609.set +++| LDD HO CHECK CPU TYPE
01858 M00S01610.set +++| SHN 21-11
01859 M00S01611.set +++| MJN PRS18 IF CYBER 176 (CPU STOPPED)
01860 M00S01612.set +++| LDD HO
01861 M00S01613.set +++| LPN 2
01862 M00S01614.set +++| NJN PRS17 IF CPU 1 OFF / NON-EXISTENT
| Line S00010 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01863 M01S00010.271l750 +++| LDM DCPC
01864 M01S00011.271l750 +++| NJN PRS17 IF DUAL 170-STATE CPUS WITH CACHE
01865 M00S01615.set +++| LDD HN STORE EXCHANGE PACKAGE
01866 M00S01616.set +++| CWM PRSB,T1
| Line S01617 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01867 M01S01617.271l750 ---| SBN 20 EXCHANGE CPU 1
01868 M01S01618.271l750 ---| EXN 1
| Line S00012 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01869 M01S00012.271l750 +++| SBN 20
01870 M01S00013.271l750 +++| EXN 1 EXCHANGE CPU 1
01871 M00S01619.set +++| SBN 1 WAIT EXCHANGE COMPLETE
01872 M00S01620.set +++| NJN *-1
01873 M00S01621.set +++| LDD HO
01874 M00S01622.set +++| LPN 1
01875 M00S01623.set +++| NJN PRS18 IF CPU 0 OFF
01876 M00S01624.set +++| PRS17 LDD HN STORE EXCHANGE PACKAGE
01877 M00S01625.set +++| CWM PRSB,T1
01878 M00S01626.set +++| SBN 20 EXCHANGE CPU 0
01879 M00S01627.set +++| EXN 0
01880 M00S01628.set +++| SBN 1 WAIT EXCHANGE COMPLETE
01881 M00S01629.set +++| NJN *-1
01882 M00S01630.set +++| PRS18 LDD HN RESTORE EXCHANGE PACKAGE AREA
01883 M00S01631.set +++| CWM MBUF,T1
01884 M00S01632.set +++| LDN 0 CLEAR LOCATION 0
01885 M00S01633.set +++| CWD ZR
| Line S00014 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01886 M01S00014.271l750 +++|
01887 M01S00015.271l750 +++|* START BUFFER PP.
01888 M01S00016.271l750 +++|
01889 M00S01634.set +++| RJM DCB DEFINE CM BUFFER SPACE
01890 M00S01635.set +++| STM IBUF+/BPP/EA
| Line S01636 Modification History |
M01 (Removed by) | set81 |
Seq # *Modification Id* Act
----------------------------+
01891 M01S01636.set81 ---| ADN 20 RA/100 OF *TDDB* TABLE
| Line S00003 Modification History |
M01 (Added by) | set81 |
Seq # *Modification Id* Act
----------------------------+
01892 M01S00003.set81 +++| .ESBL EQU ESTE*ESMX+77 CM BUFFER SIZE PLUS ROUNDING FACTOR
01893 M01S00004.set81 +++| ESTBL EQU .ESBL/100 CM BUFFER LENGTH/100B FOR EST
01894 M01S00005.set81 +++| ADK ESTBL RA/100 OF *TDDB* TABLE
01895 M00S01637.set +++| STD ET
01896 M00S01638.set +++| STM IBUF+/BPP/MA
| Line S01639 Modification History |
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
01897 M01S01639.284l847 ---| ADN 41
| Line S00018 Modification History |
M01 (Added by) | 284l847 |
M02 (Removed by) | set81 |
Seq # *Modification Id* Act
----------------------------+
01898 M02S00018.set81 ---| ADN TDDCL*10B+1
| Line S00006 Modification History |
M01 (Added by) | set81 |
Seq # *Modification Id* Act
----------------------------+
01899 M01S00006.set81 +++| .CTBL EQU 3*CTALL+77 CM BUFFER SIZE PLUS ROUNDING FACTOR
01900 M01S00007.set81 +++| CTABL EQU .CTBL/100 CM BUFFER LENGTH/100 FOR CHANNEL TABLES
01901 M01S00008.set81 +++| ADK TDDBL+CTABL
01902 M00S01640.set +++| STM IBUF+/BPP/FA
01903 M00S01641.set +++| LDC IBUFL TRANSMIT PP BUFFER PROGRAM
01904 M00S01642.set +++| OAM IBUF,BC
01905 M00S01643.set +++| FJM *,BC WAIT OUTPUT COMPLETE
01906 M00S01644.set +++| DCN BC
01907 M00S01645.set +++| LDD EB CLEAR EST ASSEMBLY BUFFER
01908 M00S01646.set +++| SHN 6
01909 M00S01647.set +++| STD CA+1
01910 M00S01648.set +++| SHN -14
01911 M00S01649.set +++| STD CA
| Line S01650 Modification History |
M01 (Removed by) | set81 |
Seq # *Modification Id* Act
----------------------------+
01912 M01S01650.set81 ---| LDC 2000+4100 CLEAR EQUIPMENT AND CHANNEL BUFFERS
| Line S00009 Modification History |
M01 (Added by) | set81 |
Seq # *Modification Id* Act
----------------------------+
01913 M01S00009.set81 +++| LDC ESTBL*100+TDDBL*100+CTABL*100
01914 M00S01651.set +++| RJM CLS
01915 M00S01652.set +++| LDD LE ENTER EST CONSTANTS
01916 M00S01653.set +++| SHN 1
01917 M00S01654.set +++| STD T1
01918 M00S01655.set +++| LDD EB
01919 M00S01656.set +++| SHN 6
01920 M00S01657.set +++| CWM EBTA,T1
| Line S00001 Modification History |
M01 (Added by) | ns2691 |
Seq # *Modification Id* Act
----------------------------+
01921 M01S00001.ns2691 +++| LDN CFGL SET EXTENDED MEMORY MODE INTO *CFGL*
01922 M01S00002.ns2691 +++| CRD AB
01923 M00S01658.set +++| LDD HO
01924 M00S01659.set +++| LPC 4100
| Line S01660 Modification History |
M01 (Removed by) | ns2691 |
Seq # *Modification Id* Act
----------------------------+
01925 M01S01660.ns2691 ---| ZJN PRS19 IF CYBER 865/875
01926 M01S01661.ns2691 ---| IJM SET1,CHSC IF SCR CHANNEL INACTIVE
01927 M01S01662.ns2691 ---| LDN CFGL SET EXTENDED MEMORY MODE INTO *CFGL*
01928 M01S01663.ns2691 ---| CRD AB
| Line S00003 Modification History |
M01 (Added by) | ns2691 |
Seq # *Modification Id* Act
----------------------------+
01929 M01S00003.ns2691 +++| NJN PRS19 IF NOT CYBER 865/875
01930 M01S00004.ns2691 +++| LDN 1 FORCE ESM MODE
01931 M01S00005.ns2691 +++| UJN PRS20 SET MODE IN *CFGL*
01932 M01S00006.ns2691 +++|
01933 M01S00007.ns2691 +++| PRS19 IJM SET1,CHSC IF SCR CHANNEL INACTIVE
| Line S01664 Modification History |
M01 (Removed by) | 272l774 |
Seq # *Modification Id* Act
----------------------------+
01934 M01S01664.272l774 ---| LDN FCRD+ESMM/14 READ SCR EXTENDED MEMORY MODE
| Line S00004 Modification History |
M01 (Added by) | 272l774 |
Seq # *Modification Id* Act
----------------------------+
01935 M01S00004.272l774 +++| LDN /SCR/FCRD+/SCR/ESMM/14 READ SCR EXTENDED MEMORY MODE
01936 M00S01665.set +++| OAN CHSC
01937 M00S01666.set +++| IAN CHSC
| Line S01667 Modification History |
M01 (Removed by) | 272l774 |
Seq # *Modification Id* Act
----------------------------+
01938 M01S01667.272l774 ---| SHN -ESMM+ESMM/14*14
| Line S00005 Modification History |
M01 (Added by) | 272l774 |
Seq # *Modification Id* Act
----------------------------+
01939 M01S00005.272l774 +++| SHN -/SCR/ESMM+/SCR/ESMM/14*14
01940 M00S01668.set +++| LPN 1
| Line S01669 Modification History |
M01 (Removed by) | ns2691 |
Seq # *Modification Id* Act
----------------------------+
01941 M01S01669.ns2691 ---| SHN 12-0
| Line S00008 Modification History |
M01 (Added by) | ns2691 |
Seq # *Modification Id* Act
----------------------------+
01942 M01S00008.ns2691 +++| PRS20 SHN 12-0
01943 M00S01670.set +++| RAD AB+3 INSERT MODE BIT
01944 M00S01671.set +++| LDN CFGL
01945 M00S01672.set +++| CWD AB
| Line S01673 Modification History |
M01 (Removed by) | ns2691 |
Seq # *Modification Id* Act
----------------------------+
01946 M01S01673.ns2691 ---| PRS19 LJM SET1 PROCESS TEXT DECKS
| Line S00009 Modification History |
M01 (Added by) | ns2691 |
Seq # *Modification Id* Act
----------------------------+
01947 M01S00009.ns2691 +++| LJM SET1 PROCESS TEXT DECKS
01948 M00S01674.set +++| SPACE 4,10
01949 M00S01675.set +++|* SCRATCH BUFFER.
01950 M00S01676.set +++|
01951 M00S01677.set +++| MBUFL MAX MLED,CTALL*5,100*5
01952 M00S01678.set +++| MBUF EQU 7777-MBUFL
01953 M00S01679.set +++| DBUF EQU MBUF+APDL
01954 M00S01680.set +++| CDD SPACE 4,10
01955 M00S01681.set +++|** CDD - CHECK DISPLAY DRIVER.
01956 M00S01682.set +++|*
01957 M00S01683.set +++|* ENTRY (T2) = *SCD* PP NUMBER IF CDC721 CONSOLE.
01958 M00S01684.set +++|* (T7) = 77.
01959 M00S01685.set +++|* (CM - CM+4) = 0.
01960 M00S01686.set +++|*
01961 M00S01687.set +++|* MACROS MDIN.
01962 M00S01688.set +++|
01963 M00S01689.set +++|
01964 M00S01690.set +++| CDD SUBR ENTRY/EXIT
01965 M00S01691.set +++| LDD T2
01966 M00S01692.set +++| LPN 1 SET PORT NUMBER IN EST ENTRY
01967 M00S01693.set +++| RAM EBTA+5*DSEQ*ESTE+5*EQDE+4
| Line S00008 Modification History |
M01 (Added by) | ns2557 |
Seq # *Modification Id* Act
----------------------------+
01968 M01S00008.ns2557 +++| LPN 1
01969 M01S00009.ns2557 +++| SHN 4
01970 M01S00010.ns2557 +++| STM SCIP
01971 M00S01694.set +++| LDD T2 EXTRACT *SCD* PP NUMBER
01972 M00S01695.set +++| SHN -6
01973 M00S01696.set +++| STM .DCS
01974 M00S01697.set +++| CDD1 ZJN CDDX IF DEADSTART FROM CC545 CONSOLE
01975 M00S01698.set +++| RAM CDDA
01976 M00S01699.set +++| LPN 37 MODIFY CHANNEL INSTRUCTIONS
01977 M00S01700.set +++| RAM CDDB
01978 M00S01701.set +++| LDN 3 INITIALIZE *SCD*
01979 M00S01702.set +++| CDDA OAM. T7,0
01980 M00S01703.set +++| CDDB DCN. 0
01981 M00S01704.set +++| AOM EBTA+5*DSEQ*ESTE+5*EQAE+2
01982 M00S01705.set +++| MDIN MODIFY DISPLAY GENERATORS
01983 M00S01706.set +++| UJP CDD1 RETURN
01984 M00S01707.set +++| CLK SPACE 4,10
01985 M00S01708.set +++|** CLK - PROCESS CTI CLOCK.
01986 M00S01709.set +++|*
01987 M00S01710.set +++|* EXIT (DTEL) = CTI-SUPPLIED DATE.
01988 M00S01711.set +++|* (TIML) = CTI-SUPPLIED TIME.
01989 M00S01712.set +++|* (PDTL) = CTI-SUPPLIED *FRC* VALUE.
01990 M00S01713.set +++|*
01991 M00S01714.set +++|* CALLS IAF.
01992 M00S01715.set +++|
01993 M00S01716.set +++|
01994 M00S01717.set +++| CLK SUBR ENTRY/EXIT
01995 M00S01718.set +++| LDM C8XX CHECK MAINFRAME TYPE
01996 M00S01719.set +++| NJN CLKX IF NOT CYBER 180
01997 M00S01720.set +++| LDN CLKS REQUEST CTI CLOCK INFORMATION
01998 M00S01721.set +++| RJM IAF
01999 M00S01722.set +++| LDN PDTL
02000 M00S01723.set +++| CWM MBUF+10,ON WRITE CTI-SUPPLIED *FRC* VALUE
02001 M00S01724.set +++| ADK TIML-PDTL-1
02002 M00S01725.set +++| CWM MBUF+3,ON WRITE CTI-SUPPLIED TIME
02003 M00S01726.set +++| ADK DTEL-TIML-1
02004 M00S01727.set +++| CWM MBUF,ON WRITE CTI-SUPPLIED DATE
02005 M00S01728.set +++| UJN CLKX RETURN
02006 M00S01729.set +++| CSB SPACE 4,10
02007 M00S01730.set +++|** CSB - COUNT SET BITS.
02008 M00S01731.set +++|*
02009 M00S01732.set +++|* ENTRY (A) = COMPLEMENT OF BYTE TO COUNT.
02010 M00S01733.set +++|*
02011 M00S01734.set +++|* EXIT (A) = NUMBER OF ZERO BITS IN LOWER 12 BITS.
02012 M00S01735.set +++|*
02013 M00S01736.set +++|* USES T1, T2.
02014 M00S01737.set +++|
02015 M00S01738.set +++|
02016 M00S01739.set +++| CSB2 LDD T2 NUMBER OF BITS SET
02017 M00S01740.set +++|
02018 M00S01741.set +++| CSB SUBR ENTRY/EXIT
02019 M00S01742.set +++| LMC 7777 COMPLEMENT ENTRY
02020 M00S01743.set +++| STD T1 SAVE ENTRY CONDITION
02021 M00S01744.set +++| LDN 0
02022 M00S01745.set +++| STD T2 RESET COUNTER
02023 M00S01746.set +++| CSB1 LDD T1
02024 M00S01747.set +++| ZJN CSB2 IF NO MORE BITS SET
02025 M00S01748.set +++| SHN 21-0 SHIFT OFF LAST BIT
02026 M00S01749.set +++| STD T1
02027 M00S01750.set +++| SHN 0-21 INCREMENT COUNTER
02028 M00S01751.set +++| RAD T2
02029 M00S01752.set +++| UJN CSB1 LOOP FOR NEXT BIT
02030 M00S01753.set +++| DCB SPACE 4,15
02031 M00S01754.set +++|** DCB - DEFINE CM BUFFER SPACE.
02032 M00S01755.set +++|*
02033 M00S01756.set +++|* EXIT (A) = (EB) = RA/100 FOR EST BUFFER.
02034 M00S01757.set +++|*
02035 M00S01758.set +++|* USES T1, AB - AB+4.
02036 M00S01759.set +++|*
02037 M00S01760.set +++|* CALLS API, IDF.
02038 M00S01761.set +++|*
02039 M00S01762.set +++|* MACROS CFNC, CHKAPE, DFIM.
02040 M00S01763.set +++|
02041 M00S01764.set +++|
| Line S01765 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
02042 M01S01765.271l716 ---| DCB2 LDN CMCL STORE *MABL* WORD
02043 M01S01766.271l716 ---| CRD AB
02044 M01S01767.271l716 ---| ADN MABL-CMCL
| Line S00016 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
02045 M01S00016.271l716 +++| DCB2 LDN CSWL FETCH *MABL* DATA
02046 M01S00017.271l716 +++| CRD AB
02047 M01S00018.271l716 +++| CWD ZR
02048 M01S00019.271l716 +++| ADN MABL-CSWL STORE *MABL* WORD
02049 M00S01768.set +++| CWD AB
02050 M00S01769.set +++| LDD AB+2 SET BUFFER LIMIT
02051 M00S01770.set +++| SHN 14
02052 M00S01771.set +++| LMD AB+3
02053 M00S01772.set +++| MJN DCB3 IF MEMORY SIZE .GT. 64 MBYTES
02054 M00S01773.set +++| SBK 4001
02055 M00S01774.set +++| MJN DCB4 IF MEMORY SIZE .LE. 131K WORDS
02056 M00S01775.set +++| DCB3 LCN 1
02057 M00S01776.set +++| DCB4 ADC 4001
02058 M00S01777.set +++| STM IBUF+/BPP/BL
02059 M00S01778.set +++| SBK EBFL SET RA FOR *EBUT* TABLE
02060 M00S01779.set +++| STD EB
02061 M00S01780.set +++|
02062 M00S01781.set +++| DCB SUBR ENTRY/EXIT
02063 M00S01782.set +++| LDD RS
02064 M00S01783.set +++| LPN SYMK
02065 M00S01784.set +++| LMN SYCM
02066 M00S01785.set +++| NJN DCB2 IF SYSTEM NOT RECOVERED FROM CM
02067 M00S01786.set +++| LDN LROF
02068 M00S01787.set +++| RJM IDF INITIATE SEARCH FOR *RCM*
02069 M00S01788.set +++| CFNC SLMF SELECT LEFT SCREEN - MEDIUM CHARACTERS
02070 M00S01789.set +++| DCB1 LDN DCBAL DISPLAY MESSAGE
02071 M00S01790.set +++| OAM DCBA,CH
02072 M00S01791.set +++| CFNC THCF TRANSFER HIDDEN AND CLEAR
02073 M00S01792.set +++| LDC SBNI+1 DELAY
02074 M00S01793.set +++| NJN *-1
02075 M00S01794.set +++| AJM DCB1,TC IF *DIO* BUSY
02076 M00S01795.set +++| DCN CH
02077 M00S01796.set +++|
02078 M00S01797.set +++|* SUSPEND ALTERNATE PP.
02079 M00S01798.set +++|
02080 M00S01799.set +++| LDM .APP MODIFY *APP* CHANNEL INSTRUCTIONS
02081 M00S01800.set +++| SHN 14
02082 M00S01801.set +++| LMC CTAC
02083 M00S01802.set +++| RJM MCI
02084 M00S01803.set +++| LDK ZERL CLEAR *DSCL*
02085 M00S01804.set +++| CRD CM
02086 M00S01805.set +++| LDK DSCL
02087 M00S01806.set +++| CWD CM
02088 M00S01807.set +++| LDK RPCS*10000+DSCL REMOVE PP FROM CHANNEL
02089 M00S01808.set +++| RJM APM
02090 M00S01809.set +++| CHKAPE CHECK ALTERNATE PP ERROR
02091 M00S01810.set +++| LJM ROV1 LOAD AND EXECUTE *RCM*
02092 M00S01811.set +++|
02093 M00S01812.set +++| DFIM (CON LN12)
02094 M00S01813.set +++| DCBA CON LN19,CH06
02095 M00S01814.set +++| DATA C*RECOVERY IN PROGRESS.*
02096 M00S01815.set +++| DCBAL EQU *-DCBA
| Line S00005 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02097 M01S00005.261l700 +++| DDV SPACE 4,10
02098 M01S00006.261l700 +++|** DDV - DETERMINE *DFT* VERSION.
02099 M01S00007.261l700 +++|*
02100 M01S00008.261l700 +++|* EXIT (DFTV) = 0, IF VERSION 3 *DFT* PRESENT.
02101 M01S00009.261l700 +++|* (DFSZ) = SIZE OF *DFT/OS* BUFFER, IF VERSION 4 OR
02102 M01S00010.261l700 +++|* ABOVE *DFT* PRESENT.
02103 M01S00011.261l700 +++|*
02104 M01S00012.261l700 +++|* TO *DSE* IF THE SIZE OF THE *DFT/OS* BUFFER FROM THE
02105 M01S00013.261l700 +++|* DESCRIPTOR IS GREATER THAN 7777B.
02106 M01S00014.261l700 +++|*
02107 M01S00015.261l700 +++|* CALLS IAF.
02108 M01S00016.261l700 +++|
02109 M01S00017.261l700 +++|
02110 M01S00018.261l700 +++| DDV SUBR ENTRY/EXIT
02111 M01S00019.261l700 +++| LDM C8XX
02112 M01S00020.261l700 +++| NJN DDVX IF NOT CYBER 180
02113 M01S00021.261l700 +++| LDN DFTS GET *DFT* DESCRIPTOR
02114 M01S00022.261l700 +++| RJM IAF ISSUE ALTERNATE PP FUNCTION
02115 M01S00023.261l700 +++| LDM MBUF
02116 M01S00024.261l700 +++| ZJN DDVX IF NO DESCRIPTOR RETURNED
02117 M01S00025.261l700 +++| LDM DBUF+DFVR SAVE *DFT* VERSION
| Line S00026 Modification History |
M01 (Added by) | 261l700 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
02118 M02S00026.271l716 ---| LPN 1
| Line S00020 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
02119 M01S00020.271l716 +++| SHN 21-0
02120 M01S00021.271l716 +++| PJN DDVX IF VERSION 3 *DFT*
02121 M01S00022.271l716 +++| SHN 0-5
02122 M01S00023.271l716 +++| LPN 77
02123 M01S00024.271l716 +++| NJN DDV0 IF NOT *DFT* VERSION 4
02124 M01S00025.271l716 +++| LDN 4
02125 M01S00026.271l716 +++| DDV0 SBN 3 *DFT* VERISON 3 = 0
| Line S00027 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02126 M01S00027.261l700 +++| STM DFTV
| Line S00028 Modification History |
M01 (Added by) | 261l700 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
02127 M02S00028.271l716 ---| ZJN DDVX IF VERSION 3 *DFT*
| Line S00029 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02128 M01S00029.261l700 +++| LDM DBUF+DFSI SAVE *DFT/OS* BUFFER SIZE
02129 M01S00030.261l700 +++| NJN DDV1 IF *DFT/OS* BUFFER SIZE TOO LARGE
02130 M01S00031.261l700 +++| LDM DBUF+DFSI+1
02131 M01S00032.261l700 +++| STM DFSZ
02132 M01S00033.261l700 +++| UJN DDVX RETURN
02133 M01S00034.261l700 +++|
02134 M01S00035.261l700 +++| DDV1 LDC DDVA *DFT BUFFER TOO LARGE*
02135 M01S00036.261l700 +++| LJM DSE DISPLAY ERROR AND HANG
02136 M01S00037.261l700 +++|
02137 M01S00038.261l700 +++|
02138 M01S00039.261l700 +++| DDVA DATA C*DFT BUFFER TOO LARGE*
02139 M00S01816.set +++| EPP SPACE 4,10
02140 M00S01817.set +++|** EPP - EXCLUDE PP FROM THOSE TO WHICH *APP* MAY BE MOVED.
02141 M00S01818.set +++|*
02142 M00S01819.set +++|* ENTRY (A) = 7/, 5/CHANNEL.
02143 M00S01820.set +++|*
02144 M00S01821.set +++|* USES T1.
02145 M00S01822.set +++|
02146 M00S01823.set +++|
02147 M00S01824.set +++| EPP SUBR ENTRY/EXIT
02148 M00S01825.set +++| LPN 37
02149 M00S01826.set +++| SHN 22-4
02150 M00S01827.set +++| STD T1
02151 M00S01828.set +++| SHN 4-22
02152 M00S01829.set +++| LMD TH
02153 M00S01830.set +++| ERRNZ SHNI-1000 CODE ASSUMES *SHNI* = 1000
02154 M00S01831.set +++| STM EPPA
02155 M00S01832.set +++| LDN 1 SET PP MASK
02156 M00S01833.set +++| EPPA SHN **
02157 M00S01834.set +++| STM EPPB
02158 M00S01835.set +++| STM EPPC
02159 M00S01836.set +++| LDM .PPL,T1
02160 M00S01837.set +++| LPC **
02161 M00S01838.set +++| EPPB EQU *-1
02162 M00S01839.set +++| EPP1 NJN EPPX IF PP OFF
02163 M00S01840.set +++| LDM EPPD,T1
02164 M00S01841.set +++| STD T1
02165 M00S01842.set +++| LDI T1
02166 M00S01843.set +++| LPC **
02167 M00S01844.set +++| EPPC EQU *-1
02168 M00S01845.set +++| NJN EPP1 IF PP ALREADY DESELECTED
02169 M00S01846.set +++| LDM EPPC DESELECT PP
02170 M00S01847.set +++| RAI T1
02171 M00S01848.set +++| UJN EPP1 RETURN
02172 M00S01849.set +++|
02173 M00S01850.set +++| EPPD CON PRSC,PRSD
02174 M00S01851.set +++| IAF SPACE 4,10
02175 M00S01852.set +++|** IAF - ISSUE FUNCTION TO ALTERNATE PP.
02176 M00S01853.set +++|*
02177 M00S01854.set +++|* ENTRY (A) = FUNCTION CODE.
02178 M00S01855.set +++|*
02179 M00S01856.set +++|* EXIT (A) = 0.
02180 M00S01857.set +++|*
02181 M00S01858.set +++|* ERROR TO *DSE* IF ALTERNATE PP ERROR.
02182 M00S01859.set +++|*
02183 M00S01860.set +++|* CALLS API.
02184 M00S01861.set +++|
02185 M00S01862.set +++|
02186 M00S01863.set +++| IAF SUBR ENTRY/EXIT
02187 M00S01864.set +++| SHN 14
02188 M00S01865.set +++| LMC MBUF APPEND BUFFER ADDRESS TO REQUEST
02189 M00S01866.set +++| RJM API
02190 M00S01867.set +++| ZJN IAFX IF NO ERROR
02191 M00S01868.set +++| JMP DSE DISPLAY ERROR AND HANG
02192 M00S01869.set +++| MCI SPACE 4,10
02193 M00S01870.set +++|** MCI - MODIFY CHANNEL INSTRUCTIONS.
02194 M00S01871.set +++|*
02195 M00S01872.set +++|* ENTRY (A) = 6/ CHANNEL NUMBER,
02196 M00S01873.set +++|* 12/ ADDRESS OF INSTRUCTION LIST.
02197 M00S01874.set +++|*
02198 M00S01875.set +++|* USES T0, T1, T2.
02199 M00S01876.set +++|
02200 M00S01877.set +++|
02201 M00S01878.set +++| MCI1 STD T2 SET INSTRUCTION ADDRESS
02202 M00S01879.set +++| LDI T2 MODIFY INSTRUCTION
02203 M00S01880.set +++| SCN 37
02204 M00S01881.set +++| LMD T0
02205 M00S01882.set +++| STI T2
02206 M00S01883.set +++| AOD T1 ADVANCE LIST ADDRESS
02207 M00S01884.set +++| MCI2 LDI T1
02208 M00S01885.set +++| NJN MCI1 IF NOT END OF LIST
02209 M00S01886.set +++|
02210 M00S01887.set +++| MCI SUBR ENTRY/EXIT
02211 M00S01888.set +++| STD T1 SET LIST ADDRESS
02212 M00S01889.set +++| SHN -14
02213 M00S01890.set +++| STD T0 SET CHANNEL
02214 M00S01891.set +++| UJN MCI2 ENTER LOOP
02215 M00S01892.set +++| MSB SPACE 4,10
02216 M00S01893.set +++|** MSB - DETERMINE MOST SIGNIFICANT BIT.
02217 M00S01894.set +++|*
02218 M00S01895.set +++|* ENTRY (A) = COMPLEMENT OF BYTE TO CHECK.
02219 M00S01896.set +++|*
02220 M00S01897.set +++|* EXIT (A) = NUMBER OF MOST SIGNIFICANT BIT, IF FOUND.
02221 M00S01898.set +++|* (A) .LT. 0 IF ALL BITS ARE ZERO.
02222 M00S01899.set +++|*
02223 M00S01900.set +++|* USES T1, T2, T3.
02224 M00S01901.set +++|
02225 M00S01902.set +++|
02226 M00S01903.set +++| MSB2 SOD T2 MOST SIGNIFICANT BIT
02227 M00S01904.set +++|
02228 M00S01905.set +++| MSB SUBR ENTRY/EXIT
02229 M00S01906.set +++| LMC 7777 COMPLEMENT ENTRY
02230 M00S01907.set +++| STD T1 SAVE ENTRY CONDITION
02231 M00S01908.set +++| LDN 0
02232 M00S01909.set +++| STD T2 RESET MOST SIGNIFICANT BIT
02233 M00S01910.set +++| STD T3 RESET BIT COUNTER
02234 M00S01911.set +++| MSB1 AOD T3 INCREMENT BIT COUNTER
02235 M00S01912.set +++| LDD T1
02236 M00S01913.set +++| ZJN MSB2 IF NO MORE BITS ARE SET
02237 M00S01914.set +++| SHN 21-0 SHIFT OFF LEAST SIGNIFICANT BIT
02238 M00S01915.set +++| STD T1
02239 M00S01916.set +++| PJN MSB1 IF BIT IS NOT SET
02240 M00S01917.set +++| LDD T3 UPDATE MOST SIGNIFICANT BIT
02241 M00S01918.set +++| STD T2
02242 M00S01919.set +++| UJN MSB1 LOOP FOR NEXT BIT
| Line S00017 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02243 M01S00017.271l750 +++| RWR SPACE 4,10
02244 M01S00018.271l750 +++|** READ / WRITE ENVIRONMENTAL CONTROL REGISTER.
02245 M01S00019.271l750 +++|*
02246 M01S00020.271l750 +++|* ENTRY (A) = *RMRF* TO READ REGISTER,
02247 M01S00021.271l750 +++|* = *WMRF* TO WRITE REGISTER.
02248 M01S00022.271l750 +++|*
02249 M01S00023.271l750 +++|* EXIT (RBUF) = REGISTER CONTENTS.
02250 M01S00024.271l750 +++|
02251 M01S00025.271l750 +++|
02252 M01S00026.271l750 +++| RWR SUBR ENTRY/EXIT
02253 M01S00027.271l750 +++| LMM CMCC
02254 M01S00028.271l750 +++| FAN. MR FUNCTION MAINTENANCE CHANNEL
02255 M01S00029.271l750 +++| LPN 20
02256 M01S00030.271l750 +++| ERRNZ RMRF+20-WMRF CODE DEPENDS ON VALUE
02257 M01S00031.271l750 +++| SHN 3
02258 M01S00032.271l750 +++| LMC IAMI+MR FORM I/O INSTRUCTION
02259 M01S00033.271l750 +++| STM RWRA
02260 M01S00034.271l750 +++| ACN. MR
02261 M01S00035.271l750 +++| LDN 0
02262 M01S00036.271l750 +++| OAN. MR SEND MEMORY *EC* REGISTER NUMBER
02263 M01S00037.271l750 +++| LDK /IOU/ECMR
02264 M01S00038.271l750 +++| OAN. MR
02265 M01S00039.271l750 +++| FJM. *,MR IF CHANNEL BUSY, WAIT
02266 M01S00040.271l750 +++| DCN. MR
02267 M01S00041.271l750 +++| ACN. MR READ / WRITE REGISTER
02268 M01S00042.271l750 +++| LDN 10
02269 M01S00043.271l750 +++| RWRA IAM. RBUF,MR
02270 M01S00044.271l750 +++| UJP RWRX RETURN
02271 M01S00045.271l750 +++|
02272 M01S00046.271l750 +++|
02273 M01S00047.271l750 +++| RBUF EQU MBUF+500-10
| Line S01920 Modification History |
M01 (Removed by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02274 M01S01920.ns2730 ---| SHO SPACE 4,10
| Line S00002 Modification History |
M01 (Added by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02275 M01S00002.ns2730 +++| SHO SPACE 4,15
02276 M00S01921.set +++|** SHO - SET HARDWARE OPTIONS.
| Line S01922 Modification History |
M01 (Removed by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02277 M01S01922.ns2730 ---|*
02278 M01S01923.ns2730 ---|* ENTRY (DBUF) = MAINFRAME DESCRIPTOR.
02279 M00S01924.set +++|*
02280 M00S01925.set +++|* EXIT (A) = 0 IF CYBER 180 MAINFRAME OR CM RECOVERY.
02281 M00S01926.set +++|* (HO) = HARDWARE OPTIONS.
02282 M00S01927.set +++|* (DFTA) = DEFAULT *DFT* VALUES SET.
| Line S00003 Modification History |
M01 (Added by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02283 M01S00003.ns2730 +++|* (DCPC) .NE. 0, IF DUAL-NOS-CPU CACHE MACHINE.
02284 M01S00004.ns2730 +++|* (DCPS) .NE. 0, IF DUAL-NOS-CPU SELECTED IN *CIP*.
02285 M01S00005.ns2730 +++|* CYBER 180 CPU(S) STARTED.
02286 M00S01928.set +++|*
| Line S01929 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02287 M01S01929.271l750 ---|* USES T1, T2, T4, AB - AB+4.
| Line S00048 Modification History |
M01 (Added by) | 271l750 |
M02 (Removed by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02288 M02S00048.ns2730 ---|* USES T2, T4, AB - AB+4.
| Line S00006 Modification History |
M01 (Added by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02289 M01S00006.ns2730 +++|* ERROR TO *DSE* IF CPU MODEL NOT FOUND.
02290 M01S00007.ns2730 +++|*
02291 M01S00008.ns2730 +++|* USES HO, T2, T4, AB - AB+4.
02292 M00S01930.set +++|*
02293 M00S01931.set +++|* CALLS IAF.
02294 M00S01932.set +++|
02295 M00S01933.set +++|
| Line S01934 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02296 M01S01934.261l700 ---| SHO7 LDN PMNTL-1
02297 M01S01935.261l700 ---| STD T2
02298 M01S01936.261l700 ---| SHO8 LDM PMNT,T2
| Line S00040 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02299 M01S00040.261l700 +++| SHO7 LDN PMNTL SEARCH TABLE OF PROCESSOR MODELS
02300 M01S00041.261l700 +++| STD T2
02301 M01S00042.261l700 +++| SHO8 SOD T2
02302 M01S00043.261l700 +++| PJN SHO9 IF NOT END OF TABLE
02303 M01S00044.261l700 +++| LDC SHOH *CPU MODEL NOT FOUND*
02304 M01S00045.261l700 +++| LJM DSE DISPLAY ERROR AND HANG
02305 M01S00046.261l700 +++|
02306 M01S00047.261l700 +++| SHO9 LDM PMNT,T2 CHECK NEXT TABLE ENTRY
02307 M01S00048.261l700 +++| LPC 377 EXTRACT MODEL NUMBER
02308 M01S00049.261l700 +++| STM CMDL
02309 M00S01937.set +++| LMC 0 PROCESSOR MODEL NUMBER
02310 M00S01938.set +++| SHOF EQU *-1
| Line S01939 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02311 M01S01939.261l700 ---| LPC 377
02312 M01S01940.261l700 ---| ZJN SHO9 IF MATCH
02313 M01S01941.261l700 ---| SOD T2
02314 M01S01942.261l700 ---| NJN SHO8 IF NOT END OF TABLE
02315 M01S01943.261l700 ---| SHO9 LDM PMNT,T2
02316 M01S01944.261l700 ---| LPC 377 EXTRACT MODEL NUMBER
02317 M01S01945.261l700 ---| STM CMDL
| Line S00050 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02318 M01S00050.261l700 +++| NJN SHO8 IF NO MATCH
02319 M01S00051.261l700 +++| LDD T2 SET DEFAULT DEDICATED *DFT* STATUS
02320 M01S00052.261l700 +++| SBN PMNTA
02321 M01S00053.261l700 +++| SHN 0-21
02322 M01S00054.261l700 +++| SHN 13-0
02323 M01S00055.261l700 +++| RAM DFTA+1
02324 M00S01946.set +++| LDM PMNT,T2 SET 990 FLAG IF 990 PROCESSOR
02325 M00S01947.set +++| SCN 77
02326 M00S01948.set +++| SHN 12-6
| Line S01949 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02327 M01S01949.261l700 ---| STM DFTA+1
| Line S00056 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02328 M01S00056.261l700 +++| RAM DFTA+1
02329 M00S01950.set +++| SHN 6-12-10
02330 M00S01951.set +++| STD T2
02331 M00S01952.set +++| SHN 2 MULTIPLY BY 5
02332 M00S01953.set +++| RAD T2
02333 M00S01954.set +++| RAM DFTA
02334 M00S01955.set +++| LPN 77
02335 M00S01956.set +++| ERRNZ NUMR-20 CODE ASSUMES *NUMR* = 20
02336 M00S01957.set +++| SHN 4 MULTIPLY BY *NUMR*+1
02337 M00S01958.set +++| RAD T2
02338 M00S01959.set +++| RAM DFTA+1 SET DEFAULT TOTAL SIZE OF M/R BUFFERS
| Line S00001 Modification History |
M01 (Added by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02339 M01S00001.set66 +++| SHOJ UJN SHO11 RETURN
02340 M01S00002.set66 +++|* PSN (IF CM RECOVERY)
02341 M01S00003.set66 +++| RJM VCC VERIFY CPU CONFIGURATION
02342 M00S01960.set +++| UJN SHO11 RETURN
02343 M00S01961.set +++|
| Line S01962 Modification History |
M01 (Removed by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02344 M01S01962.set66 ---| SHO10 LDK MABL FETCH MAINFRAME ATTRIBUTE INFORMATION
| Line S00004 Modification History |
M01 (Added by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02345 M01S00004.set66 +++| SHO10 STM SHOJ SET *PSN*
02346 M01S00005.set66 +++| LDK MABL FETCH MAINFRAME ATTRIBUTE INFORMATION
02347 M00S01963.set +++| CRD AB
02348 M00S01964.set +++| LDD AB+1 RECOVER HARDWARE OPTIONS
| Line S00006 Modification History |
M01 (Added by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02349 M01S00006.set66 +++| STM VCCA
02350 M00S01965.set +++| STD HO
| Line S01966 Modification History |
M01 (Removed by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02351 M01S01966.set66 ---| SOM SHOB DISABLE HARDWARE OPTION CHANGE
02352 M00S01967.set +++| LDM C8XX
| Line S01968 Modification History |
M01 (Removed by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02353 M01S01968.set66 ---| ZJN SHO1 IF CYBER 180 MAINFRAME
| Line S00007 Modification History |
M01 (Added by) | set66 |
M02 (Removed by) | set66b |
Seq # *Modification Id* Act
----------------------------+
02354 M02S00007.set66b ---| NJN SHO11 IF NOT CYBER 180 MAINFRAME
02355 M02S00008.set66b ---| LDD HO SET CPU STATUS TO LOGICAL STATUS
02356 M02S00009.set66b ---| SCN 3
02357 M02S00010.set66b ---| LMM .CPU
02358 M02S00011.set66b ---| STD HO
02359 M02S00012.set66b ---| UJN SHO1 DETERMINE CPU STATUS
02360 M02S00013.set66b ---|
| Line S00001 Modification History |
M01 (Added by) | set66b |
M02 (Removed by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02361 M02S00001.ns2730 ---| ZJN SHO1 IF CYBER 180 MAINFRAME
| Line S00009 Modification History |
M01 (Added by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02362 M01S00009.ns2730 +++| ZJP SHO1 IF CYBER 180 MAINFRAME
02363 M00S01969.set +++| SHO11 LDN 0
02364 M00S01970.set +++|
02365 M00S01971.set +++| SHO SUBR ENTRY/EXIT
| Line S00010 Modification History |
M01 (Added by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02366 M01S00010.ns2730 +++| LDN GPDS REQUEST GLOBAL PROCESSOR DESCRIPTOR
02367 M01S00011.ns2730 +++| RJM IAF
02368 M01S00012.ns2730 +++| LDM DBUF+CPSF CHECK FOR DUAL-NOS-CPU SELECTED
02369 M01S00013.ns2730 +++| LPN 10
02370 M01S00014.ns2730 +++| RAM SHOB
02371 M01S00015.ns2730 +++| LDN MFDS REQUEST MAINFRAME DESCRIPTOR
02372 M01S00016.ns2730 +++| RJM IAF
02373 M00S01972.set +++| LDM DBUF+PCPF
02374 M00S01973.set +++| LPN 3
02375 M00S01974.set +++| STM .CPU
02376 M00S01975.set +++| STM .CPU+1 PRESET LOGICAL STATUS = PHYSICAL STATUS
02377 M00S01976.set +++| LDD RS
02378 M00S01977.set +++| LPN SYMK CHECK DEADSTART LEVEL
02379 M00S01978.set +++| LMN SYCM
| Line S01979 Modification History |
M01 (Removed by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02380 M01S01979.set66 ---| ZJN SHO10 IF CM RECOVERY
| Line S00014 Modification History |
M01 (Added by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02381 M01S00014.set66 +++| ZJP SHO10 IF CM RECOVERY
02382 M00S01980.set +++| LDM C8XX
02383 M00S01981.set +++| NJN SHOX IF NOT CYBER 180 MAINFRAME
02384 M00S01982.set +++| STM SHOE
02385 M00S01983.set +++| LDM .CPU
02386 M00S01984.set +++| ADC 720 APPEND CME, NO STACK, CMU STATUS
02387 M00S01985.set +++| STD HO
02388 M00S01986.set +++|
02389 M00S01987.set +++|* START CYBER 180 CPU(S).
02390 M00S01988.set +++|
02391 M00S01989.set +++| SHO1 LDN 0 STORE IDLE PROGRAM AT LOCATION ZERO
02392 M00S01990.set +++| CWM SHOC,ON
02393 M00S01991.set +++| SHO2 AOM SHOA ADVANCE PROCESSOR MASK
02394 M00S01992.set +++| LMN 3
02395 M00S01993.set +++| LPN 3
02396 M00S01994.set +++| ZJP SHO7 IF TWO PROCESSORS CHECKED
02397 M00S01995.set +++| LDD HO
02398 M00S01996.set +++| LMN 3 CHECK HARDWARE OPTIONS
02399 M00S01997.set +++| SHOA LPN 0
| Line S00049 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02400 M01S00049.271l750 +++|* LPN 1 (CPU 0)
02401 M01S00050.271l750 +++|* LPN 2 (CPU 1)
02402 M00S01998.set +++| ZJN SHO2 IF CPU NOT PRESENT
02403 M00S01999.set +++| STD T4
02404 M00S02000.set +++| SHN -1 SET PROCESSOR NUMBER
02405 M00S02001.set +++| STM MBUF
02406 M00S02002.set +++| LDN CPDS REQUEST CPU DESCRIPTOR
02407 M00S02003.set +++| RJM IAF
02408 M00S02004.set +++| LDM DBUF+PSTA CHECK PROCESSOR STATUS
| Line S02005 Modification History |
M01 (Removed by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02409 M01S02005.set66 ---| LPN 1
02410 M01S02006.set66 ---| SHOG SHN ** UPDATE CPU ON/OFF STATUS
| Line S00015 Modification History |
M01 (Added by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02411 M01S00015.set66 +++| LPC 1001 CHECK FOR OFF AND/OR DOWN
| Line S00016 Modification History |
M01 (Added by) | set66 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02412 M02S00016.271l750 ---| ZJN SHO2.1 IF PROCESSOR ON AND UP
02413 M02S00017.271l750 ---| SHOB LDN 1 UPDATE CPU ON/OFF STATUS
02414 M02S00018.271l750 ---|* LDN 2 (IF SECOND CPU)
| Line S00051 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02415 M01S00051.271l750 +++| ZJN SHO3 IF PROCESSOR ON AND UP
02416 M01S00052.271l750 +++| SHO2.1 LDD T4 UPDATE CPU ON/OFF STATUS
02417 M00S02007.set +++| RAM .CPU+1
| Line S02008 Modification History |
M01 (Removed by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02418 M01S02008.set66 ---| AOM SHOG ADVANCE TO NEXT CPU
| Line S00019 Modification History |
M01 (Added by) | set66 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02419 M02S00019.271l750 ---| SHO2.1 AOM SHOB ADVANCE TO NEXT CPU
| Line S02009 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02420 M01S02009.271l750 ---| LDM DBUF+PSTA CHECK CYBER 170 STATE
| Line S02010 Modification History |
M01 (Removed by) | set66 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02421 M02S02010.271l750 ---| SHOB LPN 3
02422 M02S02011.271l750 ---| ZJN SHO4 IF C170 STATE CPU AVAILABLE
02423 M02S02012.271l750 ---| SHO3 LDD T4
| Line S00020 Modification History |
M01 (Added by) | set66 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02424 M02S00020.271l750 ---| LPC 1003
02425 M02S00021.271l750 ---| ZJN SHO4 IF C170 STATE CPU AVAILABLE, ON AND UP
02426 M02S00022.271l750 ---| SHO3 LDD T4 DISABLE PROCESSOR
| Line S00053 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02427 M01S00053.271l750 +++| LDD T4 DISABLE PROCESSOR
02428 M00S02013.set +++| RAD HO
| Line S02014 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02429 M01S02014.271l750 ---| LJM SHO2 CHECK NEXT PROCESSOR
| Line S00054 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02430 M01S00054.271l750 +++| UJP SHO2 CHECK NEXT PROCESSOR
02431 M01S00055.271l750 +++|
02432 M01S00056.271l750 +++|* SET UP TO START SECOND CPU ON CACHE MACHINE.
02433 M01S00057.271l750 +++|
02434 M01S00058.271l750 +++| SHO3 LDM DBUF+HDMN SET PROCESSOR MODEL NUMBER
02435 M01S00059.271l750 +++| SHN -4
02436 M01S00060.271l750 +++| STM SHOF
02437 M01S00061.271l750 +++| SHN -4
02438 M01S00062.271l750 +++| LMN 0#1
02439 M01S00063.271l750 +++| NJN SHO3.2 IF NOT P1 PROCESSOR
02440 M01S00064.271l750 +++| STM ISPF SET ISMD-CAPABLE PROCESSOR FLAG
02441 M01S00065.271l750 +++| SHO3.1 LJM SHO4 START CPU
02442 M01S00066.271l750 +++|
02443 M01S00067.271l750 +++| SHO3.2 LDM SHOA
02444 M01S00068.271l750 +++| LPN 2
02445 M01S00069.271l750 +++| ZJN SHO3.1 IF NOT PROCESSING CPU 1
02446 M01S00070.271l750 +++| LDM SHOF CHECK PROCESSOR MODEL NUMBER
02447 M01S00071.271l750 +++| LMC 0#3A
| Line S00072 Modification History |
M01 (Added by) | 271l750 |
M02 (Removed by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02448 M02S00072.ns2730 ---| NJN SHO2.1 IF NOT 960-32, DO NOT START CPU
02449 M02S00073.ns2730 ---| LDN CPSL SET IDLE PROGRAM FOR CPU1 OF CACHE MACHINE
| Line S00017 Modification History |
M01 (Added by) | ns2730 |
Seq # *Modification Id* Act
----------------------------+
02450 M01S00017.ns2730 +++| ZJN SHO3.5 IF 960-32
02451 M01S00018.ns2730 +++| LMN 0#32&0#3A
02452 M01S00019.ns2730 +++| ZJN SHO3.3 IF 870
02453 M01S00020.ns2730 +++| LMC 0#41&0#32
02454 M01S00021.ns2730 +++| ZJN SHO3.3 IF 990 MODEL B
02455 M01S00022.ns2730 +++| LMN 0#44&0#41
02456 M01S00023.ns2730 +++| NJN SHO3.4 IF NOT 994, DO NOT START CPU
02457 M01S00024.ns2730 +++| SHO3.3 LDN 0
02458 M01S00025.ns2730 +++|* LDN 10 (DUAL-NOS-CPU SELECTED IN *CIP*)
02459 M01S00026.ns2730 +++| SHOB EQU *-1
02460 M01S00027.ns2730 +++| STM DCPS SET DUAL-NOS-CPU SELECTED FLAG
02461 M01S00028.ns2730 +++| NJN SHO3.5 IF DUAL-NOS-CPU SELECTED
02462 M01S00029.ns2730 +++| SHO3.4 LJM SHO2.1 DO NOT START SECOND CPU
02463 M01S00030.ns2730 +++|
02464 M01S00031.ns2730 +++| SHO3.5 LDN CPSL SET IDLE PROGRAM FOR CPU1 OF CACHE MACHINE
| Line S00074 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02465 M01S00074.271l750 +++| CWM PRSA,ON
02466 M01S00075.271l750 +++| STM DCPC SET DUAL 170-STATE CPUS WITH CACHE FLAG
02467 M01S00076.271l750 +++| SCF. *,MR GET MAINTENANCE CHANNEL
02468 M01S00077.271l750 +++| LDK RMRF READ ENVIRONMENTAL CONTROL REGISTER
02469 M01S00078.271l750 +++| RJM RWR
02470 M01S00079.271l750 +++| DCN. MR
02471 M01S00080.271l750 +++| LDM RBUF+4 ENABLE PORT TO SECOND CPU
02472 M01S00081.271l750 +++| SCN 40
02473 M01S00082.271l750 +++| STM RBUF+4
02474 M01S00083.271l750 +++| LDK WMRF WRITE *EC* REGISTER
02475 M01S00084.271l750 +++| RJM RWR
02476 M01S00085.271l750 +++| FJM. *,MR IF CHANNEL BUSY, WAIT
02477 M01S00086.271l750 +++| DCN. MR
02478 M01S00087.271l750 +++| CCF. *,MR RELEASE CHANNEL
02479 M01S00088.271l750 +++|
02480 M01S00089.271l750 +++|* START CPU.
02481 M00S02015.set +++|
02482 M00S02016.set +++| SHO4 LDM DBUF+MCTC START CPU
02483 M00S02017.set +++| STM P2CC
02484 M00S02018.set +++| SCF. SHO4,MR REQUEST CHANNEL FLAG
02485 M00S02019.set +++| LMN /IOU/MRSP
| Line S02020 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02486 M01S02020.271l750 ---| FAN. MR
02487 M01S02021.271l750 ---| LDM DBUF+HDMN SET PROCESSOR MODEL NUMBER
02488 M01S02022.271l750 ---| SHN -4
02489 M01S02023.271l750 ---| STD T1
02490 M01S02024.271l750 ---| STM SHOF
02491 M01S02025.271l750 ---| LDN SHODL CHECK IF PROCESSOR SUPPORTS ISMD DEVICES
02492 M01S02026.271l750 ---| STD T2
| Line S00090 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02493 M01S00090.271l750 +++| FAN. MR START CPU
02494 M00S02027.set +++| CCF. *+2,MR
| Line S02028 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02495 M01S02028.271l750 ---| SHOE UJN SHO5 SET ISMD STATUS
| Line S00091 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02496 M01S00091.271l750 +++| UJN SHO6 CHECK NEXT PROCESSOR
02497 M00S02029.set +++|* PSN (NON - CM RECOVERY)
| Line S00092 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02498 M01S00092.271l750 +++| SHOE EQU *-1
02499 M00S02030.set +++| LDD HO
02500 M00S02031.set +++| LPN 10
| Line S02032 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02501 M01S02032.271l750 ---| NJN SHO5 IF CMU SIMULATION OFF
| Line S00093 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02502 M01S00093.271l750 +++| NJN SHO6 IF CMU SIMULATION OFF
02503 M00S02033.set +++| LDM DBUF+CPOP
02504 M00S02034.set +++| LPN 10 ADJUST CMU STATUS
02505 M00S02035.set +++| RAD HO
| Line S02036 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02506 M01S02036.271l750 ---| SHO5 SOD T2
02507 M01S02037.271l750 ---| MJN SHO6 IF END OF TABLE
02508 M01S02038.271l750 ---| LDM SHOD,T2
02509 M01S02039.271l750 ---| LMD T1
02510 M01S02040.271l750 ---| LPN 77
02511 M01S02041.271l750 ---| NJN SHO5 IF NO MATCH
02512 M01S02042.271l750 ---| STM ISPF
02513 M00S02043.set +++| SHO6 LJM SHO2 CHECK NEXT PROCESSOR
02514 M00S02044.set +++|
02515 M00S02045.set +++|
02516 M00S02046.set +++| SHOC VFD 12/0400,18/0,15/61000,15/46000
| Line S00001 Modification History |
M01 (Added by) | ns2642 |
Seq # *Modification Id* Act
----------------------------+
02517 M01S00001.ns2642 +++| PMNT SPACE 4,20
02518 M00S02047.set +++|** PMNT - TABLE OF PROCESSOR MODEL NUMBERS.
02519 M00S02048.set +++|*
02520 M00S02049.set +++|*T, 4/ E, 8/ M.
02521 M00S02050.set +++|*
02522 M00S02051.set +++|* E = ENTRIES PER MAINTENANCE REGISTER BUFFER.
02523 M00S02052.set +++|* M = PROCESSOR MODEL NUMBER.
| Line S00057 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02524 M01S00057.261l700 +++|*
02525 M01S00058.261l700 +++|* MODELS WHICH REQUIRE DEDICATED *DFT* STATUS AS THE DEFAULT
02526 M01S00059.261l700 +++|* MUST APPEAR AT THE START OF THE TABLE. THIS INCLUDES MODELS
02527 M01S00060.261l700 +++|* 96X AND 99X.
02528 M00S02053.set +++|
02529 M00S02054.set +++|
02530 M00S02055.set +++| PMNT BSS 0
| Line S02056 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02531 M01S02056.261l700 ---| VFD 4/6,8/100 CYBER 180-990 THIS MUST BE THE FIRST ENTRY
02532 M01S02057.261l700 ---| VFD 4/6,8/101 CYBER 180-990 MODEL B
02533 M01S02058.261l700 ---| VFD 4/5,8/64 CYBER 180-840
02534 M01S02059.261l700 ---| VFD 4/5,8/67 CYBER 180-840S
02535 M01S02060.261l700 ---| VFD 4/5,8/63 CYBER 180-850
02536 M01S02061.261l700 ---| VFD 4/5,8/62 CYBER 180-860
02537 M01S02062.261l700 ---| VFD 4/5,8/61 CYBER 170-845
02538 M01S02063.261l700 ---| VFD 4/5,8/65 CYBER 170-845S
02539 M01S02064.261l700 ---| VFD 4/5,8/60 CYBER 170-855
02540 M01S02065.261l700 ---| VFD 4/5,8/66 CYBER 170-855S
02541 M01S02066.261l700 ---| VFD 4/3,8/40 CYBER 170-835
02542 M01S02067.261l700 ---| SHOD BSS 0 TABLE FOR *ISD* PROCESSORS
02543 M01S02068.261l700 ---| VFD 4/3,8/24 CYBER 180-810
02544 M01S02069.261l700 ---| VFD 4/3,8/23 CYBER 180-830
02545 M01S02070.261l700 ---| VFD 4/3,8/22 CYBER 170-825
| Line S00001 Modification History |
M01 (Added by) | ns2545 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02546 M02S00001.261l700 ---| VFD 4/3,8/26 CYBER 180-825S
| Line S02071 Modification History |
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02547 M01S02071.261l700 ---| VFD 4/3,8/21 CYBER 170-815
| Line S00001 Modification History |
M01 (Added by) | ns2540 |
M02 (Removed by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02548 M02S00001.261l700 ---| VFD 4/3,8/25 CYBER 180-815S
| Line S00061 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02549 M01S00061.261l700 +++| VFD 4/6,8/0#40 CYBER 180-990
02550 M01S00062.261l700 +++| VFD 4/6,8/0#41 CYBER 180-990 MODEL B
| Line S00001 Modification History |
M01 (Added by) | ns2603 |
Seq # *Modification Id* Act
----------------------------+
02551 M01S00001.ns2603 +++| VFD 4/6,8/0#44 CYBER 180-994
| Line S00063 Modification History |
M01 (Added by) | 261l700 |
M02 (Removed by) | ns2642 |
Seq # *Modification Id* Act
----------------------------+
02552 M02S00063.ns2642 ---| VFD 4/6,8/0#3A CYBER 180-960
| Line S00002 Modification History |
M01 (Added by) | ns2642 |
Seq # *Modification Id* Act
----------------------------+
02553 M01S00002.ns2642 +++| VFD 4/6,8/0#3B CYBER 180-960-11
02554 M01S00003.ns2642 +++| VFD 4/6,8/0#3A CYBER 180-960-31/32
| Line S00064 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02555 M01S00064.261l700 +++| PMNTA EQU *-PMNT END OF DEFAULT DEDICATED *DFT* MODELS
02556 M01S00065.261l700 +++| VFD 4/5,8/0#34 CYBER 180-840
02557 M01S00066.261l700 +++| VFD 4/5,8/0#37 CYBER 180-840S
02558 M01S00067.261l700 +++| VFD 4/5,8/0#33 CYBER 180-850
02559 M01S00068.261l700 +++| VFD 4/5,8/0#32 CYBER 180-860
02560 M01S00069.261l700 +++| VFD 4/5,8/0#31 CYBER 180-845
02561 M01S00070.261l700 +++| VFD 4/5,8/0#35 CYBER 180-845S
02562 M01S00071.261l700 +++| VFD 4/5,8/0#30 CYBER 180-855
02563 M01S00072.261l700 +++| VFD 4/5,8/0#36 CYBER 180-855S
02564 M01S00073.261l700 +++| VFD 4/3,8/0#20 CYBER 180-835
| Line S00074 Modification History |
M01 (Added by) | 261l700 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02565 M02S00074.271l750 ---| SHOD BSS 0 TABLE FOR *ISD* PROCESSORS
| Line S00075 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02566 M01S00075.261l700 +++| VFD 4/3,8/0#14 CYBER 180-810
02567 M01S00076.261l700 +++| VFD 4/3,8/0#13 CYBER 180-830
02568 M01S00077.261l700 +++| VFD 4/3,8/0#12 CYBER 180-825
02569 M01S00078.261l700 +++| VFD 4/3,8/0#16 CYBER 180-825S
02570 M01S00079.261l700 +++| VFD 4/3,8/0#11 CYBER 180-815
02571 M01S00080.261l700 +++| VFD 4/3,8/0#15 CYBER 180-815S
02572 M00S02072.set +++| PMNTL EQU *-PMNT LENGTH OF TABLE
| Line S02073 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02573 M01S02073.271l750 ---| SHODL EQU *-SHOD LENGTH OF *ISD* TABLE
02574 M00S02074.set +++|
| Line S00081 Modification History |
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act
----------------------------+
02575 M01S00081.261l700 +++| SHOH DATA C*CPU MODEL NOT FOUND*
| Line S00023 Modification History |
M01 (Added by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02576 M01S00023.set66 +++| VCC SPACE 4,10
02577 M01S00024.set66 +++|** VCC - VERIFY CPU CONFIGURATION.
02578 M01S00025.set66 +++|*
02579 M01S00026.set66 +++|* ENTRY (VCCA) = ORIGINAL (HO) FROM PRIOR DEADSTART.
02580 M01S00027.set66 +++|*
02581 M01S00028.set66 +++|* EXIT (A) = ORIGINAL (HO).
02582 M01S00029.set66 +++|*
02583 M01S00030.set66 +++|* ERROR TO *DSE* IF CPU STATE CHANGE.
02584 M01S00031.set66 +++|*
02585 M01S00032.set66 +++|* USES CM - CM+4.
02586 M01S00033.set66 +++|
02587 M01S00034.set66 +++|
02588 M01S00035.set66 +++| VCC2 LDM VCCA CHECK CPU STATE CHANGE
02589 M01S00036.set66 +++| LMD HO
02590 M01S00037.set66 +++| LPN 3
02591 M01S00038.set66 +++| ZJN VCC3 IF CPU STATUS HAS NOT CHANGED
02592 M01S00039.set66 +++| LMN 3
02593 M01S00040.set66 +++| NJN VCC1 IF CPU STATUSES HAVE NOT SWAPPED
02594 M01S00041.set66 +++| VCC3 LDC ** RESTORE (HO)
02595 M01S00042.set66 +++| VCCA EQU *-1
02596 M01S00043.set66 +++| STD HO
02597 M01S00044.set66 +++|
02598 M01S00045.set66 +++| VCC SUBR ENTRY/EXIT
02599 M01S00046.set66 +++| LDN SSTL CHECK NOS/VE STATUS
02600 M01S00047.set66 +++| CRD CM
02601 M01S00048.set66 +++| LDD CM+3
02602 M01S00049.set66 +++| SHN 0-13
02603 M01S00050.set66 +++| NJN VCC2 IF NOS/VE DISABLED
02604 M01S00051.set66 +++| LDM VCCA CHECK CPU STATE CHANGE FOR CPU 0
02605 M01S00052.set66 +++| LMD HO
02606 M01S00053.set66 +++| LPN 1
| Line S00054 Modification History |
M01 (Added by) | set66 |
M02 (Removed by) | set66a |
Seq # *Modification Id* Act
----------------------------+
02607 M02S00054.set66a ---| ZJN VCC2 IF CPU 0 AVAILABLE
| Line S00001 Modification History |
M01 (Added by) | set66a |
Seq # *Modification Id* Act
----------------------------+
02608 M01S00001.set66a +++| ZJN VCC3 IF CPU 0 AVAILABLE
| Line S00055 Modification History |
M01 (Added by) | set66 |
Seq # *Modification Id* Act
----------------------------+
02609 M01S00055.set66 +++| VCC1 LDC VCCB *CPU STATE CHANGE.*
02610 M01S00056.set66 +++| JMP DSE DISPLAY ERROR AND HANG
02611 M01S00057.set66 +++|
02612 M01S00058.set66 +++|
02613 M01S00059.set66 +++| VCCB DATA C*CPU STATE CHANGE.*
02614 M00S02075.set +++| SPACE 4,10
02615 M00S02076.set +++|** COMMON DECKS.
02616 M00S02077.set +++|
02617 M00S02078.set +++|
02618 M00S02079.set +++| QUAL
02619 M00S02080.set +++| API$ SET 1 SELECT ALTERNATE PP REQUEST INTERFACE
02620 M00S02081.set +++| APM$ SET 1 SELECT ALTERNATE PP MANAGEMENT ROUTINE
02621 M00S02082.set +++| QUAL *
02622 M00S02083.set +++|*CALL COMPAPI
02623 M00S02084.set +++| TRCO SPACE 4,10
02624 M00S02085.set +++|** TRCO - TABLE OF RECOVERY OPTIONS.
02625 M00S02086.set +++|* ENTRY = 1 WORD.
02626 M00S02087.set +++|* INDEXED WITH RECOVERY MODE.
02627 M00S02088.set +++|*
02628 M00S02089.set +++|*T, 12/ RO
02629 M00S02090.set +++|* RO RECOVERY OPTIONS
02630 M00S02091.set +++|
02631 M00S02092.set +++|
02632 M00S02093.set +++| TRCO BSS 0
02633 M00S02094.set +++| LOC 0
02634 M00S02095.set +++|
02635 M00S02096.set +++| CON 0
02636 M00S02097.set +++| CON FLTB+SYTB
02637 M00S02098.set +++| CON FLTB
02638 M00S02099.set +++| CON JBCM+FLCM+SYCM
02639 M00S02100.set +++|
02640 M00S02101.set +++| LOC *O
02641 M00S02102.set +++|
02642 M00S02103.set +++|
02643 M00S02104.set +++| EBTA CON 0,0,0,2RRD,0 *RD*
02644 M00S02105.set +++| CON 0,0,0,0,0
02645 M00S02106.set +++| CON 0,CH+4000,0,2RDS,7000 *DS*
02646 M00S02107.set +++| CON 0,0,0,0,0
02647 M00S02108.set +++| CON 2000,0,0,2RNE,0 *NE*
02648 M00S02109.set +++| CON 0,0,0,7,0
02649 M00S02110.set +++| CON 2000,0,0,2RTE,0 *TE*
02650 M00S02111.set +++| CON 0,0,0,7,0
02651 M00S02112.set +++| CON 2000,0,0,2RTT,NIAC *TT*
02652 M00S02113.set +++| CON 0,0,0,7,0
02653 M00S02114.set +++|
02654 M00S02115.set +++|
02655 M00S02116.set +++| NIAC EQU 200 DEFAULT NUMBER OF NETWORK CONNECTIONS
02656 M00S02117.set +++| SPACE 4,10
02657 M00S02118.set +++| ERRZR BC-12 INCORRECT CHANNEL DEFINITION
02658 M00S02119.set +++| SPACE 4,10
02659 M00S02120.set +++|** CPU IDLE PROGRAMS.
02660 M00S02121.set +++|
02661 M00S02122.set +++|
02662 M00S02123.set +++| PRSA VFD 12/0400,18/CPSL,30/0
02663 M00S02124.set +++| SPACE 4,10
02664 M00S02125.set +++|** EXCHANGE PACKAGE.
02665 M00S02126.set +++|
02666 M00S02127.set +++|
02667 M00S02128.set +++| PRSB VFD 6/0,18/CPSL,36/0
02668 M00S02129.set +++| VFD 60/0
02669 M00S02130.set +++| VFD 6/0,18/200,36/0
02670 M00S02131.set +++| VFD 60/0
02671 M00S02132.set +++| VFD 60/0
02672 M00S02133.set +++| VFD 60/0
02673 M00S02134.set +++| VFD 60/0
02674 M00S02135.set +++|
02675 M00S02136.set +++|
02676 M00S02137.set +++| USE LITERALS
02677 M00S02138.set +++| TITLE PP BUFFER IDLER PROGRAM.
02678 M00S02139.set +++| IBUF BSS 0
02679 M00S02140.set +++| QUAL BPP
02680 M00S02141.set +++| MACROS SPACE 4,10
02681 M00S02142.set +++|** MACRO DEFINITIONS.
02682 M00S02143.set +++|
02683 M00S02144.set +++|
02684 M00S02145.set +++|** TBLM = GENERATE TABLE OF DEFAULT CONTROLWARE TYPES
02685 M00S02146.set +++|* TO LOAD.
02686 M00S02147.set +++|*
02687 M00S02148.set +++|* TBLM EQ
02688 M00S02149.set +++|* EQ = MASS STORAGE EQUIPMENT MNEMONIC.
02689 M00S02150.set +++|
02690 M00S02151.set +++|
02691 M00S02152.set +++| TBLM MACRO EQ
02692 M00S02153.set +++| VFD 12/2R_EQ
02693 M00S02154.set +++| VFD 12/C"FW_EQ"
02694 M00S02155.set +++| ENDM
02695 M00S02156.set +++| SPACE 4,10
02696 M00S02157.set +++|** ASSEMBLY CONSTANTS.
02697 M00S02158.set +++|
02698 M00S02159.set +++|
02699 M00S02160.set +++| Y545 EQU //Y545-YINC BOTTOM OF SCREEN - CC545
02700 M00S02161.set +++| Y721 EQU //Y721-YINC BOTTOM OF SCREEN - CDC721
02701 M00S02162.set +++| SPACE 4,10
02702 M00S02163.set +++|**** DIRECT LOCATION ASSIGNMENTS.
02703 M00S02164.set +++|
02704 M00S02165.set +++|
02705 M00S02166.set +++| LOC 0
02706 M00S02167.set +++| CON IDL-1 START ADDRESS - 1
02707 M00S02168.set +++| BSS 2
02708 M00S02169.set +++| CB BSS 5 DAYFILE AND SYSTEM DEFAULT FAMILY BUFFER
02709 M00S02170.set +++| WB BSS 5 CM WORD BUFFER
02710 M00S02171.set +++| BA CON 0 BUFFER ADDRESS
02711 M00S02172.set +++| BL CON 0 BUFFER LIMIT
02712 M00S02173.set +++| DB CON 0 DISPLAY BUFFER INDEX
02713 M00S02174.set +++| LN CON 0 LINE NUMBER
02714 M00S02175.set +++| LL CON 0 LINE LIMIT
02715 M00S02176.set +++| WC CON 0 PRU WORD COUNT
02716 M00S02177.set +++| SX CON 6 CONSTANT SIX
| Line S02178 Modification History |
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
02717 M01S02178.284l847 ---| FR CON 4 CONSTANT FOUR
| Line S00019 Modification History |
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
02718 M01S00019.284l847 +++| DV CON TDDCL MASS STORAGE DESCRIPTOR TABLE LENGTH
02719 M00S02179.set +++| ON CON 1 CONSTANT ONE
02720 M00S02180.set +++| PA CON 0 PROCESSOR ADDRESS
02721 M00S02181.set +++| FD CON 0 FULL DISPLAY STATUS
02722 M00S02182.set +++| FP CON 0 FUNCTION PARAMETER
02723 M00S02183.set +++| SN CON 0 SCREEN NUMBER
02724 M00S02184.set +++| DN CON -0 DECK NUMBER
02725 M00S02185.set +++|
02726 M00S02186.set +++| TDBP BSS 0 TABLE OF DISPLAY BUFFER PARAMETERS
02727 M00S02187.set +++| CON GDH INSTRUCTION DECK DISPLAY
02728 M00S02188.set +++| FA CON 0 FIRST BUFFER ADDRESS
02729 M00S02189.set +++| FW CON 0 FIRST BUFFER LINE COUNT
02730 M00S02190.set +++| FI CON 0 DISPLAY INDEX
02731 M00S02191.set +++| CON RTL TEXT DECK DISPLAY
02732 M00S02192.set +++| SA CON 0 SECOND BUFFER ADDRESS
02733 M00S02193.set +++| SW CON 0 SECOND BUFFER LINE COUNT
02734 M00S02194.set +++| SI CON 0 DISPLAY INDEX
02735 M00S02195.set +++| CON 0 EST DISPLAY
02736 M00S02196.set +++| EA CON 0 EST BUFFER ADDRESS
02737 M00S02197.set +++| EW CON NOPE EST EQUIPMENT COUNT
02738 M00S02198.set +++| EI CON 0 DISPLAY INDEX
02739 M00S02199.set +++| CON GMD MASS STORAGE DISPLAY
02740 M00S02200.set +++| MA CON 0 MST PARAMETER BUFFER ADDRESS
02741 M00S02201.set +++| MW CON NOPE DISPLAY CONTROL
02742 M00S02202.set +++| CON 0 DISPLAY INDEX
02743 M00S02203.set +++| CON GID MASS STORAGE INITIALIZATION DISPLAY
02744 M00S02204.set +++| CON 0 MST PARAMETER BUFFER ADDRESS
02745 M00S02205.set +++| IW CON NOPE DISPLAY CONTROL
02746 M00S02206.set +++| CON 0 DISPLAY INDEX
02747 M00S02207.set +++| CON GTD MASS STORAGE ERROR THRESHOLD DISPLAY
02748 M00S02208.set +++| CON 0 MST PARAMETER BUFFER ADDRESS
02749 M00S02209.set +++| TW CON NOPE DISPLAY CONTROL
02750 M00S02210.set +++| CON 0 DISPLAY INDEX
02751 M00S02211.set +++| CON GCD CONTROLWARE STATUS DISPLAY
02752 M00S02212.set +++| CON 0 BUFFER ADDRESS
02753 M00S02213.set +++| CW CON 0 DISPLAY CONTROL
02754 M00S02214.set +++| CON 0 DISPLAY INDEX
02755 M00S02215.set +++| CON 0 END OF DISPLAYS
02756 M00S02216.set +++|
02757 M00S02217.set +++| CV CON 0 CLOCK VALUE
02758 M00S02218.set +++| ET CON 0 ELAPSED TIME
02759 M00S02219.set +++| BSS 77-*
02760 M00S02220.set +++| YY CON YCSH Y-COORDINATE
02761 M00S02221.set +++| XX CON CH01 X-COORDINATE
02762 M00S02222.set +++| LBUF EQU YY+2 LINE BUFFER
02763 M00S02223.set +++| BSS KBUFL/2
02764 M00S02224.set +++| CON 0
02765 M00S02225.set +++|****
02766 M00S02226.set +++| IDL SPACE 4,10
02767 M00S02227.set +++|** IDL - IDLER.
02768 M00S02228.set +++|
02769 M00S02229.set +++|
02770 M00S02230.set +++| IDL IAN BC INPUT FUNCTION REQUEST
02771 M00S02231.set +++| STD T1
02772 M00S02232.set +++| LDM TFCN,T1 PROCESS FUNCTION
02773 M00S02233.set +++| STM IDLA
02774 M00S02234.set +++| IAN BC INPUT PARAMETER
02775 M00S02235.set +++| LJM *
02776 M00S02236.set +++| IDLA EQU *-1
02777 M00S02237.set +++| TFCN SPACE 4
02778 M00S02238.set +++|** TFCN - FUNCTION PROCESSORS.
02779 M00S02239.set +++|
02780 M00S02240.set +++|
02781 M00S02241.set +++| TFCN BSS 0
02782 M00S02242.set +++| LOC 0
02783 M00S02243.set +++| DFIM (CON RSP1)
02784 M00S02244.set +++| CON RSP RESET PP
02785 M00S02245.set +++| CON IFB INPUT FIRST BUFFER
02786 M00S02246.set +++| CON ISB INPUT SECOND BUFFER
02787 M00S02247.set +++| CON DDD DISPLAY BUFFER DATA
02788 M00S02248.set +++| CON UEC UPDATE EQUIPMENT COUNT
02789 M00S02249.set +++| CON ONL OUTPUT NEXT LINE
02790 M00S02250.set +++| CON RCL REPLACE CURRENT LINE
02791 M00S02251.set +++| CON ANL ADD NEXT LINE
02792 M00S02252.set +++| CON ADB ADVANCE BUFFER
02793 M00S02253.set +++| CON ADD ADVANCE DISPLAY
02794 M00S02254.set +++| CON RPS RESET POINTERS ON SECOND BUFFER
02795 M00S02255.set +++| LOC *L+TFCN
02796 M00S02256.set +++| TIDP SPACE 4,10
02797 M00S02257.set +++|** TIDP - TABLE OF INITIAL DISPLAY PROCESSORS.
02798 M00S02258.set +++|
02799 M00S02259.set +++|
02800 M00S02260.set +++| TIDP BSS 0
02801 M00S02261.set +++| LOC 0
02802 M00S02262.set +++| CMRD CON GDH CMRDECK
02803 M00S02263.set +++| EQPD CON EQP EQPDECK
02804 M00S02264.set +++| APRD CON ADP APRDECK
02805 M00S02265.set +++| IPRD CON GDH IPRDECK
02806 M00S02266.set +++| LOC *L+TIDP
02807 M00S02267.set +++| SPACE 4,10
02808 M00S02268.set +++|** DISPLAY SUBROUTINES.
02809 M00S02269.set +++|
02810 M00S02270.set +++|
02811 M00S02271.set +++| FNC DSUB
02812 M00S02272.set +++| RSP SPACE 4
02813 M00S02273.set +++|** RSP - RESET PP.
02814 M00S02274.set +++|
02815 M00S02275.set +++|
02816 M00S02276.set +++| RSP1 CFNC SLSF SELECT LEFT SCREEN - SMALL CHARACTERS
02817 M00S02277.set +++| DISPLA CH20,LN15,(INITIALIZING SYSTEM LOAD.)
02818 M00S02278.set +++| CFNC THCF TRANSFER HIDDEN AND CLEAR
02819 M00S02279.set +++| DFIM (CON SDCF),*+1
02820 M00S02280.set +++| RSP LDC DDCF CLEAR DISPLAY CONTROLLER
02821 M00S02281.set +++| CFNC
02822 M00S02282.set +++| LDC 1000
02823 M00S02283.set +++| OAN BC
02824 M00S02284.set +++| SBN 1
02825 M00S02285.set +++| NJN *-1
02826 M00S02286.set +++| DCN CH
02827 M00S02287.set +++| IAM 0,BC
02828 M00S02288.set +++| IFB SPACE 4
02829 M00S02289.set +++|** IFB - INPUT FIRST BUFFER.
02830 M00S02290.set +++|
02831 M00S02291.set +++|
02832 M00S02292.set +++| IFB STD DN SET DECK TYPE
02833 M00S02293.set +++| LDN FA UNPACK INSTRUCTION DECK
02834 M00S02294.set +++| RJM UTD
02835 M00S02295.set +++| ADN 7 SET SECOND BUFFER ADDRESS
02836 M00S02296.set +++| SHN -3
02837 M00S02297.set +++| ADD FA
02838 M00S02298.set +++| STD SA
02839 M00S02299.set +++| LDN 0 SET DISPLAY POINTER TO FIRST BUFFER
02840 M00S02300.set +++| STD DB
02841 M00S02301.set +++| STD EA-1 DISABLE EQPDECK DISPLAYS
02842 M00S02302.set +++| LDM TIDP,DN SET INITIAL DISPLAY PROCESSOR
02843 M00S02303.set +++| STD SA-1
02844 M00S02304.set +++| JMP IDL RETURN
02845 M00S02305.set +++| ISB SPACE 4
02846 M00S02306.set +++|** ISB - INPUT SECOND BUFFER.
02847 M00S02307.set +++|
02848 M00S02308.set +++|
02849 M00S02309.set +++| ISB LDN SA UNPACK TEXT DECK
02850 M00S02310.set +++| RJM UTD
02851 M00S02311.set +++| JMP IDL RETURN
02852 M00S02312.set +++| DDD SPACE 4,10
02853 M00S02313.set +++|** DDD - DISPLAY DEADSTART DATA.
02854 M00S02314.set +++|
02855 M00S02315.set +++|
02856 M00S02316.set +++| DDD LDM TDBP+3,DB SET BUFFER INDEX
02857 M00S02317.set +++| STD T1
02858 M00S02318.set +++| LDN 1
02859 M00S02319.set +++| STD SN
02860 M00S02320.set +++| IAN. 14 SET INITIAL CLOCK VALUE
02861 M00S02321.set +++| STD CV
02862 M00S02322.set +++| LDC SLSF SELECT LEFT SCREEN - SMALL CHARACTERS
02863 M00S02323.set +++| DDD1 CFNC
02864 M00S02324.set +++| LDM TDBP,DB SET PROCESSOR ADDRESS
02865 M00S02325.set +++| STD PA
02866 M00S02326.set +++| LDC BL01 SET Y-COORDINATE
02867 M00S02327.set +++| STD YY
02868 M00S02328.set +++| DDD3 RJM 0,PA FETCH DISPLAY LINE
02869 M00S02329.set +++| MJN DDD9 IF FORMAT EFFECTOR ENCOUNTERED
02870 M00S02330.set +++| NJN DDD6 IF NOT END OF DISPLAY
02871 M00S02331.set +++| DDD4 STD FD
02872 M00S02332.set +++| DDD5 RJM CDP COMPLETE DISPLAY PROCESSING
02873 M00S02333.set +++| DCN BC
02874 M00S02334.set +++| JMP IDL RETURN
02875 M00S02335.set +++|
02876 M00S02336.set +++| DDD6 OAM. YY,CH OUTPUT DISPLAY LINE
02877 M00S02337.set +++| DFIM (UJN DDD8)
02878 M00S02338.set +++| IAN. 14 READ CLOCK
02879 M00S02339.set +++| STD T0
02880 M00S02340.set +++| SBD CV
02881 M00S02341.set +++| PJN DDD7 IF NO OVERFLOW
02882 M00S02342.set +++| ADC 10000
02883 M00S02343.set +++| DDD7 SHN -11
02884 M00S02344.set +++| ZJN DDD8 IF NOT HALF MILLISECOND ELAPSED
02885 M00S02345.set +++| RAD ET
02886 M00S02346.set +++| LDD T0
02887 M00S02347.set +++| STD CV SET NEW CLOCK VALUE
02888 M00S02348.set +++| DDD8 AOD T1
02889 M00S02349.set +++| STD FD ADVANCE FULL DISPLAY STATUS
02890 M00S02350.set +++| LMM TDBP+2,DB
02891 M00S02351.set +++| ZJN DDD4 IF END OF DATA IN BUFFER
02892 M00S02352.set +++| LCN YINC
02893 M00S02353.set +++| RAD YY ADVANCE Y-COORDINATE
02894 M00S02354.set +++| DFIM (ADC -Y721)
02895 M00S02355.set +++| ADC -Y545
02896 M00S02356.set +++| PJN DDD3 IF NOT BOTTOM OF SCREEN
02897 M00S02357.set +++| DDD9 SOD SN
02898 M00S02358.set +++| MJN DDD5 IF RIGHT SCREEN DISPLAYED
02899 M00S02359.set +++| FJM. *,CH
02900 M00S02360.set +++| DCN. CH
02901 M00S02361.set +++| LDC SRSF SELECT RIGHT SCREEN
02902 M00S02362.set +++| LJM DDD1 DISPLAY RIGHT SCREEN
02903 M00S02363.set +++| UEC SPACE 4,10
02904 M00S02364.set +++|** UEC - UPDATE EQUIPMENT COUNT.
02905 M00S02365.set +++|
02906 M00S02366.set +++|
02907 M00S02367.set +++| UEC STD EW UPDATE EQUIPMENT LIMIT
02908 M00S02368.set +++| DCN BC
02909 M00S02369.set +++| STD MW
02910 M00S02370.set +++| STD IW
02911 M00S02371.set +++| STD TW
02912 M00S02372.set +++| JMP IDL RETURN
02913 M00S02373.set +++| ONL SPACE 4
02914 M00S02374.set +++|** ONL - OUTPUT NEXT LINE.
02915 M00S02375.set +++|
02916 M00S02376.set +++|
02917 M00S02377.set +++| ONL AOD LN ADVANCE LINE NUMBER
02918 M00S02378.set +++| LMD SW
02919 M00S02379.set +++| ZJN ONL1 IF END OF DATA
02920 M00S02380.set +++| LDD SA
02921 M00S02381.set +++| SHN 3
02922 M00S02382.set +++| ADD LN READ NEXT LINE
02923 M00S02383.set +++| SHN 3
02924 M00S02384.set +++| ONL1 CRM LBUF,SX
02925 M00S02385.set +++| LDN LBUFL+1 OUTPUT LINE
02926 M00S02386.set +++| OAM LBUF,BC
02927 M00S02387.set +++| AJM *,BC WAIT OUTPUT COMPLETE
02928 M00S02388.set +++| JMP IDL RETURN
02929 M00S02389.set +++| RCL SPACE 4,10
02930 M00S02390.set +++|** RCL - REPLACE CURRENT LINE.
02931 M00S02391.set +++|
02932 M00S02392.set +++|
02933 M00S02393.set +++| RCL LDD LN REPLACE LINE
02934 M00S02394.set +++| RJM ADL
02935 M00S02395.set +++| JMP IDL RETURN
02936 M00S02396.set +++| ANL SPACE 4
02937 M00S02397.set +++|** ANL - ADD NEXT LINE.
02938 M00S02398.set +++|
02939 M00S02399.set +++|
02940 M00S02400.set +++| ANL LDD SW ADD LINE
02941 M00S02401.set +++| RJM ADL
02942 M00S02402.set +++| ZJN ANL1 IF BUFFER FULL
02943 M00S02403.set +++| AOD SW ADVANCE LINE COUNT
02944 M00S02404.set +++| ANL1 JMP IDL RETURN
02945 M00S02405.set +++| ADB SPACE 4,10
02946 M00S02406.set +++|** ADB - ADVANCE BUFFER.
02947 M00S02407.set +++|
02948 M00S02408.set +++|
02949 M00S02409.set +++| ADB LDD FD
02950 M00S02410.set +++| ZJN ADB1 IF NOT FULL DISPLAY
02951 M00S02411.set +++| LMM TDBP+2,DB
02952 M00S02412.set +++| ZJN ADB1 IF END OF BUFFER
02953 M00S02413.set +++| LDD FD
02954 M00S02414.set +++| ADB1 STM TDBP+3,DB RESET BUFFER INDEX
02955 M00S02415.set +++| ADB2 DCN BC
02956 M00S02416.set +++| JMP IDL RETURN
02957 M00S02417.set +++| ADD SPACE 4,10
02958 M00S02418.set +++|** ADD - ADVANCE DISPLAY.
02959 M00S02419.set +++|
02960 M00S02420.set +++|
02961 M00S02421.set +++| ADD LDN SA-FA ADVANCE DISPLAY POINTER
02962 M00S02422.set +++| RAD DB
02963 M00S02423.set +++| LDM TDBP,DB
02964 M00S02424.set +++| NJN ADD1 IF NOT END OF DISPLAYS
02965 M00S02425.set +++| STD DB RESET FIRST DISPLAY
02966 M00S02426.set +++| ADD1 JMP ADB2 RETURN
02967 M00S02427.set +++| RPS SPACE 4,10
02968 M00S02428.set +++|** RPS - RESET POINTERS ON SECOND BUFFER.
02969 M00S02429.set +++|
02970 M00S02430.set +++|
02971 M00S02431.set +++| RPS STD FP
02972 M00S02432.set +++| LDN 0 RESET LINE NUMBER
02973 M00S02433.set +++| STD LN
02974 M00S02434.set +++| JMP ADB2 RETURN
02975 M00S02435.set +++| ADL SPACE 4,10
02976 M00S02436.set +++|** ADL - ADD DISPLAY LINE.
02977 M00S02437.set +++|*
02978 M00S02438.set +++|* ENTRY (A) = LINE NUMBER.
02979 M00S02439.set +++|*
02980 M00S02440.set +++|* EXIT (A) = FIRST BYTE OF NEW LINE.
02981 M00S02441.set +++|*
02982 M00S02442.set +++|* USES T1, T2.
02983 M00S02443.set +++|*
02984 M00S02444.set +++|* CALLS CLB.
02985 M00S02445.set +++|
02986 M00S02446.set +++|
02987 M00S02447.set +++| ADL1 IAN BC INPUT CHARACTER
02988 M00S02448.set +++| SHN 6
02989 M00S02449.set +++| STI T2 ASSEMBLE DISPLAY LINE
02990 M00S02450.set +++| ADL2 IAN BC
02991 M00S02451.set +++| ZJN ADL3 IF END OF DATA
02992 M00S02452.set +++| RAI T2
02993 M00S02453.set +++| AOD T2 ADVANCE LINE ADDRESS
02994 M00S02454.set +++| LMC LBUF+LBUFL
02995 M00S02455.set +++| NJN ADL1 IF LINE NOT COMPLETE
02996 M00S02456.set +++| ADL3 DCN BC
02997 M00S02457.set +++| LDD T1 CHECK LINE LIMIT
02998 M00S02458.set +++| LMD LL
02999 M00S02459.set +++| ZJN ADLX IF BUFFER FULL
03000 M00S02460.set +++| LDD SA
03001 M00S02461.set +++| SHN 3
03002 M00S02462.set +++| ADD T1 STORE NEW LINE
03003 M00S02463.set +++| SHN 3
03004 M00S02464.set +++| CWM LBUF,SX
03005 M00S02465.set +++| LDM LBUF
03006 M00S02466.set +++|
03007 M00S02467.set +++| ADL SUBR ENTRY/EXIT
03008 M00S02468.set +++| STD T1 SAVE LINE NUMBER
03009 M00S02469.set +++| OAN BC
03010 M00S02470.set +++| RJM CLB CLEAR LINE BUFFER
03011 M00S02471.set +++| UJN ADL2 ASSEMBLE LINE
03012 M00S02472.set +++| ADP SPACE 4,10
03013 M00S02473.set +++|** ADP - INITIAL APRDECK DISPLAY PROCESSOR.
03014 M00S02474.set +++|*
03015 M00S02475.set +++|* ENTRY (FP) = EST ORDINAL.
03016 M00S02476.set +++|*
03017 M00S02477.set +++|* EXIT SEE *RTL*.
03018 M00S02478.set +++|* (PA) = RTL.
03019 M00S02479.set +++|* (YY) = COORDINATE FOR NEXT TEXT DECK LINE.
03020 M00S02480.set +++|*
03021 M00S02481.set +++|* CALLS GEL, RTL.
03022 M00S02482.set +++|
03023 M00S02483.set +++|
03024 M00S02484.set +++| ADP SUBR ENTRY/EXIT
03025 M00S02485.set +++| LCN YINC
03026 M00S02486.set +++| RAD YY
03027 M00S02487.set +++| LDN EDHAA OUTPUT DISPLAY HEADER
03028 M00S02488.set +++| OAM EDHA,CH
03029 M00S02489.set +++| LDD FP GENERATE EQUIPMENT DISPLAY LINE
03030 M00S02490.set +++| STD T1
03031 M00S02491.set +++| RJM GEL
03032 M00S02492.set +++| OAM YY,CH DISPLAY EQUIPMENT STATUS
03033 M00S02493.set +++| LCN 2*YINC
03034 M00S02494.set +++| RAD YY
03035 M00S02495.set +++| LDD SI RESTORE TEXT DECK LINE NUMBER
03036 M00S02496.set +++| STD T1
03037 M00S02497.set +++| LDC RTL CHANGE DISPLAY PROCESSOR
03038 M00S02498.set +++| STD PA
03039 M00S02499.set +++| RJM RTL READ TEXT LINE
03040 M00S02500.set +++| UJN ADPX RETURN
03041 M00S02501.set +++| CCD SPACE 4,10
03042 M00S02502.set +++|** CCD - CONVERT CHANNEL FOR DISPLAY.
03043 M00S02503.set +++|*
03044 M00S02504.set +++|* ENTRY (A) = CHANNEL DATA.
03045 M00S02505.set +++|* (WB - WB+4) = EST DATA.
03046 M00S02506.set +++|*
| Line S02507 Modification History |
M01 (Removed by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03047 M01S02507.set68 ---|* EXIT (A) = 0 IF NOT CONCURRENT CHANNEL.
03048 M01S02508.set68 ---|* = (T2) = LINE ADDRESS ADJUSTED.
| Line S00001 Modification History |
M01 (Added by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03049 M01S00001.set68 +++|* EXIT (A) = (T2) = LINE ADDRESS ADJUSTED.
03050 M00S02509.set +++|*
03051 M00S02510.set +++|* USES BA.
03052 M00S02511.set +++|*
03053 M00S02512.set +++|* CALLS C2D.
03054 M00S02513.set +++|
03055 M00S02514.set +++|
03056 M00S02515.set +++| CCD SUBR ENTRY/EXIT
03057 M00S02516.set +++| STD BA
03058 M00S02517.set +++| LPN 40
03059 M00S02518.set +++| ZJN CCD1 IF NOT A CONCURRENT CHANNEL
03060 M00S02519.set +++| LDN 1R &1RC
03061 M00S02520.set +++| CCD1 LMC 2R
03062 M00S02521.set +++| STI T2
03063 M00S02522.set +++| AOD T2
03064 M00S02523.set +++| LDD BA CONVERT CHANNEL NUMBER
03065 M00S02524.set +++| LPN 37
03066 M00S02525.set +++| RJM C2D
| Line S00002 Modification History |
M01 (Added by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03067 M01S00002.set68 +++| SOD T2
03068 M00S02526.set +++| LDD BA CHECK TYPE OF CHANNEL
03069 M00S02527.set +++| LPN 40
| Line S02528 Modification History |
M01 (Removed by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03070 M01S02528.set68 ---| ZJN CCDX IF NOT CONCURRENT CHANNEL
| Line S00003 Modification History |
M01 (Added by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03071 M01S00003.set68 +++| ZJN CCD2 IF NOT CONCURRENT CHANNEL
03072 M00S02529.set +++| LDD BA
03073 M00S02530.set +++| SHN 0-7 EXTRACT PORT NUMBER
03074 M00S02531.set +++| LPN 1
03075 M00S02532.set +++| ADC 2R-A CONVERT TO A OR B
| Line S02533 Modification History |
M01 (Removed by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03076 M01S02533.set68 ---| STM -1,T2
| Line S00004 Modification History |
M01 (Added by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03077 M01S00004.set68 +++| STI T2
03078 M01S00005.set68 +++| AOD T2
03079 M00S02534.set +++| LDC 2R. ADJUST SEPARATOR
03080 M00S02535.set +++| STI T2
| Line S02536 Modification History |
M01 (Removed by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03081 M01S02536.set68 ---| LDN 2 ADVANCE ADDRESS
03082 M01S02537.set68 ---| RAD T2
03083 M01S02538.set68 ---| UJN CCDX RETURN
| Line S00006 Modification History |
M01 (Added by) | set68 |
Seq # *Modification Id* Act
----------------------------+
03084 M01S00006.set68 +++| CCD2 LDD BA CHECK CHANNEL STATE
03085 M01S00007.set68 +++| SHN 21-12
03086 M01S00008.set68 +++| PJN CCD3 IF CHANNEL IS NOT DOWN
03087 M01S00009.set68 +++| LDC 2R* INDICATE CHANNEL DOWN
03088 M01S00010.set68 +++| STI T2
03089 M01S00011.set68 +++| CCD3 AOD T2 ADVANCE ADDRESS
03090 M01S00012.set68 +++| UJP CCDX EXIT
03091 M00S02539.set +++| CDI SPACE 4,10
03092 M00S02540.set +++|** CDI - CHECK DISPLAY INDEX.
03093 M00S02541.set +++|*
03094 M00S02542.set +++|* ENTRY (T1) = DISPLAY INDEX.
03095 M00S02543.set +++|* (EW) = CURRENT EQUIPMENT COUNT.
03096 M00S02544.set +++|
03097 M00S02545.set +++|
03098 M00S02546.set +++| CDI SUBR ENTRY/EXIT
03099 M00S02547.set +++| LDD T1
03100 M00S02548.set +++| SBD EW
03101 M00S02549.set +++| MJN CDIX IF INDEX BELOW LIMIT
03102 M00S02550.set +++| LDN 0
03103 M00S02551.set +++| STD T1 SET INDEX TO FIRST PAGE OF DISPLAY
03104 M00S02552.set +++| STM TDBP+3,DB
03105 M00S02553.set +++| UJN CDIX RETURN
03106 M00S02554.set +++| CDP SPACE 4,10
03107 M00S02555.set +++|** CDP - COMPLETE DISPLAY PROCESSING.
03108 M00S02556.set +++|*
03109 M00S02557.set +++|* ENTRY (ET) = ELAPSED TIME FOR DISPLAY GENERATION.
03110 M00S02558.set +++|*
03111 M00S02559.set +++|* EXIT (ET) = 0.
03112 M00S02560.set +++|*
03113 M00S02561.set +++|* MACROS CFNC, DFIM.
03114 M00S02562.set +++|
03115 M00S02563.set +++|
03116 M00S02564.set +++| CDP SUBR ENTRY/EXIT
03117 M00S02565.set +++| CFNC THCF
03118 M00S02566.set +++| DCN. CH
03119 M00S02567.set +++| DFIM (UJN CDPX)
03120 M00S02568.set +++| LDN 21DS1 CALCULATE REFRESH DELAY
03121 M00S02569.set +++| SBD ET
03122 M00S02570.set +++| PJN CDP1 IF REFRESH TIME NOT EXCEEDED
03123 M00S02571.set +++| LDN 0
03124 M00S02572.set +++| CDP1 SHN 10-1 POSITION DELAY VALUE
03125 M00S02573.set +++| CDPA EQU CDP1
03126 M00S02574.set +++| ZJN CDP2 IF REFRESH CYCLE AT LIMIT
03127 M00S02575.set +++| SBN 1
03128 M00S02576.set +++| NJN *-1 DELAY
03129 M00S02577.set +++| CDP2 STD ET
03130 M00S02578.set +++| UJN CDPX RETURN
03131 M00S02579.set +++| CLB SPACE 4,10
03132 M00S02580.set +++|** CLB - CLEAR LINE BUFFER.
03133 M00S02581.set +++|*
03134 M00S02582.set +++|* EXIT (T2) = LBUF.
03135 M00S02583.set +++|
03136 M00S02584.set +++|
03137 M00S02585.set +++| CLB SUBR ENTRY/EXIT
03138 M00S02586.set +++| LDN 0
03139 M00S02587.set +++| CRM LBUF,SX
03140 M00S02588.set +++| LDC LBUF SET BUFFER ADDRESS
03141 M00S02589.set +++| STD T2
03142 M00S02590.set +++| UJN CLBX RETURN
03143 M00S02591.set +++| C1D SPACE 4,10
03144 M00S02592.set +++|** C1D - CONVERT ONE DIGIT.
03145 M00S02593.set +++|*
03146 M00S02594.set +++|* ENTRY (A) = VALUE TO CONVERT.
03147 M00S02595.set +++|* (T2) = ADDRESS TO STORE CONVERSION.
03148 M00S02596.set +++|*
03149 M00S02597.set +++|* EXIT (A) = (T2) ADVANCED.
03150 M00S02598.set +++|
03151 M00S02599.set +++|
03152 M00S02600.set +++| C1D SUBR ENTRY/EXIT
03153 M00S02601.set +++| LPN 7
03154 M00S02602.set +++| ADC 2R 0 CONVERT DIGIT
03155 M00S02603.set +++| STI T2
03156 M00S02604.set +++| AOD T2 ADVANCE ADDRESS
03157 M00S02605.set +++| LDC 2R.
03158 M00S02606.set +++| STI T2 STORE SEPARATOR
03159 M00S02607.set +++| AOD T2
03160 M00S02608.set +++| UJN C1DX RETURN
03161 M00S02609.set +++| C2D SPACE 4,10
03162 M00S02610.set +++|** C2D - CONVERT TWO DIGITS.
03163 M00S02611.set +++|*
03164 M00S02612.set +++|* ENTRY (A) = VALUE TO CONVERT.
03165 M00S02613.set +++|* (T2) = ADDRESS TO STORE CONVERSION.
03166 M00S02614.set +++|*
03167 M00S02615.set +++|* EXIT (A) = (T2) ADVANCED.
03168 M00S02616.set +++|
03169 M00S02617.set +++|
03170 M00S02618.set +++| C2D SUBR ENTRY/EXIT
03171 M00S02619.set +++| LPN 77
03172 M00S02620.set +++| STD T0 CONVERT DIGITS
03173 M00S02621.set +++| SHN 3
03174 M00S02622.set +++| LMD T0
03175 M00S02623.set +++| SCN 70
03176 M00S02624.set +++| ADC 2R00 STORE CONVERSION
03177 M00S02625.set +++| STI T2
03178 M00S02626.set +++| AOD T2 ADVANCE ADDRESS
03179 M00S02627.set +++| LDC 2R.
03180 M00S02628.set +++| STI T2 STORE SEPARATOR
03181 M00S02629.set +++| AOD T2
03182 M00S02630.set +++| UJN C2DX RETURN
03183 M00S02631.set +++| D4S SPACE 4,10
03184 M00S02632.set +++|** D4S - DISPLAY 4 DIGITS WITH LEADING ZERO SUPPRESSION.
03185 M00S02633.set +++|* ROUTINE ADAPTED FROM *COMDDIS*.
03186 M00S02634.set +++|*
03187 M00S02635.set +++|* ENTRY (A) = VALUE TO BE CONVERTED.
03188 M00S02636.set +++|* (T2) = BUFFER INDEX.
03189 M00S02637.set +++|*
03190 M00S02638.set +++|* EXIT (T2) ADVANCED.
03191 M00S02639.set +++|*
03192 M00S02640.set +++|* USES T2.
03193 M00S02641.set +++|
03194 M00S02642.set +++|
03195 M00S02643.set +++| D4S SUBR ENTRY/EXIT
03196 M00S02644.set +++| STD T0
03197 M00S02645.set +++| SHN -6
03198 M00S02646.set +++| ZJN D4S2 IF FIRST TWO DIGITS ARE ZERO
03199 M00S02647.set +++| SHN -3
03200 M00S02648.set +++| ZJN D4S1 IF FIRST DIGIT IS ZERO
03201 M00S02649.set +++| ADN 1R0
03202 M00S02650.set +++| SHN 14
03203 M00S02651.set +++| D4S1 ADD T0
03204 M00S02652.set +++| SHN -6
03205 M00S02653.set +++| SCN 70
03206 M00S02654.set +++| ADN 1R0
03207 M00S02655.set +++| D4S2 STI T2 STORE UPPER DIGIT(S)
03208 M00S02656.set +++| AOD T2
03209 M00S02657.set +++| LDD T0
03210 M00S02658.set +++| ZJN D4S4 IF ALL FOUR DIGITS ARE ZERO
03211 M00S02659.set +++| SHN -3
03212 M00S02660.set +++| ZJN D4S3 IF FIRST THREE DIGITS ARE ZERO
03213 M00S02661.set +++| LPN 7
03214 M00S02662.set +++| ADN 1R0
03215 M00S02663.set +++| SHN 6
03216 M00S02664.set +++| D4S3 LMD T0
03217 M00S02665.set +++| SCN 7
03218 M00S02666.set +++| LMD T0
03219 M00S02667.set +++| D4S4 ADN 1R0 STORE LOWER DIGIT(S)
03220 M00S02668.set +++| STI T2
03221 M00S02669.set +++| AOD T2
03222 M00S02670.set +++| LDC 2R. STORE SEPARATOR
03223 M00S02671.set +++| STI T2
03224 M00S02672.set +++| AOD T2
03225 M00S02673.set +++| LJM D4SX RETURN
03226 M00S02674.set +++| EQP SPACE 4,10
03227 M00S02675.set +++|** EQP - INITIAL EQPDECK DISPLAY PROCESSOR.
03228 M00S02676.set +++|*
03229 M00S02677.set +++|* EXIT SEE *GDH*.
03230 M00S02678.set +++|* EST DISPLAY ENABLED.
03231 M00S02679.set +++|*
03232 M00S02680.set +++|* CALLS GDH.
03233 M00S02681.set +++|
03234 M00S02682.set +++|
03235 M00S02683.set +++| EQP SUBR ENTRY/EXIT
03236 M00S02684.set +++| LDC GED ENABLE EQPDECK DISPLAYS
03237 M00S02685.set +++| STD EA-1
03238 M00S02686.set +++| LDC GDH CHANGE PROCESSOR ADDRESS
03239 M00S02687.set +++| STD SA-1
03240 M00S02688.set +++| RJM GDH
03241 M00S02689.set +++| UJN EQPX RETURN
03242 M00S02690.set +++| GCD SPACE 4,15
03243 M00S02691.set +++|** GCD - INITIATE CONTROLWARE STATUS DISPLAY.
03244 M00S02692.set +++|*
03245 M00S02693.set +++|* ENTRY (T1) = CHANNEL NUMBER.
03246 M00S02694.set +++|* (EW) = CURRENT EQUIPMENT COUNT.
03247 M00S02695.set +++|*
03248 M00S02696.set +++|* EXIT SEE *GCL*.
03249 M00S02697.set +++|* (A) = 0 IF NO MORE CHANNELS
03250 M00S02698.set +++|* (PA) = GCL.
03251 M00S02699.set +++|* (YY) = COORDINATE FOR NEXT DISPLAY.
03252 M00S02700.set +++|*
03253 M00S02701.set +++|* USES FP, PA, T0, T1, T2.
03254 M00S02702.set +++|*
03255 M00S02703.set +++|* CALLS GCL, REP, SCT.
03256 M00S02704.set +++|
03257 M00S02705.set +++|
03258 M00S02706.set +++| GCD6 RJM GCL GENERATE CONTROLWARE STATUS LINE
03259 M00S02707.set +++| ZJN GCDX IF NO MORE CHANNELS
03260 M00S02708.set +++| STD T2
03261 M00S02709.set +++| LCN YINC ADJUST Y-COORDINATE
03262 M00S02710.set +++| RAD YY
03263 M00S02711.set +++| LDN EDHDA OUTPUT DISPLAY HEADER
03264 M00S02712.set +++| OAM EDHD,CH
03265 M00S02713.set +++| LDC GCL CHANGE PROCESSOR ADDRESS
03266 M00S02714.set +++| STD PA
03267 M00S02715.set +++| LDD T2
03268 M00S02716.set +++|
03269 M00S02717.set +++| GCD SUBR ENTRY/EXIT
03270 M00S02718.set +++| LDD T1
03271 M00S02719.set +++| NJN GCD6 IF CONTROLWARE TABLE PROCESSED
03272 M00S02720.set +++| GCD1 LDN CTALL
03273 M00S02721.set +++| STD FP
03274 M00S02722.set +++| LDD MA READ CONTROLWARE STATUSES
| Line S02723 Modification History |
M01 (Removed by) | set81 |
Seq # *Modification Id* Act
----------------------------+
03275 M01S02723.set81 ---| ADN 10*TDDCL
| Line S00010 Modification History |
M01 (Added by) | set81 |
Seq # *Modification Id* Act
----------------------------+
03276 M01S00010.set81 +++| ADN TDDBL
03277 M00S02724.set +++| SHN 6
03278 M00S02725.set +++| CRM TCCS,FP
03279 M00S02726.set +++| GCD2 RJM REP READ EQUIPMENT PARAMETERS
03280 M00S02727.set +++| ZJN GCD5 IF NOT MASS STORAGE
03281 M00S02728.set +++| LDD WB+1
03282 M00S02729.set +++| LMN 37
03283 M00S02730.set +++| ZJN GCD5 IF ISMD CHANNELS NOT YET SPECIFIED
03284 M00S02731.set +++| LDD WB+3
03285 M00S02732.set +++| RJM SCT SEARCH CONTROLWARE TABLE
03286 M00S02733.set +++| ZJN GCD5 IF NOT FOUND
03287 M00S02734.set +++| LDD WB+1 SET CHANNEL
03288 M00S02735.set +++| LPN 77
03289 M00S02736.set +++| GCD3 STD FP
03290 M00S02737.set +++| LDI T2 DEFAULT CONTROLWARE FOR LOAD
03291 M00S02738.set +++| SBM TCCS,FP
03292 M00S02739.set +++| MJN GCD4 IF OTHER DEFAULT HAS PRIORITY
03293 M00S02740.set +++| RAM TCCS,FP
03294 M00S02741.set +++| GCD4 LDD WB+2
03295 M00S02742.set +++| LPN 77
03296 M00S02743.set +++| SHN 14
03297 M00S02744.set +++| STD WB+2
03298 M00S02745.set +++| SHN 6
03299 M00S02746.set +++| NJN GCD3 IF NOT END OF CHANNELS
03300 M00S02747.set +++| GCD5 AOD T1
03301 M00S02748.set +++| LMD EW
03302 M00S02749.set +++| NJN GCD2 IF MORE EQUIPMENT TO CHECK
03303 M00S02750.set +++| STD T1 SET CHANNEL NUMBER
03304 M00S02751.set +++| LJM GCD6 GENERATE CONTROLWARE STATUS LINE
03305 M00S02752.set +++| GCL SPACE 4,15
03306 M00S02753.set +++|** GCL - GENERATE CONTROLWARE STATUS DISPLAY LINE.
03307 M00S02754.set +++|*
03308 M00S02755.set +++|* ENTRY (T1) = CHANNEL NUMBER.
03309 M00S02756.set +++|*
03310 M00S02757.set +++|* EXIT (A) = 0 IF NO MORE CHANNELS.
03311 M00S02758.set +++|* = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03312 M00S02759.set +++|* (T1) = CHANNEL NUMBER.
03313 M00S02760.set +++|* (LBUF) = DISPLAY LINE.
03314 M00S02761.set +++|*
03315 M00S02762.set +++|* USES FP, T1, T2, YY.
03316 M00S02763.set +++|*
03317 M00S02764.set +++|* CALLS CLB.
03318 M00S02765.set +++|
03319 M00S02766.set +++|
03320 M00S02767.set +++| GCL4 AOD T2 INCREMENT ASSEMBLY ADDRESS
03321 M00S02768.set +++| LDD T1
03322 M00S02769.set +++| LPN 40
03323 M00S02770.set +++| ZJN GCL5 IF NOT A CONCURRENT CHANNEL
03324 M00S02771.set +++| LDN 1R &1RC
03325 M00S02772.set +++| GCL5 LMC 2R
03326 M00S02773.set +++| STI T2
03327 M00S02774.set +++| AOD T2
03328 M00S02775.set +++| LDD T1 CONVERT CHANNEL NUMBER
03329 M00S02776.set +++| LPN 37
03330 M00S02777.set +++| RJM C2D
03331 M00S02778.set +++| LDN 4 INCREMENT POSITION
03332 M00S02779.set +++| RAD T2
03333 M00S02780.set +++| LDM TLCS-1,FP SET CONTROLWARE RECORD TYPE
03334 M00S02781.set +++| STI T2
03335 M00S02782.set +++| AOD T2 ADJUST POSITION
03336 M00S02783.set +++| LDD T2 SET LENGTH OF DISPLAY LINE
03337 M00S02784.set +++| SBN YY
03338 M00S02785.set +++|
03339 M00S02786.set +++| GCL SUBR ENTRY/EXIT
03340 M00S02787.set +++| RJM CLB CLEAR LINE BUFFER
03341 M00S02788.set +++| LDD T1
03342 M00S02789.set +++| UJN GCL2 CONTINUE
03343 M00S02790.set +++|
03344 M00S02791.set +++| GCL1 AOD T1
03345 M00S02792.set +++| GCLA LMN 0
03346 M00S02793.set +++| GCL2 EQU GCLA
03347 M00S02794.set +++| NJN GCL3 IF MORE TO DISPLAY
03348 M00S02795.set +++| STM GCLB
03349 M00S02796.set +++| UJN GCLX RETURN
03350 M00S02797.set +++|
03351 M00S02798.set +++| GCL3 LDM TCCS,T1
03352 M00S02799.set +++| ZJN GCL1 IF CONTROLWARE NOT SPECIFIED
03353 M00S02800.set +++| LPN 77
03354 M00S02801.set +++| STD FP
03355 M00S02802.set +++| AOM GCLB
03356 M00S02803.set +++| SBN 22
03357 M00S02804.set +++| NJP GCL4 IF NOT END OF LEFT SCREEN
03358 M00S02805.set +++| DFIM (LDC Y721)
03359 M00S02806.set +++| LDC Y545 ADJUST Y-COORDINATE FOR BLANK LINE
03360 M00S02807.set +++| STD YY
03361 M00S02808.set +++| SOD T1
03362 M00S02809.set +++| LDN 3
03363 M00S02810.set +++| UJN GCLX RETURN
03364 M00S02811.set +++|
03365 M00S02812.set +++|
03366 M00S02813.set +++| GCLB CON 0
03367 M00S02814.set +++| TDCW SPACE 4,10
03368 M00S02815.set +++|** TDCW - TABLE OF DEFAULT CONTROLWARE.
03369 M00S02816.set +++|
03370 M00S02817.set +++|
03371 M00S02818.set +++| TDCW BSS 0
03372 M00S02819.set +++| LIST G
03373 M00S02820.set +++|
03374 M00S02821.set +++| TBL "MSEQ"
03375 M00S02822.set +++| LIST *
03376 M00S02823.set +++| PURGMAC TBLM
03377 M00S02824.set +++|
03378 M00S02825.set +++| CON 0 END OF TABLE
03379 M00S02826.set +++| TLCS SPACE 4,10
03380 M00S02827.set +++|** TLCS - TABLE OF CONTROLWARE RECORD TYPES TO LOAD.
03381 M00S02828.set +++|
03382 M00S02829.set +++|
03383 M00S02830.set +++| TLCS BSS 0
03384 M00S02831.set +++| LOC CLHT
03385 M00S02832.set +++| CLHT CON 2RHT LOAD HALF TRACK CONTROLWARE
03386 M00S02833.set +++| CNHT CON 2RNH NO LOAD HALF TRACK CONTROLWARE
03387 M00S02834.set +++| CLFT CON 2RFT LOAD FULL TRACK CONTROLWARE
03388 M00S02835.set +++| CNFT CON 2RNF NO LOAD FULL TRACK CONTROLWARE
03389 M00S02836.set +++| CLFM CON 2RFM LOAD FMD CONTROLWARE
03390 M00S02837.set +++| CNFM CON 2RNM NO LOAD FMD CONTROLWARE
03391 M00S02838.set +++| CLAD CON 2RAD LOAD FSC ADAPTOR CONTROLWARE
03392 M00S02839.set +++| CNAD CON 2RNA NO LOAD FSC ADAPTOR CONTROLWARE
03393 M00S02840.set +++| CLPH CON 2RPH LOAD DEMA/PFMD CONTROLWARE
03394 M00S02841.set +++| CNPH CON 2RNP NO LOAD DEMA/PFMD CONTROLWARE
03395 M00S02842.set +++| CLID CON 2RID LOAD 7255 ADAPTOR CONTROLWARE
03396 M00S02843.set +++| CNID CON 2RNI NO LOAD 7255 ADAPTOR CONTROLWARE
03397 M00S02844.set +++| CLCC CON 2RCC LOAD 7165 ADAPTOR CONTROLWARE
03398 M00S02845.set +++| CNCC CON 2RCN NO LOAD 7165 ADAPTOR CONTROLWARE
03399 M00S02846.set +++| CLND CON 2R LOAD NAD CONTROLWARE
03400 M00S02847.set +++| CNND CON 2RNN NO LOAD NAD CONTROLWARE
03401 M00S02848.set +++| CON 2R (LOAD CONTROL MODULE - N/A)
03402 M00S02849.set +++| CON 2R (NO LOAD CONTROL MODULE - N/A)
03403 M00S02850.set +++| CLM8 CON 2RM8 LOAD 7990 CONTROLWARE
03404 M00S02851.set +++| CNM8 CON 2RN8 NO LOAD 7990 CONTROLWARE
03405 M00S02852.set +++| CLCX CON 2R LOAD CCC/NIP CONTROLWARE
03406 M00S02853.set +++| CNCX CON 2RNX NO LOAD CCC/NIP CONTROLWARE
03407 M00S02854.set +++| CLCT CON 2R LOAD CCC/698 CONTROLWARE
03408 M00S02855.set +++| CNCT CON 2RNT NO LOAD CCC/698 CONTROLWARE
03409 M00S02856.set +++| LOC *L+TLCS-1
03410 M00S02857.set +++| GDH SPACE 4,10
03411 M00S02858.set +++|** GDH - GENERATE DISPLAY HEADER.
03412 M00S02859.set +++|*
03413 M00S02860.set +++|* ENTRY (T1) = LINE NUMBER.
03414 M00S02861.set +++|*
03415 M00S02862.set +++|* EXIT SEE *RTL*.
03416 M00S02863.set +++|* (PA) = RTL.
03417 M00S02864.set +++|*
03418 M00S02865.set +++|* CALLS RTL.
03419 M00S02866.set +++|
03420 M00S02867.set +++|
03421 M00S02868.set +++| GDH SUBR ENTRY/EXIT
03422 M00S02869.set +++| LDM TDBP+1,DB
03423 M00S02870.set +++| SHN 6 FETCH DECK NAME
03424 M00S02871.set +++| CRM DHDR+2,ON
03425 M00S02872.set +++| LDN DHDRL DISPLAY NAME
03426 M00S02873.set +++| OAM. DHDR,CH
03427 M00S02874.set +++| LDD T1
03428 M00S02875.set +++| NJN GDH1 IF NOT FIRST PAGE OF DECK
03429 M00S02876.set +++| AOD T1
03430 M00S02877.set +++| GDH1 LDC RTL CHANGE PROCESSOR ADDRESS
03431 M00S02878.set +++| STD PA
03432 M00S02879.set +++| RJM RTL
03433 M00S02880.set +++| UJN GDHX RETURN
03434 M00S02881.set +++| GED SPACE 4,10
03435 M00S02882.set +++|** GED - INITIATE EST DISPLAY.
03436 M00S02883.set +++|*
03437 M00S02884.set +++|* EXIT SEE *GEL*.
03438 M00S02885.set +++|* (PA) = GEL.
03439 M00S02886.set +++|* (YY) = COORDINATE FOR NEXT DISPLAY LINE.
03440 M00S02887.set +++|*
03441 M00S02888.set +++|* CALLS CDI, GEL.
03442 M00S02889.set +++|
03443 M00S02890.set +++|
03444 M00S02891.set +++| GED SUBR ENTRY/EXIT
03445 M00S02892.set +++| RJM CDI CHECK DISPLAY INDEX
03446 M00S02893.set +++| LCN YINC
03447 M00S02894.set +++| RAD YY
03448 M00S02895.set +++| LDN EDHAA OUTPUT DISPLAY HEADER
03449 M00S02896.set +++| OAM EDHA,CH
03450 M00S02897.set +++| LDC GEL CHANGE PROCESSOR ADDRESS
03451 M00S02898.set +++| STD PA
03452 M00S02899.set +++| RJM GEL GENERATE EST DISPLAY LINE
03453 M00S02900.set +++| UJN GEDX RETURN
03454 M00S02901.set +++| GEL SPACE 4,10
03455 M00S02902.set +++|** GEL - GENERATE EST DISPLAY LINE.
03456 M00S02903.set +++|*
03457 M00S02904.set +++|* ENTRY (T1) = EST ORDINAL.
03458 M00S02905.set +++|*
03459 M00S02906.set +++|* EXIT (A) = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03460 M00S02907.set +++|* (LBUF) = DISPLAY LINE.
03461 M00S02908.set +++|*
03462 M00S02909.set +++|* USES BA, T2.
03463 M00S02910.set +++|*
03464 M00S02911.set +++|* CALLS CCD, C1D, C2D, IEL, REP.
03465 M00S02912.set +++|
03466 M00S02913.set +++|
03467 M00S02914.set +++| GEL5 LDD T2 SET LENGTH OF DISPLAY LINE
03468 M00S02915.set +++| SBN YY
03469 M00S02916.set +++|
03470 M00S02917.set +++| GEL SUBR ENTRY/EXIT
03471 M00S02918.set +++| RJM REP READ EQUIPMENT PARAMETERS
03472 M00S02919.set +++| RJM IEL INITIALIZE DISPLAY LINE
03473 M00S02920.set +++| ZJN GEL5 IF EQUIPMENT UNDEFINED
03474 M00S02921.set +++| LDD WB
03475 M00S02922.set +++| LPN 3 EXTRACT EQUIPMENT STATUS
03476 M00S02923.set +++| SHN 1
03477 M00S02924.set +++| STD BA SET INDEX
03478 M00S02925.set +++| LDM GELA,BA
03479 M00S02926.set +++| STI T2
03480 M00S02927.set +++| AOD T2
03481 M00S02928.set +++| LDM GELA+1,BA SET STATUS IN DISPLAY LINE
03482 M00S02929.set +++| STI T2
03483 M00S02930.set +++| AOD T2
03484 M00S02931.set +++| LDD WB
03485 M00S02932.set +++| SHN 0-13
03486 M00S02933.set +++| NJN GEL2 IF MASS STORAGE
03487 M00S02934.set +++| LDD WB+4
03488 M00S02935.set +++| SHN -11
03489 M00S02936.set +++| RJM C1D CONVERT EQUIPMENT (CONTROLLER) NUMBER
| Line S00020 Modification History |
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
03490 M01S00020.284l847 +++| AOD T2
03491 M00S02937.set +++| LDD WB+4
| Line S02938 Modification History |
M01 (Removed by) | set79 |
Seq # *Modification Id* Act
----------------------------+
03492 M01S02938.set79 ---| LPN 17
| Line S00001 Modification History |
M01 (Added by) | set79 |
Seq # *Modification Id* Act
----------------------------+
03493 M01S00001.set79 +++| LPN 77
03494 M00S02939.set +++| UJN GEL3 CONVERT UNIT NUMBER
03495 M00S02940.set +++|
| Line S02941 Modification History |
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
03496 M01S02941.271l716 ---| GEL2 LDN 0 NULL CONTROLLER NUMBER
| Line S00027 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
03497 M01S00027.271l716 +++| GEL2 LDM MSTB+DVPR CONTROLLER NUMBER
03498 M01S00028.271l716 +++| SHN -11
03499 M00S02942.set +++| RJM C1D
| Line S00021 Modification History |
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
03500 M01S00021.284l847 +++| SOD T2 BACK UP FOR SECOND CONTROLLER DISPLAY
| Line S02943 Modification History |
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
03501 M01S02943.284l847 ---| LDM MSTB+DVUN+3 CONVERT UNIT NUMBER
| Line S00022 Modification History |
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act
----------------------------+
03502 M01S00022.284l847 +++| LDM MSTB+DVPR
03503 M01S00023.284l847 +++| SHN 21-5
03504 M01S00024.284l847 +++| PJN GEL2.1 IF NO SECOND CONTROLLER
03505 M01S00025.284l847 +++| RJM C1D CONVERT SECOND CHANNEL CONTROLLER NUMBER
03506 M01S00026.284l847 +++| UJN GEL2.2 CONVERT UNIT NUMBER
03507 M01S00027.284l847 +++|
03508 M01S00028.284l847 +++| GEL2.1 LDN 2 SKIP SECOND CONTROLLER FIELD
03509 M01S00029.284l847 +++| RAD T2
03510 M01S00030.284l847 +++| GEL2.2 LDM MSTB+DVUN+3 CONVERT UNIT NUMBER
03511 M00S02944.set +++| GEL3 RJM C2D
03512 M00S02945.set +++| LDD WB+1 CONVERT PRIMARY CHANNEL
03513 M00S02946.set +++| LMN 37
03514 M00S02947.set +++| ZJN GEL4 IF CHANNEL NOT SPECIFIED
03515 M00S02948.set +++| LDD WB+1
03516 M00S02949.set +++| RJM CCD CONVERT CHANNEL NUMBER
03517 M00S02950.set +++| LDD WB+2
03518 M00S02951.set +++| ZJN GEL4 IF NO 2ND CHANNEL
03519 M00S02952.set +++| RJM CCD
03520 M00S02953.set +++| GEL4 LJM GEL5 SET LENGTH OF DISPLAY LINE
03521 M00S02954.set +++| GELA SPACE 4,10
03522 M00S02955.set +++|* EQUIPMENT STATUS.
03523 M00S02956.set +++|
03524 M00S02957.set +++| GELA DATA 4H ON
03525 M00S02958.set +++| DATA 4HIDLE
03526 M00S02959.set +++| DATA 4H OFF
03527 M00S02960.set +++| DATA 4HDOWN
03528 M00S02961.set +++| GID SPACE 4,10
03529 M00S02962.set +++|** GID - INITIATE MASS STORAGE INITIALIZATION DISPLAY.
03530 M00S02963.set +++|*
03531 M00S02964.set +++|* EXIT SEE *GIL*.
03532 M00S02965.set +++|* (A) = 0 IF END OF MASS STORAGE EQUIPMENT.
03533 M00S02966.set +++|* (PA) = GIL.
03534 M00S02967.set +++|* (YY) = COORDINATE FOR NEXT DISPLAY LINE.
03535 M00S02968.set +++|*
03536 M00S02969.set +++|* USES PA, T2, YY.
03537 M00S02970.set +++|*
03538 M00S02971.set +++|* CALLS CDI, GIL.
03539 M00S02972.set +++|
03540 M00S02973.set +++|
03541 M00S02974.set +++| GID SUBR ENTRY/EXIT
03542 M00S02975.set +++| LDN EDHCA OUTPUT DISPLAY HEADER