cdc:nos2.source:opl.opl871:deck:1mb.001
Deck 1MB Part 001
13 Modifications
Listing Sections
- Deck 1MB Start
- Deck 1MB Part 1 (Line 1614)
- Deck 1MB Part 2 (Line 3342)
Source
Seq # *Modification Id* Act ----------------------------+ 01614 M01S01439.1mb +++| STD T2 INITIALIZE PP NUMBER 01615 M01S01440.1mb +++| DPR1 LDM BCMR+4 SET PP NUMBER 01616 M01S01441.1mb +++| SCN 77 01617 M01S01442.1mb +++| LMD T2 01618 M01S01443.1mb +++| LMN 40 SET AUTO MODE BIT 01619 M01S01444.1mb +++| STM BCMR+4 01620 M01S01445.1mb +++| LDM BCMR+6 MERGE REGISTER NUMBER 01621 M01S01446.1mb +++| SCN 3 01622 M01S01447.1mb +++| LMD T4 01623 M01S01448.1mb +++| STM BCMR+6 01624 M01S01449.1mb +++| LOCKMR SET GET LONG TERM INTERLOCK 01625 M01S01450.1mb +++| WRITMR BCMR,,DEMR WRITE EC REGISTER 01626 M01S01451.1mb +++| READMR BDMR,,ISTR READ STATUS REGISTER 01627 M01S01452.1mb +++| LOCKMR CLEAR CLEAR LONG TERM INTERLOCK 01628 M01S01453.1mb +++| LDM BDMR+4 FETCH REGISTER 01629 M01S01454.1mb +++| LPN 3 01630 M01S01455.1mb +++| SHN 10 01631 M01S01456.1mb +++| LMM BDMR+5 01632 M01S01457.1mb +++| SHN 10 01633 M01S01458.1mb +++| LMM BDMR+6 01634 M01S01459.1mb +++| STM PRGB+1,T3 STORE IN BUFFER 01635 M01S01460.1mb +++| SHN -14 01636 M01S01461.1mb +++| STM PRGB,T3 01637 M01S01462.1mb +++| LDN 2 INCREMENT BUFFER POINTER 01638 M01S01463.1mb +++| RAD T3 01639 M01S01464.1mb +++| AOD T4 INCREMENT REGISTER NUMBER 01640 M01S01465.1mb +++| SBN 4 01641 M01S01466.1mb +++| MJN DPR2 IF NOT END OF REGISTERS FOR THIS PP 01642 M01S01467.1mb +++| LDN 0 RESET REGISTER NUMBER 01643 M01S01468.1mb +++| STD T4 01644 M01S01469.1mb +++| SOD CN+2 DECREMENT NUMBER OF PP-S 01645 M01S01470.1mb +++| ZJN DPR3 IF END OF PP-S 01646 M01S01471.1mb +++| AOD T2 INCREMENT PP NUMBER 01647 M01S01472.1mb +++| SBN 12 01648 M01S01473.1mb +++| NJN DPR2 IF NOT PP 20 01649 M01S01474.1mb +++| ADN 12+6 01650 M01S01475.1mb +++| STD T2 01651 M01S01476.1mb +++| DPR2 LJM DPR1 READ NEXT REGISTER 01652 M01S01477.1mb +++| 01653 M01S01478.1mb +++| DPR3 LDC PRGB SET BUFFER ADDRESS IN INPUT REGISTER 01654 M01S01479.1mb +++| STD IR+4 01655 M01S01480.1mb +++| LDD IA 01656 M01S01481.1mb +++| CWD IR 01657 M01S01482.1mb +++| LJM DPRX RETURN 01658 M01S01483.1mb +++| DSP SPACE 4,10 01659 M01S01484.1mb +++|** DSP - GET *EICB* ADDRESS. 01660 M01S01485.1mb +++|* 01661 M01S01486.1mb +++|* ENTRY (DSPA) = ADDRESS OF *EICB*. 01662 M01S01487.1mb +++|* 01663 M01S01488.1mb +++|* EXIT (A) = ADDRESS OF *EICB*. 01664 M01S01489.1mb +++| 01665 M01S01490.1mb +++| 01666 M01S01491.1mb +++| DSP SUBR ENTRY/EXIT 01667 M01S01492.1mb +++| DSPA LDC ** 01668 M01S01493.1mb +++| UJN DSPX RETURN 01669 M01S01494.1mb +++| FNR SPACE 4,15 01670 M01S01495.1mb +++|** FNR - FIND NON-REGISTER DATA. 01671 M01S01496.1mb +++|* 01672 M01S01497.1mb +++|* ENTRY (FNRA - FNRA+1) = FWA OF NON-REGISTER DATA. 01673 M01S01498.1mb +++|* 01674 M01S01499.1mb +++|* EXIT (A) = 0, IF NO ENTRY TO PROCESS. 01675 M01S01500.1mb +++|* (MB - MB+1) = ADDRESS OF CONTROL WORD FOR ENTRY. 01676 M01S01501.1mb +++|* (CN - CN+3) = CONTROL WORD TO PROCESS. 01677 M01S01502.1mb +++|* (CN+3) = SIZE OF ENTRY TO LOG. 01678 M01S01503.1mb +++|* 01679 M01S01504.1mb +++|* USES T1, T2, CM - CM+3, MB - MB+1. 01680 M01S01505.1mb +++|* 01681 M01S01506.1mb +++|* CALLS FOM. 01682 M01S01507.1mb +++| 01683 M01S01508.1mb +++| 01684 M01S01509.1mb +++| FNR SUBR ENTRY/EXIT 01685 M01S01510.1mb +++| FNRA LDC ** (FWA OF NON-REGISTER DATA) 01686 M01S01511.1mb +++| ZJN FNRX IF *DFT* VERSION 3 01687 M01S01512.1mb +++| CRDL CM READ HEADER WORD 01688 M01S01513.1mb +++| ADN 1 01689 M01S01514.1mb +++| STD MB+1 SAVE ADDRESS OF START OF FIRST ENTRY 01690 M01S01515.1mb +++| SHN -14 01691 M01S01516.1mb +++| STD MB 01692 M01S01517.1mb +++| LDD CM+3 SET INTERVAL BETWEEN CONTROL WORDS 01693 M01S01518.1mb +++| STD T2 01694 M01S01519.1mb +++| LDD CM+2 SET NUMBER OF CONTROL WORDS TO SEARCH 01695 M01S01520.1mb +++| RJM FOM FIND OLDEST ENTRY 01696 M01S01521.1mb +++| ZJN FNR1 IF NO ENTRY TO PROCESS 01697 M01S01522.1mb +++| LDD MB READ SIZE OF DATA TO LOG 01698 M01S01523.1mb +++| SHN 14 01699 M01S01524.1mb +++| LMD MB+1 01700 M01S01525.1mb +++| ADN 1 01701 M01S01526.1mb +++| CRDL CM 01702 M01S01527.1mb +++| LDD CM+3 SAVE SIZE OF DATA TO LOG 01703 M01S01528.1mb +++| FNR1 STD CN+3 01704 M01S01529.1mb +++| UJN FNRX RETURN 01705 M01S01530.1mb +++| FOM SPACE 4,10 01706 M01S01531.1mb +++|** FOM - FIND OLDEST M/R BUFFER ENTRY. 01707 M01S01532.1mb +++|* 01708 M01S01533.1mb +++|* ENTRY (A) = NUMBER OF CONTROL WORDS TO SEARCH. 01709 M01S01534.1mb +++|* (T2) = INTERVAL BETWEEN CONTROL WORDS. 01710 M01S00084.271l716 +++|* (MB - MB+1) = ADDRESS OF FIRST CONTROL WORD. 01711 M01S01535.1mb +++|* 01712 M01S01536.1mb +++|* EXIT (A) = (T7) = OFFSET OF OLDEST CONTROL WORD. 01713 M01S01537.1mb +++|* = 0, IF NO ENTRY FOUND TO PROCESS. 01714 M01S01538.1mb +++|* (CN - CN+3) = OLDEST M/R CONTROL WORD. 01715 M01S01539.1mb +++|* (MB - MB+1) = ADDRESS OF OLDEST M/R CONTROL WORD. 01716 M01S01540.1mb +++|* 01717 M01S01541.1mb +++|* USES CN - CN+3, MB - MB+1, T1, T6, T7, T8.
| Line S01542 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01718 M02S01542.271l716 ---|*
| Line S01543 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01719 M02S01543.271l716 ---|* CALLS SCA. 01720 M01S01544.1mb +++| 01721 M01S01545.1mb +++| 01722 M01S01546.1mb +++|* INTERLOCK SELECTED ENTRY. IF UNABLE TO DO SO, *DFT* IS IN 01723 M01S01547.1mb +++|* THE PROCESS OF OVERWRITING IT AND A NEW ENTRY MUST BE 01724 M01S01548.1mb +++|* SELECTED. IF THE INTERLOCK IS OBTAINED, BUT THE SEQUENCE 01725 M01S01549.1mb +++|* NUMBER IS DIFFERENT, *DFT* HAS OVERWRITTEN IT. A NEW ENTRY 01726 M01S01550.1mb +++|* MUST BE SELECTED. 01727 M01S01551.1mb +++| 01728 M01S01552.1mb +++| FOM6 LDD T7 01729 M01S01553.1mb +++| ZJN FOMX IF NO ENTRY SELECTED 01730 M01S01554.1mb +++| LDN ZERL SET UP INTERLOCK WORD 01731 M01S01555.1mb +++| CRDL CN 01732 M01S01556.1mb +++| LDBC MRIL 01733 M01S01557.1mb +++| STD CN+2 01734 M01S01558.1mb +++| LDD MB 01735 M01S01559.1mb +++| SHN 14 01736 M01S01560.1mb +++| LMD MB+1 01737 M01S01561.1mb +++| ADD T7 01738 M01S01562.1mb +++| RDSL CN SET INTERLOCK ON OLDEST CONTROL WORD 01739 M01S01563.1mb +++| LDDL CN+2 01740 M01S01564.1mb +++| SHN 21-MRIL 01741 M01S01565.1mb +++| MJN FOM1 IF INTERLOCKED BY *DFT* 01742 M01S01566.1mb +++| LDDL CN+2 01743 M01S01567.1mb +++| SHN -10 CHECK SEQUENCE NUMBER 01744 M01S01568.1mb +++| SBD T8 01745 M01S01569.1mb +++| ZJN FOM7 IF SAME SEQUENCE NUMBER 01746 M01S01570.1mb +++| LDD MB CLEAR INTERLOCK 01747 M01S01571.1mb +++| SHN 14 01748 M01S01572.1mb +++| LMD MB+1 01749 M01S01573.1mb +++| ADD T7 01750 M01S01574.1mb +++| CWDL CN 01751 M01S01575.1mb +++| UJN FOM1 RESTART SEARCH 01752 M01S01576.1mb +++| 01753 M01S01577.1mb +++| FOM7 LDD T7 SET OLDEST BUFFER CONTROL WORD ADDRESS 01754 M01S01578.1mb +++| RAD MB+1 01755 M01S01579.1mb +++| SHN -14 01756 M01S01580.1mb +++| RAD MB 01757 M01S01581.1mb +++| LDD T7 01758 M01S01582.1mb +++| 01759 M01S01583.1mb +++| FOM SUBR ENTRY/EXIT 01760 M01S01584.1mb +++| STM FOMB SAVE NUMBER OF CONTROL WORDS
| Line S01585 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01761 M02S01585.271l716 ---| RJM SCA SET ADDRESS OF CONTROL WORDS 01762 M01S01586.1mb +++| FOM1 LDN 0 01763 M01S01587.1mb +++| STD T6 COUNTER FOR M/R BUFFER ENTRIES 01764 M01S01588.1mb +++| STD T7 OFFSET OF OLDEST M/R BUFFER 01765 M01S01589.1mb +++| STD T8 SEQUENCE NUMBER OF OLDEST M/R BUFFER 01766 M01S01590.1mb +++| LDC ** 01767 M01S01591.1mb +++| FOMB EQU *-1 (NUMBER OF CONTROL WORDS TO SEARCH) 01768 M01S01592.1mb +++| STD T1 01769 M01S01593.1mb +++| UJN FOM3 ENTER LOOP 01770 M01S01594.1mb +++| 01771 M01S01595.1mb +++| FOM2 LDD T2 ADVANCE TO NEXT CONTROL WORD 01772 M01S01596.1mb +++| RAD T6 01773 M01S01597.1mb +++| SOD T1 01774 M01S01598.1mb +++| ZJP FOM6 IF SEARCH COMPLETE 01775 M01S01599.1mb +++| FOM3 LDD MB READ NEXT M/R CONTROL WORD 01776 M01S01600.1mb +++| SHN 14 01777 M01S01601.1mb +++| LMD MB+1 01778 M01S01602.1mb +++| ADD T6 01779 M01S01603.1mb +++| CRDL CN 01780 M01S01604.1mb +++| LDDL CN+2 CHECK VALID DATA FLAG AND INTERLOCK FLAG 01781 M01S01605.1mb +++| FOMA LPBC (MRV7,MRIL,MRLG) 01782 M01S01606.1mb +++|* LPBC (MRV7,MRIL) (IF 180 LOGGING) 01783 M01S01607.1mb +++| SHN 21-MRIL 01784 M01S01608.1mb +++| MJN FOM2 IF INTERLOCKED BY *DFT* 01785 M01S01609.1mb +++| ZJN FOM2 IF NOT A POTENTIAL EARLIEST ENTRY 01786 M01S01610.1mb +++| LDD T7 01787 M01S01611.1mb +++| ZJN FOM5 IF NO ENTRY SELECTED YET 01788 M01S01612.1mb +++| LDDL CN+2 GET SEQUENCE NUMBER 01789 M01S01613.1mb +++| SHN -10 01790 M01S01614.1mb +++| SBD T8 SUBTRACT OLDEST SEQUENCE NUMBER 01791 M01S01615.1mb +++| MJN FOM4 IF LOWER THAN PREVIOUS 01792 M01S01616.1mb +++| SBN 40 01793 M01S01617.1mb +++| PJN FOM5 IF WRAP AROUND 01794 M01S01618.1mb +++| FOM3.1 UJP FOM2 PROCESS NEXT ENTRY 01795 M01S01619.1mb +++| 01796 M01S01620.1mb +++| FOM4 ADN 40 01797 M01S01621.1mb +++| MJN FOM2 IF NOT AN EARLIER ENTRY 01798 M01S01622.1mb +++| FOM5 LDDL CN+2 SET NEW OLDEST SEQUENCE NUMBER 01799 M01S01623.1mb +++| SHN -10 01800 M01S01624.1mb +++| STD T8 01801 M01S01625.1mb +++| LDD T6 SET NEW OLDEST OFFSET 01802 M01S01626.1mb +++| STD T7 01803 M01S01627.1mb +++| UJN FOM3.1 PROCESS NEXT ENTRY 01804 M01S01628.1mb +++| FSS SPACE 4,10 01805 M01S01629.1mb +++|** FSS - FIND SUPPORTIVE STATUS DATA. 01806 M01S01630.1mb +++|* 01807 M01S01631.1mb +++|* ENTRY (FSSA) = FWA OF SUPPORTIVE STATUS BUFFER. 01808 M01S01632.1mb +++|* (FSSB) = OFFSET OF ENTRY IN M/R BUFFER CONTROL WORDS. 01809 M01S01633.1mb +++|* (MUST BE NON-ZERO) 01810 M01S01634.1mb +++|* 01811 M01S01635.1mb +++|* EXIT (SSCW - SSCW+1) = ADDRESS OF CONTROL WORD FOR 01812 M01S01636.1mb +++|* SUPPORTIVE STATUS DATA. 01813 M01S01637.1mb +++|* 01814 M01S01638.1mb +++|* USES T1, CM - CM+4, MS - MS+1. 01815 M01S01639.1mb +++| 01816 M01S01640.1mb +++| 01817 M01S01641.1mb +++| FSS SUBR ENTRY/EXIT 01818 M01S01642.1mb +++| FSSA LDC ** GET START OF SUPPORTIVE STATUS BUFFERS 01819 M01S01643.1mb +++| ZJN FSSX IF *DFT* VERSION 3 01820 M01S01644.1mb +++| CRDL CM 01821 M01S01645.1mb +++| ADN 1 ADVANCE TO START OF FIRST ENTRY 01822 M01S01646.1mb +++| STD MS+1 01823 M01S01647.1mb +++| SHN -14 01824 M01S01648.1mb +++| STD MS 01825 M01S01649.1mb +++| LDC * SET OFFSET 01826 M01S01650.1mb +++| FSSB EQU *-1 01827 M01S01651.1mb +++| STD T1 01828 M01S01652.1mb +++| FSS1 LDD CM+3 ADVANCE TO NEXT ENTRY 01829 M01S01653.1mb +++| RAD MS+1 01830 M01S01654.1mb +++| SHN -14 01831 M01S01655.1mb +++| RAD MS 01832 M01S01656.1mb +++| SOD T1 01833 M01S01657.1mb +++| NJN FSS1 IF NOT YET AT CORRECT ENTRY 01834 M01S01658.1mb +++| LDD MS SAVE ADDRESS OF CONTROL WORD FOR ENTRY 01835 M01S01659.1mb +++| STM SSCW 01836 M01S01660.1mb +++| LDD MS+1 01837 M01S01661.1mb +++| STM SSCW+1 01838 M01S01662.1mb +++| UJN FSSX RETURN 01839 M01S01663.1mb +++| GPB SPACE 4,10 01840 M01S01664.1mb +++|** GPB - GET POINTER TO *BML* BUFFER. 01841 M01S01665.1mb +++|* 01842 M01S01666.1mb +++|* ENTRY (BP) = PREVIOUS POINTER INTO *BML* BUFFER. 01843 M01S01667.1mb +++|* 01844 M01S01668.1mb +++|* EXIT (BP) UPDATED. 01845 M01S01669.1mb +++|* *BML* MESSAGE ISSUED. 01846 M01S01670.1mb +++|* 01847 M01S01671.1mb +++|* USES BP, CM - CM+4. 01848 M01S01672.1mb +++|* 01849 M01S01673.1mb +++|* CALLS DFM. 01850 M01S01674.1mb +++| 01851 M01S01675.1mb +++| 01852 M01S01676.1mb +++| GPB SUBR ENTRY/EXIT 01853 M01S01677.1mb +++| LDN 5 01854 M01S01678.1mb +++| RAD BP UPDATE POINTER TO *BML* BUFFER 01855 M01S01679.1mb +++| ADC -IBMHL 01856 M01S01680.1mb +++| MJN GPBX IF STILL WITHIN BUFFER 01857 M01S01681.1mb +++| LDN ZERL 01858 M01S01682.1mb +++| CRD CM FORM *BML* PARAMETERS 01859 M01S01683.1mb +++| LDN 6*5 SET BYTE COUNT 01860 M01S01684.1mb +++| STD CM+1 01861 M01S01685.1mb +++| LDM IBMG+1 UNCONDITIONALLY SET CONTINUATION BIT 01862 M01S01686.1mb +++| SCN 4 01863 M01S01687.1mb +++| LMN 4 01864 M01S01688.1mb +++| STM IBMG+1 01865 M01S01689.1mb +++| LDC IBMF+BMLN SEND *BML* MESSAGE 01866 M01S01690.1mb +++| RJM DFM 01867 M01S01691.1mb +++| LDC IBMH 01868 M01S01692.1mb +++| STD BP 01869 M01S01693.1mb +++| LDM IBMG+1 SET NOT FIRST BLOCK FLAG 01870 M01S01694.1mb +++| SCN 10 01871 M01S01695.1mb +++| LMN 10 01872 M01S01696.1mb +++| STM IBMG+1 01873 M01S01697.1mb +++| UJN GPBX RETURN 01874 M01S01698.1mb +++| IMD SPACE 4,10 01875 M01S01699.1mb +++|** IMD - ISSUE MODEL DEPENDENT DATA *BML* MESSAGE. 01876 M01S01700.1mb +++|* 01877 M01S01701.1mb +++|* ENTRY MESSAGE BUILT AT *BHDR*. 01878 M01S01702.1mb +++|* (A) = LENGTH OF MESSAGE TO ISSUE. 01879 M01S01703.1mb +++|*
| Line S01704 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01880 M02S01704.ns2769 ---|* USES T3, CM - CM+4, CN - CN+4, T5 - T7.
| Line S01705 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01881 M02S01705.ns2769 ---|*
| Line S01706 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01882 M02S01706.ns2769 ---|* MACROS DELAY, EXECUTE, MONITOR. 01883 M01S00041.ns2769 +++|* CALLS IMB. 01884 M01S01707.1mb +++| 01885 M01S01708.1mb +++| 01886 M01S01709.1mb +++| IMD SUBR ENTRY/EXIT 01887 M01S01710.1mb +++| ADN 1
| Line S01711 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01888 M02S01711.ns2769 ---| STD T3 SAVE LENGTH OF MESSAGE 01889 M01S01712.1mb +++| STM BHDR+3
| Line S01713 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01890 M02S01713.ns2769 ---| LDK EMBP
| Line S01714 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01891 M02S01714.ns2769 ---| CRD T5 FETCH *EMB* POINTER
| Line S01715 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01892 M02S01715.ns2769 ---| IMD1 DELAY
| Line S01716 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01893 M02S01716.ns2769 ---| LDN ZERL PRESET *UTEM* REQUEST
| Line S01717 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01894 M02S01717.ns2769 ---| CRD CM
| Line S01718 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01895 M02S01718.ns2769 ---| LDD T7 SET ADDRESS OF INTERLOCK WORD
| Line S01719 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01896 M02S01719.ns2769 ---| STD CM+4
| Line S01720 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01897 M02S01720.ns2769 ---| LDD T6
| Line S01721 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01898 M02S01721.ns2769 ---| STD CM+3
| Line S01722 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01899 M02S01722.ns2769 ---| MONITOR UTEM GET *EMB* INTERLOCK
| Line S01723 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01900 M02S01723.ns2769 ---| LDD CM+1
| Line S01724 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01901 M02S01724.ns2769 ---| NJN IMD1 IF INTERLOCK NOT OBTAINED
| Line S01725 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01902 M02S01725.ns2769 ---| LDD T6 READ INTERLOCK WORD
| Line S01726 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01903 M02S01726.ns2769 ---| SHN 14
| Line S01727 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01904 M02S01727.ns2769 ---| LMD T7
| Line S01728 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01905 M02S01728.ns2769 ---| CRD CN
| Line S01729 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01906 M02S01729.ns2769 ---| LDD T3 MESSAGE LENGTH
| Line S01730 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01907 M02S01730.ns2769 ---| ADD CN+3 CURRENT WORD COUNT
| Line S01731 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01908 M02S01731.ns2769 ---| SBK EMBLL-1
| Line S01732 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01909 M02S01732.ns2769 ---| MJN IMD2 IF ROOM IN BUFFER FOR MESSAGE
| Line S01733 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01910 M02S01733.ns2769 ---| SOD CN+4 CLEAR *EMB* INTERLOCK
| Line S01734 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01911 M02S01734.ns2769 ---| LDD T6
| Line S01735 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01912 M02S01735.ns2769 ---| SHN 14
| Line S01736 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01913 M02S01736.ns2769 ---| LMD T7
| Line S01737 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01914 M02S01737.ns2769 ---| CWD CN
| Line S01738 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01915 M02S01738.ns2769 ---| UJN IMD1 RETRY
| Line S01739 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01916 M02S01739.ns2769 ---|
| Line S01740 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01917 M02S01740.ns2769 ---| IMD2 LDD T6 WRITE ERROR MESSAGE TO *EMB*
| Line S01741 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01918 M02S01741.ns2769 ---| SHN 14
| Line S01742 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01919 M02S01742.ns2769 ---| ADD T7
| Line S01743 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01920 M02S01743.ns2769 ---| ADN 1 ADVANCE OVER INTERLOCK WORD
| Line S01744 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01921 M02S01744.ns2769 ---| ADD CN+3
| Line S01745 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01922 M02S01745.ns2769 ---| CWM BHDR,T3
| Line S01746 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01923 M02S01746.ns2769 ---| LDD T3 UPDATE LENGTH OF DATA IN *EMB*
| Line S01747 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01924 M02S01747.ns2769 ---| RAD CN+3
| Line S01748 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01925 M02S01748.ns2769 ---| LDD CN+4
| Line S01749 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01926 M02S01749.ns2769 ---| LPN 2
| Line S01750 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01927 M02S01750.ns2769 ---| NJN IMD3 IF *1MD* ALREADY CALLED
| Line S01751 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01928 M02S01751.ns2769 ---| LDN 10
| Line S01752 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01929 M02S01752.ns2769 ---| STD CM+1 FORCE ASSIGNMENT TO SYSTEM CP
| Line S01753 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01930 M02S01753.ns2769 ---| LDD MA
| Line S01754 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01931 M02S01754.ns2769 ---| CWM IMDA,ON STORE MESSAGE BUFFER FOR *1MD* CALL
| Line S01755 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01932 M02S01755.ns2769 ---| EXECUTE 1MD,=
| Line S01756 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01933 M02S01756.ns2769 ---| MONITOR RPPM REQUEST PP FOR *1MD*
| Line S01757 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01934 M02S01757.ns2769 ---| LDD CM+1
| Line S01758 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01935 M02S01758.ns2769 ---| ZJN IMD3 IF NO PP-S AVAILABLE
| Line S01759 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01936 M02S01759.ns2769 ---| LDN 2 SET *1MD* CALLED FLAG
| Line S01760 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01937 M02S01760.ns2769 ---| RAD CN+4
| Line S01761 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01938 M02S01761.ns2769 ---| IMD3 SOD CN+4 CLEAR *EMB* INTERLOCK
| Line S01762 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01939 M02S01762.ns2769 ---| LDD T6
| Line S01763 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01940 M02S01763.ns2769 ---| SHN 14 UPDATE *EMB* INFORMATION
| Line S01764 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01941 M02S01764.ns2769 ---| LMD T7
| Line S01765 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01942 M02S01765.ns2769 ---| CWD CN 01943 M01S00042.ns2769 +++| LDC BHDR 01944 M01S00043.ns2769 +++| RJM IMB ISSUE MESSAGE TO BUFFER 01945 M01S01766.1mb +++| LDM MBUF+1*5+1 SET NOT FIRST BLOCK FLAG 01946 M01S01767.1mb +++| SCN 10 01947 M01S01768.1mb +++| LMN 10 01948 M01S01769.1mb +++| STM MBUF+1*5+1 01949 M01S01770.1mb +++| UJP IMDX RETURN
| Line S01771 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01950 M02S01771.ns2769 ---|
| Line S01772 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01951 M02S01772.ns2769 ---|
| Line S01773 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01952 M02S01773.ns2769 ---| IMDA VFD 18/0L1MD,42/1 01953 M01S01774.1mb +++| LDT SPACE 4,15 01954 M01S01775.1mb +++|** LDT - LOG DATA STRUCTURE. 01955 M01S01776.1mb +++|* 01956 M01S01777.1mb +++|* *LDT* LOGS THE SUPPORTIVE STATUS BUFFER AND NON-REGISTER 01957 M01S01778.1mb +++|* DATA. 01958 M01S01779.1mb +++|* 01959 M01S01780.1mb +++|* ENTRY (T4) = NUMBER OF WORDS TO LOG. 01960 M01S01781.1mb +++|* (MS - MS+1) = ADDRESS-1 OF FIRST WORD TO LOG. 01961 M01S01782.1mb +++|* 01962 M01S01783.1mb +++|* USES BP, T4, T5, CN - CN+3, MS - MS+1. 01963 M01S01784.1mb +++|* 01964 M01S01785.1mb +++|* CALLS CMB, PMB, PMR. 01965 M01S01786.1mb +++| 01966 M01S01787.1mb +++| 01967 M01S01788.1mb +++| LDT SUBR ENTRY/EXIT 01968 M01S01789.1mb +++| LDN 0 CLEAR CONTINUATION/NOT FIRST BLOCK FLAGS 01969 M01S01790.1mb +++| STM IBMG+1 01970 M01S01791.1mb +++| STD T5 SET UP FOR *PMB* 01971 M01S01792.1mb +++| LDC IBMH-5 01972 M01S01793.1mb +++| STD BP 01973 M01S01794.1mb +++| LDN ZERL USE ZERO AS REGISTER NUMBERS 01974 M01S01795.1mb +++| CRML BDMR,ON 01975 M01S01796.1mb +++| LDT1 AOD MS+1 READ NEXT WORD OF DATA 01976 M01S01797.1mb +++| SHN -14 01977 M01S01798.1mb +++| RAD MS 01978 M01S01799.1mb +++| SHN 14 01979 M01S01800.1mb +++| LMD MS+1 01980 M01S01801.1mb +++| CRDL CN 01981 M01S01802.1mb +++| RJM PMR PACK DATA INTO *BCMR* BUFFER 01982 M01S01803.1mb +++| RJM PMB PACK DATA INTO *BML* MESSAGE 01983 M01S01804.1mb +++| NJN LDT2 IF NOT AT END OF BLOCK 01984 M01S01805.1mb +++| LDM IBMG+1 SET NOT FIRST BLOCK FLAG 01985 M01S01806.1mb +++| SCN 10 01986 M01S01807.1mb +++| LMN 10 01987 M01S01808.1mb +++| STM IBMG+1 01988 M01S01809.1mb +++| LDT2 SOD T4 01989 M01S01810.1mb +++| NJN LDT1 IF MORE WORDS TO LOG 01990 M01S01811.1mb +++| RJM CBM COMPLETE *BML* MESSAGES 01991 M01S01812.1mb +++| UJP LDTX RETURN 01992 M01S01813.1mb +++| LED SPACE 4,10 01993 M01S01814.1mb +++|** LED - LOAD AND EXECUTE *DFT*. 01994 M01S01815.1mb +++|* 01995 M01S01816.1mb +++|* EXIT *DFT* IS LOADED INTO THIS PP. 01996 M01S01817.1mb +++|* 01997 M01S01818.1mb +++|* USES DC - DC+1, CM - CM+3, CN - CN+4, SC, T0, T7. 01998 M01S01819.1mb +++|* 01999 M01S01820.1mb +++|* CALLS DOB. 02000 M01S01821.1mb +++| 02001 M01S01822.1mb +++| 02002 M01S01823.1mb +++| LED BSS 0 ENTRY 02003 M01S01824.1mb +++| RJM DOB READ *DFT* CONTROL WORD 02004 M01S01825.1mb +++| ADK DFCW 02005 M01S01826.1mb +++| CRDL DC 02006 M01S01827.1mb +++| LDDL DC+3 CHECK DEDICATED MODE 02007 M01S01828.1mb +++| SHN 21-DCDM 02008 M01S01829.1mb +++| PJP LED1 IF *DFT* IS IN DEDICATED MODE 02009 M01S01830.1mb +++| 02010 M01S01831.1mb +++|* SAVE PP RESIDENT. 02011 M01S01832.1mb +++| 02012 M01S01833.1mb +++| SETMS NODRIVER CLEAR DRIVER PRESENT FLAG 02013 M01S01834.1mb +++| LDC DFPSL-1 SET WORD COUNT TO SAVE 02014 M01S01835.1mb +++| STD T7 02015 M01S01836.1mb +++| LDN DFTBL TRANSFER BOOTSTRAP TO *MSFW* 02016 M01S01837.1mb +++| STD CM 02017 M01S01838.1mb +++| LDD MA 02018 M01S01839.1mb +++| CWM LEDD,CM 02019 M01S01840.1mb +++| LDD MA 02020 M01S01841.1mb +++| CRM MSFW,CM 02021 M01S01842.1mb +++| LDC MSFW-1 SET EXECUTION ADDRESS ON RETURN FROM *DFT* 02022 M01S01843.1mb +++| STD T0 02023 M01S01844.1mb +++| RJM DOB GET *PPR* SAVE AREA BUFFER ADDRESS 02024 M01S01845.1mb +++| ADK DFPS 02025 M01S01846.1mb +++| CRDL CM 02026 M01S01847.1mb +++| RPTR CM CONVERT ADDRESS 02027 M01S01848.1mb +++| CWD T0 WRITE FIRST WORD OF *PPR* 02028 M01S01849.1mb +++| ADN 1 02029 M01S01850.1mb +++| CWM 5,T7 WRITE REMAINDER OF *PPR* 02030 M01S01851.1mb +++| LDN DSAL RESERVE CIP CHANNEL 02031 M01S01852.1mb +++| CRD CM 02032 M01S01853.1mb +++| LDD CM+4 02033 M01S01854.1mb +++| LPN 77 02034 M01S01855.1mb +++| RCHAN 02035 M01S01856.1mb +++| 02036 M01S01857.1mb +++|* CHECK NOS REQUEST STATUS. 02037 M01S01858.1mb +++| 02038 M01S01859.1mb +++| RJM SDA READ NOS REQUEST HEADER 02039 M01S01860.1mb +++| CRD CM 02040 M01S01861.1mb +++| LDD CM+4 CHECK STATUS 02041 M01S01862.1mb +++| LMN STRY 02042 M01S01863.1mb +++| NJN LED3 IF NOT STATUS = *READY* 02043 M01S01864.1mb +++| LDN STAC SET STATUS = *ACTIVE* 02044 M01S01865.1mb +++| STD CM+4 02045 M01S01866.1mb +++| RJM SDA REWRITE NOS REQUEST HEADER 02046 M01S01867.1mb +++| CWD CM 02047 M01S01868.1mb +++| UJN LED3 CONTINUE WITH LOADING *DFT* 02048 M01S01869.1mb +++| 02049 M01S01870.1mb +++| LED1 SHN 21-DCVR-21+DCDM+22 02050 M01S01871.1mb +++| PJN LED2 IF *DFT* NOT ALREADY ACTIVATED 02051 M01S01872.1mb +++| RJM CNR CHECK FOR NOS REQUEST 02052 M01S01873.1mb +++| LJM DPP DROP PP 02053 M01S01874.1mb +++| 02054 M01S01875.1mb +++| LED2 LDD IA CHANGE *1MB* TO *DFT* IN INPUT REGISTER 02055 M01S01876.1mb +++| CRD CM 02056 M01S01877.1mb +++| LDC 2RDF 02057 M01S01878.1mb +++| STD CM 02058 M01S01879.1mb +++| LDD CM+1 02059 M01S01880.1mb +++| LPN 77 02060 M01S01881.1mb +++| LMC 1RT*100 02061 M01S01882.1mb +++| STD CM+1 02062 M01S01883.1mb +++| LDD IA 02063 M01S01884.1mb +++| CWD CM 02064 M01S01885.1mb +++| LED3 LDM IBMF+2 SET PP NUMBER IN *DFT* CONTROL WORD 02065 M01S01886.1mb +++| SHN -6 02066 M01S01887.1mb +++| LMDL DC+1 02067 M01S01888.1mb +++| LPN 37 02068 M01S01889.1mb +++| LMDL DC+1 02069 M01S01890.1mb +++| STDL DC+1 02070 M01S01891.1mb +++| RJM DOB 02071 M01S01892.1mb +++| ADK DFCW 02072 M01S01893.1mb +++| CWDL DC UPDATE *DFT* CONTROL WORD 02073 M01S01894.1mb +++| 02074 M01S01895.1mb +++|* FIND *DFT* ENTRY IN *CTI* CM DIRECTORY. 02075 M01S01896.1mb +++| 02076 M01S01897.1mb +++| LDN 0 02077 M01S01898.1mb +++| STD T1 02078 M01S01899.1mb +++| LDK EIBP 02079 M01S01900.1mb +++| CRD CN 02080 M01S01901.1mb +++| LDD CN+3 02081 M01S01902.1mb +++| SHN 14 02082 M01S01903.1mb +++| LMD CN+4 02083 M01S01904.1mb +++| ADK DSCM+2 READ *CTI* CM DIRECTORY POINTER 02084 M01S01905.1mb +++| CRDL CN 02085 M01S01906.1mb +++| LRD CN+1 LOAD R-REGISTER 02086 M01S01907.1mb +++| LDDL CN SAVE REMAINDER 02087 M01S01908.1mb +++| STD T2 02088 M01S01909.1mb +++| LED4 ADC 400000 SET BIT TO USE R-REGISTER 02089 M01S01910.1mb +++| CRDL CN READ *CTI* DIRECTORY ENTRY 02090 M01S01911.1mb +++| LDDL CN 02091 M01S01912.1mb +++| LMC 2RDF 02092 M01S01913.1mb +++| NJN LED5 IF NOT *DFT* ENTRY 02093 M01S01914.1mb +++| LDDL CN+1 02094 M01S01915.1mb +++| SHN -6 02095 M01S01916.1mb +++| LMN 1RT 02096 M01S01917.1mb +++| ZJN LED6 IF *DFT* ENTRY 02097 M01S01918.1mb +++| LED5 LDDL CN+3 FIND NEXT DIRECTORY ENTRY 02098 M01S01919.1mb +++| RAD T2 02099 M01S01920.1mb +++| SHN -14 02100 M01S01921.1mb +++| RAD T1 02101 M01S01922.1mb +++| SHN 14 02102 M01S01923.1mb +++| LMD T2 02103 M01S01924.1mb +++| UJN LED4 CHECK NEXT DIRECTORY ENTRY 02104 M01S01925.1mb +++| 02105 M01S01926.1mb +++|* MOVE CODE TO SAVE AREA SO *DFT* DOES NOT OVERWRITE IT. 02106 M01S01927.1mb +++| 02107 M01S01928.1mb +++| LED6 LDN .LED2 SIZE OF CODE TO MOVE 02108 M01S01929.1mb +++| STD T3 02109 M01S01930.1mb +++| LDD MA MOVE CODE THROUGH MESSSAGE BUFFER 02110 M01S01931.1mb +++| CWML LEDA,T3 02111 M01S01932.1mb +++| SBD T3 02112 M01S01933.1mb +++| CRML CN,T3 02113 M01S01934.1mb +++| LJM CN JUMP TO LOADER 02114 M01S01935.1mb +++| 02115 M01S01936.1mb +++|* LOAD AND EXECUTE *DFT*. 02116 M01S01937.1mb +++| 02117 M01S01938.1mb +++| LEDA BSS 0 START OF CODE TO MOVE 02118 M01S01939.1mb +++| LDD T1 02119 M01S01940.1mb +++| SHN 14 02120 M01S01941.1mb +++| LMD T2 02121 M01S01942.1mb +++| ADC 400001 02122 M01S01943.1mb +++| CRDL CN READ *DFT* LOAD PARAMETERS 02123 M01S01944.1mb +++| ADN 1 02124 M01S01945.1mb +++| STD T2 02125 M01S01946.1mb +++| SHN -14 02126 M01S01947.1mb +++| STD T1 02127 M01S01948.1mb +++| LDD CN SET *DFT* LOAD ADDRESS 02128 M01S01949.1mb +++| STD LEDC 02129 M01S01950.1mb +++| LDD T1 LOAD *DFT* 02130 M01S01951.1mb +++| SHN 14 02131 M01S01952.1mb +++| LMD T2 02132 M01S01953.1mb +++| CRML **,CN+1 02133 M01S01954.1mb +++| LEDB EQU *-1 (*DFT* LOAD ADDRESS) 02134 M01S01955.1mb +++| LJM 100 EXECUTE *DFT* 02135 M01S01956.1mb +++| 02136 M01S01957.1mb +++| 02137 M01S01958.1mb +++| .LED1 EQU *-LEDA-1 02138 M01S01959.1mb +++| .LED2 EQU .LED1/4+1 02139 M01S01960.1mb +++| ERRPL .LED2-7 CODE LONGER THAN MESSAGE BUFFER 02140 M01S01961.1mb +++| LEDC EQU LEDB-LEDA+CN LOCATION TO PLUG *DFT* LOAD ADDRESS 02141 M01S01962.1mb +++| 02142 M01S01963.1mb +++|* BOOTSTRAP USED TO DROP CIP CHANNEL ON RETURN FROM *DFT*. 02143 M01S01964.1mb +++| 02144 M01S01965.1mb +++| LEDD BSS 0 02145 M01S01966.1mb +++| LOC MSFW 02146 M01S01967.1mb +++| LDN DSAL LOCATE CIP CHANNEL 02147 M01S01968.1mb +++| CRD CM 02148 M01S01969.1mb +++| LDD CM+4 RELEASE CIP CHANNEL 02149 M01S01970.1mb +++| LPN 77 02150 M01S01971.1mb +++| DCHAN 02151 M01S01972.1mb +++| LJM PPR RELOAD *1MB* 02152 M01S01973.1mb +++| LOC *O 02153 M01S01974.1mb +++| .LEDDL SET *-LEDD+4 02154 M01S01975.1mb +++| ERRNG DFTBL-.LEDDL/5 *DFT* BOOTSTRAP TOO LONG 02155 M01S01976.1mb +++| LMD SPACE 4,15 02156 M01S01977.1mb +++|** LMD - LOG MODEL DEPENDENT BUFFER. 02157 M01S01978.1mb +++|* 02158 M01S01979.1mb +++|* ENTRY (T4) = LENGTH OF DATA TO LOG. 02159 M01S01980.1mb +++|* (MS - MS+1) = FWA - 1 OF DATA TO LOG. 02160 M01S01981.1mb +++|* 02161 M01S01982.1mb +++|* EXIT MODEL DEPENDENT DATA ISSUED TO *BML*. 02162 M01S01983.1mb +++|* 02163 M01S01984.1mb +++|* USES T1 - T5, BP, MS, CN - CN+3. 02164 M01S01985.1mb +++|* 02165 M01S01986.1mb +++|* CALLS IMD, PMR, PWB. 02166 M01S01987.1mb +++| 02167 M01S01988.1mb +++| 02168 M01S01989.1mb +++| LMD7 LDM MBUF+1*5+1 CLEAR CONTINUATION BIT 02169 M01S01990.1mb +++| SCN 4 02170 M01S01991.1mb +++| STM MBUF+1*5+1 02171 M01S01992.1mb +++| LMD8 LDC 18D 02172 M01S01993.1mb +++| LMDA EQU *-1 (NUMBER OF WORDS TO LOG) 02173 M01S01994.1mb +++| RJM IMD ISSUE *BML* MESSAGE 02174 M01S01995.1mb +++| LDN 18D RESET WORD COUNT 02175 M01S01996.1mb +++| STM LMDA 02176 M01S01997.1mb +++| LDD T4 02177 M01S01998.1mb +++| NJN LMD1 IF MORE DATA TO LOG 02178 M01S01999.1mb +++| 02179 M01S02000.1mb +++| LMD SUBR ENTRY/EXIT 02180 M01S02001.1mb +++| LMD1 LDC MBUF+2*5 SET BUFFER POINTER 02181 M01S02002.1mb +++| STD T1 02182 M01S02003.1mb +++| STD BP 02183 M01S02004.1mb +++| ADK 15D*5 SET POINTER TO ASSEMBLY FOR LAST 4 BITS 02184 M01S02005.1mb +++| STD EC 02185 M01S02006.1mb +++| LMD2 LDN 0 CLEAR BUFFER 02186 M01S02007.1mb +++| STI T1 02187 M01S02008.1mb +++| AOD T1 02188 M01S02009.1mb +++| LMC MBUF+50D*5 02189 M01S02010.1mb +++| NJN LMD2 IF MORE TO CLEAR 02190 M01S02011.1mb +++| STD T5 INITIALIZE COUNTER 02191 M01S02012.1mb +++| LDN 15D NUMBER OF WORDS PER BLOCK 02192 M01S02013.1mb +++| STD T1 02193 M01S02014.1mb +++| LMD3 AOD MS+1 READ NEXT WORD 02194 M01S02015.1mb +++| SHN -14 02195 M01S02016.1mb +++| RAD MS 02196 M01S02017.1mb +++| SHN 14 02197 M01S02018.1mb +++| LMD MS+1 02198 M01S02019.1mb +++| CRDL CN 02199 M01S02020.1mb +++| RJM PMR PACK WORD INTO *BCMR* 02200 M01S02021.1mb +++| RJM PWB PACK WORD INTO BUFFER 02201 M01S02022.1mb +++| LJM LMD4,T5 POSITION LAST 4 BITS 02202 M01S02023.1mb +++|* LJM LMD4 (LEFTMOST BITS) 02203 M01S02024.1mb +++|* LJM LMD4+1 (MIDDLE BITS) 02204 M01S02025.1mb +++|* LJM LMD4+2 (RIGHTMOST BITS) 02205 M01S02026.1mb +++| 02206 M01S02027.1mb +++| LMD4 SHN 4 02207 M01S02028.1mb +++| SHN 4 02208 M01S02029.1mb +++| RAI EC ADD TO ASSEMBLY 02209 M01S02030.1mb +++| SOD T4 02210 M01S02031.1mb +++| ZJP LMD7 IF NO MORE DATA TO LOG 02211 M01S02032.1mb +++| AOD T5 02212 M01S02033.1mb +++| SBN 3 02213 M01S02034.1mb +++| MJN LMD5 IF NOT END OF BYTE 02214 M01S02035.1mb +++| LDN 0 RESET COUNTER 02215 M01S02036.1mb +++| STD T5 02216 M01S02037.1mb +++| AOD EC ADVANCE TO NEXT BYTE 02217 M01S02038.1mb +++| LMD5 LDN 5 ADVANCE BUFFER POINTER 02218 M01S02039.1mb +++| RAD BP 02219 M01S02040.1mb +++| SOD T1 02220 M01S02041.1mb +++| LMD6 NJP LMD3 IF NOT END OF GROUP 02221 M01S02042.1mb +++| LDN 15D RESET GROUP COUNTER 02222 M01S02043.1mb +++| STD T1 02223 M01S02044.1mb +++| LDC 15D*5 ADVANCE ASSEMBLY BUFFER 02224 M01S02045.1mb +++| RAD EC 02225 M01S02046.1mb +++| LDN 5 SKIP OVER ASSEMBLY BUFFER 02226 M01S02047.1mb +++| RAD BP 02227 M01S02048.1mb +++| LMC MBUF+50D*5 02228 M01S02049.1mb +++| ZJP LMD8 IF END OF *BML* MESSAGE 02229 M01S02050.1mb +++| LDN 16D INCREMENT WORD COUNT TO LOG 02230 M01S02051.1mb +++| RAM LMDA 02231 M01S02052.1mb +++| UJN LMD6 READ NEXT WORD 02232 M01S02053.1mb +++| LMR SPACE 4,10 02233 M01S02054.1mb +++|** LMR - LOG MAINTENANCE REGISTERS. 02234 M01S02055.1mb +++|* 02235 M01S02056.1mb +++|* ENTRY (CN - CN+3) = M/R CONTROL WORD. 02236 M01S02057.1mb +++|* (MB - MB+1) = ADDRESS OF CONTROL WORD. 02237 M01S02058.1mb +++|* (LMRA) = SIZE OF ELEMENT COUNTER BUFFER. 02238 M01S02059.1mb +++|* (LMRB) = SIZE OF M/R BUFFER. 02239 M01S02060.1mb +++|* (LMRD) = NON-REGISTER DATA FLAG. 02240 M01S02061.1mb +++|* 02241 M01S02062.1mb +++|* EXIT MAINTENANCE REGISTERS LOGGED TO *BML*. 02242 M01S02063.1mb +++|* (MB - MB+1) UNCHANGED. 02243 M01S02064.1mb +++|* 02244 M01S02065.1mb +++|* USES BP, T4, T5, T6, CM - CM+4, MS - MS+1. 02245 M01S02066.1mb +++|* 02246 M01S02067.1mb +++|* CALLS CBM, C9E, DOB, LNR, LSS, LTE, MDB, MRB, RMR, SID, WLB. 02247 M01S02068.1mb +++|* 02248 M01S02069.1mb +++|* MACROS RPTR. 02249 M01S02070.1mb +++| 02250 M01S02071.1mb +++| 02251 M01S02072.1mb +++| LMR10 RJM LNR LOG NON-REGISTER DATA 02252 M01S02073.1mb +++| 02253 M01S02074.1mb +++| LMR SUBR ENTRY/EXIT 02254 M01S02075.1mb +++| LMRC LDD CN+2 02255 M01S02076.1mb +++|* UJN LMRX (NOS/VE LOGGING) 02256 M01S02077.1mb +++| SHN 21-MRLG 02257 M01S02078.1mb +++| PJN LMRX IF NO LOGGING ACTION 02258 M01S02079.1mb +++| LDC ** 02259 M01S02080.1mb +++| LMRD EQU *-1 (NON-REGISTER DATA FLAG) 02260 M01S02081.1mb +++| ZJN LMR10 IF PROCESSING NON-REGISTER DATA 02261 M01S02082.1mb +++| LDM IBMG+1 CLEAR NOT FIRST BLOCK FLAG 02262 M01S02083.1mb +++| SCN 10 02263 M01S02084.1mb +++| STM IBMG+1 02264 M01S02085.1mb +++| 02265 M01S02086.1mb +++|* LOCATE MAINTENANCE REGISTER BUFFER. 02266 M01S02087.1mb +++| 02267 M01S02088.1mb +++| LDC ** 02268 M01S02089.1mb +++| LMRB EQU *-1 (LENGTH OF M/R BUFFER) 02269 M01S02090.1mb +++| STD T4 02270 M01S02091.1mb +++| RJM MRB GET ADDRESS OF M/R BUFFERS 02271 M01S02092.1mb +++| ADD CN+3 ADD OFFSET 02272 M01S02093.1mb +++| STD MS+1 02273 M01S02094.1mb +++| SHN -14 02274 M01S02095.1mb +++| STD MS 02275 M01S02096.1mb +++| 02276 M01S02097.1mb +++|* DETERMINE ANALYSIS CODE. 02277 M01S02098.1mb +++| 02278 M01S02099.1mb +++| LDD CN+1 GET ANALYSIS CODE 02279 M01S02100.1mb +++| LMC 0#707 02280 M01S02101.1mb +++| ZJN LMR1 IF TO LOG ELEMENT COUNTER TABLE 02281 M01S02102.1mb +++| LMK 0#708&0#707 02282 M01S02103.1mb +++| ZJN LMR4 IF TO LOG SECDED ID TABLE 02283 M01S02104.1mb +++| SHN -10 02284 M01S02105.1mb +++| NJN LMR5 IF NOT WARNING ANALYSIS CODE 02285 M01S02106.1mb +++| 02286 M01S02107.1mb +++|* PROCESS WARNING ANALYSIS CODE. 02287 M01S02108.1mb +++| 02288 M01S02109.1mb +++| LDN 10D SET SIZE TO LOG 02289 M01S02110.1mb +++| UJN LMR2 LOG EID REGISTERS 02290 M01S02111.1mb +++| 02291 M01S02112.1mb +++|* PROCESS ELEMENT COUNTER TABLE. 02292 M01S02113.1mb +++| 02293 M01S02114.1mb +++| LMR1 LDC MECB 02294 M01S02115.1mb +++| LMRA EQU *-1 (SIZE OF ELEMENT COUNTER BUFFER) 02295 M01S02116.1mb +++| LMR2 STD T4 02296 M01S02117.1mb +++| LMR3 RJM LTE LOG TABLE ENTRIES 02297 M01S02118.1mb +++| RJM WLB WRITE LAST *BML* MESSAGE 02298 M01S02119.1mb +++| LJM LMR8 LOG SUPPORTIVE STATUS DATA 02299 M01S02120.1mb +++| 02300 M01S02121.1mb +++|* PROCESS SECDED ID TABLE. 02301 M01S02122.1mb +++| 02302 M01S02123.1mb +++| LMR4 RJM SID SET SECDED INFORMATION 02303 M01S02124.1mb +++| NJN LMR3 IF SECDED ID TABLE NOT EMPTY 02304 M01S02125.1mb +++| UJN LMR9 RETURN 02305 M01S02126.1mb +++| 02306 M01S02127.1mb +++|* PROCESS MAINTENANCE REGISTERS. 02307 M01S02128.1mb +++| 02308 M01S02129.1mb +++| LMR5 LDN 0 PRESET *RMR* 02309 M01S02130.1mb +++| STD T5 02310 M01S02131.1mb +++| STD T6 02311 M01S02132.1mb +++| LDC IBMH-5 PRESET *GPB* 02312 M01S02133.1mb +++| STD BP 02313 M01S02134.1mb +++| LMR6 LCN 5 02314 M01S02135.1mb +++| RAD T4 02315 M01S02136.1mb +++| MJN LMR7 IF ALL BUFFERS PROCESSED 02316 M01S02137.1mb +++| LDD MS READ M/R BUFFER HEADER WORD 02317 M01S02138.1mb +++| SHN 14 02318 M01S02139.1mb +++| LMD MS+1 02319 M01S02140.1mb +++| CRML BDMR,ON 02320 M01S02141.1mb +++| RJM RMR READ MAINTENANCE REGISTER BUFFER 02321 M01S02142.1mb +++| NJN LMR7 IF LOGGING COMPLETE 02322 M01S02143.1mb +++| AOD MS+1 ADVANCE TO NEXT BUFFER 02323 M01S02144.1mb +++| SHN -14 02324 M01S02145.1mb +++| RAD MS 02325 M01S02146.1mb +++| RJM C9E CHECK SPECIAL 990 ERROR 02326 M01S02147.1mb +++| NJN LMR6 IF NOT SPECIAL 990 ERROR 02327 M01S02148.1mb +++| LMR7 RJM CBM COMPLETE *BML* MESSAGES 02328 M01S02149.1mb +++| LMR8 RJM LSS LOG SUPPORTIVE STATUS DATA 02329 M01S02150.1mb +++| RJM MDB LOG MODEL DEPENDENT BUFFER 02330 M01S02151.1mb +++| LMR9 LDM IBMG CLEAR SPECIAL FLAGS FROM *BML* 02331 M01S02152.1mb +++| LPN 77 02332 M01S02153.1mb +++| STM IBMG 02333 M01S02154.1mb +++| LJM LMRX RETURN 02334 M01S02155.1mb +++| LNR SPACE 4,10 02335 M01S02156.1mb +++|** LNR - LOG NON-REGISTER DATA. 02336 M01S02157.1mb +++|* 02337 M01S02158.1mb +++|* ENTRY (MB - MB+1) = ADDRESS OF CONTROL WORD FOR ENTRY. 02338 M01S02159.1mb +++|* (CN - CN+3) = CONTROL WORD FOR ENTRY TO LOG. 02339 M01S02160.1mb +++|* 02340 M01S02161.1mb +++|* EXIT NON-REGISTER DATA LOGGED TO BML. 02341 M01S02162.1mb +++|* 02342 M01S02163.1mb +++|* USES T4, MS - MS+1. 02343 M01S02164.1mb +++|* 02344 M01S02165.1mb +++|* CALLS LDT. 02345 M01S02166.1mb +++| 02346 M01S02167.1mb +++| 02347 M01S02168.1mb +++| LNR SUBR ENTRY/EXIT 02348 M01S00085.271l716 +++| LDM IBMG SET NON-REGISTER DATA FLAG 02349 M01S00086.271l716 +++| LPN 77 02350 M01S00087.271l716 +++| ADC 400 02351 M01S00088.271l716 +++| STM IBMG
| Line S02169 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02352 M02S02169.1mb32 ---| LDD CN+3 SET LENGTH OF DATA TO LOG 02353 M01S00001.1mb32 +++| LDD MB INITIALIZE ADDRESS OF DATA TO LOG 02354 M01S00002.1mb32 +++| STD MS 02355 M01S00003.1mb32 +++| SHN 14 02356 M01S00004.1mb32 +++| LMD MB+1 02357 M01S00005.1mb32 +++| STD MS+1 02358 M01S00006.1mb32 +++| ADN 1 LENGTH TO LOG WORD 02359 M01S00007.1mb32 +++| CRD CM READ LENGTH WORD 02360 M01S00008.1mb32 +++| LDD CM+4 SET LENGTH OF DATA TO INCLUDE LENGTH WORD 02361 M01S02170.1mb +++| STD T4
| Line S02171 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02362 M02S02171.1mb32 ---| LDD MB INITIALIZE ADDRESS OF DATA TO LOG
| Line S02172 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02363 M02S02172.1mb32 ---| SHN 14
| Line S02173 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02364 M02S02173.1mb32 ---| LMD MB+1
| Line S02174 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02365 M02S02174.1mb32 ---| ADN 1 ADVANCE TO ADDRESS-1 OF DATA TO LOG
| Line S02175 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02366 M02S02175.1mb32 ---| STD MS+1
| Line S02176 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02367 M02S02176.1mb32 ---| SHN -14
| Line S02177 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb32 |
Seq # *Modification Id* Act ----------------------------+ 02368 M02S02177.1mb32 ---| STD MS 02369 M01S02178.1mb +++| RJM LDT LOG DATA STRUCTURE 02370 M01S00089.271l716 +++| LDM IBMG CLEAR NON-REGISTER DATA FLAG 02371 M01S00090.271l716 +++| LPN 77 02372 M01S00091.271l716 +++| STM IBMG 02373 M01S02179.1mb +++| UJN LNRX RETURN 02374 M01S02180.1mb +++| LSS SPACE 4,15 02375 M01S02181.1mb +++|** LSS - LOG SUPPORTIVE STATUS DATA. 02376 M01S02182.1mb +++|* 02377 M01S02183.1mb +++|* ENTRY (SSCW - SSCW+1) = ADDRESS OF CONTROL WORD FOR ENTRY 02378 M01S02184.1mb +++|* TO LOG. 02379 M01S02185.1mb +++|* 02380 M01S02186.1mb +++|* EXIT SUPPORTIVE STATUS BUFFER DATA LOGGED. 02381 M01S02187.1mb +++|* (MDBB) = MODEL DEPENDENT BUFFER ORDINAL. 02382 M01S02188.1mb +++|* (MDBC) = MDB DATA UNLOGGED STATUS. 02383 M01S02189.1mb +++|* 02384 M01S02190.1mb +++|* USES T4, CM - CM+3, MS - MS+1. 02385 M01S02191.1mb +++|* 02386 M01S02192.1mb +++|* CALLS LDT. 02387 M01S02193.1mb +++| 02388 M01S02194.1mb +++| 02389 M01S02195.1mb +++| LSS SUBR ENTRY/EXIT 02390 M01S02196.1mb +++| LDM DFTV 02391 M01S02197.1mb +++| ZJN LSSX IF *DFT* VERSION 3 02392 M01S02198.1mb +++| LDM SSCW SET ADDRESS OF CONTROL WORD 02393 M01S02199.1mb +++| STD MS 02394 M01S02200.1mb +++| SHN 14 02395 M01S02201.1mb +++| LMM SSCW+1 02396 M01S02202.1mb +++| STD MS+1 02397 M01S02203.1mb +++| CRDL CM READ CONTROL WORD 02398 M01S02204.1mb +++| LDD CM+1 SET LENGTH OF DATA TO LOG 02399 M01S02205.1mb +++| STD T4 02400 M01S02206.1mb +++| ZJN LSSX IF NO DATA TO LOG 02401 M01S02207.1mb +++| LDD CM+2 SAVE MODEL DEPENDENT BUFFER ORDINAL 02402 M01S02208.1mb +++| LPC 377 02403 M01S02209.1mb +++| STM MDBB 02404 M01S02210.1mb +++| LDDL CM+2 SAVE UNLOGGED DATA STATUS 02405 M01S02211.1mb +++| SHN -10 02406 M01S02212.1mb +++| STM MDBC 02407 M01S02213.1mb +++| LDD HN SET SUPPORTIVE STATUS BUFFER FLAG 02408 M01S02214.1mb +++| RAM IBMG 02409 M01S02215.1mb +++| RJM LDT LOG DATA STRUCTURE 02410 M01S02216.1mb +++| UJP LSSX RETURN 02411 M01S02217.1mb +++| LTE SPACE 4,15 02412 M01S02218.1mb +++|** LTE - LOG TABLE ENTRIES. 02413 M01S02219.1mb +++|* 02414 M01S02220.1mb +++|* ENTRY MESSAGE ID AND SYMPTOM CODE IN *BML* HEADER. 02415 M01S02221.1mb +++|* (T4) = WORD SIZE OF *BML* MESSAGE. 02416 M01S02222.1mb +++|* (MS - MS+1) = ADDRESS OF FIRST ENTRY TO LOG. 02417 M01S02223.1mb +++|* 02418 M01S02224.1mb +++|* EXIT ENTRIES LOGGED TO *BML*. 02419 M01S02225.1mb +++|* (T4) = CM WORDS TO WRITE IN LAST *BML* MESSAGE. 02420 M01S02226.1mb +++|* 02421 M01S02227.1mb +++|* USES MS - MS+1, T1, T4. 02422 M01S02228.1mb +++|* 02423 M01S02229.1mb +++|* CALLS DFM, LMB. 02424 M01S02230.1mb +++| 02425 M01S02231.1mb +++| 02426 M01S02232.1mb +++| LTE2 LDD MS READ LAST *BML* MESSAGE DATA 02427 M01S02233.1mb +++| SHN 14 02428 M01S02234.1mb +++| LMD MS+1 02429 M01S02235.1mb +++| CRM IBMH,T4 02430 M01S02236.1mb +++| AOD T4 ADD HEADER WORDS TO COUNT 02431 M01S02237.1mb +++| AOD T4 02432 M01S02238.1mb +++| 02433 M01S02239.1mb +++| LTE SUBR ENTRY/EXIT 02434 M01S02240.1mb +++| LTE1 LDN 4 02435 M01S02241.1mb +++| STD T1 02436 M01S02242.1mb +++| LDM IBMG+1 SET CONTINUATION BIT 02437 M01S02243.1mb +++| SCN 4 02438 M01S02244.1mb +++| LMN 4 02439 M01S02245.1mb +++| STM IBMG+1 02440 M01S02246.1mb +++| LDD T4 02441 M01S02247.1mb +++| SBN 5 02442 M01S02248.1mb +++| MJN LTE2 IF LAST *BML* MESSAGE TO ISSUE 02443 M01S02249.1mb +++| ADN 1 02444 M01S02250.1mb +++| STD T4 02445 M01S02251.1mb +++| LDD MS 02446 M01S02252.1mb +++| SHN 14 02447 M01S02253.1mb +++| LMD MS+1 02448 M01S02254.1mb +++| CRM IBMH,T1 READ BUFFER INTO *BML* 02449 M01S02255.1mb +++| STD MS+1 02450 M01S02256.1mb +++| SHN -14 02451 M01S02257.1mb +++| STD MS 02452 M01S02258.1mb +++| LDN 6*5 PP WORDS IN *BML* MESSAGE 02453 M01S02259.1mb +++| STD CM+1 02454 M01S02260.1mb +++| LDC IBMF+BMLN ISSUE *BML* MESSAGE 02455 M01S02261.1mb +++| RJM DFM 02456 M01S02262.1mb +++| LDM IBMG+1 SET NOT FIRST BLOCK FLAG 02457 M01S02263.1mb +++| SCN 10 02458 M01S02264.1mb +++| LMN 10 02459 M01S02265.1mb +++| STM IBMG+1 02460 M01S02266.1mb +++| LJM LTE1 PROCESS NEXT *BML* MESSAGE 02461 M01S02267.1mb +++| MDB SPACE 4,15 02462 M01S02268.1mb +++|** MDB - LOG MODEL DEPENDENT BUFFER DATA. 02463 M01S02269.1mb +++|* 02464 M01S02270.1mb +++|* ENTRY (MB - MB+1) = ADDRESS OF M/R BUFFER CONTROL WORD. 02465 M01S02271.1mb +++|* (MDBA) = ADDRESS OF MODEL DEPENDENT BUFFER. 02466 M01S02272.1mb +++|* (MDBB) = MODEL DEPENDENT BUFFER ORDINAL. 02467 M01S02273.1mb +++|* (MDBC) = MODEL DEPENDENT DATA UNLOGGED STATUS. 02468 M01S02274.1mb +++|* 02469 M01S02275.1mb +++|* EXIT MODEL DEPENDENT BUFFER DATA LOGGED. 02470 M01S02276.1mb +++|* 02471 M01S02277.1mb +++|* USES T1, T4, CM - CM+3, MS - MS+1, T8 - T9. 02472 M01S02278.1mb +++|* 02473 M01S02279.1mb +++|* CALLS LMD. 02474 M01S02280.1mb +++|* 02475 M01S02281.1mb +++|* MACROS RPTR. 02476 M01S02282.1mb +++| 02477 M01S02283.1mb +++| 02478 M01S02284.1mb +++| MDB SUBR ENTRY/EXIT 02479 M01S02285.1mb +++| LDD MB READ M/R BUFFER CONTROL WORD 02480 M01S02286.1mb +++| SHN 14 02481 M01S02287.1mb +++| LMD MB+1 02482 M01S02288.1mb +++| CRDL CM 02483 M01S02289.1mb +++| LDDL CM+2 02484 M01S02290.1mb +++| SHN 21-MRMD 02485 M01S02291.1mb +++| PJN MDBX IF NO MODEL DEPENDENT DATA 02486 M01S02292.1mb +++| MDBA LDC ** (MODEL DEPENDENT BUFFER ADDRESS) 02487 M01S02293.1mb +++| ADC ** 02488 M01S02294.1mb +++| MDBB EQU *-1 (MODEL DEPENDENT BUFFER ORDINAL) 02489 M01S02295.1mb +++| CRDL CM READ MODEL DEPENDENT BUFFER POINTER 02490 M01S02296.1mb +++| LDC * 02491 M01S02297.1mb +++| MDBC EQU *-1 (DATA UNLOGGED STATUS) 02492 M01S02298.1mb +++| NJN MDBX IF DATA UNLOGGED OR OVERWRITTEN 02493 M01S02299.1mb +++| RPTR CM CONVERT ADDRESS 02494 M01S02300.1mb +++| CRDL CM READ HEADER 02495 M01S02301.1mb +++| STD MS+1 SAVE ADDRESS OF HEADER 02496 M01S02302.1mb +++| STD T9 02497 M01S02303.1mb +++| SHN -14 02498 M01S02304.1mb +++| STD MS 02499 M01S02305.1mb +++| STD T8 02500 M01S02306.1mb +++| LDD CM+3 SET LENGTH TO LOG
| Line S02307 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb30 |
Seq # *Modification Id* Act ----------------------------+ 02501 M02S02307.1mb30 ---| STD T4 02502 M01S02308.1mb +++| ZJN MDBX IF NO DATA TO LOG 02503 M01S00001.1mb30 +++| SBN 1 02504 M01S00002.1mb30 +++| STD T4 02505 M01S02309.1mb +++| LDM IBMG SET MODEL DEPENDENT DATA FLAG 02506 M01S02310.1mb +++| LPN 77 02507 M01S02311.1mb +++| ADC 200 02508 M01S02312.1mb +++| STM IBMG 02509 M01S02313.1mb +++| LDM IBMG+1 02510 M01S02314.1mb +++| SCN 14 CLEAR NOT FIRST BLOCK FLAG 02511 M01S02315.1mb +++| LMN 4 SET CONTINUATION BIT 02512 M01S02316.1mb +++| STM IBMG+1 02513 M01S02317.1mb +++| LDN 2 MOVE MESSAGE HEADER TO PP BUFFER 02514 M01S02318.1mb +++| STD T1 02515 M01S02319.1mb +++| LDD MA 02516 M01S02320.1mb +++| CWM IBMF,T1 02517 M01S02321.1mb +++| SBD T1 02518 M01S02322.1mb +++| CRM MBUF,T1 02519 M01S02323.1mb +++| LDN ZERL CLEAR *EMB* HEADER WORD 02520 M01S02324.1mb +++| CRM BHDR,ON 02521 M01S02325.1mb +++| LDK MLDY SET MESSAGE TYPE 02522 M01S02326.1mb +++| STM BHDR+4 02523 M01S02327.1mb +++| RJM LMD LOG MODEL DEPENDENT DATA 02524 M01S02328.1mb +++| LDD T8 READ MODEL DEPENDENT HEADER 02525 M01S02329.1mb +++| SHN 14 02526 M01S02330.1mb +++| LMD T9 02527 M01S02331.1mb +++| CRDL CM 02528 M01S02332.1mb +++| LDDL CM CLEAR CONTROL WORD OFFSET 02529 M01S02333.1mb +++| LPC 0#FF00 02530 M01S02334.1mb +++| STDL CM 02531 M01S02335.1mb +++| LDD T8 02532 M01S02336.1mb +++| SHN 14 02533 M01S02337.1mb +++| LMD T9 02534 M01S02338.1mb +++| CWDL CM 02535 M01S02339.1mb +++| MDB1 DELAY 02536 M01S02340.1mb +++| LDK EMBP CHECK FOR *1MD* STILL ACTIVE 02537 M01S02341.1mb +++| CRD CM 02538 M01S02342.1mb +++| LDD CM+1 02539 M01S02343.1mb +++| SHN 14 02540 M01S02344.1mb +++| LMD CM+2 02541 M01S02345.1mb +++| CRD CM 02542 M01S02346.1mb +++| LDD CM+4 02543 M01S02347.1mb +++| LPN 2 02544 M01S02348.1mb +++| NJN MDB1 IF *1MD* ACTIVE 02545 M01S02349.1mb +++| UJP MDBX RETURN 02546 M01S02350.1mb +++| MRB SPACE 4,10 02547 M01S02351.1mb +++|** MRB - GET M/R BUFFERS ADDRESS. 02548 M01S02352.1mb +++|* 02549 M01S02353.1mb +++|* (A) = ADDRESS OF M/R BUFFERS. 02550 M01S02354.1mb +++| 02551 M01S02355.1mb +++| 02552 M01S02356.1mb +++| MRB SUBR ENTRY/EXIT 02553 M01S02357.1mb +++| MRBA LDC ** (ADDRESS OF M/R BUFFERS) 02554 M01S02358.1mb +++| UJN MRBX RETURN 02555 M01S02359.1mb +++| MRER SPACE 4,10 02556 M01S02360.1mb +++|** MRER - MAINTENANCE REGISTER ERROR HANDLER. 02557 M01S02361.1mb +++|* 02558 M01S02362.1mb +++|* ENTRY FATAL MAINTENANCE REGISTER ERROR. 02559 M01S02363.1mb +++|* 02560 M01S02364.1mb +++|* EXIT TO *CSH*. 02561 M01S02365.1mb +++|* 02562 M01S02366.1mb +++|* USES CM - CM+4. 02563 M01S02367.1mb +++|* 02564 M01S02368.1mb +++|* CALLS CSH. 02565 M01S02369.1mb +++|* 02566 M01S02370.1mb +++|* MACROS MONITOR. 02567 M01S02371.1mb +++| 02568 M01S02372.1mb +++| 02569 M01S02373.1mb +++| MRER LDC MSME SET MESSAGE ADDRESS 02570 M01S02374.1mb +++| STM CSHA 02571 M01S02375.1mb +++| STM CSHB 02572 M01S02376.1mb +++| STM CKPA+2 02573 M01S02377.1mb +++| LDN SPLG SET *1MB* FUNCTION CODE 02574 M01S02378.1mb +++| STM CKPA+3 02575 M01S02379.1mb +++| LDN ZERL 02576 M01S02380.1mb +++| CRD CM 02577 M01S02381.1mb +++| LDN 1 SET *MCH* ERROR IN PROGRESS 02578 M01S02382.1mb +++| STD CM+1 02579 M01S02383.1mb +++| STD CM+2 02580 M01S02384.1mb +++| LDD MA 02581 M01S02385.1mb +++| CWM MRERA,ON 02582 M01S02386.1mb +++| MONITOR UADM 02583 M01S02387.1mb +++| RJM CSH CHECKPOINT AND HANG THE SYSTEM 02584 M01S02388.1mb +++| 02585 M01S02389.1mb +++| 02586 M01S02390.1mb +++| MRERA CON LIOS INCREMENT LOW CORE FIELD BY ONE 02587 M01S02391.1mb +++| CON INWL WORD ADDRESS 02588 M01S02392.1mb +++| CON 5*100+1 BIT ADDRESS/FIELD WIDTH 02589 M01S02393.1mb +++| CON 0 02590 M01S02394.1mb +++| CON 0 02591 M01S02395.1mb +++| PMB SPACE 4,15 02592 M01S02396.1mb +++|** PMB - PACK MAINTENANCE REGISTER TO *BML*. 02593 M01S02397.1mb +++|* 02594 M01S02398.1mb +++|* ENTRY (T5) = BYTE IN M/R HEADER WORD WITH REGISTER NUMBER. 02595 M01S02399.1mb +++|* (BCMR - BCMR+7) = CONTENTS OF REGISTER. 02596 M01S02400.1mb +++|* 02597 M01S02401.1mb +++|* EXIT REGISTER WRITTEN TO *BML*. 02598 M01S02402.1mb +++|* (A)= (T5) = 0, IF ALL REGISTERS IN THIS BLOCK 02599 M01S02403.1mb +++|* WRITTEN. 02600 M01S02404.1mb +++|* (T5) = BYTE WITH NEXT REGISTER NUMBER, OTHERWISE. 02601 M01S02405.1mb +++|* 02602 M01S02406.1mb +++|* USES T5. 02603 M01S02407.1mb +++|* 02604 M01S02408.1mb +++|* CALLS GPB, PWB. 02605 M01S02409.1mb +++| 02606 M01S02410.1mb +++| 02607 M01S02411.1mb +++| PMB SUBR ENTRY/EXIT 02608 M01S02412.1mb +++| RJM GPB GET POINTER INTO *BML* BUFFER 02609 M01S02413.1mb +++| RJM PWB PACK REGISTER INTO BUFFER 02610 M01S02414.1mb +++| SHN 10 02611 M01S02415.1mb +++| LMML BDMR,T5 INCLUDE REGISTER NUMBER 02612 M01S02416.1mb +++| STM PMBB,T5 02613 M01S02417.1mb +++| AOD T5 02614 M01S02418.1mb +++| SBN 4 02615 M01S02419.1mb +++| MJN PMB1 IF TRAILER WORD NOT FULL 02616 M01S02420.1mb +++| RJM GPB GET POINTER TO *BML* BUFFER 02617 M01S02421.1mb +++| LDD BP 02618 M01S02422.1mb +++| STM PMBA 02619 M01S02423.1mb +++| LDD MA 02620 M01S02424.1mb +++| CWM PMBB,ON COPY TRAILER WORD TO *BML* BUFFER 02621 M01S02425.1mb +++| LDD MA 02622 M01S02426.1mb +++| CRM **,ON 02623 M01S02427.1mb +++| PMBA EQU *-1 02624 M01S02428.1mb +++| LDN 0 02625 M01S02429.1mb +++| STD T5 02626 M01S02430.1mb +++| PMB1 UJP PMBX RETURN 02627 M01S02431.1mb +++| 02628 M01S02432.1mb +++| PMBB VFD 4/0,8/0,4/0,8/0,4/0,8/0,4/0,8/0,12/0 02629 M01S02433.1mb +++| PMR SPACE 4,10 02630 M01S02434.1mb +++|** PMR - UNPACK M/R INTO *BCMR*. 02631 M01S02435.1mb +++|* 02632 M01S02436.1mb +++|* ENTRY (CN - CN+3) = REGISTER. 02633 M01S02437.1mb +++|* 02634 M01S02438.1mb +++|* EXIT MAINTENANCE REGISTER WRITTEN TO *BML* BUFFER. 02635 M01S02439.1mb +++|* 02636 M01S02440.1mb +++|* USES T3, T7. 02637 M01S02441.1mb +++| 02638 M01S02442.1mb +++| 02639 M01S02443.1mb +++| PMR SUBR ENTRY/EXIT 02640 M01S02444.1mb +++| LDN 0 02641 M01S02445.1mb +++| STD T3 02642 M01S02446.1mb +++| LDN CN 02643 M01S02447.1mb +++| STD T7 02644 M01S02448.1mb +++| PMR1 LDIL T7 02645 M01S02449.1mb +++| SHN -10 02646 M01S02450.1mb +++| STM BCMR,T3 02647 M01S02451.1mb +++| AOD T3 02648 M01S02452.1mb +++| LDIL T7 02649 M01S02453.1mb +++| LPC 377 02650 M01S02454.1mb +++| STM BCMR,T3 02651 M01S02455.1mb +++| AOD T3 02652 M01S02456.1mb +++| AOD T7 02653 M01S02457.1mb +++| SBN CN+4 02654 M01S02458.1mb +++| ZJN PMRX IF PACKING COMPLETE 02655 M01S02459.1mb +++| UJN PMR1 CONTINUE PACKING 02656 M01S02460.1mb +++| PWB SPACE 4,10 02657 M01S02461.1mb +++|** PWB - PACK WORD TO BUFFER. 02658 M01S02462.1mb +++|* 02659 M01S02463.1mb +++|* ENTRY (BCMR - BCMR+7) = DATA WORD. 02660 M01S02464.1mb +++|* (BP) = OFFSET INTO *BML* BUFFER. 02661 M01S02465.1mb +++|* 02662 M01S02466.1mb +++|* EXIT (A) = BITS 60 - 63 OF DATA WORD RIGHT JUSTIFIED. 02663 M01S02467.1mb +++|* BITS 0 - 59 OF DATA WORD MOVED TO *BML* WORD. 02664 M01S02468.1mb +++| 02665 M01S02469.1mb +++| 02666 M01S02470.1mb +++| PWB SUBR ENTRY/EXIT 02667 M01S02471.1mb +++| LDM BCMR PACK REGISTER INTO BUFFER 02668 M01S02472.1mb +++| SHN 10 02669 M01S02473.1mb +++| LMM BCMR+1 02670 M01S02474.1mb +++| SHN -4+22 02671 M01S02475.1mb +++| STI BP 02672 M01S02476.1mb +++| SHN 0+4-22 02673 M01S02477.1mb +++| SHN 10 02674 M01S02478.1mb +++| LMM BCMR+2 02675 M01S02479.1mb +++| STM 1,BP 02676 M01S02480.1mb +++| LDM BCMR+3 02677 M01S02481.1mb +++| SHN 10 02678 M01S02482.1mb +++| LMM BCMR+4 02679 M01S02483.1mb +++| SHN -4+22 02680 M01S02484.1mb +++| STM 2,BP 02681 M01S02485.1mb +++| SHN 0+4-22 02682 M01S02486.1mb +++| SHN 10 02683 M01S02487.1mb +++| LMM BCMR+5 02684 M01S02488.1mb +++| STM 3,BP 02685 M01S02489.1mb +++| LDM BCMR+6 02686 M01S02490.1mb +++| SHN 10 02687 M01S02491.1mb +++| LMM BCMR+7 02688 M01S02492.1mb +++| SHN -4+22 02689 M01S02493.1mb +++| STM 4,BP 02690 M01S02494.1mb +++| SHN 0+4-22 02691 M01S02495.1mb +++| UJP PWBX RETURN 02692 M01S02496.1mb +++| RMR SPACE 4,10 02693 M01S02497.1mb +++|** RMR - READ MAINTENANCE REGISTER. 02694 M01S02498.1mb +++|* 02695 M01S02499.1mb +++|* ENTRY (BDMR - BDMR+3) = M/R CONTROL WORD. 02696 M01S02500.1mb +++|* (MS - MS+1) = ADDRESS OF MAINTENANCE REGISTER. 02697 M01S02501.1mb +++|* (T5) = BYTE WITH NEXT REGISTER NUMBER TO LOG. 02698 M01S02502.1mb +++|* (T6) = 0 IF STATUS SUMMARY NOT YET LOGGED. 02699 M01S02503.1mb +++|* 02700 M01S02504.1mb +++|* EXIT (A) = 0, IF MORE BUFFERS TO CHECK. 02701 M01S02505.1mb +++|* 02702 M01S02506.1mb +++|* USES CN - CN+3, MS - MS+1, T5. 02703 M01S02507.1mb +++|* 02704 M01S02508.1mb +++|* CALLS PMB, PMR. 02705 M01S02509.1mb +++| 02706 M01S02510.1mb +++| 02707 M01S02511.1mb +++| RMR SUBR ENTRY/EXIT 02708 M01S02512.1mb +++| RMR1 LDML BDMR,T5 GET NEXT REGISTER NUMBER 02709 M01S02513.1mb +++| NJN RMR2 IF REGISTER IS PRESENT 02710 M01S02514.1mb +++| LDD T6 02711 M01S02515.1mb +++| NJN RMRX IF ALL REGISTERS LOGGED 02712 M01S02516.1mb +++| RMRA LDN 1 SET STATUS SUMMARY LOGGED 02713 M01S02517.1mb +++| STD T6 02714 M01S02518.1mb +++| RMR2 AOD MS+1 READ MAINTENANCE REGISTER 02715 M01S02519.1mb +++| SHN -14 02716 M01S02520.1mb +++| RAD MS 02717 M01S02521.1mb +++| SHN 14 02718 M01S02522.1mb +++| LMD MS+1 02719 M01S02523.1mb +++| CRDL CN 02720 M01S02524.1mb +++| RJM PMR PACK REGISTER INTO *BCMR* BUFFER 02721 M01S02525.1mb +++| RJM PMB PACK M/R INTO *BML* MESSAGE 02722 M01S02526.1mb +++| ZJN RMRX IF BUFFER COMPLETE 02723 M01S02527.1mb +++| UJN RMR1 PROCESS NEXT REGISTER 02724 M01S02528.1mb +++| SCA SPACE 4,10 02725 M01S02529.1mb +++|** SCA - SET M/R BUFFER CONTROL WORDS ADDRESS. 02726 M01S02530.1mb +++|* 02727 M01S02531.1mb +++|* EXIT (MB - MB+1) = ADDRESS OF FIRST M/R CONTROL WORD. 02728 M01S02532.1mb +++|* 02729 M01S02533.1mb +++|* CALLS DOB. 02730 M01S02534.1mb +++|* 02731 M01S02535.1mb +++|* USES CM - CM+3, MB - MB+1. 02732 M01S02536.1mb +++|* 02733 M01S02537.1mb +++|* MACROS RPTR. 02734 M01S02538.1mb +++| 02735 M01S02539.1mb +++| 02736 M01S02540.1mb +++| SCA SUBR ENTRY/EXIT 02737 M01S02541.1mb +++| RJM DOB 02738 M01S02542.1mb +++| SCAA ADK DFHL 02739 M01S02543.1mb +++|* UJN SCA2 (*DFT* VERSION 4 OR ABOVE) 02740 M01S02544.1mb +++| SCA1 STD MB+1 SAVE ADDRESS 02741 M01S02545.1mb +++| SHN -14 02742 M01S02546.1mb +++| STD MB 02743 M01S02547.1mb +++| UJN SCAX RETURN 02744 M01S02548.1mb +++| 02745 M01S02549.1mb +++| SCA2 ADK DFBC 02746 M01S02550.1mb +++| CRDL CM READ M/R BUFFER CONTROL WORD POINTER 02747 M01S02551.1mb +++| RPTR CM CONVERT ADDRESS 02748 M01S02552.1mb +++| UJN SCA1 SAVE ADDRESS 02749 M01S02553.1mb +++| SDA SPACE 4,10 02750 M01S02554.1mb +++|** SDA - SET NOS REQUEST HEADER ADDRESS. 02751 M01S02555.1mb +++|* 02752 M01S02556.1mb +++|* EXIT (A) = ADDRESS OF NOS REQUEST HEADER. 02753 M01S02557.1mb +++| 02754 M01S02558.1mb +++| 02755 M01S02559.1mb +++| SDA SUBR ENTRY/EXIT 02756 M01S02560.1mb +++| SDAA LDC ** (ADDRESS OF NOS REQUEST HEADER) 02757 M01S02561.1mb +++| UJN SDAX RETURN 02758 M01S02562.1mb +++| SID SPACE 4,10 02759 M01S02563.1mb +++|** SID - SET SECDED ID TABLE INFORMATION. 02760 M01S02564.1mb +++|* 02761 M01S02565.1mb +++|* ENTRY (MS - MS+1) = ADDRESS OF M/R BUFFER. 02762 M01S02566.1mb +++|* 02763 M01S02567.1mb +++|* EXIT (A) = NUMBER OF SECDED ENTRIES. 02764 M01S02568.1mb +++|* 02765 M01S02569.1mb +++|* USES CM - CM+4, MS - MS+1, T1 - T1+4. 02766 M01S02570.1mb +++| 02767 M01S02571.1mb +++| 02768 M01S02572.1mb +++| SID SUBR ENTRY/EXIT 02769 M01S02573.1mb +++| LDD MS READ MEMORY SIZE 02770 M01S02574.1mb +++| SHN 14 02771 M01S02575.1mb +++| LMD MS+1 02772 M01S02576.1mb +++| CRD CM 02773 M01S02577.1mb +++| ADN 1 READ MEMORY MODEL 02774 M01S02578.1mb +++| CRD T1 02775 M01S02579.1mb +++| LDD T1+3 02776 M01S02580.1mb +++| SHN -4
| Line S02581 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb31 |
Seq # *Modification Id* Act ----------------------------+ 02777 M02S02581.1mb31 ---| STM IBMG+4 STORE MEMORY MODEL
| Line S02582 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb31 |
Seq # *Modification Id* Act ----------------------------+ 02778 M02S02582.1mb31 ---|* STM IBMG+2 (*DFT* VERSION 4 OR ABOVE)
| Line S02583 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb31 |
Seq # *Modification Id* Act ----------------------------+ 02779 M02S02583.1mb31 ---| SIDA EQU *-1 02780 M01S00001.1mb31 +++| STM IBMG+2 STORE MEMORY MODEL 02781 M01S02584.1mb +++| LDDL CM ADD MEMORY SIZE TO *BML* 02782 M01S02585.1mb +++| SHN 22-4 02783 M01S02586.1mb +++| STM IBMF+3 02784 M01S02587.1mb +++| SHN 4-22 02785 M01S02588.1mb +++| SHN 10 02786 M01S02589.1mb +++| STD T1 02787 M01S02590.1mb +++| LDDL CM+1 02788 M01S02591.1mb +++| SHN -10 02789 M01S02592.1mb +++| LMD T1 02790 M01S02593.1mb +++| STM IBMF+4 02791 M01S02594.1mb +++| LDN 2 ADVANCE TO SECDED ENTRIES 02792 M01S02595.1mb +++| RAD MS+1 02793 M01S02596.1mb +++| SHN -14 02794 M01S02597.1mb +++| RAD MS 02795 M01S02598.1mb +++| 02796 M01S02599.1mb +++|* CALCULATE SECDED TABLE SIZE. 02797 M01S02600.1mb +++| 02798 M01S02601.1mb +++| LDN 0 02799 M01S02602.1mb +++| STD T4 02800 M01S02603.1mb +++| SID1 LDD MS READ NEXT SECDED ENTRY 02801 M01S02604.1mb +++| SHN 14 02802 M01S02605.1mb +++| LMD MS+1 02803 M01S02606.1mb +++| ADD T4 02804 M01S02607.1mb +++| CRD CM 02805 M01S02608.1mb +++| LDD CM CHECK IF EMPTY ENTRY 02806 M01S02609.1mb +++| ADD CM+1 02807 M01S02610.1mb +++| ADD CM+2 02808 M01S02611.1mb +++| ADD CM+3 02809 M01S02612.1mb +++| ADD CM+4 02810 M01S02613.1mb +++| SBN 1 02811 M01S02614.1mb +++| MJN SID2 IF LAST ENTRY 02812 M01S02615.1mb +++| AOD T4 02813 M01S02616.1mb +++| UJN SID1 CHECK NEXT ENTRY 02814 M01S02617.1mb +++| 02815 M01S02618.1mb +++| SID2 LDD T4 RETURN SECDED SIZE 02816 M01S02619.1mb +++| UJP SIDX RETURN 02817 M01S02620.1mb +++| UCC SPACE 4,10 02818 M01S02621.1mb +++|** UCC - UPDATE CTI CLOCK. 02819 M01S02622.1mb +++|* 02820 M01S02623.1mb +++|* ENTRY DURING TOP-OF-HOUR PROCESSING. 02821 M01S02624.1mb +++|* 02822 M01S02625.1mb +++|* EXIT *1MA* CALLED IF TIME IS MIDNIGHT. 02823 M01S02626.1mb +++|* 02824 M01S02627.1mb +++|* USES CM - CM+4. 02825 M01S02628.1mb +++|* 02826 M01S02629.1mb +++|* MACROS MONITOR. 02827 M01S02630.1mb +++| 02828 M01S02631.1mb +++| 02829 M01S02632.1mb +++| UCC SUBR ENTRY/EXIT 02830 M01S02633.1mb +++| LDN PDTL CHECK TIME 02831 M01S02634.1mb +++| CRD CM 02832 M01S02635.1mb +++| LDD CM+3 02833 M01S02636.1mb +++| LPN 77 02834 M01S02637.1mb +++| NJN UCCX IF NOT MIDNIGHT 02835 M01S02638.1mb +++| LDD IR+1 UPDATE CONTROL POINT NUMBER 02836 M01S02639.1mb +++| LPN 37 02837 M01S02640.1mb +++| RAM UCCA+1 02838 M01S02641.1mb +++| LDD MA WRITE *1MA* REQUEST TO MESSAGE BUFFER 02839 M01S02642.1mb +++| CWM UCCA,ON 02840 M01S02643.1mb +++| MONITOR RPPM REQUEST PP FOR *1MA* 02841 M01S02644.1mb +++| UJN UCCX RETURN 02842 M01S02645.1mb +++| 02843 M01S02646.1mb +++| 02844 M01S02647.1mb +++| UCCA VFD 18/3L1MA,6/**,12/6,12/,12/ 02845 M01S02648.1mb +++| WLB SPACE 4,10 02846 M01S02649.1mb +++|** WLB - WRITE LAST *BML* MESSAGE. 02847 M01S02650.1mb +++|* 02848 M01S02651.1mb +++|* ENTRY DATA FOR LAST *BML* MESSAGE IN BUFFER. 02849 M01S02652.1mb +++|* (T4) = WORD COUNT OF MESSAGE. 02850 M01S02653.1mb +++|* 02851 M01S02654.1mb +++|* EXIT LAST *BML* MESSAGE WRITTEN. 02852 M01S02655.1mb +++|* 02853 M01S02656.1mb +++|* CALLS DFM. 02854 M01S02657.1mb +++|* 02855 M01S02658.1mb +++|* USES CM - CM+4. 02856 M01S02659.1mb +++| 02857 M01S02660.1mb +++| 02858 M01S02661.1mb +++| WLB SUBR ENTRY/EXIT 02859 M01S02662.1mb +++| LDM IBMG+1 CLEAR CONTINUATION BIT 02860 M01S02663.1mb +++| SCN 4 02861 M01S02664.1mb +++| STM IBMG+1 02862 M01S02665.1mb +++| LDN ZERL 02863 M01S02666.1mb +++| CRD CM 02864 M01S02667.1mb +++| LDD T4 SET BYTE COUNT 02865 M01S02668.1mb +++| SHN 2 02866 M01S02669.1mb +++| ADD T4 02867 M01S02670.1mb +++| STD CM+1 02868 M01S02671.1mb +++| LDC IBMF+BMLN SEND LAST *BML* MESSAGE 02869 M01S02672.1mb +++| RJM DFM 02870 M01S02673.1mb +++| UJN WLBX RETURN 02871 M01S02674.1mb +++| LINS SPACE 4,10 02872 M01S02675.1mb +++| LINS BSS 0 TABLE OF LONG INSTRUCTIONS 02873 M01S02676.1mb +++| LIST16 02874 M01S02677.1mb +++| SPACE 4,10 02875 M01S02678.1mb +++|** COMMON DECKS. 02876 M01S02679.1mb +++| 02877 M01S02680.1mb +++| 02878 M01S02681.1mb +++|*CALL COMPDLI 02879 M01S00044.ns2769 +++| QUAL COMPIMB 02880 M01S00045.ns2769 +++| LIST X 02881 M01S00046.ns2769 +++|*CALL COMPIMB 02882 M01S00047.ns2769 +++| LIST * 02883 M01S00048.ns2769 +++| QUAL * 02884 M01S00049.ns2769 +++| IMB EQU /COMPIMB/IMB 02885 M01S02682.1mb +++| SPACE 4,15 02886 M01S02683.1mb +++|** MAINTENANCE REGISTER BUFFERS. 02887 M01S02684.1mb +++| 02888 M01S02685.1mb +++| 02889 M01S02686.1mb +++| BCMR EQU * 02890 M01S02687.1mb +++| BDMR EQU BCMR+10 02891 M01S02688.1mb +++| PRGB EQU BDMR+10 PP REGISTER BUFFER 02892 M01S02689.1mb +++| BHDR EQU PRGB *EMB* HEADER WORD 02893 M01S02690.1mb +++| MBUF EQU BHDR+5 MODEL DEPENDENT DATA *BML* BUFFER 02894 M01S02691.1mb +++| 02895 M01S02692.1mb +++| ERRPL PRGB+240B-EPFW PP REGISTER BUFFER OVERFLOW 02896 M01S02693.1mb +++| ERRPL MBUF+50D*5-EPFW MODEL DEPENDENT DATA BUFFER OVERFLOW 02897 M01S02694.1mb +++| TITLE OVERLAYABLE SUBROUTINES. 02898 M01S02695.1mb +++|* THESE SUBROUTINES ARE OVERLAYED BY THE MAINTENANCE REGISTER 02899 M01S02696.1mb +++|* AND MODEL DEPENDENT DATA BUFFERS. 02900 M01S02697.1mb +++| SBA SPACE 4,25 02901 M01S02698.1mb +++|** SBA - SET BUFFER ADDRESSES. 02902 M01S02699.1mb +++|* 02903 M01S02700.1mb +++|* EXIT (DC - DC+3) = *DFT* CONTROL WORD. 02904 M01S02701.1mb +++|* (DOBA - DOBA+1) = DFT/OS BUFFER ADDRESS. 02905 M01S02702.1mb +++|* (SDAA - SDAA+1) = NOS REQUEST HEADER ADDRESS. 02906 M01S02703.1mb +++|* (MRBA - MRBA+1) = ADDRESS OF M/R BUFFERS. 02907 M01S02704.1mb +++|* (LMRB) = LENGTH OF M/R BUFFER. 02908 M01S02705.1mb +++|* MACHINE ID, MESSAGE ID AND CHANNEL PLACED IN *BML* 02909 M01S02706.1mb +++|* MESSAGE BUFFER. 02910 M01S02707.1mb +++|* *DFT* VERSION PLACED IN *BML* MESSAGE BUFFER. 02911 M01S02708.1mb +++|* CODE MODIFIED TO SKIP LOGGING IF NOS/VE IS LOGGING. 02912 M01S02709.1mb +++|* 02913 M01S02710.1mb +++|* IN ADDITION, FOR *DFT* VERSION 4 OR ABOVE - 02914 M01S02711.1mb +++|* (DFTV) = *DFT* VERSION. 02915 M01S02712.1mb +++|* (LMRA) = SIZE OF ELEMENT COUNTER BUFFER. 02916 M01S02713.1mb +++|* (FNRA - FNRA+1) = NON-REGISTER DATA ADDRESS.
| Line S02714 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02917 M02S02714.271l716 ---|* NOTE - NON-REGISTER DATA SUPPORT IS NOT IMPLEMENTED. 02918 M01S02715.1mb +++|* (LSSA - LSSA+1) = SUPPORTIVE STATUS BUFFER ADDRESS. 02919 M01S02716.1mb +++|* (MDBA - MDBA+1) = MODEL DEPENDENT BUFFER ADDRESS. 02920 M01S02717.1mb +++|* 02921 M01S02718.1mb +++|* USES CM - CM+4, CN - CN+4, DC - DC+3. 02922 M01S02719.1mb +++|* 02923 M01S02720.1mb +++|* CALLS DLI, DOB, DSP. 02924 M01S02721.1mb +++|* 02925 M01S02722.1mb +++|* MACROS ISTORE, RPTR. 02926 M01S02723.1mb +++| 02927 M01S02724.1mb +++| 02928 M01S02725.1mb +++| SBA SUBR ENTRY/EXIT 02929 M01S02726.1mb +++| LDC SBAL DEFINE LONG INSTRUCTIONS 02930 M01S02727.1mb +++| RJM DLI 02931 M01S02728.1mb +++| RJM DSP READ *DFT/OS* BUFFER POINTER 02932 M01S02729.1mb +++| ADK DSCM+3 02933 M01S02730.1mb +++| CRDL CN 02934 M01S02731.1mb +++| RPTR CN,DOBA SET *DFT/OS* BUFFER ADDRESS 02935 M01S02732.1mb +++| RJM DOB READ *DFT* CONTROL WORD 02936 M01S02733.1mb +++| ADK DFCW 02937 M01S02734.1mb +++| CRDL DC 02938 M01S02735.1mb +++| ADK DFRQ-DFCW READ NOS REQUEST HEADER POINTER 02939 M01S02736.1mb +++| CRDL CM 02940 M01S02737.1mb +++| ADK DFMR-DFRQ READ M/R BUFFERS POINTER 02941 M01S02738.1mb +++| CRDL CN 02942 M01S02739.1mb +++| RPTR CN,MRBA SAVE FWA OF M/R BUFFERS 02943 M01S02740.1mb +++| RPTR CM,SDAA SET ADDRESS OF NOS REQUEST HEADER 02944 M01S02741.1mb +++| LDDL DC+2 SET LENGTH OF M/R BUFFER 02945 M01S02742.1mb +++| SHN -10 02946 M01S02743.1mb +++| STM LMRB 02947 M01S02744.1mb +++| LDDL DC+1 GET *DFT* VERSION 02948 M01S02745.1mb +++| SHN -10 02949 M01S02746.1mb +++| LPN 77 02950 M01S02747.1mb +++| STM IBMG SET *DFT* VERSION INTO *BML* 02951 M01S02748.1mb +++| SHN -2 02952 M01S02749.1mb +++| STM DFTV SAVE *DFT* VERSION (0 = VERSION 3)
| Line S02750 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02953 M02S02750.271l716 ---| ZJP SBA1 IF *DFT* VERSION 3 02954 M01S00092.271l716 +++| ZJP SBA2 IF *DFT* VERSION 3 02955 M01S02751.1mb +++| ISTORE SCAA,(UJN SCA2) USE POINTER TO FIND CONTROL WORDS
| Line S02752 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb31 |
Seq # *Modification Id* Act ----------------------------+ 02956 M02S02752.1mb31 ---| LDC IBMG+2 MOVE MEMORY MODEL IN *BML*
| Line S02753 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 1mb31 |
Seq # *Modification Id* Act ----------------------------+ 02957 M02S02753.1mb31 ---| STM SIDA 02958 M01S02754.1mb +++| RJM DOB 02959 M01S02755.1mb +++| ADK DFMD READ MODEL DEPENDENT BUFFER POINTER 02960 M01S02756.1mb +++| CRDL T1 02961 M01S02757.1mb +++| ADK DFSS-DFMD READ SUPPORTIVE STATUS BUFFER POINTER 02962 M01S02758.1mb +++| CRDL CM 02963 M01S02759.1mb +++| ADK DFNR-DFSS READ NON-REGISTER DATA POINTER 02964 M01S02760.1mb +++| CRDL CN 02965 M01S02761.1mb +++| RPTR T1,MDBA SAVE FWA OF MODEL DEPENDENT BUFFER 02966 M01S02762.1mb +++| RPTR CM,FSSA SAVE FWA OF SUPPORTIVE STATUS DATA
| Line S02763 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02967 M02S02763.271l716 ---|* RPTR CN,FNRA SAVE FWA OF NON-REGISTER DATA
| Line S02764 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02968 M02S02764.271l716 ---| RJM DOB 02969 M01S00093.271l716 +++| LDM IBMG CHECK FOR *DFT* VERSION 5 AND ABOVE 02970 M01S00094.271l716 +++| SBN 5 02971 M01S00095.271l716 +++| MJN SBA1 IF *DFT* VERSION 4 OR PRIOR 02972 M01S00096.271l716 +++| RPTR CN,FNRA SAVE FWA OF NON-REGISTER DATA 02973 M01S00020.ns2660 +++| LDDL DC+3 CHECK DEDICATED MODE 02974 M01S00021.ns2660 +++| SHN 21-DCDM 02975 M01S00022.ns2660 +++| PJN SBA1 IF *DFT* IS IN DEDICATED MODE 02976 M01S00023.ns2660 +++| LDD IR+2 CHECK FOR TOP OF HOUR 02977 M01S00024.ns2660 +++| LPN SPTP 02978 M01S00025.ns2660 +++| ZJN SBA0 IF NOT TOP OF HOUR 02979 M01S00026.ns2660 +++| ISTORE CTPB,(LDN SPTH) SET TO SECOND TOP OF HOUR FUNCTION 02980 M01S00027.ns2660 +++| UJN SBA1 CONTINUE 02981 M01S00028.ns2660 +++| 02982 M01S00029.ns2660 +++| SBA0 LDD IR+2 CHECK FOR TOP OF HOUR PASS TWO 02983 M01S00030.ns2660 +++| LPN SPTH 02984 M01S00031.ns2660 +++| ZJN SBA1 IF NOT TOP OF HOUR PASS TWO 02985 M01S00032.ns2660 +++| ISTORE DPPA,(UJN DPP5) SET TO RECALL *DFT* 02986 M01S00033.ns2660 +++|* LPN SPTP 02987 M01S00034.ns2660 +++| LPN SPLG 02988 M01S00035.ns2660 +++| STD IR+2 02989 M01S00036.ns2660 +++| LDD IA REWRITE INPUT REGISTER 02990 M01S00037.ns2660 +++| CWD IR 02991 M01S00097.271l716 +++| SBA1 RJM DOB 02992 M01S02765.1mb +++| ADK DFEC READ ELEMENT COUNTER BUFFER POINTER 02993 M01S02766.1mb +++| CRDL CM 02994 M01S02767.1mb +++| LDD CM+3 SAVE SIZE OF BUFFER 02995 M01S02768.1mb +++| STM LMRA
| Line S02769 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02996 M02S02769.271l716 ---| SBA1 LDDL DC+3 CHECK OS LOGGING FLAG 02997 M01S00098.271l716 +++| SBA2 LDDL DC+3 CHECK OS LOGGING FLAG 02998 M01S02770.1mb +++| SHN 21-DCLG
| Line S02771 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02999 M02S02771.271l716 ---| MJN SBA2 IF 170 LOGGING 03000 M01S00099.271l716 +++| MJN SBA3 IF 170 LOGGING 03001 M01S02772.1mb +++| ISTORE LMRC,(UJN LMRX) SKIP LOGGING 03002 M01S02773.1mb +++| LDC LJMI SET *LJM* 03003 M01S02774.1mb +++| STM CTPA 03004 M01S02775.1mb +++| LDC CTPX SET *LJM* ADDRESS 03005 M01S02776.1mb +++| STM CTPA+1 03006 M01S02777.1mb +++| LDBC (MRV7,MRIL) 03007 M01S02778.1mb +++| STM FOMA+1 03008 M01S02779.1mb +++| LDBC (MRV7,MRIL) 03009 M01S02780.1mb +++| LMC SCNI 03010 M01S02781.1mb +++| STM MEPC
| Line S02782 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03011 M02S02782.271l716 ---| SBA2 LDC MMFL SET MACHINE ID INTO *BML* 03012 M01S00100.271l716 +++| SBA3 LDC MMFL SET MACHINE ID INTO *BML* 03013 M01S02783.1mb +++| CRD CM 03014 M01S02784.1mb +++| LDD CM 03015 M01S02785.1mb +++| STM IBMG+3 03016 M01S02786.1mb +++| LDC /COMSDFS/HM0250 SET MESSAGE ID INTO *BML* 03017 M01S02787.1mb +++| STM IBMF 03018 M01S02788.1mb +++| LDN MR SET CHANNEL NUMBER INTO *BML* 03019 M01S02789.1mb +++| RAM IBMF+2 03020 M01S02790.1mb +++| LDC 400000B+SBAL CLEAR LONG INSTRUCTIONS 03021 M01S02791.1mb +++| RJM DLI 03022 M01S02792.1mb +++| LJM SBAX RETURN 03023 M01S02793.1mb +++| 03024 M01S02794.1mb +++| 03025 M01S02795.1mb +++| SBAL BSS 0 TABLE OF LONG INSTRUCTIONS 03026 M01S02796.1mb +++| LIST16 03027 M01S02797.1mb +++| TITLE COMMON PRESET. 03028 M01S02798.1mb +++| PRESET SPACE 4,10 03029 M01S02799.1mb +++|** PRESET - COMMON PRESET CODE FOR *1MB* AND *1SC*. 03030 M01S02800.1mb +++|* 03031 M01S02801.1mb +++|* THIS MACRO PROVIDES IDENTICAL CODE FOR *1MB* AND *1SC*. 03032 M01S02802.1mb +++|* 03033 M01S02803.1mb +++|* ENTRY (IR+2) = *1MB* FUNCTION BITS. 03034 M01S02804.1mb +++|* 03035 M01S02805.1mb +++|* EXIT (MF) = MAINFRAME TYPE. 03036 M01S02806.1mb +++|* = 0 = MF70 = CYBER 70. 03037 M01S02807.1mb +++|* = 1 = MF170 = CYBER 170. 03038 M01S02808.1mb +++|* = 2 = MF700 = CYBER 170 - 700 SERIES. 03039 M01S02809.1mb +++|* = 3 = MF865 = CYBER 170 - 865. 03040 M01S02810.1mb +++|* = 4 = MF875 = CYBER 170 - 875. 03041 M01S02811.1mb +++|* = 5 = MF180 = CYBER 180 CLASS MACHINE. 03042 M01S02812.1mb +++|* = 6 = MF176A = CYBER 176 LEVEL A. 03043 M01S02813.1mb +++|* = 7 = MF176B = CYBER 176 LEVEL B. 03044 M01S02814.1mb +++|* (PN) = PP NUMBER * 100B 03045 M01S02815.1mb +++|* 03046 M01S02816.1mb +++|* ERROR EXIT TO *PPR* IF CALLED WITH INCORRECT FUNCTION CODE. 03047 M01S02817.1mb +++|* 03048 M01S02818.1mb +++|* USES MF, T1, T3, T4, CM - CM+4, MI - MI+4, SC - SC+4. 03049 M01S02819.1mb +++|* 03050 M01S02820.1mb +++|* CALLS DFM. 03051 M01S02821.1mb +++| 03052 M01S02822.1mb +++| 03053 M01S02823.1mb +++| PRESET MACRO 03054 M01S02824.1mb +++| PRESET RMT 03055 M01S02825.1mb +++| LIST D 03056 M01S02826.1mb +++| PRS SUBR ENTRY/EXIT 03057 M01S02827.1mb +++| LDK MABL READ MAINFRAME IDENTIFICATION 03058 M01S02828.1mb +++| CRD MI 03059 M01S02829.1mb +++| LDC SCRL READ *SCRL* WORD 03060 M01S02830.1mb +++| CRD SC 03061 M01S02831.1mb +++| LDN MF70 PRESET CYBER 70 MAINFRAME TYPE 03062 M01S02832.1mb +++| STD MF 03063 M01S02833.1mb +++| LDD MI+1 03064 M01S02834.1mb +++| SHN 21-7 03065 M01S02835.1mb +++| PJN PRS8 IF CYBER 70 03066 M01S02836.1mb +++| SHN 21-13-21+7+22 03067 M01S02837.1mb +++| MJN PRS3 IF NOT CYBER 180 CLASS MACHINE 03068 M01S02838.1mb +++| SHN 0-2-21+13+22 03069 M01S02839.1mb +++| LPN 21 03070 M01S02840.1mb +++| ZJN PRS2 IF CYBER 170 - 865 03071 M01S02841.1mb +++| LMN 1 03072 M01S02842.1mb +++| ZJN PRS1 IF CYBER 170 - 875 03073 M01S02843.1mb +++| LDN MF180&MF875 03074 M01S02844.1mb +++| PRS1 LMN MF875&MF865 03075 M01S02845.1mb +++| PRS2 LMN MF865 03076 M01S02846.1mb +++| UJN PRS7 SET MACHINE TYPE 03077 M01S02847.1mb +++| 03078 M01S02848.1mb +++| PRS3 SHN 0-10-21+13 03079 M01S02849.1mb +++| LMN 17 03080 M01S02850.1mb +++| ZJN PRS5 IF CYBER 176 LEVEL A 03081 M01S02851.1mb +++| LMN 16&17 03082 M01S02852.1mb +++| ZJN PRS6 IF CYBER 176 LEVEL B 03083 M01S02853.1mb +++| LPN 1 03084 M01S02854.1mb +++| ZJN PRS4 IF CYBER 170 - 700 SERIES 03085 M01S02855.1mb +++| LDN MF170&MF700 03086 M01S02856.1mb +++| PRS4 LMN MF700&MF176A 03087 M01S02857.1mb +++| PRS5 LMN MF176A&MF176B 03088 M01S02858.1mb +++| PRS6 LMN MF176B 03089 M01S02859.1mb +++| PRS7 STD MF 03090 M01S02860.1mb +++| PRS8 LDD IR+2 CHECK FUNCTION BITS
| Line S02861 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | ns2660 |
Seq # *Modification Id* Act ----------------------------+ 03091 M02S02861.ns2660 ---| SBN SPMX 03092 M01S00038.ns2660 +++| SBK SPMX 03093 M01S02862.1mb +++| MJN PRS12 IF LEGAL FUNCTION 03094 M01S02863.1mb +++| 03095 M01S02864.1mb +++|* PROCESS INCORRECT FUNCTION CODE. 03096 M01S02865.1mb +++| 03097 M01S02866.1mb +++| LDC PRSA ISSUE CALL ERROR MESSAGE 03098 M01S02867.1mb +++| RJM DFM 03099 M01S02868.1mb +++| MONITOR DPPM 03100 M01S02869.1mb +++| LJM PPR EXIT TO PP RESIDENT 03101 M01S02870.1mb +++| 03102 M01S02871.1mb +++| PRS12 LDD CP SET CONTROL POINT NUMBER IN PP CALL 03103 M01S02872.1mb +++| SHN -7 03104 M01S02873.1mb +++| RAM CKPA+1 03105 M01S02874.1mb +++| LDN PPCP STORE LOGICAL PP NUMBER BEING USED 03106 M01S02875.1mb +++| CRD CM 03107 M01S02876.1mb +++| LDD IA 03108 M01S02877.1mb +++| SBD CM+4 03109 M01S02878.1mb +++| SHN -3 03110 M01S02879.1mb +++| SBN 12 CHECK BARREL 03111 M01S02880.1mb +++| MJN PRS12.1 IF IN LOWER BARREL 03112 M01S02881.1mb +++| ADN 20-12 ADJUST FOR PP20-PP31 03113 M01S02882.1mb +++| PRS12.1 ADN 12 03114 M01S02883.1mb +++| SHN 6 03115 M01S02884.1mb +++| STM IBMF+2 03116 M01S02885.1mb +++| STD PN 03117 M01S02886.1mb +++| LJM PRS13 COMPLETE PRESET 03118 M01S02887.1mb +++| 03119 M01S02888.1mb +++| 03120 M01S02889.1mb +++| PRSA DATA C* 1MB - CALL ERROR.* 03121 M01S02890.1mb +++| LIST * 03122 M01S02891.1mb +++| PRESET RMT 03123 M01S02892.1mb +++| PRESET ENDM 03124 M01S02893.1mb +++| TITLE PRESET. 03125 M01S02894.1mb +++| SPACE 4,10 03126 M01S02895.1mb +++|** COMMON PRESET. 03127 M01S02896.1mb +++| 03128 M01S02897.1mb +++| 03129 M01S02898.1mb +++| PRESET 03130 M01S02899.1mb +++| PRESET HERE 03131 M01S02900.1mb +++| 03132 M01S02901.1mb +++| PRS13 LDD CP 03133 M01S02902.1mb +++| SHN -7 03134 M01S02903.1mb +++| RAM MEPD+1 PRESET CP IN *1DS* CALL 03135 M01S00050.ns2769 +++| 03136 M01S00051.ns2769 +++|* PLUG *EMB* ADDRESSES. 03137 M01S00052.ns2769 +++| 03138 M01S00053.ns2769 +++| LDK EMBP FETCH *EMB* POINTER 03139 M01S00054.ns2769 +++| CRD CM 03140 M01S00055.ns2769 +++| .CM1 EQU CM+1 03141 M01S00056.ns2769 +++| LDC .CM1*10000+TEMB 03142 M01S00057.ns2769 +++| RJM STA SET *EMB* ADDRESSES 03143 M01S02904.1mb +++| LJM PRSX EXIT PRESET 03144 M01S00058.ns2769 +++| 03145 M01S00059.ns2769 +++| 03146 M01S00060.ns2769 +++| TEMB BSS 0 TABLE OF *EMB* ADDRESSES 03147 M01S00061.ns2769 +++| QUAL COMPIMB 03148 M01S00062.ns2769 +++| TEMB HERE 03149 M01S00063.ns2769 +++| QUAL * 03150 M01S00064.ns2769 +++| CON 0 TERMINATE TABLE 03151 M01S00065.ns2769 +++| STA SPACE 4,10 03152 M01S00066.ns2769 +++|** STA - SET TABLE ADDRESSES. 03153 M01S00067.ns2769 +++|* 03154 M01S00068.ns2769 +++|* ENTRY (A) = 6/ TP, 12/ TA 03155 M01S00069.ns2769 +++|* TP = TABLE POINTER. 03156 M01S00070.ns2769 +++|* TA = INSTRUCTION TABLE ADDRESS. 03157 M01S00071.ns2769 +++|* 03158 M01S00072.ns2769 +++|* EXIT (A) = 0. 03159 M01S00073.ns2769 +++|* 03160 M01S00074.ns2769 +++|* USES T0, T1, T2. 03161 M01S00075.ns2769 +++| 03162 M01S00076.ns2769 +++| 03163 M01S00077.ns2769 +++| STA1 STD T2 SET INSTRUCTION ADDRESS 03164 M01S00078.ns2769 +++| LDM 1,T1 03165 M01S00079.ns2769 +++| RAM 1,T2 SET LOWER 12 BITS OF ADDRESS 03166 M01S00080.ns2769 +++| SHN -14 03167 M01S00081.ns2769 +++| ADI T1 SET UPPER 6 BITS OF ADDRESS 03168 M01S00082.ns2769 +++| LPN 37 03169 M01S00083.ns2769 +++| RAI T2 03170 M01S00084.ns2769 +++| AOD T0 ADVANCE INSTRUCTION LIST 03171 M01S00085.ns2769 +++| STA2 LDI T0 03172 M01S00086.ns2769 +++| NJN STA1 IF NOT END OF TABLE 03173 M01S00087.ns2769 +++| 03174 M01S00088.ns2769 +++| STA SUBR ENTRY/EXIT 03175 M01S00089.ns2769 +++| STD T0 03176 M01S00090.ns2769 +++| SHN -14 SET ADDRESS POINTER 03177 M01S00091.ns2769 +++| STD T1 03178 M01S00092.ns2769 +++| UJN STA2 ENTER LOOP 03179 M01S02905.1mb +++| L1MB EQU * LWA+1 OF *1MB* CODE 03180 M01S02906.1mb +++| SPACE 4,10 03181 M01S02907.1mb +++| OVERFLOW PPFW,EPFW 03182 M01S02908.1mb +++| TTL 1MB/1SC - SCR ERROR PROCESSOR. 03183 M01S02909.1mb +++| TITLE 03184 M01S02910.1mb +++| IDENT 1SC,PPFW 03185 M01S02911.1mb +++| QUAL 1SC 03186 M01S02912.1mb +++|*COMMENT 1MB - SCR ERROR PROCESSOR.
| Line S02913 Modification History | |
|---|---|
M01 (Added by) | 1mb |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03187 M02S02913.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1984. 03188 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03189 M01S02914.1mb +++| SEP SPACE 4,10 03190 M01S02915.1mb +++|*** SEP - SCR ERROR PROCESSOR. 03191 M01S02916.1mb +++|* 03192 M01S02917.1mb +++|* *SEP* IS THE MAIN DRIVER THAT PROCESSES ERRORS 03193 M01S02918.1mb +++|* DETECTED IN THE SCR (OR SIMULATED SCR). *1SC* IS CALLED 03194 M01S02919.1mb +++|* FOR LOGGING *UIDL* (SEE *COMSSCR*) UNIQUE SECDED ERRORS, 03195 M01S02920.1mb +++|* FOR END-OF-HOUR PROCESSING, AND FOR ALL SCR ERRORS OTHER 03196 M01S02921.1mb +++|* THAN SECDED ERRORS. 03197 M01S02922.1mb +++|* 03198 M01S02923.1mb +++|* *1SC* FIRST CHECKS FOR GROUP 1 AND GROUP 2 FATAL ERRORS (SEE 03199 M01S02924.1mb +++|* *COMSSCR*). IF ANY OF THESE BITS ARE SET, *1SC* DISPLAYS 03200 M01S02925.1mb +++|* *FATAL MAINFRAME ERROR*, CHECKPOINTS THE DEVICES (IF NOT A 03201 M01S02926.1mb +++|* IAF ERROR), REQUESTS STEP MODE, AND HANGS THE PP. IF NO 03202 M01S02927.1mb +++|* FATAL ERROR BITS ARE DETECTED, *1SC* CONTINUES CHECKING FOR 03203 M01S02928.1mb +++|* OTHER ERRORS. 03204 M01S02929.1mb +++|* 03205 M01S02930.1mb +++|* *1SC* THEN CHECKS THE S/C REGISTER FOR BITS 36 AND/OR 03206 M01S02931.1mb +++|* 37 SET. IF BIT 36 (POWER FAILURE) IS SET, THE STEP 03207 M01S02932.1mb +++|* REQUEST BIT IN CM WORD *SCRL* IS SET AND A STEP FUNCTION 03208 M01S02933.1mb +++|* IS ISSUED. THE S/C REGISTER(S) ARE READ ALONG WITH THE 03209 M01S02934.1mb +++|* TIME OF DAY. IF ONLY BIT 36 IS SET, THE MESSAGE 03210 M01S02935.1mb +++|* *POWER FAILURE.* IS DISPLAYED AT THE SYSTEM CONTROL 03211 M01S02936.1mb +++|* POINT. IF BOTH BITS 36 AND 37 ARE SET, THE MESSAGE 03212 M01S02937.1mb +++|* *POWER DOWN.* IS DISPLAYED. IF BIT 37 ALONE IS SET, *1CK* 03213 M01S02938.1mb +++|* IS CALLED TO PERFORM A SYSTEM CHECKPOINT AND THE MESSAGE 03214 M01S02939.1mb +++|* *SHUTDOWN IMMINENT.* IS ENTERED IN THE ERROR LOG AND 03215 M01S02940.1mb +++|* DISPLAYED AT THE SYSTEM CP. THEN THE STEP REQUEST BIT 03216 M01S02941.1mb +++|* IS SET AND A STEP FUNCTION IS ISSUED. DURING THIS TIME 03217 M01S02942.1mb +++|* AND SUBSEQUENTLY, BITS 36 AND 37 ARE MONITORED AND THE 03218 M01S02943.1mb +++|* CONTROL POINT MESSAGE KEPT UP TO DATE. IF BIT 36 BECOMES 03219 M01S02944.1mb +++|* SET, STEP MODE IS IMMEDIATELY REQUESTED. IF BOTH BITS 03220 M01S02945.1mb +++|* BECOME CLEAR, THE MESSAGE *POWER/ENVIRONMENT NORMAL.* 03221 M01S02946.1mb +++|* IS DISPLAYED AT THE SYSTEM CONTROL POINT, THE S/C 03222 M01S02947.1mb +++|* REGISTER(S) AND THE TIME OF DAY ARE READ, AND THE STEP 03223 M01S02948.1mb +++|* REQUEST BIT IS CLEARED, ENABLING THE ENTERING OF THE 03224 M01S02949.1mb +++|* *DSD* COMMAND *UNSTEP.* BY THE OPERATOR. WHEN *UNSTEP.* 03225 M01S02950.1mb +++|* IS EXECUTED, *1SC* ENTERS INTO THE ERROR LOG AS 03226 M01S02951.1mb +++|* APPROPRIATE, THE MESSAGE *SR HH.MM.SS. POWER FAILURE.* 03227 M01S02952.1mb +++|* OR *SR HH.MM.SS. POWER DOWN.*. THE LAST MESSAGE SEQUENCE 03228 M01S02953.1mb +++|* IN THE ERROR LOG BEFORE *1MB* DROPS WILL BE 03229 M01S02954.1mb +++|* *SR HH.MM.SS. POWER/ENVIRONMENT NORMAL.*. 03230 M01S02955.1mb +++|* (ON A CYBER 70, BIT 0 OF THE INTERLOCK REGISTER INDICATES 03231 M01S02956.1mb +++|* POWER FAILURE. THERE IS NO SHUTDOWN IMMINENT BIT. THE 03232 M01S02957.1mb +++|* POWER FAILURE PROCEDURE DESCRIBED ABOVE IS FOLLOWED 03233 M01S02958.1mb +++|* EXCEPT THE MESSAGE PREFIX BECOMES *IR* INSTEAD OF *SR*.) 03234 M01S02959.1mb +++|* 03235 M01S02960.1mb +++|* IF S/C REGISTER BITS 36 AND/OR 37 ARE NOT SET, 03236 M01S02961.1mb +++|* *1SC* S/C REGISTER(S) PROCESSING WILL, FOR EACH 03237 M01S02962.1mb +++|* AVAILABLE S/C REGISTER, CLEAR APPROPRIATE ERROR 03238 M01S02963.1mb +++|* BITS, AND ISSUE ERROR INFORMATION TO THE BML. 03239 M01S02964.1mb +++|* 03240 M01S02965.1mb +++|* FOR PP MEMORY PARITY ERRORS, *1SC* WILL DISPLAY A 03241 M01S02966.1mb +++|* *PP MEMORY PARITY ERROR* MESSAGE AT THE SYSTEM 03242 M01S02967.1mb +++|* CONTROL POINT. 03243 M01S02968.1mb +++|* 03244 M01S02969.1mb +++|* EACH SINGLE BIT SECDED ERROR DETECTED IN THE SCR (OR 03245 M01S02970.1mb +++|* SIMULATED SCR) WILL BE COUNTED. THE FIRST *UIDL* UNIQUE 03246 M01S02971.1mb +++|* PER HOUR WILL BE LOGGED (SUBSEQUENT SINGLE BIT SECDED 03247 M01S02972.1mb +++|* ERRORS DETECTED BY MONITOR WILL MERELY INCREMENT THE COUNTS 03248 M01S02973.1mb +++|* AND CLEAR THE ERROR BITS IN MONITOR ITSELF). AT THE END OF 03249 M01S02974.1mb +++|* EACH HOUR, THE *TIME PROCESSING* CALL TO *1SC* WILL CAUSE 03250 M01S02975.1mb +++|* THE CURRENT SINGLE BIT SECDED ERROR COUNT TO BE LOGGED TO 03251 M01S02976.1mb +++|* THE ERROR LOG. THE CM AND LCME SECDED ID TABLES AND COUNTS 03252 M01S02977.1mb +++|* WILL ALSO BE LOGGED TO THE BML. THESE TABLES AND COUNTS 03253 M01S02978.1mb +++|* WILL THEN BE CLEARED AFTER LOGGING. THE ESM SECDED 03254 M01S02979.1mb +++|* ERROR LOG IS ALSO LOGGED TO THE BML, IF AN ESM 03255 M01S02980.1mb +++|* MAINTENANCE PORT IS DEFINED. 03256 M01S02981.1mb +++|* 03257 M01S02982.1mb +++|* FOR CYBER 176 MACHINES, LCME SINGLE BIT SECDED 03258 M01S02983.1mb +++|* ERRORS ARE HANDLED IN A SIMILAR MANNER. THE 03259 M01S02984.1mb +++|* THRESHOLD VALUE FOR LCME IS ALSO DEFINED BY *UIDL*. 03260 M01S02985.1mb +++|* 03261 M01S02986.1mb +++|* ALL DETECTED DOUBLE BIT SECDED ERRORS WILL BE LOGGED. 03262 M01S02987.1mb +++|* 03263 M01S02988.1mb +++|* NOTE - *1SC* IS, TO AN EXTENT, FUNCTION-DRIVEN BY BITS. ONE 03264 M01S02989.1mb +++|* BIT IN THE PARAMETER LIST DENOTES WHETHER OR NOT MONITOR HAS 03265 M01S02990.1mb +++|* DETECTED A CM SINGLE BIT SECDED ERROR. A SECOND BIT 03266 M01S02991.1mb +++|* SPECIFIES IF AN LCME SINGLE BIT SECDED ERROR HAS BEEN 03267 M01S02992.1mb +++|* DETECTED. A THIRD BIT DENOTES IF END-OF-HOUR PROCESSING HAS 03268 M01S02993.1mb +++|* BEEN SPECIFIED. THUS, AN OPEN WINDOW FOR SECDED ERRORS 03269 M01S02994.1mb +++|* EXISTS FROM THE TIME MONITOR CALLS *1SC* UNTIL *1SC* BEGINS 03270 M01S02995.1mb +++|* PROCESSING. THIS PRESENTS NO MAJOR CONCERN, HOWEVER, SINCE 03271 M01S02996.1mb +++|* *1SC* WILL NOT PROCESS ANY SECDED ERRORS NOT DETECTED BY 03272 M01S02997.1mb +++|* MONITOR. THOSE SECDED BITS WILL REMAIN SET UNTIL MONITOR 03273 M01S02998.1mb +++|* DETECTS THE ERROR IN ITS NEXT CYCLE. 03274 M01S02999.1mb +++|* WHEN *1SC* IS FINISHED, IT WILL CLEAR BIT 59 IN 03275 M01S03000.1mb +++|* CM LOCATION *SCRL*, SET BY *MTR*, TO RE-ENABLE 03276 M01S03001.1mb +++|* S/C REGISTER ERROR LOGGING. 03277 M01S03002.1mb +++| SPACE 4,10 03278 M01S03003.1mb +++|*** CALL. 03279 M01S03004.1mb +++|* 03280 M01S03005.1mb +++|* 03281 M01S03006.1mb +++|*T IR 18/ *1SC*,1/0,5/ CP,9/0,1/ C,1/ L,1/ T,24/0
Figure IR
03282 M01S03007.1mb +++|* CP CONTROL POINT NUMBER. 03283 M01S03008.1mb +++|* C SET IF CM SINGLE BIT SECDED ERROR. 03284 M01S03009.1mb +++|* L SET IF LCME SINGLE BIT SECDED ERROR (176 ONLY). 03285 M01S03010.1mb +++|* T SET IF TIME PROCESSING SPECIFIED. 03286 M01S03011.1mb +++| SPACE 4,10 03287 M01S03012.1mb +++|*** DAYFILE MESSAGES. 03288 M01S03013.1mb +++|* 03289 M01S03014.1mb +++|* 03290 M01S03015.1mb +++|* * 1SC - CALL ERROR.* = *1SC* WAS CALLED WITH AN ILLEGAL 03291 M01S03016.1mb +++|* FUNCTION BIT CODE. 03292 M01S03017.1mb +++|* 03293 M01S03018.1mb +++|* * 1SC - ESM CHANNEL HANG.* = THE ESM MAINTENANCE 03294 M01S03019.1mb +++|* CHANNEL HUNG ACTIVE WHILE WAITING TO FUNCTION THE 03295 M01S03020.1mb +++|* ESM TO READ THE ESM SECDED LOG. 03296 M01S03021.1mb +++|* 03297 M01S03022.1mb +++|* * 1SC - INCOMPLETE ESM SECDED READ.* = *1SC* DETECTED 03298 M01S03023.1mb +++|* THAT NOT ALL OF THE ESM SECDED LOG WAS READ OFF THE 03299 M01S03024.1mb +++|* ESM MAINTENANCE CHANNEL. 03300 M01S03025.1mb +++| SPACE 4,20 03301 M01S03026.1mb +++|*** SCR PROCESSING SYSTEM CONTROL POINT MESSAGES. 03302 M01S03027.1mb +++|* 03303 M01S03028.1mb +++|* 03304 M01S03029.1mb +++|* * FATAL MAINFRAME ERROR.* 03305 M01S03030.1mb +++|* 03306 M01S03031.1mb +++|* * POWER FAILURE.* 03307 M01S03032.1mb +++|* BIT 36 OF S/C REGISTER SET. 03308 M01S03033.1mb +++|* BIT 0 OF INTERLOCK REGISTER SET (CYBER 70) 03309 M01S03034.1mb +++|* 03310 M01S03035.1mb +++|* * SHUTDOWN IMMINENT.* 03311 M01S03036.1mb +++|* BIT 37 OF S/C REGISTER SET. 03312 M01S03037.1mb +++|* 03313 M01S03038.1mb +++|* * POWER DOWN.* 03314 M01S03039.1mb +++|* BOTH BITS 36 AND 37 OF S/C REGISTER SET. 03315 M01S03040.1mb +++|* 03316 M01S03041.1mb +++|* * POWER/ENVIRONMENT NORMAL.* 03317 M01S03042.1mb +++|* BOTH BITS 36 AND 37 OF S/C REGISTER CLEAR. 03318 M01S03043.1mb +++| SPACE 4,40 03319 M01S03044.1mb +++|*** SCR PROCESSING ERROR LOG MESSAGES. 03320 M01S03045.1mb +++|* 03321 M01S03046.1mb +++|* 03322 M01S03047.1mb +++|* *SR HH.MM.SS. POWER FAILURE.* 03323 M01S03048.1mb +++|* *IR HH.MM.SS. POWER FAILURE.* (CYBER 70) 03324 M01S03049.1mb +++|* 03325 M01S03050.1mb +++|* *SR SHUTDOWN IMMINENT.* 03326 M01S03051.1mb +++|* 03327 M01S03052.1mb +++|* *SR HH.MM.SS. POWER DOWN.* 03328 M01S03053.1mb +++|* 03329 M01S03054.1mb +++|* *SR HH.MM.SS. POWER/ENVIRONMENT NORMAL.* 03330 M01S03055.1mb +++|* *IR HH.MM.SS. POWER/ENVIRONMENT NORMAL.* (CYBER 70) 03331 M01S03056.1mb +++|* 03332 M01S03057.1mb +++|* WHERE HH.MM.SS. IS TIME OF DAY. 03333 M01S03058.1mb +++|* ABOVE MESSAGES ARE FOLLOWED BY S/C REGISTER(S) 03334 M01S03059.1mb +++|* CONTENTS READ AT TIME HH.MM.SS. IN FORMAT 03335 M01S03060.1mb +++|* SHOWN ABOVE. 03336 M01S03061.1mb +++| 03337 M01S03062.1mb +++| 03338 M01S03063.1mb +++| ORG PPFW 03339 M01S03064.1mb +++| SEP RJM PSC PRESET FOR *1SC* 03340 M01S03065.1mb +++| RJM RSC READ S/C REGISTER(S) 03341 M01S03066.1mb +++| SEPA RJM CFE CHECK FOR FATAL ERRORS
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1mb.001.txt · Last modified: by 127.0.0.1