User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:o26

Deck O26

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.o26     +++|          IDENT  O26,O26
00002  M00S00002.o26     +++|          PERIPH
00003  M00S00003.o26     +++|          BASE   MIXED
00004  M00S00004.o26     +++|          SST    MDC,RDS
00005  M00S00005.o26     +++|*COMMENT  O26 - CONSOLE TEXT EDITOR.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.o26     +++|          TITLE  O26 - CONSOLE TEXT EDITOR.
00009  M00S00008.o26     +++| O26      SPACE  4,10
00010  M00S00009.o26     +++|***       O26 - CONSOLE TEXT EDITOR.
00011  M00S00010.o26     +++|*         D. A. CAHLANDER.   70/05/05.
00012  M00S00011.o26     +++|*         G. R. MANSFIELD.   70/10/25.
00013  M00S00012.o26     +++|*         D. A. CAHLANDER.   71/06/05.
00014  M00S00013.o26     +++|*         A. D. FORET.       74/12/05.
Line S00001 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00001.241l630 +++|*         P. D. HAAS.        84/02/08.
00016  M00S00014.o26     +++| DOC      SPACE  4,10
00017  M00S00015.o26     +++|***              O26 PROVIDES THE CAPABILITY TO CREATE AND EDIT A FILE
00018  M00S00016.o26     +++|*         FROM THE 6612 CONSOLE.  A CM BUFFER IS USED TO STORE AND
00019  M00S00017.o26     +++|*         EDIT THE BCD LINES BEFORE WRITING THE FILE.  THE CM
00020  M00S00018.o26     +++|*         BUFFER SIZE = FL - 140, AND ALL LINES OF A FILE MUST FIT
00021  M00S00019.o26     +++|*         IN THE BUFFER.
00022  M00S00020.o26     +++| OPERATOR SPACE  4,10
00023  M00S00021.o26     +++|***       OPERATOR MESSAGES.
00024  M00S00022.o26     +++|*
00025  M00S00023.o26     +++|*
00026  M00S00024.o26     +++|*         *REQUEST DISPLAY.  (O26)* = O26 IS WAITING FOR THE DISPLAY
00027  M00S00025.o26     +++|*         TO BE ASSIGNED.
00028  M00S00026.o26     +++|          TITLE  DIRECT CELL ALLOCATIONS AND ASSEMBLY CONSTANTS.
00029  M00S00027.o26     +++| DIRECT   SPACE  4,20
00030  M00S00028.o26     +++|****      DIRECT LOCATION ASSIGNMENTS.
00031  M00S00029.o26     +++|
00032  M00S00030.o26     +++|
Line S00002 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00002.241l630 +++| LL       EQU    15          LAST LINE POSITION STATUS
00034  M01S00003.241l630 +++| DA       EQU    16 - 17     DISPLAY ADDRESS
00035  M00S00031.o26     +++| AB       EQU    20 - 24     ASSEMBLY BUFFER (5 LOCATIONS)
00036  M00S00032.o26     +++| CA       EQU    25          CHARACTER ADDRESS
00037  M00S00033.o26     +++| XC       EQU    26          X-COORDINATE
00038  M00S00034.o26     +++| YC       EQU    27          Y-COORDINATE
00039  M00S00035.o26     +++| KE       EQU    30          KEYBOARD ENTRY
00040  M00S00036.o26     +++| KI       EQU    31          KEYBOARD INDEX
00041  M00S00037.o26     +++| KM       EQU    32          KEYBOARD MESSAGE
Line S00038 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00042  M01S00038.241l630 ---| FR       EQU    33          CONSTANT 40
00043  M01S00039.241l630 ---| CC       EQU    34          DISPLAY CYCLE COUNT
Line S00004 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00004.241l630 +++| KP       EQU    33          KEYBOARD PREVIOUS STATUS
00045  M01S00005.241l630 +++| DR       EQU    34          DISPLAY REFRESH STATUS
00046  M00S00040.o26     +++| LC       EQU    35          CHARACTER COUNT OF LINE
00047  M00S00041.o26     +++|
00048  M00S00042.o26     +++|*         MAINTAIN FOLLOWING ORDER.
00049  M00S00043.o26     +++|
00050  M00S00044.o26     +++| SI       EQU    36          SCAN INDEX
00051  M00S00045.o26     +++| UC       EQU    37          UPPER CASE FLAG
00052  M00S00046.o26     +++| IP       EQU    40 - 41     INSERT POSITION (2 LOCATIONS)
00053  M00S00047.o26     +++| HF       EQU    42          HOLD FLAG
00054  M00S00048.o26     +++|
00055  M00S00049.o26     +++| IF       EQU    43          INSERT FLAG
00056  M00S00050.o26     +++| DL       EQU    44          DISPLAY LENGTH
Line S00051 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00051.241l630 ---| NC       EQU    45          NUMBER OF CP-S (FOR *COMDSYS*)
Line S00006 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00006.241l630 +++| KD       EQU    45          KEYBOARD BUFFER DISPLAY STATUS
00059  M00S00052.o26     +++| SF       EQU    46          SCAN FLAG
00060  M00S00053.o26     +++| SC       EQU    47          SCAN NUMBER
00061  M00S00054.o26     +++|
00062  M00S00055.o26     +++| IO       EQU    57          I/O BUSY FLAG
00063  M00S00056.o26     +++| FT       EQU    60 - 61     FIRST ADDRESS OF BUFFER (2 LOCATIONS)
00064  M00S00057.o26     +++| IN       EQU    62 - 63     NEXT INPUT ADDRESS (2 LOCATIONS)
00065  M00S00058.o26     +++| OT       EQU    64 - 65     NEXT OUTPUT ADDRESS (2 LOCATIONS)
00066  M00S00059.o26     +++| LM       EQU    66 - 67     LIMIT ADDRESS OF BUFFER (2 LOCATIONS)
00067  M00S00060.o26     +++|****
00068  M00S00061.o26     +++| ASSEMBLY SPACE  4,10
00069  M00S00062.o26     +++|**        ASSEMBLY CONSTANTS.
00070  M00S00063.o26     +++|
00071  M00S00064.o26     +++|
00072  M00S00065.o26     +++| CH       EQU    CHDS        DISPLAY CHANNEL
00073  M00S00066.o26     +++| FET      EQU    10          ADDRESS OF FILE FET
00074  M00S00067.o26     +++| FETL     EQU    10          FET LENGTH
00075  M00S00068.o26     +++| SBUF     EQU    FET+FETL    ADDRESS OF CM SYNTAX BUFFER
00076  M00S00069.o26     +++|          TITLE  OVERLAY CONTROL AND MACRO DEFNITIONS.
00077  M00S00070.o26     +++| OVL      SPACE  4,20
00078  M00S00071.o26     +++|**        OVERLAY CONTROL.
00079  M00S00072.o26     +++|
00080  M00S00073.o26     +++|
00081  M00S00074.o26     +++| NAME     MICRO  1,, O26
Line S00075 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00082  M01S00075.261l700 ---| OVNG     MICRO  1,, GH      OVERLAY NUMBER GENERATOR
Line S00001 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00083  M01S00001.261l700 +++| OVNG     MICRO  1,, OP      OVERLAY NUMBER GENERATOR
00084  M00S00076.o26     +++| OVNB     MICRO  1,1, "OVNG" OVERLAY NAME BIAS MICRO
00085  M00S00077.o26     +++| OVNB     EQU    1R"OVNB"    OVERLAY NAME BIAS
00086  M00S00078.o26     +++|          NOREF  .L,.N
00087  M00S00079.o26     +++| .N       SET    0           OVERLAY NUMBER
00088  M00S00080.o26     +++| .N       MICRO  1,,
00089  M00S00081.o26     +++| .L       SET    *
00090  M00S00082.o26     +++| COMCMAC  SPACE  4,15
00091  M00S00083.o26     +++|*         MACRO DEFINITIONS AND INSTRUCTION CONSTANTS.
00092  M00S00084.o26     +++|
00093  M00S00085.o26     +++|
00094  M00S00086.o26     +++|*CALL     COMPMAC
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00001.v23l617 +++|*CALL     COMDMAC
00096  M00S00087.o26     +++|          SPACE  4,10
00097  M00S00088.o26     +++|**        COMMON DECKS.
00098  M00S00089.o26     +++|
00099  M00S00090.o26     +++|
00100  M00S00091.o26     +++|*CALL     COMSCPS
00101  M00S00092.o26     +++|*CALL     COMSPIM
Line S00001 Modification History
M01 (Added by) o2614
Seq #  *Modification Id* Act 
----------------------------+
00102  M01S00001.o2614   +++|*CALL     COMSSRT
00103  M00S00093.o26     +++| COMMAND  SPACE  4,20
00104  M00S00094.o26     +++|**        COMMAND - GENERATE COMMAND OVERLAY.
00105  M00S00095.o26     +++|*
00106  M00S00096.o26     +++|*
00107  M00S00097.o26     +++|*         COMMAND (SUBTITLE)
00108  M00S00098.o26     +++|*         ENTRY  *SUBTITLE* = COMMAND SUBTITLE.
00109  M00S00099.o26     +++|
00110  M00S00100.o26     +++|
00111  M00S00101.o26     +++|          PURGMAC COMMAND
00112  M00S00102.o26     +++| COMMAND  MACRO  TXT
00113  M00S00103.o26     +++|          LOCAL  A
00114  M00S00104.o26     +++|          QUAL
00115  M00S00105.o26     +++| .M       OVLN   .N
00116  M00S00106.o26     +++|          QUAL   O26".M"
00117  M00S00107.o26     +++|          TTL    O26/9".M" - TXT
00118  M00S00108.o26     +++|          TITLE
00119  M00S00109.o26     +++|          HERE
00120  M00S00110.o26     +++|          QUAL
00121  M00S00111.o26     +++|          USE    END         FORCE LITERALS*/
00122  M00S00112.o26     +++| A        EQU    *
00123  M00S00113.o26     +++| .N       SET    .N+1
00124  M00S00114.o26     +++| .N       MICRO  1,, ".M"
00125  M00S00115.o26     +++|          QUAL   O26".N"
00126  M00S00116.o26     +++|          IDENT  9".N",OVL   TXT
00127  M00S00117.o26     +++|          ORG    OVL
00128  M00S00118.o26     +++|*COMMENT  O26 - TXT
Line S00119 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00129  M01S00119.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00002 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00130  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00131  M00S00120.o26     +++|          QUAL
Line S00007 Modification History
M01 (Added by) 241l630
M02 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00007.261l700 ---|          IFC    NE,*".N"*GB*,1
Line S00002 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00002.261l700 +++|          IFC    NE,*".N"*OB*,1
00134  M00S00121.o26     +++| .L       MAX    A,.L
00135  M00S00122.o26     +++|          QUAL   *
00136  M00S00123.o26     +++| COMMAND  ENDM
Line S00124 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00137  M01S00124.241l630 ---| DISPLA   SPACE  4,20
00138  M01S00125.241l630 ---|**        DISPLA - DISPLAY DATA.
00139  M01S00126.241l630 ---|*
00140  M01S00127.241l630 ---|*
00141  M01S00128.241l630 ---|*         DISPLA X,Y,(TEXT)
00142  M01S00129.241l630 ---|*         ENTRY  *X* = X-COORDINATE.
00143  M01S00130.241l630 ---|*                *Y* = Y-COORDINATE.
00144  M01S00131.241l630 ---|*                *TEXT* = DISPLAY TEXT.
00145  M01S00132.241l630 ---|*         IF COORDINATES ARE NOT PRESENT, DISPLAY TEXT AT CURRENT
00146  M01S00133.241l630 ---|*         POSITION.
00147  M01S00134.241l630 ---|
00148  M01S00135.241l630 ---|
00149  M01S00136.241l630 ---|          PURGMAC DISPLA
00150  M01S00137.241l630 ---| DISPLA   MACRO  X,Y,T
00151  M01S00138.241l630 ---|          LOCAL  I,J,K
00152  M01S00139.241l630 ---|          QUAL
00153  M01S00140.241l630 ---| K        MICRO  1,,/T/
00154  M01S00141.241l630 ---| .1       MICCNT K
00155  M01S00142.241l630 ---| I        SET    .1+1
00156  M01S00143.241l630 ---| I        SET    I/2
00157  M01S00144.241l630 ---|          LDN    K
00158  M01S00145.241l630 ---|          OAM    J,CH
00159  M01S00146.241l630 ---|          QUAL   *
00160  M01S00147.241l630 ---| DIS      RMT
00161  M01S00148.241l630 ---|          QUAL
00162  M01S00149.241l630 ---| J        BSS    0
00163  M01S00150.241l630 ---|          IFNE   X,,2
00164  M01S00151.241l630 ---|          CON    X
00165  M01S00152.241l630 ---| I        SET    I+1
00166  M01S00153.241l630 ---|          IFNE   Y,,2
00167  M01S00154.241l630 ---|          CON    Y
00168  M01S00155.241l630 ---| I        SET    I+1
00169  M01S00156.241l630 ---|          DATA   H/"K"/
00170  M01S00157.241l630 ---| K        EQU    I
00171  M01S00158.241l630 ---|          QUAL   *
00172  M01S00159.241l630 ---| DIS      RMT
00173  M01S00160.241l630 ---| DISPLA   ENDM
Line S00008 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00161.o26     +++| ENTER    SPACE  4,15
00284  M00S00162.o26     +++|**        ENTER - ENTER SPECIAL SYNTAX.
00285  M00S00163.o26     +++|*
00286  M00S00164.o26     +++|*
00287  M00S00165.o26     +++|*ADDR     ENTER  (SYNTAX)
00288  M00S00166.o26     +++|*         ENTRY  *ADDR* = OVERLAY ENTRY ADDRESS.
00289  M00S00167.o26     +++|*                *SYNTAX* = SYNTAX OF COMMAND.
00290  M00S00168.o26     +++|
00291  M00S00169.o26     +++|
00292  M00S00170.o26     +++|          PURGMAC ENTER
00293  M00S00171.o26     +++|          MACRO  ENTER,ADDR,SYNTAX
00294  M00S00172.o26     +++|          LOCAL  A
00295  M00S00173.o26     +++| A        SET    *
00296  M00S00174.o26     +++|          CON    ADDR/10000+100*OVNB,ADDR-ADDR/10000*10000
00297  M00S00175.o26     +++|          ORG    *O-2
00298  M00S00176.o26     +++| ENTER    MICRO  1,, SYNTAX
00299  M00S00177.o26     +++| ESS      MICCNT ENTER
00300  M00S00178.o26     +++| ESS      DECMIC ESS
00301  M00S00179.o26     +++|          LOC    A
00302  M00S00180.o26     +++|          VFD    42/"ESS"L_SYNTAX,18/ADDR
00303  M00S00181.o26     +++|          LOC    A+1
00304  M00S00182.o26     +++| ENTER    ENDM
00305  M00S00183.o26     +++| ENTRY    SPACE  4,15
00306  M00S00184.o26     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00307  M00S00185.o26     +++|*
00308  M00S00186.o26     +++|*
00309  M00S00187.o26     +++|*NAME     ENTRY  ADDR
00310  M00S00188.o26     +++|*         ENTRY  *NAME* = ENTRY POINT NAME.
00311  M00S00189.o26     +++|*                *ADDR* = ADDRESS OF ENTRY POINT.
00312  M00S00190.o26     +++|*                IF *ADDR* IS NOT PRESENT, ADDRESS OF ENTRY
00313  M00S00191.o26     +++|*                POINT IS THE CURRENT VALUE OF THE ORIGIN COUNTER.
00314  M00S00192.o26     +++|
00315  M00S00193.o26     +++|
00316  M00S00194.o26     +++|          PURGMAC ENTRY
00317  M00S00195.o26     +++|          MACRO  ENTRY,NAME,ADDR
00318  M00S00196.o26     +++|          IFC    NE,*ADDR**
00319  M00S00197.o26     +++|          RMT
00320  M00S00198.o26     +++|          QUAL
00321  M00S00199.o26     +++| NAME     EQU    .N*10000B+/O26".N"/ADDR
00322  M00S00200.o26     +++|          QUAL   *
00323  M00S00201.o26     +++|          RMT
00324  M00S00202.o26     +++|          ELSE   4
00325  M00S00203.o26     +++| NAME     BSS    0
00326  M00S00204.o26     +++|          QUAL
00327  M00S00205.o26     +++| NAME     EQU    .N*10000B+/O26".N"/NAME
00328  M00S00206.o26     +++|          QUAL   *
00329  M00S00207.o26     +++| ENTRY    ENDM
00330  M00S00208.o26     +++| JMP      SPACE  4,10
00331  M00S00209.o26     +++|**        JMP - THREADED JUMP.
00332  M00S00210.o26     +++|*
00333  M00S00211.o26     +++|*
00334  M00S00212.o26     +++|*         JMP    ADDR
00335  M00S00213.o26     +++|*         ENTRY  *ADDR* = JUMP ADDRESS.
00336  M00S00214.o26     +++|
00337  M00S00215.o26     +++|
00338  M00S00216.o26     +++|          PURGMAC JMP
00339  M00S00217.o26     +++| JMP      MACRO  ADDR
00340  M00S00218.o26     +++|          IF     -DEF,.ADDR,2
00341  M00S00219.o26     +++|          NOREF  .ADDR
00342  M00S00220.o26     +++| .ADDR    MAX    ADDR,*-40
00343  M00S00221.o26     +++|          IFGT   .ADDR,*-40
00344  M00S00222.o26     +++|          UJN    .ADDR
00345  M00S00223.o26     +++| .ADDR    SET    *-1
00346  M00S00224.o26     +++|          ELSE   2
00347  M00S00225.o26     +++| .ADDR    SET    *
00348  M00S00226.o26     +++|          LJM    ADDR
00349  M00S00227.o26     +++| JMP      ENDM
00350  M00S00228.o26     +++| OVLN     SPACE  4,15
00351  M00S00229.o26     +++|**        OVLN - GENERATE OVERLAY NUMBER.
00352  M00S00230.o26     +++|*
00353  M00S00231.o26     +++|*
00354  M00S00232.o26     +++|*A        OVLN   B
00355  M00S00233.o26     +++|*         ENTRY  *B* = OVERLAY NUMBER.
00356  M00S00234.o26     +++|*         EXIT   *A* = MICRO OF OVERLAY NAME.
00357  M00S00235.o26     +++|
00358  M00S00236.o26     +++|
00359  M00S00237.o26     +++|          PURGMAC OVLN
00360  M00S00238.o26     +++|          MACRO  OVLN,A,B
00361  M00S00239.o26     +++|          LOCAL  C
00362  M00S00240.o26     +++| C        SET    B/1R4
00363  M00S00241.o26     +++| C        MICRO  C+1,1, "OVNG"
00364  M00S00242.o26     +++| A        MICRO  B-C*1R4+1,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ01234
00365  M00S00243.o26     +++| A        MICRO  1,, "C""A"
00366  M00S00244.o26     +++| OVLN     ENDM
00367  M00S00245.o26     +++|          TITLE  OVERLAY LOADER.
Line S00117 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00368  M01S00117.241l630 +++|          TITLE  SUBROUTINES / MESSAGES.
00369  M00S00246.o26     +++| LOV      SPACE  4,20
00370  M00S00247.o26     +++|**        LOV - LOAD OVERLAY.
00371  M00S00248.o26     +++|*
00372  M00S00249.o26     +++|*         ENTRY  (A) = BITS 17-12 OVERLAY INDEX.
00373  M00S00250.o26     +++|*                      BITS 11-00 ENTRY ADDRESS.
Line S00251 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00374  M01S00251.241l630 ---|*                (LA) = OVERLAY LOAD ADDRESS.
00375  M00S00252.o26     +++|*
00376  M00S00253.o26     +++|*         USES   T0, AB - AB+4.
00377  M00S00254.o26     +++|*
00378  M00S00255.o26     +++|*         CALLS  LPP.
00379  M00S00256.o26     +++|
00380  M00S00257.o26     +++|
00381  M00S00258.o26     +++|          QUAL
00382  M00S00259.o26     +++|          USE    END
00383  M00S00260.o26     +++|          USE    PRS
00384  M00S00261.o26     +++|          USE    LOV
00385  M00S00262.o26     +++| PRSA     BSS    0
00386  M00S00263.o26     +++|          LOC    MSFW
Line S00264 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00387  M01S00264.241l630 ---|          CON    0
00388  M00S00265.o26     +++|
00389  M00S00266.o26     +++| LOV      STM    LOVA        SET ENTRY
00390  M00S00267.o26     +++|          SHN    -14
00391  M00S00268.o26     +++|          ZJN    LOV1        IF RESIDENT
00392  M00S00269.o26     +++|          STD    T0
00393  M00S00270.o26     +++|          SHN    1
00394  M00S00271.o26     +++|          SCN    77
00395  M00S00272.o26     +++|          LMD    T0
00396  M00S00273.o26     +++|          SCN    40
Line S00274 Modification History
M01 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00397  M01S00274.261l700 ---|          ADC    3R9GA-1
Line S00003 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00003.261l700 +++|          ADC    3R9OA-1
00399  M00S00275.o26     +++|          STM    LOVB+4
00400  M00S00276.o26     +++|          SHN    -14
00401  M00S00277.o26     +++|          STM    LOVB+3
00402  M00S00278.o26     +++|          SHN    6
Line S00279 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00403  M01S00279.241l630 ---|          LMM    -5,LA
Line S00118 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00404  M01S00118.241l630 +++|          LMM    OVL-5
00405  M00S00280.o26     +++|          SHN    6
00406  M00S00281.o26     +++|          LMM    LOVB+4
00407  M00S00282.o26     +++|          SHN    6
Line S00283 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00408  M01S00283.241l630 ---|          LMM    -4,LA
Line S00119 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00409  M01S00119.241l630 +++|          LMM    OVL-4
00410  M00S00284.o26     +++|          ZJN    LOV1        IF PROGRAM IN CORE
00411  M00S00285.o26     +++|          RJM    LPP         LOAD PP PROGRAM
00412  M00S00286.o26     +++| LOV1     LDN    ZERL        CLEAR ASSEMBLY BUFFER
00413  M00S00287.o26     +++|          CRD    AB
00414  M00S00288.o26     +++|          LDC    KBI8        CLEAR OVERLAY LOAD
00415  M00S00289.o26     +++|          STM    KBIA
Line S00290 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00416  M01S00290.241l630 ---|          LDC    OVL
00417  M01S00291.241l630 ---|          STD    LA
Line S00120 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00418  M01S00120.241l630 +++|          AOD    DR
00419  M00S00292.o26     +++|          LDD    CA          (A) = CHARACTER ADDRESS
00420  M00S00293.o26     +++|          LJM    *
00421  M00S00294.o26     +++| LOVA     EQU    *-1
00422  M00S00295.o26     +++|
Line S00296 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00423  M01S00296.241l630 ---| LOVB.    EQU    *O
00424  M01S00297.241l630 ---| LOVB     VFD    60/3L1DL
Line S00121 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00425  M01S00121.241l630 +++|
00426  M01S00122.241l630 +++| LOVB     VFD    24/3L1DL,12/CH,24/0
00427  M00S00298.o26     +++| LPP      SPACE  4,20
00428  M00S00299.o26     +++|**        LPP - LOAD PP PROGRAM.
00429  M00S00300.o26     +++|*
Line S00301 Modification History
M01 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00430  M01S00301.ns2708  ---|*         ENTRY  (LOVB - LOVB+4) = PP PROGRAM NAME.
Line S00302 Modification History
M01 (Removed by) 241l630
M02 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00302.ns2708  ---|*                (LA) = OVERLAY LOAD ADDRESS.
Line S00303 Modification History
M01 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00432  M01S00303.ns2708  ---|*
00433  M01S00304.ns2708  ---|*         USES   T1, CM - CM+4.
Line S00123 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00123.ns2708  ---|*
00435  M02S00124.ns2708  ---|*         MACROS CFNC, DFIM, MONITOR.
Line S00001 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00305.o26     +++|
00446  M00S00306.o26     +++|
00447  M00S00307.o26     +++| LPP      SUBR               ENTRY/EXIT
Line S00010 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00448  M01S00010.ns2708  +++|          EXECUTE 1DL,=
Line S00308 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00449  M01S00308.241l630 ---|          LDD    LA          SET LOAD ADDRESS
00450  M01S00309.241l630 ---|          SBN    5
00451  M01S00310.241l630 ---|          STM    LPPC
00452  M01S00311.241l630 ---|          LDM    O26A        SET DISPLAY CHANNEL
00453  M01S00312.241l630 ---|          LPN    77
00454  M01S00313.241l630 ---|          STM    LOVB+2
00455  M00S00314.o26     +++|          LDD    MA
00456  M00S00315.o26     +++|          CWM    LOVB,ON
00457  M00S00316.o26     +++|          LDN    1           DISABLE QUEUING OF PP REQUEST
00458  M00S00317.o26     +++|          STD    CM+1
00459  M00S00318.o26     +++|          MONITOR RPPM       REQUEST 1DL
00460  M00S00319.o26     +++|          LDD    CM+1        CHECK CALL
00461  M00S00320.o26     +++|          STM    LPPA
00462  M00S00321.o26     +++|          NJN    LPP1        IF PP AVAILABLE
00463  M00S00322.o26     +++|          LDC    ERRC        MESSAGE = *SYSTEM BUSY - PPU.*
00464  M00S00323.o26     +++|          STD    KM
00465  M00S00324.o26     +++|          LJM    ABT1
00466  M00S00325.o26     +++|
00467  M00S00326.o26     +++|*         WAIT FOR 1DL.
00468  M00S00327.o26     +++|
00469  M00S00328.o26     +++| LPP1     RJM    KBIA        SET RE-ENTRY
Line S00011 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00470  M01S00011.ns2708  +++|          DFIM   (CON SDCF),*+1
00471  M01S00012.ns2708  +++|          LDC    DDCF        DESELECT DISPLAY
00472  M01S00013.ns2708  +++|          CFNC
00473  M00S00329.o26     +++|          LDC    **          READ PP INPUT REGISTER
00474  M00S00330.o26     +++| LPPA     EQU    *-1
00475  M00S00331.o26     +++|          CRD    CM
00476  M00S00332.o26     +++|          LDD    CM+1        CHECK INPUT REGISTER
00477  M00S00333.o26     +++|          SCN    37
00478  M00S00334.o26     +++|          SHN    6
00479  M00S00335.o26     +++|          LMD    CM
00480  M00S00336.o26     +++|          LMC    3RL1D
00481  M00S00337.o26     +++|          ZJN    LPP2        IF *1DL*
00482  M00S00338.o26     +++|          SHN    14
00483  M00S00339.o26     +++|          LMN    1R1
Line S00340 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00484  M01S00340.241l630 ---|          NJN    LPP4.1      IF *1DL* NOT LOADING
Line S00125 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00485  M01S00125.241l630 +++|          NJN    LPP5        IF *1DL* NOT LOADING
00486  M00S00341.o26     +++| LPP2     LDD    CM+2
00487  M00S00342.o26     +++|          LMC    7777
00488  M00S00343.o26     +++|          ZJN    LPP3        IF TRANSMISSION READY
Line S00014 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00489  M01S00014.ns2708  +++|          DCN    CH+40
00490  M01S00015.ns2708  +++|          CCF    *+2,CH
00491  M00S00344.o26     +++|          LDC    ERRB        MESSAGE = *SYSTEM BUSY - DISK.*
00492  M00S00345.o26     +++|          LJM    KIC         INCOMPLETE ENTRY
00493  M00S00346.o26     +++|
00494  M00S00347.o26     +++|*         INPUT OVERLAY.
00495  M00S00348.o26     +++|
Line S00349 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00496  M01S00349.241l630 ---| LPP3     FNC    0,CH        CLEAR DISPLAY
Line S00126 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00126.ns2708  ---|          DFIM   (CON SDCF),*+1
00498  M02S00127.ns2708  ---| LPP3     LDC    DDCF        DESELECT DISPLAY
00499  M02S00128.ns2708  ---|          CFNC
Line S00350 Modification History
M01 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00500  M01S00350.ns2708  ---|          LDD    TH          DELAY
Line S00016 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00501  M01S00016.ns2708  +++| LPP3     LDD    TH          DELAY
00502  M00S00351.o26     +++|          SBN    1
00503  M00S00352.o26     +++|          NJN    *-1         IF DELAY NOT ELAPSED
00504  M00S00353.o26     +++|          DCN    CH+40
00505  M00S00354.o26     +++|*         LDN    0           SET READY RECEIVE
00506  M00S00355.o26     +++|          STD    CM+2
00507  M00S00356.o26     +++|          LDM    LPPA
00508  M00S00357.o26     +++|          CWD    CM
00509  M00S00358.o26     +++|          ACN    CH
00510  M00S00359.o26     +++|          LCN    0           SET TIMER
00511  M00S00360.o26     +++|          STD    T1
Line S00361 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00512  M01S00361.241l630 ---| LPP4     BSS    0
00513  M01S00362.241l630 ---| LPPB     FJM    LPP5,CH     IF CHANNEL FULL
Line S00129 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00514  M01S00129.241l630 +++| LPP4     FJM    LPP6,CH     IF CHANNEL FULL
00515  M00S00363.o26     +++|          SOD    T1
00516  M00S00364.o26     +++|          NJN    LPP4        IF CHANNEL NOT TIMED OUT
Line S00365 Modification History
M01 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00517  M01S00365.ns2708  ---|          DCN    CH+40
Line S00017 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00518  M01S00017.ns2708  +++| LPP5     DCN    CH+40
Line S00366 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00519  M01S00366.241l630 ---| LPP4.1   LJM    ABT         ABORT
00520  M01S00367.241l630 ---|
00521  M01S00368.241l630 ---| LPP5     LCN    0           INPUT OVERLAY
00522  M01S00369.241l630 ---|          IAM    OVL-5,CH
00523  M01S00370.241l630 ---| LPPC     EQU    *-1
Line S00130 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00130.241l630 +++|          CCF    *+2,CH
Line S00131 Modification History
M01 (Added by) 241l630
M02 (Removed by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00131.ns2708  ---| LPP5     LJM    ABT         ABORT
Line S00018 Modification History
M01 (Added by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00018.ns2708  +++|          LJM    ABT         ABORT
Line S00132 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00527  M01S00132.241l630 +++|
00528  M01S00133.241l630 +++| LPP6     LCN    0           INPUT OVERLAY
00529  M01S00134.241l630 +++|          IAM    OVL-5,CH
00530  M00S00371.o26     +++|          LDD    KM          CHECK MESSAGE
00531  M00S00372.o26     +++|          LMC    ERRB
Line S00373 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00532  M01S00373.241l630 ---|          NJN    LPP6        IF NOT *SYSTEM BUSY - DISK.*
Line S00135 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00533  M01S00135.241l630 +++|          CCF    *+2,CH
00534  M01S00136.241l630 +++|          NJN    LPP7        IF NOT *DISK BUSY.*
00535  M00S00374.o26     +++|*         LDN    0           CLEAR KEYBOARD MESSAGE
00536  M00S00375.o26     +++|          STD    KM
Line S00376 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00537  M01S00376.241l630 ---| LPP6     LJM    LPPX        RETURN
Line S00137 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00377.o26     +++| ERR      SPACE  4,15
00595  M00S00378.o26     +++|**        ERR - ERROR MESSAGES.
00596  M00S00379.o26     +++|
00597  M00S00380.o26     +++|
00598  M00S00381.o26     +++| ERRA     DATA   C*FORMAT ERROR.*
00599  M00S00382.o26     +++|
00600  M00S00383.o26     +++| ERRB     DATA   C*DISK BUSY.*
00601  M00S00384.o26     +++|
00602  M00S00385.o26     +++| ERRC     DATA   C*PP BUSY.*
00603  M00S00386.o26     +++|
00604  M00S00387.o26     +++| ERRD     DATA   C*REPEAT ENTRY.*
00605  M00S00388.o26     +++|
Line S00389 Modification History
M01 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
00606  M01S00389.o2611   ---| ERRE     DATA   C*RECORD TOO LONG.*
Line S00001 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00390.o26     +++|
Line S00391 Modification History
M01 (Removed by) ns2735
Seq #  *Modification Id* Act 
----------------------------+
00612  M01S00391.ns2735  ---| ERRF     DATA   C*WRITE ON READ-ONLY FILE.*
Line S00001 Modification History
M01 (Added by) ns2735
Seq #  *Modification Id* Act 
----------------------------+
00613  M01S00001.ns2735  +++| ERRF     DATA   C*CANNOT PERFORM I/O ON FILE.*
00614  M01S00002.ns2735  +++|
00615  M00S00392.o26     +++|
00616  M00S00393.o26     +++|          ERRNG  PPFW-*      IF PP RESIDENT MEMORY OVERFLOW
00617  M00S00394.o26     +++|          LOC    *O
00618  M00S00395.o26     +++| PRSAL    EQU    *-PRSA
Line S00396 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00619  M01S00396.241l630 ---|
00620  M01S00397.241l630 ---|          OVERFLOW           CHECK FOR *PRESET* MEMORY OVERFLOW
00621  M00S00398.o26     +++|          TITLE  MAIN PROGRAM.
00622  M00S00399.o26     +++| O26      SPACE  4,20
00623  M00S00400.o26     +++|**        O26 - MAIN PROGRAM.
00624  M00S00401.o26     +++|
00625  M00S00402.o26     +++|
00626  M00S00403.o26     +++|          ORG    PPFW
Line S00404 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00627  M01S00404.241l630 ---| O26      RJM    PRS         PRESET PROGRAM
00628  M01S00405.241l630 ---| O261     RJM    SYS         DISPLAY SYSTEM STATUS
Line S00002 Modification History
M01 (Added by) v23l617
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00002.241l630 ---|          DCN    CH+40
Line S00406 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00630  M01S00406.241l630 ---| O26A     FNC    7000,CH     SELECT LEFT SCREEN, 64 CHARACTERS/LINE
00631  M01S00407.241l630 ---|          ACN    CH
00632  M01S00408.241l630 ---|          RJM    DBS         DISPLAY BUFFER STATUS
00633  M01S00409.241l630 ---|          RJM    DKB         DISPLAY KEYBOARD BUFFER
00634  M01S00410.241l630 ---|          DCN    CH+40
00635  M01S00411.241l630 ---|          RJM    DBF         DISPLAY BUFFER
00636  M01S00412.241l630 ---|          AOD    CC          ADVANCE CYCLE COUNT
Line S00193 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00413.o26     +++|          RJM    KBI         KEYBOARD INPUT
00664  M00S00414.o26     +++|          RJM    TIO         TRY I/O
Line S00415 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00665  M01S00415.241l630 ---|          RJM    PSS         PAUSE FOR SYSTEM
00666  M01S00416.241l630 ---|          UJN    O261        LOOP
Line S00219 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00667  M01S00219.241l630 +++| O266     RJM    PSS         PAUSE FOR SYSTEM
00668  M01S00220.241l630 +++|          DFIM   (CON O261),*+1
00669  M01S00221.241l630 +++|          LJM    O262        LOOP
Line S00001 Modification History
M01 (Added by) o2612
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00417.o26     +++|
Line S00418 Modification History
M01 (Removed by) o2612
Seq #  *Modification Id* Act 
----------------------------+
00681  M01S00418.o2612   ---| DPP      MONITOR DPPM       DROP PP
Line S00011 Modification History
M01 (Added by) o2612
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00419.o26     +++|          LJM    PPR         EXIT TO PP RESIDENT
00693  M00S00420.o26     +++| DBF      SPACE  4,20
00694  M00S00421.o26     +++|**        DBF - DISPLAY BUFFER.
00695  M00S00422.o26     +++|*
00696  M00S00423.o26     +++|*         ENTRY  (OT - OT+1) = DISPLAY ADDRESS.
00697  M00S00424.o26     +++|*
Line S00425 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00698  M01S00425.241l630 ---|*         EXIT   (T6 - T7) = ADDRESS OF LAST LINE + 1.
00699  M01S00426.241l630 ---|*                (DL) = DISPLAY LENGTH.
Line S00222 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00427.o26     +++|*
00704  M00S00428.o26     +++|*         USES   T1 - T7, CM - CM+4.
00705  M00S00429.o26     +++|*
Line S00430 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00706  M01S00430.241l630 ---|*         CALLS  CDA, DIC, DIL.
Line S00225 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00707  M01S00225.241l630 +++|*         CALLS  CDA, DIL, EDW.
00708  M01S00226.241l630 +++|*
00709  M01S00227.241l630 +++|*         MACROS CFNC, DFIM.
00710  M00S00431.o26     +++|
00711  M00S00432.o26     +++|
00712  M00S00433.o26     +++| DBF      SUBR               ENTRY/EXIT
00713  M00S00434.o26     +++|          LDD    OT          SET DISPLAY ADDRESS
Line S00435 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00714  M01S00435.241l630 ---|          STD    T6
00715  M01S00436.241l630 ---|          LDD    OT+1
00716  M01S00437.241l630 ---|          STD    T7
Line S00228 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00717  M01S00228.241l630 +++|          STD    DA
00718  M01S00229.241l630 +++|          LDD    OT+1
00719  M01S00230.241l630 +++|          STD    DA+1
00720  M00S00438.o26     +++|          LDN    0           SET DISPLAY LENGTH
00721  M00S00439.o26     +++|          STD    DL
Line S00440 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00722  M01S00440.241l630 ---|          LDC    7000        SET LEFT SCREEN
00723  M01S00441.241l630 ---|          STM    DBFB
00724  M01S00442.241l630 ---|          LDC    7640        SET Y-COORDINATE
Line S00231 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00725  M01S00231.241l630 +++|          LDC    SLSF        SET LEFT SCREEN
00726  M01S00232.241l630 +++|          STM    DBFB
00727  M01S00233.241l630 +++|          LDC    LN06        SET FIRST LINE
00728  M00S00443.o26     +++| DBFA     EQU    *-1
00729  M00S00444.o26     +++|          STD    YC
Line S00445 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00730  M01S00445.241l630 ---|          LMC    7640
Line S00234 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00731  M01S00234.241l630 +++|          DFIM   (UJN DBF1)
00732  M01S00235.241l630 +++|          LMC    LN06
00733  M00S00446.o26     +++|          ZJN    DBF1        IF TOP OF SCREEN
00734  M00S00447.o26     +++|          AOM    DBFA        ADVANCE Y
Line S00448 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00735  M01S00448.241l630 ---|          STM    DBFC        SET ROLL NOT NEEDED
00736  M01S00449.241l630 ---| DBF1     FNC    7000,CH     SELECT SCREEN, 64 CHARACTERS/LINE
00737  M01S00450.241l630 ---| DBFB     EQU    *-1
00738  M01S00451.241l630 ---|          ACN    CH
00739  M01S00452.241l630 ---| DBF2     RJM    CDA         CHECK DISPLAY ADDRESS
00740  M01S00453.241l630 ---|          PJN    DBFX        IF BUFFER EMPTY
00741  M01S00454.241l630 ---|          RJM    DIL         DISPLAY INSERT LINE
00742  M01S00455.241l630 ---|          LDN    2           OUTPUT COORDINATES
Line S00236 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00456.o26     +++|          OAM    XC,CH
00757  M00S00457.o26     +++|          OAN    CH+40
Line S00458 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00758  M01S00458.241l630 ---|          LDN    1R.         DISPLAY LINE
00759  M01S00459.241l630 ---|          OAN    CH+40
00760  M01S00460.241l630 ---|          LDN    0           CLEAR WORD COUNT
00761  M01S00461.241l630 ---|          STD    T3
00762  M01S00462.241l630 ---|          LCN    0
00763  M01S00463.241l630 ---|          STD    T4
Line S00249 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00764  M01S00249.241l630 +++|          LDC    2R .
00765  M01S00250.241l630 +++|          OAN    CH+40
00766  M00S00464.o26     +++|
00767  M00S00465.o26     +++|*         DISPLAY LINE.
00768  M00S00466.o26     +++|
Line S00467 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00769  M01S00467.241l630 ---| DBF3     LDD    T6          READ WORD
Line S00251 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00770  M01S00251.241l630 +++| DBF3     LDD    DA          READ WORD
00771  M00S00468.o26     +++|          SHN    6
00772  M00S00469.o26     +++|          ADD    RA
00773  M00S00470.o26     +++|          SHN    6
Line S00471 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00774  M01S00471.241l630 ---|          ADD    T7
Line S00252 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00775  M01S00252.241l630 +++|          ADD    DA+1
00776  M00S00472.o26     +++|          CRD    CM
00777  M00S00473.o26     +++|          AOD    DL          ADVANCE DISPLAY LENGTH
00778  M00S00474.o26     +++|          LDD    SF
Line S00475 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00475.241l630 ---|          ZJN    DBF4        IF SCAN NOT SET
Line S00253 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00780  M01S00253.241l630 +++|          ZJN    DBF7        IF SCAN NOT SET
00781  M00S00476.o26     +++|
00782  M00S00477.o26     +++|*         DISPLAY SCAN LINE.
00783  M00S00478.o26     +++|
00784  M00S00479.o26     +++|          AOD    T3          COUNT WORD READ
00785  M00S00480.o26     +++|          SBD    SC
00786  M00S00481.o26     +++|          SBN    1
Line S00482 Modification History
M01 (Removed by) o263
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00482.241l630 ---|          MJN    DBF6        IF WORD NOT REACHED
Line S00001 Modification History
M01 (Added by) o263
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00001.241l630 ---|          MJN    DBF3.1      IF WORD NOT REACHED
Line S00483 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00483.241l630 ---|          SBN    6
00790  M01S00484.241l630 ---|          MJN    DBF5        IF 6 WORDS NOT DISPLAYED
00791  M01S00485.241l630 ---|          SBN    10
Line S00486 Modification History
M01 (Removed by) o263
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00486.241l630 ---|          MJN    DBF6        IF 8 WORDS NOT SKIPPED
00793  M02S00487.241l630 ---|          UJN    DBF7        PROCESS AS END OF LINE
Line S00002 Modification History
M01 (Added by) o263
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00002.241l630 ---| DBF3.1   MJN    DBF6        IF 8 WORDS NOT SKIPPED
00795  M02S00003.241l630 ---|          LJM    DBF7        PROCESS AS END OF LINE
Line S00254 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00488.o26     +++|
00805  M00S00489.o26     +++|*         DISPLAY NORMAL LINE.
00806  M00S00490.o26     +++|
Line S00491 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00807  M01S00491.241l630 ---| DBF4     AOD    T4          COUNT WORD DISPLAYED
00808  M01S00492.241l630 ---|          LMN    6
00809  M01S00493.241l630 ---|          NJN    DBF5        IF NOT 6TH WORD
00810  M01S00494.241l630 ---|          STD    T4
00811  M01S00495.241l630 ---|          LDC    6040        RESET X
00812  M01S00496.241l630 ---|          OAN    CH+40
00813  M01S00497.241l630 ---|          LCN    12          ADVANCE Y
Line S00262 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00498.o26     +++|          RAD    YC
00822  M00S00499.o26     +++|          OAN    CH+40
Line S00500 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00823  M01S00500.241l630 ---|          ADC    -7020
00824  M01S00501.241l630 ---|          MJN    DBF7        IF SCREEN OVERFLOW
00825  M01S00502.241l630 ---|          RJM    CDA         CHECK DISPLAY ADDRESS
00826  M01S00503.241l630 ---|          MJN    DBF5        IF BUFFER NOT EMPTY
00827  M01S00504.241l630 ---|          LJM    DBFX        RETURN
00828  M01S00505.241l630 ---|
Line S00506 Modification History
M01 (Removed by) o263
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00829  M02S00506.241l630 ---| DBF5     RJM    DIC         DELETE INVALID CHARACTERS
00830  M02S00507.241l630 ---|          LDN    5           DISPLAY 5 BYTES
Line S00004 Modification History
M01 (Added by) o263
M02 (Removed by) o267
M03 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00831  M03S00004.241l630 ---| DBF5     LDM    DBFD
00832  M03S00005.241l630 ---|          ZJN    DBF5.1      IF NOT TO CLEAR SPECIAL CHARACTERS
00833  M03S00006.241l630 ---|          RJM    DIC         DELETE INVALID CHARACTERS
00834  M03S00007.241l630 ---| DBF5.1   LDN    5           DISPLAY 5 BYTES
Line S00001 Modification History
M01 (Added by) o267
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00001.241l630 ---| DBF5     RJM    DIC         DELETE INVALID CHARACTERS
00836  M02S00002.241l630 ---|          LDN    5           DISPLAY 5 BYTES
Line S00508 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00837  M01S00508.241l630 ---|          OAM    CM,CH
Line S00269 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00509.o26     +++|
00850  M00S00510.o26     +++|*         PROCESS END-OF-WORD.
00851  M00S00511.o26     +++|
Line S00512 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00852  M01S00512.241l630 ---| DBF6     AOD    T7          ADVANCE WORD ADDRESS
00853  M01S00513.241l630 ---|          SHN    -14
00854  M01S00514.241l630 ---|          RAD    T6
00855  M01S00515.241l630 ---|          LDD    CM+4
00856  M01S00516.241l630 ---|          ZJN    DBF7        IF END OF LINE
Line S00001 Modification History
M01 (Added by) o265
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00001.241l630 ---|          LDD    T6          CHECK ADDRESS
Line S00280 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00002 Modification History
M01 (Added by) o265
Seq #  *Modification Id* Act 
----------------------------+
00864  M01S00002.o265    +++|          SBD    IN
00865  M01S00003.o265    +++|          SHN    14
Line S00004 Modification History
M01 (Added by) o265
M02 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00004.241l630 ---|          ADD    T7
00867  M02S00005.241l630 ---|          SBD    IN+1
00868  M02S00006.241l630 ---|          PJN    DBF7        IF ADDRESS .GE. *IN*
Line S00286 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00869  M01S00286.241l630 +++|          ADD    DA+1
00870  M01S00287.241l630 +++|          SBD    IN+1
00871  M01S00288.241l630 +++|          PJN    DBF10       IF ADDRESS .GE. *IN*
00872  M00S00517.o26     +++|          LJM    DBF3        LOOP
00873  M00S00518.o26     +++|
00874  M00S00519.o26     +++|*         PROCESS END-OF-LINE.
00875  M00S00520.o26     +++|
Line S00521 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00876  M01S00521.241l630 ---| DBF7     LDC    1           ADVANCE LINE NUMBER
00877  M01S00522.241l630 ---| DBFC     EQU    *-1         (ROLL NEEDED FLAG)
00878  M01S00523.241l630 ---|          NJN    DBF8        IF ROLL NOT NEEDED
00879  M01S00524.241l630 ---|          LDD    T6          SET FIRST LINE ADDRESS
00880  M01S00525.241l630 ---|          STD    OT
00881  M01S00526.241l630 ---|          LDD    T7
Line S00289 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00527.o26     +++|          STD    OT+1
00890  M00S00528.o26     +++|          LDD    YC          SET NEW Y-COORDINATE
Line S00529 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00891  M01S00529.241l630 ---|          SBN    24
00892  M01S00530.241l630 ---|          STM    DBFA
00893  M01S00531.241l630 ---|          STM    DBFC        SET ROLL NOT NEEDED
00894  M01S00532.241l630 ---| DBF8     LCN    24          DECREASE Y
00895  M01S00533.241l630 ---|          RAD    YC
00896  M01S00534.241l630 ---|          ADC    -7126
00897  M01S00535.241l630 ---|          MJN    DBF9        IF BOTTOM OF SCREEN REACHED
Line S00296 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00536.o26     +++|          LJM    DBF2        LOOP
00910  M00S00537.o26     +++|
Line S00538 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00911  M01S00538.241l630 ---| DBF9     LDM    DBFB        SET NEXT SCREEN
00912  M01S00539.241l630 ---|          LMD    HN
00913  M01S00540.241l630 ---|          STM    DBFB
00914  M01S00541.241l630 ---|          SHN    13
00915  M01S00542.241l630 ---|          PJN    DBF10       IF RIGHT SCREEN DISPLAYED
00916  M01S00543.241l630 ---|          DCN    CH+40
00917  M01S00544.241l630 ---|          LDC    7664-7126   RESET Y
Line S00307 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00545.o26     +++|          RAD    YC
00929  M00S00546.o26     +++|          LJM    DBF1        LOOP
00930  M00S00547.o26     +++|
Line S00548 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00931  M01S00548.241l630 ---| DBF10    LDD    HF          SET ROLL FLAG
00932  M01S00549.241l630 ---|          STM    DBFC
00933  M01S00550.241l630 ---|          RJM    DIL         DISPLAY INSERT LINE
00934  M01S00551.241l630 ---|          DCN    CH+40
00935  M01S00552.241l630 ---|          LJM    DBFX        RETURN
Line S00317 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) o267
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00008.o267    ---|
00941  M02S00009.o267    ---| DBFD     CON    0           SPECIAL CHARACTER FLAG
00942  M00S00553.o26     +++| DBS      SPACE  4,20
00943  M00S00554.o26     +++|**        DBS - DISPLAY BUFFER STATUS.
00944  M00S00555.o26     +++|*
Line S00556 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00945  M01S00556.241l630 ---|*         USES   T1, T7, CM - CM+4.
Line S00321 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00946  M01S00321.241l630 +++|*         USES   T1, CM - CM+4.
00947  M00S00557.o26     +++|*
00948  M00S00558.o26     +++|*         CALLS  D6S, DOL.
Line S00322 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00949  M01S00322.241l630 +++|*
00950  M01S00323.241l630 +++|*         MACROS CFNC, DISPLA, MONITOR.
00951  M00S00559.o26     +++|
00952  M00S00560.o26     +++|
00953  M00S00561.o26     +++| DBS      SUBR               ENTRY/EXIT
Line S00562 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00954  M01S00562.241l630 ---|          LDN    4           SET REPEAT COUNT
00955  M01S00563.241l630 ---|          STD    T7
00956  M01S00564.241l630 ---|
00957  M01S00565.241l630 ---| DBS1     LDD    IO          CHECK IF I/O BUSY
00958  M01S00566.241l630 ---|          ZJN    DBS2        IF I/O NOT BUSY
00959  M01S00567.241l630 ---|
00960  M01S00568.241l630 ---|          DISPLA 6000,7670,(   CIO BUSY.)
00961  M01S00569.241l630 ---|
00962  M01S00570.241l630 ---| DBS2     DISPLA 6000,7656,(O26.   FILE = )
00963  M01S00571.241l630 ---|
Line S00324 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00572.o26     +++|          LDD    RA          READ FILE NAME
00970  M00S00573.o26     +++|          SHN    6
00971  M00S00574.o26     +++|          ADN    FET
00972  M00S00575.o26     +++|          CRD    CM
00973  M00S00576.o26     +++|          LDN    4           DISPLAY FILE NAME
00974  M00S00577.o26     +++|          OAM    CM,CH
00975  M00S00578.o26     +++|          LDM    CRSB        CHECK WRITE LOCKOUT
Line S00579 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00976  M01S00579.241l630 ---|          ZJN    DBS2.1      IF WRITE IS ALLOWED
00977  M01S00580.241l630 ---|          LDN    1R*         DISPLAY ASTERISK
00978  M01S00581.241l630 ---| DBS2.1   OAN    CH
Line S00329 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00979  M01S00329.241l630 +++|          ZJN    DBS2        IF WRITE ALLOWED
00980  M01S00330.241l630 +++|          LDN    1R*
00981  M01S00331.241l630 +++| DBS2     OAN    CH+40
00982  M00S00582.o26     +++|          LDD    CM+4        DISPLAY STATUS
00983  M00S00583.o26     +++|          RJM    D6S
Line S00584 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00984  M01S00584.241l630 ---|
00985  M00S00585.o26     +++|          DISPLA ,,(RS=)     DISPLAY CURRENT RECORD SIZE
Line S00586 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00986  M01S00586.241l630 ---|
00987  M00S00587.o26     +++|          LDD    IN
00988  M00S00588.o26     +++|          SBD    FT
00989  M00S00589.o26     +++|          SHN    14
00990  M00S00590.o26     +++|          ADD    IN+1
00991  M00S00591.o26     +++|          SBD    FT+1
Line S00592 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00992  M01S00592.241l630 ---|          RJM    D6S         DISPLAY WORD COUNT IN BUFFER
00993  M01S00593.241l630 ---|          RJM    CBC         COMPARE AGAINST ORIGINAL BUFFER SIZE
Line S00332 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00594.o26     +++|          LMM    TIOG
01000  M00S00595.o26     +++|          ZJN    DBS3        IF SAME FILE PRU SIZE
Line S00596 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01001  M01S00596.241l630 ---|
01002  M00S00597.o26     +++|          DISPLA ,,(**.)     SET WARNING IF FILE CHANGED PRU SIZE
Line S00598 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01003  M01S00598.241l630 ---|
01004  M00S00599.o26     +++| DBS3     DISPLA ,,(CM=)
Line S00600 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01005  M01S00600.241l630 ---|
01006  M00S00601.o26     +++|          LDD    LM          COMPUTE STORAGE
01007  M00S00602.o26     +++|          SBD    IN
01008  M00S00603.o26     +++|          SHN    14
01009  M00S00604.o26     +++|          ADD    LM+1
01010  M00S00605.o26     +++|          SBD    IN+1
01011  M00S00606.o26     +++|          RJM    D6S         DISPLAY STORAGE
01012  M00S00607.o26     +++|          LDD    CP          READ MESSAGE 2
01013  M00S00608.o26     +++|          ADN    MS2W
01014  M00S00609.o26     +++|          STD    T1
01015  M00S00610.o26     +++|          CRD    CM
01016  M00S00611.o26     +++|          LDD    CM
01017  M00S00612.o26     +++|          NJN    DBS4        IF SET
01018  M00S00613.o26     +++|          LDD    CP          READ MESSAGE 1
01019  M00S00614.o26     +++|          ADN    MS1W
01020  M00S00615.o26     +++|          CRD    CM
01021  M00S00616.o26     +++|          STD    T1
01022  M00S00617.o26     +++| DBS4     LDN    2           OUTPUT COORDINATES
01023  M00S00618.o26     +++|          OAM    DBSA,CH
01024  M00S00619.o26     +++|          LDD    T1          DISPLAY MESSAGE
01025  M00S00620.o26     +++|          RJM    DOL
01026  M00S00621.o26     +++|          LDD    CP          READ JOB CONTROL
01027  M00S00622.o26     +++|          ADN    STSW
01028  M00S00623.o26     +++|          CRD    CM
01029  M00S00624.o26     +++|          LDD    CM+2        CHECK ROLLOUT FLAG
01030  M00S00625.o26     +++|          LPN    1
01031  M00S00626.o26     +++|          ZJN    DBS5        IF NOT SET
Line S00627 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01032  M01S00627.241l630 ---|
01033  M01S00628.241l630 ---|          DISPLA 6300,7740-24,(ROLLOUT.)
01034  M01S00629.241l630 ---|
01035  M01S00630.241l630 ---|          UJN    DBS6        CHECK FOR END OF DISPLAY CYCLE
01036  M01S00631.241l630 ---|
01037  M01S00632.241l630 ---| DBS5     LDD    LM          COMPUTE STORAGE
01038  M01S00633.241l630 ---|          SBD    IN
01039  M01S00634.241l630 ---|          SHN    14
01040  M01S00635.241l630 ---|          ADD    LM+1
01041  M01S00636.241l630 ---|          SBD    IN+1
01042  M01S00637.241l630 ---|          SBN    40
01043  M01S00638.241l630 ---|          MJN    DBS6        IF BUFFER OVERFLOWED
01044  M01S00639.241l630 ---|          LDM    CRSA
01045  M01S00640.241l630 ---|          NJN    DBS7        IF RECORD READ NOT TOO LONG
01046  M01S00641.241l630 ---| DBS6     SOD    T7
01047  M01S00642.241l630 ---|          SHN    1
01048  M01S00643.241l630 ---|          LMD    CC
01049  M01S00644.241l630 ---|          LPN    6
01050  M01S00645.241l630 ---|          ZJN    DBS7        IF END OF DISPLAY CYCLE
01051  M01S00646.241l630 ---|          LJM    DBS1        LOOP
01052  M01S00647.241l630 ---|
01053  M01S00648.241l630 ---| DBS7     LDD    CP          READ CP STATUS
01054  M01S00649.241l630 ---|          ADN    STSW
01055  M01S00650.241l630 ---|          CRD    CM
01056  M01S00651.241l630 ---|          LDD    CM+1        CHECK ERROR FLAG
01057  M01S00652.241l630 ---|          ZJN    DBS8        IF NOT SET
01058  M01S00653.241l630 ---|          LDD    CM          CHECK STATUS
01059  M01S00654.241l630 ---|          LPN    37
01060  M01S00655.241l630 ---|          SBN    2
01061  M01S00656.241l630 ---|          PJN    DBS8        IF .GE. 2 PP-S ASSIGNED
01062  M01S00657.241l630 ---|          LDN    0           CLEAR I/O BUSY
Line S00337 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00658.o26     +++|          STD    IO
01070  M00S00659.o26     +++|          LDN    ZERL
01071  M00S00660.o26     +++|          CRD    CM          CLEAR RANDOM ACCESS
01072  M00S00661.o26     +++|          LDD    RA
01073  M00S00662.o26     +++|          SHN    6
01074  M00S00663.o26     +++|          ADN    FET+6
01075  M00S00664.o26     +++|          CWD    CM
01076  M00S00665.o26     +++|          MONITOR CEFM       CLEAR ERROR FLAG
Line S00666 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01077  M01S00666.241l630 ---|
01078  M00S00667.o26     +++| DBS8     LJM    DBSX        RETURN
01079  M00S00668.o26     +++|
Line S00669 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01080  M01S00669.241l630 ---| DBSA     CON    6000,7740-12
Line S00343 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01081  M01S00343.241l630 +++|
01082  M01S00344.241l630 +++| DBSA     CON    CH01,HL04
01083  M00S00670.o26     +++| DKB      SPACE  4,20
01084  M00S00671.o26     +++|**        DKB - DISPLAY KEYBOARD BUFFER.
01085  M00S00672.o26     +++|*
01086  M00S00673.o26     +++|*         ENTRY  (KM) = ADDRESS OF KEYBOARD MESSAGE.  (IF (KM) = 0,
01087  M00S00674.o26     +++|*                            NO MESSAGE.)
01088  M00S00675.o26     +++|*                (KI) = KEYBOARD INDEX.
Line S00345 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01089  M01S00345.241l630 +++|*                (KD) = 0 IF KEYBOARD BUFFER NOT DISPLAYED.
01090  M00S00676.o26     +++|*
Line S00677 Modification History
M01 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01091  M01S00677.o2611   ---|*         USES   T1, YC.
Line S00005 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01092  M01S00005.o2611   +++|*         USES   T1, T3, YC.
01093  M00S00678.o26     +++|*
Line S00679 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01094  M01S00679.241l630 ---|*         CALLS  DDN, DKL.
Line S00346 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01095  M02S00346.o2611   ---|*         CALLS  DDN, DKL, ERL.
Line S00006 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01096  M01S00006.o2611   +++|*         CALLS  DKL, ERL, HIL.
Line S00347 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01097  M01S00347.241l630 +++|*
01098  M01S00348.241l630 +++|*         MACROS CFNC, DFIM, DISPLA.
01099  M00S00680.o26     +++|
01100  M00S00681.o26     +++|
01101  M00S00682.o26     +++| DKB      SUBR               ENTRY/EXIT
Line S00683 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00683.241l630 ---|          LDN    2           OUTPUT MESSAGE COORDINATES
01103  M01S00684.241l630 ---|          OAM    DKBA,CH
Line S00349 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01104  M01S00349.241l630 +++|          CFNC   SLSF
01105  M01S00350.241l630 +++|          DFIM   (CON LN50),*+1
01106  M01S00351.241l630 +++|          LDC    LN48        SET Y-COORDINATE
01107  M01S00352.241l630 +++|          STD    YC
01108  M01S00353.241l630 +++|          LDN    2           OUTPUT MESSAGE COORDINATES
Line S00354 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01109  M02S00354.o2611   ---|          OAM    DKBB,CH
Line S00007 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00007.o2611   +++|          OAM    ERRE,CH
01111  M00S00685.o26     +++|          LDD    KM
Line S00686 Modification History
M01 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01112  M01S00686.o2611   ---|          ZJN    DKB2        IF NO MESSAGE
Line S00008 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01113  M01S00008.o2611   +++|          ZJN    DKB3        IF NO MESSAGE
01114  M00S00687.o26     +++|          STD    T1          DISPLAY MESSAGE
Line S00009 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00009.o2611   +++|          LMC    ERRE
01116  M01S00010.o2611   +++|          ZJN    DKB2        IF *RECORD TOO LONG*
01117  M00S00688.o26     +++| DKB1     LDI    T1
01118  M00S00689.o26     +++|          OAN    CH+40
Line S00690 Modification History
M01 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01119  M01S00690.o2611   ---|          ZJN    DKB2        IF END OF MESSAGE
Line S00011 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01120  M01S00011.o2611   +++|          ZJN    DKB3        IF END OF MESSAGE
01121  M00S00691.o26     +++|          AOD    T1
01122  M00S00692.o26     +++|          UJN    DKB1
01123  M00S00693.o26     +++|
Line S00012 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01124  M01S00012.o2611   +++| DKB2     LDC    ERREL*10000+ERRE
01125  M01S00013.o2611   +++|          RJM    HIL
Line S00694 Modification History
M01 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01126  M01S00694.o2611   ---| DKB2     LDD    IF
01127  M01S00695.o2611   ---|          ZJN    DKB3        IF NO INSERT
Line S00014 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01128  M01S00014.o2611   +++| DKB3     LDD    IF
01129  M01S00015.o2611   +++|          ZJN    DKB4        IF NO INSERT
Line S00696 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01130  M01S00696.241l630 ---|
01131  M01S00697.241l630 ---|          DISPLA ,,(INSERT.)
01132  M01S00698.241l630 ---|
Line S00355 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01133  M01S00355.241l630 +++|          DISPLA ,,(INSERT.)
Line S00699 Modification History
M01 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01134  M01S00699.o2611   ---| DKB3     LDM    KBUF+1
Line S00016 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00016.o2611   +++| DKB4     LDM    KBUF+1
01136  M00S00700.o26     +++|          LMN    1R.
Line S00701 Modification History
M01 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01137  M01S00701.o2611   ---|          NJN    DKB4        IF 2ND CHARACTER .NE. *.*
Line S00017 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01138  M01S00017.o2611   +++|          NJN    DKB7        IF 2ND CHARACTER .NE. *.*
Line S00702 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01139  M01S00702.241l630 ---|
01140  M00S00703.o26     +++|          DISPLA ,,(COL. =)
Line S00018 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00018.o2611   +++|*         LDN    0           PRESET DIGITS
01142  M01S00019.o2611   +++|          STD    T3
Line S00704 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01143  M01S00704.241l630 ---|
01144  M00S00705.o26     +++|          LDD    KI          DISPLAY COLUMN NUMBER
01145  M00S00706.o26     +++|          SBN    1
Line S00707 Modification History
M01 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01146  M01S00707.o2611   ---|          RJM    DDN
Line S00708 Modification History
M01 (Removed by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00708.o2611   ---| DKB4     LDC    7036        SET Y-COORDINATE
01148  M02S00709.o2611   ---|          STD    YC
01149  M02S00710.o2611   ---|          RJM    DKL         DISPLAY KEYBOARD LINE
01150  M02S00711.o2611   ---|          LJM    DKBX        RETURN
01151  M02S00712.o2611   ---|
01152  M02S00713.o2611   ---| DKBA     DATA   6020,7060
Line S00356 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00356.o2611   ---| DKB4     DFIM   (LDD KD)
01154  M02S00357.o2611   ---|          UJN    DKB5        DISPLAY KEYBOARD LINE
01155  M02S00358.o2611   ---|
01156  M02S00359.o2611   ---|          NJN    DKB8        IF KEYBOARD BUFFER DISPLAYED
Line S00020 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00020.o2611   +++| DKB5     STD    T1
01158  M01S00021.o2611   +++|          AOD    T3
01159  M01S00022.o2611   +++|          LDD    T1          COUNT 10
01160  M01S00023.o2611   +++|          SBN    10D
01161  M01S00024.o2611   +++|          PJN    DKB5        IF CONVERSION NOT COMPLETE
01162  M01S00025.o2611   +++|          SOD    T3
01163  M01S00026.o2611   +++|          ZJN    DKB6        IF LEADING ZERO
01164  M01S00027.o2611   +++|          ADN    1R0
01165  M01S00028.o2611   +++| DKB6     OAN    CH+40
01166  M01S00029.o2611   +++|          LDD    T1
01167  M01S00030.o2611   +++|          SHN    6
01168  M01S00031.o2611   +++|          ADC    2R0.
01169  M01S00032.o2611   +++|          OAN    CH+40
01170  M01S00033.o2611   +++| DKB7     DFIM   (LDD KD)
01171  M01S00034.o2611   +++|          UJN    DKB8        DISPLAY KEYBOARD LINE
01172  M01S00035.o2611   +++|
01173  M01S00036.o2611   +++|          NJN    DKB11       IF KEYBOARD BUFFER DISPLAYED
Line S00360 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01174  M01S00360.241l630 +++|          LDC    SLPF
01175  M01S00361.241l630 +++|          STM    DKBA        SELECT LEFT SCREEN - PRIORITY OUTPUT
01176  M01S00362.241l630 +++|          CFNC
Line S00363 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01177  M02S00363.o2611   ---| DKB5     RJM    DKL         DISPLAY KEYBOARD LINE
Line S00037 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01178  M01S00037.o2611   +++| DKB8     RJM    DKL         DISPLAY KEYBOARD LINE
Line S00364 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01179  M01S00364.241l630 +++|          DFIM   (SHN 21-11)
Line S00365 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01180  M02S00365.o2611   ---|          UJN    DKB7        RETURN
Line S00038 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01181  M01S00038.o2611   +++|          UJN    DKB10       RETURN
Line S00366 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01182  M01S00366.241l630 +++|
Line S00367 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01183  M02S00367.o2611   ---|          PJN    DKB7        IF DATA ON LAST LINE
01184  M02S00368.o2611   ---| DKB6     RJM    ERL         ERASE LAST LINE
01185  M02S00369.o2611   ---| DKB7     FJM    *,CH
Line S00039 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01186  M01S00039.o2611   +++|          PJN    DKB10       IF DATA ON LAST LINE
01187  M01S00040.o2611   +++| DKB9     RJM    ERL         ERASE LAST LINE
01188  M01S00041.o2611   +++| DKB10    FJM    *,CH        IF FULL CHANNEL
Line S00370 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01189  M01S00370.241l630 +++|          DCN    CH+40
01190  M01S00371.241l630 +++|          LJM    DKBX        RETURN
01191  M01S00372.241l630 +++|
Line S00373 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01192  M02S00373.o2611   ---| DKB8     LDC    SLPF        CHECK KEYBOARD BUFFER DISPLAY
Line S00042 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01193  M01S00042.o2611   +++| DKB11    LDC    SLPF        CHECK KEYBOARD BUFFER DISPLAY
Line S00374 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01194  M01S00374.241l630 +++| DKBA     EQU    *-1
Line S00375 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01195  M02S00375.o2611   ---|          ZJN    DKB7        IF PRIORITY LINES CLEAR
Line S00043 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01196  M01S00043.o2611   +++|          ZJN    DKB10       IF PRIORITY LINES CLEAR
Line S00376 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01197  M01S00376.241l630 +++|          CFNC
01198  M01S00377.241l630 +++|          LDN    0           SET LINES CLEARED
01199  M01S00378.241l630 +++|          STM    DKBA
01200  M01S00379.241l630 +++|          RJM    ERL         ERASE *LN50*
01201  M01S00380.241l630 +++|          LCN    YINC
01202  M01S00381.241l630 +++|          RAD    YC
Line S00382 Modification History
M01 (Added by) 241l630
M02 (Removed by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01203  M02S00382.o2611   ---|          UJN    DKB6        CLEAR *LN51*
01204  M02S00383.o2611   ---|
01205  M02S00384.o2611   ---|
01206  M02S00385.o2611   ---|          DFIM   (CON LN27)
01207  M02S00386.o2611   ---| DKBB     CON    LN45,CH03
Line S00044 Modification History
M01 (Added by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01208  M01S00044.o2611   +++|          UJN    DKB9        CLEAR *LN51*
01209  M00S00714.o26     +++| DLL      SPACE  4,20
01210  M00S00715.o26     +++|**        DLL - DISPLAY LAST LINE.
01211  M00S00716.o26     +++|*
01212  M00S00717.o26     +++|*         ENTRY  (IF) = INSERT FLAG.
Line S00387 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01213  M01S00387.241l630 +++|*
01214  M01S00388.241l630 +++|*         EXIT   (A) .GT. 0.
01215  M00S00718.o26     +++|*
01216  M00S00719.o26     +++|*         CALLS  DKL.
01217  M00S00720.o26     +++|
01218  M00S00721.o26     +++|
01219  M00S00722.o26     +++| DLL      SUBR               ENTRY/EXIT
01220  M00S00723.o26     +++|          LDD    IF          CHECK INSERT FLAG
01221  M00S00724.o26     +++|          ZJN    DLL1        IF NOT SET
01222  M00S00725.o26     +++|          LDD    IP+1        CHECK INSERT
01223  M00S00726.o26     +++|          LMD    IN+1
01224  M00S00727.o26     +++|          NJN    DLL1        IF NOT AT END
01225  M00S00728.o26     +++|          LDD    IP          CHECK INSERT
01226  M00S00729.o26     +++|          LMD    IN
01227  M00S00730.o26     +++|          NJN    DLL1        IF NOT AT END
01228  M00S00731.o26     +++|          STD    IF          CLEAR INSERT
Line S00389 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01229  M01S00389.241l630 +++|          AOD    DR
01230  M00S00732.o26     +++| DLL1     RJM    DIL         DISPLAY INSERT LINE
01231  M00S00733.o26     +++|          LDD    IF
01232  M00S00734.o26     +++|          NJN    DLLX        IF INSERT LINE
01233  M00S00735.o26     +++|          RJM    DKL         DISPLAY KEYBOARD LINE
01234  M00S00736.o26     +++|          UJN    DLLX        RETURN
01235  M00S00737.o26     +++| DISPLAY  SPACE  4,10
01236  M00S00738.o26     +++|**        DISPLAY COMMON DECKS.
01237  M00S00739.o26     +++|
01238  M00S00740.o26     +++|
Line S00741 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01239  M01S00741.241l630 ---| NAME     MICRO  1,, O26
01240  M00S00742.o26     +++|*CALL     COMDDSP
Line S00743 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01241  M01S00743.241l630 ---| SYS$     EQU    1           DO NOT DISPLAY CHANNEL STATUS
01242  M00S00744.o26     +++|*CALL     COMDSYS
01243  M00S00745.o26     +++|          TITLE  KEYBOARD INPUT.
01244  M00S00746.o26     +++| KBI      SPACE  4,20
01245  M00S00747.o26     +++|***       KEYBOARD INPUT.
01246  M00S00748.o26     +++|*
01247  M00S00749.o26     +++|*         ALL ENTRIES ARE DISPLAYED ON THE BOTTOM OF THE LEFT SCREEN
01248  M00S00750.o26     +++|*         AS THEY ARE ENTERED.
01249  M00S00751.o26     +++|*
01250  M00S00752.o26     +++|*         *CR* MUST FOLLOW ALL ENTRIES BEFORE ACTION IS TAKEN.
01251  M00S00753.o26     +++|*         *BKSP* DELETES THE PREVIOUS CHARACTER TYPED.
01252  M00S00754.o26     +++|*         *LEFT BLANK* DELETES THE CURRENT LINE BEING ENTERED.
01253  M00S00755.o26     +++|*         *RIGHT BLANK* IS THE TAB KEY.
01254  M00S00756.o26     +++|*
01255  M00S00757.o26     +++|*         IF THESE CHARACTERS ARE THE FIRST ENTRY, THE FOLLOWING
01256  M00S00758.o26     +++|*         APPLIES -
01257  M00S00759.o26     +++|*         *0* = SET INSERT AT FIRST LINE.
01258  M00S00760.o26     +++|*         *1* = SET INSERT AT 4TH LINE ON SCREEN.
01259  M00S00761.o26     +++|*         *2* = SET INSERT AT 8TH LINE ON SCREEN.
01260  M00S00762.o26     +++|*         *3* = SET INSERT AT 12TH LINE ON SCREEN.
01261  M00S00763.o26     +++|*         *4* = SET INSERT AT 16TH LINE ON SCREEN.
01262  M00S00764.o26     +++|*         *5* = SET INSERT AT 20TH LINE ON SCREEN.
01263  M00S00765.o26     +++|*         *6* = SET INSERT AT 24TH LINE ON SCREEN.
01264  M00S00766.o26     +++|*         *7* = SET INSERT AT 32ND LINE ON SCREEN.
01265  M00S00767.o26     +++|*         *8* = SET INSERT *8* AT INSERT LINE.
01266  M00S00768.o26     +++|*         *9* = SET INSERT *9* AT INSERT LINE.
01267  M00S00769.o26     +++|*         *+* = DISPLAY NEXT PAGE.
01268  M00S00770.o26     +++|*         *-* = DISPLAY PREVIOUS 18 LINES.
01269  M00S00771.o26     +++|*         (*) = HOLD DISPLAY.
01270  M00S00772.o26     +++|*         */* = START OR STOP ROLL.
01271  M00S00773.o26     +++|*         *(* = ADVANCE INSERT BY 1.
01272  M00S00774.o26     +++|*         *)* = DECREMENT INSERT BY 1.
01273  M00S00775.o26     +++|*         *=* = TOGGLE INSERT FLAG.
01274  M00S00776.o26     +++|*         *,* = FIND INSERT LINE.
01275  M00S00777.o26     +++|*         *.* = DELETE NEXT LINE.
01276  M00S00778.o26     +++|*         *CR* = SET */REPEAT ENTRY.*
01277  M00S00779.o26     +++|*         * * = SET *P.* INTO BUFFER.
01278  M00S00780.o26     +++|*
01279  M00S00781.o26     +++|*         ABOVE THE ENTRY DISPLAY, THE FOLLOWING MESSAGES MAY
01280  M00S00782.o26     +++|*         APPEAR -
Line S00783 Modification History
M01 (Removed by) o2610
Seq #  *Modification Id* Act 
----------------------------+
01281  M01S00783.o2610   ---|*         *BLOCK TOO LARGE.* = THE BLOCK TO BE MOVED OR
01282  M01S00784.o2610   ---|*                COPIED DOES NOT FIT INTO THE REMAINING
01283  M01S00785.o2610   ---|*                FIELD LENGTH.  USE *ENFL* COMMAND TO
01284  M01S00786.o2610   ---|*                INCREASE SCRATCH SPACE.
Line S00001 Modification History
M01 (Added by) o2610
Seq #  *Modification Id* Act 
----------------------------+
01285  M01S00001.o2610   +++|*
01286  M01S00002.o2610   +++|*         *DATA OVERFLOW.* = THE LINE TO BE ENTERED IN THE
01287  M01S00003.o2610   +++|*                BUFFER OR THE BLOCK TO BE MOVED OR COPIED
01288  M01S00004.o2610   +++|*                DOES NOT FIT INTO THE REMAINING FIELD LENGTH.
01289  M01S00005.o2610   +++|*                USE *ENFL* COMMAND TO INCREASE BUFFER SPACE.
01290  M00S00787.o26     +++|*         *DISK BUSY.* = WAITING FOR *O26* OVERLAY.
01291  M00S00788.o26     +++|*         *FILE NOT ON MASS STORAGE.* = FILE NOT VALIDATED
01292  M00S00789.o26     +++|*                FOR RANDOM PROCESSING.
01293  M00S00790.o26     +++|*         *FORMAT ERROR.* = A FORMAT ERROR HAS BEEN
01294  M00S00791.o26     +++|*                DETECTED DURING TRANSLATION OF THE ENTRY.
Line S00792 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01295  M01S00792.v23l617 ---|*         *ILLEGAL CONTROL CARD.* = ILLEGAL USER ACCESS
Line S00003 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01296  M01S00003.v23l617 +++|*         *INCORRECT COMMAND.* = USER ACCESS NOT VALID
01297  M00S00793.o26     +++|*                DETECTED.
01298  M00S00794.o26     +++|*         *INDEX NOT FOUND.* = THE FILE DIRECTORY (RANDOM
01299  M00S00795.o26     +++|*                INDEX) WAS NOT FOUND.
01300  M00S00796.o26     +++|*         *INSERT 8 OR 9 NOT SET.* = THE COMMAND ENTERED
01301  M00S00797.o26     +++|*                REQUIRES THAT BOTH THE INSERT 8 MARKER AND
01302  M00S00798.o26     +++|*                THE INSERT 9 MARKER BE SET.
Line S00799 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01303  M01S00799.v23l617 ---|*         *INVALID FL REQUEST.* = THE REQUESTED FIELD
Line S00004 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01304  M01S00004.v23l617 +++|*         *INCORRECT FL REQUEST.* = THE REQUESTED FIELD
01305  M00S00800.o26     +++|*                LENGTH WAS GREATER THAN 131K, OR LESS THAN
Line S00801 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01306  M01S00801.v23l617 ---|*                10K IF ECS ASSIGNED.
Line S00005 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01307  M01S00005.v23l617 +++|*                10K IF EXTENDED MEMORY ASSIGNED.
01308  M00S00802.o26     +++|*         *LINE NOT FOUND.* = A LINE CONTAINING THE STRING
01309  M00S00803.o26     +++|*                SPECIFIED WAS NOT FOUND.
01310  M00S00804.o26     +++|*         *LINE OVERFLOW.* = THE REPLACE COMMAND INCREASED
01311  M00S00805.o26     +++|*                LINE LENGTH TO GREATER THAN THE MAXIMUM
01312  M00S00806.o26     +++|*                BUFFER SIZE OF 90 CHARACTERS.
01313  M00S00807.o26     +++|*         *LIST.* = *O26* IS GENERATING A LIST OF THE DIRECTORY
01314  M00S00808.o26     +++|*                FOR THE FILE.
01315  M00S00809.o26     +++|*         *NO RANDOM ACCESS.* = THE FILE IS NOT RANDOM ACCESS.
01316  M00S00810.o26     +++|*         *NOT IN LINE.* = CHARACTER STRING NOT FOUND BY THE
01317  M00S00811.o26     +++|*                REPLACE CHARACTER COMMANDS.
01318  M00S00812.o26     +++|*         *OUT OF RANGE.* = EDIT LINE NUMBER NOT IN BUFFER.
01319  M00S00813.o26     +++|*         *PP BUSY.* = REQUEST IGNORED BY SYSTEM.
01320  M00S00814.o26     +++|*         *PRU SIZE MODIFIED.* = A REWRITE IN PLACE CANNOT
01321  M00S00815.o26     +++|*                BE PERFORMED BECAUSE OF THE REASON INDICATED.
01322  M00S00816.o26     +++|*         *RECORD NOT FOUND.* = THE REQUESTED RECORD WAS NOT
01323  M00S00817.o26     +++|*                FOUND ON THE FILE.  FOR SEQUENTIAL RECORD
01324  M00S00818.o26     +++|*                SEARCH, THE RECORD WAS NOT FOUND AFTER THE
01325  M00S00819.o26     +++|*                CURRENT FILE POSITION.
01326  M00S00820.o26     +++|*         *RECORD TOO LONG.* = RECORD READ DID NOT FIT
01327  M00S00821.o26     +++|*                INTO BUFFER.
01328  M00S00822.o26     +++|*         *REPEAT ENTRY.* = ENTRY WILL NOT BE CLEARED AFTER
01329  M00S00823.o26     +++|*                EXECUTION.
01330  M00S00824.o26     +++|*         *SEARCH / CCCCCCC.* = *O26* IS SEARCHING SEQUENTIAL
01331  M00S00825.o26     +++|*                RECORD *CCCCCCC*.
01332  M00S00826.o26     +++|*         *SEARCH.* = *O26* IS SEARCHING A RANDOM RECORD.
01333  M00S00827.o26     +++|*         *STORAGE NOT AVAILABLE.* = THE REQUESTED FIELD
01334  M00S00828.o26     +++|*                LENGTH IS CURRENTLY UNAVAILABLE.
01335  M00S00829.o26     +++|*         *WAITING FOR STORAGE.* = *O26* IS WAITING FOR THE
01336  M00S00830.o26     +++|*                REQUESTED FIELD LENGTH TO BE ASSIGNED.
01337  M00S00831.o26     +++|*         *WRITE ON READ-ONLY FILE.* = WRITE IS NOT ALLOWED
01338  M00S00832.o26     +++|*                ON THE EDIT FILE.
01339  M00S00833.o26     +++| KBI      SPACE  4,20
01340  M00S00834.o26     +++|**        KBI - KEYBOARD INPUT.
01341  M00S00835.o26     +++|*
01342  M00S00836.o26     +++|*         USES   T2, T5, CA, UC, KE, KI.
01343  M00S00837.o26     +++|*
01344  M00S00838.o26     +++|*         CALLS  CFC, RDL.
Line S00390 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01345  M01S00390.241l630 +++|*
01346  M01S00391.241l630 +++|*         MACROS CFNC, DFIM.
01347  M00S00839.o26     +++|
01348  M00S00840.o26     +++|
Line S00841 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01349  M01S00841.241l630 ---| KBI8     NJN    KBI1        IF INPUT CHARACTER PRESENT
Line S00392 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01350  M01S00392.241l630 +++| KBI8     SHN    21-6
01351  M01S00393.241l630 +++|          PJN    KBI9        IF NOT CONTROLWARE RELOAD REQUEST
01352  M01S00394.241l630 +++|          AOD    DR
01353  M01S00395.241l630 +++| KBI9     SHN    6-21
01354  M01S00396.241l630 +++|          NJN    KBI1        IF INPUT CHARACTER PRESENT
01355  M00S00842.o26     +++|          STM    KBIB        CLEAR CHARACTER
01356  M00S00843.o26     +++|
Line S00844 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01357  M01S00844.241l630 ---| KBI      SUBR               ENTRY/EXIT
01358  M01S00845.241l630 ---|          FNC    7020,CH     SELECT KEYBOARD INPUT
01359  M01S00846.241l630 ---|          ACN    CH          INPUT CHARACTER
01360  M01S00847.241l630 ---|          LDN    0
Line S00397 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01361  M01S00397.241l630 +++| KBIX     LJM    O266        ENTRY/EXIT
01362  M01S00398.241l630 +++| KBI      EQU    *-1
01363  M01S00399.241l630 +++|          CFNC   SKIF        SELECT KEYBOARD INPUT
01364  M00S00848.o26     +++|          IAN    CH+40
01365  M00S00849.o26     +++|          DCN    CH+40
01366  M00S00850.o26     +++|          STD    KE
Line S00851 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01367  M01S00851.241l630 ---|          LJM    KBI8        PROCESS OVERLAY LOAD
01368  M01S00852.241l630 ---|
Line S00400 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01369  M01S00400.241l630 +++|          LJM    KBI8        CHECK KEYBOARD INPUT
01370  M00S00853.o26     +++| KBIA     EQU    *-1
01371  M00S00854.o26     +++|          JMP    KBIX        RETURN
01372  M00S00855.o26     +++|
01373  M00S00856.o26     +++| KBI1     LDC    **
01374  M00S00857.o26     +++| KBIB     EQU    *-1
01375  M00S00858.o26     +++|          ZJN    KBI2        IF NO PREVIOUS CHARACTER
01376  M00S00859.o26     +++|          SOM    KBID        DECREMENT DELAY
01377  M00S00860.o26     +++|          NJN    KBIX        IF DELAY NO ELAPSED
01378  M00S00861.o26     +++|          LDN    20          SET REPEAT DELAY
Line S00401 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01379  M01S00401.241l630 +++|          DFIM   (LDN 1)
01380  M00S00862.o26     +++| KBI2     LMN    24          SET INITIAL DELAY
01381  M00S00863.o26     +++|          STM    KBID
01382  M00S00864.o26     +++|          LDD    KE
01383  M00S00865.o26     +++|          STM    KBIB        STORE CURRENT CHARACTER
01384  M00S00866.o26     +++|          LDD    KI
01385  M00S00867.o26     +++|          NJN    KBI3        IF NOT FIRST CHARACTER
01386  M00S00868.o26     +++|          STM    DKLA        CLEAR ALTERNATE KEYBOARD
01387  M00S00869.o26     +++|          RJM    CFC         CHECK FIRST CHARACTER
01388  M00S00870.o26     +++| KBI3     LDD    KE          CHECK CHARACTER
01389  M00S00871.o26     +++| KBIC     LMN    **
01390  M00S00872.o26     +++|          NJN    KBI4        IF NOT UPPER CASE SHIFT
01391  M00S00873.o26     +++|          LDD    UC          TOGGLE UPPER CASE
01392  M00S00874.o26     +++|          LMN    1
01393  M00S00875.o26     +++|          STD    UC
01394  M00S00876.o26     +++|          ZJN    KBI6        IF NOT UPPER CASE
01395  M00S00877.o26     +++|          JMP    KBIX        RETURN
01396  M00S00878.o26     +++|
01397  M00S00879.o26     +++| KBI4     LDD    UC
01398  M00S00880.o26     +++|          ZJN    KBI6        IF NOT UPPER CASE
01399  M00S00881.o26     +++|          LDN    0           CLEAR UPPER CASE FLAG
01400  M00S00882.o26     +++|          STD    UC
01401  M00S00883.o26     +++|          LDC    KBIF-1      SET UPPER CASE TABLE
01402  M00S00884.o26     +++|          STD    T2
01403  M00S00885.o26     +++| KBI5     AOD    T2          ADVANCE TABLE
01404  M00S00886.o26     +++|          LDI    T2
01405  M00S00887.o26     +++|          ZJN    KBI6        IF END OF TABLE
01406  M00S00888.o26     +++|          SHN    -6
01407  M00S00889.o26     +++|          LMD    KE          COMPARE ENTRY
01408  M00S00890.o26     +++|          NJN    KBI5        IF NO MATCH
01409  M00S00891.o26     +++|          LDI    T2          ENTER SPECIAL CHARACTER
01410  M00S00892.o26     +++|          LPN    77
01411  M00S00893.o26     +++|          STD    KE
01412  M00S00894.o26     +++|          SBN    1
01413  M00S00895.o26     +++|          ZJN    .KBIX       IF BKSP
01414  M00S00896.o26     +++|          ADN    1
01415  M00S00897.o26     +++|          UJN    KBI7
01416  M00S00898.o26     +++|
01417  M00S00899.o26     +++| KBI6     LDD    KE          CHECK ENTRY
01418  M00S00900.o26     +++|          SBN    53
01419  M00S00901.o26     +++|          MJN    KBC         IF .LT. *$*
01420  M00S00902.o26     +++|          SBN    KBIEL
01421  M00S00903.o26     +++| KBI7     PJN    KBC         IF .GT. * *
01422  M00S00904.o26     +++|          LDM    KBIE-53,KE
Line S00905 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01423  M01S00905.241l630 ---|          STD    T2
01424  M01S00906.241l630 ---|          STD    T5          SET EXECUTE FLAG
01425  M01S00907.241l630 ---|          LJM    0,T2        PROCESS ENTRY
Line S00402 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01426  M01S00402.241l630 +++|          STD    T5          SET EXECUTE FLAG
01427  M01S00403.241l630 +++|          LJM    0,T5        PROCESS ENTRY
01428  M00S00908.o26     +++|
01429  M00S00909.o26     +++|
01430  M00S00910.o26     +++|*         PROCESS *SPACE*.
01431  M00S00911.o26     +++|
01432  M00S00912.o26     +++| KBS      LDN    1R          SUBSTITUTE * *
01433  M00S00913.o26     +++|          STD    KE
01434  M00S00914.o26     +++|          LDC    0
01435  M00S00915.o26     +++| KBSA     EQU    *-1
01436  M00S00916.o26     +++|          NJN    KBC         IF NOT SKIPPING
01437  M00S00917.o26     +++|          LDM    KBUF
01438  M00S00918.o26     +++|          LMN    1RA
01439  M00S00919.o26     +++|          ZJN    KBS1        IF *A*
01440  M00S00920.o26     +++|          LMN    1RD&1RA
01441  M00S00921.o26     +++|          ZJN    KBS1        IF *D*
01442  M00S00922.o26     +++|          LMN    1RE&1RD
01443  M00S00923.o26     +++|          ZJN    KBS1        IF *E*
01444  M00S00924.o26     +++|          LMN    1RL&1RE
01445  M00S00925.o26     +++|          NJN    KBC         IF NOT *L*
01446  M00S00926.o26     +++| KBS1     LDM    DBUF,KI
01447  M00S00927.o26     +++|          LPN    77
01448  M00S00928.o26     +++|          UJN    KBC1
01449  M00S00929.o26     +++|
01450  M00S00930.o26     +++|
01451  M00S00931.o26     +++|*         PROCESS NORMAL CHARACTER.
01452  M00S00932.o26     +++|
01453  M00S00933.o26     +++| KBC      LDD    KE          CLEAR SKIP FLAG
01454  M00S00934.o26     +++|          NJN    KBC0        IF NOT COLON
Line S00935 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01455  M01S00935.241l630 ---|          LDC    100         SUBSTITUTE 100B FOR A COLON
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/o26.txt ยท Last modified: by 127.0.0.1