User Tools

Site Tools


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

Deck DIS

27 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.dis     +++|          IDENT  DIS,DIS
00002  M01S00002.dis     +++|          PERIPH
00003  M01S00003.dis     +++|          BASE   MIXED
Line S00004 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.271l716 ---|          SST    HDC,RDS
00005  M01S00001.271l716 +++|          SST    CMEI,HDC,RDS
00006  M01S00005.dis     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00007  M01S00006.dis     +++|          SYSCOM
00008  M01S00007.dis     +++|*COMMENT  DIS - JOB DISPLAY.
Line S00008 Modification History
M01 (Added by) dis
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00008.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00009.dis     +++|          TITLE  DIS - JOB DISPLAY.
00012  M01S00010.dis     +++|          SPACE  4
00013  M01S00011.dis     +++|***       DIS - JOB DISPLAY.
00014  M01S00012.dis     +++|*
00015  M01S00013.dis     +++|*         D. A. CAHLANDER.   70/02/24.
00016  M01S00014.dis     +++|*         E. W. HOBBS.       70/06/05.
00017  M01S00015.dis     +++|*         R. S. HORECK.      70/12/19.
00018  M01S00016.dis     +++|*         G. R. MANSFIELD.   70/12/20.
00019  M01S00017.dis     +++|          SPACE  4
00020  M01S00018.dis     +++|***              DIS PROVIDES A CONVIENENT MEANS TO ALTER THE
00021  M01S00019.dis     +++|*         RUNNING OF A JOB, OR IF CALLED TO A BLANK CONTROL POINT
00022  M01S00020.dis     +++|*         INITIATE THE OPERATION OF UTILITY PROGRAMS.
00023  M01S00021.dis     +++|*
00024  M01S00022.dis     +++|*         DIS PROVIDES AN INTERPRETED DISPLAY OF THE EXCHANGE
00025  M01S00023.dis     +++|*         AREA FOR THE JOB, AS WELL AS THE STATUS OF THE JOB.
00026  M01S00024.dis     +++|*         KEYBOARD ENTRIES ARE PROVIDED TO ALLOW THE USER TO
00027  M01S00025.dis     +++|*         ALTER CENTRAL MEMORY IN SEVERAL FORMATS, AND TO EXECUTE
00028  M01S00026.dis     +++|*         COMMANDS AS IF THEY HAD ENTERED THE SYSTEM WITH
00029  M01S00027.dis     +++|*         AN INPUT FILE.
00030  M01S00028.dis     +++|          SPACE  4
00031  M01S00029.dis     +++|***       CALL.
00032  M01S00030.dis     +++|*
00033  M01S00031.dis     +++|*
00034  M01S00032.dis     +++|*T        18/ *DIS*, 1/ 0, 5/ CP, 24/ 0, 1/ D, 11/ EQ
Figure

010111229 EQ D 030353640414259 0 CP 0 *DIS*

