Deck O26

26 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.o26     +++|          IDENT  O26,O26
00002  M01S00002.o26     +++|          PERIPH
00003  M01S00003.o26     +++|          BASE   MIXED
00004  M01S00004.o26     +++|          SST    MDC,RDS
00005  M01S00005.o26     +++|*COMMENT  O26 - CONSOLE TEXT EDITOR.
Line S00006 Modification History
M01 (Added by) o26
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.o26     +++|          TITLE  O26 - CONSOLE TEXT EDITOR.
00009  M01S00008.o26     +++| O26      SPACE  4,10
00010  M01S00009.o26     +++|***       O26 - CONSOLE TEXT EDITOR.
00011  M01S00010.o26     +++|*         D. A. CAHLANDER.   70/05/05.
00012  M01S00011.o26     +++|*         G. R. MANSFIELD.   70/10/25.
00013  M01S00012.o26     +++|*         D. A. CAHLANDER.   71/06/05.
00014  M01S00013.o26     +++|*         A. D. FORET.       74/12/05.
00015  M01S00001.241l630 +++|*         P. D. HAAS.        84/02/08.
00016  M01S00014.o26     +++| DOC      SPACE  4,10
00017  M01S00015.o26     +++|***              O26 PROVIDES THE CAPABILITY TO CREATE AND EDIT A FILE
00018  M01S00016.o26     +++|*         FROM THE 6612 CONSOLE.  A CM BUFFER IS USED TO STORE AND
00019  M01S00017.o26     +++|*         EDIT THE BCD LINES BEFORE WRITING THE FILE.  THE CM
00020  M01S00018.o26     +++|*         BUFFER SIZE = FL - 140, AND ALL LINES OF A FILE MUST FIT
00021  M01S00019.o26     +++|*         IN THE BUFFER.
00022  M01S00020.o26     +++| OPERATOR SPACE  4,10
00023  M01S00021.o26     +++|***       OPERATOR MESSAGES.
00024  M01S00022.o26     +++|*
00025  M01S00023.o26     +++|*
00026  M01S00024.o26     +++|*         *REQUEST DISPLAY.  (O26)* = O26 IS WAITING FOR THE DISPLAY
00027  M01S00025.o26     +++|*         TO BE ASSIGNED.
00028  M01S00026.o26     +++|          TITLE  DIRECT CELL ALLOCATIONS AND ASSEMBLY CONSTANTS.
00029  M01S00027.o26     +++| DIRECT   SPACE  4,20
00030  M01S00028.o26     +++|****      DIRECT LOCATION ASSIGNMENTS.
00031  M01S00029.o26     +++|
00032  M01S00030.o26     +++|
00033  M01S00002.241l630 +++| LL       EQU    15          LAST LINE POSITION STATUS
00034  M01S00003.241l630 +++| DA       EQU    16 - 17     DISPLAY ADDRESS
00035  M01S00031.o26     +++| AB       EQU    20 - 24     ASSEMBLY BUFFER (5 LOCATIONS)
00036  M01S00032.o26     +++| CA       EQU    25          CHARACTER ADDRESS
00037  M01S00033.o26     +++| XC       EQU    26          X-COORDINATE
00038  M01S00034.o26     +++| YC       EQU    27          Y-COORDINATE
00039  M01S00035.o26     +++| KE       EQU    30          KEYBOARD ENTRY
00040  M01S00036.o26     +++| KI       EQU    31          KEYBOARD INDEX
00041  M01S00037.o26     +++| KM       EQU    32          KEYBOARD MESSAGE
Line S00038 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00038.241l630 ---| FR       EQU    33          CONSTANT 40
Line S00039 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00039.241l630 ---| CC       EQU    34          DISPLAY CYCLE COUNT
00044  M01S00004.241l630 +++| KP       EQU    33          KEYBOARD PREVIOUS STATUS
00045  M01S00005.241l630 +++| DR       EQU    34          DISPLAY REFRESH STATUS
00046  M01S00040.o26     +++| LC       EQU    35          CHARACTER COUNT OF LINE
00047  M01S00041.o26     +++|
00048  M01S00042.o26     +++|*         MAINTAIN FOLLOWING ORDER.
00049  M01S00043.o26     +++|
00050  M01S00044.o26     +++| SI       EQU    36          SCAN INDEX
00051  M01S00045.o26     +++| UC       EQU    37          UPPER CASE FLAG
00052  M01S00046.o26     +++| IP       EQU    40 - 41     INSERT POSITION (2 LOCATIONS)
00053  M01S00047.o26     +++| HF       EQU    42          HOLD FLAG
00054  M01S00048.o26     +++|
00055  M01S00049.o26     +++| IF       EQU    43          INSERT FLAG
00056  M01S00050.o26     +++| DL       EQU    44          DISPLAY LENGTH
Line S00051 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00051.241l630 ---| NC       EQU    45          NUMBER OF CP-S (FOR *COMDSYS*)
00058  M01S00006.241l630 +++| KD       EQU    45          KEYBOARD BUFFER DISPLAY STATUS
00059  M01S00052.o26     +++| SF       EQU    46          SCAN FLAG
00060  M01S00053.o26     +++| SC       EQU    47          SCAN NUMBER
00061  M01S00054.o26     +++|
00062  M01S00055.o26     +++| IO       EQU    57          I/O BUSY FLAG
00063  M01S00056.o26     +++| FT       EQU    60 - 61     FIRST ADDRESS OF BUFFER (2 LOCATIONS)
00064  M01S00057.o26     +++| IN       EQU    62 - 63     NEXT INPUT ADDRESS (2 LOCATIONS)
00065  M01S00058.o26     +++| OT       EQU    64 - 65     NEXT OUTPUT ADDRESS (2 LOCATIONS)
00066  M01S00059.o26     +++| LM       EQU    66 - 67     LIMIT ADDRESS OF BUFFER (2 LOCATIONS)
00067  M01S00060.o26     +++|****
00068  M01S00061.o26     +++| ASSEMBLY SPACE  4,10
00069  M01S00062.o26     +++|**        ASSEMBLY CONSTANTS.
00070  M01S00063.o26     +++|
00071  M01S00064.o26     +++|
00072  M01S00065.o26     +++| CH       EQU    CHDS        DISPLAY CHANNEL
00073  M01S00066.o26     +++| FET      EQU    10          ADDRESS OF FILE FET
00074  M01S00067.o26     +++| FETL     EQU    10          FET LENGTH
00075  M01S00068.o26     +++| SBUF     EQU    FET+FETL    ADDRESS OF CM SYNTAX BUFFER
00076  M01S00069.o26     +++|          TITLE  OVERLAY CONTROL AND MACRO DEFNITIONS.
00077  M01S00070.o26     +++| OVL      SPACE  4,20
00078  M01S00071.o26     +++|**        OVERLAY CONTROL.
00079  M01S00072.o26     +++|
00080  M01S00073.o26     +++|
00081  M01S00074.o26     +++| NAME     MICRO  1,, O26
Line S00075 Modification History
M01 (Added by) o26
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00075.261l700 ---| OVNG     MICRO  1,, GH      OVERLAY NUMBER GENERATOR
00083  M01S00001.261l700 +++| OVNG     MICRO  1,, OP      OVERLAY NUMBER GENERATOR
00084  M01S00076.o26     +++| OVNB     MICRO  1,1, "OVNG" OVERLAY NAME BIAS MICRO
00085  M01S00077.o26     +++| OVNB     EQU    1R"OVNB"    OVERLAY NAME BIAS
00086  M01S00078.o26     +++|          NOREF  .L,.N
00087  M01S00079.o26     +++| .N       SET    0           OVERLAY NUMBER
00088  M01S00080.o26     +++| .N       MICRO  1,,
00089  M01S00081.o26     +++| .L       SET    *
00090  M01S00082.o26     +++| COMCMAC  SPACE  4,15
00091  M01S00083.o26     +++|*         MACRO DEFINITIONS AND INSTRUCTION CONSTANTS.
00092  M01S00084.o26     +++|
00093  M01S00085.o26     +++|
00094  M01S00086.o26     +++|*CALL     COMPMAC
00095  M01S00001.v23l617 +++|*CALL     COMDMAC
00096  M01S00087.o26     +++|          SPACE  4,10
00097  M01S00088.o26     +++|**        COMMON DECKS.
00098  M01S00089.o26     +++|
00099  M01S00090.o26     +++|
00100  M01S00091.o26     +++|*CALL     COMSCPS
00101  M01S00092.o26     +++|*CALL     COMSPIM
00102  M01S00001.o2614   +++|*CALL     COMSSRT
00103  M01S00093.o26     +++| COMMAND  SPACE  4,20
00104  M01S00094.o26     +++|**        COMMAND - GENERATE COMMAND OVERLAY.
00105  M01S00095.o26     +++|*
00106  M01S00096.o26     +++|*
00107  M01S00097.o26     +++|*         COMMAND (SUBTITLE)
00108  M01S00098.o26     +++|*         ENTRY  *SUBTITLE* = COMMAND SUBTITLE.
00109  M01S00099.o26     +++|
00110  M01S00100.o26     +++|
00111  M01S00101.o26     +++|          PURGMAC COMMAND
00112  M01S00102.o26     +++| COMMAND  MACRO  TXT
00113  M01S00103.o26     +++|          LOCAL  A
00114  M01S00104.o26     +++|          QUAL
00115  M01S00105.o26     +++| .M       OVLN   .N
00116  M01S00106.o26     +++|          QUAL   O26".M"
00117  M01S00107.o26     +++|          TTL    O26/9".M" - TXT
00118  M01S00108.o26     +++|          TITLE
00119  M01S00109.o26     +++|          HERE
00120  M01S00110.o26     +++|          QUAL
00121  M01S00111.o26     +++|          USE    END         FORCE LITERALS*/
00122  M01S00112.o26     +++| A        EQU    *
00123  M01S00113.o26     +++| .N       SET    .N+1
00124  M01S00114.o26     +++| .N       MICRO  1,, ".M"
00125  M01S00115.o26     +++|          QUAL   O26".N"
00126  M01S00116.o26     +++|          IDENT  9".N",OVL   TXT
00127  M01S00117.o26     +++|          ORG    OVL
00128  M01S00118.o26     +++|*COMMENT  O26 - TXT
Line S00119 Modification History
M01 (Added by) o26
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00119.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00130  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00131  M01S00120.o26     +++|          QUAL
Line S00007 Modification History
M01 (Added by) 241l630
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00007.261l700 ---|          IFC    NE,*".N"*GB*,1
00133  M01S00002.261l700 +++|          IFC    NE,*".N"*OB*,1
00134  M01S00121.o26     +++| .L       MAX    A,.L
00135  M01S00122.o26     +++|          QUAL   *
00136  M01S00123.o26     +++| COMMAND  ENDM
Line S00124 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00124.241l630 ---| DISPLA   SPACE  4,20
Line S00125 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00125.241l630 ---|**        DISPLA - DISPLAY DATA.
Line S00126 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00126.241l630 ---|*
Line S00127 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00127.241l630 ---|*
Line S00128 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00128.241l630 ---|*         DISPLA X,Y,(TEXT)
Line S00129 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00129.241l630 ---|*         ENTRY  *X* = X-COORDINATE.
Line S00130 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00130.241l630 ---|*                *Y* = Y-COORDINATE.
Line S00131 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00131.241l630 ---|*                *TEXT* = DISPLAY TEXT.
Line S00132 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00145  M02S00132.241l630 ---|*         IF COORDINATES ARE NOT PRESENT, DISPLAY TEXT AT CURRENT
Line S00133 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00133.241l630 ---|*         POSITION.
Line S00134 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00134.241l630 ---|
Line S00135 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00148  M02S00135.241l630 ---|
Line S00136 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00136.241l630 ---|          PURGMAC DISPLA
Line S00137 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00150  M02S00137.241l630 ---| DISPLA   MACRO  X,Y,T
Line S00138 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00151  M02S00138.241l630 ---|          LOCAL  I,J,K
Line S00139 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00139.241l630 ---|          QUAL
Line S00140 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00140.241l630 ---| K        MICRO  1,,/T/
Line S00141 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00141.241l630 ---| .1       MICCNT K
Line S00142 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00142.241l630 ---| I        SET    .1+1
Line S00143 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00143.241l630 ---| I        SET    I/2
Line S00144 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00144.241l630 ---|          LDN    K
Line S00145 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00145.241l630 ---|          OAM    J,CH
Line S00146 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00146.241l630 ---|          QUAL   *
Line S00147 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00160  M02S00147.241l630 ---| DIS      RMT
Line S00148 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00148.241l630 ---|          QUAL
Line S00149 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00149.241l630 ---| J        BSS    0
Line S00150 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00150.241l630 ---|          IFNE   X,,2
Line S00151 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00151.241l630 ---|          CON    X
Line S00152 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00152.241l630 ---| I        SET    I+1
Line S00153 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00153.241l630 ---|          IFNE   Y,,2
Line S00154 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00154.241l630 ---|          CON    Y
Line S00155 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00155.241l630 ---| I        SET    I+1
Line S00156 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00156.241l630 ---|          DATA   H/"K"/
Line S00157 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00157.241l630 ---| K        EQU    I
Line S00158 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00158.241l630 ---|          QUAL   *
Line S00159 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00159.241l630 ---| DIS      RMT
Line S00160 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00160.241l630 ---| DISPLA   ENDM
00174  M01S00008.241l630 +++| DKP      SPACE  4,10
00175  M01S00009.241l630 +++|**        DKP - DISPLAY KEYBOARD POINTER.
00176  M01S00010.241l630 +++|*
00177  M01S00011.241l630 +++|*         ENTRY  (XC) = X-COORDINATE.
00178  M01S00012.241l630 +++|*                (YC) = Y-COORDINATE.
00179  M01S00013.241l630 +++|*                (T2) = ADDRESS OF NEXT CHARACTER.
00180  M01S00014.241l630 +++|*
00181  M01S00015.241l630 +++|*         MACROS CFNC.
00182  M01S00016.241l630 +++|
00183  M01S00017.241l630 +++|
00184  M01S00018.241l630 +++|          PURGMAC DKPM545,DKPM721
00185  M01S00019.241l630 +++|
00186  M01S00020.241l630 +++| DKPM545  MACRO              *** CC545 CODE ***
00187  M01S00021.241l630 +++|          LDD    UC
00188  M01S00022.241l630 +++|          ZJN    DKP1
00189  M01S00023.241l630 +++|          LCN    4
00190  M01S00024.241l630 +++| DKP1     SBN    YINC
00191  M01S00025.241l630 +++|          ADD    YC
00192  M01S00026.241l630 +++|          OAN    CH+40
00193  M01S00027.241l630 +++|          LDN    1RA
00194  M01S00028.241l630 +++|          OAN    CH+40
00195  M01S00029.241l630 +++|          LDD    XC
00196  M01S00030.241l630 +++|          OAN    CH+40
00197  M01S00031.241l630 +++|          LDN    1RI
00198  M01S00032.241l630 +++|          OAN    CH+40
00199  M01S00033.241l630 +++|          UJN    DKPX
00200  M01S00034.241l630 +++| DKPM545  ENDM
00201  M01S00035.241l630 +++|
00202  M01S00036.241l630 +++|
00203  M01S00037.241l630 +++| DKPM721  MACRO              *** CDC721 CODE ***
00204  M01S00038.241l630 +++|          CFNC   BIVF
00205  M01S00039.241l630 +++|          CFNC   DSCF
00206  M01S00040.241l630 +++|          LDI    T2
00207  M01S00041.241l630 +++|          LPN    77
00208  M01S00042.241l630 +++|          OAN    CH+40
00209  M01S00043.241l630 +++|          CFNC   EIVF
00210  M01S00044.241l630 +++|          UJN    DKPX
00211  M01S00045.241l630 +++| DKPM721  ENDM
00212  M01S00046.241l630 +++| EDW      SPACE  4,10
00213  M01S00047.241l630 +++|**        EDW - EDIT AND DISPLAY WORD.
00214  M01S00048.241l630 +++|*
00215  M01S00049.241l630 +++|*         ENTRY  (CM - CM+4) = WORD TO BE PROCESSED.
00216  M01S00050.241l630 +++|*
00217  M01S00051.241l630 +++|*         USES   T1.
00218  M01S00052.241l630 +++|*
00219  M01S00053.241l630 +++|*         MACROS CFNC.
00220  M01S00054.241l630 +++|
00221  M01S00055.241l630 +++|
00222  M01S00056.241l630 +++|          PURGMAC EDWM545,EDWM721
00223  M01S00057.241l630 +++|
00224  M01S00058.241l630 +++| EDWM545  MACRO              *** CC545 CODE ***
00225  M01S00059.241l630 +++|          LDD    CM
00226  M01S00060.241l630 +++|          SBD    XC
00227  M01S00061.241l630 +++|          MJN    EDW1
00228  M01S00062.241l630 +++|          LPN    77
00229  M01S00063.241l630 +++|          STD    CM
00230  M01S00064.241l630 +++| EDW1     LDD    CM+1
00231  M01S00065.241l630 +++|          SBD    XC
00232  M01S00066.241l630 +++|          MJN    EDW2
00233  M01S00067.241l630 +++|          LPN    77
00234  M01S00068.241l630 +++|          STD    CM+1
00235  M01S00069.241l630 +++| EDW2     LDD    CM+2
00236  M01S00070.241l630 +++|          SBD    XC
00237  M01S00071.241l630 +++|          MJN    EDW3
00238  M01S00072.241l630 +++|          LPN    77
00239  M01S00073.241l630 +++|          STD    CM+2
00240  M01S00074.241l630 +++| EDW3     LDD    CM+3
00241  M01S00075.241l630 +++|          SBD    XC
00242  M01S00076.241l630 +++|          MJN    EDW4
00243  M01S00077.241l630 +++|          LPN    77
00244  M01S00078.241l630 +++|          STD    CM+3
00245  M01S00079.241l630 +++| EDW4     LDD    CM+4
00246  M01S00080.241l630 +++|          SBD    XC
00247  M01S00081.241l630 +++|          MJN    EDW6
00248  M01S00082.241l630 +++|          LPN    77
00249  M01S00083.241l630 +++|          NJN    EDW5
00250  M01S00084.241l630 +++|          LDN    1R
00251  M01S00085.241l630 +++| EDW5     STD    CM+4
00252  M01S00086.241l630 +++| EDW6     LDN    5
00253  M01S00087.241l630 +++|          OAM    CM,CH
00254  M01S00088.241l630 +++|          UJP    EDWX
00255  M01S00089.241l630 +++| EDWM545  ENDM
00256  M01S00090.241l630 +++|
00257  M01S00091.241l630 +++|
00258  M01S00092.241l630 +++| EDWM721  MACRO              *** CDC721 CODE ***
00259  M01S00093.241l630 +++|          LDN    CM
00260  M01S00094.241l630 +++|          STD    T1
00261  M01S00095.241l630 +++| EDW10    LDI    T1
00262  M01S00096.241l630 +++|          SBD    XC
00263  M01S00097.241l630 +++|          MJN    EDW11
00264  M01S00098.241l630 +++|          LPN    77
00265  M01S00099.241l630 +++|          LMC    2L
00266  M01S00100.241l630 +++|          STI    T1
00267  M01S00101.241l630 +++| EDW11    AOD    T1
00268  M01S00102.241l630 +++|          LMN    CM+5
00269  M01S00103.241l630 +++|          NJN    EDW10
00270  M01S00104.241l630 +++| EDW12    SOD    T1
00271  M01S00105.241l630 +++|          LMN    CM-1
00272  M01S00106.241l630 +++|          ZJN    EDW13
00273  M01S00107.241l630 +++|          LDI    T1
00274  M01S00108.241l630 +++|          ZJN    EDW12
00275  M01S00109.241l630 +++|          LDD    T1
00276  M01S00110.241l630 +++|          SBN    CM-1
00277  M01S00111.241l630 +++|          OAM    CM,CH
00278  M01S00112.241l630 +++|          LDD    CM+4
00279  M01S00113.241l630 +++|          NJN    EDWX
00280  M01S00114.241l630 +++| EDW13    CFNC   EELF
00281  M01S00115.241l630 +++|          UJP    EDWX
00282  M01S00116.241l630 +++| EDWM721  ENDM
00283  M01S00161.o26     +++| ENTER    SPACE  4,15
00284  M01S00162.o26     +++|**        ENTER - ENTER SPECIAL SYNTAX.
00285  M01S00163.o26     +++|*
00286  M01S00164.o26     +++|*
00287  M01S00165.o26     +++|*ADDR     ENTER  (SYNTAX)
00288  M01S00166.o26     +++|*         ENTRY  *ADDR* = OVERLAY ENTRY ADDRESS.
00289  M01S00167.o26     +++|*                *SYNTAX* = SYNTAX OF COMMAND.
00290  M01S00168.o26     +++|
00291  M01S00169.o26     +++|
00292  M01S00170.o26     +++|          PURGMAC ENTER
00293  M01S00171.o26     +++|          MACRO  ENTER,ADDR,SYNTAX
00294  M01S00172.o26     +++|          LOCAL  A
00295  M01S00173.o26     +++| A        SET    *
00296  M01S00174.o26     +++|          CON    ADDR/10000+100*OVNB,ADDR-ADDR/10000*10000
00297  M01S00175.o26     +++|          ORG    *O-2
00298  M01S00176.o26     +++| ENTER    MICRO  1,, SYNTAX
00299  M01S00177.o26     +++| ESS      MICCNT ENTER
00300  M01S00178.o26     +++| ESS      DECMIC ESS
00301  M01S00179.o26     +++|          LOC    A
00302  M01S00180.o26     +++|          VFD    42/"ESS"L_SYNTAX,18/ADDR
00303  M01S00181.o26     +++|          LOC    A+1
00304  M01S00182.o26     +++| ENTER    ENDM
00305  M01S00183.o26     +++| ENTRY    SPACE  4,15
00306  M01S00184.o26     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00307  M01S00185.o26     +++|*
00308  M01S00186.o26     +++|*
00309  M01S00187.o26     +++|*NAME     ENTRY  ADDR
00310  M01S00188.o26     +++|*         ENTRY  *NAME* = ENTRY POINT NAME.
00311  M01S00189.o26     +++|*                *ADDR* = ADDRESS OF ENTRY POINT.
00312  M01S00190.o26     +++|*                IF *ADDR* IS NOT PRESENT, ADDRESS OF ENTRY
00313  M01S00191.o26     +++|*                POINT IS THE CURRENT VALUE OF THE ORIGIN COUNTER.
00314  M01S00192.o26     +++|
00315  M01S00193.o26     +++|
00316  M01S00194.o26     +++|          PURGMAC ENTRY
00317  M01S00195.o26     +++|          MACRO  ENTRY,NAME,ADDR
00318  M01S00196.o26     +++|          IFC    NE,*ADDR**
00319  M01S00197.o26     +++|          RMT
00320  M01S00198.o26     +++|          QUAL
00321  M01S00199.o26     +++| NAME     EQU    .N*10000B+/O26".N"/ADDR
00322  M01S00200.o26     +++|          QUAL   *
00323  M01S00201.o26     +++|          RMT
00324  M01S00202.o26     +++|          ELSE   4
00325  M01S00203.o26     +++| NAME     BSS    0
00326  M01S00204.o26     +++|          QUAL
00327  M01S00205.o26     +++| NAME     EQU    .N*10000B+/O26".N"/NAME
00328  M01S00206.o26     +++|          QUAL   *
00329  M01S00207.o26     +++| ENTRY    ENDM
00330  M01S00208.o26     +++| JMP      SPACE  4,10
00331  M01S00209.o26     +++|**        JMP - THREADED JUMP.
00332  M01S00210.o26     +++|*
00333  M01S00211.o26     +++|*
00334  M01S00212.o26     +++|*         JMP    ADDR
00335  M01S00213.o26     +++|*         ENTRY  *ADDR* = JUMP ADDRESS.
00336  M01S00214.o26     +++|
00337  M01S00215.o26     +++|
00338  M01S00216.o26     +++|          PURGMAC JMP
00339  M01S00217.o26     +++| JMP      MACRO  ADDR
00340  M01S00218.o26     +++|          IF     -DEF,.ADDR,2
00341  M01S00219.o26     +++|          NOREF  .ADDR
00342  M01S00220.o26     +++| .ADDR    MAX    ADDR,*-40
00343  M01S00221.o26     +++|          IFGT   .ADDR,*-40
00344  M01S00222.o26     +++|          UJN    .ADDR
00345  M01S00223.o26     +++| .ADDR    SET    *-1
00346  M01S00224.o26     +++|          ELSE   2
00347  M01S00225.o26     +++| .ADDR    SET    *
00348  M01S00226.o26     +++|          LJM    ADDR
00349  M01S00227.o26     +++| JMP      ENDM
00350  M01S00228.o26     +++| OVLN     SPACE  4,15
00351  M01S00229.o26     +++|**        OVLN - GENERATE OVERLAY NUMBER.
00352  M01S00230.o26     +++|*
00353  M01S00231.o26     +++|*
00354  M01S00232.o26     +++|*A        OVLN   B
00355  M01S00233.o26     +++|*         ENTRY  *B* = OVERLAY NUMBER.
00356  M01S00234.o26     +++|*         EXIT   *A* = MICRO OF OVERLAY NAME.
00357  M01S00235.o26     +++|
00358  M01S00236.o26     +++|
00359  M01S00237.o26     +++|          PURGMAC OVLN
00360  M01S00238.o26     +++|          MACRO  OVLN,A,B
00361  M01S00239.o26     +++|          LOCAL  C
00362  M01S00240.o26     +++| C        SET    B/1R4
00363  M01S00241.o26     +++| C        MICRO  C+1,1, "OVNG"
00364  M01S00242.o26     +++| A        MICRO  B-C*1R4+1,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ01234
00365  M01S00243.o26     +++| A        MICRO  1,, "C""A"
00366  M01S00244.o26     +++| OVLN     ENDM
00367  M01S00245.o26     +++|          TITLE  OVERLAY LOADER.
00368  M01S00117.241l630 +++|          TITLE  SUBROUTINES / MESSAGES.
00369  M01S00246.o26     +++| LOV      SPACE  4,20
00370  M01S00247.o26     +++|**        LOV - LOAD OVERLAY.
00371  M01S00248.o26     +++|*
00372  M01S00249.o26     +++|*         ENTRY  (A) = BITS 17-12 OVERLAY INDEX.
00373  M01S00250.o26     +++|*                      BITS 11-00 ENTRY ADDRESS.
Line S00251 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00374  M02S00251.241l630 ---|*                (LA) = OVERLAY LOAD ADDRESS.
00375  M01S00252.o26     +++|*
00376  M01S00253.o26     +++|*         USES   T0, AB - AB+4.
00377  M01S00254.o26     +++|*
00378  M01S00255.o26     +++|*         CALLS  LPP.
00379  M01S00256.o26     +++|
00380  M01S00257.o26     +++|
00381  M01S00258.o26     +++|          QUAL
00382  M01S00259.o26     +++|          USE    END
00383  M01S00260.o26     +++|          USE    PRS
00384  M01S00261.o26     +++|          USE    LOV
00385  M01S00262.o26     +++| PRSA     BSS    0
00386  M01S00263.o26     +++|          LOC    MSFW
Line S00264 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00264.241l630 ---|          CON    0
00388  M01S00265.o26     +++|
00389  M01S00266.o26     +++| LOV      STM    LOVA        SET ENTRY
00390  M01S00267.o26     +++|          SHN    -14
00391  M01S00268.o26     +++|          ZJN    LOV1        IF RESIDENT
00392  M01S00269.o26     +++|          STD    T0
00393  M01S00270.o26     +++|          SHN    1
00394  M01S00271.o26     +++|          SCN    77
00395  M01S00272.o26     +++|          LMD    T0
00396  M01S00273.o26     +++|          SCN    40
Line S00274 Modification History
M01 (Added by) o26
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00274.261l700 ---|          ADC    3R9GA-1
00398  M01S00003.261l700 +++|          ADC    3R9OA-1
00399  M01S00275.o26     +++|          STM    LOVB+4
00400  M01S00276.o26     +++|          SHN    -14
00401  M01S00277.o26     +++|          STM    LOVB+3
00402  M01S00278.o26     +++|          SHN    6
Line S00279 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00279.241l630 ---|          LMM    -5,LA
00404  M01S00118.241l630 +++|          LMM    OVL-5
00405  M01S00280.o26     +++|          SHN    6
00406  M01S00281.o26     +++|          LMM    LOVB+4
00407  M01S00282.o26     +++|          SHN    6
Line S00283 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00283.241l630 ---|          LMM    -4,LA
00409  M01S00119.241l630 +++|          LMM    OVL-4
00410  M01S00284.o26     +++|          ZJN    LOV1        IF PROGRAM IN CORE
00411  M01S00285.o26     +++|          RJM    LPP         LOAD PP PROGRAM
00412  M01S00286.o26     +++| LOV1     LDN    ZERL        CLEAR ASSEMBLY BUFFER
00413  M01S00287.o26     +++|          CRD    AB
00414  M01S00288.o26     +++|          LDC    KBI8        CLEAR OVERLAY LOAD
00415  M01S00289.o26     +++|          STM    KBIA
Line S00290 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00290.241l630 ---|          LDC    OVL
Line S00291 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00291.241l630 ---|          STD    LA
00418  M01S00120.241l630 +++|          AOD    DR
00419  M01S00292.o26     +++|          LDD    CA          (A) = CHARACTER ADDRESS
00420  M01S00293.o26     +++|          LJM    *
00421  M01S00294.o26     +++| LOVA     EQU    *-1
00422  M01S00295.o26     +++|
Line S00296 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00296.241l630 ---| LOVB.    EQU    *O
Line S00297 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00297.241l630 ---| LOVB     VFD    60/3L1DL
00425  M01S00121.241l630 +++|
00426  M01S00122.241l630 +++| LOVB     VFD    24/3L1DL,12/CH,24/0
00427  M01S00298.o26     +++| LPP      SPACE  4,20
00428  M01S00299.o26     +++|**        LPP - LOAD PP PROGRAM.
00429  M01S00300.o26     +++|*
Line S00301 Modification History
M01 (Added by) o26
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00301.ns2708  ---|*         ENTRY  (LOVB - LOVB+4) = PP PROGRAM NAME.
Line S00302 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
M03 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00431  M03S00302.ns2708  ---|*                (LA) = OVERLAY LOAD ADDRESS.
Line S00303 Modification History
M01 (Added by) o26
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00303.ns2708  ---|*
Line S00304 Modification History
M01 (Added by) o26
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00304.ns2708  ---|*         USES   T1, CM - CM+4.
Line S00123 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00123.ns2708  ---|*
Line S00124 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00124.ns2708  ---|*         MACROS CFNC, DFIM, MONITOR.
00436  M01S00001.ns2708  +++|*         ENTRY  (LOVB+3 - LOVB+4) = PP PROGRAM NAME.
00437  M01S00002.ns2708  +++|*
00438  M01S00003.ns2708  +++|*         EXIT   TO *KIC* IF WAITING FOR OVERLAY TO BE LOADED.
00439  M01S00004.ns2708  +++|*                TO *ABT* IF CHANNEL TIMEOUT.
00440  M01S00005.ns2708  +++|*                TO *ABT1* IF NO PP AVAILABLE FOR *1DL*.
00441  M01S00006.ns2708  +++|*
00442  M01S00007.ns2708  +++|*         USES   T1, CM - CM+4, KM.
00443  M01S00008.ns2708  +++|*
00444  M01S00009.ns2708  +++|*         MACROS CFNC, DFIM, EXECUTE, MONITOR.
00445  M01S00305.o26     +++|
00446  M01S00306.o26     +++|
00447  M01S00307.o26     +++| LPP      SUBR               ENTRY/EXIT
00448  M01S00010.ns2708  +++|          EXECUTE 1DL,=
Line S00308 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00449  M02S00308.241l630 ---|          LDD    LA          SET LOAD ADDRESS
Line S00309 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00309.241l630 ---|          SBN    5
Line S00310 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00310.241l630 ---|          STM    LPPC
Line S00311 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00311.241l630 ---|          LDM    O26A        SET DISPLAY CHANNEL
Line S00312 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00312.241l630 ---|          LPN    77
Line S00313 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00313.241l630 ---|          STM    LOVB+2
00455  M01S00314.o26     +++|          LDD    MA
00456  M01S00315.o26     +++|          CWM    LOVB,ON
00457  M01S00316.o26     +++|          LDN    1           DISABLE QUEUING OF PP REQUEST
00458  M01S00317.o26     +++|          STD    CM+1
00459  M01S00318.o26     +++|          MONITOR RPPM       REQUEST 1DL
00460  M01S00319.o26     +++|          LDD    CM+1        CHECK CALL
00461  M01S00320.o26     +++|          STM    LPPA
00462  M01S00321.o26     +++|          NJN    LPP1        IF PP AVAILABLE
00463  M01S00322.o26     +++|          LDC    ERRC        MESSAGE = *SYSTEM BUSY - PPU.*
00464  M01S00323.o26     +++|          STD    KM
00465  M01S00324.o26     +++|          LJM    ABT1
00466  M01S00325.o26     +++|
00467  M01S00326.o26     +++|*         WAIT FOR 1DL.
00468  M01S00327.o26     +++|
00469  M01S00328.o26     +++| LPP1     RJM    KBIA        SET RE-ENTRY
00470  M01S00011.ns2708  +++|          DFIM   (CON SDCF),*+1
00471  M01S00012.ns2708  +++|          LDC    DDCF        DESELECT DISPLAY
00472  M01S00013.ns2708  +++|          CFNC
00473  M01S00329.o26     +++|          LDC    **          READ PP INPUT REGISTER
00474  M01S00330.o26     +++| LPPA     EQU    *-1
00475  M01S00331.o26     +++|          CRD    CM
00476  M01S00332.o26     +++|          LDD    CM+1        CHECK INPUT REGISTER
00477  M01S00333.o26     +++|          SCN    37
00478  M01S00334.o26     +++|          SHN    6
00479  M01S00335.o26     +++|          LMD    CM
00480  M01S00336.o26     +++|          LMC    3RL1D
00481  M01S00337.o26     +++|          ZJN    LPP2        IF *1DL*
00482  M01S00338.o26     +++|          SHN    14
00483  M01S00339.o26     +++|          LMN    1R1
Line S00340 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00484  M02S00340.241l630 ---|          NJN    LPP4.1      IF *1DL* NOT LOADING
00485  M01S00125.241l630 +++|          NJN    LPP5        IF *1DL* NOT LOADING
00486  M01S00341.o26     +++| LPP2     LDD    CM+2
00487  M01S00342.o26     +++|          LMC    7777
00488  M01S00343.o26     +++|          ZJN    LPP3        IF TRANSMISSION READY
00489  M01S00014.ns2708  +++|          DCN    CH+40
00490  M01S00015.ns2708  +++|          CCF    *+2,CH
00491  M01S00344.o26     +++|          LDC    ERRB        MESSAGE = *SYSTEM BUSY - DISK.*
00492  M01S00345.o26     +++|          LJM    KIC         INCOMPLETE ENTRY
00493  M01S00346.o26     +++|
00494  M01S00347.o26     +++|*         INPUT OVERLAY.
00495  M01S00348.o26     +++|
Line S00349 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00496  M02S00349.241l630 ---| LPP3     FNC    0,CH        CLEAR DISPLAY
Line S00126 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00126.ns2708  ---|          DFIM   (CON SDCF),*+1
Line S00127 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00127.ns2708  ---| LPP3     LDC    DDCF        DESELECT DISPLAY
Line S00128 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00128.ns2708  ---|          CFNC
Line S00350 Modification History
M01 (Added by) o26
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00350.ns2708  ---|          LDD    TH          DELAY
00501  M01S00016.ns2708  +++| LPP3     LDD    TH          DELAY
00502  M01S00351.o26     +++|          SBN    1
00503  M01S00352.o26     +++|          NJN    *-1         IF DELAY NOT ELAPSED
00504  M01S00353.o26     +++|          DCN    CH+40
00505  M01S00354.o26     +++|*         LDN    0           SET READY RECEIVE
00506  M01S00355.o26     +++|          STD    CM+2
00507  M01S00356.o26     +++|          LDM    LPPA
00508  M01S00357.o26     +++|          CWD    CM
00509  M01S00358.o26     +++|          ACN    CH
00510  M01S00359.o26     +++|          LCN    0           SET TIMER
00511  M01S00360.o26     +++|          STD    T1
Line S00361 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00361.241l630 ---| LPP4     BSS    0
Line S00362 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00362.241l630 ---| LPPB     FJM    LPP5,CH     IF CHANNEL FULL
00514  M01S00129.241l630 +++| LPP4     FJM    LPP6,CH     IF CHANNEL FULL
00515  M01S00363.o26     +++|          SOD    T1
00516  M01S00364.o26     +++|          NJN    LPP4        IF CHANNEL NOT TIMED OUT
Line S00365 Modification History
M01 (Added by) o26
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00365.ns2708  ---|          DCN    CH+40
00518  M01S00017.ns2708  +++| LPP5     DCN    CH+40
Line S00366 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00366.241l630 ---| LPP4.1   LJM    ABT         ABORT
Line S00367 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00367.241l630 ---|
Line S00368 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00368.241l630 ---| LPP5     LCN    0           INPUT OVERLAY
Line S00369 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00369.241l630 ---|          IAM    OVL-5,CH
Line S00370 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00370.241l630 ---| LPPC     EQU    *-1
00524  M01S00130.241l630 +++|          CCF    *+2,CH
Line S00131 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00131.ns2708  ---| LPP5     LJM    ABT         ABORT
00526  M01S00018.ns2708  +++|          LJM    ABT         ABORT
00527  M01S00132.241l630 +++|
00528  M01S00133.241l630 +++| LPP6     LCN    0           INPUT OVERLAY
00529  M01S00134.241l630 +++|          IAM    OVL-5,CH
00530  M01S00371.o26     +++|          LDD    KM          CHECK MESSAGE
00531  M01S00372.o26     +++|          LMC    ERRB
Line S00373 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00373.241l630 ---|          NJN    LPP6        IF NOT *SYSTEM BUSY - DISK.*
00533  M01S00135.241l630 +++|          CCF    *+2,CH
00534  M01S00136.241l630 +++|          NJN    LPP7        IF NOT *DISK BUSY.*
00535  M01S00374.o26     +++|*         LDN    0           CLEAR KEYBOARD MESSAGE
00536  M01S00375.o26     +++|          STD    KM
Line S00376 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00376.241l630 ---| LPP6     LJM    LPPX        RETURN
00538  M01S00137.241l630 +++| LPP7     LJM    LPPX        RETURN
00539  M01S00138.241l630 +++| CDL      SPACE  4,15
00540  M01S00139.241l630 +++|**        CDL - CLEAR DISPLAY LINES.
00541  M01S00140.241l630 +++|*
00542  M01S00141.241l630 +++|*         ENTRY  (DR) = DISPLAY REFRESH STATUS.
00543  M01S00142.241l630 +++|*                (IO) = I/O BUSY STATUS.
00544  M01S00143.241l630 +++|*
00545  M01S00144.241l630 +++|*         EXIT   (A) = (DR) = 0.
00546  M01S00145.241l630 +++|*
00547  M01S00146.241l630 +++|*         USES   T1, YC.
00548  M01S00147.241l630 +++|*
00549  M01S00148.241l630 +++|*         CALLS  ERL.
00550  M01S00149.241l630 +++|*
00551  M01S00150.241l630 +++|*         MACROS CFNC, DFIM.
00552  M01S00151.241l630 +++|
00553  M01S00152.241l630 +++|
00554  M01S00153.241l630 +++| CDL3     CFNC   CHSF        CLEAR HIDDEN SCREEN
00555  M01S00154.241l630 +++|          LDN    0
00556  M01S00155.241l630 +++|          STD    DR          DISABLE REFRESH NEXT PASS
00557  M01S00156.241l630 +++|
00558  M01S00157.241l630 +++| CDL      SUBR               ENTRY/EXIT
00559  M01S00158.241l630 +++|          LDM    DBFD
00560  M01S00159.241l630 +++|          NJN    CDL1        IF DISPLAY NOT ROLLING
00561  M01S00160.241l630 +++|          AOD    DR
00562  M01S00161.241l630 +++| CDL1     CFNC   SLSF        SELECT LEFT SCREEN - SMALL CHARACTERS
00563  M01S00162.241l630 +++|          LDD    DR
00564  M01S00163.241l630 +++|          ADD    IO          SET REFRESH STATUS
00565  M01S00164.241l630 +++|          STM    DBFC
00566  M01S00165.241l630 +++|          NJN    CDL3        IF DISPLAY REFRESH ENABLED
00567  M01S00166.241l630 +++|          STD    T1
00568  M01S00167.241l630 +++| CDL2     LDM    CDLA,T1
00569  M01S00168.241l630 +++|          ZJN    CDLX        IF ALL LINES CLEARED
00570  M01S00169.241l630 +++|          STD    YC
00571  M01S00170.241l630 +++|          RJM    ERL         ERASE LINE
00572  M01S00171.241l630 +++|          AOD    T1
00573  M01S00172.241l630 +++|          UJN    CDL2        LOOP
00574  M01S00173.241l630 +++|
00575  M01S00174.241l630 +++|
00576  M01S00175.241l630 +++| CDLA     CON    HL01
00577  M01S00176.241l630 +++|          CON    HL02
00578  M01S00177.241l630 +++|          CON    HL04
00579  M01S00178.241l630 +++|          CON    0
00580  M01S00179.241l630 +++| ERL      SPACE  4,10
00581  M01S00180.241l630 +++|**        ERL - ERASE LINE.
00582  M01S00181.241l630 +++|*
00583  M01S00182.241l630 +++|*         ENTRY  (XC) = X-COORDINATE.
00584  M01S00183.241l630 +++|*                (YC) = Y-COORDINATE.
00585  M01S00184.241l630 +++|*
00586  M01S00185.241l630 +++|*         MACROS CFNC.
00587  M01S00186.241l630 +++|
00588  M01S00187.241l630 +++|
00589  M01S00188.241l630 +++| ERL      SUBR               ENTRY/EXIT
00590  M01S00189.241l630 +++|          LDN    2
00591  M01S00190.241l630 +++|          OAM    XC,CH       OUTPUT COORDINATES
00592  M01S00191.241l630 +++|          CFNC   EELF
00593  M01S00192.241l630 +++|          UJN    ERLX        RETURN
00594  M01S00377.o26     +++| ERR      SPACE  4,15
00595  M01S00378.o26     +++|**        ERR - ERROR MESSAGES.
00596  M01S00379.o26     +++|
00597  M01S00380.o26     +++|
00598  M01S00381.o26     +++| ERRA     DATA   C*FORMAT ERROR.*
00599  M01S00382.o26     +++|
00600  M01S00383.o26     +++| ERRB     DATA   C*DISK BUSY.*
00601  M01S00384.o26     +++|
00602  M01S00385.o26     +++| ERRC     DATA   C*PP BUSY.*
00603  M01S00386.o26     +++|
00604  M01S00387.o26     +++| ERRD     DATA   C*REPEAT ENTRY.*
00605  M01S00388.o26     +++|
Line S00389 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00389.o2611   ---| ERRE     DATA   C*RECORD TOO LONG.*
00607  M01S00001.o2611   +++|          DFIM   (CON LN27)
00608  M01S00002.o2611   +++| ERRE     CON    LN45,CH03
00609  M01S00003.o2611   +++|          DATA   C*RECORD TOO LONG.*
00610  M01S00004.o2611   +++| ERREL    EQU    *-ERRE
00611  M01S00390.o26     +++|
Line S00391 Modification History
M01 (Added by) o26
M02 (Updated by) ns2735
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00391.ns2735  ---| ERRF     DATA   C*WRITE ON READ-ONLY FILE.*
00613  M01S00001.ns2735  +++| ERRF     DATA   C*CANNOT PERFORM I/O ON FILE.*
00614  M01S00002.ns2735  +++|
00615  M01S00392.o26     +++|
00616  M01S00393.o26     +++|          ERRNG  PPFW-*      IF PP RESIDENT MEMORY OVERFLOW
00617  M01S00394.o26     +++|          LOC    *O
00618  M01S00395.o26     +++| PRSAL    EQU    *-PRSA
Line S00396 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00396.241l630 ---|
Line S00397 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00397.241l630 ---|          OVERFLOW           CHECK FOR *PRESET* MEMORY OVERFLOW
00621  M01S00398.o26     +++|          TITLE  MAIN PROGRAM.
00622  M01S00399.o26     +++| O26      SPACE  4,20
00623  M01S00400.o26     +++|**        O26 - MAIN PROGRAM.
00624  M01S00401.o26     +++|
00625  M01S00402.o26     +++|
00626  M01S00403.o26     +++|          ORG    PPFW
Line S00404 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00404.241l630 ---| O26      RJM    PRS         PRESET PROGRAM
Line S00405 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00405.241l630 ---| O261     RJM    SYS         DISPLAY SYSTEM STATUS
Line S00002 Modification History
M01 (Added by) v23l617
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00002.241l630 ---|          DCN    CH+40
Line S00406 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00406.241l630 ---| O26A     FNC    7000,CH     SELECT LEFT SCREEN, 64 CHARACTERS/LINE
Line S00407 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00407.241l630 ---|          ACN    CH
Line S00408 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00408.241l630 ---|          RJM    DBS         DISPLAY BUFFER STATUS
Line S00409 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00409.241l630 ---|          RJM    DKB         DISPLAY KEYBOARD BUFFER
Line S00410 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00410.241l630 ---|          DCN    CH+40
Line S00411 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00411.241l630 ---|          RJM    DBF         DISPLAY BUFFER
Line S00412 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00412.241l630 ---|          AOD    CC          ADVANCE CYCLE COUNT
00637  M01S00193.241l630 +++| O26      LJM    PRS         PRESET PROGRAM
00638  M01S00194.241l630 +++|
00639  M01S00195.241l630 +++| O261     RJM    CDL         CLEAR DISPLAY LINES
00640  M01S00196.241l630 +++| O262     RJM    SYS         DISPLAY SYSTEM STATUS
00641  M01S00197.241l630 +++|          DCN    CH+40
00642  M01S00198.241l630 +++|          DFIM   (CON LDMI)
00643  M01S00199.241l630 +++|          UJN    O263        DISPLAY BUFFER
00644  M01S00200.241l630 +++|
00645  M01S00201.241l630 +++|          CON    DBFC
00646  M01S00202.241l630 +++|          NJN    O263        IF SCREENS BEING REPAINTED
00647  M01S00203.241l630 +++|          LDD    KI
00648  M01S00204.241l630 +++|          LMD    KP
00649  M01S00205.241l630 +++|          ZJN    O264        IF NO KEYBOARD INPUT
00650  M01S00206.241l630 +++| O263     RJM    DBF         DISPLAY BUFFER
00651  M01S00207.241l630 +++|          DCN    CH+40
00652  M01S00208.241l630 +++|          RJM    DKB         DISPLAY KEYBOARD BUFFER
00653  M01S00209.241l630 +++|          DFIM   (LDD KI)
00654  M01S00210.241l630 +++|          UJN    O265        DISPLAY BUFFER STATUS
00655  M01S00211.241l630 +++|
00656  M01S00212.241l630 +++|          STD    KP          SET PREVIOUS INDEX = CURRENT
00657  M01S00213.241l630 +++|          LDN    0
00658  M01S00214.241l630 +++|          STD    KD
00659  M01S00215.241l630 +++| O264     RJM    KBI         CHECK KEYBOARD INPUT
00660  M01S00216.241l630 +++| O265     RJM    DBS         DISPLAY BUFFER STATUS
00661  M01S00217.241l630 +++|          CFNC   THVF        TRANSFER HIDDEN SCREEN TO VISIBLE
00662  M01S00218.241l630 +++|          DCN    CH+40
00663  M01S00413.o26     +++|          RJM    KBI         KEYBOARD INPUT
00664  M01S00414.o26     +++|          RJM    TIO         TRY I/O
Line S00415 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00415.241l630 ---|          RJM    PSS         PAUSE FOR SYSTEM
Line S00416 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00416.241l630 ---|          UJN    O261        LOOP
00667  M01S00219.241l630 +++| O266     RJM    PSS         PAUSE FOR SYSTEM
00668  M01S00220.241l630 +++|          DFIM   (CON O261),*+1
00669  M01S00221.241l630 +++|          LJM    O262        LOOP
00670  M01S00001.o2612   +++| DPP      SPACE  4,10
00671  M01S00002.o2612   +++|**        DPP - CLEAR *DIS* FLAG AND DROP PP.
00672  M01S00003.o2612   +++|*
00673  M01S00004.o2612   +++|*         EXIT   TO PPR.
00674  M01S00005.o2612   +++|*
00675  M01S00006.o2612   +++|*         USES   CM - CM+4.
00676  M01S00007.o2612   +++|*
00677  M01S00008.o2612   +++|*         MACROS MONITOR.
00678  M01S00009.o2612   +++|*
00679  M01S00010.o2612   +++|*         NOTE   THIS ROUTINE IS CALLED FROM *COMDDSP* ROUTINE *PSS*.
00680  M01S00417.o26     +++|
Line S00418 Modification History
M01 (Added by) o26
M02 (Updated by) o2612
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00418.o2612   ---| DPP      MONITOR DPPM       DROP PP
00682  M01S00011.o2612   +++|
00683  M01S00012.o2612   +++| DPP      BSS    0           ENTRY
00684  M01S00013.o2612   +++|          LDN    ZERL
00685  M01S00014.o2612   +++|          CRD    CM
00686  M01S00015.o2612   +++|          LDN    10          SET MASK FOR *JCIW*
00687  M01S00016.o2612   +++|          STD    CM+4
00688  M01S00017.o2612   +++|          LDN    CCTS        CLEAR *DIS* FLAG
00689  M01S00018.o2612   +++|          STD    CM+1
00690  M01S00019.o2612   +++|          MONITOR  SJCM
00691  M01S00020.o2612   +++|          MONITOR  DPPM      DROP PP
00692  M01S00419.o26     +++|          LJM    PPR         EXIT TO PP RESIDENT
00693  M01S00420.o26     +++| DBF      SPACE  4,20
00694  M01S00421.o26     +++|**        DBF - DISPLAY BUFFER.
00695  M01S00422.o26     +++|*
00696  M01S00423.o26     +++|*         ENTRY  (OT - OT+1) = DISPLAY ADDRESS.
00697  M01S00424.o26     +++|*
Line S00425 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00425.241l630 ---|*         EXIT   (T6 - T7) = ADDRESS OF LAST LINE + 1.
Line S00426 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00426.241l630 ---|*                (DL) = DISPLAY LENGTH.
00700  M01S00222.241l630 +++|*         EXIT   (DL) = DISPLAY LENGTH.
00701  M01S00223.241l630 +++|*                (LL) = 0 IF EXIT ON LAST LINE OF SCREEN.
00702  M01S00224.241l630 +++|*                (DA - DA+1) = ADDRESS OF LAST LINE + 1.
00703  M01S00427.o26     +++|*
00704  M01S00428.o26     +++|*         USES   T1 - T7, CM - CM+4.
00705  M01S00429.o26     +++|*
Line S00430 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00706  M02S00430.241l630 ---|*         CALLS  CDA, DIC, DIL.
00707  M01S00225.241l630 +++|*         CALLS  CDA, DIL, EDW.
00708  M01S00226.241l630 +++|*
00709  M01S00227.241l630 +++|*         MACROS CFNC, DFIM.
00710  M01S00431.o26     +++|
00711  M01S00432.o26     +++|
00712  M01S00433.o26     +++| DBF      SUBR               ENTRY/EXIT
00713  M01S00434.o26     +++|          LDD    OT          SET DISPLAY ADDRESS
Line S00435 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00435.241l630 ---|          STD    T6
Line S00436 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00436.241l630 ---|          LDD    OT+1
Line S00437 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00716  M02S00437.241l630 ---|          STD    T7
00717  M01S00228.241l630 +++|          STD    DA
00718  M01S00229.241l630 +++|          LDD    OT+1
00719  M01S00230.241l630 +++|          STD    DA+1
00720  M01S00438.o26     +++|          LDN    0           SET DISPLAY LENGTH
00721  M01S00439.o26     +++|          STD    DL
Line S00440 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00440.241l630 ---|          LDC    7000        SET LEFT SCREEN
Line S00441 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00441.241l630 ---|          STM    DBFB
Line S00442 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00724  M02S00442.241l630 ---|          LDC    7640        SET Y-COORDINATE
00725  M01S00231.241l630 +++|          LDC    SLSF        SET LEFT SCREEN
00726  M01S00232.241l630 +++|          STM    DBFB
00727  M01S00233.241l630 +++|          LDC    LN06        SET FIRST LINE
00728  M01S00443.o26     +++| DBFA     EQU    *-1
00729  M01S00444.o26     +++|          STD    YC
Line S00445 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00445.241l630 ---|          LMC    7640
00731  M01S00234.241l630 +++|          DFIM   (UJN DBF1)
00732  M01S00235.241l630 +++|          LMC    LN06
00733  M01S00446.o26     +++|          ZJN    DBF1        IF TOP OF SCREEN
00734  M01S00447.o26     +++|          AOM    DBFA        ADVANCE Y
Line S00448 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00448.241l630 ---|          STM    DBFC        SET ROLL NOT NEEDED
Line S00449 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00449.241l630 ---| DBF1     FNC    7000,CH     SELECT SCREEN, 64 CHARACTERS/LINE
Line S00450 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00450.241l630 ---| DBFB     EQU    *-1
Line S00451 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00451.241l630 ---|          ACN    CH
Line S00452 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00452.241l630 ---| DBF2     RJM    CDA         CHECK DISPLAY ADDRESS
Line S00453 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00740  M02S00453.241l630 ---|          PJN    DBFX        IF BUFFER EMPTY
Line S00454 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00454.241l630 ---|          RJM    DIL         DISPLAY INSERT LINE
Line S00455 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00742  M02S00455.241l630 ---|          LDN    2           OUTPUT COORDINATES
00743  M01S00236.241l630 +++|          STM    DBFD
00744  M01S00237.241l630 +++| DBF1     LDC    SLSF
00745  M01S00238.241l630 +++| DBFB     EQU    *-1
00746  M01S00239.241l630 +++|          CFNC               SELECT SCREEN - SMALL CHARACTERS
00747  M01S00240.241l630 +++| DBF2     RJM    CDA         CHECK DISPLAY ADDRESS
00748  M01S00241.241l630 +++|          PJN    DBFX        IF BUFFER EMPTY
00749  M01S00242.241l630 +++|          RJM    DIL         DISPLAY INSERT LINE
00750  M01S00243.241l630 +++|          LDN    0
00751  M01S00244.241l630 +++|          STD    T3          CLEAR WORD COUNTS
00752  M01S00245.241l630 +++|          STD    T4
00753  M01S00246.241l630 +++|          LDM    DBFC
00754  M01S00247.241l630 +++|          ZJN    DBF3        IF DISPLAY REFRESH DISABLED
00755  M01S00248.241l630 +++|          LDN    2
00756  M01S00456.o26     +++|          OAM    XC,CH
00757  M01S00457.o26     +++|          OAN    CH+40
Line S00458 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00758  M02S00458.241l630 ---|          LDN    1R.         DISPLAY LINE
Line S00459 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00459.241l630 ---|          OAN    CH+40
Line S00460 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00460.241l630 ---|          LDN    0           CLEAR WORD COUNT
Line S00461 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00461.241l630 ---|          STD    T3
Line S00462 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00762  M02S00462.241l630 ---|          LCN    0
Line S00463 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00763  M02S00463.241l630 ---|          STD    T4
00764  M01S00249.241l630 +++|          LDC    2R .
00765  M01S00250.241l630 +++|          OAN    CH+40
00766  M01S00464.o26     +++|
00767  M01S00465.o26     +++|*         DISPLAY LINE.
00768  M01S00466.o26     +++|
Line S00467 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00467.241l630 ---| DBF3     LDD    T6          READ WORD
00770  M01S00251.241l630 +++| DBF3     LDD    DA          READ WORD
00771  M01S00468.o26     +++|          SHN    6
00772  M01S00469.o26     +++|          ADD    RA
00773  M01S00470.o26     +++|          SHN    6
Line S00471 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00774  M02S00471.241l630 ---|          ADD    T7
00775  M01S00252.241l630 +++|          ADD    DA+1
00776  M01S00472.o26     +++|          CRD    CM
00777  M01S00473.o26     +++|          AOD    DL          ADVANCE DISPLAY LENGTH
00778  M01S00474.o26     +++|          LDD    SF
Line S00475 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00475.241l630 ---|          ZJN    DBF4        IF SCAN NOT SET
00780  M01S00253.241l630 +++|          ZJN    DBF7        IF SCAN NOT SET
00781  M01S00476.o26     +++|
00782  M01S00477.o26     +++|*         DISPLAY SCAN LINE.
00783  M01S00478.o26     +++|
00784  M01S00479.o26     +++|          AOD    T3          COUNT WORD READ
00785  M01S00480.o26     +++|          SBD    SC
00786  M01S00481.o26     +++|          SBN    1
Line S00482 Modification History
M01 (Added by) o26
M02 (Updated by) o263
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00787  M03S00482.241l630 ---|          MJN    DBF6        IF WORD NOT REACHED
Line S00001 Modification History
M01 (Added by) o263
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00001.241l630 ---|          MJN    DBF3.1      IF WORD NOT REACHED
Line S00483 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00483.241l630 ---|          SBN    6
Line S00484 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00484.241l630 ---|          MJN    DBF5        IF 6 WORDS NOT DISPLAYED
Line S00485 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00485.241l630 ---|          SBN    10
Line S00486 Modification History
M01 (Added by) o26
M02 (Updated by) o263
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00792  M03S00486.241l630 ---|          MJN    DBF6        IF 8 WORDS NOT SKIPPED
Line S00487 Modification History
M01 (Added by) o26
M02 (Updated by) o263
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00793  M03S00487.241l630 ---|          UJN    DBF7        PROCESS AS END OF LINE
Line S00002 Modification History
M01 (Added by) o263
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00002.241l630 ---| DBF3.1   MJN    DBF6        IF 8 WORDS NOT SKIPPED
Line S00003 Modification History
M01 (Added by) o263
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00003.241l630 ---|          LJM    DBF7        PROCESS AS END OF LINE
00796  M01S00254.241l630 +++|          PJN    DBF5        IF WORD REACHED
00797  M01S00255.241l630 +++| DBF4     LJM    DBF9        PROCESS END OF WORD
00798  M01S00256.241l630 +++|
00799  M01S00257.241l630 +++| DBF5     SBN    6
00800  M01S00258.241l630 +++|          MJN    DBF7        IF SIX WORDS NOT DISPLAYED
00801  M01S00259.241l630 +++|          SBN    10
00802  M01S00260.241l630 +++|          MJN    DBF4        IF EIGHT WORDS NOT SKIPPED
00803  M01S00261.241l630 +++| DBF6     LJM    DBF10       PROCESS AS END OF LINE
00804  M01S00488.o26     +++|
00805  M01S00489.o26     +++|*         DISPLAY NORMAL LINE.
00806  M01S00490.o26     +++|
Line S00491 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00807  M02S00491.241l630 ---| DBF4     AOD    T4          COUNT WORD DISPLAYED
Line S00492 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00492.241l630 ---|          LMN    6
Line S00493 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00493.241l630 ---|          NJN    DBF5        IF NOT 6TH WORD
Line S00494 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00494.241l630 ---|          STD    T4
Line S00495 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00495.241l630 ---|          LDC    6040        RESET X
Line S00496 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00496.241l630 ---|          OAN    CH+40
Line S00497 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00497.241l630 ---|          LCN    12          ADVANCE Y
00814  M01S00262.241l630 +++| DBF7     AOD    T4          COUNT WORD DISPLAYED
00815  M01S00263.241l630 +++|          LMN    7
00816  M01S00264.241l630 +++|          NJN    DBF8        IF NOT 7TH WORD
00817  M01S00265.241l630 +++|          STD    T4
00818  M01S00266.241l630 +++|          LDC    CH05        RESET X-COORDINATE
00819  M01S00267.241l630 +++|          OAN    CH+40
00820  M01S00268.241l630 +++|          LCN    YINC
00821  M01S00498.o26     +++|          RAD    YC
00822  M01S00499.o26     +++|          OAN    CH+40
Line S00500 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00500.241l630 ---|          ADC    -7020
Line S00501 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00501.241l630 ---|          MJN    DBF7        IF SCREEN OVERFLOW
Line S00502 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00502.241l630 ---|          RJM    CDA         CHECK DISPLAY ADDRESS
Line S00503 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00503.241l630 ---|          MJN    DBF5        IF BUFFER NOT EMPTY
Line S00504 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00827  M02S00504.241l630 ---|          LJM    DBFX        RETURN
Line S00505 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00828  M02S00505.241l630 ---|
Line S00506 Modification History
M01 (Added by) o26
M02 (Updated by) o263
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00829  M03S00506.241l630 ---| DBF5     RJM    DIC         DELETE INVALID CHARACTERS
Line S00507 Modification History
M01 (Added by) o26
M02 (Updated by) o263
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00830  M03S00507.241l630 ---|          LDN    5           DISPLAY 5 BYTES
Line S00004 Modification History
M01 (Added by) o263
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00831  M03S00004.241l630 ---| DBF5     LDM    DBFD
Line S00005 Modification History
M01 (Added by) o263
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00832  M03S00005.241l630 ---|          ZJN    DBF5.1      IF NOT TO CLEAR SPECIAL CHARACTERS
Line S00006 Modification History
M01 (Added by) o263
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00833  M03S00006.241l630 ---|          RJM    DIC         DELETE INVALID CHARACTERS
Line S00007 Modification History
M01 (Added by) o263
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00834  M03S00007.241l630 ---| DBF5.1   LDN    5           DISPLAY 5 BYTES
Line S00001 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00001.241l630 ---| DBF5     RJM    DIC         DELETE INVALID CHARACTERS
Line S00002 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00836  M02S00002.241l630 ---|          LDN    5           DISPLAY 5 BYTES
Line S00508 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00508.241l630 ---|          OAM    CM,CH
00838  M01S00269.241l630 +++|          DFIM   (ADC -LN25)
00839  M01S00270.241l630 +++|          ADC    -LN42
00840  M01S00271.241l630 +++|          MJN    DBF6        IF SCREEN OVERFLOW
00841  M01S00272.241l630 +++|          RJM    CDA         CHECK DISPLAY ADDRESS
00842  M01S00273.241l630 +++|          MJN    DBF8        IF BUFFER NOT EMPTY
00843  M01S00274.241l630 +++|          LJM    DBFX        RETURN
00844  M01S00275.241l630 +++|
00845  M01S00276.241l630 +++| DBF8     LDC    1
00846  M01S00277.241l630 +++| DBFC     EQU    *-1
00847  M01S00278.241l630 +++|          ZJN    DBF9        IF REFRESH DISABLED
00848  M01S00279.241l630 +++|          RJM    EDW         DISPLAY WORD
00849  M01S00509.o26     +++|
00850  M01S00510.o26     +++|*         PROCESS END-OF-WORD.
00851  M01S00511.o26     +++|
Line S00512 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00512.241l630 ---| DBF6     AOD    T7          ADVANCE WORD ADDRESS
Line S00513 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00513.241l630 ---|          SHN    -14
Line S00514 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00514.241l630 ---|          RAD    T6
Line S00515 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00515.241l630 ---|          LDD    CM+4
Line S00516 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00516.241l630 ---|          ZJN    DBF7        IF END OF LINE
Line S00001 Modification History
M01 (Added by) o265
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00001.241l630 ---|          LDD    T6          CHECK ADDRESS
00858  M01S00280.241l630 +++| DBF9     AOD    DA+1        ADVANCE WORD ADDRESS
00859  M01S00281.241l630 +++|          SHN    -14
00860  M01S00282.241l630 +++|          RAD    DA
00861  M01S00283.241l630 +++|          LDD    CM+4
00862  M01S00284.241l630 +++|          ZJN    DBF10       IF END OF LINE
00863  M01S00285.241l630 +++|          LDD    DA
00864  M01S00002.o265    +++|          SBD    IN
00865  M01S00003.o265    +++|          SHN    14
Line S00004 Modification History
M01 (Added by) o265
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00004.241l630 ---|          ADD    T7
Line S00005 Modification History
M01 (Added by) o265
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00005.241l630 ---|          SBD    IN+1
Line S00006 Modification History
M01 (Added by) o265
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00868  M02S00006.241l630 ---|          PJN    DBF7        IF ADDRESS .GE. *IN*
00869  M01S00286.241l630 +++|          ADD    DA+1
00870  M01S00287.241l630 +++|          SBD    IN+1
00871  M01S00288.241l630 +++|          PJN    DBF10       IF ADDRESS .GE. *IN*
00872  M01S00517.o26     +++|          LJM    DBF3        LOOP
00873  M01S00518.o26     +++|
00874  M01S00519.o26     +++|*         PROCESS END-OF-LINE.
00875  M01S00520.o26     +++|
Line S00521 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00521.241l630 ---| DBF7     LDC    1           ADVANCE LINE NUMBER
Line S00522 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00522.241l630 ---| DBFC     EQU    *-1         (ROLL NEEDED FLAG)
Line S00523 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00878  M02S00523.241l630 ---|          NJN    DBF8        IF ROLL NOT NEEDED
Line S00524 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00524.241l630 ---|          LDD    T6          SET FIRST LINE ADDRESS
Line S00525 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00525.241l630 ---|          STD    OT
Line S00526 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00526.241l630 ---|          LDD    T7
00882  M01S00289.241l630 +++| DBF10    LDC    1           ADVANCE LINE NUMBER
00883  M01S00290.241l630 +++| DBFD     EQU    *-1
00884  M01S00291.241l630 +++|          NJN    DBF12       IF ROLL NOT NEEDED
00885  M01S00292.241l630 +++|          AOD    DR
00886  M01S00293.241l630 +++|          LDD    DA
00887  M01S00294.241l630 +++|          STD    OT
00888  M01S00295.241l630 +++|          LDD    DA+1        SET FIRST LINE ADDRESS
00889  M01S00527.o26     +++|          STD    OT+1
00890  M01S00528.o26     +++|          LDD    YC          SET NEW Y-COORDINATE
Line S00529 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00529.241l630 ---|          SBN    24
Line S00530 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00892  M02S00530.241l630 ---|          STM    DBFA
Line S00531 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00531.241l630 ---|          STM    DBFC        SET ROLL NOT NEEDED
Line S00532 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00532.241l630 ---| DBF8     LCN    24          DECREASE Y
Line S00533 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00895  M02S00533.241l630 ---|          RAD    YC
Line S00534 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00534.241l630 ---|          ADC    -7126
Line S00535 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00535.241l630 ---|          MJN    DBF9        IF BOTTOM OF SCREEN REACHED
00898  M01S00296.241l630 +++|          DFIM   (UJN DBF11)
00899  M01S00297.241l630 +++|          SBN    2*YINC
00900  M01S00298.241l630 +++|          STM    DBFA
00901  M01S00299.241l630 +++| DBF11    STM    DBFD        SET ROLL NOT NEEDED
00902  M01S00300.241l630 +++|          DFIM   (LCN YINC)
00903  M01S00301.241l630 +++| DBF12    LCN    2*YINC
00904  M01S00302.241l630 +++|          RAD    YC
00905  M01S00303.241l630 +++|          DFIM   (ADC -LN25)
00906  M01S00304.241l630 +++|          ADC    -LN41
00907  M01S00305.241l630 +++|          MJN    DBF13       IF BOTTOM OF SCREEN
00908  M01S00306.241l630 +++|          STD    LL
00909  M01S00536.o26     +++|          LJM    DBF2        LOOP
00910  M01S00537.o26     +++|
Line S00538 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00538.241l630 ---| DBF9     LDM    DBFB        SET NEXT SCREEN
Line S00539 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00539.241l630 ---|          LMD    HN
Line S00540 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00913  M02S00540.241l630 ---|          STM    DBFB
Line S00541 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00541.241l630 ---|          SHN    13
Line S00542 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00542.241l630 ---|          PJN    DBF10       IF RIGHT SCREEN DISPLAYED
Line S00543 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00543.241l630 ---|          DCN    CH+40
Line S00544 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00917  M02S00544.241l630 ---|          LDC    7664-7126   RESET Y
00918  M01S00307.241l630 +++| DBF13    LDD    HN          SET NEXT SCREEN
00919  M01S00308.241l630 +++|          RAM    DBFB
00920  M01S00309.241l630 +++|          ERRNZ  SLSF+100-SRSF  CODE DEPENDS ON VALUE
00921  M01S00310.241l630 +++|          SHN    21-6
00922  M01S00311.241l630 +++|          PJN    DBF14       IF RIGHT SCREEN DISPLAYED
00923  M01S00312.241l630 +++|          FJM    *,CH
00924  M01S00313.241l630 +++|          DCN    CH+40
00925  M01S00314.241l630 +++|          DFIM   (CON LN06),*+1
00926  M01S00315.241l630 +++|          LDC    LN06-LN41+YINC  RESET LINE NUMBER
00927  M01S00316.241l630 +++|          DFIM   (STD YC)
00928  M01S00545.o26     +++|          RAD    YC
00929  M01S00546.o26     +++|          LJM    DBF1        LOOP
00930  M01S00547.o26     +++|
Line S00548 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00548.241l630 ---| DBF10    LDD    HF          SET ROLL FLAG
Line S00549 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00549.241l630 ---|          STM    DBFC
Line S00550 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00550.241l630 ---|          RJM    DIL         DISPLAY INSERT LINE
Line S00551 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00551.241l630 ---|          DCN    CH+40
Line S00552 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00552.241l630 ---|          LJM    DBFX        RETURN
00936  M01S00317.241l630 +++| DBF14    LDD    HF          SET ROLL FLAG
00937  M01S00318.241l630 +++|          STM    DBFD
00938  M01S00319.241l630 +++|          RJM    DIL         DISPLAY INSERT LINE
00939  M01S00320.241l630 +++|          LJM    DBFX        RETURN
Line S00008 Modification History
M01 (Added by) o263
M02 (Updated by) o267
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00008.o267    ---|
Line S00009 Modification History
M01 (Added by) o263
M02 (Updated by) o267
Seq #  *Modification Id* Act 
----------------------------+
00941  M02S00009.o267    ---| DBFD     CON    0           SPECIAL CHARACTER FLAG
00942  M01S00553.o26     +++| DBS      SPACE  4,20
00943  M01S00554.o26     +++|**        DBS - DISPLAY BUFFER STATUS.
00944  M01S00555.o26     +++|*
Line S00556 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00945  M02S00556.241l630 ---|*         USES   T1, T7, CM - CM+4.
00946  M01S00321.241l630 +++|*         USES   T1, CM - CM+4.
00947  M01S00557.o26     +++|*
00948  M01S00558.o26     +++|*         CALLS  D6S, DOL.
00949  M01S00322.241l630 +++|*
00950  M01S00323.241l630 +++|*         MACROS CFNC, DISPLA, MONITOR.
00951  M01S00559.o26     +++|
00952  M01S00560.o26     +++|
00953  M01S00561.o26     +++| DBS      SUBR               ENTRY/EXIT
Line S00562 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00954  M02S00562.241l630 ---|          LDN    4           SET REPEAT COUNT
Line S00563 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00563.241l630 ---|          STD    T7
Line S00564 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00956  M02S00564.241l630 ---|
Line S00565 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00957  M02S00565.241l630 ---| DBS1     LDD    IO          CHECK IF I/O BUSY
Line S00566 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00958  M02S00566.241l630 ---|          ZJN    DBS2        IF I/O NOT BUSY
Line S00567 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00959  M02S00567.241l630 ---|
Line S00568 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00960  M02S00568.241l630 ---|          DISPLA 6000,7670,(   CIO BUSY.)
Line S00569 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00961  M02S00569.241l630 ---|
Line S00570 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00962  M02S00570.241l630 ---| DBS2     DISPLA 6000,7656,(O26.   FILE = )
Line S00571 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00571.241l630 ---|
00964  M01S00324.241l630 +++|          CFNC   SLSF
00965  M01S00325.241l630 +++|          LDD    IO
00966  M01S00326.241l630 +++|          ZJN    DBS1        IF I/O NOT BUSY
00967  M01S00327.241l630 +++|          DISPLA CH04,HL02,(CIO BUSY.)
00968  M01S00328.241l630 +++| DBS1     DISPLA CH01,HL01,(O26.   FILE = )
00969  M01S00572.o26     +++|          LDD    RA          READ FILE NAME
00970  M01S00573.o26     +++|          SHN    6
00971  M01S00574.o26     +++|          ADN    FET
00972  M01S00575.o26     +++|          CRD    CM
00973  M01S00576.o26     +++|          LDN    4           DISPLAY FILE NAME
00974  M01S00577.o26     +++|          OAM    CM,CH
00975  M01S00578.o26     +++|          LDM    CRSB        CHECK WRITE LOCKOUT
Line S00579 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00976  M02S00579.241l630 ---|          ZJN    DBS2.1      IF WRITE IS ALLOWED
Line S00580 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00580.241l630 ---|          LDN    1R*         DISPLAY ASTERISK
Line S00581 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00581.241l630 ---| DBS2.1   OAN    CH
00979  M01S00329.241l630 +++|          ZJN    DBS2        IF WRITE ALLOWED
00980  M01S00330.241l630 +++|          LDN    1R*
00981  M01S00331.241l630 +++| DBS2     OAN    CH+40
00982  M01S00582.o26     +++|          LDD    CM+4        DISPLAY STATUS
00983  M01S00583.o26     +++|          RJM    D6S
Line S00584 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00584.241l630 ---|
00985  M01S00585.o26     +++|          DISPLA ,,(RS=)     DISPLAY CURRENT RECORD SIZE
Line S00586 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00586.241l630 ---|
00987  M01S00587.o26     +++|          LDD    IN
00988  M01S00588.o26     +++|          SBD    FT
00989  M01S00589.o26     +++|          SHN    14
00990  M01S00590.o26     +++|          ADD    IN+1
00991  M01S00591.o26     +++|          SBD    FT+1
Line S00592 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00992  M02S00592.241l630 ---|          RJM    D6S         DISPLAY WORD COUNT IN BUFFER
Line S00593 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00993  M02S00593.241l630 ---|          RJM    CBC         COMPARE AGAINST ORIGINAL BUFFER SIZE
00994  M01S00332.241l630 +++|          SHN    14          PRESERVE PRU COUNT
00995  M01S00333.241l630 +++|          STD    CM
00996  M01S00334.241l630 +++|          SHN    6           DISPLAY WORD COUNT IN BUFFER
00997  M01S00335.241l630 +++|          RJM    D6S
00998  M01S00336.241l630 +++|          LDD    CM          COMPARE WITH ORIGINAL BUFFER SIZE
00999  M01S00594.o26     +++|          LMM    TIOG
01000  M01S00595.o26     +++|          ZJN    DBS3        IF SAME FILE PRU SIZE
Line S00596 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00596.241l630 ---|
01002  M01S00597.o26     +++|          DISPLA ,,(**.)     SET WARNING IF FILE CHANGED PRU SIZE
Line S00598 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00598.241l630 ---|
01004  M01S00599.o26     +++| DBS3     DISPLA ,,(CM=)
Line S00600 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00600.241l630 ---|
01006  M01S00601.o26     +++|          LDD    LM          COMPUTE STORAGE
01007  M01S00602.o26     +++|          SBD    IN
01008  M01S00603.o26     +++|          SHN    14
01009  M01S00604.o26     +++|          ADD    LM+1
01010  M01S00605.o26     +++|          SBD    IN+1
01011  M01S00606.o26     +++|          RJM    D6S         DISPLAY STORAGE
01012  M01S00607.o26     +++|          LDD    CP          READ MESSAGE 2
01013  M01S00608.o26     +++|          ADN    MS2W
01014  M01S00609.o26     +++|          STD    T1
01015  M01S00610.o26     +++|          CRD    CM
01016  M01S00611.o26     +++|          LDD    CM
01017  M01S00612.o26     +++|          NJN    DBS4        IF SET
01018  M01S00613.o26     +++|          LDD    CP          READ MESSAGE 1
01019  M01S00614.o26     +++|          ADN    MS1W
01020  M01S00615.o26     +++|          CRD    CM
01021  M01S00616.o26     +++|          STD    T1
01022  M01S00617.o26     +++| DBS4     LDN    2           OUTPUT COORDINATES
01023  M01S00618.o26     +++|          OAM    DBSA,CH
01024  M01S00619.o26     +++|          LDD    T1          DISPLAY MESSAGE
01025  M01S00620.o26     +++|          RJM    DOL
01026  M01S00621.o26     +++|          LDD    CP          READ JOB CONTROL
01027  M01S00622.o26     +++|          ADN    STSW
01028  M01S00623.o26     +++|          CRD    CM
01029  M01S00624.o26     +++|          LDD    CM+2        CHECK ROLLOUT FLAG
01030  M01S00625.o26     +++|          LPN    1
01031  M01S00626.o26     +++|          ZJN    DBS5        IF NOT SET
Line S00627 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00627.241l630 ---|
Line S00628 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01033  M02S00628.241l630 ---|          DISPLA 6300,7740-24,(ROLLOUT.)
Line S00629 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01034  M02S00629.241l630 ---|
Line S00630 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01035  M02S00630.241l630 ---|          UJN    DBS6        CHECK FOR END OF DISPLAY CYCLE
Line S00631 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01036  M02S00631.241l630 ---|
Line S00632 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01037  M02S00632.241l630 ---| DBS5     LDD    LM          COMPUTE STORAGE
Line S00633 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00633.241l630 ---|          SBD    IN
Line S00634 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01039  M02S00634.241l630 ---|          SHN    14
Line S00635 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01040  M02S00635.241l630 ---|          ADD    LM+1
Line S00636 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01041  M02S00636.241l630 ---|          SBD    IN+1
Line S00637 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01042  M02S00637.241l630 ---|          SBN    40
Line S00638 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00638.241l630 ---|          MJN    DBS6        IF BUFFER OVERFLOWED
Line S00639 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01044  M02S00639.241l630 ---|          LDM    CRSA
Line S00640 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00640.241l630 ---|          NJN    DBS7        IF RECORD READ NOT TOO LONG
Line S00641 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01046  M02S00641.241l630 ---| DBS6     SOD    T7
Line S00642 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00642.241l630 ---|          SHN    1
Line S00643 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00643.241l630 ---|          LMD    CC
Line S00644 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00644.241l630 ---|          LPN    6
Line S00645 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00645.241l630 ---|          ZJN    DBS7        IF END OF DISPLAY CYCLE
Line S00646 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00646.241l630 ---|          LJM    DBS1        LOOP
Line S00647 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00647.241l630 ---|
Line S00648 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00648.241l630 ---| DBS7     LDD    CP          READ CP STATUS
Line S00649 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00649.241l630 ---|          ADN    STSW
Line S00650 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00650.241l630 ---|          CRD    CM
Line S00651 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01056  M02S00651.241l630 ---|          LDD    CM+1        CHECK ERROR FLAG
Line S00652 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00652.241l630 ---|          ZJN    DBS8        IF NOT SET
Line S00653 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00653.241l630 ---|          LDD    CM          CHECK STATUS
Line S00654 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00654.241l630 ---|          LPN    37
Line S00655 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00655.241l630 ---|          SBN    2
Line S00656 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00656.241l630 ---|          PJN    DBS8        IF .GE. 2 PP-S ASSIGNED
Line S00657 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00657.241l630 ---|          LDN    0           CLEAR I/O BUSY
01063  M01S00337.241l630 +++|          DISPLA CH25,HL02,(ROLLOUT.),H
01064  M01S00338.241l630 +++| DBS5     LDD    CM+1
01065  M01S00339.241l630 +++|          ZJN    DBS8        IF ERROR FLAG NOT SET
01066  M01S00340.241l630 +++|          SOD    CM
01067  M01S00341.241l630 +++|          LPN    37
01068  M01S00342.241l630 +++|          NJN    DBS8        IF .GT. 1 PP ASSIGNED
01069  M01S00658.o26     +++|          STD    IO
01070  M01S00659.o26     +++|          LDN    ZERL
01071  M01S00660.o26     +++|          CRD    CM          CLEAR RANDOM ACCESS
01072  M01S00661.o26     +++|          LDD    RA
01073  M01S00662.o26     +++|          SHN    6
01074  M01S00663.o26     +++|          ADN    FET+6
01075  M01S00664.o26     +++|          CWD    CM
01076  M01S00665.o26     +++|          MONITOR CEFM       CLEAR ERROR FLAG
Line S00666 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01077  M02S00666.241l630 ---|
01078  M01S00667.o26     +++| DBS8     LJM    DBSX        RETURN
01079  M01S00668.o26     +++|
Line S00669 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01080  M02S00669.241l630 ---| DBSA     CON    6000,7740-12
01081  M01S00343.241l630 +++|
01082  M01S00344.241l630 +++| DBSA     CON    CH01,HL04
01083  M01S00670.o26     +++| DKB      SPACE  4,20
01084  M01S00671.o26     +++|**        DKB - DISPLAY KEYBOARD BUFFER.
01085  M01S00672.o26     +++|*
01086  M01S00673.o26     +++|*         ENTRY  (KM) = ADDRESS OF KEYBOARD MESSAGE.  (IF (KM) = 0,
01087  M01S00674.o26     +++|*                            NO MESSAGE.)
01088  M01S00675.o26     +++|*                (KI) = KEYBOARD INDEX.
01089  M01S00345.241l630 +++|*                (KD) = 0 IF KEYBOARD BUFFER NOT DISPLAYED.
01090  M01S00676.o26     +++|*
Line S00677 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00677.o2611   ---|*         USES   T1, YC.
01092  M01S00005.o2611   +++|*         USES   T1, T3, YC.
01093  M01S00678.o26     +++|*
Line S00679 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01094  M02S00679.241l630 ---|*         CALLS  DDN, DKL.
Line S00346 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01095  M02S00346.o2611   ---|*         CALLS  DDN, DKL, ERL.
01096  M01S00006.o2611   +++|*         CALLS  DKL, ERL, HIL.
01097  M01S00347.241l630 +++|*
01098  M01S00348.241l630 +++|*         MACROS CFNC, DFIM, DISPLA.
01099  M01S00680.o26     +++|
01100  M01S00681.o26     +++|
01101  M01S00682.o26     +++| DKB      SUBR               ENTRY/EXIT
Line S00683 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01102  M02S00683.241l630 ---|          LDN    2           OUTPUT MESSAGE COORDINATES
Proceed to Part 1