User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dis.001

Deck DIS Part 001

27 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S01477 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
01787  M01S01477.dis8    ---|***       DISPLAY J.  CONTROL POINT STATUS.
Line S00001 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
01788  M01S00001.dis8    +++|***       DISPLAY B.  CONTROL POINT STATUS.
01789  M00S01478.dis     +++|*
01790  M00S01479.dis     +++|*         DISPLAYS CONTROL POINT STATUS AND NEXT COMMANDS.
01791  M00S01480.dis     +++|*
01792  M00S01481.dis     +++|*         ENTRY  (CP) = CPA ADDRESS.
01793  M00S01482.dis     +++|*
01794  M00S01483.dis     +++|*         XREF   COMDGJD.
01795  M00S01484.dis     +++|*
01796  M00S01485.dis     +++|*         NOTE - THE DISPLAY FORMAT IS DOCUMENTED IN *COMDGJD*.
Line S00002 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
01797  M01S00002.dis8    +++|*                ALSO, THE EXIT POINT FROM THIS ROUTINE MUST BE
01798  M01S00003.dis8    +++|*                *DSJX* DUE TO REQUIREMENTS OF *COMDGJD*.
01799  M00S01486.dis     +++|
01800  M00S01487.dis     +++|
01801  M00S01488.dis     +++| DSJX     LDC    2R.         RESTORE *.*-S
01802  M00S01489.dis     +++|          STM    D6SA
01803  M00S01490.dis     +++|          STM    D4SB
01804  M00S01491.dis     +++|          LJM    *           EXIT
Line S01492 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
01805  M01S01492.dis8    ---| DSJ      EQU    *-1         ENTRY
Line S00004 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
01806  M01S00004.dis8    +++| DSB      EQU    *-1         ENTRY
01807  M00S01493.dis     +++|
Line S01494 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
01808  M01S01494.dis8    ---|          DISPHD (DIS J.  JOB STATUS.)
Line S00005 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
01809  M01S00005.dis8    +++|          DISPHD (DIS B.  JOB STATUS.)
01810  M00S01495.dis     +++|*         LDN    0           CLEAR *.*-S
01811  M00S01496.dis     +++|          STM    D6SA
01812  M00S01497.dis     +++|          STM    D4SB
01813  M00S01498.dis     +++|          LDD    CP          GET EJTO
01814  M00S01499.dis     +++|          ADN    TFSW
01815  M00S01500.dis     +++|          CRD    T7
01816  M00S01501.dis     +++|          SFA    EJT,T7      GET JSN AND CONNECTION STATUS
01817  M00S01502.dis     +++|          ADK    JSNE
01818  M00S01503.dis     +++|          CRD    AB
01819  M00S01504.dis     +++|          LDM    CMEF        GET CENTRAL MEMORY EXTENSION FLAG
01820  M00S01505.dis     +++|*         UJN    GJD
01821  M00S01506.dis     +++|          SPACE  4,10
01822  M00S01507.dis     +++|*         COMMON DECKS.
01823  M00S01508.dis     +++|
01824  M00S01509.dis     +++|
01825  M00S01510.dis     +++|          QUAL   GJD
Line S00003 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01826  M01S00003.252l678 +++| GJD$     EQU    UE          DEFINE LOCATION OF *UESC* SHIFT
01827  M00S01511.dis     +++|          LIST   X
01828  M00S01512.dis     +++|*CALL     COMDGJD
01829  M00S01513.dis     +++|          LIST   *
01830  M00S01514.dis     +++|          QUAL   *
01831  M00S01515.dis     +++| DSN      SPACE  4
01832  M00S01516.dis     +++|***       DISPLAY N.  BLANK SCREEN.
01833  M00S01517.dis     +++|
01834  M00S01518.dis     +++|
01835  M00S01519.dis     +++| DSN      SUBR               ENTRY/EXIT
01836  M00S01520.dis     +++|          DISPHD (DIS N.  BLANK SCREEN.)
01837  M00S01521.dis     +++|          UJN    DSNX        RETURN
01838  M00S01522.dis     +++|          TITLE  DISPLAY SUBROUTINES.
01839  M00S01523.dis     +++| DAL      SPACE  4,10
01840  M00S01524.dis     +++|**        DAL - DISPLAY ACCESS LEVEL STRING.
01841  M00S01525.dis     +++|*
01842  M00S01526.dis     +++|*         ENTRY  (A) = VALID ACCESS LEVEL.
01843  M00S01527.dis     +++|
01844  M00S01528.dis     +++|
01845  M00S01529.dis     +++| DAL      SUBR               ENTRY/EXIT
01846  M00S01530.dis     +++|          SHN    2           CONVERT ACCESS LEVEL TO TABLE INDEX
01847  M00S01531.dis     +++|          ADK    TALV
01848  M00S01532.dis     +++|          STM    DALA
01849  M00S01533.dis     +++|          LDN    4
01850  M00S01534.dis     +++|          OAM    0,CH        DISPLAY STRING
01851  M00S01535.dis     +++| DALA     EQU    *-1
01852  M00S01536.dis     +++|          UJN    DALX        RETURN
01853  M00S01537.dis     +++| DLA      SPACE  4,10
01854  M00S01538.dis     +++|**        DLA - DISPLAY LINE ADVANCE.
01855  M00S01539.dis     +++|*
01856  M00S01540.dis     +++|*         EXIT   (A) .LT. 0 IF END OF DISPLAY.
01857  M00S01541.dis     +++|*
01858  M00S01542.dis     +++|*         USES   T4, YC, XC.
01859  M00S01543.dis     +++|
01860  M00S01544.dis     +++|
01861  M00S01545.dis     +++| DLA      SUBR               ENTRY/EXIT
01862  M00S01546.dis     +++|          LDD    XC          DISPLAY X-COORDINATE
01863  M00S01547.dis     +++|          OAN    CH+40
01864  M00S01548.dis     +++|          LCN    YINC        ADVANCE Y-COORDINATE
01865  M00S01549.dis     +++|          RAD    YC
01866  M00S01550.dis     +++|          OAN    CH+40
01867  M00S01551.dis     +++|          DFIM   (ADC -Y721)
01868  M00S01552.dis     +++|          ADC    -Y545
01869  M00S01553.dis     +++|          UJN    DLAX        RETURN
01870  M00S01554.dis     +++| DMS      SPACE  4,10
01871  M00S01555.dis     +++|          SPACE  4
01872  M00S01556.dis     +++|*         COMMON DECKS.
01873  M00S01557.dis     +++|          LIST   X
01874  M00S01558.dis     +++|
01875  M00S01559.dis     +++|
01876  M00S01560.dis     +++|*CALL     COMDDCM
Line S01561 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01877  M01S01561.241l630 ---| SYS$     EQU    1           DO NOT DISPLAY CHANNEL STATUS
Line S00011 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01878  M01S00011.241l630 +++| N2Z$     EQU    1           DO NOT ASSEMBLE *D2Z*
01879  M00S01562.dis     +++|*CALL     COMDDIS
01880  M00S01563.dis     +++|*CALL     COMDDSP
01881  M00S01564.dis     +++| DSS$     EQU    0           DISPLAY SUBSYSTEM STATUS
Line S00012 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01882  M01S00012.241l630 +++| N2S$     EQU    1           DO NOT ASSEMBLE *D2S*
01883  M00S01565.dis     +++|*CALL     COMDSYS
01884  M00S01566.dis     +++|          LIST   *
01885  M00S01567.dis     +++| EJT$     EQU    1           EJT SEARCH
01886  M00S01568.dis     +++| IFP$     EQU    1           *COMPGFP* REMOTE ASSEMBLY
01887  M00S01569.dis     +++|*CALL     COMPGFP
01888  M00S01570.dis     +++| VAL$     EQU    1
01889  M00S01571.dis     +++|*CALL     COMPVLC
01890  M00S01572.dis     +++|          TITLE  RESIDENT COMMAND PROCESSOR ROUTINES.
Line S00113 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01891  M01S00113.271l716 +++|
01892  M01S00114.271l716 +++|
01893  M01S00115.271l716 +++| CMEF     EQU    DCMD        CENTRAL MEMORY EXTENSION FLAG
01894  M00S01573.dis     +++| DIS      SPACE  4
01895  M00S01574.dis     +++|***       DIS.
01896  M00S01575.dis     +++|*
01897  M00S01576.dis     +++|*         CALL DIS AND DROP DISPLAY.
01898  M00S01577.dis     +++|
01899  M00S01578.dis     +++|
01900  M00S01579.dis     +++|          QUAL   DIS".N"
01901  M00S01580.dis     +++| CDS      ENTRY
01902  M00S01581.dis     +++|          LDM    /COMDDSP/DDSA SET EST ORDINAL
Line S00001 Modification History
M01 (Added by) ns2735
Seq #  *Modification Id* Act 
----------------------------+
01903  M01S00001.ns2735  +++|          LMC    4000        FORCE DIRECT CALL
01904  M00S01582.dis     +++|          STD    IR+4
01905  M00S01583.dis     +++|          LDD    KM          CHECK IF AUTO COMMAND PROCESSING
01906  M00S01584.dis     +++|          LMC    CJSA
01907  M00S01585.dis     +++|          NJN    CDS1        IF NOT AUTO COMMAND
01908  M00S01586.dis     +++|          LDD    HN
01909  M00S01587.dis     +++|          RAD    IR+3
01910  M00S01588.dis     +++| CDS1     RJM    DDS         DROP DISPLAY
01911  M00S01589.dis     +++|          LDD    IA          WRITE INPUT REGISTER FOR *DIS*
01912  M00S01590.dis     +++|          CWD    IR
01913  M00S01591.dis     +++|          LJM    PPR         EXIT TO PP RESIDENT
01914  M00S01592.dis     +++| DROP     SPACE  4
01915  M00S01593.dis     +++|***       DROP.
01916  M00S01594.dis     +++|*
01917  M00S01595.dis     +++|*         DROP DISPLAY.
01918  M00S01596.dis     +++|
01919  M00S01597.dis     +++|
01920  M00S01598.dis     +++| DRO      EQU    DPP         DEFINE ENTRY POINT TO DROP DISPLAY
01921  M00S01599.dis     +++|
01922  M00S01600.dis     +++| DRP      ENTRY  DRO
01923  M00S01601.dis     +++|*         RJM    DDS         DROP DISPLAY
01924  M00S01602.dis     +++|*         RJM    RBW         RESTORE BREAKPOINT WORD
01925  M00S01603.dis     +++|*         LJM    DPP         DROP PPU
01926  M00S01604.dis     +++| ERR      SPACE  4
01927  M00S01605.dis     +++|***       ERR.
01928  M00S01606.dis     +++|*
01929  M00S01607.dis     +++|*         SET ERROR FLAG.
01930  M00S01608.dis     +++|*
01931  M00S01609.dis     +++|*         USES   CM - CM+4.
01932  M00S01610.dis     +++|*
01933  M00S01611.dis     +++|*         MACROS MONITOR.
01934  M00S01612.dis     +++|
01935  M00S01613.dis     +++|
01936  M00S01614.dis     +++| ERR      ENTRY
01937  M00S01615.dis     +++|          LDN    ZERL
01938  M00S01616.dis     +++|          CRD    CM
01939  M00S01617.dis     +++|          LDN    FSET        SET FORCED ERROR FLAG
01940  M00S01618.dis     +++|          STD    CM+1
01941  M00S01619.dis     +++|          MONITOR CEFM
01942  M00S01620.dis     +++|          JMP    KBR         RETURN
01943  M00S01621.dis     +++| HOL      SPACE  4
01944  M00S01622.dis     +++|***       HOLD.
01945  M00S01623.dis     +++|*
01946  M00S01624.dis     +++|*         DROP DISPLAY AND WAIT FOR RE-ASSIGNMENT.
01947  M00S01625.dis     +++|
01948  M00S01626.dis     +++|
01949  M00S01627.dis     +++| HOL      ENTRY
01950  M00S01628.dis     +++|          RJM    DDS         DROP DISPLAY
Line S01629 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01951  M01S01629.241l630 ---|          LDN    0           CLEAR DISPLAY OVERLAY
01952  M01S01630.241l630 ---|          STM    OVD-5
Line S00013 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01953  M01S00013.241l630 +++|*         LDN    0
01954  M01S00014.241l630 +++|          STM    OVD-5       CLEAR DISPLAY OVERLAY
01955  M00S01631.dis     +++|          LDN    1RN
01956  M00S01632.dis     +++|          STD    LN
01957  M00S01633.dis     +++|          RJM    RDS         REQUEST DISPLAY
01958  M00S01634.dis     +++|          RJM    CSB         CLEAR SCREEN BUFFER
01959  M00S01635.dis     +++|          JMP    KBR         RETURN
01960  M00S01636.dis     +++|          QUAL
01961  M00S01637.dis     +++|          TITLE  COMMAND PROCESSOR SUBROUTINES.
01962  M00S01638.dis     +++| ADF      SPACE  4
01963  M00S01639.dis     +++|**        ADF - ADVANCE DISPLAY FIELD.
01964  M00S01640.dis     +++|*
01965  M00S01641.dis     +++|*         ENTRY  (A) = ADDRESS OF FIELD TO BE ADVANCED,
01966  M00S01642.dis     +++|*                (AB+3 - AB+4) = ADVANCE INCREMENT.
01967  M00S01643.dis     +++|*
01968  M00S01644.dis     +++|*         EXIT   NONE.
01969  M00S01645.dis     +++|*
01970  M00S01646.dis     +++|*         USES   T1, T2.
01971  M00S01647.dis     +++|
01972  M00S01648.dis     +++|
01973  M00S01649.dis     +++| ADF      SUBR               ENTRY/EXIT
01974  M00S01650.dis     +++|          STD    T1          SET FIELD ADDRESS
01975  M00S01651.dis     +++|          ZJN    ADFX        RETURN IF NO FIELD
01976  M00S01652.dis     +++|          ADN    10          SET LIMIT
01977  M00S01653.dis     +++|          STD    T2
01978  M00S01654.dis     +++| ADF1     LDD    AB+4        ADVANCE DISPLAY FIELD
01979  M00S01655.dis     +++|          RAM    1,T1
01980  M00S01656.dis     +++|          SHN    -14
01981  M00S01657.dis     +++|          ADD    AB+3
01982  M00S01658.dis     +++|          RAI    T1
01983  M00S01659.dis     +++|          LDN    2           ADVANCE FIELD
01984  M00S01660.dis     +++|          RAD    T1
01985  M00S01661.dis     +++|          LMD    T2
01986  M00S01662.dis     +++|          NJN    ADF1        LOOP FOR ALL FIELDS
01987  M00S01663.dis     +++|          UJN    ADFX        RETURN
01988  M00S01664.dis     +++| ASC      SPACE  4
01989  M00S01665.dis     +++|**        ASC - ASSEMBLE CHARACTERS.
01990  M00S01666.dis     +++|*
01991  M00S01667.dis     +++|*         ENTRY  (A) = ADDRESS OF CHARACTER STRING.
01992  M00S01668.dis     +++|*
01993  M00S01669.dis     +++|*         EXIT   (AB - AB+4) = ASSEMBLY.
01994  M00S01670.dis     +++|*
01995  M00S01671.dis     +++|*         USES   T1, T2
01996  M00S01672.dis     +++|
01997  M00S01673.dis     +++|
01998  M00S01674.dis     +++| ASC      SUBR               ENTRY/EXIT
01999  M00S01675.dis     +++|          STD    T1          STORE CHARACTER ADDRESS
02000  M00S01676.dis     +++|          LDN    AB          SET BYTE ADDRESS
02001  M00S01677.dis     +++|          STD    T2
02002  M00S01678.dis     +++| ASC1     LDI    T1          PACK BYTE
02003  M00S01679.dis     +++|          SHN    6
02004  M00S01680.dis     +++|          ADM    1,T1
02005  M00S01681.dis     +++|          STI    T2
02006  M00S01682.dis     +++|          ZJN    ASC2        IF ZERO BYTE
02007  M00S01683.dis     +++|          LDN    2           ADVANCE ADDRESS
02008  M00S01684.dis     +++|          RAD    T1
02009  M00S01685.dis     +++| ASC2     AOD    T2          ADVANCE BYTE
02010  M00S01686.dis     +++|          LMN    AB+5
02011  M00S01687.dis     +++|          NJN    ASC1        LOOP TO END OF WORD
02012  M00S01688.dis     +++|          UJN    ASCX        RETURN
02013  M00S01689.dis     +++| ASD      SPACE  4
02014  M00S01690.dis     +++|**        ASD - ASSEMBLE DIGITS.
02015  M00S01691.dis     +++|*
02016  M00S01692.dis     +++|*         ENTRY  (A) = CHARACTER ADDRESS.
02017  M00S01693.dis     +++|*
02018  M00S01694.dis     +++|*         EXIT   (AB - AB+4) = ASSEMBLY.
02019  M00S01695.dis     +++|*
02020  M00S01696.dis     +++|*         CALLS  CDR.
02021  M00S01697.dis     +++|
02022  M00S01698.dis     +++|
02023  M00S01699.dis     +++| ASD      SUBR               ENTRY/EXIT
02024  M00S01700.dis     +++|          RJM    CDR         CONVERT DIGITS
02025  M00S01701.dis     +++|          LMN    1R.
02026  M00S01702.dis     +++|          ZJN    ASDX        RETURN IF PERIOD
02027  M00S01703.dis     +++|          LJM    ILL         INCORRECT ENTRY
02028  M00S01704.dis     +++| ASN      SPACE  4,10
02029  M00S01705.dis     +++|**        ASN - ASSEMBLE NAME.
02030  M00S01706.dis     +++|*
02031  M00S01707.dis     +++|*         ENTRY  (A) = ADDRESS OF CHARACTER STRING.
02032  M00S01708.dis     +++|*
02033  M00S01709.dis     +++|*         EXIT   (A) = SEPARATOR CHARACTER.
02034  M00S01710.dis     +++|*                (AB - AB+4) = ASSEMBLY.
02035  M00S01711.dis     +++|*
02036  M00S01712.dis     +++|*         USES   T1, T2.
02037  M00S01713.dis     +++|
02038  M00S01714.dis     +++|
02039  M00S01715.dis     +++| ASN3     ADN    1R+         STORE CHARACTER
02040  M00S01716.dis     +++|          RAI    T2
02041  M00S01717.dis     +++|          AOD    T1
02042  M00S01718.dis     +++|          AOD    T2
02043  M00S01719.dis     +++|          LMN    AB+4
02044  M00S01720.dis     +++|          NJN    ASN1        LOOP FOR 7 CHARACTERS
02045  M00S01721.dis     +++|          LDI    T1          RETURN WITH CHARACTER
02046  M00S01722.dis     +++|
02047  M00S01723.dis     +++| ASN      SUBR               ENTRY/EXIT
02048  M00S01724.dis     +++|          STD    T1          STORE CHARACTER ADDRESS
02049  M00S01725.dis     +++|          LDN    ZERL        CLEAR ASSEMBLY
02050  M00S01726.dis     +++|          CRD    AB
02051  M00S01727.dis     +++|          LDN    AB          SET BYTE ADDRESS
02052  M00S01728.dis     +++|          STD    T2
02053  M00S01729.dis     +++| ASN1     LDI    T1          CHECK UPPER CHARACTER
02054  M00S01730.dis     +++|          SBN    1R+
02055  M00S01731.dis     +++|          MJN    ASN2        IF NOT SEPARATOR
02056  M00S01732.dis     +++|          ADN    1R+         RETURN WITH SEPARATOR
02057  M00S01733.dis     +++|          UJN    ASNX
02058  M00S01734.dis     +++|
02059  M00S01735.dis     +++| ASN2     ADN    1R+         STORE CHARACTER
02060  M00S01736.dis     +++|          SHN    6
02061  M00S01737.dis     +++|          STI    T2
02062  M00S01738.dis     +++|          AOD    T1
02063  M00S01739.dis     +++|          LDI    T1          CHECK LOWER
02064  M00S01740.dis     +++|          SBN    1R+
02065  M00S01741.dis     +++|          MJN    ASN3        IF NOT SEPARATOR
02066  M00S01742.dis     +++|          ADN    1R+         RETURN WITH SEPARATOR
02067  M00S01743.dis     +++|          UJN    ASNX
02068  M00S01744.dis     +++| BCP      SPACE  4
02069  M00S01745.dis     +++|**        BCP - BEGIN CENTRAL PROGRAM.
02070  M00S01746.dis     +++|
02071  M00S01747.dis     +++|
02072  M00S01748.dis     +++| BCP      SUBR               ENTRY/EXIT
02073  M00S01749.dis     +++|          RJM    CRA         CHECK SYSTEM REQUEST
02074  M00S01750.dis     +++|          PJN    BCP1        IF *END* OR *ABT*
02075  M00S01751.dis     +++|          LDD    AB+1
02076  M00S01752.dis     +++|          ADD    AB+2
02077  M00S01753.dis     +++|          ADD    AB+3
02078  M00S01754.dis     +++|          NJN    BCP2
02079  M00S01755.dis     +++|          LDD    AB+4
02080  M00S01756.dis     +++|          ZJN    BCP2        IF NO PP OA
02081  M00S01757.dis     +++| BCP1     LDN    ZERL        CLEAR SYSTEM REQUEST (RA+1)
02082  M00S01758.dis     +++|          CRD    CM
02083  M00S01759.dis     +++|          LDD    RA
02084  M00S01760.dis     +++|          SHN    6
02085  M00S01761.dis     +++|          ADN    1
02086  M00S01762.dis     +++|          CWD    CM
02087  M00S01763.dis     +++| BCP2     MONITOR RCPM       REQUEST CPU
02088  M00S01764.dis     +++|          UJN    BCPX        RETURN
02089  M00S01765.dis     +++| CAJ      SPACE  4,10
02090  M00S01766.dis     +++|**        CAJ - CHECK ACTIVE JOB.
02091  M00S01767.dis     +++|*
02092  M00S01768.dis     +++|*         EXIT   (A) = 0, IF NO ACTIVITY.
02093  M00S01769.dis     +++|*
02094  M00S01770.dis     +++|*         USES   CM - CM+4.
02095  M00S01771.dis     +++|
02096  M00S01772.dis     +++|
02097  M00S01773.dis     +++| CAJ      SUBR               ENTRY/EXIT
02098  M00S01774.dis     +++|          LDD    CP          FETCH CP STATUS WORD
02099  M00S01775.dis     +++|          ADN    STSW
02100  M00S01776.dis     +++|          CRD    CM
02101  M00S01777.dis     +++|          LDD    CM+2        EXTRACT ROLLOUT CPU STATUS
02102  M00S01778.dis     +++|          LPN    2
02103  M00S01779.dis     +++|          SHN    11-1
02104  M00S01780.dis     +++|          LMD    CM
02105  M00S01781.dis     +++|          SBN    1
02106  M00S01782.dis     +++|          SHN    4           APPEND PP REQUEST QUEUE STATUS
02107  M00S01783.dis     +++|          ADD    CM+4
02108  M00S01784.dis     +++|          SCN    17
02109  M00S01785.dis     +++|          UJN    CAJX        RETURN
02110  M00S01786.dis     +++| CDR      SPACE 4
02111  M00S01787.dis     +++|**        CDR - CONVERT DIGITS RIGHT ADJUSTED.
02112  M00S01788.dis     +++|*
02113  M00S01789.dis     +++|*         ENTRY  (A) = ADDRESS OF CHARACTER STRING.
02114  M00S01790.dis     +++|*
02115  M00S01791.dis     +++|*         EXIT   (A) = SEPARATOR CHARACTER.
02116  M00S01792.dis     +++|*                (AB - AB+4) = ASSEMBLY.
02117  M00S01793.dis     +++|*
02118  M00S01794.dis     +++|*         USES   T1, T2.
02119  M00S01795.dis     +++|
02120  M00S01796.dis     +++|
02121  M00S01797.dis     +++| CDR      SUBR               ENTRY/EXIT
02122  M00S01798.dis     +++|          STD    T1          SAVE ADDRESS
02123  M00S01799.dis     +++|          LDN    ZERL        CLEAR ASSEMBLY AREA
02124  M00S01800.dis     +++|          CRD    AB
02125  M00S01801.dis     +++| CDR1     LDI    T1          LOAD CHARACTER
02126  M00S01802.dis     +++|          SBN    1R0
02127  M00S01803.dis     +++|          MJN    CDR2        IF ALPHA
02128  M00S01804.dis     +++|          SBN    1R8-1R0
02129  M00S01805.dis     +++|          MJN    CDR3        IF OCTAL DIGIT
02130  M00S01806.dis     +++|          SBN    1R -1R8
02131  M00S01807.dis     +++|          ZJN    CDR5        IF SPACE
02132  M00S01808.dis     +++| CDR2     LDI    T1          LOAD CHARACTER
02133  M00S01809.dis     +++|          UJN    CDRX        RETURN
02134  M00S01810.dis     +++|
02135  M00S01811.dis     +++| CDR3     ADN    10          STORE DIGIT
02136  M00S01812.dis     +++|          STD    T3
02137  M00S01813.dis     +++|          LDN    AB+4        SET BYTE ADDRESS
02138  M00S01814.dis     +++|          STD    T2
02139  M00S01815.dis     +++| CDR4     LDI    T2          LOAD BYTE
02140  M00S01816.dis     +++|          SHN    3
02141  M00S01817.dis     +++|          ADD    T3          ADD NEW DIGIT
02142  M00S01818.dis     +++|          STI    T2          STORE
02143  M00S01819.dis     +++|          SHN    -14         SAVE OVERFLOW
02144  M00S01820.dis     +++|          STD    T3
02145  M00S01821.dis     +++|          SOD    T2          ADVANCE BYTE ADDRESS
02146  M00S01822.dis     +++|          LMN    AB-1
02147  M00S01823.dis     +++|          NJN    CDR4        LOOP
02148  M00S01824.dis     +++| CDR5     AOD    T1          ADVANCE ADDRESS
02149  M00S01825.dis     +++|          UJN    CDR1        LOOP
02150  M00S01826.dis     +++| CRA      SPACE  4
02151  M00S01827.dis     +++|**        CRA - CHECK SYSTEM REQUEST FOR *END* OR *ABT*.
02152  M00S01828.dis     +++|*
02153  M00S01829.dis     +++|*         EXIT   (A) = 0     IF *END*
02154  M00S01830.dis     +++|*                (A) = 1     IF *ABT*
02155  M00S01831.dis     +++|*                (A) = -1    IF NEITHER
02156  M00S01832.dis     +++|*                (AB - AB+4) = RA+1.
02157  M00S01833.dis     +++|
02158  M00S01834.dis     +++|
02159  M00S01835.dis     +++| CRA1     LDN    1           SET *ABT* EXIT
02160  M00S01836.dis     +++|
02161  M00S01837.dis     +++| CRA      SUBR               ENTRY/EXIT
02162  M00S01838.dis     +++|          LDD    RA          CHECK SYSTEM REQUEST
02163  M00S01839.dis     +++|          SHN    6
02164  M00S01840.dis     +++|          ADN    1
02165  M00S01841.dis     +++|          CRD    AB
02166  M00S01842.dis     +++|          LDD    AB+1
02167  M00S01843.dis     +++|          SCN    77
02168  M00S01844.dis     +++|          SHN    6
02169  M00S01845.dis     +++|          LMD    AB
02170  M00S01846.dis     +++|          LMC    3RDEN
02171  M00S01847.dis     +++|          ZJN    CRAX        IF *END*
02172  M00S01848.dis     +++|          LMC    3RTAB&3RDEN
02173  M00S01849.dis     +++|          ZJN    CRA1        IF *ABT*
02174  M00S01850.dis     +++|          LCN    1           SET NEITHER EXIT
02175  M00S01851.dis     +++|          UJN    CRAX        RETURN
Line S01852 Modification History
M01 (Removed by) dis12
Seq #  *Modification Id* Act 
----------------------------+
02176  M01S01852.dis12   ---| DFC      SPACE  4
02177  M01S01853.dis12   ---|***       MX,YYYYYY.
02178  M01S01854.dis12   ---|*
02179  M01S01855.dis12   ---|*         IF M IS ONE OF THE LETTERS C,D,F,G, OR M, AND X IS
02180  M01S01856.dis12   ---|*         AN OCTAL DIGIT, CHANGE THE M DISPLAY FIELDS AS FOLLOWS:
02181  M01S01857.dis12   ---|*
02182  M01S01858.dis12   ---|*         X = 0 - 3, CHANGE FIELD X TO DISPLAY FROM YYYYYY.
02183  M01S01859.dis12   ---|*         X = 4, CHANGE FIELDS 0 - 3 TO DISPLAY FROM YYYYYY
02184  M01S01860.dis12   ---|*                CONSECUTIVELY.
02185  M01S01861.dis12   ---|*         X = 5, ADVANCE DISPLAY OF FIELDS BY YYYYYY.
02186  M01S01862.dis12   ---|*         X = 6, DECREMENT DISPLAY OF FIELDS BY YYYYYY.
02187  M01S01863.dis12   ---|
02188  M01S01864.dis12   ---|
02189  M01S01865.dis12   ---|**        DFC - CHANGE DISPLAY FIELD.
02190  M01S01866.dis12   ---|
02191  M01S01867.dis12   ---|
02192  M01S01868.dis12   ---| DFC      SUBR               ENTRY/EXIT
02193  M01S01869.dis12   ---|          LDM    KBUF        SET DISPLAY INDEX
02194  M01S01870.dis12   ---|          STD    T6
02195  M01S01871.dis12   ---|          SBN    DPCAL
02196  M01S01872.dis12   ---|          PJN    DFCX        RETURN IF NO DISPLAY
02197  M01S01873.dis12   ---|          LDM    DFCA,T6     SET DISPLAY FIELD
02198  M01S01874.dis12   ---|          STD    T7
02199  M01S01875.dis12   ---|          ZJN    DFCX        RETURN IF NO FIELD
02200  M01S01876.dis12   ---|          LDM    KBUF+1      SET FIELD NUMBER
02201  M01S01877.dis12   ---|          SBN    1R0
02202  M01S01878.dis12   ---|          STD    T5
02203  M01S01879.dis12   ---|          MJN    DFCX        RETURN IF ALPHA
02204  M01S01880.dis12   ---|          SBN    10
02205  M01S01881.dis12   ---|          PJN    DFCX        RETURN IF NOT DIGIT
02206  M01S01882.dis12   ---|          LDC    CDF         CALL OVERLAY
02207  M01S01883.dis12   ---|          LJM    LOV
02208  M01S01884.dis12   ---| DPC      SPACE  4
02209  M01S01885.dis12   ---|***       MN.
02210  M01S01886.dis12   ---|*
02211  M01S01887.dis12   ---|*         IF M AND N ARE VALID DISPLAY IDENTIFIERS, CHANGE THE LEFT
02212  M01S01888.dis12   ---|*         AND RIGHT SCREEN DISPLAYS TO M AND N RESPECTIVELY.
02213  M01S01889.dis12   ---|
02214  M01S01890.dis12   ---|
02215  M01S01891.dis12   ---|**        DPC - CHANGE DISPLAY.
02216  M01S01892.dis12   ---|
02217  M01S01893.dis12   ---|
02218  M01S01894.dis12   ---| DPC      SUBR               ENTRY/EXIT
02219  M01S01895.dis12   ---|          LDM    KBUF        CHECK LEFT SCREEN INDEX
02220  M01S01896.dis12   ---|          SBN    DPCAL
02221  M01S01897.dis12   ---|          PJN    DPCX        RETURN IF NO DISPLAY
02222  M01S01898.dis12   ---|          LDM    KBUF+1      CHECK RIGHT SCREEN INDEX
02223  M01S01899.dis12   ---|          STD    T1
02224  M01S01900.dis12   ---|          SBN    DPCAL
02225  M01S01901.dis12   ---|          PJN    DPCX        RETURN IF NO DISPLAY
02226  M01S01902.dis12   ---|          LDM    DLSA,T1
02227  M01S01903.dis12   ---|          NJN    DPCX        RETURN IF RIGHT SCREEN IS OVERLAY
02228  M01S01904.dis12   ---|          LDM    KBUF        SET LEFT SCREEN DISPLAY
02229  M01S01905.dis12   ---|          STD    LS
02230  M01S01906.dis12   ---|          LDD    T1          SET RIGHT SCREEN DISPLAY
02231  M01S01907.dis12   ---|          STD    RS
02232  M01S01908.dis12   ---|          RJM    LDO         LOAD DISPLAY OVERLAY
02233  M01S01909.dis12   ---|          LJM    KBR         RETURN
02234  M01S01910.dis12   ---| DTC      SPACE  4,10
02235  M01S01911.dis12   ---|***       M,XXXX.
02236  M01S01912.dis12   ---|*
02237  M01S01913.dis12   ---|*         IF M IS ONE OF THE LETTERS C,D,F,G, OR M, XXXX IS
02238  M01S01914.dis12   ---|*         THE BIAS ADDRESS FOR MANAGED TABLE DISPLAY.
02239  M01S01915.dis12   ---|
02240  M01S01916.dis12   ---|
02241  M01S01917.dis12   ---|**        DTC - CHANGE DISPLAY TABLE.
02242  M01S01918.dis12   ---|
02243  M01S01919.dis12   ---|
02244  M01S01920.dis12   ---| DTC      SUBR               ENTRY/EXIT
02245  M01S01921.dis12   ---|          LDM    KBUF        SET DISPLAY INDEX
02246  M01S01922.dis12   ---|          STD    T6
02247  M01S01923.dis12   ---|          SBN    DPCAL
02248  M01S01924.dis12   ---|          PJN    DTCX        RETURN IF NO DISPLAY
02249  M01S01925.dis12   ---|          LDM    DFCA,T6     SET DISPLAY FIELD
02250  M01S01926.dis12   ---|          STD    T7
02251  M01S01927.dis12   ---|          ZJN    DTCX        RETURN IF NO FIELD
02252  M01S01928.dis12   ---|          LDC    KBUF+2      ASSEMBLE DIGITS
02253  M01S01929.dis12   ---|          RJM    ASD
02254  M01S01930.dis12   ---|          LDD    AB+4        SET ADDRESS
02255  M01S01931.dis12   ---|          STM    -1,T7
02256  M01S01932.dis12   ---|          LDD    T6
02257  M01S01933.dis12   ---|          LJM    SLS         SET LEFT SCREEN
02258  M00S01934.dis     +++| ECP      SPACE  4
02259  M00S01935.dis     +++|**        ECP - END CENTRAL PROGRAM.
02260  M00S01936.dis     +++|*
02261  M00S01937.dis     +++|*         CALLS  FTN.
02262  M00S01938.dis     +++|
02263  M00S01939.dis     +++|
02264  M00S01940.dis     +++| ECP      SUBR               ENTRY/EXIT
02265  M00S01941.dis     +++|          LDN    0
02266  M00S01942.dis     +++|          STD    CM+1
02267  M00S01943.dis     +++|          MONITOR DCPM       DROP CPU
02268  M00S01944.dis     +++|          RJM    RBW         RESTORE BREAKPOINT WORD
02269  M00S01945.dis     +++|          UJN    ECPX        RETURN
02270  M00S01946.dis     +++| IAJ      SPACE  4
02271  M00S01947.dis     +++|**        IAJ - CALL *1AJ*.
02272  M00S01948.dis     +++|*
02273  M00S01949.dis     +++|*         ENTRY  (A) = 6/FN,9/0,1/S,1/E,1/R
02274  M00S01950.dis     +++|*                FN = 0, FOR MTR TYPE REQUEST (FOR SSJ= AND DMP=).
02275  M00S01951.dis     +++|*                   = 2, FOR DIS TYPE REQUEST.
02276  M00S01952.dis     +++|*                R  = RSS FLAG.
02277  M00S01953.dis     +++|*                E  = FOR RETURN ERROR MESSAGE TO MS2W.
02278  M00S01954.dis     +++|*                S  = FOR TAKE COMMAND FROM MS1W.
02279  M00S01955.dis     +++|*                (IAJC) = *PSNI* IF *DMP=* REQUEST
02280  M00S01956.dis     +++|*
02281  M00S01957.dis     +++|*         EXIT   (KM) = KEYBOARD MESSAGE CODE.
02282  M00S01958.dis     +++|*
02283  M00S01959.dis     +++|*         USES   KM, CM - CM+4.
02284  M00S01960.dis     +++|*
02285  M00S01961.dis     +++|*         CALLS  CAJ.
02286  M00S01962.dis     +++|*
02287  M00S01963.dis     +++|*         MACROS EXECUTE, MONITOR, SFA.
02288  M00S01964.dis     +++|
02289  M00S01965.dis     +++|
02290  M00S01966.dis     +++| IAJ3     LDC    INTF        *JOB ACTIVE.*
02291  M00S01967.dis     +++|          STD    KM
02292  M00S01968.dis     +++|
02293  M00S01969.dis     +++| IAJ      SUBR               ENTRY/EXIT
02294  M00S01970.dis     +++|          STM    IAJA+4
02295  M00S01971.dis     +++|          SHN    -14
02296  M00S01972.dis     +++|          STM    IAJA+2
02297  M00S01973.dis     +++|          RJM    CAJ         CHECK ACTIVE JOB
02298  M00S01974.dis     +++| IAJ1     NJN    IAJ3        IF JOB ACTIVE
02299  M00S01975.dis     +++| IAJC     EQU    *-1
02300  M00S01976.dis     +++|*         PSNI               (DMP=)
02301  M00S01977.dis     +++|          LDC    0           RESTORE ACTIVITY CHECK
02302  M00S01978.dis     +++|          ORG    *-1
02303  M00S01979.dis     +++|          LOC    IAJC
02304  M00S01980.dis     +++|          NJN    IAJ3        IF JOB ACTIVE
02305  M00S01981.dis     +++|          LOC    *O
02306  M00S01982.dis     +++|          STM    IAJC
02307  M00S01983.dis     +++|          LDN    ZERL
02308  M00S01984.dis     +++|          CRD    CM
02309  M00S01985.dis     +++|          LDC    4001        VERIFY JOB ADVANCE NOT SET
02310  M00S01986.dis     +++|          STD    CM
02311  M00S01987.dis     +++|          LDN    6           SET LOW ORDER BIT OF FIELD
02312  M00S01988.dis     +++|          SHN    6
02313  M00S01989.dis     +++|          STD    CM+1
02314  M00S01990.dis     +++|          LDD    MA
02315  M00S01991.dis     +++|          CWD    CM
02316  M00S01992.dis     +++|          LDN    1           SET JOB ADVANCE
02317  M00S01993.dis     +++|          STD    CM
02318  M00S01994.dis     +++|          STD    CM+4
02319  M00S01995.dis     +++|          LDD    MA
02320  M00S01996.dis     +++|          ADN    1
02321  M00S01997.dis     +++|          CWD    CM
02322  M00S01998.dis     +++|          LDN    ZERL
02323  M00S01999.dis     +++|          CRD    CM
02324  M00S02000.dis     +++|          LDN    40+2        VERIFY AND SET JOB ADVANCE AND INTERLOCK
02325  M00S02001.dis     +++|          STD    CM+1
02326  M00S02002.dis     +++|          LDC    **          INTERLOCK EJT ENTRY
02327  M00S02003.dis     +++| IAJB     EQU    *-1         (EJTO)
02328  M00S02004.dis     +++|          SFA    EJT
02329  M00S02005.dis     +++|          STD    CM+4
02330  M00S02006.dis     +++|          SHN    -14
02331  M00S02007.dis     +++|          STD    CM+3
02332  M00S02008.dis     +++|          MONITOR  UTEM
02333  M00S02009.dis     +++|          LDD    CM+1
02334  M00S02010.dis     +++|          NJN    IAJ2        IF INTERLOCK NOT SET
02335  M00S02011.dis     +++|*         LDN    0           ALLOW QUEUING OF PP REQUEST
02336  M00S02012.dis     +++|*         STD    CM+1
02337  M00S02013.dis     +++|          EXECUTE 1AJ,=
02338  M00S02014.dis     +++|          LDD    MA          WRITE REQUEST
02339  M00S02015.dis     +++|          CWM    IAJA,ON
02340  M00S02016.dis     +++|          MONITOR  RPPM
02341  M00S02017.dis     +++|          LJM    IAJX        RETURN
02342  M00S02018.dis     +++|
02343  M00S02019.dis     +++| IAJ2     LJM    IAJ3        DISPLAY * JOB ACTIVE.*
02344  M00S02020.dis     +++|
02345  M00S02021.dis     +++|
02346  M00S02022.dis     +++| IAJA     VFD    18D/0L1AJ,6/0,12D/2,12D/0,12D/0
02347  M00S02023.dis     +++| PPC      SPACE  4
02348  M00S02024.dis     +++|***       AAA. OR AAA,XXXXXX. OR AAA,XXXXXX,YYYYYY.
02349  M00S02025.dis     +++|*
02350  M00S02026.dis     +++|*         IF AAA IS THE NAME OF A PP PROGRAM BEGINNING WITH A
02351  M00S02027.dis     +++|*         LETTER, CALL THIS PROGRAM TO EXECUTE WITH PARAMETERS
02352  M00S02028.dis     +++|*         XXXXXX AND YYYYYY.  IN THE FORMS MISSING EITHER XXXXXX
02353  M00S02029.dis     +++|*         OR YYYYYY, THE ASSUMED VALUE WILL BE 0.
02354  M00S02030.dis     +++|
02355  M00S02031.dis     +++|
02356  M00S02032.dis     +++| PPC      SUBR               ENTRY/EXIT
02357  M00S02033.dis     +++|          LDC    KBUF        ASSEMBLE NAME
02358  M00S02034.dis     +++|          RJM    ASN
02359  M00S02035.dis     +++|          SBN    1R+
02360  M00S02036.dis     +++|          MJN    PPCX        RETURN IF NO SEPARATOR
02361  M00S02037.dis     +++|          LDD    AB          CHECK NAME
02362  M00S02038.dis     +++|          SHN    -6
02363  M00S02039.dis     +++|          SBN    1R0
02364  M00S02040.dis     +++|          PJN    PPCX        RETURN IF NOT ALPHA
02365  M00S02041.dis     +++|          LDD    AB+1
02366  M00S02042.dis     +++|          ZJN    PPCX        RETURN IF NOT 3 CHARACTERS
02367  M00S02043.dis     +++|          LPN    77
02368  M00S02044.dis     +++|          NJN    PPCX        RETURN IF MORE THAN 3 CHARACTERS
02369  M00S02045.dis     +++|          LDC    CPP         CALL PPU
02370  M00S02046.dis     +++|          LJM    LOV
02371  M00S02047.dis     +++| RBW      SPACE  4
02372  M00S02048.dis     +++|**        RBW - RESTORE BREAKPOINT WORD.
02373  M00S02049.dis     +++|*
02374  M00S02050.dis     +++|*         ENTRY  (BA - BA+1) = BREAKPOINT ADDRESS.
02375  M00S02051.dis     +++|*
02376  M00S02052.dis     +++|*         USES   BA, BA+1.
02377  M00S02053.dis     +++|
02378  M00S02054.dis     +++|
02379  M00S02055.dis     +++| RBW      SUBR               ENTRY/EXIT
02380  M00S02056.dis     +++|          LDD    BA
02381  M00S02057.dis     +++|          SHN    14
02382  M00S02058.dis     +++|          ADD    BA+1
02383  M00S02059.dis     +++|          ZJN    RBWX        IF BREAKPOINT NOT SET
02384  M00S02060.dis     +++|          SHN    14          RESTORE BREAKPOINT WORD
02385  M00S02061.dis     +++|          ADD    RA
02386  M00S02062.dis     +++|          SHN    6
02387  M00S02063.dis     +++|          CWM    RBWA,ON
02388  M00S02064.dis     +++|          LDN    0           CLEAR BREAKPOINT
02389  M00S02065.dis     +++|          STD    BA
02390  M00S02066.dis     +++|          STD    BA+1
02391  M00S02067.dis     +++|          UJN    RBWX        RETURN
Line S00116 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02392  M01S00116.271l716 +++|
02393  M00S02068.dis     +++|
02394  M00S02069.dis     +++| RBWA     VFD    60D/0       INSTRUCTION WORD BUFFER
02395  M00S02070.dis     +++| SLS      SPACE  4
02396  M00S02071.dis     +++|**        SLS - SET LEFT SCREEN.
Line S00117 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02397  M01S00117.271l716 +++|*
02398  M00S02072.dis     +++|*         ENTRY  (A) = NAME OF SCREEN.
02399  M00S02073.dis     +++|
02400  M00S02074.dis     +++|
02401  M00S02075.dis     +++| SLS      LMD    RS
02402  M00S02076.dis     +++|          ZJN    SLS1        IF RIGHT SCREEN DISPLAY
02403  M00S02077.dis     +++|          LMD    RS
02404  M00S02078.dis     +++|          STD    LS          SET LEFT SCREEN
02405  M00S02079.dis     +++|          RJM    LDO         LOAD DISPLAY OVERLAY
02406  M00S02080.dis     +++| SLS1     LJM    KBR
02407  M00S02081.dis     +++|          TITLE  TABLE OF DISPLAYS.
02408  M00S02082.dis     +++| TDSP     SPACE  4
02409  M00S02083.dis     +++|**        TDSP - TABLE OF DISPLAYS.
02410  M00S02084.dis     +++|*
02411  M00S02085.dis     +++|*
02412  M00S02086.dis     +++|*A        TDSP   B,C
02413  M00S02087.dis     +++|*         ENTRY  (A) = DISPLAY NAME.
02414  M00S02088.dis     +++|*                (B) = DISPLAY FIELD ADDRESS (OPTIONAL).
02415  M00S02089.dis     +++|*                (C) = + AND - PROCESSOR (OPTIONAL).
02416  M00S02090.dis     +++|
02417  M00S02091.dis     +++|
02418  M00S02092.dis     +++|          MACRO  TDSP,A,B,C
02419  M00S02093.dis     +++|          ORG    TDAD+1R;A
02420  M00S02094.dis     +++|          CON    C AMF
02421  M00S02095.dis     +++|          ORG    DFCA+1R;A
02422  M00S02096.dis     +++|          CON    B  0
02423  M00S02097.dis     +++|          ORG    DPCA+1R;A
02424  M00S02098.dis     +++|          CON    DS;A-DS;A/10000*10000
02425  M00S02099.dis     +++|          ORG    DLSA+1R;A
02426  M00S02100.dis     +++|          CON    DS;A/10000
02427  M00S02101.dis     +++|          ENDM
02428  M00S02102.dis     +++| TDSP     SPACE  4
02429  M00S02103.dis     +++|**        TABLE OF DISPLAYS.
02430  M00S02104.dis     +++|
02431  M00S02105.dis     +++|
02432  M00S02106.dis     +++| TDAD     EQU    *-1
02433  M00S02107.dis     +++|          DUP    1RZ,1
02434  M00S02108.dis     +++|          CON    AMF
02435  M00S02109.dis     +++|
02436  M00S02110.dis     +++| DFCA     EQU    *-1
02437  M00S02111.dis     +++|          DUP    1RZ,1
02438  M00S02112.dis     +++|          CON    0
02439  M00S02113.dis     +++| DFCAL    EQU    *-DFCA
02440  M00S02114.dis     +++|
02441  M00S02115.dis     +++| DPCA     EQU    *-1
02442  M00S02116.dis     +++|          DUP    1RZ,1
02443  M00S02117.dis     +++|          CON    DSZ-DSZ/10000*10000
02444  M00S02118.dis     +++| DPCAL    EQU    *-DPCA
02445  M00S02119.dis     +++|
02446  M00S02120.dis     +++| DLSA     EQU    *-1
02447  M00S02121.dis     +++|          DUP    1RZ,1
02448  M00S02122.dis     +++|          CON    DSZ/10000
02449  M00S02123.dis     +++| TDSP     SPACE  4
02450  M00S02124.dis     +++|**        TDSP - DISPLAY CONTROL TABLE.
02451  M00S02125.dis     +++|
02452  M00S02126.dis     +++|
02453  M00S02127.dis     +++| A        TDSP   ,ADA
Line S02128 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
02454  M01S02128.dis8    ---| B        TDSP   ,BPA
Line S00006 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
02455  M01S00006.dis8    +++| B        TDSP
02456  M00S02129.dis     +++| C        TDSP   DSCA
02457  M00S02130.dis     +++| D        TDSP   DSDA
02458  M00S02131.dis     +++| F        TDSP   DSFA
02459  M00S02132.dis     +++| G        TDSP   DSGA
02460  M00S02133.dis     +++| H        TDSP   ,ADH
Line S02134 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
02461  M01S02134.dis8    ---| J        TDSP
02462  M00S02135.dis     +++| M        TDSP   DSMA
02463  M00S02136.dis     +++| N        TDSP
02464  M00S02137.dis     +++| T        TDSP   ,ADT
02465  M00S02138.dis     +++| U        TDSP   ,ADT
02466  M00S02139.dis     +++| V        TDSP
Line S00007 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
02467  M01S00007.dis8    +++| X        TDSP   ,BPA
02468  M00S02140.dis     +++| Y        TDSP
02469  M00S02141.dis     +++| Z        TDSP
02470  M00S02142.dis     +++| TFNT     SPACE  4
02471  M00S02143.dis     +++|**        TFNT - TABLE OF FILE TYPES.
02472  M00S02144.dis     +++|
02473  M00S02145.dis     +++| TFNT     DATA   H*"NMFT"*
02474  M00S02146.dis     +++|          TITLE  OVERLAY AREA.
02475  M00S02147.dis     +++| OVL      SPACE  4
02476  M00S02148.dis     +++|*         TERMINATE RESIDENT ROUTINES.
02477  M00S02149.dis     +++|
02478  M00S02150.dis     +++|
02479  M00S02151.dis     +++|          QUAL
02480  M00S02152.dis     +++|          HERE
02481  M00S02153.dis     +++| DIS      HERE
02482  M00S02154.dis     +++|          USE    END         FORCE /LITERALS*/
02483  M00S02155.dis     +++|          SPACE  4
02484  M00S02156.dis     +++|*         OVERLAY AREA.
02485  M00S02157.dis     +++|
02486  M00S02158.dis     +++|
02487  M00S02159.dis     +++|          USE    OVL
02488  M00S02160.dis     +++| OVD      EQU    *+5
02489  M00S02161.dis     +++|          TITLE  PRESET PROGRAM.
02490  M00S02162.dis     +++| PRS      SPACE  4
02491  M00S02163.dis     +++|          QUAL   PRESET
02492  M00S02164.dis     +++| PRS      SPACE  4
02493  M00S02165.dis     +++|**        PRS - PRESET PROGRAM.
02494  M00S02166.dis     +++|*
02495  M00S02167.dis     +++|*         CALLS  CKB, CUA, DFM, MDC, RDS, SFI.
02496  M00S02168.dis     +++|
02497  M00S02169.dis     +++|
02498  M00S02170.dis     +++| PRS      SUBR               ENTRY/EXIT
02499  M00S02171.dis     +++|          LDN    0           CLEAR *RCPM* REQUIRED FLAG
02500  M00S02172.dis     +++|          STD    T8
02501  M00S02173.dis     +++|          LDD    IR+4
02502  M00S02174.dis     +++|          SHN    21-13
02503  M00S02175.dis     +++|          MJN    PRS3        IF DIRECT CALL
02504  M00S02176.dis     +++|          LDD    CP
02505  M00S02177.dis     +++|          ADN    STSW
02506  M00S02178.dis     +++|          CRD    CM
02507  M00S02179.dis     +++|          LDD    CM
02508  M00S02180.dis     +++|          SHN    -11
02509  M00S02181.dis     +++|          LMN    6
02510  M00S02182.dis     +++|          NJN    PRS2        IF NOT *I* STATUS
02511  M00S02183.dis     +++|          LDD    IR+1
02512  M00S02184.dis     +++|          LPN    40
02513  M00S02185.dis     +++|          STD    T8          SET *RCPM* REQUIRED FLAG IF RECALL SET
02514  M00S02186.dis     +++| PRS2     RJM    CUA         CHECK USER ACCESS
02515  M00S02187.dis     +++|          ZJN    PRS3        IF VALID USER
02516  M00S02188.dis     +++|          LDC    PRSC        * INCORRECT COMMAND.*
02517  M00S02189.dis     +++|          RJM    DFM
02518  M00S02190.dis     +++|          MONITOR  ABTM      ABORT CONTROL POINT
02519  M00S02191.dis     +++|          LJM    PPR         EXIT TO PP RESIDENT
02520  M00S02192.dis     +++|
02521  M00S02193.dis     +++| PRS3     LDD    IR+1        CLEAR AUTO-RECALL IN INPUT REGISTER
02522  M00S02194.dis     +++|          SCN    40
02523  M00S02195.dis     +++|          STD    IR+1
02524  M00S02196.dis     +++|          RJM    IFP         INITIALIZE *SFA* MACRO
02525  M00S02197.dis     +++|          LDN    DSEQ
02526  M00S02198.dis     +++|          SFA    EST         GET EST ENTRY FOR DISPLAY CONSOLE
Line S02199 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02527  M01S02199.252l678 ---|          ADK    EQDE
Line S00004 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
02528  M01S00004.252l678 +++|          ADK    EQAE
02529  M00S02200.dis     +++|          CRD    CM
02530  M00S02201.dis     +++|          LDD    CM+2
02531  M00S02202.dis     +++|          ZJN    PRS4        IF CC545 CONSOLE
02532  M00S02203.dis     +++|          MDIN               MODIFY DISPLAY GENERATOR
02533  M00S02204.dis     +++| PRS4     LDN    SSML        SAVE SECURITY MODE
02534  M00S02205.dis     +++|          CRD    CM
02535  M00S02206.dis     +++|          LDD    CM
02536  M00S02207.dis     +++|          LPN    3
02537  M00S02208.dis     +++|          STD    SM
02538  M00S02209.dis     +++|          LDN    NCPL        SAVE NUMBER OF CP-S
02539  M00S02210.dis     +++|          CRD    CM
02540  M00S02211.dis     +++|          LDD    CM+1
02541  M00S02212.dis     +++|          STD    NC
Line S02213 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02542  M01S02213.241l630 ---|          LDD    CP          FETCH INPUT FILE STATUS
Line S00015 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02543  M01S00015.241l630 +++|          LDK    EIBP        GET POINTER TO *EICB*
02544  M01S00016.241l630 +++|          CRD    CM
Line S00017 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02545  M02S00017.242l642 ---|          LDD    CM
Line S00007 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02546  M01S00007.242l642 +++|          LDD    CM+3
Line S00018 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02547  M01S00018.241l630 +++|          SHN    14
Line S00019 Modification History
M01 (Added by) 241l630
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02548  M02S00019.242l642 ---|          LMD    CM+1
Line S00008 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02549  M01S00008.242l642 +++|          LMD    CM+4
Line S00020 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02550  M01S00020.241l630 +++|          ZJN    PRS4.1      IF *EICB* NOT DEFINED
02551  M01S00021.241l630 +++|          ADK    D7ST        SAVE POINTER TO *D7ST* FOR *COMDSYS*
02552  M01S00022.241l630 +++|          STM    FDPA+1
02553  M01S00023.241l630 +++|          SHN    -14
02554  M01S00024.241l630 +++|          RAM    FDPA
02555  M01S00025.241l630 +++| PRS4.1   LDD    CP          FETCH INPUT FILE STATUS
02556  M00S02214.dis     +++|          ADN    TFSW
02557  M00S02215.dis     +++|          CRD    T1
02558  M00S02216.dis     +++|          LDD    T1          SET JOB EJTO
02559  M00S02217.dis     +++|          STM    IAJB
02560  M00S02218.dis     +++|          LDD    IR+4
02561  M00S02219.dis     +++|          SHN    21-13
02562  M00S02220.dis     +++|          PJN    PRS5        IF NOT DIRECT CALL
02563  M00S02221.dis     +++|          LDD    T1
02564  M00S02222.dis     +++|          NJN    PRS5        IF JOB PRESENT
02565  M00S02223.dis     +++|          MONITOR  DPPM      DROP PP
02566  M00S02224.dis     +++|          LJM    PPR         EXIT TO PP RESIDENT
02567  M00S02225.dis     +++|
Line S02226 Modification History
M01 (Removed by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02568  M01S02226.ns2731  ---| PRS5     LDN    0
02569  M01S02227.ns2731  ---|          STD    PR          CLEAR CPU PRIORITY
02570  M01S02228.ns2731  ---|          LDK    MABL        CHECK MAINFRAME TYPE
Line S00001 Modification History
M01 (Added by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
02571  M01S00001.ns2731  +++| PRS5     LDK    MABL        CHECK MAINFRAME TYPE
02572  M00S02229.dis     +++|          CRD    CM
02573  M00S02230.dis     +++|          LDD    CM+1
02574  M00S02231.dis     +++|          SHN    -11
02575  M00S02232.dis     +++|          LMN    7
02576  M00S02233.dis     +++|          SHN    -2+22       SAVE CM EXTENSION STATUS
02577  M00S02234.dis     +++|          STM    CMEF
02578  M00S02235.dis     +++|          ZJN    PRS5.1      IF CYBER 176 MAINFRAME
02579  M00S02236.dis     +++|          LDC    EEMC        SET DEFAULT ERROR EXIT MODE
02580  M00S02237.dis     +++|          UJN    PRS6        SET ERROR EXIT MODE
02581  M00S02238.dis     +++|
02582  M00S02239.dis     +++| PRS5.1   LDC    EEMC&1      DESELECT UNDERFLOW
02583  M00S02240.dis     +++| PRS6     STM    PRSA        SET ERROR EXIT MODE
02584  M00S02241.dis     +++|          LDD    IR+4
02585  M00S02242.dis     +++|          SHN    21-13
02586  M00S02243.dis     +++|          MJN    PRS7        IF CALLED TO RUNNING JOB
Line S02244 Modification History
M01 (Removed by) dis9
Seq #  *Modification Id* Act 
----------------------------+
02587  M01S02244.dis9    ---|          LDN    30
02588  M01S02245.dis9    ---|          STD    CM+4
02589  M01S02246.dis9    ---|          LDN    CPRS        SET CPU PRIORITY
02590  M01S02247.dis9    ---|          STD    CM+1
02591  M01S02248.dis9    ---|          MONITOR  SJCM
02592  M00S02249.dis     +++|          LDD    CP          SET EXIT MODE IN EXCHANGE PACKAGE
02593  M00S02250.dis     +++|          ADN    3
02594  M00S02251.dis     +++|          CRD    CM          CURRENT EXIT MODE
02595  M00S02252.dis     +++|          LDD    CM
02596  M00S02253.dis     +++|          LPC    770         RETAIN NON EXIT MODE BITS
02597  M00S02254.dis     +++|          LMC    EEMC
02598  M00S02255.dis     +++|*         LDC    EEMC&1      (CYBER 176 CPU)
02599  M00S02256.dis     +++| PRSA     EQU    *-1
02600  M00S02257.dis     +++|          STD    CM
02601  M00S02258.dis     +++|          LDD    CP
02602  M00S02259.dis     +++|          ADN    3
02603  M00S02260.dis     +++|          CWD    CM          WRITE CHANGED EXIT MODE
02604  M00S02261.dis     +++| PRS7     LDN    10          SET MASK FOR *JCIW*
02605  M00S02262.dis     +++|          STD    CM+4
02606  M00S02263.dis     +++|          LDN    SCTS        SET *DIS* FLAG IN CPA
02607  M00S02264.dis     +++|          STD    CM+1
02608  M00S02265.dis     +++|          MONITOR  SJCM
02609  M00S02266.dis     +++|*         LDN    0           CLEAR KEYBOARD MESSAGE
02610  M00S02267.dis     +++|          STD    KM
02611  M00S02268.dis     +++|          STD    BA          CLEAR BREAKPOINT
02612  M00S02269.dis     +++|          STD    BA+1
02613  M00S02270.dis     +++|          STD    AI          CLEAR ADVANCE INDEX
02614  M00S02271.dis     +++|          STD    UC          CLEAR UPPER CASE FLAG
02615  M00S02272.dis     +++|          LDC    CH01        SET X-COORDINATE
02616  M00S02273.dis     +++|          STD    XC
02617  M00S02274.dis     +++|          LDN    1RA         SET LEFT SCREEN DISPLAY
02618  M00S02275.dis     +++|          STD    LS
02619  M00S02276.dis     +++|          LDN    1RN
02620  M00S02277.dis     +++|          STD    LN
Line S02278 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
02621  M01S02278.dis8    ---|          LDN    1RJ         SET RIGHT SCREEN DISPLAY
Line S00008 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
02622  M01S00008.dis8    +++|          LDN    1RB         SET RIGHT SCREEN DISPLAY
02623  M00S02279.dis     +++|          STD    RS
02624  M00S02280.dis     +++|          LDC    OVL         SET LOAD ADDRESS
02625  M00S02281.dis     +++|          STD    LA
02626  M00S02282.dis     +++|          LDD    IR+2        SET UPPER CASE CHARACTER
02627  M00S02283.dis     +++|          LPN    77
Line S02284 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
02628  M01S02284.261l700 ---|          RAM    KBIB
Line S00048 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
02629  M01S00048.261l700 +++|          RAM    KBIC
02630  M00S02285.dis     +++|          LDD    IR+3        CHECK CALLING PARAMETER
02631  M00S02286.dis     +++|          SHN    13
02632  M00S02287.dis     +++|          PJN    PRS8        IF NOT AUTO COMMAND PROCESSING
02633  M00S02288.dis     +++|          LDC    CJSA        SET AUTO COMMAND
02634  M00S02289.dis     +++|          STD    KM
02635  M00S02290.dis     +++|          LDD    IR+3        CLEAR CALLING PARAMETER
02636  M00S02291.dis     +++|          LPC    7677
02637  M00S02292.dis     +++|          STD    IR+3
Line S02293 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
02638  M01S02293.261l700 ---| PRS8     LDM    PRS         CALL *9EA* TO COMPLETE PRESET
Line S00049 Modification History
M01 (Added by) 261l700
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02639  M02S00049.283l840 ---| PRS8     LDM    PRS         CALL *9IA* TO COMPLETE PRESET
Line S00001 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02640  M01S00001.283l840 +++|
02641  M01S00002.283l840 +++|*         SET UP DIRECT CELLS.
02642  M01S00003.283l840 +++|
02643  M01S00004.283l840 +++| PRS8     LDN    PPUL        FETCH PP CONFIGURATION
02644  M01S00005.283l840 +++|          CRD    CM
02645  M01S00006.283l840 +++|          LDN    20D         PRESET NUMBER OF PPU,S
02646  M01S00007.283l840 +++|          STD    PN
02647  M01S00008.283l840 +++|          LDD    CM+2
02648  M01S00009.283l840 +++|          SBN    11D
02649  M01S00010.283l840 +++|          PJN    PRS9        IF MORE THAN 10 PP-S
02650  M01S00011.283l840 +++|          LDN    10D         SET 10 PPU,S
02651  M01S00012.283l840 +++|          STD    PN
02652  M01S00013.283l840 +++| PRS9     LDN    PPCP        FETCH PP COMMUNICATION AREA POINTER
02653  M01S00014.283l840 +++|          CRD    CM
02654  M01S00015.283l840 +++|          LDD    CM+4        SET FIRST PP INPUT REGISTER
02655  M01S00016.283l840 +++|          STD    PC          SET PP COMMUNICATION AREA POINTER
02656  M01S00017.283l840 +++|          LDK    MEFL        SET USER EM SHIFT COUNT
02657  M01S00018.283l840 +++|          CRD    CM
02658  M01S00019.283l840 +++|          LDD    CM+2
02659  M01S00020.283l840 +++|          SHN    -11
02660  M01S00021.283l840 +++|          STD    UE
02661  M01S00022.283l840 +++|          LDC    EDBP        GET EXTENDED MEMORY DISPLAY BUFFER POINTER
02662  M01S00023.283l840 +++|          CRD    CM
02663  M01S00024.283l840 +++|          LDD    CM
02664  M01S00025.283l840 +++|          STD    EB
02665  M01S00026.283l840 +++|          LDD    CM+1
02666  M01S00027.283l840 +++|          STD    EB+1
02667  M01S00028.283l840 +++|
02668  M01S00029.283l840 +++|*         CALL *9IA* TO COMPLETE PRESET.
02669  M01S00030.283l840 +++|
02670  M01S00031.283l840 +++|          LDM    PRS         CALL *9IA* TO COMPLETE PRESET
02671  M00S02294.dis     +++|          STM    EXR
Line S02295 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
02672  M01S02295.261l700 ---|          EXECUTE 9EA,*
Line S00050 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
02673  M01S00050.261l700 +++|          EXECUTE 9IA,*
02674  M00S02296.dis     +++|          LJM    EXR+1       LOAD OVERLAY
Line S00032 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02675  M01S00032.283l840 +++|
02676  M00S02297.dis     +++|
02677  M00S02298.dis     +++| PRSC     DATA   C* INCORRECT COMMAND.*
02678  M00S02299.dis     +++|          SPACE  4
02679  M00S02300.dis     +++|**        COMMON DECKS.
02680  M00S02301.dis     +++|
02681  M00S02302.dis     +++|
02682  M00S02303.dis     +++|*CALL     COMPCUA
02683  M00S02304.dis     +++|          QUAL
02684  M00S02305.dis     +++|
02685  M00S02306.dis     +++| IFP      HERE
02686  M00S02307.dis     +++|          QUAL   *
02687  M00S02308.dis     +++|
02688  M00S02309.dis     +++|
02689  M00S02310.dis     +++|          QUAL   *
02690  M00S02311.dis     +++|
02691  M00S02312.dis     +++| PRS      EQU    /PRESET/PRS
02692  M00S02313.dis     +++|          SPACE  4,10
02693  M00S02314.dis     +++|**        DUMP INSTRUCTION MODIFICATION BLOCK.
02694  M00S02315.dis     +++|
02695  M00S02316.dis     +++|
02696  M00S02317.dis     +++|          DIMB
02697  M00S02318.dis     +++|          SPACE  4,10
02698  M00S02319.dis     +++|          OVERFLOW
02699  M00S02320.dis     +++|          DISPLAY (PRESET PROGRAM.)
02700  M00S02321.dis     +++|          SPACE  4,10
02701  M00S02322.dis     +++|***       FINISH PRESETTING *DIS* RESIDENT.
02702  M00S02323.dis     +++|*
02703  M00S02324.dis     +++|*         1.  LOAD SUBROUTINES INTO THE MASS STORAGE DRIVER AREA.
Line S02325 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02704  M01S02325.283l840 ---|*         2.  PRESET DIRECT CELLS.
02705  M01S02326.283l840 ---|*         3.  CLEAR THE KEYBOARD BUFFER.
02706  M01S02327.283l840 ---|*         4.  ISSUE *RCPM* IF THE CONTROL POINT IS IN *I* STATUS.
Line S00033 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02707  M01S00033.283l840 +++|*         2.  CLEAR THE KEYBOARD BUFFER.
02708  M01S00034.283l840 +++|*         3.  ISSUE *RCPM* IF THE CONTROL POINT IS IN *I* STATUS.
02709  M00S02328.dis     +++| PRP      SPACE  4,15
02710  M00S02329.dis     +++|***       PRP - PRESET PROGRAM.
02711  M00S02330.dis     +++|*
02712  M00S02331.dis     +++|*         FINISH PRESETTING *DIS* RESIDENT.
02713  M00S02332.dis     +++|*
02714  M00S02333.dis     +++|*         ENTRY  (T8) .NE. 0 = RESTART CPU PROGRAM WITH *RCPM*.
02715  M00S02334.dis     +++|*
02716  M00S02335.dis     +++|*         USES   T1, CM - CM+4.
02717  M00S02336.dis     +++|*
02718  M00S02337.dis     +++|*         CALLS  CKB, RDS.
02719  M00S02338.dis     +++|*
Line S02339 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02720  M01S02339.242l642 ---|*         MACROS DFIM, DIMB, MDIN, MONITOR.
Line S00009 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02721  M01S00009.242l642 +++|*         MACROS DFIM, DIMB, MDIN, MONITOR, SETMS.
02722  M00S02340.dis     +++|
02723  M00S02341.dis     +++|
02724  M00S02342.dis     +++| PRP      SUBR               ENTRY/EXIT
02725  M00S02343.dis     +++|          LDM    DCTY
02726  M00S02344.dis     +++|          ZJN    PRP1        IF THE CONSOLE IS A *CC545*
02727  M00S02345.dis     +++|          MDIN
02728  M00S02346.dis     +++| PRP1     LDN    0
02729  M00S02347.dis     +++|          STD    T1
02730  M00S02348.dis     +++| PRP2     LDM    PRPA,T1     MOVE CODE TO DRIVER AREA
02731  M00S02349.dis     +++|          STM    MSFW,T1
02732  M00S02350.dis     +++|          AOD    T1
02733  M00S02351.dis     +++|          LMC    PRPAL
02734  M00S02352.dis     +++|          NJN    PRP2        IF NOT END OF MOVE
Line S02353 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02735  M01S02353.242l642 ---|          STM    MSD
Line S00010 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
02736  M01S00010.242l642 +++|          SETMS  NODRIVER    INVALIDATE DRIVER
02737  M00S02354.dis     +++|          LDD    IR+4        CLEAR ROLLOUT/JOB CALL FLAG
02738  M00S02355.dis     +++|          LPC    3777
02739  M00S02356.dis     +++|          STD    IR+4
02740  M00S02357.dis     +++|          LDD    IR+1
02741  M00S02358.dis     +++|          LPN    37          SET CP NUMBER FOR *1DL*
02742  M00S02359.dis     +++|          RAM    LOVB+1
02743  M00S02360.dis     +++|          LDC    PRO         SET ADDRESS TO EXIT TO
02744  M00S02361.dis     +++|          STM    /COMDDSP/ROFA
02745  M00S02362.dis     +++|          RJM    RDS         REQUEST DISPLAY
02746  M00S02363.dis     +++|          RJM    CSB         CLEAR SCREEN BUFFER
Line S02364 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02747  M01S02364.283l840 ---|          LDN    PPUL        FETCH PP CONFIGURATION
02748  M01S02365.283l840 ---|          CRD    CM
02749  M01S02366.283l840 ---|          LDN    20D         PRESET NUMBER OF PPU,S
02750  M01S02367.283l840 ---|          STD    PN
02751  M01S02368.283l840 ---|          LDD    CM+2
02752  M01S02369.283l840 ---|          SBN    11D
02753  M01S02370.283l840 ---|          PJN    PRP3        IF MORE THAN 10 PP-S
02754  M01S02371.283l840 ---|          LDN    10D         SET 10 PPU,S
02755  M01S02372.283l840 ---|          STD    PN
02756  M01S02373.283l840 ---| PRP3     LDN    PPCP        FETCH PP COMMUNICATION AREA POINTER
02757  M01S02374.283l840 ---|          CRD    CM
02758  M01S02375.283l840 ---|          LDD    CM+4        SET FIRST PP INPUT REGISTER
Line S00001 Modification History
M01 (Added by) dis14
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02759  M02S00001.283l840 ---|          STD    PC          SET PP COMMUNICATION AREA POINTER
Line S02376 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02760  M02S02376.283l840 ---|          STD    PC
Line S00005 Modification History
M01 (Added by) 252l678
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02761  M02S00005.283l840 ---|          LDK    MEFL        SET USER EM SHIFT COUNT
02762  M02S00006.283l840 ---|          CRD    CM
02763  M02S00007.283l840 ---|          LDD    CM+2
02764  M02S00008.283l840 ---|          SHN    -11
02765  M02S00009.283l840 ---|          STD    UE
Line S02377 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
02766  M01S02377.283l840 ---|          LDC    EDBP        GET EXTENDED MEMORY DISPLAY BUFFER POINTER
02767  M01S02378.283l840 ---|          CRD    CM
02768  M01S02379.283l840 ---|          LDD    CM
02769  M01S02380.283l840 ---|          STD    EB
02770  M01S02381.283l840 ---|          LDD    CM+1
02771  M01S02382.283l840 ---|          STD    EB+1
02772  M00S02383.dis     +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
02773  M00S02384.dis     +++|          LDN    ZERL        LAST 3 WORDS ALWAYS ZERO
02774  M00S02385.dis     +++|          CRM    KBUF+KBUFL-2,ON
02775  M00S02386.dis     +++|          LDC    CJS         RESET PRESET CALL
02776  M00S02387.dis     +++|          STM    DISD
02777  M00S02388.dis     +++|          LDD    T8
02778  M00S02389.dis     +++|          ZJN    PRP4        IF CP IS NOT IN *I* STATUS
02779  M00S02390.dis     +++|          MONITOR  RCPM
02780  M00S02391.dis     +++| PRP4     LJM    PRPX        RETURN
02781  M00S02392.dis     +++| DFT      SPACE  4
02782  M00S02393.dis     +++|**        DISPLAY FIELD TABLES.
02783  M00S02394.dis     +++|
02784  M00S02395.dis     +++|
02785  M00S02396.dis     +++| PRPA     BSS    0
02786  M00S02397.dis     +++|          QUAL
02787  M00S02398.dis     +++|          LOC    MSFW
02788  M00S02399.dis     +++|          CON    0
02789  M00S02400.dis     +++|
02790  M00S02401.dis     +++| DSAA     CON    0           CURRENT FNT INDEX
02791  M00S02402.dis     +++|          CON    0           NEXT FNT INDEX
02792  M00S02403.dis     +++|
02793  M00S02404.dis     +++|          CON    0
02794  M00S02405.dis     +++| DSCA     CON    0,0
02795  M00S02406.dis     +++|          CON    0,10
02796  M00S02407.dis     +++|          CON    0,20
02797  M00S02408.dis     +++|          CON    0,30
02798  M00S02409.dis     +++|
02799  M00S02410.dis     +++|          CON    0
02800  M00S02411.dis     +++| DSDA     CON    0,0
02801  M00S02412.dis     +++|          CON    0,10
02802  M00S02413.dis     +++|          CON    0,20
02803  M00S02414.dis     +++|          CON    0,30
02804  M00S02415.dis     +++|
02805  M00S02416.dis     +++|
02806  M00S02417.dis     +++|          CON    0
02807  M00S02418.dis     +++| DSFA     CON    0,0
02808  M00S02419.dis     +++|          CON    0,10
02809  M00S02420.dis     +++|          CON    0,20
02810  M00S02421.dis     +++|          CON    0,30
02811  M00S02422.dis     +++|
02812  M00S02423.dis     +++|          CON    0
02813  M00S02424.dis     +++| DSGA     CON    0,0
02814  M00S02425.dis     +++|          CON    0,10
02815  M00S02426.dis     +++|          CON    0,20
02816  M00S02427.dis     +++|          CON    0,30
02817  M00S02428.dis     +++|
02818  M00S02429.dis     +++| DSHA     CON    0
02819  M00S02430.dis     +++|          CON    0
02820  M00S02431.dis     +++|
02821  M00S02432.dis     +++|          CON    0
02822  M00S02433.dis     +++| DSMA     CON    0,0
02823  M00S02434.dis     +++|          CON    0,10
02824  M00S02435.dis     +++|          CON    0,20
02825  M00S02436.dis     +++|          CON    0,30
02826  M00S02437.dis     +++|
02827  M00S02438.dis     +++| DSTA     CON    0
02828  M00S02439.dis     +++| DSUA     CON    0
02829  M00S02440.dis     +++|          CON    100
02830  M00S02441.dis     +++|          CON    400
02831  M00S02442.dis     +++| DSVA     CON    0,0
02832  M00S02443.dis     +++|
02833  M00S02444.dis     +++| TDSL     CON    0,0
02834  M00S02445.dis     +++| LOV      SPACE  4
02835  M00S02446.dis     +++|**        LOV - LOAD OVERLAY.
Line S00118 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02836  M01S00118.271l716 +++|*
02837  M00S02447.dis     +++|*         ENTRY  (A) = BITS 17-12 OVERLAY INDEX.
02838  M00S02448.dis     +++|*                      BITS 11-00 ENTRY ADDRESS.
02839  M00S02449.dis     +++|
02840  M00S02450.dis     +++|
02841  M00S02451.dis     +++| LOV      STM    LOVA        SET ENTRY
02842  M00S02452.dis     +++|          SHN    -14
02843  M00S02453.dis     +++|          ZJN    LOV1        IF RESIDENT
02844  M00S02454.dis     +++|          STD    T0
02845  M00S02455.dis     +++|          SHN    1
02846  M00S02456.dis     +++|          SCN    77
02847  M00S02457.dis     +++|          LMD    T0
02848  M00S02458.dis     +++|          SCN    40
02849  M00S02459.dis     +++|          STD    T0
02850  M00S02460.dis     +++|          SHN    -6
02851  M00S02461.dis     +++|          ADD    T0
Line S02462 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
02852  M01S02462.261l700 ---|          ADC    2L9"OVNB"
Line S00051 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
02853  M01S00051.261l700 +++|          LMC    2L9"OVNB"
02854  M01S00052.261l700 +++|          ERRNZ  2R"OVNG"-2RIH  CODE ASSUMES *9I* AND *9H* OVERLAYS
02855  M00S02463.dis     +++|          STM    LOVB+4
02856  M00S02464.dis     +++|          SHN    -14
02857  M00S02465.dis     +++|          STM    LOVB+3
02858  M00S02466.dis     +++|          SHN    6
02859  M00S02467.dis     +++|          LMM    -5,LA
02860  M00S02468.dis     +++|          SHN    6
02861  M00S02469.dis     +++|          LMM    LOVB+4
02862  M00S02470.dis     +++|          SHN    6
02863  M00S02471.dis     +++|          LMM    -4,LA
02864  M00S02472.dis     +++|          ZJN    LOV1        IF PROGRAM IN CORE
02865  M00S02473.dis     +++|          RJM    LPP         LOAD PP PROGRAM
02866  M00S02474.dis     +++| LOV1     LDN    ZERL        CLEAR ASSEMBLY BUFFER
02867  M00S02475.dis     +++|          CRD    AB
02868  M00S02476.dis     +++|          LDC    KBI5        CLEAR OVERLAY LOAD
02869  M00S02477.dis     +++|          STM    KBIA
02870  M00S02478.dis     +++|          LDC    OVL
02871  M00S02479.dis     +++|          STD    LA
02872  M00S02480.dis     +++|          LDD    CA          (A) = CHARACTER ADDRESS
02873  M00S02481.dis     +++|          LJM    *
02874  M00S02482.dis     +++| LOVA     EQU    *-1
02875  M00S02483.dis     +++|
02876  M00S02484.dis     +++| LOVB     VFD    24/3L1DL,12/CH,24/0
02877  M00S02485.dis     +++| LPP      SPACE  4
02878  M00S02486.dis     +++|**        LPP - LOAD PP PROGRAM.
Line S00119 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02879  M01S00119.271l716 +++|*
02880  M00S02487.dis     +++|*         ENTRY  (LOVB+3 - LOVB+4) = PP PROGRAM NAME.
02881  M00S02488.dis     +++|
02882  M00S02489.dis     +++|
02883  M00S02490.dis     +++| LPP      SUBR               ENTRY/EXIT
02884  M00S02491.dis     +++|          PAUSE  NE          PAUSE FOR STORAGE RELOCATION
02885  M00S02492.dis     +++|          LDD    LA          SET LOAD ADDRESS
02886  M00S02493.dis     +++|          SBN    5
02887  M00S02494.dis     +++|          STM    LPPC
02888  M00S02495.dis     +++|          EXECUTE 1DL,=
02889  M00S02496.dis     +++|          LDD    MA
02890  M00S02497.dis     +++|          CWM    LOVB,ON
02891  M00S02498.dis     +++|          LDN    1           SELECT NO QUEUING OF PP REQUEST
02892  M00S02499.dis     +++|          STD    CM+1
02893  M00S02500.dis     +++|          MONITOR  RPPM      CALL *1DL*
02894  M00S02501.dis     +++|          LDK    WDDC        SET KEYBOARD MESSAGE DELAY
02895  M00S02502.dis     +++|          STM    LPPD
02896  M00S02503.dis     +++|          LDD    CM+1        CHECK CALL
02897  M00S02504.dis     +++|          STM    LPPA
02898  M00S02505.dis     +++|          NJN    LPP1        IF PP AVAILABLE
Line S02506 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02899  M01S02506.271l716 ---|          LDC    INTE        MESSAGE = *PPU BUSY.*
02900  M01S02507.271l716 ---|          LJM    AOL1        ABORT OVERLAY LOAD
Line S00120 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02901  M01S00120.271l716 +++|          LDC    INTE
02902  M01S00121.271l716 +++|          UJN    AOL1        ABORT OVERLAY LOAD
02903  M00S02508.dis     +++|
02904  M00S02509.dis     +++|*         WAIT FOR 1DL.
02905  M00S02510.dis     +++|
02906  M00S02511.dis     +++| LPP1     RJM    KBIA        SET RE-ENTRY
Line S00001 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02907  M01S00001.ns2708  +++|          DFIM   (CON SDCF),*+1
02908  M01S00002.ns2708  +++|          LDC    0
02909  M01S00003.ns2708  +++|          CFNC               CLEAR DISPLAY
02910  M00S02512.dis     +++|          LDC    **          READ PP INPUT REGISTER
02911  M00S02513.dis     +++| LPPA     EQU    *-1
02912  M00S02514.dis     +++|          CRD    CM
02913  M00S02515.dis     +++|          LDD    CM+1        CHECK INPUT REGISTER
02914  M00S02516.dis     +++|          LMM    LOVB+1
02915  M00S02517.dis     +++|          ZJN    LPP2        IF *1DL*
Line S02518 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02916  M01S02518.271l716 ---|          LJM    AOL         ABORT OVERLAY LOAD
Line S00122 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02917  M01S00122.271l716 +++|
02918  M01S00123.271l716 +++|*         AOL - ABORT OVERLAY LOAD.
02919  M01S00124.271l716 +++|
02920  M01S00125.271l716 +++| AOL      LDN    0           CLEAR KEYBOARD MESSAGE
02921  M01S00126.271l716 +++| AOL1     STD    KM
02922  M01S00127.271l716 +++|          LDD    LN          RESET LEFT SCREEN DISPLAY
02923  M01S00128.271l716 +++|          STD    LS
02924  M01S00129.271l716 +++|          LDC    OVL         SET LOAD ADDRESS
02925  M01S00130.271l716 +++|          STD    LA
Line S00004 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02926  M01S00004.ns2708  +++|          DCN    CH+40
02927  M01S00005.ns2708  +++|          CCF    *+2,CH      CLEAR CHANNEL FLAG
Line S00131 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02928  M01S00131.271l716 +++|          LDC    KBI5        CLEAR OVERLAY LOAD
02929  M01S00132.271l716 +++|          STM    KBIA
02930  M01S00133.271l716 +++|          LJM    KBI3        RETURN
02931  M01S00134.271l716 +++|
02932  M00S02519.dis     +++|
02933  M00S02520.dis     +++| LPP2     LDD    CM+2
02934  M00S02521.dis     +++|          LMC    7777
Line S02522 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02935  M01S02522.271l716 ---|          ZJN    LPP3        IF TRANSMISSION READY
Line S00135 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02936  M01S00135.271l716 +++|          ZJN    LPP4        IF TRANSMISSION READY
02937  M00S02523.dis     +++|          SOM    LPPD
02938  M00S02524.dis     +++|          SHN    -14
Line S02525 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02939  M01S02525.271l716 ---|          ZJN    LPP2.1      IF THE DELAY HAS NOT EXPIRED
02940  M01S02526.271l716 ---|          LDC    INTC        MESSAGE = *DISK BUSY.*
02941  M01S02527.271l716 ---| LPP2.1   LJM    KIC         INCOMPLETE ENTRY
Line S00136 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02942  M01S00136.271l716 +++|          ZJN    LPP3        IF THE DELAY HAS NOT EXPIRED
02943  M01S00137.271l716 +++|          LDC    INTC
Line S00138 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02944  M02S00138.ns2708  ---| LPP3     LJM    KIC         INCOMPLETE ENTRY
Line S00006 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02945  M01S00006.ns2708  +++| LPP3     DCN    CH+40
02946  M01S00007.ns2708  +++|          CCF    *+2,CH      CLEAR CHANNEL FLAG
02947  M01S00008.ns2708  +++|          LJM    KIC         INCOMPLETE ENTRY
02948  M00S02528.dis     +++|
02949  M00S02529.dis     +++|*         INPUT OVERLAY.
02950  M00S02530.dis     +++|
Line S02531 Modification History
M01 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02951  M01S02531.ns2708  ---|          DFIM   (CON SDCF),*+1
Line S02532 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02952  M02S02532.ns2708  ---| LPP3     LDC    0
Line S00139 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02953  M02S00139.ns2708  ---| LPP4     LDC    0
Line S02533 Modification History
M01 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02954  M01S02533.ns2708  ---|          CFNC               CLEAR DISPLAY
02955  M01S02534.ns2708  ---|          LDD    TH
Line S00009 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
02956  M01S00009.ns2708  +++| LPP4     LDD    TH
02957  M00S02535.dis     +++|          SBN    1
02958  M00S02536.dis     +++|          NJN    *-1
02959  M00S02537.dis     +++|          DCN    CH+40
02960  M00S02538.dis     +++|*         LDN    0           SET RECEIVE READY
02961  M00S02539.dis     +++|          STD    CM+2
02962  M00S02540.dis     +++|          STD    T1          SET TIMER
02963  M00S02541.dis     +++|          LDM    LPPA
02964  M00S02542.dis     +++|          CWD    CM
02965  M00S02543.dis     +++|          ACN    CH+40
Line S02544 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02966  M01S02544.271l716 ---| LPP4     BSS    0
02967  M01S02545.271l716 ---| LPPB     FJM    LPP5,CH     IF CHANNEL FULL
02968  M01S02546.271l716 ---|          SOD    T1
02969  M01S02547.271l716 ---|          NJN    LPP4
Line S00140 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02970  M01S00140.271l716 +++| LPP5     FJM    LPP6,CH     IF CHANNEL FULL
02971  M01S00141.271l716 +++|          SOD    T1
02972  M01S00142.271l716 +++|          NJN    LPP5        IF NOT TIMED OUT
02973  M00S02548.dis     +++|          DCN    CH+40
02974  M00S02549.dis     +++|          CCF    *+2,CH      CLEAR CHANNEL FLAG
Line S02550 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02975  M01S02550.271l716 ---|          LJM    AOL         ABORT OVERLAY LOAD
02976  M01S02551.271l716 ---|
02977  M01S02552.271l716 ---| LPP5     LCN    0           INPUT OVERLAY
Line S00143 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02978  M01S00143.271l716 +++|*         LDN    0
02979  M01S00144.271l716 +++|          UJP    AOL1        ABORT OVERLAY LOAD
02980  M01S00145.271l716 +++|
02981  M01S00146.271l716 +++| LPP6     LCN    0           INPUT OVERLAY
02982  M01S00147.271l716 +++|          STD    T1
02983  M00S02553.dis     +++|          IAM    OVL,CH
02984  M00S02554.dis     +++| LPPC     EQU    *-1
Line S02555 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02985  M01S02555.271l716 ---|          LCN    0           SET DELAY
02986  M01S02556.271l716 ---|          STD    T1
02987  M01S02557.271l716 ---| LPP6     LDM    LPPA        CHECK INPUT REGISTER
Line S00148 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02988  M01S00148.271l716 +++| LPP7     LDM    LPPA        CHECK INPUT REGISTER
02989  M00S02558.dis     +++|          CRD    CM
02990  M00S02559.dis     +++|          LDD    CM+1
02991  M00S02560.dis     +++|          LMM    LOVB+1
Line S02561 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02992  M01S02561.271l716 ---|          NJN    LPP6.1      IF *1DL* GONE
02993  M01S02562.271l716 ---|          SOD    T1
02994  M01S02563.271l716 ---|          NJN    LPP6        IF DELAY NOT EXPIRED
02995  M01S02564.271l716 ---| LPP6.1   LDD    KM          CHECK MESSAGE
02996  M01S02565.271l716 ---|          LMC    INTC
02997  M01S02566.271l716 ---|          NJN    LPP7        IF NOT *DISK BUSY.*
Line S00149 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02998  M01S00149.271l716 +++|          NJN    LPP8        IF *1DL* GONE
02999  M01S00150.271l716 +++|          SOD    T1
03000  M01S00151.271l716 +++|          NJN    LPP7        IF DELAY NOT EXPIRED
03001  M01S00152.271l716 +++| LPP8     LDD    KM
03002  M01S00153.271l716 +++|          LMC    INTC
03003  M01S00154.271l716 +++|          NJN    LPP9        IF MESSAGE NOT *DISK BUSY.*
03004  M00S02567.dis     +++|*         LDN    0           CLEAR KEYBOARD BUFFER
03005  M00S02568.dis     +++|          STD    KM
Line S02569 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03006  M01S02569.271l716 ---| LPP7     CCF    *+2,CH      CLEAR CHANNEL FLAG
Line S00155 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03007  M01S00155.271l716 +++| LPP9     CCF    *+2,CH      CLEAR CHANNEL FLAG
03008  M00S02570.dis     +++|          LJM    LPPX        RETURN
03009  M00S02571.dis     +++|
03010  M00S02572.dis     +++|
03011  M00S02573.dis     +++| LPPD     CON    WDDC        WAITING FOR DISK DELAY COUNT
03012  M00S02574.dis     +++|
03013  M00S02575.dis     +++|          ERRNG  PPFW-*      IF PP RESIDENT MEMORY OVERFLOW
03014  M00S02576.dis     +++|          LOC    *O
03015  M00S02577.dis     +++|          QUAL   *
03016  M00S02578.dis     +++| PRPAL    EQU    *-PRPA
03017  M00S02579.dis     +++|          SPACE  4,10
03018  M00S02580.dis     +++|**        DUMP INSTRUCTION MODIFICATION BLOCK.
03019  M00S02581.dis     +++|
03020  M00S02582.dis     +++|
03021  M00S02583.dis     +++|          DIMB
03022  M00S02584.dis     +++|          SPACE  4,10
03023  M00S02585.dis     +++|          OVERFLOW  OVD
03024  M00S02586.dis     +++|          TTL    DIS - DISPLAY OVERLAYS.
03025  M00S02587.dis     +++|          DISPLAY (DISPLAY A. - DAYFILE.)
03026  M00S02588.dis     +++| .L       SET    0           RESET *.L* FOR THE DISPLAY OVERLAYS
03027  M00S02589.dis     +++| DSA      SPACE  4
03028  M00S02590.dis     +++|***       *A* DISPLAY.
03029  M00S02591.dis     +++|*
03030  M00S02592.dis     +++|*         DISPLAYS ACCUMULATED DAYFILE MESSAGES FOR JOB.
03031  M00S02593.dis     +++|
03032  M00S02594.dis     +++|
03033  M00S02595.dis     +++| DSA      ENTRY  DSA
03034  M00S02596.dis     +++| DSA      SUBR               ENTRY/EXIT
03035  M00S02597.dis     +++|          DISPHD (DIS A.  JOB DAYFILE.)
03036  M00S02598.dis     +++|          NFA    LFCN        READ NUMBER OF LOCAL FILES
03037  M00S02599.dis     +++|          CRD    T2          (T6) = NUMBER OF LOCAL FILES - 1
03038  M00S02600.dis     +++|
03039  M00S02601.dis     +++|*         NEXT INSTRUCTION IS AN *SBK* BECAUSE THE TAGS ARE IN NFL.
03040  M00S02602.dis     +++|
03041  M00S02603.dis     +++|          SBK    DAPN-LFCN   READ DAYFILE BUFFER POINTERS
03042  M00S02604.dis     +++|          CRD    AB
03043  M00S02605.dis     +++|          ADN    1
03044  M00S02606.dis     +++|          CRD    T1
03045  M00S02607.dis     +++|          ADN    1           READ FILE STATUS
03046  M00S02608.dis     +++|          CRD    CM
03047  M00S02609.dis     +++|          NFA    DAYN        SET ABSOLUTE VALUE OF FIRST
03048  M00S02610.dis     +++|          STD    AB+1
03049  M00S02611.dis     +++|          SHN    -14
03050  M00S02612.dis     +++|          STD    AB
03051  M00S02613.dis     +++|          RJM    SDF         SET DISPLAY FWA
03052  M00S02614.dis     +++|
03053  M00S02615.dis     +++|*         DISPLAY NEXT LINE.
03054  M00S02616.dis     +++|
03055  M00S02617.dis     +++| DSA1     LDN    2           OUTPUT COORDINATES
03056  M00S02618.dis     +++|          OAM    XC,CH
03057  M00S02619.dis     +++| DSA2     LDN    6           SET WORD COUNT PER LINE
03058  M00S02620.dis     +++|          STD    T5
03059  M00S02621.dis     +++| DSA3     SOD    T5
Line S02622 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03060  M01S02622.ns2534  ---|          MJN    DSA8        IF EDGE OF SCREEN
Line S00001 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03061  M01S00001.ns2534  +++|          MJN    DSA6        IF EDGE OF SCREEN
03062  M00S02623.dis     +++|          LDD    AB          DISPLAY NEXT WORD
03063  M00S02624.dis     +++|          LPN    77
03064  M00S02625.dis     +++|          SHN    14
03065  M00S02626.dis     +++|          ADD    AB+1
03066  M00S02627.dis     +++|          ADD    T7
03067  M00S02628.dis     +++|          CRD    CM
03068  M00S02629.dis     +++|          RJM    DWD         DISPLAY WORD
03069  M00S02630.dis     +++|          AOD    T7          UPDATE INDEX
03070  M00S02631.dis     +++|          LMD    T3
Line S02632 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03071  M01S02632.ns2534  ---|          NJN    DSA5        IF NOT AT END OF BUFFER
Line S00002 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03072  M01S00002.ns2534  +++|          NJN    DSA4        IF NOT AT END OF BUFFER
03073  M00S02633.dis     +++|          STD    T7
Line S02634 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03074  M01S02634.ns2534  ---| DSA5     LDD    T7
Line S00003 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03075  M01S00003.ns2534  +++| DSA4     LDD    T7
03076  M00S02635.dis     +++|          LMD    T2
Line S02636 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03077  M01S02636.ns2534  ---|          ZJN    DSA10       IF ALL DATA DISPLAYED
Line S00004 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03078  M01S00004.ns2534  +++|          ZJN    DSA7        IF ALL DATA DISPLAYED
03079  M00S02637.dis     +++|          LDD    CM+4
03080  M00S02638.dis     +++|          NJN    DSA3        IF NOT END OF LINE
03081  M00S02639.dis     +++|          LDD    T5
03082  M00S02640.dis     +++|          LMN    5
Line S02641 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03083  M01S02641.ns2534  ---|          NJN    DSA6        IF NOT FIRST WORD OF LINE
Line S00005 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03084  M01S00005.ns2534  +++|          NJN    DSA5        IF NOT FIRST WORD OF LINE
03085  M00S02642.dis     +++|          LDD    CM
03086  M00S02643.dis     +++|          ZJN    DSA1        IF NULL LINE
Line S02644 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03087  M01S02644.ns2534  ---| DSA6     LCN    YINC        UPDATE Y-COORDINATE
Line S00006 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03088  M01S00006.ns2534  +++| DSA5     LCN    YINC        UPDATE Y-COORDINATE
03089  M00S02645.dis     +++|          RAD    YC
03090  M00S02646.dis     +++|          UJN    DSA1        PROCESS NEXT LINE
03091  M00S02647.dis     +++|
Line S02648 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03092  M01S02648.ns2534  ---| DSA8     LDC    CH11        ADJUST X-COORDINATE FOR SECOND LINE
Line S00007 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03093  M01S00007.ns2534  +++| DSA6     LDC    CH11        ADJUST X-COORDINATE FOR SECOND LINE
03094  M00S02649.dis     +++|          OAN    CH+40
03095  M00S02650.dis     +++|          LCN    YINC        MOVE DOWN ONE LINE
03096  M00S02651.dis     +++|          RAD    YC
03097  M00S02652.dis     +++|          OAN    CH+40
03098  M00S02653.dis     +++|          LJM    DSA2        FINISH CURRENT LINE
Line S02654 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03099  M01S02654.ns2534  ---|
03100  M01S02655.ns2534  ---| DSA9     LJM    DSAX        RETURN
03101  M00S02656.dis     +++|
03102  M00S02657.dis     +++|*         DISPLAY FILES TO END OF SCREEN.
03103  M00S02658.dis     +++|
Line S02659 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03104  M01S02659.ns2534  ---| DSA10    LCN    2*YINC      SET Y-COORDINATE
Line S00008 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03105  M01S00008.ns2534  +++| DSA7     LCN    2*YINC      SET Y-COORDINATE
03106  M00S02660.dis     +++|          ADM    SDFA
03107  M00S02661.dis     +++|          OAN    CH+40
03108  M00S02662.dis     +++|          SBN    YINC
03109  M00S02663.dis     +++|          STD    YC
Line S02664 Modification History
M01 (Removed by) ns2476
Seq #  *Modification Id* Act 
----------------------------+
03110  M01S02664.ns2476  ---|          DISPLA CH01,,(NUMBER   FILE     TYPE   EST   ID   STATUS)
Line S00001 Modification History
M01 (Added by) ns2476
M02 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03111  M02S00001.ns2534  ---|          DISPLA CH02,,(FNT    NAME      TYPE   EST   FS   STATUS)
03112  M00S02665.dis     +++|          LDD    SM
Line S02666 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03113  M01S02666.ns2534  ---|          ZJN    DSA13       IF UNSECURED SYSTEM
03114  M01S02667.ns2534  ---|          DISPLA CH47,,(LEVEL)
Line S00009 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03115  M01S00009.ns2534  +++|          ZJN    DSA8        IF UNSECURED SYSTEM
03116  M01S00010.ns2534  +++|          LDN    DSAB2-DSAB1
03117  M01S00011.ns2534  +++| DSA8     ADN    DSAB1
03118  M01S00012.ns2534  +++|          OAM    DSAB,CH     DISPLAY COLUMN HEADERS
03119  M00S02668.dis     +++|*         LDN    0
Line S02669 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03120  M01S02669.ns2534  ---| DSA13    STM    /COMDDIS/D4SB  CLEAR *. *
Line S00013 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03121  M01S00013.ns2534  +++|          STM    /COMDDIS/D4SB  CLEAR *. *
03122  M00S02670.dis     +++|          STM    /COMDSYS/D6SA
03123  M00S02671.dis     +++|          STM    //DSAA+1    CLEAR NEXT INDEX
03124  M00S02672.dis     +++|          LDM    //DSAA      SET CURRENT INDEX
03125  M00S02673.dis     +++|          STD    T7
03126  M00S02674.dis     +++|          SHN    1
03127  M00S02675.dis     +++|          ADD    T7
03128  M00S02676.dis     +++|          STD    T1
03129  M00S02677.dis     +++|          LDC    FNTN-LENF
03130  M00S02678.dis     +++|          ADD    T1
03131  M00S02679.dis     +++|          STD    FA
Line S02680 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03132  M01S02680.ns2534  ---| DSA13.1  LDN    LENF        ADVANCE FNT ADDRESS
Line S00014 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03133  M01S00014.ns2534  +++| DSA9     LDN    LENF        ADVANCE FNT ADDRESS
03134  M00S02681.dis     +++|          RAD    FA
03135  M00S02682.dis     +++|          SBD    NL
Line S02683 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03136  M01S02683.ns2534  ---|          PJN    DSA14.0     IF END OF LOCAL FNT
Line S00015 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03137  M01S00015.ns2534  +++|          PJN    DSA10       IF END OF LOCAL FNT
03138  M00S02684.dis     +++|          AOD    T7          ADVANCE FILE ORDINAL
03139  M00S02685.dis     +++|          NFA    FA,R        READ FNT ENTRY
03140  M00S02686.dis     +++|          CRD    CM
03141  M00S02687.dis     +++|          LDD    CM
Line S02688 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03142  M01S02688.ns2534  ---|          ZJN    DSA13.1     IF EMPTY ENTRY
Line S00016 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03143  M01S00016.ns2534  +++|          ZJN    DSA9        IF EMPTY ENTRY
03144  M00S02689.dis     +++|          LDC    CH01        OUTPUT X-COORDINATE
03145  M00S02690.dis     +++|          OAN    CH+40
03146  M00S02691.dis     +++|          LCN    YINC        DECREMENT Y-COORDINATE
03147  M00S02692.dis     +++|          RAD    YC
03148  M00S02693.dis     +++|          OAN    CH+40       OUTPUT Y-COORDINATE
03149  M00S02694.dis     +++|          SBM    CBOS
Line S02695 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03150  M01S02695.ns2534  ---|          PJN    DSA14.1     IF NOT BOTTOM OF SCREEN
Line S00017 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03151  M01S00017.ns2534  +++|          PJN    DSA11       IF NOT BOTTOM OF SCREEN
03152  M00S02696.dis     +++|          LDN    MOREL
03153  M00S02697.dis     +++|          OAM    MORE,CH     DISPLAY *MORE*
03154  M00S02698.dis     +++|          SOD    T7          SET NEXT INDEX
03155  M00S02699.dis     +++|          STM    //DSAA+1
Line S02700 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03156  M01S02700.ns2534  ---| DSA14.0  LDC    2R.         RESTORE *. *
Line S00018 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03157  M01S00018.ns2534  +++| DSA10    LDC    2R.         RESTORE *. *
03158  M00S02701.dis     +++|          STM    /COMDDIS/D4SB
03159  M00S02702.dis     +++|          STM    /COMDSYS/D6SA
03160  M00S02703.dis     +++|          LJM    DSAX        RETURN
03161  M00S02704.dis     +++|
Line S02705 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03162  M01S02705.ns2534  ---| DSA14.1  LDD    T7          DISPLAY NUMBER
Line S00019 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03163  M01S00019.ns2534  +++| DSA11    LDD    T7          DISPLAY NUMBER
03164  M00S02706.dis     +++|          SBN    1
03165  M00S02707.dis     +++|          RJM    D4S
Line S02708 Modification History
M01 (Removed by) ns2476
Seq #  *Modification Id* Act 
----------------------------+
03166  M01S02708.ns2476  ---|          LDC    CH09        OUTPUT X-COORDINATE
03167  M01S02709.ns2476  ---|          OAN    CH+40
Line S00002 Modification History
M01 (Added by) ns2476
Seq #  *Modification Id* Act 
----------------------------+
03168  M01S00002.ns2476  +++|          LDN    0           SKIP TWO SPACES
03169  M01S00003.ns2476  +++|          OAN    CH+40
03170  M00S02710.dis     +++|          LDN    3           DISPLAY NAME
03171  M00S02711.dis     +++|          OAM    CM,CH
03172  M00S02712.dis     +++|          LDD    CM+3
03173  M00S02713.dis     +++|          SCN    77
03174  M00S02714.dis     +++|          OAN    CH+40
Line S02715 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03175  M01S02715.ns2534  ---|          LDC    CH20        OUTPUT X-COORDINATE
Line S00020 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03176  M01S00020.ns2534  +++|          LDC    CH18        OUTPUT X-COORDINATE
03177  M00S02716.dis     +++|          OAN    CH+40
03178  M00S02717.dis     +++|          LDD    CM+4        INDEX = TYPE
03179  M00S02718.dis     +++|          SHN    14
03180  M00S02719.dis     +++|          STD    T1
03181  M00S02720.dis     +++|          SHN    -14
Line S02721 Modification History
M01 (Removed by) dis10
Seq #  *Modification Id* Act 
----------------------------+
03182  M01S02721.dis10   ---|          LPN    7
Line S00001 Modification History
M01 (Added by) dis10
M02 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03183  M02S00001.ns2534  ---|          LPN    77
Line S02722 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03184  M01S02722.ns2534  ---|          STD    T2
Line S00021 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03185  M01S00021.ns2534  +++|          STD    T9
03186  M00S02723.dis     +++|          LDM    TFNT,T1     DISPLAY TYPE
03187  M00S02724.dis     +++|          OAN    CH+40
03188  M00S02725.dis     +++|          LDD    CM+3        EXTRACT LOCK BIT
03189  M00S02726.dis     +++|          LPN    1
Line S02727 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03190  M01S02727.ns2534  ---|          ZJN    DSA14.2     IF NOT LOCKED
Line S00022 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03191  M01S00022.ns2534  +++|          ZJN    DSA12       IF NOT LOCKED
03192  M00S02728.dis     +++|          LDC    2R*
Line S02729 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03193  M01S02729.ns2534  ---| DSA14.2  OAN    CH+40       DISPLAY (*) FOR LOCK
Line S00023 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03194  M01S00023.ns2534  +++| DSA12    OAN    CH+40       DISPLAY (*) FOR LOCK
03195  M00S02730.dis     +++|          NFA    FA,R        READ FST INFORMATION
03196  M00S02731.dis     +++|          ADN    FSTL
03197  M00S02732.dis     +++|          CRD    CM
03198  M00S02733.dis     +++|          ADN    FUTL-FSTL   READ FUT INFORMATION
03199  M00S02734.dis     +++|          CRD    AB
Line S02735 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03200  M01S02735.ns2534  ---|          LDC    CH25        POSITION X-COORDINATE
03201  M01S02736.ns2534  ---|          OAN    CH+40
03202  M00S02737.dis     +++|          LDD    CM          DISPLAY EQUIPMENT
03203  M00S02738.dis     +++|          RJM    D4S
Line S02739 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03204  M01S02739.ns2534  ---|          LDC    CH32        OUTPUT X-COORDINATE
Line S00024 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03205  M01S00024.ns2534  +++|          SFA    EST,CM
03206  M01S00025.ns2534  +++|          ADK    EQDE
03207  M01S00026.ns2534  +++|          CRD    T1
03208  M01S00027.ns2534  +++|          LDD    T1
03209  M01S00028.ns2534  +++|          SHN    21-13
03210  M01S00029.ns2534  +++|          PJN    DSA13       IF NOT MASS STORAGE DEVICE
03211  M01S00030.ns2534  +++|          LDD    CM+1        DISPLAY FIRST TRACK
03212  M01S00031.ns2534  +++|          RJM    D4S
03213  M01S00032.ns2534  +++| DSA13    LDC    CH35        OUTPUT X-COORDINATE
03214  M00S02740.dis     +++|          OAN    CH+40
Line S02741 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03215  M01S02741.ns2534  ---|          LDM    TSID,T2     DISPLAY ID STATUS
Line S00033 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03216  M01S00033.ns2534  +++|          LDM    TSID,T9     DISPLAY ID STATUS
03217  M00S02742.dis     +++|          OAN    CH+40
Line S02743 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03218  M01S02743.ns2534  ---|          LDC    CH36        OUTPUT X-COORDINATE
Line S00034 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03219  M01S00034.ns2534  +++|          LDN    0
03220  M00S02744.dis     +++|          OAN    CH+40
03221  M00S02745.dis     +++|          LDD    CM+4        DISPLAY STATUS
03222  M00S02746.dis     +++|          RJM    D6S
03223  M00S02747.dis     +++|          LDD    SM
Line S02748 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03224  M01S02748.ns2534  ---|          ZJN    DSA15       IF UNSECURED SYSTEM
03225  M01S02749.ns2534  ---|          LDC    CH46        OUTPUT X-COORDINATE
Line S00035 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03226  M01S00035.ns2534  +++|          ZJN    DSA14       IF UNSECURED SYSTEM
03227  M01S00036.ns2534  +++|          LDN    0
03228  M00S02750.dis     +++|          OAN    CH+40
03229  M00S02751.dis     +++|          LDD    AB+2        GET FILE ACCESS LEVEL
03230  M00S02752.dis     +++|          LPN    7
03231  M00S02753.dis     +++|          RJM    DAL         DISPLAY FILE ACCESS LEVEL
Line S02754 Modification History
M01 (Removed by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03232  M01S02754.ns2534  ---| DSA15    LJM    DSA13.1     DISPLAY NEXT FILE
Line S00037 Modification History
M01 (Added by) ns2534
Seq #  *Modification Id* Act 
----------------------------+
03233  M01S00037.ns2534  +++| DSA14    LJM    DSA9        DISPLAY NEXT FILE
03234  M01S00038.ns2534  +++|
03235  M01S00039.ns2534  +++|
03236  M01S00040.ns2534  +++| DSAB     CON    CH02
03237  M01S00041.ns2534  +++|          DATA   4HFNT
03238  M01S00042.ns2534  +++|          CON    CH09
03239  M01S00043.ns2534  +++|          DATA   4HNAME
03240  M01S00044.ns2534  +++|          CON    CH17
03241  M01S00045.ns2534  +++|          DATA   30HTYPE  EST  TRACK  FS   STATUS
03242  M01S00046.ns2534  +++| DSAB1    EQU    *-DSAB
03243  M01S00047.ns2534  +++|          CON    CH49
03244  M01S00048.ns2534  +++|          DATA   6HLEVEL
03245  M01S00049.ns2534  +++| DSAB2    EQU    *-DSAB
03246  M00S02755.dis     +++| TSID     SPACE  4,10
03247  M00S02756.dis     +++|**        TSID - TABLE OF STATUS VALUE-ID CODE CORRESPONDENCES.
03248  M00S02757.dis     +++|
03249  M00S02758.dis     +++|
03250  M00S02759.dis     +++| TSID     INDEX
03251  M00S02760.dis     +++|          INDEX  UPST,2RUP   USER FILE PRIVACY
03252  M00S02761.dis     +++|          INDEX  SSST,2RSS   SPECIAL SYSTEM JOB FILE
03253  M00S02762.dis     +++|          INDEX  CBST,2RCB   CB CHECKPOINT FILE
03254  M00S02763.dis     +++|          INDEX  CKST,2RCK   CK CHECKPOINT FILE
03255  M00S02764.dis     +++|          INDEX  SOST,2RSO   SPECIAL OUTPUT FILE
03256  M00S02765.dis     +++|          INDEX  AAST,2RAA   APPLICATION ACCOUNTING FILE
03257  M00S02766.dis     +++|          INDEX  NDST,2RND   NO DROP FILE
03258  M00S02767.dis     +++|          INDEX  MXST        END OF TABLE
03259  M00S02768.dis     +++| SDF      SPACE  4,25
03260  M00S02769.dis     +++|**        SDF - SET DISPLAY FWA.
03261  M00S02770.dis     +++|*
03262  M00S02771.dis     +++|*         ENTRY  (AB - AB+4) = FIRST WORD OF DAYFILE BUFFER POINTERS.
03263  M00S02772.dis     +++|*                (T1 - T1+4) = SECOND WORD OF DAYFILE BUFFER POINTERS.
03264  M00S02773.dis     +++|*                (CM - CM+4) = THIRD WORD OF DAYFILE BUFFER POINTERS.
03265  M00S02774.dis     +++|*
03266  M00S02775.dis     +++|*         EXIT   (T2) = *IN*.
03267  M00S02776.dis     +++|*                (T7) = POINTER WITHIN BUFFER TO FIRST LINE OF DISPLAY.
03268  M00S02777.dis     +++|*                (YC) = (*CTOS*).
03269  M00S02778.dis     +++|*                TO *DSAX* IF THE DAYFILE BUFFER IS EMPTY.
03270  M00S02779.dis     +++|*
03271  M00S02780.dis     +++|*         USES   AB+2, T2, T4, T7, T8, T9, CM - CM+4.
03272  M00S02781.dis     +++|*
03273  M00S02782.dis     +++|*         NOTE - *SDF* USES THE FOLLOWING BYTES FROM THE DAYFILE BUFFER
03274  M00S02783.dis     +++|*         POINTER WORDS.
03275  M00S02784.dis     +++|*
03276  M00S02785.dis     +++|*                (AB - AB+1) = FWA OF BUFFER.
03277  M00S02786.dis     +++|*                (AB+4) = *IN*.
03278  M00S02787.dis     +++|*                (T1+2) = *LIMIT*.
03279  M00S02788.dis     +++|*                (T1+4) = *OUT*.
03280  M00S02789.dis     +++|*                (CM+1) = FIRST TRACK OF DAYFILE FILE.
03281  M00S02790.dis     +++|*                (CM+2) = CURRENT TRACK OF DAYFILE FILE.
03282  M00S02791.dis     +++|*                (CM+3) = CURRENT SECTOR OF DAYFILE FILE.
03283  M00S02792.dis     +++|
03284  M00S02793.dis     +++|
03285  M00S02794.dis     +++| SDF      SUBR               ENTRY/EXIT
03286  M00S02795.dis     +++|          LDD    AB+4        START DISPLAY AT *IN*
03287  M00S02796.dis     +++|          STD    T4
03288  M00S02797.dis     +++|          STD    T7
03289  M00S02798.dis     +++|          STD    T2          SAVE *IN*
03290  M00S02799.dis     +++|          LDD    CM+1        COMPARE CURRENT TRACK AND FIRST TRACK
03291  M00S02800.dis     +++|          LMD    CM+2
03292  M00S02801.dis     +++|          NJN    SDF1        IF BUFFER DUMPED
03293  M00S02802.dis     +++|          LDD    CM+3        COMPARE CURRENT SECTOR TO SYSTEM SECTOR
03294  M00S02803.dis     +++|          SBN    FSMS+1
03295  M00S02804.dis     +++|          PJN    SDF1        IF BUFFER DUMPED
03296  M00S02805.dis     +++|          LDD    T1+4        START DISPLAY AT *OUT*
03297  M00S02806.dis     +++|          STD    T4
03298  M00S02807.dis     +++|          LMD    AB+4
03299  M00S02808.dis     +++|          NJN    SDF1        IF *OUT* .NE. *IN*
03300  M00S02809.dis     +++|          LJM    DSAX        EXIT
03301  M00S02810.dis     +++|
03302  M00S02811.dis     +++| SDF1     LDM    CTOS        SET Y-COORDINATE
03303  M00S02812.dis     +++|          STD    YC
03304  M00S02813.dis     +++|          STD    T9          INITIALIZE LINE COUNTER
03305  M00S02814.dis     +++|          LDM    DCTY        DETERMINE LAST LINE OF DAYFILE
03306  M00S02815.dis     +++|          ZJN    SDF1.1      IF *CC545*
03307  M00S02816.dis     +++|          LDK    9D*YINC
03308  M00S02817.dis     +++| SDF1.1   SBK    21D*YINC
03309  M00S02818.dis     +++|          ADD    YC
03310  M00S02819.dis     +++|          STM    SDFA        SET LAST LINE OF DAYFILE
03311  M00S02820.dis     +++|          LDN    0
03312  M00S02821.dis     +++| SDF2     STD    T8          INITIALIZE LINE LENGTH COUNTER
03313  M00S02822.dis     +++|          STD    AB+2        SAVE INITIAL VALUE
03314  M00S02823.dis     +++| SDF2.1   SOD    T7          DECREMENT POINTER
03315  M00S02824.dis     +++|          PJN    SDF3        IF POINTER .GE. *FIRST*
03316  M00S02825.dis     +++|          ADD    T1+2        POINTER = *LIMIT* - 1
03317  M00S02826.dis     +++|          STD    T7
03318  M00S02827.dis     +++| SDF3     SBD    T4
03319  M00S02828.dis     +++|          NJN    SDF3.1      IF NOT BACK TO START OF DISPLAY
03320  M00S02829.dis     +++|          LJM    SDFX        RETURN
03321  M00S02830.dis     +++|
03322  M00S02831.dis     +++| SDF3.1   LDD    AB          READ WORD FROM BUFFER
03323  M00S02832.dis     +++|          SHN    14
03324  M00S02833.dis     +++|          LMD    AB+1
03325  M00S02834.dis     +++|          ADD    T7
03326  M00S02835.dis     +++|          CRD    CM
03327  M00S02836.dis     +++|          AOD    T8          INCREMENT LINE LENGTH COUNTER
03328  M00S02837.dis     +++|          LDD    CM+4
03329  M00S02838.dis     +++|          NJN    SDF2.1      IF NOT END OF LINE
03330  M00S02839.dis     +++|          LDD    T8
03331  M00S02840.dis     +++|          SHN    -1
03332  M00S02841.dis     +++|          NJN    SDF5        IF NOT NULL LINE
03333  M00S02842.dis     +++| SDF4     LDD    CM
03334  M00S02843.dis     +++|          ZJN    SDF2        IF NULL WORD
03335  M00S02844.dis     +++|          LDN    1
03336  M00S02845.dis     +++|          UJN    SDF2        FIND NEXT LINE
03337  M00S02846.dis     +++|
03338  M00S02847.dis     +++| SDF5     SHN    -2
03339  M00S02848.dis     +++|          ZJN    SDF6        IF LINE WAS SIX OR LESS WORDS LONG
03340  M00S02849.dis     +++|          LCN    YINC
03341  M00S02850.dis     +++| SDF6     SBN    YINC
03342  M00S02851.dis     +++|          RAD    T9          UPDATE LINE COUNT
03343  M00S02852.dis     +++|          SBM    SDFA
03344  M00S02853.dis     +++|          ZJN    SDF7        IF EXACTLY AT THE BOTTOM LINE
03345  M00S02854.dis     +++|          PJN    SDF4        IF NOT AT THE BOTTOM LINE YET
03346  M00S02855.dis     +++|          LDD    T8          GO BACK TO THE NEXT LINE
03347  M00S02856.dis     +++|          SBD    AB+2        SKIP PAST NULL WORD IF NECESSARY
03348  M00S02857.dis     +++| SDF7     ADN    1
03349  M00S02858.dis     +++|          RAD    T7
03350  M00S02859.dis     +++|          SBD    T1+2
03351  M00S02860.dis     +++|          MJN    SDF8        IF POINTER .LT. *LIMIT*
03352  M00S02861.dis     +++|          STD    T7
03353  M00S02862.dis     +++| SDF8     LJM    SDFX        RETURN
03354  M00S02863.dis     +++|
03355  M00S02864.dis     +++| SDFA     CON    T545-21D*YINC  BOTTOM LINE FOR THE DAYFILE
Line S02865 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03356  M01S02865.dis8    ---|          DISPLAY (DISPLAY B. - EXCHANGE PACKAGE.)
Line S00009 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03357  M01S00009.dis8    +++|          DISPLAY (DISPLAY X. - EXCHANGE PACKAGE.)
03358  M00S02866.dis     +++| DSB      SPACE  4,10
Line S02867 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03359  M01S02867.dis8    ---|***       *B* DISPLAY.
Line S00010 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03360  M01S00010.dis8    +++|***       *X* DISPLAY.
03361  M00S02868.dis     +++|*
03362  M00S02869.dis     +++|*         DISPLAY OF THE BREAKPOINT ADDRESS LINE AND
03363  M00S02870.dis     +++|*         EXCHANGE PACKAGE WHEN THE CPU IS NOT ACTIVE.
03364  M00S02871.dis     +++|
03365  M00S02872.dis     +++|
Line S02873 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03366  M01S02873.dis8    ---| DSB      ENTRY  DSB
03367  M01S02874.dis8    ---| DSB      SUBR               ENTRY/EXIT
03368  M01S02875.dis8    ---|          DISPHD (DIS B.  EXCHANGE PACKAGE.)
Line S00011 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03369  M01S00011.dis8    +++| DSX      ENTRY  DSX
03370  M01S00012.dis8    +++| DSX      SUBR               ENTRY/EXIT
03371  M01S00013.dis8    +++|          DISPHD (DIS X.  EXCHANGE PACKAGE.)
03372  M00S02876.dis     +++|
03373  M00S02877.dis     +++|*         DISPLAY BREAKPOINT ADDRESS LINE.
03374  M00S02878.dis     +++|
03375  M00S02879.dis     +++|          LDD    BA          CHECK BREAKPOINT ADDRESS
03376  M00S02880.dis     +++|          ADD    BA+1
Line S02881 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03377  M01S02881.dis8    ---|          ZJN    DSB1        IF NOT SET
Line S00014 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03378  M01S00014.dis8    +++|          ZJN    DSX1        IF NOT SET
03379  M00S02882.dis     +++|          DISPLA CH06,LN06,(BKP = )
03380  M00S02883.dis     +++|          LDD    BA          DISPLAY BREAKPOINT ADDRESS
03381  M00S02884.dis     +++|          SHN    14
03382  M00S02885.dis     +++|          LMD    BA+1
03383  M00S02886.dis     +++|          RJM    D6S
03384  M00S02887.dis     +++|
03385  M00S02888.dis     +++|*         DISPLAY EXCHANGE PACKAGE.
03386  M00S02889.dis     +++|
Line S02890 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03387  M01S02890.dis8    ---| DSB1     LDD    CP          GET CPU STATUS
Line S00015 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03388  M01S00015.dis8    +++| DSX1     LDD    CP          GET CPU STATUS
03389  M00S02891.dis     +++|          ADN    STSW
03390  M00S02892.dis     +++|          CRD    CM
03391  M00S02893.dis     +++|          LDD    CM
03392  M00S02894.dis     +++|          SHN    -11
03393  M00S02895.dis     +++|          LMN    1RA
Line S02896 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03394  M01S02896.dis8    ---|          ZJN    DSBX        IF JOB ACTIVE IN CPU 0
Line S00016 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03395  M01S00016.dis8    +++|          ZJN    DSXX        IF JOB ACTIVE IN CPU 0
03396  M00S02897.dis     +++|          LMN    1RB&1RA
Line S02898 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03397  M01S02898.dis8    ---|          ZJN    DSBX        IF JOB ACTIVE IN CPU 1
Line S00017 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03398  M01S00017.dis8    +++|          ZJN    DSXX        IF JOB ACTIVE IN CPU 1
03399  M00S02899.dis     +++|          LDC    LN08        SET Y-COORDINATE
03400  M00S02900.dis     +++|          STD    YC
03401  M00S02901.dis     +++|          LDN    0           CLEAR  *. *
03402  M00S02902.dis     +++|          STM    /COMDSYS/D6SA
03403  M00S02903.dis     +++|          STD    T7          CLEAR EXCHANGE REGISTER INDEX
03404  M00S02904.dis     +++|          LDM    CMEF
Line S02905 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03405  M01S02905.dis8    ---|          NJN    DSB2        IF NOT CYBER 176 MAINFRAME
Line S00018 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03406  M01S00018.dis8    +++|          NJN    DSX2        IF NOT CYBER 176 MAINFRAME
03407  M00S02906.dis     +++|          LDC    2RPS        SET *PSD* REGISTER NAME
Line S02907 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03408  M01S02907.dis8    ---|          STM    DSBBA
Line S00019 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03409  M01S00019.dis8    +++|          STM    DSXBA
03410  M00S02908.dis     +++|          LDC    2RD
Line S02909 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03411  M01S02909.dis8    ---|          STM    DSBCA
03412  M01S02910.dis8    ---|
03413  M01S02911.dis8    ---| DSB2     LDD    YC          OUTPUT Y-COORDINATE
Line S00020 Modification History
M01 (Added by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03414  M01S00020.dis8    +++|          STM    DSXCA
03415  M01S00021.dis8    +++| DSX2     LDD    YC          OUTPUT Y-COORDINATE
03416  M00S02912.dis     +++|          OAN    CH+40
03417  M00S02913.dis     +++|          LDC    CH06        OUTPUT X-COORDINATE
03418  M00S02914.dis     +++|          OAN    CH+40
03419  M00S02915.dis     +++|          LDD    CP
03420  M00S02916.dis     +++|          ADD    T7
03421  M00S02917.dis     +++|          CRD    CM
03422  M00S02918.dis     +++|          LPN    17
03423  M00S02919.dis     +++|          SBN    10
Line S02920 Modification History
M01 (Removed by) dis8
Seq #  *Modification Id* Act 
----------------------------+
03424  M01S02920.dis8    ---|          MJN    DSB3        IF NOT *X* REGISTER
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/dis.001.txt ยท Last modified: (external edit)