00035  M01S00033.dis     +++|*         D      DIRECT CALL TO CONTROL POINT
00036  M01S00034.dis     +++|*         CP     CONTROL POINT NUMBER
00037  M01S00035.dis     +++|*         EQ     DISPLAY CONSOLE EST ORDINAL
00038  M01S00036.dis     +++|          SPACE  4
00039  M01S00037.dis     +++|***       OPERATOR MESSAGES.
00040  M01S00038.dis     +++|*
00041  M01S00039.dis     +++|*
00042  M01S00040.dis     +++|*         *REQUEST DISPLAY.  (DIS)* = DIS IS WAITING FOR THE DISPLAY
00043  M01S00041.dis     +++|*         TO BE ASSIGNED.
00044  M01S00042.dis     +++|          SPACE  4
00045  M01S00043.dis     +++|**        PROGRAMS CALLED.
00046  M01S00044.dis     +++|*
00047  M01S00045.dis     +++|*
00048  M01S00046.dis     +++|*         1AJ - ADVANCE JOB STATUS.
00049  M01S00047.dis     +++|*         1DL - DISPLAY OVERLAY LOADER.
00050  M01S00001.252l678 +++|*         DDF - DISPLAY DISK FILE.
00051  M01S00048.dis     +++|*         O26 - KEYPUNCH SIMULATOR.
00052  M01S00049.dis     +++|          SPACE  4
00053  M01S00050.dis     +++|*CALL     COMPMAC
00054  M01S00051.dis     +++|*CALL     COMDMAC
00055  M01S00052.dis     +++|*CALL     COMSCPS
00056  M01S00001.241l630 +++|*CALL     COMSDST
00057  M01S00053.dis     +++|*CALL     COMSEJT
00058  M01S00001.dis7    +++|*CALL     COMSEVT
Line S00054 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00054.271l716 ---|*CALL     COMSSSD
00060  M01S00055.dis     +++|*CALL     COMSLFD
00061  M01S00001.ns2684  +++|*CALL     COMSPRD
00062  M01S00056.dis     +++|*CALL     COMSMLS
00063  M01S00002.271l716 +++|*CALL     COMSPIM
00064  M01S00003.271l716 +++|*CALL     COMSSSD
00065  M01S00057.dis     +++|          SPACE  4
00066  M01S00058.dis     +++|****      DIRECT LOCATION ASSIGNMENTS.
00067  M01S00059.dis     +++|
00068  M01S00060.dis     +++|
00069  M01S00061.dis     +++| EB       EQU    16 - 17     EXTENDED MEMORY BUFFER POINTER
00070  M01S00062.dis     +++| FA       EQU    20          RELATIVE FNT ADDRESS IN NFL
00071  M01S00063.dis     +++| NL       EQU    21          NEGATIVE FIELD LENGTH
00072  M01S00064.dis     +++| AB       EQU    22 - 26     ASSEMBLY BUFFER (5 LOCATIONS)
Line S00065 Modification History
M01 (Added by) dis
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00065.252l678 ---|*         EQU    27          (UNUSED)
00074  M01S00002.252l678 +++| UE       EQU    27          USER EM SHIFT COUNT
00075  M01S00066.dis     +++| LS       EQU    30          LEFT SCREEN DISPLAY
00076  M01S00067.dis     +++| RS       EQU    31          RIGHT SCREEN DISPLAY
00077  M01S00068.dis     +++| LN       EQU    32          CURRENT LEFT SCREEN DISPLAY
00078  M01S00069.dis     +++| NC       EQU    33          NUMBER OF CONTROL POINTS (FOR *COMDSYS*)
00079  M01S00070.dis     +++| AI       EQU    34          LEFT SCREEN ADVANCE INDEX
00080  M01S00071.dis     +++| BF       EQU    35          BREAKPOINT ACTIVE FLAG
00081  M01S00072.dis     +++| BA       EQU    36 - 37     BREAKPOINT ADDRESS (2 LOCATIONS)
00082  M01S00073.dis     +++| KI       EQU    40          KEYBOARD INDEX
00083  M01S00074.dis     +++| KE       EQU    41          KEYBOARD ENTRY
00084  M01S00075.dis     +++| KM       EQU    42          KEYBOARD MESSAGE ADDRESS
00085  M01S00076.dis     +++| CA       EQU    43          CHARACTER ADDRESS
00086  M01S00077.dis     +++| UC       EQU    44          UPPER CASE FLAG
Line S00078 Modification History
M01 (Added by) dis
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00078.ns2731  ---| PR       EQU    45          CPU PRIORITY
00088  M01S00079.dis     +++| T8       EQU    46          TEMPORARY STORAGE
00089  M01S00080.dis     +++| T9       EQU    47          TEMPORARY STORAGE
00090  M01S00081.dis     +++| CC       EQU    57          CYCLE COUNT
00091  M01S00082.dis     +++| SM       EQU    60          SECURITY MODE
00092  M01S00083.dis     +++| SF       EQU    SM
00093  M01S00084.dis     +++| PC       EQU    61          BASE OF PP COMMUNICATION AREA
00094  M01S00085.dis     +++| PN       EQU    62          NUMBER OF PPU-S
00095  M01S00086.dis     +++| KR       EQU    63          KEYBOARD LINE REFRESH CONTROL
00096  M01S00087.dis     +++| XC       EQU    66          X-COORDINATE
00097  M01S00088.dis     +++| YC       EQU    67          Y-COORDINATE
00098  M01S00089.dis     +++|****
00099  M01S00090.dis     +++|          SPACE  4
00100  M01S00091.dis     +++|*         ASSEMBLY CONSTANTS.
00101  M01S00092.dis     +++|
00102  M01S00093.dis     +++|
00103  M01S00094.dis     +++| CH       EQU    CHDS        DISPLAY CHANNEL
00104  M01S00095.dis     +++| WCDC     EQU    4           WAITING FOR CM DELAY COUNT
00105  M01S00096.dis     +++| WDDC     EQU    4           WAITING FOR DISK DELAY COUNT
00106  M01S00097.dis     +++| WEDC     EQU    4           WAITING FOR EM DELAY COUNT
Line S00098 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00098.271l716 ---| MTX      SPACE  4
Line S00099 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00099.271l716 ---|          SPACE  4,10
Line S00100 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00100.271l716 ---|*CALL     COMSPIM
00110  M01S00101.dis     +++|          SPACE  4,10
00111  M01S00102.dis     +++|*         OVERLAY CONTROL.
00112  M01S00103.dis     +++|
00113  M01S00104.dis     +++|
00114  M01S00105.dis     +++| NAME     MICRO  1,, DIS
Line S00106 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00106.261l700 ---| OVNG     MICRO  1,, EF      OVERLAY NUMBER GENERATRIX
00116  M01S00001.261l700 +++| OVNG     MICRO  1,, IH      OVERLAY NUMBER GENERATOR
00117  M01S00107.dis     +++| OVNB     MICRO  1,1, "OVNG" OVERLAY NAME BIAS MICRO
00118  M01S00108.dis     +++| OVNB     EQU    1R"OVNB"    OVERLAY NAME BIAS
00119  M01S00109.dis     +++|          NOREF  .L,.N
00120  M01S00110.dis     +++| .N       SET    0           OVERLAY NUMBER
00121  M01S00111.dis     +++| .N       OCTMIC .N,2
00122  M01S00112.dis     +++| .L       SET    *
00123  M01S00113.dis     +++|          TITLE  MACRO DEFINITIONS.
00124  M01S00114.dis     +++| COMMAND  SPACE  4
00125  M01S00115.dis     +++|**        COMMAND - GENERATE COMMAND OVERLAY.
00126  M01S00116.dis     +++|*
00127  M01S00117.dis     +++|*
00128  M01S00118.dis     +++|*         COMMAND (SUBTITLE)
00129  M01S00119.dis     +++|*         ENTRY  *SUBTITLE* = COMMAND SUBTITLE.
00130  M01S00120.dis     +++|
00131  M01S00121.dis     +++|
00132  M01S00122.dis     +++| COMMAND  MACRO  TEXT
00133  M01S00123.dis     +++|          QUAL
00134  M01S00124.dis     +++| .M       OVLN   .N
00135  M01S00125.dis     +++|          QUAL   DIS".M"
00136  M01S00126.dis     +++|          TTL    DIS/9".M" - TEXT
00137  M01S00127.dis     +++|          TITLE
00138  M01S00128.dis     +++|          BSS    0
00139  M01S00129.dis     +++|          HERE
00140  M01S00130.dis     +++|          QUAL
00141  M01S00131.dis     +++|          USE    END         FORCE /LITERALS*/
00142  M01S00132.dis     +++| .1       SET    *
00143  M01S00133.dis     +++| .N       SET    .N+1
00144  M01S00134.dis     +++| .N       MICRO  1,, ".M"
00145  M01S00135.dis     +++|          QUAL   DIS".N"
00146  M01S00136.dis     +++|          IDENT  9".N",OVL   TEXT
00147  M01S00137.dis     +++|          ORG    OVL
00148  M01S00138.dis     +++|*COMMENT  DIS - TEXT
Line S00139 Modification History
M01 (Added by) dis
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00139.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00150  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00151  M01S00140.dis     +++|          QUAL
00152  M01S00141.dis     +++| .L       MAX    .1,.L
00153  M01S00142.dis     +++|          QUAL   *
00154  M01S00143.dis     +++|          ENDM
00155  M01S00144.dis     +++| DISPLAY  SPACE  4
00156  M01S00145.dis     +++|**        DISPLAY - GENERATE DISPLAY OVERLAY.
00157  M01S00146.dis     +++|*
00158  M01S00147.dis     +++|*
00159  M01S00148.dis     +++|*         DISPLAY (SUBTITLE)
00160  M01S00149.dis     +++|*         ENTRY  *SUBTITLE* = DISPLAY SUBTITLE.
00161  M01S00150.dis     +++|
00162  M01S00151.dis     +++|
00163  M01S00152.dis     +++| DISPLAY  MACRO  TEXT
00164  M01S00153.dis     +++|          QUAL
00165  M01S00154.dis     +++| .M       OVLN   .N
00166  M01S00155.dis     +++|          QUAL   DIS".M"
00167  M01S00156.dis     +++|          TTL    DIS/9".M" - TEXT
00168  M01S00157.dis     +++|          TITLE
00169  M01S00158.dis     +++|          BSS    0
00170  M01S00159.dis     +++|          HERE
00171  M01S00160.dis     +++| DIS      HERE
00172  M01S00161.dis     +++|          QUAL
00173  M01S00162.dis     +++|          USE    END         FORCE /LITERALS*/
00174  M01S00163.dis     +++| .1       SET    *
00175  M01S00164.dis     +++| .N       SET    .N+1
00176  M01S00165.dis     +++| .N       MICRO  1,, ".M"
00177  M01S00166.dis     +++|          QUAL   DIS".N"
00178  M01S00167.dis     +++|          IDENT  9".N",OVD   TEXT
00179  M01S00168.dis     +++|          ORG    OVD
00180  M01S00169.dis     +++|*COMMENT  DIS - TEXT
Line S00170 Modification History
M01 (Added by) dis
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00170.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00182  M01S00003.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00183  M01S00171.dis     +++|          QUAL
00184  M01S00172.dis     +++| .L       MAX    .1,.L
00185  M01S00173.dis     +++|          QUAL   *
00186  M01S00174.dis     +++|          ENDM
00187  M01S00175.dis     +++| ENTER    SPACE  4
00188  M01S00176.dis     +++|**        ENTER - ENTER SPECIAL SYNTAX.
00189  M01S00177.dis     +++|*
00190  M01S00178.dis     +++|*
00191  M01S00179.dis     +++|*ADDR     ENTER  (SYNTAX)
00192  M01S00180.dis     +++|*         ENTRY  *ADDR* = OVERLAY ENTRY ADDRESS.
00193  M01S00181.dis     +++|*                *SYNTAX* = SYNTAX OF COMMAND.
00194  M01S00182.dis     +++|
00195  M01S00183.dis     +++|
00196  M01S00184.dis     +++|          MACRO  ENTER,ADDR,SYNTAX
00197  M01S00185.dis     +++|          CON    ADDR/10000+100*OVNB,ADDR-ADDR/10000*10000
00198  M01S00186.dis     +++|          ORG    *-2
00199  M01S00187.dis     +++|          DATA   Z$SYNTAX$
00200  M01S00188.dis     +++|          VFD    24/ADDR
00201  M01S00189.dis     +++|          ENDM
00202  M01S00190.dis     +++| ENTRY    SPACE  4
00203  M01S00191.dis     +++|**        ENTRY - DEFINE OVERLAY ENTRY POINT.
00204  M01S00192.dis     +++|*
00205  M01S00193.dis     +++|*
00206  M01S00194.dis     +++|*NAME     ENTRY  ADDR
00207  M01S00195.dis     +++|*         ENTRY  *NAME* = ENTRY POINT NAME.
00208  M01S00196.dis     +++|*                *ADDR* = ADDRESS OF ENTRY POINT.
00209  M01S00197.dis     +++|*                IF *ADDR* IS NOT PRESENT, ADDRESS OF ENTRY
00210  M01S00198.dis     +++|*                POINT IS THE CURRENT VALUE OF THE ORIGIN COUNTER.
00211  M01S00199.dis     +++|
00212  M01S00200.dis     +++|
00213  M01S00201.dis     +++|          PURGMAC ENTRY
00214  M01S00202.dis     +++|
00215  M01S00203.dis     +++|          MACRO  ENTRY,NAME,ADDR
00216  M01S00204.dis     +++|          IFC    NE,*ADDR**
00217  M01S00205.dis     +++|          RMT
00218  M01S00206.dis     +++|          QUAL
00219  M01S00207.dis     +++| NAME     EQU    .N*10000B+/DIS".N"/ADDR
00220  M01S00208.dis     +++|          QUAL   *
00221  M01S00209.dis     +++|          RMT
00222  M01S00210.dis     +++|          ELSE   4
00223  M01S00211.dis     +++| NAME     BSS    0
00224  M01S00212.dis     +++|          QUAL
00225  M01S00213.dis     +++| NAME     EQU    .N*10000B+/DIS".N"/NAME
00226  M01S00214.dis     +++|          QUAL   *
00227  M01S00215.dis     +++|          ENDM
00228  M01S00216.dis     +++| JMP      SPACE  4
00229  M01S00217.dis     +++|**        JMP - THREADED JUMP.
00230  M01S00218.dis     +++|*
00231  M01S00219.dis     +++|*
00232  M01S00220.dis     +++|*         JMP    ADDR
00233  M01S00221.dis     +++|*         ENTRY  *ADDR* = JUMP ADDRESS.
00234  M01S00222.dis     +++|
00235  M01S00223.dis     +++|
00236  M01S00224.dis     +++| JMP      MACRO  ADDR
00237  M01S00225.dis     +++|          IF     -DEF,.ADDR,2
00238  M01S00226.dis     +++|          NOREF  .ADDR
00239  M01S00227.dis     +++| .ADDR    MAX    ADDR,*-40
00240  M01S00228.dis     +++|          IFGT   .ADDR,*-40
00241  M01S00229.dis     +++|          UJN    .ADDR
00242  M01S00230.dis     +++| .ADDR    SET    *-1
00243  M01S00231.dis     +++|          ELSE   2
00244  M01S00232.dis     +++| .ADDR    SET    *
00245  M01S00233.dis     +++|          LJM    ADDR
00246  M01S00234.dis     +++|          ENDM
00247  M01S00235.dis     +++| OVLN     SPACE  4
00248  M01S00236.dis     +++|**        OVLN - GENERATE OVERLAY NUMBER.
00249  M01S00237.dis     +++|*
00250  M01S00238.dis     +++|*
00251  M01S00239.dis     +++|*A        OVLN   B
00252  M01S00240.dis     +++|*         ENTRY  *B* = OVERLAY NUMBER.
00253  M01S00241.dis     +++|*         EXIT   *A* = MICRO OF OVERLAY NAME.
00254  M01S00242.dis     +++|
00255  M01S00243.dis     +++|
00256  M01S00244.dis     +++|          MACRO  OVLN,A,B
00257  M01S00245.dis     +++|          LOCAL  C
00258  M01S00246.dis     +++| C        SET    B/1R4
00259  M01S00247.dis     +++| C        MICRO  C+1,1, "OVNG"
00260  M01S00248.dis     +++| A        MICRO  B-C*1R4+1,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ01234
00261  M01S00249.dis     +++| A        MICRO  1,, "C""A"
00262  M01S00250.dis     +++|          ENDM
00263  M01S00251.dis     +++|          TITLE  MAIN PROGRAM.
00264  M01S00252.dis     +++|**        DIS - MAIN PROGRAM.
00265  M01S00253.dis     +++|
00266  M01S00254.dis     +++|
00267  M01S00255.dis     +++|          ORG    PPFW
00268  M01S00256.dis     +++| DIS      RJM    PRS         PRESET STORAGE
00269  M01S00257.dis     +++|*         RJM    CJS         (CHECK JOB STATUS)
00270  M01S00258.dis     +++| DISD     EQU    *-1
00271  M01S00259.dis     +++|          RJM    DLS         DISPLAY LEFT SCREEN
00272  M01S00260.dis     +++|
00273  M01S00261.dis     +++|*         PROCESS KEYBOARD IF CDC721 SYSTEM CONSOLE.
00274  M01S00262.dis     +++|
00275  M01S00263.dis     +++|          DFIM   (CON RJMI)
00276  M01S00264.dis     +++|          UJN    *+2         SKIP IF CC545
00277  M01S00265.dis     +++|          CON    KBI         PROCESS KEYBOARD INPUT
00278  M01S00266.dis     +++|
00279  M01S00267.dis     +++|*         DISPLAY RIGHT SCREEN.
00280  M01S00268.dis     +++|
00281  M01S00269.dis     +++|          RJM    SYS         DISPLAY HEADERS
00282  M01S00270.dis     +++|          LDM    DPCA,RS     DISPLAY RIGHT SCREEN
00283  M01S00271.dis     +++|          STD    T1
00284  M01S00272.dis     +++|          PAUSE  NE          (R) = CONTROL POINT RA
00285  M01S00273.dis     +++|          RJM    0,T1
00286  M01S00274.dis     +++|          CFNC   THCF        COMBINATION OF *THVF* AND *CHSF*
00287  M01S00275.dis     +++|          DCN    CH+40
00288  M01S00276.dis     +++|          RJM    KBI         KEYBOARD INPUT
00289  M01S00277.dis     +++| DIS1     LDD    BA          CHECK BREAKPOINT
00290  M01S00278.dis     +++|          ADD    BA+1
00291  M01S00279.dis     +++|          ZJN    DIS3        IF NO BREAKPOINT
00292  M01S00280.dis     +++|          LDN    STSW
00293  M01S00281.dis     +++|          ADD    CP
00294  M01S00282.dis     +++|          CRD    CM          CHECK PP-S ASSIGNED
00295  M01S00283.dis     +++| DISE     UJN    DIS2        (*BKPA*)
00296  M01S00284.dis     +++|*         SOD    CM          (*BKP*)
00297  M01S00285.dis     +++|          LPN    37
00298  M01S00286.dis     +++|          NJN    DIS3        IF OTHER PP-S ASSIGNED
00299  M01S00287.dis     +++| DIS2     LDD    CM+2
00300  M01S00288.dis     +++|          LPN    1
00301  M01S00289.dis     +++|          NJN    DIS3        IF ROLLOUT REQUESTED
00302  M01S00290.dis     +++|          LDM    KBIA
00303  M01S00291.dis     +++|          LMC    KBI5
00304  M01S00292.dis     +++|          NJN    DIS3        IF OVERLAY LOAD IN PROGRESS
00305  M01S00293.dis     +++|          LDC    MBK         MONITOR BREAKPOINT
00306  M01S00294.dis     +++|          LJM    LOV         LOAD BREAKPOINT OVERLAY
00307  M01S00295.dis     +++|
00308  M01S00296.dis     +++| DIS3     AOD    CC          ADVANCE CYCLE COUNT
00309  M01S00297.dis     +++|          RJM    PSS         PAUSE FOR SYSTEM
00310  M01S00298.dis     +++|          LJM    DIS         LOOP
00311  M01S00299.dis     +++| DPP      SPACE  4,10
00312  M01S00300.dis     +++|**        DPP - DROP PP.
00313  M01S00301.dis     +++|
00314  M01S00302.dis     +++|
00315  M01S00303.dis     +++| DPP      RJM    DDS         DROP DISPLAY
00316  M01S00304.dis     +++|          RJM    RBW         RESTORE BREAKPOINT WORD
00317  M01S00305.dis     +++|          LDN    10          CLEAR *DIS* FLAG
00318  M01S00306.dis     +++|          STD    CM+4
00319  M01S00307.dis     +++|          LDN    CCTS
00320  M01S00308.dis     +++|          STD    CM+1
00321  M01S00309.dis     +++|          MONITOR  SJCM
00322  M01S00310.dis     +++|          MONITOR  DPPM      DROP PP
00323  M01S00311.dis     +++|          LJM    PPR         EXIT TO PP RESIDENT
00324  M01S00312.dis     +++|          SPACE  4,10
00325  M01S00313.dis     +++|**        GLOBAL VARIABLES.
00326  M01S00314.dis     +++|
00327  M01S00315.dis     +++|
00328  M01S00316.dis     +++|          DFIM   (CON C721)  CODE FOR 721 CONSOLE
00329  M01S00317.dis     +++| DCTY     CON    C545        DISPLAY CONSOLE TYPE (0 = *CC545*)
00330  M01S00318.dis     +++|          DFIM   (CON T721)  FIRST VISIBLE LINE FOR THE 721
00331  M01S00319.dis     +++| CTOS     CON    T545        FIRST LINE IN THE BODY OF THE DISPLAY
00332  M01S00320.dis     +++|          DFIM   (CON Y721)  LAST VISIBLE LINE FOR THE 721
00333  M01S00321.dis     +++| CBOS     CON    Y545        LAST LINE IN THE  BODY OF THE DISPLAY
00334  M01S00322.dis     +++| MORE     CON    XMOR        X-COORDINATE FOR *MORE* MESSAGE
00335  M01S00323.dis     +++|          DATA   H$MORE$
00336  M01S00324.dis     +++| MOREL    EQU    *-MORE
00337  M01S00325.dis     +++|          TITLE  MAIN PROGRAM SUBROUTINES.
00338  M01S00326.dis     +++| CJS      SPACE  4
00339  M01S00327.dis     +++|**        CJS - CHECK JOB STATUS.
00340  M01S00328.dis     +++|*
00341  M01S00329.dis     +++|*         USES   KM, AB - AB+4, CM - CM+4, NL - NL+F, T1 - T6.
00342  M01S00330.dis     +++|*
00343  M01S00331.dis     +++|*         CALLS  CKB, CRA, IAJ.
00344  M01S00332.dis     +++|*
00345  M01S00333.dis     +++|*         MACROS MONITOR.
00346  M01S00334.dis     +++|
00347  M01S00335.dis     +++|
00348  M01S00336.dis     +++| CJS15    LDN    0           (CPU REQUEST FLAG)
00349  M01S00337.dis     +++| CJSC     EQU    *-1
00350  M01S00338.dis     +++|*         LDN    1           (CKR)
00351  M01S00339.dis     +++|          ZJN    CJSX        IF NOT TO REQUEST CPU
00352  M01S00340.dis     +++|          MONITOR RCPM
00353  M01S00341.dis     +++|
00354  M01S00342.dis     +++| CJS      SUBR               ENTRY/EXIT
Line S00343 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00343.242l642 ---|
Line S00344 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00344.242l642 ---|*         MAKE SURE THAT *DIS* FLAG IS SET IN CONTROL POINT AREA.
Line S00345 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00345.242l642 ---|
Line S00346 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00346.242l642 ---|          LDD    CP          READ CONTROL POINT AREA
Line S00347 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00347.242l642 ---|          ADN    JCIW
Line S00348 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00348.242l642 ---|          CRD    CM
Line S00349 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00361  M02S00349.242l642 ---|          LDD    CM+3
Line S00350 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00350.242l642 ---|          SHN    21-11
Line S00351 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00363  M02S00351.242l642 ---|          MJN    CJS0        IF *DIS* FLAG ALREADY SET
Line S00352 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00352.242l642 ---|          LDN    SCTS        SET JOB CONTROL FLAG(S)
Line S00353 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00353.242l642 ---|          STD    CM+1
Line S00354 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00354.242l642 ---|          LDN    10          SET *DIS* FLAG
Line S00355 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00367  M02S00355.242l642 ---|          STD    CM+4
Line S00356 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00356.242l642 ---|          MONITOR  SJCM
Line S00357 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00369  M02S00357.242l642 ---| CJS0     LDD    CP          READ STATUS
Line S00001 Modification History
M01 (Added by) 242l642
M02 (Updated by) dis12
Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00001.dis12   ---|          LDD    CP
00371  M01S00001.dis12   +++|
00372  M01S00002.dis12   +++|*         MAKE SURE THAT *DIS* FLAG IS SET IN CONTROL POINT AREA.
00373  M01S00003.dis12   +++|
00374  M01S00004.dis12   +++|          LDD    CP          READ CONTROL POINT AREA
00375  M01S00005.dis12   +++|          ADN    JCIW
00376  M01S00006.dis12   +++|          CRD    CM
00377  M01S00007.dis12   +++|          LDD    CM+3
00378  M01S00008.dis12   +++|          SHN    21-11
00379  M01S00009.dis12   +++|          MJN    CJS0        IF *DIS* FLAG ALREADY SET
00380  M01S00010.dis12   +++|          LDN    SCTS        SET JOB CONTROL FLAG(S)
00381  M01S00011.dis12   +++|          STD    CM+1
00382  M01S00012.dis12   +++|          LDN    10          SET *DIS* FLAG
00383  M01S00013.dis12   +++|          STD    CM+4
00384  M01S00014.dis12   +++|          MONITOR  SJCM
00385  M01S00015.dis12   +++| CJS0     LDD    CP          READ STATUS
00386  M01S00358.dis     +++|          ADN    STSW
00387  M01S00359.dis     +++|          CRD    CM
00388  M01S00360.dis     +++|          ADN    FLSW-STSW   RESET NFL / 100
00389  M01S00361.dis     +++|          CRD    NL
00390  M01S00362.dis     +++|          ERRNZ  NL+1-AB     READ DESTROYS DIRECT CELLS
00391  M01S00363.dis     +++|
00392  M01S00364.dis     +++|          ADN    RFCW-FLSW   FETCH *TCS* COMMAND REQUEST
00393  M01S00365.dis     +++|          CRD    AB
00394  M01S00366.dis     +++|          ADN    SEPW-RFCW   READ SPECIAL ENTRY POINT WORD
00395  M01S00367.dis     +++|          CRD    T1
00396  M01S00368.dis     +++|          ADN    SPCW-SEPW   READ SPECIAL CALL WORD
00397  M01S00369.dis     +++|          CRD    T2
00398  M01S00370.dis     +++|          LDD    NL          SET END OF NFL
00399  M01S00371.dis     +++|          SHN    6
00400  M01S00372.dis     +++|          ADN    1
00401  M01S00373.dis     +++|          STD    NL
00402  M01S00374.dis     +++|
00403  M01S00375.dis     +++|*         CHECK ROLLOUT STATUS.
00404  M01S00376.dis     +++|
00405  M01S00377.dis     +++|          LDD    CM+2
00406  M01S00378.dis     +++|          LPN    1
00407  M01S00379.dis     +++|          ZJN    CJS2        IF ROLLOUT NOT REQUESTED
00408  M01S00380.dis     +++|          LDD    T2
00409  M01S00381.dis     +++|          ZJN    CJS2        IF DMP= NOT IN PROGRESS
00410  M01S00002.242l642 +++|          LDD    CM
00411  M01S00003.242l642 +++|          LPN    37
00412  M01S00004.242l642 +++|          SHN    -1
00413  M01S00005.242l642 +++| CJS1     NJP    CJSX        IF PP ACTIVITY
00414  M01S00382.dis     +++|          LDM    IAJB        EJT ORDINAL
00415  M01S00383.dis     +++|          SFA    EJT
00416  M01S00384.dis     +++|          CRD    CM
00417  M01S00385.dis     +++|          LDD    CM+4
00418  M01S00386.dis     +++|          LPC    101
Line S00387 Modification History
M01 (Added by) dis
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00387.242l642 ---| CJS1     NJP    CJSX        IF JOB ADVANCE OR ENTRY INTERLOCK
00420  M01S00006.242l642 +++|          NJP    CJS1        IF ADVANCE OR INTERLOCK SET
00421  M01S00388.dis     +++|          LDD    T2+1        CHECK SPECIAL REQUEST ACTIVE
Line S00389 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00389.271l716 ---|          SHN    21-5
Line S00390 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00390.271l716 ---|          MJN    CJS1        IF NOT SPECIAL REQUEST, EXIT
Line S00391 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00391.271l716 ---|          LDN    PSNI        SET TO IGNORE ACTIVITY
00425  M01S00004.271l716 +++|          LPN    1S5
00426  M01S00005.271l716 +++|          NJN    CJS1        IF NOT SPECIAL REQUEST
00427  M01S00006.271l716 +++|*         LDN    PSNI
00428  M01S00392.dis     +++|          STM    IAJC
00429  M01S00393.dis     +++|          UJN    CJS3        CALL *1AJ*
00430  M01S00394.dis     +++|
00431  M01S00395.dis     +++|*         CHECK JOB ACTIVITY.
00432  M01S00396.dis     +++|
00433  M01S00397.dis     +++| CJS2     RJM    CAJ         CHECK JOB ACTIVITY
00434  M01S00398.dis     +++|          NJN    CJS1        IF ACTIVITY
00435  M01S00399.dis     +++|
00436  M01S00400.dis     +++|*         CHECK IF *TCS* EXECUTE COMMAND REQUEST PENDING.
00437  M01S00401.dis     +++|
00438  M01S00402.dis     +++|          LDD    AB+3
00439  M01S00403.dis     +++|          SCN    77
00440  M01S00404.dis     +++|          ADD    AB+2
00441  M01S00405.dis     +++|          ZJN    CJS3.1      IF NO *TCS* COMMAND REQUEST PENDING
00442  M01S00406.dis     +++|          LJM    CJS12       CALL *1AJ*
00443  M01S00407.dis     +++|
00444  M01S00408.dis     +++|*         CLEAR  REPRIEVE PROCESSING AFTER SPECIAL ENTRY PROGRAM END.
00445  M01S00409.dis     +++|
00446  M01S00410.dis     +++| CJS2.1   LDN    ZERL        CLEAR REPRIEVE PROCESSING
00447  M01S00411.dis     +++|          CRD    CM
00448  M01S00412.dis     +++|          LDD    CP
00449  M01S00413.dis     +++|          ADN    EECW
00450  M01S00414.dis     +++|          CRD    T1
00451  M01S00415.dis     +++|          LDD    T1          RESET *NOEXIT* FLAG
00452  M01S00416.dis     +++|          LPC    4000
00453  M01S00417.dis     +++|          STD    CM
00454  M01S00418.dis     +++|          LDD    CP
00455  M01S00419.dis     +++|          ADN    EECW
00456  M01S00420.dis     +++|          CWD    CM
00457  M01S00421.dis     +++| CJS3     LDN    2
00458  M01S00422.dis     +++|          UJN    CJS5        CALL *1AJ* FOR SPECIAL ENTRY JOB
00459  M01S00423.dis     +++|
00460  M01S00424.dis     +++|*         CHECK SPECIAL ENTRY CONDITIONS.
00461  M01S00425.dis     +++|
00462  M01S00426.dis     +++| CJS3.1   LDD    T1          CHECK FOR DMP=
00463  M01S00427.dis     +++|          LPN    20
00464  M01S00428.dis     +++|          ZJN    CJS4        IF NOT SPECIAL ENTRY JOB
00465  M01S00429.dis     +++|          RJM    CRA         CHECK SYSTEM REQUEST
00466  M01S00430.dis     +++|          MJN    CJS6        IF NOT *END* OR *ABT*
00467  M01S00431.dis     +++|          LDD    CM+1
00468  M01S00432.dis     +++|          ZJN    CJS2.1      IF NO ERROR FLAG SET
00469  M01S00433.dis     +++|          LDN    ZERL
00470  M01S00434.dis     +++|          CRD    CM          CLEAR ERROR FLAG
00471  M01S00435.dis     +++|          MONITOR  CEFM
00472  M01S00436.dis     +++| CJS3.2   RJM    CKB         CLEAR KEYBOARD BUFFER
00473  M01S00437.dis     +++|          UJN    CJS10       CLEAR AUTO MODE
00474  M01S00438.dis     +++|
00475  M01S00439.dis     +++| CJS4     LDN    0           CHECK IF SPECIAL COMMAND
00476  M01S00440.dis     +++| CJSD     EQU    *-1
00477  M01S00441.dis     +++|*         LDN    1           (EXC)
00478  M01S00442.dis     +++|          ZJN    CJS6        IF NOT SPECIAL CALL
00479  M01S00443.dis     +++|          SOM    CJSD
00480  M01S00444.dis     +++|          LDC    20006       FORCE *1AJ* TO READ COMMAND IN
00481  M01S00445.dis     +++| CJS5     LJM    CJS13       MS1W OF CONTROL POINT AREA
00482  M01S00446.dis     +++|
00483  M01S00447.dis     +++|*         CHECK FOR NEXT COMMAND.
00484  M01S00448.dis     +++|
00485  M01S00449.dis     +++| CJS6     LDD    KM          CHECK AUTO MODE
00486  M01S00450.dis     +++|          LMC    CJSA
00487  M01S00451.dis     +++|          NJN    CJS11       IF NOT AUTO MODE
00488  M01S00452.dis     +++|          LDD    CM+1
00489  M01S00453.dis     +++|          NJN    CJS3.2      IF ERROR FLAG SET
00490  M01S00454.dis     +++|          LDC    CKR         CHECK KEYBOARD REQUEST
00491  M01S00455.dis     +++|          LJM    LOV
00492  M01S00456.dis     +++|
00493  M01S00457.dis     +++|*         GET NEXT COMMAND FROM COMMAND BUFFER.
00494  M01S00458.dis     +++|
00495  M01S00459.dis     +++| CJS7     LDD    CP          READ COMMAND POINTER
00496  M01S00460.dis     +++|          ADN    CSPW
00497  M01S00461.dis     +++|          CRD    AB
00498  M01S00462.dis     +++|          LDD    AB+3        CHECK IF CM PORTION EXHAUSTED
00499  M01S00463.dis     +++|          LMD    AB+4
00500  M01S00464.dis     +++|          NJN    CJS12       IF BUFFER NOT EMPTY
00501  M01S00465.dis     +++|          LDD    AB+1        CHECK IF EOR ON COMMAND FILE
00502  M01S00466.dis     +++|          SHN    21-13
00503  M01S00467.dis     +++|          PJN    CJS12       IF NOT EOR
00504  M01S00468.dis     +++| CJS10    LDN    0           CLEAR AUTO MODE
00505  M01S00469.dis     +++|          STD    KM
00506  M01S00470.dis     +++| CJS11    LDD    CM+1
00507  M01S00471.dis     +++|          NJN    CJS12       IF ERROR FLAG SET
Line S00472 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00472.261l700 ---|          LDD    CP          CHECK REPRIEVE ON NORMAL TERMINATION
Line S00473 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00473.261l700 ---|          ADN    EECW
00510  M01S00002.261l700 +++|          LDD    CP
00511  M01S00003.261l700 +++|          ADN    EOJW        READ PROLOGUE/EPILOGUE FLAGS
00512  M01S00004.261l700 +++|          CRD    AB
00513  M01S00005.261l700 +++|          ADN    EECW-EOJW   READ REPRIEVE FLAGS
00514  M01S00474.dis     +++|          CRD    CM
00515  M01S00475.dis     +++|          LDD    CM
00516  M01S00476.dis     +++|          SHN    21-12
00517  M01S00477.dis     +++|          MJN    CJS11.1     IF EXTENDED REPRIEVE MODE ACTIVE
00518  M01S00478.dis     +++|          LDD    CM+1
00519  M01S00479.dis     +++|          SHN    21-13
00520  M01S00480.dis     +++|          MJN    CJS14       IF ERROR EXIT ACTIVE
00521  M01S00481.dis     +++| CJS11.1  LDD    CM+1
00522  M01S00482.dis     +++|          SHN    21-6
Line S00483 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00483.261l700 ---|          PJN    CJS14       IF NO REPRIEVE ON NORMAL TERMINATION
00524  M01S00006.261l700 +++|          MJN    CJS12       IF REPRIEVE ON NORMAL TERMINATION
00525  M01S00007.261l700 +++|          LDD    AB+2
00526  M01S00008.261l700 +++|          LPC    700
00527  M01S00009.261l700 +++|          ZJN    CJS14       IF NO PROLOGUE OR EPILOGUE ACTIVITY
00528  M01S00484.dis     +++|
00529  M01S00485.dis     +++| CJS12    LDC    20000       CALL*1AJ* FOR NORMAL JOBS
00530  M01S00486.dis     +++| CJS13    RJM    IAJ         ADVANCE JOB
00531  M01S00487.dis     +++| CJS14    LJM    CJSX        RETURN
00532  M01S00488.dis     +++|
00533  M01S00489.dis     +++| CJSA     DATA   C*AUTO MODE.*
00534  M01S00490.dis     +++| DKB      SPACE  4
00535  M01S00491.dis     +++|**        DKB - DISPLAY KEYBOARD BUFFER.
00536  M01S00492.dis     +++|*
00537  M01S00493.dis     +++|*         ENTRY  (KM) = ADDRESS OF KEYBOARD MESSAGE.
00538  M01S00494.dis     +++|*                (KI) = KEYBOARD INDEX.
00539  M01S00495.dis     +++|*
00540  M01S00496.dis     +++|*         MACROS CFNC, DFIM.
00541  M01S00497.dis     +++|
00542  M01S00498.dis     +++|
00543  M01S00499.dis     +++| DKB      SUBR               ENTRY/EXIT
00544  M01S00500.dis     +++|          LDN    XINC        SET CHARACTER SIZE
00545  M01S00501.dis     +++|          STD    T3
00546  M01S00502.dis     +++|          LDN    1
00547  M01S00503.dis     +++|          STD    T2
00548  M01S00504.dis     +++|          CFNC   SLPF        SELECT LEFT SCREEN - PRIORITY OUTPUT
00549  M01S00505.dis     +++|          DFIM   (UJN DKB1)  BYPASS LARGE CHARACTER CHECK
00550  M01S00506.dis     +++|          LDD    KI          CHECK KEYBOARD INDEX
00551  M01S00507.dis     +++|          SBN    40
00552  M01S00508.dis     +++|          PJN    DKB1        IF > 32 CHARACTERS
00553  M01S00509.dis     +++|          DCN    CH+40
00554  M01S00510.dis     +++|          CFNC   SLMF        SELECT LEFT SCREEN - MEDIUM CHARACTERS
00555  M01S00511.dis     +++|          LDN    2*XINC      RESET SIZE
00556  M01S00512.dis     +++|          STD    T3
00557  M01S00513.dis     +++|          LDN    2           ADVANCE COUNT
00558  M01S00514.dis     +++|          RAD    T2
Line S00515 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00559  M02S00515.271l716 ---|          LDC    LN49        RESET Y-COORDINATE
Line S00516 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00516.271l716 ---|          STM    DKBA+1
00561  M01S00007.271l716 +++|          LDN    LN49-LN50   CHANGE Y-COORDINATE
00562  M01S00008.271l716 +++|          RAM    DKBA+1
00563  M01S00517.dis     +++| DKB1     LDN    2           OUTPUT COORDINATES
00564  M01S00518.dis     +++|          OAM    DKBA,CH
00565  M01S00519.dis     +++|          LDD    KM
00566  M01S00520.dis     +++|          ZJN    DKB3        IF NO MESSAGE
00567  M01S00521.dis     +++|          STD    T1
00568  M01S00522.dis     +++| DKB2     LDI    T1          DISPLAY MESSAGE
00569  M01S00523.dis     +++|          ZJN    DKB3        IF END OF MESSAGE
00570  M01S00524.dis     +++|          OAN    CH+40
00571  M01S00525.dis     +++|          AOD    T1
00572  M01S00526.dis     +++|          UJN    DKB2        DISPLAY NEXT BYTE
00573  M01S00527.dis     +++|
00574  M01S00528.dis     +++| DKB3     CFNC   EELF        ERASE TO END OF LINE
00575  M01S00529.dis     +++|          RJM    DKL         DISPLAY KEYBOARD LINE
00576  M01S00530.dis     +++|          SOD    T2
00577  M01S00531.dis     +++|          DFIM   (PSN)       INTENSIFICATION NOT TO BE DONE
00578  M01S00532.dis     +++|          PJN    DKB1        LOOP
00579  M01S00533.dis     +++|          DCN    CH+40
00580  M01S00534.dis     +++|          LDD    KI          CALCULATE KEYBOARD REFRESH CHECKSUM
00581  M01S00535.dis     +++|          LMD    KM
00582  M01S00536.dis     +++|          STD    KR
00583  M01S00537.dis     +++|          LDC    LN50        RESET Y-COORDINATE
00584  M01S00538.dis     +++|          STM    DKBA+1
00585  M01S00539.dis     +++|          LJM    DKBX        RETURN
00586  M01S00540.dis     +++|
00587  M01S00541.dis     +++|
00588  M01S00542.dis     +++| DKBA     CON    CH01,LN50
00589  M01S00543.dis     +++| DKL      SPACE  4
00590  M01S00544.dis     +++|**        DKL - DISPLAY KEYBOARD LINE.
00591  M01S00545.dis     +++|*
00592  M01S00546.dis     +++|*         ENTRY  (T3) = CHARACTER SIZE.
00593  M01S00547.dis     +++|*
00594  M01S00548.dis     +++|*         USES   T1, XC.
00595  M01S00549.dis     +++|*
00596  M01S00550.dis     +++|*         MACROS CFNC, DFIM.
00597  M01S00551.dis     +++|*
00598  M01S00552.dis     +++|*         RESTORES XC.
00599  M01S00553.dis     +++|
00600  M01S00554.dis     +++|
00601  M01S00555.dis     +++| DKL8     CFNC   EELF        ERASE TO END OF LINE
00602  M01S00556.dis     +++|
00603  M01S00557.dis     +++| DKL      SUBR               ENTRY/EXIT
00604  M01S00558.dis     +++|          LDC    CH01        SET X-COORDINATE
00605  M01S00559.dis     +++|          STD    XC
00606  M01S00560.dis     +++|          LDC    LN51        SET Y-COORDINATE
00607  M01S00561.dis     +++|          STD    YC
00608  M01S00562.dis     +++|          LDN    2           OUTPUT COORDINATES
00609  M01S00563.dis     +++|          OAM    XC,CH
00610  M01S00564.dis     +++|*         LDN    0           CLEAR BUFFER INDEX
00611  M01S00565.dis     +++|          STD    T1
00612  M01S00566.dis     +++|          LDD    KI
00613  M01S00567.dis     +++|          ZJN    DKL8        IF BUFFER EMPTY
00614  M01S00568.dis     +++|
00615  M01S00569.dis     +++| DKL1     LDM    KBUF,T1     CHECK CHARACTER
00616  M01S00001.dis19   +++|          ZJN    DKL2        IF CHARACTER = 00 (COLON IN 64 CHAR SET)
00617  M01S00570.dis     +++|          SBN    1R$
00618  M01S00571.dis     +++|          ZJN    DKL2        IF CHARACTER = *$*
00619  M01S00572.dis     +++|          SBN    60-1R$
00620  M01S00573.dis     +++|          MJN    DKL3        IF LEGAL CODE
Line S00574 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00574.241l630 ---|          DFIM   (LDM KBIB)  OUTPUT UPPER CASE CHARACTER
Line S00575 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00575.241l630 ---|          DFIM   (LPN 77)
00623  M01S00002.241l630 +++|          DFIM   (CFNC DSCF)
00624  M01S00003.241l630 +++|          DFIM   (LDM KBUF,T1)
00625  M01S00576.dis     +++|          DFIM   (UJN DKL4)  IF CDC 721 CONSOLE
00626  M01S00577.dis     +++| DKL2     LDD    YC          REVISE Y-COORDINATE
00627  M01S00578.dis     +++|          ADD    T3
00628  M01S00579.dis     +++|          OAN    CH+40
00629  M01S00580.dis     +++|          LDM    KBUF,T1     DISPLAY UPPER DIGIT
00630  M01S00581.dis     +++|          SHN    -3
00631  M01S00582.dis     +++|          ADN    1R0
Line S00583 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00583.241l630 ---|          SHN    6
00633  M01S00584.dis     +++|          OAN    CH+40
00634  M01S00585.dis     +++|          LDN    2           OUTPUT COORDINATES
00635  M01S00586.dis     +++|          OAM    XC,CH
00636  M01S00587.dis     +++|          LDM    KBUF,T1     PREPARE LOWER DIGIT
00637  M01S00588.dis     +++|          LPN    7
00638  M01S00589.dis     +++|          SBN    60-1R0
00639  M01S00590.dis     +++| DKL3     ADN    60          DISPLAY CHARACTER
Line S00591 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00591.241l630 ---| DKL4     SHN    6
Line S00592 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00592.241l630 ---|          OAN    CH+40
00642  M01S00004.241l630 +++| DKL4     OAN    CH+40
00643  M01S00593.dis     +++|          LDD    T3          ADVANCE X-COORDINATE
00644  M01S00594.dis     +++|          RAD    XC
00645  M01S00595.dis     +++|          OAN    CH+40
00646  M01S00596.dis     +++|          AOD    T1          ADVANCE BUFFER
00647  M01S00597.dis     +++|          LMD    KI
00648  M01S00598.dis     +++|          NJN    DKL1        IF NOT END OF BUFFER
00649  M01S00599.dis     +++|          LDD    UC          CHECK FOR UPPER CASE
Line S00600 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00600.241l630 ---|          ZJN    DKL7        IF NOT UPPER CASE
Line S00601 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00601.241l630 ---|          DFIM   (UJN DKL6)
00652  M01S00005.241l630 +++|          DFIM   (ZJN DKL6)
00653  M01S00006.241l630 +++|          ZJN    DKL7        IF NOT UPPER CASE
00654  M01S00007.241l630 +++|          DFIM   (UJN DKL5)
00655  M01S00602.dis     +++|          LDD    YC          OUTPUT Y-COORDINATE
00656  M01S00603.dis     +++|          ADD    T3
00657  M01S00604.dis     +++|          OAN    CH+40
Line S00605 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00605.241l630 ---| DKL6     LDM    KBIB        OUTPUT UPPER CASE CHARACTER
Line S00606 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00606.241l630 ---|          LPN    77
Line S00607 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00607.241l630 ---|          SHN    6
Line S00608 Modification History
M01 (Added by) dis
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00608.241l630 ---|          OAN    CH+40
Line S00008 Modification History
M01 (Added by) 241l630
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00008.261l700 ---| DKL5     LDM    KBIB        OUTPUT UPPER CASE CHARACTER
00663  M01S00010.261l700 +++| DKL5     LDM    KBIC        OUTPUT UPPER CASE CHARACTER
00664  M01S00009.241l630 +++|          LPN    77
00665  M01S00010.241l630 +++| DKL6     OAN    CH+40
00666  M01S00609.dis     +++| DKL7     LDC    CH01        RESET X-COORDINATE
00667  M01S00610.dis     +++|          STD    XC
00668  M01S00611.dis     +++|          LJM    DKL8        ERASE TO END OF LINE
00669  M01S00612.dis     +++| DLS      SPACE  4
00670  M01S00613.dis     +++|**        DLS - DISPLAY LEFT SCREEN.
00671  M01S00614.dis     +++|*
00672  M01S00615.dis     +++|*         ENTRY  (LS) = SCREEN NAME.
00673  M01S00616.dis     +++|*
00674  M01S00617.dis     +++|*         MACROS CFNC, DISPLA.
00675  M01S00618.dis     +++|
00676  M01S00619.dis     +++|
00677  M01S00620.dis     +++| DLS1     CFNC   SLSF        SELECT LEFT SCREEN - SMALL CHARACTERS
00678  M01S00621.dis     +++|          LDD    CP          READ JOB STATUS
00679  M01S00622.dis     +++|          ADN    STSW
00680  M01S00623.dis     +++|          CRD    AB
00681  M01S00624.dis     +++|          ADN    PFCW-STSW   READ FAMILY EST ORDINAL
00682  M01S00625.dis     +++|          CRD    T4
00683  M01S00626.dis     +++|          ADN    UIDW-PFCW   READ USER IDENTIFICATION
00684  M01S00627.dis     +++|          CRD    T2
00685  M01S00628.dis     +++|          ADN    PKNW-UIDW   READ PACKNAME
00686  M01S00629.dis     +++|          CRD    CM
00687  M01S00630.dis     +++|          DISPLA CH01,HL04,(USER =)
00688  M01S00631.dis     +++|          LDN    3           DISPLAY ACCOUNT NAME
00689  M01S00632.dis     +++|          OAM    T2,CH
00690  M01S00633.dis     +++|          LDD    T2+3
00691  M01S00634.dis     +++|          SCN    77
00692  M01S00635.dis     +++|          OAN    CH+40
00693  M01S00636.dis     +++|          DISPLA CH16,,(USER INDEX =)
00694  M01S00637.dis     +++|          LDD    T2+3        DISPLAY USER INDEX
00695  M01S00638.dis     +++|          LPN    37
00696  M01S00639.dis     +++|          SHN    14
00697  M01S00640.dis     +++|          LMD    T2+4
00698  M01S00641.dis     +++|          RJM    D6S
00699  M01S00642.dis     +++|          LDD    CM+3        DISPLAY PACKNAME
00700  M01S00643.dis     +++|          SCN    77
00701  M01S00644.dis     +++|          STD    CM+3
00702  M01S00645.dis     +++|          LDN    4           DISPLAY WORD
00703  M01S00646.dis     +++|          OAM    CM,CH
00704  M01S00647.dis     +++|          SFA    EST,T4+3
00705  M01S00648.dis     +++|          ADK    EQDE
00706  M01S00649.dis     +++|          CRD    CM
00707  M01S00650.dis     +++|          LDD    CM+4        READ FAMILY NAME WORD
00708  M01S00651.dis     +++|          SHN    3
00709  M01S00652.dis     +++|          ADN    PFGL
00710  M01S00653.dis     +++|          CRD    CM
00711  M01S00654.dis     +++|          LDD    CM+3
00712  M01S00655.dis     +++|          SCN    77
00713  M01S00656.dis     +++|          STD    CM+3
00714  M01S00657.dis     +++|          LDN    4           DISPLAY FAMILY NAME
00715  M01S00658.dis     +++|          OAM    CM,CH
00716  M01S00659.dis     +++|          LDD    AB+2
00717  M01S00660.dis     +++|          LPN    1
00718  M01S00661.dis     +++|          ZJN    DLS3        IF ROLLOUT FLAG NOT SET
00719  M01S00662.dis     +++|          DISPLA CH52,,(ROLLOUT),H
00720  M01S00663.dis     +++|
00721  M01S00664.dis     +++| DLS3     LDM    DPCA,LN     SET DISPLAY PROGRAM
00722  M01S00665.dis     +++|          STD    T1
00723  M01S00666.dis     +++|          PAUSE  NE          (R) = CONTROL POINT RA/100B
00724  M01S00667.dis     +++|          RJM    0,T1        DISPLAY LEFT SCREEN
00725  M01S00668.dis     +++|          FJM    *,CH        IF DATA TRANSFER NOT COMPLETE
00726  M01S00669.dis     +++|          DCN    CH+40
00727  M01S00670.dis     +++|
00728  M01S00671.dis     +++| DLS      SUBR               ENTRY/EXIT
00729  M01S00672.dis     +++|          LDD    LS          CHECK DISPLAY
00730  M01S00673.dis     +++|          LMD    LN
00731  M01S00674.dis     +++|          ZJN    DLS0        IF LOADED
00732  M01S00675.dis     +++|          RJM    LDO         LOAD DISPLAY OVERLAY
00733  M01S00676.dis     +++| DLS0     LJM    DLS1        DISPLAY GENERAL INFORMATION
00734  M01S00677.dis     +++| LDO      SPACE  4,10
00735  M01S00678.dis     +++|**        LDO - LOAD DISPLAY OVERLAY.
00736  M01S00679.dis     +++|*
00737  M01S00680.dis     +++|*         USES   LA.
00738  M01S00681.dis     +++|*
00739  M01S00682.dis     +++|*         CALLS  LOV.
00740  M01S00683.dis     +++|
00741  M01S00684.dis     +++|
00742  M01S00685.dis     +++| LDO      SUBR               ENTRY/EXIT
00743  M01S00686.dis     +++|          LDM    KBIA        CHECK LOAD
00744  M01S00687.dis     +++|          LMC    KBI5
00745  M01S00688.dis     +++|          NJN    LDOX        IF LOAD BUSY
00746  M01S00689.dis     +++|          LDC    LDO2        SET DISPLAY LOAD
00747  M01S00690.dis     +++|          STM    KBIA
00748  M01S00691.dis     +++|          UJN    LDOX        RETURN
00749  M01S00692.dis     +++|
00750  M01S00693.dis     +++|*         START DISPLAY LOAD.
00751  M01S00694.dis     +++|
00752  M01S00695.dis     +++| LDO2     LDC    OVD         SET LOAD ADDRESS
00753  M01S00696.dis     +++|          STD    LA
00754  M01S00697.dis     +++|          LDM    DLSA,LS     CHECK OVERLAY
00755  M01S00698.dis     +++|          SHN    14
00756  M01S00699.dis     +++|          ADC    LDO3
00757  M01S00700.dis     +++|          LJM    LOV         LOAD OVERLAY
00758  M01S00701.dis     +++|
00759  M01S00702.dis     +++|*         COMPLETE DISPLAY LOAD.
00760  M01S00703.dis     +++|
00761  M01S00704.dis     +++| LDO3     LDD    LS
00762  M01S00705.dis     +++|          STD    LN
00763  M01S00706.dis     +++|          DFIM   (RJM CSB)   CLEAR SCREEN BUFFER, IF CONSOLE IS A 721
Line S00707 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00764  M02S00707.271l716 ---|          LJM    LDO4        RETURN
00765  M01S00009.271l716 +++|          LJM    KBI3        RETURN
00766  M01S00010.271l716 +++|
00767  M01S00011.271l716 +++|          LJM    KBI3        RETURN (IF 721 CONSOLE)
Line S00708 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00768  M02S00708.271l716 ---|
Line S00709 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00709.271l716 ---| LDO4     LJM    KBI3        RETURN
Line S00710 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00710.271l716 ---| AOL      SPACE  4
Line S00711 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00711.271l716 ---|**        AOL - ABORT OVERLAY LOAD.
Line S00712 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00772  M02S00712.271l716 ---|
Line S00713 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00773  M02S00713.271l716 ---|
Line S00714 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00774  M02S00714.271l716 ---| AOL      LDN    0           CLEAR KEYBOARD MESSAGE
Line S00715 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00775  M02S00715.271l716 ---| AOL1     STD    KM
Line S00716 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00776  M02S00716.271l716 ---|          LDD    LN          RESET LEFT SCREEN DISPLAY
Line S00717 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00777  M02S00717.271l716 ---|          STD    LS
Line S00718 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00778  M02S00718.271l716 ---|          LDC    OVL         SET LOAD ADDRESS
Line S00719 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00719.271l716 ---|          STD    LA
Line S00720 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00780  M02S00720.271l716 ---|          LDC    KBI5        CLEAR OVERLAY LOAD
Line S00721 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00721.271l716 ---|          STM    KBIA
Line S00722 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00722.271l716 ---|          UJN    LDO4        RETURN
00783  M01S00723.dis     +++| PRO      SPACE  4
00784  M01S00724.dis     +++|**        PRO - PROCESS ROLLOUT FLAG WHILE IN HOLD.
00785  M01S00725.dis     +++|
00786  M01S00726.dis     +++|
Line S00727 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00727.271l716 ---| PRO      LDD    CP          CHECK IF DMP= ACTIVE
Line S00728 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00728.271l716 ---|          ADC    SPCW
00789  M01S00012.271l716 +++| PRO      BSS    0           ENTRY
00790  M01S00013.271l716 +++|          LDD    CP          CHECK FOR ERROR FLAG IN CPA
00791  M01S00014.271l716 +++|          ADN    STSW
00792  M01S00015.271l716 +++|          CRD    AB
00793  M01S00016.271l716 +++|          ADK    SPCW-STSW   GET *DMP=* STATUS
00794  M01S00729.dis     +++|          CRD    CM
00795  M01S00730.dis     +++|          LDD    CM
Line S00731 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00731.271l716 ---|          ZJN    PRO2        IF NOT ACTIVE
00797  M01S00017.271l716 +++|          ZJN    PRO1        IF *DMP=* NOT ACTIVE
00798  M01S00732.dis     +++|          LDD    CM+1
00799  M01S00733.dis     +++|          SHN    21-5
Line S00734 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00734.271l716 ---|          PJN    PRO1        IF DMP= NOT INITIATED
Line S00735 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00735.271l716 ---|          SHN    21-1-21+5
Line S00736 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00736.271l716 ---|          PJN    PRO2        IF *1RO* COMPLETE
Line S00737 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00737.271l716 ---| PRO1     LJM    /COMDDSP/ROFX
Line S00738 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00738.271l716 ---|
Line S00739 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00739.271l716 ---| PRO2     LDD    CP
Line S00740 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00740.271l716 ---|          ADN    STSW
Line S00741 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00807  M02S00741.271l716 ---|          CRD    CM
Line S00742 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00742.271l716 ---|          LDD    CM+1
Line S00743 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00743.271l716 ---|          NJN    PRO1        IF ERROR FLAG SET
Line S00744 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00744.271l716 ---|*         UJN    RPP         SET *DIS* RECALL AND DROP PP
00811  M01S00018.271l716 +++|          PJN    PRO2        IF *DMP=* NOT INITIATED
00812  M01S00019.271l716 +++|          SHN    5-1
00813  M01S00020.271l716 +++|          MJN    PRO2        IF *1RO* NOT COMPLETE
00814  M01S00021.271l716 +++| PRO1     LDD    AB+1
00815  M01S00022.271l716 +++|          ZJN    RPP         IF NO ERROR FLAG
00816  M01S00023.271l716 +++| PRO2     LJM    /COMDDSP/ROFX  EXIT
00817  M01S00745.dis     +++| RPP      SPACE  4,10
00818  M01S00746.dis     +++|**        RPP - RECALL PP.
00819  M01S00747.dis     +++|*
00820  M01S00748.dis     +++|*         USES   CM - CM+4.
00821  M01S00749.dis     +++|*
00822  M01S00750.dis     +++|*         CALLS  DDS, RBW.
00823  M01S00751.dis     +++|*
00824  M01S00752.dis     +++|*         MACROS MONITOR.
00825  M01S00753.dis     +++|
00826  M01S00754.dis     +++|
00827  M01S00755.dis     +++| RPP      LDC    4000
00828  M01S00756.dis     +++|          RAD    IR+4
00829  M01S00757.dis     +++|          RJM    DDS         DROP DISPLAY
00830  M01S00758.dis     +++|          RJM    RBW         RESTORE BREAKPOINT WORD
00831  M01S00759.dis     +++|          LDN    ZERL
00832  M01S00760.dis     +++|          CRD    CM
00833  M01S00761.dis     +++|          LDD    MA          STORE PP RECALL REQUEST
00834  M01S00762.dis     +++|          CWD    IR
00835  M01S00763.dis     +++|          MONITOR  RECM
00836  M01S00764.dis     +++|          LJM    PPR         EXIT TO PP RESIDENT
00837  M01S00765.dis     +++|          TITLE  KEYBOARD INPUT.
00838  M01S00766.dis     +++| KBI      SPACE  4
00839  M01S00767.dis     +++|***       KEYBOARD INPUT.
00840  M01S00768.dis     +++|*
00841  M01S00769.dis     +++|*         ALL ENTRIES ARE DISPLAYED ON THE BOTTOM OF THE LEFT SCREEN
00842  M01S00770.dis     +++|*         AS THEY ARE ENTERED.
00843  M01S00771.dis     +++|*
00844  M01S00772.dis     +++|*         *CR* MUST FOLLOW ALL ENTRIES BEFORE ACTION IS TAKEN.
00845  M01S00773.dis     +++|*         *BKSP* DELETES THE PREVIOUS CHARACTER TYPED.
00846  M01S00774.dis     +++|*         *LEFT BLANK* DELETES THE CURRENT LINE BEING ENTERED.
00847  M01S00775.dis     +++|*         *RIGHT BLANK* ADVANCES LEFT SCREEN DISPLAY.
00848  M01S00776.dis     +++|*
00849  M01S00777.dis     +++|*         IF THESE CHARACTERS ARE THE FIRST ENTRY, THE FOLLOWING
00850  M01S00778.dis     +++|*         APPLIES -
00851  M01S00779.dis     +++|*         *8* = INCREMENT LEFT SCREEN MANAGED TABLE POINTER.
00852  M01S00780.dis     +++|*         *9* = DECREMENT LEFT SCREEN MANAGED TABLE POINTER.
00853  M01S00781.dis     +++|*         *+* = ADVANCE LEFT SCREEN MEMORY DISPLAY ADDRESS BY 40.
00854  M01S00782.dis     +++|*         *-* = DECREMENT LEFT SCREEN MEMORY DISPLAY ADDRESS BY 40.
00855  M01S00001.dis17   +++|*               INSERT A *BEGIN,* IN THE KEYBOARD BUFFER FOR A LEFT
00856  M01S00002.dis17   +++|*               SCREEN *A* DISPLAY.
00857  M01S00783.dis     +++|*         (*) = HOLD DISPLAY.
00858  M01S00784.dis     +++|*         */* = ADVANCE LEFT SCREEN MEMORY DISPLAY ADDRESS BY THE
00859  M01S00785.dis     +++|*                VALUE IN THE BOTTOM 18 BITS OF THE FIRST WORD
00860  M01S00786.dis     +++|*                DISPLAYED
00861  M01S00787.dis     +++|*         *=* = TOGGLE MEMORY REFERENCES BETWEEN ABSOLUTE AND
00862  M01S00788.dis     +++|*                RELATIVE.
00863  M01S00789.dis     +++|*         *(* = BREAKPOINT PROGRAM TO (P+1).
00864  M01S00790.dis     +++|*         *)* = BREAKPOINT PROGRAM TO (P-1).
00865  M01S00024.271l716 +++|*         *,* = CALL *O26*.
00866  M01S00025.271l716 +++|*         *.* = ENTER AUTOMATIC JOB ADVANCE MODE.
00867  M01S00791.dis     +++|*
00868  M01S00792.dis     +++|*         ABOVE THE ENTRY DISPLAY, THE FOLLOWING MESSAGES MAY
00869  M01S00793.dis     +++|*         APPEAR -
00870  M01S00794.dis     +++|*         *REPEAT ENTRY.* = ENTRY WILL NOT BE CLEARED BY A
00871  M01S00795.dis     +++|*                CARRIAGE RETURN.
00872  M01S00796.dis     +++|*         *OUT OF RANGE.* = MEMORY ENTRY ADDRESS \ FL.
00873  M01S00797.dis     +++|*         *PP BUSY.* = NO PP IS AVAILABLE TO HANDLE
00874  M01S00798.dis     +++|*                THE REQUEST.
00875  M01S00799.dis     +++|*         *DISK BUSY.* = DISK IS BUSY WHILE LOADING
00876  M01S00800.dis     +++|*                AN OVERLAY.
00877  M01S00801.dis     +++|
00878  M01S00802.dis     +++|
00879  M01S00803.dis     +++|
00880  M01S00804.dis     +++| KBI      SUBR               ENTRY/EXIT
00881  M01S00805.dis     +++| KBI1     RJM    SKI         SELECT KEYBOARD INPUT
00882  M01S00806.dis     +++|          LJM    KBI5        PROCESS OVERLAY LOAD
00883  M01S00807.dis     +++| KBIA     EQU    *-1
00884  M01S00808.dis     +++|          UJN    KBI4        PROCESS KEYBOARD ENTRY
00885  M01S00809.dis     +++|
00886  M01S00810.dis     +++| KBI3     LDN    0           CLEAR KEYBOARD ENTRY
00887  M01S00811.dis     +++|          STD    KE
00888  M01S00812.dis     +++|          DFIM   (LDD KI)    CHECK FOR CHANGE IN KEYBOARD STATUS
00889  M01S00813.dis     +++| KBI4     UJN    KBI4.1      CC545 CONSOLE, DISPLAY KEYBOARD
00890  M01S00814.dis     +++|          LMD    KM
00891  M01S00815.dis     +++|          LMD    KR
00892  M01S00816.dis     +++|          ZJN    KBI4.2      IF NO CHANGE HAS OCCURRED
00893  M01S00817.dis     +++| KBI4.1   RJM    DKB         DISPLAY KEYBOARD BUFFER
00894  M01S00818.dis     +++|          DFIM   (CON LDMI)
00895  M01S00819.dis     +++| KBI4.2   UJN    KBIX        CC545 CONSOLE, RETURN
00896  M01S00820.dis     +++|          CON    SKIC        CHECK LAST CHARACTER
00897  M01S00821.dis     +++|          ZJN    KBIX        IF NONE
00898  M01S00822.dis     +++|          UJN    KBI1        CHECK FOR ANOTHER ONE
00899  M01S00823.dis     +++|
00900  M01S00824.dis     +++| KBI5     LDD    KE
00901  M01S00825.dis     +++|          ZJN    KBI4        IF NO INPUT
00902  M01S00826.dis     +++|          LDD    KI
Line S00827 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00903  M02S00827.271l716 ---|          NJN    KBI6        IF NOT FIRST CHARACTER
Line S00828 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00904  M03S00828.271l716 ---|          RJM    CFC         CHECK FIRST CHARACTER
Line S00011 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00011.271l716 ---|          LDD    KE          CHECK CHARACTER
Line S00012 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00012.271l716 ---|          SBN    1R8
Line S00013 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00013.271l716 ---|          MJN    KBI6        IF ALPHANUMERIC
Line S00014 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00908  M02S00014.271l716 ---|          SBN    KBIFL
Line S00015 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00909  M02S00015.271l716 ---|          PJN    KBI6        IF NOT IN TABLE
Line S00016 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00016.271l716 ---|          LDM    KBIF-1R8,KE SET ADDRESS
Line S00017 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00017.271l716 ---|          STM    KBIB
Line S00018 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00018.271l716 ---|          LDN    0
Line S00019 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00913  M02S00019.271l716 ---|          LJM    *           EXECUTE PROGRAM
Line S00020 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00020.271l716 ---| KBIB     EQU    *-1
Line S00021 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00021.271l716 ---|
Line S00829 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00829.271l716 ---| KBI6     LDD    KE          CHECK CHARACTER
Line S00830 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00917  M03S00830.271l716 ---| KBIB     LMN    0
Line S00022 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00918  M02S00022.271l716 ---| KBIC     LMN    0
Line S00831 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00919  M02S00831.271l716 ---|          NJN    KBI7        IF NOT UPPER CASE SHIFT
Line S00832 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00920  M02S00832.271l716 ---|          LDD    UC
Line S00833 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00921  M02S00833.271l716 ---|          NJN    KBI7        IF UPPER CASE SET
Line S00834 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00922  M02S00834.271l716 ---|          AOD    UC          SET UPPER CASE
Line S00835 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00923  M03S00835.271l716 ---|          UJN    KBIX        RETURN
Line S00023 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00924  M02S00023.271l716 ---|          UJP    KBIX        RETURN
Line S00836 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00836.271l716 ---|
Line S00837 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00926  M02S00837.271l716 ---| KBI7     LDD    UC
00927  M01S00026.271l716 +++|          NJN    KBI6        IF NOT FIRST CHARACTER
00928  M01S00027.271l716 +++|          LDD    KE
00929  M01S00028.271l716 +++|          SBN    1R8
00930  M01S00029.271l716 +++|          MJN    KBI6        IF ALPHANUMERIC
00931  M01S00030.271l716 +++|          SBN    KBIFL
00932  M01S00031.271l716 +++|          PJN    KBI6        IF CHARACTER NOT IN TABLE
00933  M01S00032.271l716 +++|          LDM    KBIF-1R8,KE
00934  M01S00033.271l716 +++|          STM    KBIB        SET ADDRESS
00935  M01S00034.271l716 +++|          LDN    0
00936  M01S00035.271l716 +++|          LJM    *           EXECUTE PROGRAM
00937  M01S00036.271l716 +++| KBIB     EQU    *-1
00938  M01S00037.271l716 +++|
00939  M01S00038.271l716 +++| KBI6     LDD    KE          CHECK CHARACTER
00940  M01S00039.271l716 +++| KBIC     LMN    0
00941  M01S00040.271l716 +++|          NJN    KBI7        IF NOT UPPER CASE SHIFT
00942  M01S00041.271l716 +++|          LDD    UC
00943  M01S00042.271l716 +++|          NJN    KBI7        IF UPPER CASE SET
00944  M01S00043.271l716 +++|          AOD    UC
00945  M01S00044.271l716 +++|          UJP    KBIX        RETURN
00946  M01S00045.271l716 +++|
00947  M01S00046.271l716 +++| KBI7     LDD    UC
00948  M01S00838.dis     +++|          ZJN    KBI9        IF NOT UPPER CASE
00949  M01S00839.dis     +++|          LDN    0           CLEAR UPPER CASE FLAG
00950  M01S00840.dis     +++|          STD    UC
00951  M01S00841.dis     +++|          LDC    KBID-1      SET UPPER CASE TABLE
00952  M01S00842.dis     +++|          STD    T2
00953  M01S00843.dis     +++| KBI8     AOD    T2          ADVANCE TABLE
00954  M01S00844.dis     +++|          LDI    T2
00955  M01S00845.dis     +++|          ZJN    KBI9        IF END OF TABLE
00956  M01S00846.dis     +++|          SHN    -6
00957  M01S00847.dis     +++|          LMD    KE          COMPARE ENTRY
00958  M01S00848.dis     +++|          NJN    KBI8        IF NO MATCH
00959  M01S00849.dis     +++|          LDI    T2          ENTER SPECIAL CHARACTER
00960  M01S00850.dis     +++|          LPN    77
00961  M01S00851.dis     +++|          STD    KE
00962  M01S00852.dis     +++|          UJN    KBI11       PROCESS NORMAL CHARACTER
00963  M01S00853.dis     +++|
00964  M01S00854.dis     +++| KBI9     LDD    KE          CHECK ENTRY
00965  M01S00855.dis     +++|          SBN    53
00966  M01S00856.dis     +++|          MJN    KBI11       IF < *$*
00967  M01S00857.dis     +++|          SBN    KBIEL
00968  M01S00858.dis     +++|          PJN    KBI11       IF > * *
00969  M01S00859.dis     +++|          LDM    KBIE-53,KE
00970  M01S00860.dis     +++|          STD    T2
00971  M01S00861.dis     +++|          LJM    0,T2        PROCESS ENTRY
00972  M01S00862.dis     +++|
00973  M01S00863.dis     +++|
00974  M01S00864.dis     +++|*         PROCESS *SPACE*.
00975  M01S00865.dis     +++|
00976  M01S00866.dis     +++| KBI10    LDN    1R          SUBSTITUTE * *
00977  M01S00867.dis     +++|          STD    KE
00978  M01S00868.dis     +++|
00979  M01S00869.dis     +++|
00980  M01S00870.dis     +++|*         PROCESS NORMAL CHARACTER.
00981  M01S00871.dis     +++|
00982  M01S00872.dis     +++| KBI11    LDD    KE          STORE CHARACTER
00983  M01S00873.dis     +++|          STM    KBUF,KI
00984  M01S00874.dis     +++|          AOD    KI
00985  M01S00875.dis     +++|          LMN    KBUFL
00986  M01S00876.dis     +++|          ZJN    KBI12       IF BUFFER FULL
00987  M01S00877.dis     +++|          JMP    KBI3        RETURN
00988  M01S00878.dis     +++|
00989  M01S00879.dis     +++|
00990  M01S00880.dis     +++|*         PROCESS *BKSP*.
00991  M01S00881.dis     +++|
00992  M01S00882.dis     +++| KBI12    SOD    KI          CLEAR PREVIOUS ENTRY
00993  M01S00883.dis     +++|          LDN    0
00994  M01S00884.dis     +++|          STM    KBUF,KI
00995  M01S00885.dis     +++|          LDD    KM
00996  M01S00886.dis     +++|          LMC    INTB
00997  M01S00887.dis     +++|          ZJN    KBI13       IF *REPEAT ENTRY.*
00998  M01S00888.dis     +++|          LMC    CJSA&INTB
00999  M01S00889.dis     +++|          ZJN    KBI13       IF *AUTO COMMAND PROCESSING.*
01000  M01S00890.dis     +++|          LDN    0           CLEAR MESSAGE
01001  M01S00891.dis     +++|          STD    KM
01002  M01S00892.dis     +++| KBI13    JMP    KBI3        RETURN
01003  M01S00893.dis     +++|
01004  M01S00894.dis     +++| KBID     BSS    0
01005  M01S00895.dis     +++|          VFD    6/1RS,6/1R$
01006  M01S00896.dis     +++|          VFD    6/1R0,6/1R#
01007  M01S00897.dis     +++|          VFD    6/1R1,6/1R[
01008  M01S00898.dis     +++|          VFD    6/1R2,6/1R]
01009  M01S00899.dis     +++|          VFD    6/1R3,6/63
01010  M01S00900.dis     +++|          VFD    6/1R4,6/64
01011  M01S00901.dis     +++|          VFD    6/1R5,6/65
01012  M01S00902.dis     +++|          VFD    6/1R6,6/1R!
01013  M01S00903.dis     +++|          VFD    6/1R7,6/1R&
01014  M01S00904.dis     +++|          VFD    6/1RQ,6/1R'
01015  M01S00905.dis     +++|          VFD    6/1RW,6/1R?
01016  M01S00906.dis     +++|          VFD    6/1RE,6/1R<
01017  M01S00907.dis     +++|          VFD    6/1RR,6/1R>
01018  M01S00908.dis     +++|          VFD    6/1RT,6/1R
01019  M01S00909.dis     +++|          VFD    6/1RY,6/1R\
01020  M01S00910.dis     +++|          VFD    6/1RU,6/1R
01021  M01S00911.dis     +++|          VFD    6/1RI,6/77
01022  M01S00002.dis19   +++|          VFD    6/1RZ,6/00
01023  M01S00003.dis19   +++|          VFD    6/1R=,6/64
01024  M01S00004.dis19   +++|          VFD    6/1RA,6/67
01025  M01S00005.dis19   +++|          VFD    6/1R(,6/72
01026  M01S00006.dis19   +++|          VFD    6/1R),6/73
01027  M01S00007.dis19   +++|          VFD    6/1R+,6/74
01028  M01S00008.dis19   +++|          VFD    6/1R-,6/75
01029  M01S00009.dis19   +++|          VFD    6/1R,,6/77
01030  M01S00912.dis     +++|          DATA   0
01031  M01S00913.dis     +++|
01032  M01S00914.dis     +++| KBIE     BSS    0
01033  M01S00915.dis     +++|          LOC    53
01034  M01S00916.dis     +++|          CON    PLB         53 *LEFT BLANK*
01035  M01S00917.dis     +++|          CON    KBI11       54
01036  M01S00918.dis     +++|          CON    ALS         55 *RIGHT BLANK*
01037  M01S00919.dis     +++|          CON    KBI11       56
01038  M01S00920.dis     +++|          CON    KBI11       57
01039  M01S00921.dis     +++|          CON    INT         60 *CR*
01040  M01S00922.dis     +++|          CON    KBI12       61 *BKSP*
01041  M01S00923.dis     +++|          CON    KBI10       62 * *
01042  M01S00924.dis     +++|          LOC    *O
Line S00925 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00925.271l716 ---| KBIEL    EQU    *-KBIE
Line S00024 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01044  M02S00024.271l716 ---|
Line S00025 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00025.271l716 ---|*         TABLE OF FIRST CHARACTER FORMATS.
Line S00026 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01046  M02S00026.271l716 ---|
Line S00027 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00027.271l716 ---|
Line S00028 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00028.271l716 ---| KBIF     BSS    0
Line S00029 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00029.271l716 ---|          LOC    1R8
Line S00030 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00030.271l716 ---|          CON    AMT         8 - INCREMENT MANAGED TABLE POINTER
Line S00031 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00031.271l716 ---|          CON    DMT         9 - DECREMENT MANAGED TABLE POINTER
Line S00032 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00032.271l716 ---|          CON    AVD3        + - ADVANCE LEFT SCREEN
Line S00033 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00033.271l716 ---|          CON    AVD1        - - DECREMENT LEFT SCREEN
Line S00034 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00034.271l716 ---|          CON    RDC         * - RELEASE DISPLAY CHANNEL
Line S00035 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00035.271l716 ---|          CON    AMV         / - SET LEFT DISPLAY
Line S00036 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01056  M02S00036.271l716 ---|          CON    AVD2        ( - ADVANCE RIGHT SCREEN
Line S00037 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00037.271l716 ---|          CON    AVD         ) - DECREMENT RIGHT SCREEN
Line S00038 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00038.271l716 ---|          CON    KBI6        LEFT BLANK
Line S00039 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00039.271l716 ---|          CON    KBI6        =
Line S00040 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00040.271l716 ---|          CON    KBI6        RIGHT BLANK
Line S00041 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00041.271l716 ---|          CON    KBI6        ,
Line S00042 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00042.271l716 ---|          CON    SAC         . - SET AUTO COMMAND PROCESSING
Line S00043 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01063  M02S00043.271l716 ---|          CON    SRE         CR
Line S00044 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01064  M02S00044.271l716 ---|          CON    KBI3        BKSP
Line S00045 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01065  M02S00045.271l716 ---|          CON    KBI3        SPACE
Line S00046 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01066  M02S00046.271l716 ---|          LOC    *O
Line S00047 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01067  M02S00047.271l716 ---| KBIFL    EQU    *-KBIF
Line S00926 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01068  M02S00926.271l716 ---|          TITLE  KEYBOARD INPUT SUBROUTINES.
01069  M01S00047.271l716 +++| KBIEL    EQU    *-KBIE
01070  M01S00048.271l716 +++|
01071  M01S00049.271l716 +++|*         TABLE OF FIRST CHARACTER FORMATS.
01072  M01S00050.271l716 +++|
01073  M01S00051.271l716 +++|
01074  M01S00052.271l716 +++| KBIF     BSS    0
01075  M01S00053.271l716 +++|          LOC    1R8
01076  M01S00054.271l716 +++|          CON    AMT         8 - INCREMENT MANAGED TABLE POINTER
01077  M01S00055.271l716 +++|          CON    DMT         9 - DECREMENT MANAGED TABLE POINTER
01078  M01S00056.271l716 +++|          CON    AVD3        + - ADVANCE LEFT SCREEN
01079  M01S00057.271l716 +++|          CON    AVD1        - - DECREMENT LEFT SCREEN
01080  M01S00058.271l716 +++|          CON    RDC         * - RELEASE DISPLAY CHANNEL
01081  M01S00059.271l716 +++|          CON    AMV         / - SET LEFT DISPLAY
01082  M01S00060.271l716 +++|          CON    AVD2        ( - ADVANCE RIGHT SCREEN
01083  M01S00061.271l716 +++|          CON    AVD         ) - DECREMENT RIGHT SCREEN
01084  M01S00062.271l716 +++|          CON    KBI6        LEFT BLANK
01085  M01S00063.271l716 +++|          CON    KBI6        =
01086  M01S00064.271l716 +++|          CON    KBI6        RIGHT BLANK
01087  M01S00065.271l716 +++|          CON    LTE         , - LOAD TEXT EDITOR
01088  M01S00066.271l716 +++|          CON    SAC         . - SET AUTO COMMAND PROCESSING
01089  M01S00067.271l716 +++|          CON    SRE         CR
01090  M01S00068.271l716 +++|          CON    KBI3        BKSP
01091  M01S00069.271l716 +++|          CON    KBI3        SPACE
01092  M01S00070.271l716 +++|          LOC    *O
01093  M01S00071.271l716 +++| KBIFL    EQU    *-KBIF
01094  M01S00072.271l716 +++|          TITLE  KEYBOARD INPUT SUBROUTINES.
01095  M01S00927.dis     +++| ALS      SPACE  4
01096  M01S00928.dis     +++|*         ALS - ADVANCE LEFT SCREEN DISPLAY.
01097  M01S00929.dis     +++|
01098  M01S00930.dis     +++|
01099  M01S00931.dis     +++| ALS      AOD    AI          ADVANCE INDEX
01100  M01S00932.dis     +++|          LDM    ALSA,AI     SET SCREEN INDEX
01101  M01S00933.dis     +++|          NJN    ALS1
01102  M01S00934.dis     +++|          STD    AI
01103  M01S00935.dis     +++|          LDM    ALSA
01104  M01S00936.dis     +++| ALS1     STD    LS          SET LEFT SCREEN DISPLAY
01105  M01S00937.dis     +++|          RJM    LDO         LOAD DISPLAY OVERLAY
01106  M01S00938.dis     +++|          JMP    KBI3        RETURN
01107  M01S00939.dis     +++|
01108  M01S00940.dis     +++| ALSA     BSS    0
01109  M01S00941.dis     +++|          DATA   1RA
01110  M01S00942.dis     +++|          DATA   1RC
01111  M01S00943.dis     +++|          DATA   1RH
01112  M01S00944.dis     +++|          BSSZ   8D
01113  M01S00945.dis     +++| ALSAL    EQU    *-ALSA
Line S00946 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01114  M03S00946.271l716 ---| CFC      SPACE  4
Line S00947 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01115  M03S00947.271l716 ---|**        CFC - CHECK FIRST CHARACTER.
Line S00948 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01116  M03S00948.271l716 ---|*
Line S00949 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01117  M03S00949.271l716 ---|*         ENTRY  (KE) = KEYBOARD ENTRY.
Line S00950 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01118  M03S00950.271l716 ---|
Line S00951 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01119  M03S00951.271l716 ---|
Line S00952 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01120  M03S00952.271l716 ---| CFC      SUBR               ENTRY/EXIT
Line S00953 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01121  M03S00953.271l716 ---|          LDD    KE          CHECK CHARACTER
Line S00954 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01122  M03S00954.271l716 ---|          SBN    1R8
Line S00955 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01123  M03S00955.271l716 ---|          MJN    CFCX        IF ALPHANUMERIC
Line S00956 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01124  M03S00956.271l716 ---|          SBN    CFCBL
Line S00957 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01125  M03S00957.271l716 ---|          PJN    CFCX        IF NOT IN TABLE
Line S00958 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01126  M03S00958.271l716 ---|          LDM    CFCB-1R8,KE SET ADDRESS
Line S00959 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01127  M03S00959.271l716 ---|          STM    CFCA
Line S00960 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01128  M03S00960.271l716 ---|          LDN    0
Line S00961 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01129  M03S00961.271l716 ---|          LJM    *           EXECUTE PROGRAM
Line S00962 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01130  M03S00962.271l716 ---| CFCA     EQU    *-1
Line S00963 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01131  M03S00963.271l716 ---|
Line S00964 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01132  M03S00964.271l716 ---|*         TABLE OF FIRST CHARACTER FORMATS.
Line S00965 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01133  M03S00965.271l716 ---|
Line S00966 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01134  M03S00966.271l716 ---|
Line S00967 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01135  M03S00967.271l716 ---| CFCB     BSS    0
Line S00968 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01136  M03S00968.271l716 ---|          LOC    1R8
Line S00969 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01137  M03S00969.271l716 ---|          CON    AMT         8 - INCREMENT MANAGED TABLE POINTER
Line S00970 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01138  M03S00970.271l716 ---|          CON    DMT         9 - DECREMENT MANAGED TABLE POINTER
Line S00971 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01139  M03S00971.271l716 ---|          CON    AVD3        + - ADVANCE LEFT SCREEN
Line S00972 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01140  M03S00972.271l716 ---|          CON    AVD1        - - DECREMENT LEFT SCREEN
Line S00973 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01141  M03S00973.271l716 ---|          CON    RDC         * - RELEASE DISPLAY CHANNEL
Line S00974 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01142  M03S00974.271l716 ---|          CON    AMV         / - SET LEFT DISPLAY
Line S00975 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01143  M03S00975.271l716 ---|          CON    AVD2        ( - ADVANCE RIGHT SCREEN
Line S00976 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01144  M03S00976.271l716 ---|          CON    AVD         ) - DECREMENT RIGHT SCREEN
Line S00977 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01145  M03S00977.271l716 ---|          CON    CFCX        LEFT BLANK
Line S00978 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01146  M03S00978.271l716 ---|          CON    CFCX        =
Line S00979 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01147  M03S00979.271l716 ---|          CON    CFCX        RIGHT BLANK
Line S00980 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01148  M03S00980.271l716 ---|          CON    CFCX        ,
Line S00981 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01149  M03S00981.271l716 ---|          CON    SAC         . - SET AUTO COMMAND PROCESSING
Line S00982 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01150  M03S00982.271l716 ---|          CON    SRE         CR
Line S00983 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01151  M03S00983.271l716 ---|          CON    KBI3        BKSP
Line S00984 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01152  M03S00984.271l716 ---|          CON    KBI3        SPACE
Line S00985 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01153  M03S00985.271l716 ---|          LOC    *O
Line S00986 Modification History
M01 (Added by) dis
M02 (Updated by) 261l700
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01154  M03S00986.271l716 ---| CFCBL    EQU    *-CFCB
01155  M01S00987.dis     +++| AVD      SPACE  4
01156  M01S00988.dis     +++|**        AVD - ADVANCE DISPLAY.
01157  M01S00989.dis     +++|*
01158  M01S00990.dis     +++|*         ENTRY  (A) = 0.
01159  M01S00991.dis     +++|*
01160  M01S00992.dis     +++|*         EXIT   (T2) = DIRECTION.
01161  M01S00993.dis     +++|*                       0 = INCREMENT OR FORWARD.
01162  M01S00994.dis     +++|*                       1 = DECREMENT OR BACKWARD.
01163  M01S00995.dis     +++|*                (T3) = NAME OF DISPLAY TO BE PAGED.
01164  M01S00996.dis     +++|*
01165  M01S00997.dis     +++|*         USES   T1.
01166  M01S00998.dis     +++|
01167  M01S00999.dis     +++|
01168  M01S01000.dis     +++| AVD      LDN    1           DECREMENT RIGHT SCREEN
01169  M01S01001.dis     +++| AVD1     ADN    1           DECREMENT LEFT SCREEN
01170  M01S01002.dis     +++| AVD2     ADN    1           INCREMENT RIGHT SCREEN
01171  M01S01003.dis     +++| AVD3     SHN    21-0        INCREMENT LEFT SCREEN
01172  M01S01004.dis     +++|          STD    T2          SET INCREMENT/DECREMENT FLAG
01173  M01S01005.dis     +++|          SHN    -21
01174  M01S01006.dis     +++|          ADN    LS
01175  M01S01007.dis     +++|          ERRNZ  LS+1-RS     *LS* AND *RS* ARE NOT CONSECUTIVE
01176  M01S01008.dis     +++|          STD    T3
01177  M01S01009.dis     +++|          LDI    T3          GET CURRENT DISPLAY
01178  M01S01010.dis     +++|          STD    T3          SET CURRENT DISPLAY
01179  M01S01011.dis     +++|          LDM    TDAD,T3     GET ADDRESS OF ADVANCE ROUTINE
01180  M01S01012.dis     +++|          STD    T1
01181  M01S01013.dis     +++|          LJM    0,T1
01182  M01S01014.dis     +++| AMV      SPACE  4,10
01183  M01S01015.dis     +++|**        AMV - ADVANCE LEFT SCREEN MEMORY DISPLAY ADDRESS BY THE
01184  M01S01016.dis     +++|*         VALUE IN THE BOTTOM 18-BITS OF THE FIRST WORD DISPLAYED.
01185  M01S01017.dis     +++|*
01186  M01S01018.dis     +++|*         USES   T1, AB - AB+4.
01187  M01S01019.dis     +++|
01188  M01S01020.dis     +++|
01189  M01S01021.dis     +++| AMV      LDD    LS          CHECK LEFT SCREEN DISPLAY
01190  M01S01022.dis     +++|          LMN    1RM
01191  M01S01023.dis     +++|          NJN    AMV1        IF NOT *M*
01192  M01S01024.dis     +++|          LDD    EB          SET ADDRESS OF FIRST EXTENDED MEMORY WORD
01193  M01S01025.dis     +++|          SHN    14
01194  M01S01026.dis     +++|          LMD    EB+1
01195  M01S01027.dis     +++|          ADN    4
01196  M01S01028.dis     +++|          UJN    AMV2
01197  M01S01029.dis     +++|
01198  M01S01030.dis     +++| AMV1     LDM    DFCA,LS     SET DISPLAY FIELD ADDRESS
01199  M01S01031.dis     +++|          STD    T1
01200  M01S01032.dis     +++|          LDI    T1          READ FIRST DISPLAY WORD
01201  M01S01033.dis     +++|          SHN    6
01202  M01S01034.dis     +++|          ADD    RA
01203  M01S01035.dis     +++|          SHN    6
01204  M01S01036.dis     +++|          ADM    1,T1
01205  M01S01037.dis     +++| AMV2     CRD    AB
01206  M01S01038.dis     +++|          LDD    AB+3        ADVANCE = VALUE
01207  M01S01039.dis     +++|          LPN    37
01208  M01S01040.dis     +++|          STD    AB+3
01209  M01S01041.dis     +++|          LDD    T1          GET DISPLAY FIELD ADDRESS
01210  M01S01042.dis     +++|          UJN    AMF2        ADVANCE DISPLAY FIELD
01211  M01S01043.dis     +++| AMF      SPACE  4
01212  M01S01044.dis     +++|**        AMF - ADVANCE MEMORY FIELDS.
01213  M01S01045.dis     +++|*
01214  M01S01046.dis     +++|*         USES   AB+3, AB+4.
01215  M01S01047.dis     +++|*
01216  M01S01048.dis     +++|*         CALLS  ADF.
01217  M01S01049.dis     +++|*
01218  M01S01050.dis     +++|*         MACROS DFIM.
01219  M01S01051.dis     +++|
01220  M01S01052.dis     +++|
01221  M01S01053.dis     +++| AMF      BSS    0           ENTRY
01222  M01S01054.dis     +++|          LDD    T2          CHECK CHARACTER
01223  M01S01055.dis     +++|          ZJN    AMF1        IF *+*
01224  M01S01056.dis     +++|          DFIM   (LCN 17+20) TWO-S COMPLEMENT OF 20
01225  M01S01057.dis     +++|          LCN    37+40       TW0-S COMPLEMENT OF 40
01226  M01S01058.dis     +++|          DFIM   (ADN 20)
01227  M01S01059.dis     +++| AMF1     ADN    40
01228  M01S01060.dis     +++|          STD    AB+4        (AB+4) = 0040/0020/7760/7740
01229  M01S01061.dis     +++|          SHN    -6
01230  M01S01062.dis     +++|          STD    AB+3        (AB+3) = 0000/7777
01231  M01S01063.dis     +++|          LDM    DFCA,T3
01232  M01S01064.dis     +++| AMF2     RJM    ADF         ADVANCE DISPLAY FIELD
01233  M01S01065.dis     +++|          JMP    KBI3        RETURN
01234  M01S01066.dis     +++| BPA      SPACE  4
01235  M01S01067.dis     +++|**        BPA - BREAKPOINT PROGRAM TO (P) +/- 1.
01236  M01S01068.dis     +++|*
01237  M01S01069.dis     +++|*         ENTRY  (BA) = BREAKPOINT ACTIVE FLAG.
01238  M01S01070.dis     +++|*                (T2) = 0, IF INCREMENT P.
01239  M01S01071.dis     +++|*                     = 1, IF DECREMENT P.
01240  M01S01072.dis     +++|*
01241  M01S01073.dis     +++|*         EXIT   TO BREAKPOINT INCREMENT OVERLAY.
01242  M01S01074.dis     +++|*                (CA) = 2 * (T2).
01243  M01S01075.dis     +++|*
01244  M01S01076.dis     +++|*         USES   CA.
01245  M01S01077.dis     +++|*
01246  M01S01078.dis     +++|*         CALLS  ECP, LOV.
01247  M01S01079.dis     +++|
01248  M01S01080.dis     +++|
01249  M01S01081.dis     +++| BPA      LDD    T2
01250  M01S01082.dis     +++|          SHN    1
01251  M01S01083.dis     +++|          STD    CA
01252  M01S01084.dis     +++|          LDD    BF
01253  M01S01085.dis     +++|          NJN    BPA2        IF BREAKPOINT ACTIVE
01254  M01S01086.dis     +++|          LJM    ILE         INCORRECT ENTRY
01255  M01S01087.dis     +++|
01256  M01S01088.dis     +++| BPA2     RJM    ECP         END CENTRAL PROGRAM
Line S01089 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01257  M02S01089.271l716 ---|          LDC    BPI         BREAKPOINT P INCREMENT
Line S01090 Modification History
M01 (Added by) dis
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01258  M02S01090.271l716 ---|          LJM    LOV         LOAD OVERLAY
01259  M01S00073.271l716 +++|          LDC    BPI&O26
01260  M01S00074.271l716 +++|*         UJN    LTE         LOAD OVERLAY
01261  M01S00075.271l716 +++| LTE      SPACE  4,10
01262  M01S00076.271l716 +++|**        LTE - LOAD CONSOLE TEXT EDITOR.
01263  M01S00077.271l716 +++|*
01264  M01S00078.271l716 +++|*         CALLS  LOV.
01265  M01S00079.271l716 +++|
01266  M01S00080.271l716 +++|
01267  M01S00081.271l716 +++| LTE      LMC    O26
01268  M01S00082.271l716 +++|          LJM    LOV         LOAD OVERLAY
01269  M01S01091.dis     +++| RCD      SPACE  4,10
01270  M01S01092.dis     +++|**        RDC - RELEASE DISPLAY CHANNEL.
01271  M01S01093.dis     +++|
01272  M01S01094.dis     +++|
01273  M01S01095.dis     +++| RDC      RJM    HDC         HOLD DISPLAY CHANNEL
01274  M01S01096.dis     +++|          RJM    CSB         CLEAR SCREEN BUFFER
01275  M01S01097.dis     +++|          JMP    KBI3        RETURN
01276  M01S01098.dis     +++| SAC      SPACE  4
01277  M01S01099.dis     +++|**        SAC - SET AUTO COMMAND PROCESSING.
01278  M01S01100.dis     +++|
01279  M01S01101.dis     +++|
01280  M01S01102.dis     +++| SAC      LDD    CP          CHECK FOR SPECIAL ENTRY JOB
01281  M01S01103.dis     +++|          ADC    SEPW
01282  M01S01104.dis     +++|          CRD    CM
01283  M01S01105.dis     +++|          LDD    CM
01284  M01S01106.dis     +++|          LPN    24
01285  M01S01107.dis     +++|          ZJN    SAC1        IF NOT DMP= OR SSJ=
01286  M01S01108.dis     +++|          LDN    2           CALL *1AJ* TO CLEAN UP JOB
01287  M01S01109.dis     +++|          RJM    IAJ
01288  M01S01110.dis     +++| SAC1     LDC    CJSA        SET AUTO MODE
01289  M01S01111.dis     +++|          UJN    SRE1
01290  M01S01112.dis     +++| SRE      SPACE  4
01291  M01S01113.dis     +++|**        SRE - SET REPEAT ENTRY.
01292  M01S01114.dis     +++|
01293  M01S01115.dis     +++|
01294  M01S01116.dis     +++| SRE      LDC    INTB        *REPEAT ENTRY.*
01295  M01S01117.dis     +++| SRE1     STD    KM
01296  M01S01118.dis     +++|          JMP    KBI3        RETURN
01297  M01S01119.dis     +++| AMT      SPACE  4
01298  M01S01120.dis     +++|**        AMT - ADVANCE MANAGED TABLE POINTER.
01299  M01S01121.dis     +++|
01300  M01S01122.dis     +++|
01301  M01S01123.dis     +++| AMT      LDM    DFCA,LS
01302  M01S01124.dis     +++|          STD    T1
01303  M01S01125.dis     +++|          ZJN    AMT1
01304  M01S01126.dis     +++|          AOM    -1,T1
01305  M01S01127.dis     +++| AMT1     JMP    KBI3        RETURN
01306  M01S01128.dis     +++| DMT      SPACE  4
01307  M01S01129.dis     +++|**        DMT - DECREMENT MANAGED TABLE POINTER.
01308  M01S01130.dis     +++|
01309  M01S01131.dis     +++|
01310  M01S01132.dis     +++| DMT      LDM    DFCA,LS
01311  M01S01133.dis     +++|          STD    T1
01312  M01S01134.dis     +++|          ZJN    AMT1
01313  M01S01135.dis     +++|          SOM    -1,T1
01314  M01S01136.dis     +++|          JMP    KBI3        RETURN
01315  M01S01137.dis     +++| ADA      SPACE  4,10
01316  M01S01138.dis     +++|**        ADA - ADVANCE *A* DISPLAY.
01317  M01S01139.dis     +++|*
Line S01140 Modification History
M01 (Added by) dis
M02 (Updated by) dis17
Seq #  *Modification Id* Act 
----------------------------+
01318  M02S01140.dis17   ---|*         ENTRY  (T2) = 0, IF FORWARD.
Line S01141 Modification History
M01 (Added by) dis
M02 (Updated by) dis17
Seq #  *Modification Id* Act 
----------------------------+
01319  M02S01141.dis17   ---|*                     = 1, IF BACKWARD.
01320  M01S00003.dis17   +++|*         IF A *-* HAS BEEN ENTERED, INSERT A *BEGIN,* IN THE
01321  M01S00004.dis17   +++|*         KEYBOARD BUFFER.
01322  M01S00005.dis17   +++|*
01323  M01S00006.dis17   +++|*         ENTRY  (T2) = 0, ADVANCE THE A DISPLAY.
01324  M01S00007.dis17   +++|*                     = 1, INSERT *BEGIN,* INTO THE KEYBOARD BUFFER.
01325  M01S01142.dis     +++|
01326  M01S01143.dis     +++|
Line S01144 Modification History
M01 (Added by) dis
M02 (Updated by) dis17
Seq #  *Modification Id* Act 
----------------------------+
01327  M02S01144.dis17   ---| ADA      LDC    DSAA        ADVANCE FNT
01328  M01S00008.dis17   +++| ADA      LDD    T2
01329  M01S00009.dis17   +++|          ZJN    ADA1        IF *+*
01330  M01S00010.dis17   +++|          LDC    BEG         *-* WAS ENTERED, ENTER *BEGIN,*
01331  M01S00011.dis17   +++|          LJM    LOV         LOAD OVERLAY
01332  M01S00012.dis17   +++|
01333  M01S00013.dis17   +++| ADA1     LDC    DSAA        ADVANCE FNT
01334  M01S01145.dis     +++|          UJN    ADH1        UPDATE PAGING BYTES
01335  M01S01146.dis     +++| ADH      SPACE  4,10
01336  M01S01147.dis     +++|**        ADH - ADVANCE *H* DISPLAY.
01337  M01S01148.dis     +++|*
01338  M01S01149.dis     +++|*         ENTRY  (T2) = 0, IF FORWARD.
01339  M01S01150.dis     +++|*                     = 1, IF BACKWARD.
01340  M01S01151.dis     +++|*                (A) = FWA OF PAGING BYTES WHEN ENTERED AT *ADH1*.
01341  M01S01152.dis     +++|
01342  M01S01153.dis     +++|
01343  M01S01154.dis     +++| ADH      LDC    DSHA        ADVANCE FNT
01344  M01S01155.dis     +++| ADH1     STD    T1
01345  M01S01156.dis     +++|          LDD    T2
01346  M01S01157.dis     +++|          LMN    1
01347  M01S01158.dis     +++|          ZJN    ADH2        IF *-*
01348  M01S01159.dis     +++|          LDM    1,T1        ADVANCE FNT
01349  M01S01160.dis     +++| ADH2     STI    T1
01350  M01S01161.dis     +++|          JMP    KBI3        RETURN
01351  M01S01162.dis     +++| ADT      SPACE  4
01352  M01S01163.dis     +++|**        ADT - ADVANCE *T* DISPLAY.
01353  M01S01164.dis     +++|*
01354  M01S01165.dis     +++|*         ENTRY  (T2) = 0, IF FORWARD.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/dis.txt ยท Last modified: by 127.0.0.1