User Tools

Site Tools


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

Deck O26 Part 001

26 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00684 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01103  M02S00684.241l630 ---|          OAM    DKBA,CH
01104  M01S00349.241l630 +++|          CFNC   SLSF
01105  M01S00350.241l630 +++|          DFIM   (CON LN50),*+1
01106  M01S00351.241l630 +++|          LDC    LN48        SET Y-COORDINATE
01107  M01S00352.241l630 +++|          STD    YC
01108  M01S00353.241l630 +++|          LDN    2           OUTPUT MESSAGE COORDINATES
Line S00354 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01109  M02S00354.o2611   ---|          OAM    DKBB,CH
01110  M01S00007.o2611   +++|          OAM    ERRE,CH
01111  M01S00685.o26     +++|          LDD    KM
Line S00686 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01112  M02S00686.o2611   ---|          ZJN    DKB2        IF NO MESSAGE
01113  M01S00008.o2611   +++|          ZJN    DKB3        IF NO MESSAGE
01114  M01S00687.o26     +++|          STD    T1          DISPLAY MESSAGE
01115  M01S00009.o2611   +++|          LMC    ERRE
01116  M01S00010.o2611   +++|          ZJN    DKB2        IF *RECORD TOO LONG*
01117  M01S00688.o26     +++| DKB1     LDI    T1
01118  M01S00689.o26     +++|          OAN    CH+40
Line S00690 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01119  M02S00690.o2611   ---|          ZJN    DKB2        IF END OF MESSAGE
01120  M01S00011.o2611   +++|          ZJN    DKB3        IF END OF MESSAGE
01121  M01S00691.o26     +++|          AOD    T1
01122  M01S00692.o26     +++|          UJN    DKB1
01123  M01S00693.o26     +++|
01124  M01S00012.o2611   +++| DKB2     LDC    ERREL*10000+ERRE
01125  M01S00013.o2611   +++|          RJM    HIL
Line S00694 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01126  M02S00694.o2611   ---| DKB2     LDD    IF
Line S00695 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01127  M02S00695.o2611   ---|          ZJN    DKB3        IF NO INSERT
01128  M01S00014.o2611   +++| DKB3     LDD    IF
01129  M01S00015.o2611   +++|          ZJN    DKB4        IF NO INSERT
Line S00696 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00696.241l630 ---|
Line S00697 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00697.241l630 ---|          DISPLA ,,(INSERT.)
Line S00698 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01132  M02S00698.241l630 ---|
01133  M01S00355.241l630 +++|          DISPLA ,,(INSERT.)
Line S00699 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00699.o2611   ---| DKB3     LDM    KBUF+1
01135  M01S00016.o2611   +++| DKB4     LDM    KBUF+1
01136  M01S00700.o26     +++|          LMN    1R.
Line S00701 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01137  M02S00701.o2611   ---|          NJN    DKB4        IF 2ND CHARACTER .NE. *.*
01138  M01S00017.o2611   +++|          NJN    DKB7        IF 2ND CHARACTER .NE. *.*
Line S00702 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01139  M02S00702.241l630 ---|
01140  M01S00703.o26     +++|          DISPLA ,,(COL. =)
01141  M01S00018.o2611   +++|*         LDN    0           PRESET DIGITS
01142  M01S00019.o2611   +++|          STD    T3
Line S00704 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01143  M02S00704.241l630 ---|
01144  M01S00705.o26     +++|          LDD    KI          DISPLAY COLUMN NUMBER
01145  M01S00706.o26     +++|          SBN    1
Line S00707 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01146  M02S00707.o2611   ---|          RJM    DDN
Line S00708 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
M03 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01147  M03S00708.o2611   ---| DKB4     LDC    7036        SET Y-COORDINATE
Line S00709 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
M03 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01148  M03S00709.o2611   ---|          STD    YC
Line S00710 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
M03 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01149  M03S00710.o2611   ---|          RJM    DKL         DISPLAY KEYBOARD LINE
Line S00711 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
M03 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01150  M03S00711.o2611   ---|          LJM    DKBX        RETURN
Line S00712 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
M03 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01151  M03S00712.o2611   ---|
Line S00713 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
M03 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01152  M03S00713.o2611   ---| DKBA     DATA   6020,7060
Line S00356 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00356.o2611   ---| DKB4     DFIM   (LDD KD)
Line S00357 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01154  M02S00357.o2611   ---|          UJN    DKB5        DISPLAY KEYBOARD LINE
Line S00358 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01155  M02S00358.o2611   ---|
Line S00359 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01156  M02S00359.o2611   ---|          NJN    DKB8        IF KEYBOARD BUFFER DISPLAYED
01157  M01S00020.o2611   +++| DKB5     STD    T1
01158  M01S00021.o2611   +++|          AOD    T3
01159  M01S00022.o2611   +++|          LDD    T1          COUNT 10
01160  M01S00023.o2611   +++|          SBN    10D
01161  M01S00024.o2611   +++|          PJN    DKB5        IF CONVERSION NOT COMPLETE
01162  M01S00025.o2611   +++|          SOD    T3
01163  M01S00026.o2611   +++|          ZJN    DKB6        IF LEADING ZERO
01164  M01S00027.o2611   +++|          ADN    1R0
01165  M01S00028.o2611   +++| DKB6     OAN    CH+40
01166  M01S00029.o2611   +++|          LDD    T1
01167  M01S00030.o2611   +++|          SHN    6
01168  M01S00031.o2611   +++|          ADC    2R0.
01169  M01S00032.o2611   +++|          OAN    CH+40
01170  M01S00033.o2611   +++| DKB7     DFIM   (LDD KD)
01171  M01S00034.o2611   +++|          UJN    DKB8        DISPLAY KEYBOARD LINE
01172  M01S00035.o2611   +++|
01173  M01S00036.o2611   +++|          NJN    DKB11       IF KEYBOARD BUFFER DISPLAYED
01174  M01S00360.241l630 +++|          LDC    SLPF
01175  M01S00361.241l630 +++|          STM    DKBA        SELECT LEFT SCREEN - PRIORITY OUTPUT
01176  M01S00362.241l630 +++|          CFNC
Line S00363 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01177  M02S00363.o2611   ---| DKB5     RJM    DKL         DISPLAY KEYBOARD LINE
01178  M01S00037.o2611   +++| DKB8     RJM    DKL         DISPLAY KEYBOARD LINE
01179  M01S00364.241l630 +++|          DFIM   (SHN 21-11)
Line S00365 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01180  M02S00365.o2611   ---|          UJN    DKB7        RETURN
01181  M01S00038.o2611   +++|          UJN    DKB10       RETURN
01182  M01S00366.241l630 +++|
Line S00367 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01183  M02S00367.o2611   ---|          PJN    DKB7        IF DATA ON LAST LINE
Line S00368 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01184  M02S00368.o2611   ---| DKB6     RJM    ERL         ERASE LAST LINE
Line S00369 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01185  M02S00369.o2611   ---| DKB7     FJM    *,CH
01186  M01S00039.o2611   +++|          PJN    DKB10       IF DATA ON LAST LINE
01187  M01S00040.o2611   +++| DKB9     RJM    ERL         ERASE LAST LINE
01188  M01S00041.o2611   +++| DKB10    FJM    *,CH        IF FULL CHANNEL
01189  M01S00370.241l630 +++|          DCN    CH+40
01190  M01S00371.241l630 +++|          LJM    DKBX        RETURN
01191  M01S00372.241l630 +++|
Line S00373 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01192  M02S00373.o2611   ---| DKB8     LDC    SLPF        CHECK KEYBOARD BUFFER DISPLAY
01193  M01S00042.o2611   +++| DKB11    LDC    SLPF        CHECK KEYBOARD BUFFER DISPLAY
01194  M01S00374.241l630 +++| DKBA     EQU    *-1
Line S00375 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01195  M02S00375.o2611   ---|          ZJN    DKB7        IF PRIORITY LINES CLEAR
01196  M01S00043.o2611   +++|          ZJN    DKB10       IF PRIORITY LINES CLEAR
01197  M01S00376.241l630 +++|          CFNC
01198  M01S00377.241l630 +++|          LDN    0           SET LINES CLEARED
01199  M01S00378.241l630 +++|          STM    DKBA
01200  M01S00379.241l630 +++|          RJM    ERL         ERASE *LN50*
01201  M01S00380.241l630 +++|          LCN    YINC
01202  M01S00381.241l630 +++|          RAD    YC
Line S00382 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01203  M02S00382.o2611   ---|          UJN    DKB6        CLEAR *LN51*
Line S00383 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01204  M02S00383.o2611   ---|
Line S00384 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01205  M02S00384.o2611   ---|
Line S00385 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01206  M02S00385.o2611   ---|          DFIM   (CON LN27)
Line S00386 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01207  M02S00386.o2611   ---| DKBB     CON    LN45,CH03
01208  M01S00044.o2611   +++|          UJN    DKB9        CLEAR *LN51*
01209  M01S00714.o26     +++| DLL      SPACE  4,20
01210  M01S00715.o26     +++|**        DLL - DISPLAY LAST LINE.
01211  M01S00716.o26     +++|*
01212  M01S00717.o26     +++|*         ENTRY  (IF) = INSERT FLAG.
01213  M01S00387.241l630 +++|*
01214  M01S00388.241l630 +++|*         EXIT   (A) .GT. 0.
01215  M01S00718.o26     +++|*
01216  M01S00719.o26     +++|*         CALLS  DKL.
01217  M01S00720.o26     +++|
01218  M01S00721.o26     +++|
01219  M01S00722.o26     +++| DLL      SUBR               ENTRY/EXIT
01220  M01S00723.o26     +++|          LDD    IF          CHECK INSERT FLAG
01221  M01S00724.o26     +++|          ZJN    DLL1        IF NOT SET
01222  M01S00725.o26     +++|          LDD    IP+1        CHECK INSERT
01223  M01S00726.o26     +++|          LMD    IN+1
01224  M01S00727.o26     +++|          NJN    DLL1        IF NOT AT END
01225  M01S00728.o26     +++|          LDD    IP          CHECK INSERT
01226  M01S00729.o26     +++|          LMD    IN
01227  M01S00730.o26     +++|          NJN    DLL1        IF NOT AT END
01228  M01S00731.o26     +++|          STD    IF          CLEAR INSERT
01229  M01S00389.241l630 +++|          AOD    DR
01230  M01S00732.o26     +++| DLL1     RJM    DIL         DISPLAY INSERT LINE
01231  M01S00733.o26     +++|          LDD    IF
01232  M01S00734.o26     +++|          NJN    DLLX        IF INSERT LINE
01233  M01S00735.o26     +++|          RJM    DKL         DISPLAY KEYBOARD LINE
01234  M01S00736.o26     +++|          UJN    DLLX        RETURN
01235  M01S00737.o26     +++| DISPLAY  SPACE  4,10
01236  M01S00738.o26     +++|**        DISPLAY COMMON DECKS.
01237  M01S00739.o26     +++|
01238  M01S00740.o26     +++|
Line S00741 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01239  M02S00741.241l630 ---| NAME     MICRO  1,, O26
01240  M01S00742.o26     +++|*CALL     COMDDSP
Line S00743 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01241  M02S00743.241l630 ---| SYS$     EQU    1           DO NOT DISPLAY CHANNEL STATUS
01242  M01S00744.o26     +++|*CALL     COMDSYS
01243  M01S00745.o26     +++|          TITLE  KEYBOARD INPUT.
01244  M01S00746.o26     +++| KBI      SPACE  4,20
01245  M01S00747.o26     +++|***       KEYBOARD INPUT.
01246  M01S00748.o26     +++|*
01247  M01S00749.o26     +++|*         ALL ENTRIES ARE DISPLAYED ON THE BOTTOM OF THE LEFT SCREEN
01248  M01S00750.o26     +++|*         AS THEY ARE ENTERED.
01249  M01S00751.o26     +++|*
01250  M01S00752.o26     +++|*         *CR* MUST FOLLOW ALL ENTRIES BEFORE ACTION IS TAKEN.
01251  M01S00753.o26     +++|*         *BKSP* DELETES THE PREVIOUS CHARACTER TYPED.
01252  M01S00754.o26     +++|*         *LEFT BLANK* DELETES THE CURRENT LINE BEING ENTERED.
01253  M01S00755.o26     +++|*         *RIGHT BLANK* IS THE TAB KEY.
01254  M01S00756.o26     +++|*
01255  M01S00757.o26     +++|*         IF THESE CHARACTERS ARE THE FIRST ENTRY, THE FOLLOWING
01256  M01S00758.o26     +++|*         APPLIES -
01257  M01S00759.o26     +++|*         *0* = SET INSERT AT FIRST LINE.
01258  M01S00760.o26     +++|*         *1* = SET INSERT AT 4TH LINE ON SCREEN.
01259  M01S00761.o26     +++|*         *2* = SET INSERT AT 8TH LINE ON SCREEN.
01260  M01S00762.o26     +++|*         *3* = SET INSERT AT 12TH LINE ON SCREEN.
01261  M01S00763.o26     +++|*         *4* = SET INSERT AT 16TH LINE ON SCREEN.
01262  M01S00764.o26     +++|*         *5* = SET INSERT AT 20TH LINE ON SCREEN.
01263  M01S00765.o26     +++|*         *6* = SET INSERT AT 24TH LINE ON SCREEN.
01264  M01S00766.o26     +++|*         *7* = SET INSERT AT 32ND LINE ON SCREEN.
01265  M01S00767.o26     +++|*         *8* = SET INSERT *8* AT INSERT LINE.
01266  M01S00768.o26     +++|*         *9* = SET INSERT *9* AT INSERT LINE.
01267  M01S00769.o26     +++|*         *+* = DISPLAY NEXT PAGE.
01268  M01S00770.o26     +++|*         *-* = DISPLAY PREVIOUS 18 LINES.
01269  M01S00771.o26     +++|*         (*) = HOLD DISPLAY.
01270  M01S00772.o26     +++|*         */* = START OR STOP ROLL.
01271  M01S00773.o26     +++|*         *(* = ADVANCE INSERT BY 1.
01272  M01S00774.o26     +++|*         *)* = DECREMENT INSERT BY 1.
01273  M01S00775.o26     +++|*         *=* = TOGGLE INSERT FLAG.
01274  M01S00776.o26     +++|*         *,* = FIND INSERT LINE.
01275  M01S00777.o26     +++|*         *.* = DELETE NEXT LINE.
01276  M01S00778.o26     +++|*         *CR* = SET */REPEAT ENTRY.*
01277  M01S00779.o26     +++|*         * * = SET *P.* INTO BUFFER.
01278  M01S00780.o26     +++|*
01279  M01S00781.o26     +++|*         ABOVE THE ENTRY DISPLAY, THE FOLLOWING MESSAGES MAY
01280  M01S00782.o26     +++|*         APPEAR -
Line S00783 Modification History
M01 (Added by) o26
M02 (Updated by) o2610
Seq #  *Modification Id* Act 
----------------------------+
01281  M02S00783.o2610   ---|*         *BLOCK TOO LARGE.* = THE BLOCK TO BE MOVED OR
Line S00784 Modification History
M01 (Added by) o26
M02 (Updated by) o2610
Seq #  *Modification Id* Act 
----------------------------+
01282  M02S00784.o2610   ---|*                COPIED DOES NOT FIT INTO THE REMAINING
Line S00785 Modification History
M01 (Added by) o26
M02 (Updated by) o2610
Seq #  *Modification Id* Act 
----------------------------+
01283  M02S00785.o2610   ---|*                FIELD LENGTH.  USE *ENFL* COMMAND TO
Line S00786 Modification History
M01 (Added by) o26
M02 (Updated by) o2610
Seq #  *Modification Id* Act 
----------------------------+
01284  M02S00786.o2610   ---|*                INCREASE SCRATCH SPACE.
01285  M01S00001.o2610   +++|*
01286  M01S00002.o2610   +++|*         *DATA OVERFLOW.* = THE LINE TO BE ENTERED IN THE
01287  M01S00003.o2610   +++|*                BUFFER OR THE BLOCK TO BE MOVED OR COPIED
01288  M01S00004.o2610   +++|*                DOES NOT FIT INTO THE REMAINING FIELD LENGTH.
01289  M01S00005.o2610   +++|*                USE *ENFL* COMMAND TO INCREASE BUFFER SPACE.
01290  M01S00787.o26     +++|*         *DISK BUSY.* = WAITING FOR *O26* OVERLAY.
01291  M01S00788.o26     +++|*         *FILE NOT ON MASS STORAGE.* = FILE NOT VALIDATED
01292  M01S00789.o26     +++|*                FOR RANDOM PROCESSING.
01293  M01S00790.o26     +++|*         *FORMAT ERROR.* = A FORMAT ERROR HAS BEEN
01294  M01S00791.o26     +++|*                DETECTED DURING TRANSLATION OF THE ENTRY.
Line S00792 Modification History
M01 (Added by) o26
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01295  M02S00792.v23l617 ---|*         *ILLEGAL CONTROL CARD.* = ILLEGAL USER ACCESS
01296  M01S00003.v23l617 +++|*         *INCORRECT COMMAND.* = USER ACCESS NOT VALID
01297  M01S00793.o26     +++|*                DETECTED.
01298  M01S00794.o26     +++|*         *INDEX NOT FOUND.* = THE FILE DIRECTORY (RANDOM
01299  M01S00795.o26     +++|*                INDEX) WAS NOT FOUND.
01300  M01S00796.o26     +++|*         *INSERT 8 OR 9 NOT SET.* = THE COMMAND ENTERED
01301  M01S00797.o26     +++|*                REQUIRES THAT BOTH THE INSERT 8 MARKER AND
01302  M01S00798.o26     +++|*                THE INSERT 9 MARKER BE SET.
Line S00799 Modification History
M01 (Added by) o26
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01303  M02S00799.v23l617 ---|*         *INVALID FL REQUEST.* = THE REQUESTED FIELD
01304  M01S00004.v23l617 +++|*         *INCORRECT FL REQUEST.* = THE REQUESTED FIELD
01305  M01S00800.o26     +++|*                LENGTH WAS GREATER THAN 131K, OR LESS THAN
Line S00801 Modification History
M01 (Added by) o26
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01306  M02S00801.v23l617 ---|*                10K IF ECS ASSIGNED.
01307  M01S00005.v23l617 +++|*                10K IF EXTENDED MEMORY ASSIGNED.
01308  M01S00802.o26     +++|*         *LINE NOT FOUND.* = A LINE CONTAINING THE STRING
01309  M01S00803.o26     +++|*                SPECIFIED WAS NOT FOUND.
01310  M01S00804.o26     +++|*         *LINE OVERFLOW.* = THE REPLACE COMMAND INCREASED
01311  M01S00805.o26     +++|*                LINE LENGTH TO GREATER THAN THE MAXIMUM
01312  M01S00806.o26     +++|*                BUFFER SIZE OF 90 CHARACTERS.
01313  M01S00807.o26     +++|*         *LIST.* = *O26* IS GENERATING A LIST OF THE DIRECTORY
01314  M01S00808.o26     +++|*                FOR THE FILE.
01315  M01S00809.o26     +++|*         *NO RANDOM ACCESS.* = THE FILE IS NOT RANDOM ACCESS.
01316  M01S00810.o26     +++|*         *NOT IN LINE.* = CHARACTER STRING NOT FOUND BY THE
01317  M01S00811.o26     +++|*                REPLACE CHARACTER COMMANDS.
01318  M01S00812.o26     +++|*         *OUT OF RANGE.* = EDIT LINE NUMBER NOT IN BUFFER.
01319  M01S00813.o26     +++|*         *PP BUSY.* = REQUEST IGNORED BY SYSTEM.
01320  M01S00814.o26     +++|*         *PRU SIZE MODIFIED.* = A REWRITE IN PLACE CANNOT
01321  M01S00815.o26     +++|*                BE PERFORMED BECAUSE OF THE REASON INDICATED.
01322  M01S00816.o26     +++|*         *RECORD NOT FOUND.* = THE REQUESTED RECORD WAS NOT
01323  M01S00817.o26     +++|*                FOUND ON THE FILE.  FOR SEQUENTIAL RECORD
01324  M01S00818.o26     +++|*                SEARCH, THE RECORD WAS NOT FOUND AFTER THE
01325  M01S00819.o26     +++|*                CURRENT FILE POSITION.
01326  M01S00820.o26     +++|*         *RECORD TOO LONG.* = RECORD READ DID NOT FIT
01327  M01S00821.o26     +++|*                INTO BUFFER.
01328  M01S00822.o26     +++|*         *REPEAT ENTRY.* = ENTRY WILL NOT BE CLEARED AFTER
01329  M01S00823.o26     +++|*                EXECUTION.
01330  M01S00824.o26     +++|*         *SEARCH / CCCCCCC.* = *O26* IS SEARCHING SEQUENTIAL
01331  M01S00825.o26     +++|*                RECORD *CCCCCCC*.
01332  M01S00826.o26     +++|*         *SEARCH.* = *O26* IS SEARCHING A RANDOM RECORD.
01333  M01S00827.o26     +++|*         *STORAGE NOT AVAILABLE.* = THE REQUESTED FIELD
01334  M01S00828.o26     +++|*                LENGTH IS CURRENTLY UNAVAILABLE.
01335  M01S00829.o26     +++|*         *WAITING FOR STORAGE.* = *O26* IS WAITING FOR THE
01336  M01S00830.o26     +++|*                REQUESTED FIELD LENGTH TO BE ASSIGNED.
01337  M01S00831.o26     +++|*         *WRITE ON READ-ONLY FILE.* = WRITE IS NOT ALLOWED
01338  M01S00832.o26     +++|*                ON THE EDIT FILE.
01339  M01S00833.o26     +++| KBI      SPACE  4,20
01340  M01S00834.o26     +++|**        KBI - KEYBOARD INPUT.
01341  M01S00835.o26     +++|*
01342  M01S00836.o26     +++|*         USES   T2, T5, CA, UC, KE, KI.
01343  M01S00837.o26     +++|*
01344  M01S00838.o26     +++|*         CALLS  CFC, RDL.
01345  M01S00390.241l630 +++|*
01346  M01S00391.241l630 +++|*         MACROS CFNC, DFIM.
01347  M01S00839.o26     +++|
01348  M01S00840.o26     +++|
Line S00841 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01349  M02S00841.241l630 ---| KBI8     NJN    KBI1        IF INPUT CHARACTER PRESENT
01350  M01S00392.241l630 +++| KBI8     SHN    21-6
01351  M01S00393.241l630 +++|          PJN    KBI9        IF NOT CONTROLWARE RELOAD REQUEST
01352  M01S00394.241l630 +++|          AOD    DR
01353  M01S00395.241l630 +++| KBI9     SHN    6-21
01354  M01S00396.241l630 +++|          NJN    KBI1        IF INPUT CHARACTER PRESENT
01355  M01S00842.o26     +++|          STM    KBIB        CLEAR CHARACTER
01356  M01S00843.o26     +++|
Line S00844 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01357  M02S00844.241l630 ---| KBI      SUBR               ENTRY/EXIT
Line S00845 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01358  M02S00845.241l630 ---|          FNC    7020,CH     SELECT KEYBOARD INPUT
Line S00846 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01359  M02S00846.241l630 ---|          ACN    CH          INPUT CHARACTER
Line S00847 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01360  M02S00847.241l630 ---|          LDN    0
01361  M01S00397.241l630 +++| KBIX     LJM    O266        ENTRY/EXIT
01362  M01S00398.241l630 +++| KBI      EQU    *-1
01363  M01S00399.241l630 +++|          CFNC   SKIF        SELECT KEYBOARD INPUT
01364  M01S00848.o26     +++|          IAN    CH+40
01365  M01S00849.o26     +++|          DCN    CH+40
01366  M01S00850.o26     +++|          STD    KE
Line S00851 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01367  M02S00851.241l630 ---|          LJM    KBI8        PROCESS OVERLAY LOAD
Line S00852 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01368  M02S00852.241l630 ---|
01369  M01S00400.241l630 +++|          LJM    KBI8        CHECK KEYBOARD INPUT
01370  M01S00853.o26     +++| KBIA     EQU    *-1
01371  M01S00854.o26     +++|          JMP    KBIX        RETURN
01372  M01S00855.o26     +++|
01373  M01S00856.o26     +++| KBI1     LDC    **
01374  M01S00857.o26     +++| KBIB     EQU    *-1
01375  M01S00858.o26     +++|          ZJN    KBI2        IF NO PREVIOUS CHARACTER
01376  M01S00859.o26     +++|          SOM    KBID        DECREMENT DELAY
01377  M01S00860.o26     +++|          NJN    KBIX        IF DELAY NO ELAPSED
01378  M01S00861.o26     +++|          LDN    20          SET REPEAT DELAY
01379  M01S00401.241l630 +++|          DFIM   (LDN 1)
01380  M01S00862.o26     +++| KBI2     LMN    24          SET INITIAL DELAY
01381  M01S00863.o26     +++|          STM    KBID
01382  M01S00864.o26     +++|          LDD    KE
01383  M01S00865.o26     +++|          STM    KBIB        STORE CURRENT CHARACTER
01384  M01S00866.o26     +++|          LDD    KI
01385  M01S00867.o26     +++|          NJN    KBI3        IF NOT FIRST CHARACTER
01386  M01S00868.o26     +++|          STM    DKLA        CLEAR ALTERNATE KEYBOARD
01387  M01S00869.o26     +++|          RJM    CFC         CHECK FIRST CHARACTER
01388  M01S00870.o26     +++| KBI3     LDD    KE          CHECK CHARACTER
01389  M01S00871.o26     +++| KBIC     LMN    **
01390  M01S00872.o26     +++|          NJN    KBI4        IF NOT UPPER CASE SHIFT
01391  M01S00873.o26     +++|          LDD    UC          TOGGLE UPPER CASE
01392  M01S00874.o26     +++|          LMN    1
01393  M01S00875.o26     +++|          STD    UC
01394  M01S00876.o26     +++|          ZJN    KBI6        IF NOT UPPER CASE
01395  M01S00877.o26     +++|          JMP    KBIX        RETURN
01396  M01S00878.o26     +++|
01397  M01S00879.o26     +++| KBI4     LDD    UC
01398  M01S00880.o26     +++|          ZJN    KBI6        IF NOT UPPER CASE
01399  M01S00881.o26     +++|          LDN    0           CLEAR UPPER CASE FLAG
01400  M01S00882.o26     +++|          STD    UC
01401  M01S00883.o26     +++|          LDC    KBIF-1      SET UPPER CASE TABLE
01402  M01S00884.o26     +++|          STD    T2
01403  M01S00885.o26     +++| KBI5     AOD    T2          ADVANCE TABLE
01404  M01S00886.o26     +++|          LDI    T2
01405  M01S00887.o26     +++|          ZJN    KBI6        IF END OF TABLE
01406  M01S00888.o26     +++|          SHN    -6
01407  M01S00889.o26     +++|          LMD    KE          COMPARE ENTRY
01408  M01S00890.o26     +++|          NJN    KBI5        IF NO MATCH
01409  M01S00891.o26     +++|          LDI    T2          ENTER SPECIAL CHARACTER
01410  M01S00892.o26     +++|          LPN    77
01411  M01S00893.o26     +++|          STD    KE
01412  M01S00894.o26     +++|          SBN    1
01413  M01S00895.o26     +++|          ZJN    .KBIX       IF BKSP
01414  M01S00896.o26     +++|          ADN    1
01415  M01S00897.o26     +++|          UJN    KBI7
01416  M01S00898.o26     +++|
01417  M01S00899.o26     +++| KBI6     LDD    KE          CHECK ENTRY
01418  M01S00900.o26     +++|          SBN    53
01419  M01S00901.o26     +++|          MJN    KBC         IF .LT. *$*
01420  M01S00902.o26     +++|          SBN    KBIEL
01421  M01S00903.o26     +++| KBI7     PJN    KBC         IF .GT. * *
01422  M01S00904.o26     +++|          LDM    KBIE-53,KE
Line S00905 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01423  M02S00905.241l630 ---|          STD    T2
Line S00906 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01424  M02S00906.241l630 ---|          STD    T5          SET EXECUTE FLAG
Line S00907 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01425  M02S00907.241l630 ---|          LJM    0,T2        PROCESS ENTRY
01426  M01S00402.241l630 +++|          STD    T5          SET EXECUTE FLAG
01427  M01S00403.241l630 +++|          LJM    0,T5        PROCESS ENTRY
01428  M01S00908.o26     +++|
01429  M01S00909.o26     +++|
01430  M01S00910.o26     +++|*         PROCESS *SPACE*.
01431  M01S00911.o26     +++|
01432  M01S00912.o26     +++| KBS      LDN    1R          SUBSTITUTE * *
01433  M01S00913.o26     +++|          STD    KE
01434  M01S00914.o26     +++|          LDC    0
01435  M01S00915.o26     +++| KBSA     EQU    *-1
01436  M01S00916.o26     +++|          NJN    KBC         IF NOT SKIPPING
01437  M01S00917.o26     +++|          LDM    KBUF
01438  M01S00918.o26     +++|          LMN    1RA
01439  M01S00919.o26     +++|          ZJN    KBS1        IF *A*
01440  M01S00920.o26     +++|          LMN    1RD&1RA
01441  M01S00921.o26     +++|          ZJN    KBS1        IF *D*
01442  M01S00922.o26     +++|          LMN    1RE&1RD
01443  M01S00923.o26     +++|          ZJN    KBS1        IF *E*
01444  M01S00924.o26     +++|          LMN    1RL&1RE
01445  M01S00925.o26     +++|          NJN    KBC         IF NOT *L*
01446  M01S00926.o26     +++| KBS1     LDM    DBUF,KI
01447  M01S00927.o26     +++|          LPN    77
01448  M01S00928.o26     +++|          UJN    KBC1
01449  M01S00929.o26     +++|
01450  M01S00930.o26     +++|
01451  M01S00931.o26     +++|*         PROCESS NORMAL CHARACTER.
01452  M01S00932.o26     +++|
01453  M01S00933.o26     +++| KBC      LDD    KE          CLEAR SKIP FLAG
01454  M01S00934.o26     +++|          NJN    KBC0        IF NOT COLON
Line S00935 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01455  M02S00935.241l630 ---|          LDC    100         SUBSTITUTE 100B FOR A COLON
01456  M01S00404.241l630 +++|          LDD    HN          SUBSTITUTE 100B FOR COLON
01457  M01S00936.o26     +++| KBC0     STM    KBSA        TURN OFF SKIP MODE
01458  M01S00937.o26     +++| KBC1     STM    KBUF,KI
01459  M01S00938.o26     +++|          AOD    KI
Line S00939 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01460  M02S00939.241l630 ---|          ADC    -KBUFL      CHECK FOR END OF BUFFER
01461  M01S00405.241l630 +++|          SBN    62D
01462  M01S00406.241l630 +++|          NJN    KBC3        IF NOT ADVANCE INTO DOUBLE DISPLAY LINE
01463  M01S00407.241l630 +++|          AOD    DR
01464  M01S00001.o2613   +++|          LDN    0
01465  M01S00408.241l630 +++| KBC3     SBN    KBUFL-62D
01466  M01S00940.o26     +++|          PJN    KBB         IF BUFFER FULL
01467  M01S00941.o26     +++|          LDN    0           CLEAR EXECUTE FLAG
01468  M01S00942.o26     +++|          STD    T5
01469  M01S00943.o26     +++|          LJM    INT         INTERPRET KEYBOARD MESSAGE
01470  M01S00944.o26     +++|
01471  M01S00945.o26     +++|*         PROCESS *BKSP*.
01472  M01S00946.o26     +++|
Line S00947 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01473  M02S00947.241l630 ---| KBB      SOD    KI          CLEAR PREVIOUS ENTRY
Line S00948 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01474  M02S00948.241l630 ---|          LDN    1R
Line S00949 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01475  M02S00949.241l630 ---|          STM    KBUF,KI
Line S00950 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01476  M02S00950.241l630 ---|          LDD    KI
01477  M01S00409.241l630 +++| KBB      LDN    1R          CLEAR PREVIOUS ENTRY
01478  M01S00410.241l630 +++|          STM    KBUF-1,KI
01479  M01S00411.241l630 +++|          SOD    KI
01480  M01S00951.o26     +++|          SBN    2
01481  M01S00952.o26     +++|          PJN    KBB1        IF NOT BEFORE COLUMN 2
01482  M01S00953.o26     +++|          LDN    0           CLEAR DISPLAY ALTERNATE BUFFER
01483  M01S00954.o26     +++|          STM    DKLA
Line S00955 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01484  M02S00955.241l630 ---| KBB1     LDD    KM
Line S00956 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01485  M02S00956.241l630 ---|          LMC    ERRD
Line S00957 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01486  M02S00957.241l630 ---|          ZJN    KBB2        IF REPEAT ENTRY RETURN
01487  M01S00412.241l630 +++| KBB1     SBN    61D-2
01488  M01S00413.241l630 +++|          NJN    KBB2        IF NOT BACKSPACE INTO SINGLE DISPLAY LINE
01489  M01S00414.241l630 +++|          AOD    DR
01490  M01S00415.241l630 +++| KBB2     LDD    KM          CHECK KEYBOARD MESSAGE
01491  M01S00416.241l630 +++|          LMC    ERRD
01492  M01S00417.241l630 +++|          ZJN    KBB3        IF REPEAT ENTRY RETURN
01493  M01S00958.o26     +++|          LDN    0
01494  M01S00959.o26     +++|          STD    KM
Line S00960 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01495  M02S00960.241l630 ---| KBB2     JMP    KBIX        RETURN
01496  M01S00418.241l630 +++| KBB3     JMP    KBIX        RETURN
01497  M01S00961.o26     +++|
01498  M01S00962.o26     +++|
01499  M01S00963.o26     +++|*         PROCESS *.*.
01500  M01S00964.o26     +++|
01501  M01S00965.o26     +++| KBP      LDD    KI          CHECK COLUMN
01502  M01S00966.o26     +++|          SBN    1
01503  M01S00967.o26     +++|          ZJN    KBP1        IF COL. 2
01504  M01S00968.o26     +++|          LJM    KBC
01505  M01S00969.o26     +++|
01506  M01S00970.o26     +++| KBP1     STM    KBSA        SET SKIP FLAG
01507  M01S00971.o26     +++|          LDM    KBUF
01508  M01S00972.o26     +++|          LMN    1RA
01509  M01S00973.o26     +++|          ZJN    KBP2        IF *A*
01510  M01S00974.o26     +++|          LMN    1RD&1RA
01511  M01S00975.o26     +++|          ZJN    KBP3        IF *D*
01512  M01S00976.o26     +++|          LMN    1RE&1RD
01513  M01S00977.o26     +++|          ZJN    KBP3        IF *E*
01514  M01S00978.o26     +++|          LMN    1RL&1RE
01515  M01S00979.o26     +++|          ZJN    KBP2        IF *L*
01516  M01S00980.o26     +++|          LMN    1RM&1RL
01517  M01S00981.o26     +++|          ZJN    KBP2        IF *M*
01518  M01S00982.o26     +++|          LMN    1RN&1RM
01519  M01S00983.o26     +++|          NJN    KBP4        IF NOT *N*
01520  M01S00984.o26     +++| KBP2     LDD    IF
01521  M01S00985.o26     +++|          ZJN    .KBIX       IF NO INSERT
01522  M01S00419.241l630 +++|          AOD    DR
01523  M01S00986.o26     +++|          LDC    BUFM+2      SET CHARACTER ADDRESS
01524  M01S00987.o26     +++|          STD    CA
01525  M01S00988.o26     +++|          LDN    0           CLEAR BUFFER
01526  M01S00989.o26     +++|          STI    CA
01527  M01S00990.o26     +++|          RJM    RDL         READ NEXT LINE
01528  M01S00991.o26     +++| KBP3     LDC    DBUF        SET ALTERNATE LINE BUFFER
01529  M01S00992.o26     +++|          STM    DKLA
01530  M01S00993.o26     +++| KBP4     LDN    1R.
01531  M01S00994.o26     +++|          JMP    KBC1
01532  M01S00995.o26     +++|
01533  M01S00420.241l630 +++|          DFIM   (CON 1)
01534  M01S00996.o26     +++| KBID     DATA   24          DELAY COUNT
01535  M01S00997.o26     +++|
01536  M01S00998.o26     +++| KBIE     BSS    0
01537  M01S00999.o26     +++|          LOC    53
01538  M01S01000.o26     +++|          CON    PLB         53 *LEFT BLANK*
01539  M01S01001.o26     +++|          CON    KBC         54
01540  M01S01002.o26     +++|          CON    PRT         55 *RIGHT BLANK*
01541  M01S01003.o26     +++|          CON    KBC         56
01542  M01S01004.o26     +++|          CON    KBP         57 *.*
01543  M01S01005.o26     +++|          CON    INT         60 *CR*
01544  M01S01006.o26     +++|          CON    KBB         61 *BKSP*
01545  M01S01007.o26     +++|          CON    KBS         62 * *
01546  M01S01008.o26     +++|          LOC    *O
01547  M01S01009.o26     +++| KBIEL    EQU    *-KBIE
01548  M01S01010.o26     +++|
01549  M01S01011.o26     +++| KBIF     BSS    0
01550  M01S01012.o26     +++|          CON    1LS+53
01551  M01S01013.o26     +++|          CON    2R0#        60
01552  M01S01014.o26     +++|          CON    2R1[        61
01553  M01S01015.o26     +++|          CON    2R2]        62
01554  M01S01016.o26     +++|          CON    1L3+63
01555  M01S01017.o26     +++|          CON    2R4"        64
01556  M01S01018.o26     +++|          CON    1L5+65      65
01557  M01S01019.o26     +++|          CON    2R6!        66
01558  M01S01020.o26     +++|          CON    2R7&        67
01559  M01S01021.o26     +++|
01560  M01S01022.o26     +++|          CON    2RQ'        70
01561  M01S01023.o26     +++|          CON    2RW?        71
01562  M01S01024.o26     +++|          CON    2RE<        72
01563  M01S01025.o26     +++|          CON    2RR>        73
01564  M01S01026.o26     +++|          CON    2RT;       74
01565  M01S01027.o26     +++|          CON    2RY\        75
01566  M01S01028.o26     +++|          CON    2RU;       76
01567  M01S01029.o26     +++|          CON    2RI;        77
01568  M01S01030.o26     +++|
01569  M01S01031.o26     +++|          CON    2R="        64
01570  M01S01032.o26     +++|          CON    1L.+65      65
01571  M01S01033.o26     +++|          CON    2RA&        67
01572  M01S01034.o26     +++|          CON    2R(<        72
01573  M01S01035.o26     +++|          CON    2R)>        73
01574  M01S01036.o26     +++|          CON    2R+;       74
01575  M01S01037.o26     +++|          CON    2R-\        75
01576  M01S01038.o26     +++|          CON    2R,;        77
01577  M01S01039.o26     +++|
01578  M01S01040.o26     +++|          CON    6101        BKSP
01579  M01S01041.o26     +++| KBIG     CON    2RZ0-1R0    00        ( 0, IF 63 CHARACTER SET)
01580  M01S01042.o26     +++|          CON    0           TERMINATOR
01581  M01S01043.o26     +++|          TITLE  DISPLAY SUBROUTINES.
01582  M01S01044.o26     +++| CDA      SPACE  4,15
01583  M01S01045.o26     +++|**        CDA - CHECK DISPLAY ADDRESS.
01584  M01S00421.241l630 +++|*
01585  M01S00422.241l630 +++|*         ENTRY  (DA - DA+1) = CURRENT DISPLAY ADDRESS.
01586  M01S01046.o26     +++|*
01587  M01S01047.o26     +++|*         EXIT   (A) .LT. 0 IF BUFFER NOT EMPTY.
Line S01048 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01588  M02S01048.241l630 ---|*                CHANNEL DISCONNECTED IF EMPTY.
01589  M01S00423.241l630 +++|*                    = RESPONSE FROM *DLL* IF EMPTY.
01590  M01S01049.o26     +++|*
01591  M01S01050.o26     +++|*         CALLS  DLL.
01592  M01S01051.o26     +++|
01593  M01S01052.o26     +++|
01594  M01S01053.o26     +++| CDA      SUBR               ENTRY/EXIT
Line S01054 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01595  M02S01054.241l630 ---|          LDD    T6          CHECK ADDRESS
01596  M01S00424.241l630 +++|          LDD    DA
01597  M01S01055.o26     +++|          SBD    IN
01598  M01S01056.o26     +++|          SHN    14
Line S01057 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01599  M02S01057.241l630 ---|          ADD    T7
01600  M01S00425.241l630 +++|          ADD    DA+1
01601  M01S01058.o26     +++|          SBD    IN+1
01602  M01S01059.o26     +++|          MJN    CDAX        IF BUFFER NOT EMPTY
01603  M01S01060.o26     +++|          RJM    DLL         DISPLAY LAST LINE
Line S01061 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01604  M02S01061.241l630 ---|          DCN    CH+40
Line S01062 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01605  M02S01062.241l630 ---|          LDN    0
01606  M01S01063.o26     +++|          UJN    CDAX        RETURN
01607  M01S01064.o26     +++| CFC      SPACE  4,20
01608  M01S01065.o26     +++|**        CFC - CHECK FIRST CHARACTER.
01609  M01S01066.o26     +++|*
01610  M01S01067.o26     +++|*         ENTRY  (KE) = FIRST CHARACTER.
Line S01068 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01611  M02S01068.241l630 ---|*                (T6 - T7) = ADDRESS OF LAST LINE + 1 OF DISPLAY.
01612  M01S00426.241l630 +++|*                (DA - DA+1) = ADDRESS + 1 OF LAST LINE OF DISPLAY.
01613  M01S01069.o26     +++|*
01614  M01S01070.o26     +++|*         USES   T1, T2, KI, IN - IN+1, IP - IP+1, OT - OT+1.
01615  M01S01071.o26     +++|*
Line S01072 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01616  M02S01072.241l630 ---|*         CALLS  HDC, SDA, SDS, SIL.
01617  M01S00427.241l630 +++|*         CALLS  DNL, RID, SDS, SFL, SIL.
01618  M01S01073.o26     +++|
01619  M01S01074.o26     +++|
01620  M01S01075.o26     +++| CFC      SUBR               ENTRY/EXIT
01621  M01S01076.o26     +++|          LDD    KE
01622  M01S01077.o26     +++|          SBN    1R0
01623  M01S01078.o26     +++|          MJN    CFCX        IF .LT. *0*
01624  M01S01079.o26     +++|          SBN    CFCAL
01625  M01S01080.o26     +++|          PJN    CFCX        IF .GT. * *
01626  M01S01081.o26     +++|          LDM    CFCA-1R0,KE
01627  M01S01082.o26     +++|          STD    T2
01628  M01S00428.241l630 +++|          AOD    DR          ENABLE DISPLAY REFRESH
01629  M01S00429.241l630 +++|          LDN    0
01630  M01S01083.o26     +++|          LJM    0,T2
01631  M01S01084.o26     +++|
01632  M01S01085.o26     +++|
01633  M01S01086.o26     +++|*         *,* - FIND INSERT LINE.
01634  M01S01087.o26     +++|
01635  M01S01088.o26     +++| CFC1     LDD    IF
01636  M01S01089.o26     +++|          ZJN    CFC4        IF NO INSERT
01637  M01S01090.o26     +++|          LDD    IP          FIND INSERT LINE
01638  M01S01091.o26     +++|          STD    OT
01639  M01S01092.o26     +++|          LDD    IP+1
01640  M01S01093.o26     +++|          STD    OT+1
01641  M01S01094.o26     +++|          JMP    KBIX        RETURN
01642  M01S01095.o26     +++|
01643  M01S01096.o26     +++|
01644  M01S01097.o26     +++|*         *CR* - SET *REPEAT ENTRY.*
01645  M01S01098.o26     +++|
01646  M01S01099.o26     +++| CFC2     LDC    ERRD        ERROR = *REPEAT ENTRY.*
01647  M01S01100.o26     +++|          STD    KM
01648  M01S01101.o26     +++|          JMP    KBIX        RETURN
01649  M01S01102.o26     +++|
01650  M01S01103.o26     +++|
01651  M01S01104.o26     +++|*         *+* - INCREMENT DISPLAY BY ONE SCREEN.
01652  M01S01105.o26     +++|
Line S01106 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01653  M02S01106.241l630 ---| CFC3     LDD    T6          CHECK NEXT DISPLAY ADDRESS
01654  M01S00430.241l630 +++| CFC3     LDD    DA          CHECK NEXT DISPLAY ADDRESS
01655  M01S01107.o26     +++|          LMD    IN
01656  M01S01108.o26     +++|          SHN    14
Line S01109 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01657  M02S01109.241l630 ---|          LMD    T7
01658  M01S00431.241l630 +++|          LMD    DA+1
01659  M01S01110.o26     +++|          LMD    IN+1
01660  M01S01111.o26     +++|          ZJN    CFC4        IF *IN* REACHED RETURN
Line S01112 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01661  M02S01112.241l630 ---|          LDD    T6          SET NEXT LINE ADDRESS
Line S01113 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01662  M02S01113.241l630 ---|          STD    OT
Line S01114 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01663  M02S01114.241l630 ---|          LDD    T7
01664  M01S00432.241l630 +++|          LDD    DA
01665  M01S00433.241l630 +++|          STD    OT
01666  M01S00434.241l630 +++|          LDD    DA+1        SET NEXT LINE ADDRESS
01667  M01S01115.o26     +++|          STD    OT+1
01668  M01S01116.o26     +++| CFC4     JMP    KBIX        RETURN
01669  M01S01117.o26     +++|
01670  M01S01118.o26     +++|
01671  M01S01119.o26     +++|*         *-* - DISPLAY PREVIOUS 18 LINES.
01672  M01S01120.o26     +++|
01673  M01S01121.o26     +++| CFC5     LDD    OT          SET DISPLAY
01674  M01S01122.o26     +++|          STD    T2
01675  M01S01123.o26     +++|          LDD    OT+1
01676  M01S01124.o26     +++|          STD    T3
01677  M01S01125.o26     +++|          LCN    18D
01678  M01S01126.o26     +++|          RJM    SFL         SEARCH FOR LINE
01679  M01S01127.o26     +++|          LDN    T2          SET DISPLAY
01680  M01S01128.o26     +++|          RJM    SDS
01681  M01S01129.o26     +++|          JMP    KBIX        RETURN
01682  M01S01130.o26     +++|
01683  M01S01131.o26     +++|
01684  M01S01132.o26     +++|*         */* - TOGGLE HOLD FLAG.
01685  M01S01133.o26     +++|
01686  M01S01134.o26     +++| CFC6     LDD    HF
01687  M01S01135.o26     +++|          LMN    1
01688  M01S01136.o26     +++|          STD    HF
01689  M01S01137.o26     +++|          JMP    KBIX        RETURN
01690  M01S01138.o26     +++|
01691  M01S01139.o26     +++|
01692  M01S01140.o26     +++|*         *(* - ADVANCE INSERT.
01693  M01S01141.o26     +++|
01694  M01S01142.o26     +++| CFC7     LDD    IF
01695  M01S01143.o26     +++|          ZJN    .KBIX       IF NO INSERT
01696  M01S01144.o26     +++|          LDN    1           ADVANCE INSERT
01697  M01S01145.o26     +++|          UJN    CFC10
01698  M01S01146.o26     +++|
01699  M01S01147.o26     +++|
01700  M01S01148.o26     +++|*         *)* - DECREMENT INSERT.
01701  M01S01149.o26     +++|
01702  M01S01150.o26     +++| CFC8     LDD    IF
01703  M01S01151.o26     +++|          NJN    CFC9        IF INSERT
Line S01152 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01704  M02S01152.241l630 ---|          LDD    T6          SET INSERT AT LAST LINE
Line S01153 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01705  M02S01153.241l630 ---|          STD    IP
Line S01154 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01706  M02S01154.241l630 ---|          LDD    T7
01707  M01S00435.241l630 +++|          LDD    DA
01708  M01S00436.241l630 +++|          STD    IP
01709  M01S00437.241l630 +++|          LDD    DA+1        SET INSERT AT LAST LINE
01710  M01S01155.o26     +++|          STD    IP+1
01711  M01S01156.o26     +++| CFC9     LCN    1           DECREMENT INSERT
01712  M01S01157.o26     +++| CFC10    RJM    SIL
01713  M01S01158.o26     +++|          JMP    KBIX        RETURN
01714  M01S01159.o26     +++|
01715  M01S01160.o26     +++|
01716  M01S01161.o26     +++|*         *=* - CLEAR INSERT.
01717  M01S01162.o26     +++|
Line S01163 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01718  M02S01163.241l630 ---| CFC11    LDN    0
Line S01164 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01719  M02S01164.241l630 ---|          STD    IF
01720  M01S00438.241l630 +++| CFC11    STD    IF
01721  M01S01165.o26     +++|          JMP    KBIX        RETURN
01722  M01S01166.o26     +++|
01723  M01S01167.o26     +++|
01724  M01S01168.o26     +++|*         * * - SET *P.* IN BUFFER
01725  M01S01169.o26     +++|
01726  M01S01170.o26     +++| CFC12    LDN    2
01727  M01S01171.o26     +++|          STD    KI
01728  M01S01172.o26     +++|          LDN    1RP
01729  M01S01173.o26     +++|          STM    KBUF
01730  M01S01174.o26     +++|          LDN    1R.
01731  M01S01175.o26     +++|          STM    KBUF+1
01732  M01S01176.o26     +++|          JMP    KBIX        RETURN
01733  M01S01177.o26     +++|
01734  M01S01178.o26     +++|*         (*) - HOLD DISPLAY CHANNEL.
01735  M01S01179.o26     +++|
Line S01180 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01736  M02S01180.241l630 ---| CFC13    RJM    HDC         HOLD DISPLAY CHANNEL
01737  M01S00439.241l630 +++| CFC13    RJM    RID         HOLD DISPLAY
01738  M01S01181.o26     +++|          JMP    KBIX        RETURN
01739  M01S01182.o26     +++|
01740  M01S01183.o26     +++|
01741  M01S01184.o26     +++|*         *0 - 7* - SET INSERT AT SCREEN START + 4*N LINES.
01742  M01S01185.o26     +++|
01743  M01S01186.o26     +++| CFC14    LDD    OT
01744  M01S01187.o26     +++|          STD    IP
01745  M01S01188.o26     +++|          LDD    OT+1
01746  M01S01189.o26     +++|          STD    IP+1
01747  M01S01190.o26     +++|          LDD    KE
01748  M01S01191.o26     +++|          SBN    1R0
01749  M01S01192.o26     +++|          SHN    2
01750  M01S01193.o26     +++|          RJM    SIL         SET INSERT LINE
01751  M01S01194.o26     +++|          JMP    KBIX        RETURN
01752  M01S01195.o26     +++|
01753  M01S01196.o26     +++|
01754  M01S01197.o26     +++|*         *8* - SET INSERT *8*.
01755  M01S01198.o26     +++|
Line S01199 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01756  M02S01199.241l630 ---| CFC15    LDC    CFCB
Line S01200 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01757  M02S01200.241l630 ---|          UJN    CFC17
01758  M01S00440.241l630 +++| CFC15    LCN    2
01759  M01S00441.241l630 +++|*         UJN    CFC16       SET INSERT *8*
01760  M01S01201.o26     +++|
01761  M01S01202.o26     +++|
01762  M01S01203.o26     +++|*         *9* - SET INSERT *9*.
01763  M01S01204.o26     +++|
Line S01205 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01764  M02S01205.241l630 ---| CFC16    LDC    CFCB+2
Line S01206 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01765  M02S01206.241l630 ---| CFC17    STD    T1
01766  M01S00442.241l630 +++| CFC16    ADC    CFCB+2
01767  M01S00443.241l630 +++|          STD    T1
01768  M01S01207.o26     +++|          LDD    IF
01769  M01S01208.o26     +++|          ZJN    CFC18       IF NO INSERT
01770  M01S01209.o26     +++|          LDD    IP          SET INSERT ADDRESS
01771  M01S01210.o26     +++|          STI    T1
01772  M01S01211.o26     +++|          LDD    IP+1
Line S01212 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01773  M02S01212.241l630 ---|          STM    1,T1
01774  M01S00444.241l630 +++| CFC17    STM    1,T1
01775  M01S01213.o26     +++|          JMP    KBIX        RETURN
01776  M01S01214.o26     +++|
01777  M01S01215.o26     +++| CFC18    LDD    IN          SET INSERT ADDRESS
01778  M01S01216.o26     +++|          STI    T1
01779  M01S01217.o26     +++|          LDD    IN+1
Line S01218 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01780  M02S01218.241l630 ---|          STM    1,T1
Line S01219 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01781  M02S01219.241l630 ---|          JMP    KBIX        RETURN
01782  M01S00445.241l630 +++|          UJN    CFC17       RETURN
01783  M01S01220.o26     +++|
01784  M01S01221.o26     +++|
01785  M01S01222.o26     +++|*         *.* - DELETE NEXT LINE.
01786  M01S01223.o26     +++|
01787  M01S01224.o26     +++| CFC19    RJM    DNL         DELETE NEXT LINE
01788  M01S01225.o26     +++|          JMP    KBIX        RETURN
01789  M01S01226.o26     +++|
01790  M01S01227.o26     +++|
01791  M01S01228.o26     +++|*         TABLE OF FIRST CHARACTER FORMATS.
01792  M01S01229.o26     +++|
01793  M01S01230.o26     +++| CFCA     BSS    0
01794  M01S01231.o26     +++|          LOC    1R0
01795  M01S01232.o26     +++|
01796  M01S01233.o26     +++|          CON    CFC14       0
01797  M01S01234.o26     +++|          CON    CFC14       1
01798  M01S01235.o26     +++|          CON    CFC14       2
01799  M01S01236.o26     +++|          CON    CFC14       3
01800  M01S01237.o26     +++|          CON    CFC14       4
01801  M01S01238.o26     +++|          CON    CFC14       5
01802  M01S01239.o26     +++|          CON    CFC14       6
01803  M01S01240.o26     +++|          CON    CFC14       7
01804  M01S01241.o26     +++|          CON    CFC15       8
01805  M01S01242.o26     +++|          CON    CFC16       9
01806  M01S01243.o26     +++|          CON    CFC3        +
01807  M01S01244.o26     +++|          CON    CFC5        -
01808  M01S01245.o26     +++|          CON    CFC13       *
01809  M01S01246.o26     +++|          CON    CFC6
01810  M01S01247.o26     +++|          CON    CFC7        (
01811  M01S01248.o26     +++|          CON    CFC8        )
01812  M01S01249.o26     +++|          CON    CFCX        LEFT BLANK
01813  M01S01250.o26     +++|          CON    CFC11       =
01814  M01S01251.o26     +++|          CON    CFCX        RIGHT BLANK
01815  M01S01252.o26     +++|          CON    CFC1        ,
01816  M01S01253.o26     +++|          CON    CFC19       .
01817  M01S01254.o26     +++|          CON    CFC2        CR
01818  M01S01255.o26     +++|          CON    KBIX        BKSP
01819  M01S01256.o26     +++|          CON    CFC12       SPACE
01820  M01S01257.o26     +++|
01821  M01S01258.o26     +++|          LOC    *O
01822  M01S01259.o26     +++| CFCAL    EQU    *-CFCA
01823  M01S01260.o26     +++|
01824  M01S01261.o26     +++| CFCB     BSS    5           INSERT *8* AND *9* BUFFER
Line S01262 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01825  M02S01262.o2611   ---| DDN      SPACE  4,15
Line S01263 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01826  M02S01263.o2611   ---|**        DDN - DISPLAY DECIMAL NUMBER.
Line S01264 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01827  M02S01264.o2611   ---|*
Line S01265 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01828  M02S01265.o2611   ---|*         ENTRY  (A) = 2 DIGITS RIGHT JUSTIFIED.
Line S01266 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01829  M02S01266.o2611   ---|*
Line S01267 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
M03 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01830  M03S01267.o2611   ---|*         USES   T1 - T3.
Line S00446 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01831  M02S00446.o2611   ---|*         USES   T1, T3.
Line S01268 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01832  M02S01268.o2611   ---|
Line S01269 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01833  M02S01269.o2611   ---|
Line S00447 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01834  M02S00447.o2611   ---| DDN2     LDD    T3
Line S00448 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01835  M02S00448.o2611   ---|          ZJN    DDN3        IF LEADING ZERO
Line S00449 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01836  M02S00449.o2611   ---|          ADN    1R0
Line S00450 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01837  M02S00450.o2611   ---| DDN3     OAN    CH+40
Line S00451 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01838  M02S00451.o2611   ---|          LDD    T1
Line S00452 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01839  M02S00452.o2611   ---|          SHN    6
Line S00453 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01840  M02S00453.o2611   ---|          ADC    2R0.
Line S00454 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01841  M02S00454.o2611   ---|          OAN    CH+40
Line S00455 Modification History
M01 (Added by) 241l630
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01842  M02S00455.o2611   ---|
Line S01270 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01843  M02S01270.o2611   ---| DDN      SUBR               ENTRY/EXIT
Line S01271 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01844  M02S01271.o2611   ---|          STD    T1          SAVE NUMBER
Line S01272 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01845  M02S01272.o2611   ---|          LDN    0           PRESET DIGITS
Line S01273 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01846  M02S01273.o2611   ---|          STD    T3
Line S01274 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01847  M02S01274.o2611   ---| DDN1     LDD    T1          COUNT 10
Line S01275 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01848  M02S01275.o2611   ---|          SBN    10D
Line S01276 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01849  M02S01276.o2611   ---|          MJN    DDN2        IF CONVERSION COMPLETE
Line S01277 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01850  M02S01277.o2611   ---|          STD    T1
Line S01278 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01851  M02S01278.o2611   ---|          AOD    T3
Line S01279 Modification History
M01 (Added by) o26
M02 (Updated by) o2611
Seq #  *Modification Id* Act 
----------------------------+
01852  M02S01279.o2611   ---|          UJN    DDN1
Line S01280 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01853  M02S01280.241l630 ---|
Line S01281 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01854  M02S01281.241l630 ---| DDN2     LDD    T3
Line S01282 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01855  M02S01282.241l630 ---|          ZJN    DDN3        IF LEADING ZERO
Line S01283 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01856  M02S01283.241l630 ---|          ADN    1R0
Line S01284 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01857  M02S01284.241l630 ---| DDN3     OAN    CH+40
Line S01285 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01858  M02S01285.241l630 ---|          LDD    T1
Line S01286 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01859  M02S01286.241l630 ---|          SHN    6
Line S01287 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01860  M02S01287.241l630 ---|          ADC    2R0.
Line S01288 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01861  M02S01288.241l630 ---|          OAN    CH+40
Line S01289 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01862  M02S01289.241l630 ---|          UJN    DDNX        RETURN
Line S01290 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01863  M02S01290.241l630 ---| DIC      SPACE  4,10
Line S01291 Modification History
M01 (Added by) o26
M02 (Updated by) v23l617
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01864  M03S01291.241l630 ---|**        DIC - DELETE INVALID CHARACTERS.
Line S00006 Modification History
M01 (Added by) v23l617
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01865  M02S00006.241l630 ---|**        DIC - DELETE INCORRECT CHARACTERS.
Line S01292 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01866  M02S01292.241l630 ---|*
Line S01293 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01867  M02S01293.241l630 ---|*         ENTRY  (CM - CM+4) = WORD TO BE DISPLAYED.
Line S01294 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01868  M02S01294.241l630 ---|*
Line S01295 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01869  M02S01295.241l630 ---|*         EXIT   (CM - CM+4) = COORDINATE CHARACTERS CLEARED.
Line S01296 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01870  M03S01296.241l630 ---|*
Line S01297 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01871  M03S01297.241l630 ---|*         USES   T2.
Line S01298 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01872  M02S01298.241l630 ---|
Line S01299 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01873  M02S01299.241l630 ---|
Line S01300 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01874  M02S01300.241l630 ---| DIC      SUBR               ENTRY/EXIT
Line S01301 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01875  M03S01301.241l630 ---|          LDN    4           SET BYTE COUNT
Line S01302 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01876  M03S01302.241l630 ---|          STD    T2
Line S01303 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01877  M03S01303.241l630 ---| DIC1     LDM    CM,T2
Line S01304 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01878  M03S01304.241l630 ---|          ADC    -6000
Line S01305 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01879  M03S01305.241l630 ---|          MJN    DIC2        IF BYTE CAN BE DISPLAYED
Line S01306 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01880  M03S01306.241l630 ---|          LPN    77          REMOVE COORDINATE CHARACTER
Line S01307 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01881  M03S01307.241l630 ---|          STM    CM,T2
Line S01308 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01882  M03S01308.241l630 ---| DIC2     SOD    T2          DECREMENT BYTE COUNT
Line S01309 Modification History
M01 (Added by) o26
M02 (Updated by) o267
M03 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01883  M03S01309.241l630 ---|          PJN    DIC1        IF BYTES LEFT TO BE DISPLAYED
Line S00003 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01884  M02S00003.241l630 ---|          LDD    CM          GET BYTE 0
Line S00004 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01885  M02S00004.241l630 ---|          SBD    XC
Line S00005 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01886  M02S00005.241l630 ---|          MJN    DIC1        IF BYTE CAN BE DISPLAYED
Line S00006 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01887  M02S00006.241l630 ---|          LPN    77          REMOVE INVALID CHARACTER
Line S00007 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01888  M02S00007.241l630 ---|          STD    CM
Line S00008 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01889  M02S00008.241l630 ---| DIC1     LDD    CM+1        GET BYTE 1
Line S00009 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01890  M02S00009.241l630 ---|          SBD    XC
Line S00010 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01891  M02S00010.241l630 ---|          MJN    DIC2        IF BYTE CAN BE DISPLAYED
Line S00011 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01892  M02S00011.241l630 ---|          LPN    77          REMOVE INVALID CHARACTER
Line S00012 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01893  M02S00012.241l630 ---|          STD    CM+1
Line S00013 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01894  M02S00013.241l630 ---| DIC2     LDD    CM+2        GET BYTE 2
Line S00014 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01895  M02S00014.241l630 ---|          SBD    XC
Line S00015 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01896  M02S00015.241l630 ---|          MJN    DIC3        IF BYTE CAN BE DISPLAYED
Line S00016 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01897  M02S00016.241l630 ---|          LPN    77          REMOVE INVALID CHARACTER
Line S00017 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01898  M02S00017.241l630 ---|          STD    CM+2
Line S00018 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01899  M02S00018.241l630 ---| DIC3     LDD    CM+3        GET BYTE 3
Line S00019 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01900  M02S00019.241l630 ---|          SBD    XC
Line S00020 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01901  M02S00020.241l630 ---|          MJN    DIC4        IF BYTE CAN BE DISPLAYED
Line S00021 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01902  M02S00021.241l630 ---|          LPN    77          REMOVE INVALID CHARACTER
Line S00022 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01903  M02S00022.241l630 ---|          STD    CM+3
Line S00023 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01904  M02S00023.241l630 ---| DIC4     LDD    CM+4        GET BYTE 4
Line S00024 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01905  M02S00024.241l630 ---|          SBD    XC
Line S00025 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01906  M02S00025.241l630 ---|          MJN    DICX        IF BYTE CAN BE DISPLAYED
Line S00026 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01907  M02S00026.241l630 ---|          LPN    77          REMOVE INVALID CHARACTER
Line S00027 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01908  M02S00027.241l630 ---|          NJN    DIC5        IF NOT ONLY ZEROES REMAINING
Line S00028 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01909  M02S00028.241l630 ---|          LDN    1R          LAST BYTE MAY NOT BE ZERO
Line S00029 Modification History
M01 (Added by) o267
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01910  M02S00029.241l630 ---| DIC5     STD    CM+4        STORE LAST BYTE
Line S01310 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01911  M02S01310.241l630 ---|          UJN    DICX        RETURN
01912  M01S01311.o26     +++| DIL      SPACE  4,20
01913  M01S01312.o26     +++|**        DIL - DISPLAY INSERT LINE.
01914  M01S01313.o26     +++|*
Line S01314 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01915  M02S01314.241l630 ---|*         ENTRY  (T6, T7) = DISPLAY ADDRESS.
01916  M01S00456.241l630 +++|*         ENTRY  (DA - DA+1) = DISPLAY ADDRESS.
01917  M01S01315.o26     +++|*
01918  M01S01316.o26     +++|*         CALLS  DIM, DKL.
01919  M01S00457.241l630 +++|*
01920  M01S00458.241l630 +++|*         MACROS DFIM.
01921  M01S01317.o26     +++|
01922  M01S01318.o26     +++|
01923  M01S01319.o26     +++| DIL      SUBR               ENTRY/EXIT
01924  M01S01320.o26     +++|          LDM    CFCB+1
Line S01321 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01925  M02S01321.241l630 ---|          LMD    T7
01926  M01S00459.241l630 +++|          LMD    DA+1
01927  M01S01322.o26     +++|          NJN    DIL1        IF NOT AT INSERT *8*
01928  M01S01323.o26     +++|          LDM    CFCB
Line S01324 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01929  M02S01324.241l630 ---|          LMD    T6
01930  M01S00460.241l630 +++|          LMD    DA
01931  M01S01325.o26     +++|          NJN    DIL1        IF NOT AT INSERT *8*
01932  M01S01326.o26     +++|          LDN    1R8
01933  M01S01327.o26     +++|          RJM    DIM         DISPLAY INSERT MARK
01934  M01S01328.o26     +++| DIL1     LDM    CFCB+3
Line S01329 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01935  M02S01329.241l630 ---|          LMD    T7
01936  M01S00461.241l630 +++|          LMD    DA+1
01937  M01S01330.o26     +++|          NJN    DIL2        IF NOT AT INSERT *9*
01938  M01S01331.o26     +++|          LDM    CFCB+2
Line S01332 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01939  M02S01332.241l630 ---|          LMD    T6
01940  M01S00462.241l630 +++|          LMD    DA
01941  M01S01333.o26     +++|          NJN    DIL2        IF NOT AT INSERT *9*
01942  M01S01334.o26     +++|          LDN    1R9
01943  M01S01335.o26     +++|          RJM    DIM         DISPLAY INSERT MARK
01944  M01S01336.o26     +++| DIL2     LDD    IF
01945  M01S01337.o26     +++|          ZJN    DILX        IF NO INSERT
01946  M01S01338.o26     +++|          LDD    IP+1
Line S01339 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01947  M02S01339.241l630 ---|          LMD    T7
01948  M01S00463.241l630 +++|          LMD    DA+1
01949  M01S01340.o26     +++|          NJN    DILX        IF NOT HERE
01950  M01S01341.o26     +++|          LDD    IP
Line S01342 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01951  M02S01342.241l630 ---|          LMD    T6
01952  M01S00464.241l630 +++|          LMD    DA
01953  M01S01343.o26     +++|          NJN    DILX        IF INSERT NOT HERE
01954  M01S01344.o26     +++|          RJM    DKL         DISPLAY KEYBOARD LINE
01955  M01S01345.o26     +++|          LJM    DILX        RETURN
01956  M01S01346.o26     +++| DIM      SPACE  4,15
01957  M01S01347.o26     +++|**        DIM - DISPLAY INSERT MARK.
01958  M01S01348.o26     +++|*
01959  M01S01349.o26     +++|*         ENTRY  (A) = INSERT MARK.
01960  M01S01350.o26     +++|*
01961  M01S01351.o26     +++|*         USES   T1, T3.
01962  M01S00465.241l630 +++|*
01963  M01S00466.241l630 +++|*         MACROS DFIM.
01964  M01S01352.o26     +++|
01965  M01S01353.o26     +++|
01966  M01S00467.241l630 +++|          DFIM   (LCN YINC)
01967  M01S00468.241l630 +++| DIM3     LCN    2*YINC      DECREMENT Y-COORDINATE
01968  M01S00469.241l630 +++|          RAD    YC
01969  M01S00470.241l630 +++|
01970  M01S01354.o26     +++| DIM      SUBR               ENTRY/EXIT
01971  M01S01355.o26     +++|          STD    T3
01972  M01S00471.241l630 +++|          LDM    DBFC        CHECK BUFFER REFRESH
01973  M01S00472.241l630 +++|          DFIM   (ZJN DIM3)
01974  M01S00473.241l630 +++|          PSN                (NO-OP ON CC545)
01975  M01S01356.o26     +++|          LDN    0
01976  M01S01357.o26     +++|          STD    T1
01977  M01S01358.o26     +++|          LDD    YC          OUTPUT Y COORDINATE
01978  M01S01359.o26     +++|          OAN    CH+40
Line S01360 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01979  M02S01360.241l630 ---|          LDC    6030        OUTPUT X COORDINATE
01980  M01S00474.241l630 +++|          LDC    CH04        OUTPUT X-COORDINATE
01981  M01S01361.o26     +++|          OAN    CH+40
01982  M01S01362.o26     +++| DIM1     LDC    2R--        DISPLAY *--*
01983  M01S01363.o26     +++|          OAN    CH+40
01984  M01S01364.o26     +++|          AOD    T1
01985  M01S01365.o26     +++|          LMN    14
01986  M01S01366.o26     +++|          NJN    DIM1        IF NOT COMPLETE LOOP
01987  M01S01367.o26     +++|          LDD    T3
01988  M01S01368.o26     +++|          OAN    CH+40
01989  M01S01369.o26     +++|          LDN    1R-         DISPLAY * -*
01990  M01S01370.o26     +++|          OAN    CH+40
01991  M01S01371.o26     +++| DIM2     LDC    2R--        DISPLAY *--*
01992  M01S01372.o26     +++|          OAN    CH+40
01993  M01S01373.o26     +++|          AOD    T1
01994  M01S01374.o26     +++|          LMN    27
01995  M01S01375.o26     +++|          NJN    DIM2        IF NOT COMPLETE LOOP
01996  M01S01376.o26     +++|          LDC    2R-         DISPLAY *- *
01997  M01S01377.o26     +++|          OAN    CH+40
Line S01378 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01998  M02S01378.241l630 ---|          LCN    24          ADVANCE Y COORDINATE
Line S01379 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01999  M02S01379.241l630 ---|          RAD    YC
Line S01380 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02000  M02S01380.241l630 ---|          UJN    DIMX
02001  M01S00475.241l630 +++|          UJP    DIM3        DECREMENT Y-COORDINATE
02002  M01S01381.o26     +++| DKL      SPACE  4,15
02003  M01S01382.o26     +++|**        DKL - DISPLAY KEYBOARD LINE.
02004  M01S01383.o26     +++|*
02005  M01S01384.o26     +++|*         ENTRY  (YC) = Y-COORDINATE.
Line S01385 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02006  M02S01385.241l630 ---|*
Line S01386 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02007  M02S01386.241l630 ---|*         USES   T1, T2, YC.
Line S01387 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02008  M02S01387.241l630 ---|*
Line S01388 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02009  M02S01388.241l630 ---|*         CALLS  DKS.
02010  M01S00476.241l630 +++|*                (XC) = *CH01*.
02011  M01S00477.241l630 +++|*                (KD) = 0.
02012  M01S00478.241l630 +++|*
02013  M01S00479.241l630 +++|*         EXIT   (A) = NEW Y-COORDINATE.
02014  M01S00480.241l630 +++|*                (KD) = 1.
02015  M01S00481.241l630 +++|*                (T1) = NUMBER OF CHARACTERS DISPLAYED.
02016  M01S00482.241l630 +++|*                (XC) = *CH01*.
02017  M01S00483.241l630 +++|*                (YC) = NEW Y-COORDINATE.
02018  M01S00484.241l630 +++|*
02019  M01S00485.241l630 +++|*         USES   T2, T5, XC, YC, CM - CM+4.
02020  M01S00486.241l630 +++|*
02021  M01S00487.241l630 +++|*         CALLS  DKP, DKS.
02022  M01S00488.241l630 +++|*
02023  M01S00489.241l630 +++|*         MACROS DFIM.
02024  M01S01389.o26     +++|
02025  M01S01390.o26     +++|
Line S01391 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02026  M02S01391.241l630 ---| DKL      SUBR               ENTRY/EXIT
Line S01392 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02027  M02S01392.241l630 ---|          LDC    6010        SET X
Line S01393 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02028  M02S01393.241l630 ---|          STD    XC
Line S01394 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02029  M02S01394.241l630 ---|          LDN    0           SET DISPLAY INDEX
02030  M01S00490.241l630 +++| DKL3     LDC    CH01        RESET X-COORDINATE
02031  M01S00491.241l630 +++|          STD    XC
02032  M01S00492.241l630 +++|          AOD    KD          SET KEYBOARD LINE DISPLAYED
02033  M01S00493.241l630 +++|          DFIM   (LCN YINC)
02034  M01S00494.241l630 +++|          LCN    2*YINC      DECREMENT Y-COORDINATE
02035  M01S00495.241l630 +++|          RAD    YC
02036  M01S00496.241l630 +++|
02037  M01S00497.241l630 +++| DKL      SUBR               ENTRY/EXIT
02038  M01S00498.241l630 +++|          LDN    CH02-CH01
02039  M01S00499.241l630 +++|          RAD    XC
02040  M01S00500.241l630 +++|          LDN    2           OUTPUT COORDINATES
02041  M01S00501.241l630 +++|          OAM    XC,CH
02042  M01S00502.241l630 +++|*         LDN    0           SET DISPLAY INDEX
02043  M01S01395.o26     +++|          STD    T1
02044  M01S01396.o26     +++|          LDC    KBUF        SET BUFFER ADDRESS
02045  M01S01397.o26     +++|          STD    T2
02046  M01S01398.o26     +++|          LDD    KI
02047  M01S01399.o26     +++|          RJM    DKS         DISPLAY KEYBOARD STRING
02048  M01S01400.o26     +++|
02049  M01S01401.o26     +++|*         DISPLAY ALTERNATE BUFFER.
02050  M01S01402.o26     +++|
02051  M01S01403.o26     +++|          LDC    **
02052  M01S01404.o26     +++| DKLA     EQU    *-1
02053  M01S01405.o26     +++|          ZJN    DKL1        IF NO ALTERNATE BUFFER
02054  M01S01406.o26     +++|          ADD    KI
02055  M01S01407.o26     +++|          STD    T2
02056  M01S00503.241l630 +++|          STD    T5
02057  M01S00504.241l630 +++|          LDD    MA          SAVE COORDINATES
02058  M01S00505.241l630 +++|          CWD    XC
02059  M01S00506.241l630 +++|          CRD    CM
02060  M01S00507.241l630 +++|          LDN    2           RESET COORDINATES
02061  M01S00508.241l630 +++|          OAM    XC,CH
02062  M01S01408.o26     +++|          LDC    **          CHECK LENGTH OF ALTERNATE LINE
02063  M01S01409.o26     +++| DKLB     EQU    *-1
02064  M01S01410.o26     +++|          SBD    KI
02065  M01S01411.o26     +++|          MJN    DKL1        IF ALTERNATE LINE TOO SHORT
02066  M01S01412.o26     +++|          ZJN    DKL1        IF ALTERNATE LINE TOO SHORT
02067  M01S01413.o26     +++|          RJM    DKS         DISPLAY KEYBOARD STRING
Line S01414 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02068  M02S01414.241l630 ---| DKL1     LDC    6000        RESET X
Line S01415 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02069  M02S01415.241l630 ---|          STD    XC
Line S01416 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02070  M02S01416.241l630 ---|          LCN    24          DECREASE Y
Line S01417 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02071  M02S01417.241l630 ---|          RAD    YC
Line S01418 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02072  M02S01418.241l630 ---|          UJN    DKLX        RETURN
02073  M01S00509.241l630 +++|          DFIM   (LDN 2)
02074  M01S00510.241l630 +++|          UJN    DKL1        RESET COORDINATES
02075  M01S00511.241l630 +++|
02076  M01S00512.241l630 +++|          OAM    CM,CH
02077  M01S00513.241l630 +++|          LDD    T5          RESET KEYBOARD POINTER
02078  M01S00514.241l630 +++|          STD    T2
02079  M01S00515.241l630 +++|          RJM    DKP
02080  M01S00516.241l630 +++| DKL1     LJM    DKL3        ADJUST COORDINATES
02081  M01S01419.o26     +++| DKP      SPACE  4,15
02082  M01S01420.o26     +++|**        DKP - DISPLAY KEYBOARD POINTER.
Line S01421 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02083  M02S01421.241l630 ---|*
Line S01422 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02084  M02S01422.241l630 ---|*         ENTRY  (XC) = DISPLAY X COORDINATE.
Line S01423 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02085  M02S01423.241l630 ---|*                (YC) = DISPLAY Y COORDINATE.
02086  M01S01424.o26     +++|
02087  M01S01425.o26     +++|
Line S01426 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02088  M02S01426.241l630 ---| DKP      SUBR               ENTRY/EXIT
Line S01427 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02089  M02S01427.241l630 ---|          LDD    YC          OUTPUT COORDINATES
Line S01428 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02090  M02S01428.241l630 ---|          SBN    12
Line S01429 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02091  M02S01429.241l630 ---|          OAN    CH+40
Line S01430 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02092  M02S01430.241l630 ---|          LDD    XC
Line S01431 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02093  M02S01431.241l630 ---|          OAN    CH+40
Line S01432 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02094  M02S01432.241l630 ---|          LDD    UC
Line S01433 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02095  M02S01433.241l630 ---|          ZJN    DKP1        IF NOT UPPER CASE
Line S01434 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02096  M02S01434.241l630 ---|          LDD    YC          UP Y
Line S01435 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02097  M02S01435.241l630 ---|          SBN    16
Line S01436 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02098  M02S01436.241l630 ---|          OAN    CH+40
Line S01437 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02099  M02S01437.241l630 ---| DKP1     LDN    1RA         CURSOR = A*I
Line S01438 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02100  M02S01438.241l630 ---|          OAN    CH+40
Line S01439 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02101  M02S01439.241l630 ---|          LDD    XC
Line S01440 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02102  M02S01440.241l630 ---|          OAN    CH+40
Line S01441 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02103  M02S01441.241l630 ---|          LDN    1RI
Line S01442 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02104  M02S01442.241l630 ---|          OAN    CH+40
Line S01443 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02105  M02S01443.241l630 ---|          UJN    DKPX        RETURN
02106  M01S00517.241l630 +++| DKP      DSUB
02107  M01S01444.o26     +++| DKS      SPACE  4,20
02108  M01S01445.o26     +++|**        DKS - DISPLAY KEYBOARD STRING.
02109  M01S01446.o26     +++|*
02110  M01S01447.o26     +++|*         ENTRY  (A) = CHARACTER COUNT.
02111  M01S01448.o26     +++|*                (T1) = DISPLAY INDEX.
02112  M01S01449.o26     +++|*                (T2) = BUFFER ADDRESS.
02113  M01S01450.o26     +++|*                (XC, YC) = COORDINATES OF DISPLAY.
02114  M01S01451.o26     +++|*
02115  M01S01452.o26     +++|*         EXIT   (XC, YC) = UPDATED.
02116  M01S01453.o26     +++|*
02117  M01S01454.o26     +++|*         CALLS  DKP.
02118  M01S00518.241l630 +++|*
02119  M01S00519.241l630 +++|*         MACROS CFNC, DFIM.
02120  M01S01455.o26     +++|
02121  M01S01456.o26     +++|
Line S01457 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02122  M02S01457.241l630 ---| DKS6     NJN    DKS2        IF NOT END OF STRING
Line S01458 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02123  M02S01458.241l630 ---| DKS7     RJM    DKP         DISPLAY KEYBOARD POINTER
02124  M01S00520.241l630 +++| DKS8     NJN    DKS2        IF NOT END OF STRING
02125  M01S00521.241l630 +++| DKS9     RJM    DKP         DISPLAY KEYBOARD POINTER
02126  M01S00522.241l630 +++|          LDD    T1
02127  M01S00523.241l630 +++|          LMN    61D
02128  M01S00524.241l630 +++|          ZJN    DKSX        IF POINTER AT END OF LINE
02129  M01S00525.241l630 +++|          CFNC   EELF
02130  M01S01459.o26     +++|
02131  M01S01460.o26     +++| DKS      SUBR               ENTRY/EXIT
Line S01461 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02132  M02S01461.241l630 ---|          ZJN    DKS7        IF COUNT = 0
02133  M01S00526.241l630 +++|          ZJN    DKS9        IF NULL STRING
02134  M01S01462.o26     +++|          ADD    T2          SET END OF STRING
02135  M01S01463.o26     +++|          STM    DKSA
02136  M01S01464.o26     +++| DKSB     LDI    T2
02137  M01S01465.o26     +++|*         UJN    DKS2        (PRESET IF 63 CHARACTER SET SYSTEM)
02138  M01S01466.o26     +++|          LMN    1RF
02139  M01S01467.o26     +++|          ZJN    DKS1        IF *F.*
02140  M01S01468.o26     +++|          LMN    1RS&1RF
02141  M01S01469.o26     +++|          ZJN    DKS1        IF  *S.*
02142  M01S01470.o26     +++|          LDC    ZJNI+DKS3-DKSC-PSNI
Line S01471 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02143  M02S01471.241l630 ---| DKS1     ADC    PSNI
Line S01472 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02144  M02S01472.241l630 ---|          STM    DKSC
Line S01473 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02145  M02S01473.241l630 ---| DKS2     LDN    2
Line S01474 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02146  M02S01474.241l630 ---|          OAM    XC,CH
Line S01475 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02147  M02S01475.241l630 ---|          LDI    T2          CHECK CHARACTER
02148  M01S00527.241l630 +++| DKS1     ADN    PSNI
02149  M01S00528.241l630 +++|          STM    DKSC
02150  M01S00529.241l630 +++| DKS2     LDI    T2          CHECK CHARACTER
02151  M01S01476.o26     +++|          LPN    77
02152  M01S01477.o26     +++|          STD    T0
02153  M01S01478.o26     +++| DKSC     ZJN    DKS3        IF ZERO CHARACTER
02154  M01S00530.241l630 +++|*         PSN                (63 CHARACTER SET)
02155  M01S01479.o26     +++|          SBN    53
02156  M01S01480.o26     +++|          ZJN    DKS3        IF 53
02157  M01S01481.o26     +++|          SBN    60-53
Line S01482 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02158  M02S01482.241l630 ---|          MJN    DKS4        IF LEGAL CODE
02159  M01S00531.241l630 +++|          MJN    DKS5        IF LEGAL CODE
02160  M01S00532.241l630 +++| DKSD     DFIM   (UJN DKS4)
02161  M01S00533.241l630 +++|*         SBN    63-60       (63 CHARACTER SET ON CDC721)
02162  M01S00534.241l630 +++|          DFIM   (NJN DKS4)
02163  M01S00535.241l630 +++|          DFIM   (STD T0)
02164  M01S00536.241l630 +++| DKS4     DFIM   (CFNC DSCF)
02165  M01S00537.241l630 +++|          DFIM   (LDD T0)
02166  M01S00538.241l630 +++|          DFIM   (UJN DKS6)
02167  M01S01483.o26     +++| DKS3     LDD    YC          UP Y
02168  M01S01484.o26     +++|          SBN    4
02169  M01S01485.o26     +++|          OAN    CH+40
Line S01486 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02170  M02S01486.241l630 ---|          LDD    T0          DISPLAY UPPER DIGIT
02171  M01S00539.241l630 +++|          LDD    T0          DISPLAY LOWER DIGIT
02172  M01S01487.o26     +++|          LPN    7
02173  M01S01488.o26     +++|          ADN    1R0
02174  M01S01489.o26     +++|          OAN    CH+40
02175  M01S01490.o26     +++|          LDD    XC          OUTPUT COORDINATES
02176  M01S01491.o26     +++|          OAN    CH+40
02177  M01S01492.o26     +++|          LDD    YC
02178  M01S01493.o26     +++|          ADN    4
02179  M01S01494.o26     +++|          OAN    CH+40
Line S01495 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02180  M02S01495.241l630 ---|          LDD    T0          PREPARE LOWER DIGIT
02181  M01S00540.241l630 +++|          LDD    T0          PREPARE UPPER DIGIT
02182  M01S01496.o26     +++|          SHN    -3
02183  M01S01497.o26     +++|          LPN    7
Line S01498 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02184  M02S01498.241l630 ---|          SBN    60-1R0
Line S01499 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02185  M02S01499.241l630 ---| DKS4     ADN    60          DISPLAY CHARACTER
Line S01500 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02186  M02S01500.241l630 ---|          OAN    CH+40
Line S01501 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02187  M02S01501.241l630 ---|          LDN    10          ADVANCE X
Line S01502 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02188  M02S01502.241l630 ---|          RAD    XC
02189  M01S00541.241l630 +++|          ADN    1R0
02190  M01S00542.241l630 +++|          OAN    CH+40       DISPLAY UPPER DIGIT
02191  M01S00543.241l630 +++|          LDD    YC
02192  M01S00544.241l630 +++|          UJN    DKS6        RESET Y-COORDINATE
02193  M01S00545.241l630 +++|
02194  M01S00546.241l630 +++| DKS5     ADN    60          DISPLAY CHARACTER
02195  M01S00547.241l630 +++| DKS6     OAN    CH+40
02196  M01S01503.o26     +++|          AOD    T1
02197  M01S01504.o26     +++|          LMN    62D
Line S01505 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02198  M02S01505.241l630 ---|          NJN    DKS5        IF NOT END OF FIRST LINE
Line S01506 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02199  M02S01506.241l630 ---|          LDC    6030        RESET X
Line S01507 Modification History
M01 (Added by) o26
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
02200  M02S01507.241l630 ---|          STD    XC
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/o26.001.txt ยท Last modified: by 127.0.0.1