Deck SET

79 Modifications

Listing Sections

Deck SET Start
Deck SET Part 1 (Line 1518)
Deck SET Part 2 (Line 3032)
Deck SET Part 3 (Line 4559)
Deck SET Part 4 (Line 5878)
Deck SET Part 5 (Line 6749)
Deck SET Part 6 (Line 8236)
Deck SET Part 7 (Line 9477)
Deck SET Part 8 (Line 10145)
Deck SET Part 9 (Line 10838)
Deck SET Part 10 (Line 12224)
Deck SET Part 11 (Line 13475)
Deck SET Part 12 (Line 14758)
Deck SET Part 13 (Line 15810)
Deck SET Part 14 (Line 16712)
Deck SET Part 15 (Line 17699)
Deck SET Part 16 (Line 19434)
Deck SET Part 17 (Line 21075)
Deck SET Part 18 (Line 22652)
Deck SET Part 19 (Line 24252)
Deck SET Part 20 (Line 25027)
Deck SET Part 21 (Line 25625)

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.set     +++|          IDENT  SET,0
00002  M01S00002.set     +++|          PERIPH J
00003  M01S00003.set     +++|          BASE   MIXED
00004  M01S00004.set     +++|          SST    LA,MA,.EST,DLYA
00005  M01S00005.set     +++|*COMMENT  SET - INITIALIZE SYSTEM.

Line S00006 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.set     +++|          TITLE  SET - INITIALIZE SYSTEM.
00009  M01S00008.set     +++|          SPACE  4
00010  M01S00009.set     +++|***       SET - INITIALIZE SYSTEM.
00011  M01S00010.set     +++|*
00012  M01S00011.set     +++|*         G. R. MANSFIELD.   70/12/13.
00013  M01S00012.set     +++|*         D. A. HIVELEY.     72/07/01.
00014  M01S00013.set     +++|*         J. L. WARDELL.     73/01/15.
00015  M01S00014.set     +++|*         P. D. HAAS.        74/07/24.
00016  M01S00015.set     +++|          SPACE  4
00017  M01S00016.set     +++|***              *SET* PERFORMS SYSTEM INITIALIZATION BY PROCESSING
00018  M01S00017.set     +++|*         TEXT DECKS ON THE DEAD START TAPE.  THE TEXT RECORDS
00019  M01S00018.set     +++|*         MAY CONSIST OF ANY NUMBER OF LOGICAL GROUPINGS WITH A
00020  M01S00019.set     +++|*         PROCESSING OVERLAY.  THE ASSEMBLY PROCESS REQUIRES 2 TEXT
00021  M01S00020.set     +++|*         RECORDS, THE FIRST CONTAINS INSTRUCTIONS FOR THE OPERATOR,
00022  M01S00021.set     +++|*         AND THE SECOND CONTAINS THE ACTUAL TEXT.  NEITHER OF THESE
00023  M01S00022.set     +++|*         RECORDS SHOULD BE LONGER THAN ONE TAPE PRU.  THE PROCESS OF
00024  M01S00023.set     +++|*         ASSEMBLY CONTINUES UNTIL THE RECORD *PP/PPR* IS READ AS
00025  M01S00024.set     +++|*         AN OVERLAY.
00026  M01S00025.set     +++|*
00027  M01S00026.set     +++|*         EXAMPLE - THE FOLLOWING RECORDS ARE PRESENT.
00028  M01S00027.set     +++|*         CMR                CENTRAL MEMORY INITIALIZER
00029  M01S00028.set     +++|*         CMRINST            INSTRUCTIONS FOR USE
00030  M01S00029.set     +++|*         CMRDECK            TEXT FOR ASSEMBLY
00031  M01S00030.set     +++|          SPACE  4,10
00032  M01S00031.set     +++|*CALL     COMPMAC
00033  M01S00032.set     +++|*CALL     COMDMAC
00034  M01S00033.set     +++|          QUAL   BIO
00035  M01S00034.set     +++|*CALL     COMSBIO
00036  M01S00035.set     +++|          QUAL   *
00037  M01S00036.set     +++|*CALL     COMSDFT
00038  M01S00037.set     +++|          LIST   X
00039  M01S00038.set     +++|*CALL     COMSDSL
00040  M01S00039.set     +++|          LIST   *
00041  M01S00040.set     +++|*CALL     COMSDST
00042  M01S00041.set     +++|*CALL     COMSESS
00043  M01S00042.set     +++|*CALL     COMSHIO
00044  M01S00043.set     +++|          QUAL   IOU
00045  M01S00044.set     +++|*CALL     COMSIOU
00046  M01S00045.set     +++|          QUAL   *
00047  M01S00046.set     +++|*CALL     COMSLSD
00048  M01S00047.set     +++|*CALL     COMSMSC
00049  M01S00048.set     +++|*CALL     COMS176
00050  M01S00049.set     +++|*CALL     COMPCHM
00051  M01S00050.set     +++|*CALL     COMSCPS
00052  M01S00051.set     +++|*CALL     COMSEJT
00053  M01S00052.set     +++|*CALL     COMSMLS
00054  M01S00053.set     +++|*CALL     COMSMMF
00055  M01S00054.set     +++|*CALL     COMSMSP
00056  M01S00055.set     +++|*CALL     COMSMST
00057  M01S00056.set     +++|          QUAL   PFM
00058  M01S00057.set     +++|*CALL     COMSPFM
00059  M01S00058.set     +++|          QUAL   *
00060  M01S00059.set     +++|*CALL     COMSPIM
00061  M01S00060.set     +++|*CALL     COMSREM
00062  M01S00001.272l774 +++|          QUAL   SCR
00063  M01S00061.set     +++|*CALL     COMSSCR
00064  M01S00002.272l774 +++|          QUAL   *
00065  M01S00062.set     +++|*CALL     COMSSRU
00066  M01S00063.set     +++|*CALL     COMSSSD
00067  M01S00064.set     +++|*CALL     COMSSSJ
00068  M01S00065.set     +++|*CALL     COMS1DS
00069  M01S00066.set     +++|          SPACE  4
00070  M01S00067.set     +++|          TITLE  DIRECT LOCATION ASSIGNMENTS.
00071  M01S00068.set     +++|****      DIRECT LOCATION ASSIGNMENTS.
00072  M01S00069.set     +++|
00073  M01S00070.set     +++|
00074  M01S00071.set     +++|          ORG    0
00075  M01S00072.set     +++| T0       CON    PRS-1       TRANSFER ADDRESS
00076  M01S00073.set     +++| T1       CON    0
00077  M01S00074.set     +++| T2       CON    0           *SCD* PP NUMBER ON ENTRY
00078  M01S00075.set     +++| T3       CON    0
00079  M01S00076.set     +++| T4       CON    0           DEADSTART CHANNEL ON ENTRY
00080  M01S00077.set     +++| T5       CON    0           INTERCOMMUNICATIONS CHANNEL ON ENTRY
00081  M01S00078.set     +++| T6       CON    0
00082  M01S00079.set     +++| T7       CON    77
00083  M01S00080.set     +++|
00084  M01S00081.set     +++| CM       VFD    60/0        CM WORD BUFFER
00085  M01S00082.set     +++| TA       CON    0           TABLE ADDRESS
00086  M01S00083.set     +++| NC       EQU    TA          NUMBER OF CONTROL POINTS + 1
00087  M01S00084.set     +++| ID       CON    2RAA        DEFAULT MACHINE ID
00088  M01S00085.set     +++| LD       CON    0           1/ISD FLAG, 11/MMF LINK DEVICE
00089  M01S00086.set     +++|
00090  M01S00087.set     +++| CN       VFD    60/0        CM WORD BUFFER
00091  M01S00088.set     +++| CA       CON    0,1         CENTRAL ADDRESS
00092  M01S00089.set     +++| ES       CON    /EQP/EBUT   EQUIPMENT STATUS ADDRESS
00093  M01S00090.set     +++|
00094  M01S00091.set     +++| EB       CON    0           *EBUF* POINTER
00095  M01S00092.set     +++| ET       CON    0           *TDDB* POINTER

Line S00093 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00093.284l847 ---| MS       CON    0           *TMSD* POINTER SET BY *SMT*
00097  M01S00001.284l847 +++| MS       CON    0           *TMSD* POINTER SET BY */EQ1/SMD*
00098  M01S00002.284l847 +++|*                            *TETY* POINTER SET BY */EQ2/EQM*.
00099  M01S00094.set     +++| EQ       CON    0           EST ORDINAL
00100  M01S00095.set     +++| LA       CON    OVL         OVERLAY LOAD ADDRESS
00101  M01S00096.set     +++| RS       CON    0           RECOVERY STATUS
00102  M01S00097.set     +++| KB       CON    0           KEYBOARD BUFFER ADDRESS
00103  M01S00098.set     +++| ST       CON    0           SYNTAX TABLE ADDRESS
00104  M01S00099.set     +++|
00105  M01S00100.set     +++| DP       CON    0           DISPLAY CONTROL (IPRDECK)
00106  M01S00101.set     +++| MZ       CON    0,0         TOTAL CENTRAL MEMORY SIZE/100B
00107  M01S00102.set     +++| RM       CON    0           RECOVERY MODE
00108  M01S00103.set     +++| DI       CON    -0          TEXT DECK INDEX
00109  M01S00104.set     +++| DF       CON    0           DEADSTART FUNCTION
00110  M01S00105.set     +++| DH       CON    DC          DEADSTART CHANNEL
00111  M01S00106.set     +++|
00112  M01S00107.set     +++|*         *HO* BIT DEFINITIONS (SAME AS MABL) -
00113  M01S00108.set     +++|*
00114  M01S00109.set     +++|*         0001 - CPU0 NOT PRESENT
00115  M01S00110.set     +++|*         0002 - CPU1 NOT PRESENT
00116  M01S00111.set     +++|*         0004 - IF 865/875, 0=865, 1=875
00117  M01S00112.set     +++|*         0010 - CMU NOT PRESET
00118  M01S00113.set     +++|*         0020 - CPU0 DOES NOT HAVE A STACK
00119  M01S00114.set     +++|*         0040 - RESERVED
00120  M01S00115.set     +++|*         0100 - NOT A CYBER 170 (NO SCR PRESENT)
00121  M01S00116.set     +++|*         0200 - NOT A CYBER 70 (NO I/L REGISTER PRESENT)
00122  M01S00117.set     +++|*         0400 - NOT A CYBER 170-700
00123  M01S00118.set     +++|*         3000 - 0 IF NOT 7000-TYPE CPU
00124  M01S00119.set     +++|*              - 1 IF CYBER 76 MODEL A
00125  M01S00120.set     +++|*              - 2 IF CYBER 76 MODEL B
00126  M01S00121.set     +++|*              - 3 IF CYBER 176
00127  M01S00122.set     +++|*         4000 - NOT A CYBER 170-800
00128  M01S00123.set     +++|
00129  M01S00124.set     +++| HO       CON    0           HARDWARE OPTIONS
00130  M01S00125.set     +++|
00131  M01S00126.set     +++| AB       VFD    60/0        ASSEMBLY BUFFER
00132  M01S00127.set     +++| PD       CON    0           POSSIBLE LINK DEVICE (=5 IF EST 5 IS ESM)
00133  M01S00128.set     +++| FL       CON    0,1770      DEFAULT EXECUTION MEMORY SIZE
00134  M01S00129.set     +++|
00135  M01S00130.set     +++| DS       CON    0           DISPLAY STATUS
00136  M01S00131.set     +++| KI       CON    0           KEYBOARD INDEX
00137  M01S00132.set     +++| KM       CON    0           KEYBOARD MESSAGE
00138  M01S00133.set     +++| KA       CON    0           CHARACTER ADDRESS
00139  M01S00134.set     +++| NS       CON    0           NUMBER OF SHARED MS DEVICES
00140  M01S00135.set     +++| XC       CON    CH01        X-COORDINATE
00141  M01S00136.set     +++| YC       CON    0           Y-COORDINATE
00142  M01S00137.set     +++| AM       CON    0           ASSEMBLY MODE
00143  M01S00138.set     +++|
00144  M01S00139.set     +++| ON       CON    1           CONSTANT 1
00145  M01S00140.set     +++| HN       CON    100         CONSTANT 100
00146  M01S00141.set     +++| TH       CON    1000        CONSTANT 1000
00147  M01S00142.set     +++| TR       CON    3           CONSTANT 3
00148  M01S00143.set     +++| EN       CON    0           EXTENDED MEMORY CPU ACCESS EST ORDINAL

Line S00144 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00144.284l847 ---| FR       CON    4           CONSTANT 4
00150  M01S00003.284l847 +++| DV       CON    TDDCL       MASS STORAGE DESCRIPTOR TABLE LENGTH
00151  M01S00145.set     +++| LE       CON    NOPE        LAST EST ORDINAL
00152  M01S00146.set     +++| ZR       VFD    60/0        ZERO WORD
00153  M01S00147.set     +++|****
00154  M01S00148.set     +++|          TITLE  ASSEMBLY CONSTANTS.
00155  M01S00149.set     +++|          SPACE  4,10
00156  M01S00150.set     +++|*         ASSEMBLY CONSTANTS.
00157  M01S00151.set     +++|
00158  M01S00152.set     +++|
00159  M01S00153.set     +++| BC       EQU    1           BUFFER PP CHANNEL
00160  M01S00154.set     +++| XPC      EQU    100         C176 EXCHANGE PACKAGE SIZE
00161  M01S00155.set     +++| MEBF     EQU    DSDL+12     MICROCODE/EI BUFFER
00162  M01S00156.set     +++|          ERRNZ  CPAS-3-MEBF
00163  M01S00157.set     +++| BBFL     EQU    CPML+PRSL   BASIC BUFFER LENGTH
00164  M01S00158.set     +++| EBFL     EQU    BBFL+5000/100  EXTENDED BUFFER LENGTH
00165  M01S00159.set     +++| EDBL     EQU    44          EXTENDED MEMORY DISPLAY BUFFER LENGTH
00166  M01S00160.set     +++| LDEQ     EQU    5           DEFAULT LINK DEVICE EQUIPMENT NUMBER
00167  M01S00161.set     +++| DBPS     EQU    2*400-3*3-2*1  PP SAVE AREA CONSTANT
00168  M01S00001.ns2557  +++| PSAL     EQU    PPFW/5      *SCI* PP RESIDENT SAVE AREA LENGTH
00169  M01S00162.set     +++| QUAL$    EQU    1
00170  M01S00163.set     +++|
00171  M01S00164.set     +++| YCPH     EQU    LN02        Y-COORDINATE - PRIMARY HEADER LINE
00172  M01S00165.set     +++| YCSH     EQU    LN04        Y-COORDINATE - SECONDARY HEADER LINE
00173  M01S00166.set     +++|          SPACE  4,10
00174  M01S00167.set     +++|*         BUFFER PP FUNCTIONS.
00175  M01S00168.set     +++|
00176  M01S00169.set     +++|
00177  M01S00170.set     +++| TBPF     BSS    0
00178  M01S00171.set     +++|          LOC    0

Line S00172 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2767`

Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00172.ns2767  ---| RSPF     BSS    1           RESET PP
00180  M01S00001.ns2767  +++| RSBF     BSS    1           RESET BUFFER PP
00181  M01S00173.set     +++| IFBF     BSS    1           INPUT FIRST BUFFER
00182  M01S00174.set     +++| ISBF     BSS    1           INPUT SECOND BUFFER
00183  M01S00175.set     +++| DDDF     BSS    1           DISPLAY BUFFER
00184  M01S00176.set     +++| UECF     BSS    1           UPDATE EQUIPMENT COUNT
00185  M01S00177.set     +++| ONLF     BSS    1           OUTPUT NEXT LINE
00186  M01S00178.set     +++| RCLF     BSS    2           REPLACE CURRENT LINE
00187  M01S00179.set     +++| ANLF     EQU    RCLF+1      ADD NEXT LINE
00188  M01S00180.set     +++| ADBF     BSS    1           ADVANCE BUFFER
00189  M01S00181.set     +++| ADDF     BSS    1           ADVANCE DISPLAY
00190  M01S00182.set     +++| RPSF     BSS    1           RESET SECOND BUFFER
00191  M01S00183.set     +++|          SPACE  4,10
00192  M01S00184.set     +++|*         MASS STORAGE DESCRIPTOR TABLE TAGS.
00193  M01S00185.set     +++|
00194  M01S00186.set     +++|
00195  M01S00187.set     +++|          BSS    0
00196  M01S00188.set     +++|          LOC    0
00197  M01S00189.set     +++| DVFA     BSS    1           FILE ALLOCATION FLAGS
00198  M01S00190.set     +++| DVNT     BSS    1           NUMBER OF TRACKS

Line S00191 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00191.271l716 ---| DVPR     BSS    1           10/ ,1/ SCKP DEVICE, 1/ ISD PRESET FLAG

Line S00001 Modification History
`M01` (Added by)	`271l716`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00001.284l847 ---| DVPR     BSS    1           3/ CN,7/ 0,1/ CD, 1/ PF
00201  M01S00004.284l847 +++| DVPR     BSS    1           3/ CN, 3/ C2, 1/ F2, 3/ 0,1/ CD, 1/ PF
00202  M01S00002.271l716 +++|*                            CN = CONTROLLER NUMBER
00203  M01S00005.284l847 +++|*                            C2 = CONTROLLER NUMBER, SECOND CHANNEL
00204  M01S00006.284l847 +++|*                            F2 = SECOND CONTROLLER NUMBER FLAG
00205  M01S00003.271l716 +++|*                            CD = SYSTEM CHECKPOINT DEVICE
00206  M01S00004.271l716 +++|*                            PF = ISD PRESET FLAG
00207  M01S00192.set     +++| DVPF     BSS    2           8/ NC,8/ SM,8/ DM
00208  M01S00193.set     +++|*                            NC = NUMBER OF CATALOG TRACKS
00209  M01S00194.set     +++|*                            SM = SECONDARY MASK
00210  M01S00195.set     +++|*                            DM = DEVICE MASK
00211  M01S00196.set     +++|
00212  M01S00197.set     +++| DVNM     BSS    3           FAMILY OR PACK NAME
00213  M01S00198.set     +++| DVDN     BSS    1           DEVICE NUMBER
00214  M01S00199.set     +++| DVAP     BSS    1           APRDECK NUMBER
00215  M01S00200.set     +++|
00216  M01S00201.set     +++| DVED     BSS    1           EQUIPMENT DESCRIPTION
00217  M01S00202.set     +++| DVES     BSS    0           1000B WORD BLOCKS OF EM (2 LOCATIONS)
00218  M01S00203.set     +++| DVUN     BSS    4           UNIT LIST
00219  M01S00007.284l847 +++| DVUNL    EQU    *-DVUN      LENGTH OF UNIT LIST
00220  M01S00204.set     +++|
00221  M01S00205.set     +++| DVTH     BSS    0           DEVICE THRESHOLD WORD
00222  M01S00206.set     +++| DVVF     BSS    1           VALIDATION FAILURE THRESHOLD
00223  M01S00207.set     +++| DVRA     BSS    1           RESTRICT ACTIVITY TRACK THRESHOLD
00224  M01S00208.set     +++| DVLS     BSS    1           LOW SPACE TRACK THRESHOLD
00225  M01S00209.set     +++| DVRE     BSS    1           RECOVERED ERROR THRESHOLD
00226  M01S00210.set     +++| DVUE     BSS    1           UNRECOVERED ERROR THRESHOLD
00227  M01S00211.set     +++|
00228  M01S00008.284l847 +++| DVCT     BSS    1           1/  SHARED DEVICE FLAG,
00229  M01S00009.284l847 +++|*                            11/ DEFAULT NUMBER OF CATALOG TRACKS
00230  M01S00010.284l847 +++| DVAI     BSS    1           6/  CONTROLWARE LOAD, 6/ ALGORITHM INDEX
00231  M01S00011.284l847 +++| DVDI     BSS    1           6/  DRIVER INDEX, 6/ UNUSED
00232  M01S00012.284l847 +++| DVSL     BSS    1           1/  FULL TRACK FLAG,
00233  M01S00013.284l847 +++|*                            11/ SECTOR LIMIT + MAX PARTITION NO.
00234  M01S00014.284l847 +++| DVCO     BSS    1           12/ CYLINDER OFFSET FOR THIS PARTITION
00235  M01S00015.284l847 +++|
00236  M01S00212.set     +++| TDDEL    BSS    0           LENGTH OF MS DESCRIPTOR TABLE ENTRY

Line S00213 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
00237  M02S00213.284l847 ---| DV       EQU    FR          CM WORD LENGTH OF TABLE

Line S00214 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00214.284l847 ---|          ERRNZ  TDDCL-4     DV VALUE DEPENDS ON LENGTH OF TABLE
00239  M01S00016.284l847 +++|          ERRNZ  TDDEL/5*5-TDDEL  TABLE LENGTH MUST BE MULTIPLE OF 5
00240  M01S00215.set     +++| TDDCL    EQU    TDDEL/5     CM WORD LENGTH OF TABLE

Line S00216 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`284l847`

Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00216.284l847 ---|          ERRNZ  TDDEL/5*5-TDDEL  TABLE LENGTH MUST BE MULTIPLE OF 5
00242  M01S00017.284l847 +++|          ERRNZ  TDDCL-5     DV VALUE DEPENDS ON LENGTH OF TABLE
00243  M01S00001.set81   +++| .TDDB    EQU    TDDCL*ESMX+77  CM BUFFER SIZE PLUS ROUNDING FACTOR
00244  M01S00002.set81   +++| TDDBL    EQU    .TDDB/100   CM BUFFER LENGTH/100B FOR TABLE
00245  M01S00217.set     +++|          SPACE  4,10
00246  M01S00218.set     +++|*         DEFAULT MASS STORAGE ERROR THRESHOLDS.
00247  M01S00219.set     +++|
00248  M01S00220.set     +++|
00249  M01S00221.set     +++|          ORG    AB
00250  M01S00222.set     +++| AB       INDEX
00251  M01S00223.set     +++|          INDEX  DVVF-DVTH,1
00252  M01S00224.set     +++|          INDEX  DVRA-DVTH,0 TRACK COUNT / 8
00253  M01S00225.set     +++|          INDEX  DVRE-DVTH,50
00254  M01S00226.set     +++|          INDEX  DVLS-DVTH,0 TRACK COUNT / 16
00255  M01S00227.set     +++|          INDEX  DVUE-DVTH,1
00256  M01S00228.set     +++|          ORG    TBPF
00257  M01S00001.274l797 +++|          SPACE  4,10
00258  M01S00002.274l797 +++|**        MACRO SUBROUTINES FOR ASSEMBLING DIRECTIVE VALUES AND NAMES.
00259  M01S00003.274l797 +++|
00260  M01S00004.274l797 +++|
00261  M01S00005.274l797 +++| AODSUB   MACRO
00262  M01S00006.274l797 +++|          LIST G
00263  M01S00007.274l797 +++| AOD      SPACE  4
00264  M01S00008.274l797 +++|**        AOD - ASSEMBLE OCTAL DIGITS.
00265  M01S00009.274l797 +++|*
00266  M01S00010.274l797 +++|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
00267  M01S00011.274l797 +++|*
00268  M01S00012.274l797 +++|*         EXIT   (A) = LOWER ASSEMBLY.
00269  M01S00013.274l797 +++|*                (AB - AB+4) = ASSEMBLED VALUE.
00270  M01S00014.274l797 +++|*                ERROR IF SEPARATOR NOT *,* OR *.*.
00271  M01S00015.274l797 +++|*
00272  M01S00016.274l797 +++|*         CALLS  CDR.
00273  M01S00017.274l797 +++|
00274  M01S00018.274l797 +++|
00275  M01S00019.274l797 +++| AOD1     LDD    AB+4        RETURN WITH LOWER ASSEMBLY
00276  M01S00020.274l797 +++|
00277  M01S00021.274l797 +++| AOD      SUBR               ENTRY/EXIT
00278  M01S00022.274l797 +++|          RJM    CDR
00279  M01S00023.274l797 +++|          LMN    1R,         CHECK SEPARATOR
00280  M01S00024.274l797 +++|          ZJN    AOD1        IF *,*
00281  M01S00025.274l797 +++|          LMN    1R.&1R,
00282  M01S00026.274l797 +++|          ZJN    AOD1        IF *.*
00283  M01S00027.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
00284  M01S00028.274l797 +++|
00285  M01S00029.274l797 +++|          LIST   *
00286  M01S00030.274l797 +++| AODSUB   ENDM
00287  M01S00031.274l797 +++| ASDSUB   MACRO
00288  M01S00032.274l797 +++|          LIST   G
00289  M01S00033.274l797 +++| ASD      SPACE  4,10
00290  M01S00034.274l797 +++|**        ASD - ASSEMBLE DIGITS.
00291  M01S00035.274l797 +++|*
00292  M01S00036.274l797 +++|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
00293  M01S00037.274l797 +++|*
00294  M01S00038.274l797 +++|*         EXIT   (AB - AB+4) = ASSEMBLED DIGITS.
00295  M01S00039.274l797 +++|*                ERROR EXIT IF NO *.*.
00296  M01S00040.274l797 +++|*
00297  M01S00041.274l797 +++|*         CALLS  CDR.
00298  M01S00042.274l797 +++|
00299  M01S00043.274l797 +++|
00300  M01S00044.274l797 +++| ASD1     LDD    AB+4        RETURN WITH LOWER ASSEMBLY
00301  M01S00045.274l797 +++|
00302  M01S00046.274l797 +++| ASD      SUBR               ENTRY/EXIT
00303  M01S00047.274l797 +++|          RJM    CDR
00304  M01S00048.274l797 +++|          LMN    1R.
00305  M01S00049.274l797 +++|          ZJN    ASD1        IF *.*
00306  M01S00050.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
00307  M01S00051.274l797 +++|
00308  M01S00052.274l797 +++|          LIST   *
00309  M01S00053.274l797 +++| ASDSUB   ENDM
00310  M01S00054.274l797 +++| ASNSUB   MACRO
00311  M01S00055.274l797 +++|          LIST   G
00312  M01S00056.274l797 +++| ASN      SPACE  4,10
00313  M01S00057.274l797 +++|**        ASN - ASSEMBLE NAME.
00314  M01S00058.274l797 +++|*
00315  M01S00059.274l797 +++|*         ENTRY  (A) = NUMBER OF CHARACTERS TO ASSEMBLE.
00316  M01S00060.274l797 +++|*                (KA) = ADDRESS OF CHARACTER STRING.
00317  M01S00061.274l797 +++|*
00318  M01S00062.274l797 +++|*         EXIT   (CM - CM+4) = ASSEMBLED NAME.
00319  M01S00063.274l797 +++|*                (A) = 0 IF ASSEMBLY TERMINATED ON *,* OR *.*.
00320  M01S00064.274l797 +++|*                (T0) = NUMBER OF CHARACTERS ASSEMBLED.
00321  M01S00065.274l797 +++|*
00322  M01S00066.274l797 +++|*         USES   T1, T2.
00323  M01S00067.274l797 +++|
00324  M01S00068.274l797 +++|
00325  M01S00069.274l797 +++| ASN2     AOD    T0          ADVANCE CHARACTER COUNT
00326  M01S00070.274l797 +++|          SBN    1
00327  M01S00071.274l797 +++|          SHN    21-0        FORM BUFFER ADDRESS
00328  M01S00072.274l797 +++|          ADN    CM
00329  M01S00073.274l797 +++|          STD    T1
00330  M01S00074.274l797 +++|          LMD    T1          CLEAR ADDRESS
00331  M01S00075.274l797 +++|          LMI    KA          INSERT CHARACTER
00332  M01S00076.274l797 +++|          MJN    ASN3        IF CHARACTER PACKED LOW
00333  M01S00077.274l797 +++|          SHN    6           POSITION CHARACTER HIGH
00334  M01S00078.274l797 +++| ASN3     RAI    T1          ASSEMBLE BYTE
00335  M01S00079.274l797 +++|          AOD    KA          ADVANCE CHARACTER BUFFER
00336  M01S00080.274l797 +++|          SOD    T2          DECREMENT CHARACTER COUNT
00337  M01S00081.274l797 +++|          NJN    ASN1        IF NOT END OF ASSEMBLY
00338  M01S00082.274l797 +++|          LDD    T0
00339  M01S00083.274l797 +++|
00340  M01S00084.274l797 +++| ASN      SUBR               ENTRY/EXIT
00341  M01S00085.274l797 +++|          STD    T2          SET CHARACTER COUNT
00342  M01S00086.274l797 +++|          LDN    0           CLEAR ASSEMBLY BUFFER
00343  M01S00087.274l797 +++|          STD    T0
00344  M01S00088.274l797 +++|          CRD    CM
00345  M01S00089.274l797 +++|          AOD    KA          SKIP SEPARATOR
00346  M01S00090.274l797 +++| ASN1     LDI    KA          CHECK NEXT CHARACTER
00347  M01S00091.274l797 +++|          SBN    1R9+1
00348  M01S00092.274l797 +++|          MJN    ASN2        IF ALPHANUMERIC
00349  M01S00093.274l797 +++|          SBN    1R,-1R9-1
00350  M01S00094.274l797 +++|          ZJN    ASNX        IF *,*
00351  M01S00095.274l797 +++|          SBN    1R.-1R,
00352  M01S00096.274l797 +++|          ZJN    ASNX        IF *.*
00353  M01S00097.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
00354  M01S00098.274l797 +++|
00355  M01S00099.274l797 +++|          LIST   *
00356  M01S00100.274l797 +++| ASNSUB   ENDM
00357  M01S00101.274l797 +++| CDRSUB   MACRO
00358  M01S00102.274l797 +++|          LIST   G
00359  M01S00103.274l797 +++| CDR      SPACE  4,10
00360  M01S00104.274l797 +++|**        CDR - CONVERT DIGITS RIGHT ADJUSTED.
00361  M01S00105.274l797 +++|*
00362  M01S00106.274l797 +++|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
00363  M01S00107.274l797 +++|*
00364  M01S00108.274l797 +++|*         EXIT   (A) = SEPARATOR CHARACTER.
00365  M01S00109.274l797 +++|*                (AB - AB+4) = ASSEMBLY.
00366  M01S00110.274l797 +++|*
00367  M01S00111.274l797 +++|*         USES   T1, T2.
00368  M01S00112.274l797 +++|
00369  M01S00113.274l797 +++|
00370  M01S00114.274l797 +++| CDR4     SBN    1R -1R8
00371  M01S00115.274l797 +++|          ZJN    CDR3        IF SPACE
00372  M01S00116.274l797 +++| CDR5     LDI    KA          RETURN WITH CHARACTER
00373  M01S00117.274l797 +++|
00374  M01S00118.274l797 +++| CDR      SUBR               ENTRY/EXIT
00375  M01S00119.274l797 +++|          LDN    ZERL        CLEAR ASSEMBLY BUFFER
00376  M01S00120.274l797 +++|          CRD    AB
00377  M01S00121.274l797 +++| CDR1     LDI    KA          CHECK CHARACTER
00378  M01S00122.274l797 +++|          SBN    1R0
00379  M01S00123.274l797 +++|          MJN    CDR5        IF ALPHA
00380  M01S00124.274l797 +++|          SBN    1R8-1R0
00381  M01S00125.274l797 +++|          PJN    CDR4        IF NOT OCTAL DIGIT
00382  M01S00126.274l797 +++|          ADN    10          STORE DIGIT
00383  M01S00127.274l797 +++|          STD    T1
00384  M01S00128.274l797 +++|          LDN    AB+4        SET BYTE ADDRESS
00385  M01S00129.274l797 +++|          STD    T2
00386  M01S00130.274l797 +++| CDR2     LDI    T2          LOAD BYTE
00387  M01S00131.274l797 +++|          SHN    3
00388  M01S00132.274l797 +++|          LMD    T1          ADD NEW DIGIT
00389  M01S00133.274l797 +++|          STI    T2          STORE
00390  M01S00134.274l797 +++|          SHN    -14         SAVE OVERFLOW
00391  M01S00135.274l797 +++|          STD    T1
00392  M01S00136.274l797 +++|          SOD    T2          ADVANCE BYTE ADDRESS
00393  M01S00137.274l797 +++|          LMN    AB-1
00394  M01S00138.274l797 +++|          NJN    CDR2        IF NOT FINISHED
00395  M01S00139.274l797 +++| CDR3     AOD    KA          ADVANCE CHARACTER
00396  M01S00140.274l797 +++|          UJN    CDR1        PROCESS NEXT CHARACTER
00397  M01S00141.274l797 +++|
00398  M01S00142.274l797 +++|          LIST   *
00399  M01S00143.274l797 +++| CDRSUB   ENDM
00400  M01S00229.set     +++|          SPACE  4,10
00401  M01S00230.set     +++|**        CHKAPE - CHECK ALTERNATE PP ERROR.
00402  M01S00231.set     +++|*
00403  M01S00232.set     +++|*         CALLS *DSE* IF THE *A* REGISTER .NE. 0.
00404  M01S00233.set     +++|
00405  M01S00234.set     +++|
00406  M01S00235.set     +++| CHKAPE   MACRO
00407  M01S00236.set     +++|          LOCAL  CHK1
00408  M01S00237.set     +++|          ZJN    CHK1        IF NO ERROR RETURNED
00409  M01S00238.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
00410  M01S00239.set     +++| CHK1     BSS    0
00411  M01S00240.set     +++|          ENDM
00412  M01S00241.set     +++|          SPACE  4
00413  M01S00242.set     +++|**        JMP - THREADED JUMP.
00414  M01S00243.set     +++|*
00415  M01S00244.set     +++|*
00416  M01S00245.set     +++|*         JMP    ADDR
00417  M01S00246.set     +++|*         ENTRY  *ADDR* = JUMP ADDRESS.
00418  M01S00247.set     +++|
00419  M01S00248.set     +++|
00420  M01S00249.set     +++| JMP      MACRO  ADDR
00421  M01S00250.set     +++|          IF     -DEF,.ADDR,2
00422  M01S00251.set     +++|          NOREF  .ADDR
00423  M01S00252.set     +++| .ADDR    MAX    ADDR,*-40
00424  M01S00253.set     +++|          IFGT   .ADDR,*-40
00425  M01S00254.set     +++|          UJN    .ADDR
00426  M01S00255.set     +++| .ADDR    SET    *-1
00427  M01S00256.set     +++|          ELSE   2
00428  M01S00257.set     +++| .ADDR    SET    *
00429  M01S00258.set     +++|          LJM    ADDR
00430  M01S00259.set     +++|          ENDM
00431  M01S00260.set     +++| SCLASS   SPACE  4,15
00432  M01S00261.set     +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00433  M01S00262.set     +++|*
00434  M01S00263.set     +++|*         SCLASS NM,MN,DF,ST,TX
00435  M01S00264.set     +++|*
00436  M01S00265.set     +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00437  M01S00266.set     +++|*                *MN* = TWO CHARACTER MNEMONIC.
00438  M01S00267.set     +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00439  M01S00268.set     +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00440  M01S00269.set     +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00441  M01S00270.set     +++|*
00442  M01S00271.set     +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00443  M01S00272.set     +++|*                THIS MACRO.
00444  M01S00273.set     +++|
00445  M01S00274.set     +++|
00446  M01S00275.set     +++|          PURGMAC  SCLASS
00447  M01S00276.set     +++|
00448  M01S00277.set     +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00449  M01S00278.set     +++| .A       IFC    NE,$NM$SSSC$
00450  M01S00279.set     +++| .SCL     RMT
00451  M01S00280.set     +++|          INDEX  /SCD/NM,/SCD/MN_MK    TX
00452  M01S00281.set     +++| .SCL     RMT
00453  M01S00282.set     +++| .A       ENDIF
00454  M01S00283.set     +++| SCLASS   ENDM
00455  M01S00284.set     +++|
00456  M01S00285.set     +++|
00457  M01S00286.set     +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00458  M01S00287.set     +++|          QUAL   SCD
00459  M01S00288.set     +++|*CALL     COMSSCD
00460  M01S00289.set     +++|          QUAL   *
00461  M01S00290.set     +++|
00462  M01S00291.set     +++|*         DEFINE UNQUALIFIED *COMSSCD* SYMBOLS.
00463  M01S00292.set     +++|
00464  M01S00293.set     +++| MXJC     EQU    /SCD/MXJC
00465  M01S00294.set     +++| MXSC     EQU    /SCD/MXSC
00466  M01S00295.set     +++| SUBSYST  SPACE  4,10
00467  M01S00296.set     +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00468  M01S00297.set     +++|*
00469  M01S00298.set     +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00470  M01S00299.set     +++|*
00471  M01S00300.set     +++|*         ENTRY  *NAME* = 3 CHARACTER SUBSYSTEM NAME.
00472  M01S00301.set     +++|*                *ID* = SUBSYSTEM ID.
00473  M01S00302.set     +++|*                *DCP* = DEFAULT CONTROL POINT.
00474  M01S00303.set     +++|*                *CP* = *YES* IF A CONTROL POINT IS ALLOWED.
00475  M01S00304.set     +++|*                *DEF* = *ENABLE* IF SUBSYSTEM ENABLED BY DEFAULT.
00476  M01S00305.set     +++|
00477  M01S00306.set     +++|
00478  M01S00307.set     +++|          PURGMAC  SUBSYST
00479  M01S00308.set     +++|
00480  M01S00309.set     +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00481  M01S00310.set     +++| .A       IFC    NE,$NM$CMS$
00482  M01S00311.set     +++| .SUB1    RMT                ENABLE/DISABLE CODE
00483  M01S00312.set     +++| .B       IFC    EQ,$CP$YES$
00484  M01S00313.set     +++| NM       DATA   C*NM*
00485  M01S00314.set     +++| .B       ELSE
00486  M01S00315.set     +++| NM       DATA   C*NM_.*
00487  M01S00316.set     +++| .B       ENDIF
00488  M01S00317.set     +++| .1       SET    MXSI-ID
00489  M01S00318.set     +++| .2       SET    .1/12D
00490  M01S00319.set     +++| .3       SET    4-.2        *SSSL* BYTE
00491  M01S00320.set     +++| .4       DECMIC .1-12D*.2
00492  M01S00321.set     +++| .5       SET    1S".4"      *SSSL* MASK
00493  M01S00322.set     +++|          LDK    .3*10000B+.5
00494  M01S00323.set     +++|          JMP    CSB
00495  M01S00324.set     +++| .SUB1    RMT
00496  M01S00325.set     +++|
00497  M01S00326.set     +++|*         SET UP DEFAULT *SSSL*.
00498  M01S00327.set     +++|
00499  M01S00328.set     +++| .C       IFC    EQ,$DF$ENABLE$
00500  M01S00329.set     +++| .1       SET    MXSI-ID
00501  M01S00330.set     +++| .2       SET    .1/12D
00502  M01S00331.set     +++| .3       SET    4-.2
00503  M01S00332.set     +++| .4       DECMIC .1-12D*.2
00504  M01S00333.set     +++| .5       SET    1S".4"
00505  M01S00334.set     +++| .6       DECMIC .3
00506  M01S00335.set     +++| SSSL.".6"  SET  SSSL.".6"-.5
00507  M01S00336.set     +++| .C       ENDIF
00508  M01S00337.set     +++|
00509  M01S00338.set     +++| .SUB     RMT                ENABLE/DISABLE SYNTAX
00510  M01S00339.set     +++|          INDEX  MXSI-ID,NM
00511  M01S00340.set     +++| .SUB     RMT
00512  M01S00341.set     +++| .A       ENDIF
00513  M01S00342.set     +++|
00514  M01S00343.set     +++| .D       IFC    NE,$DC$$    DEFAULT SSCT TABLE
00515  M01S00344.set     +++| .SUB2    RMT
00516  M01S00345.set     +++|          INDEX  MXSI-ID,DC
00517  M01S00346.set     +++| .SUB2    RMT
00518  M01S00347.set     +++| .D       ENDIF
00519  M01S00348.set     +++| SUBSYST  ENDM
00520  M01S00349.set     +++|          TITLE  CMR TABLE ORGANIZATION.
00521  M01S00350.set     +++|          SPACE  4,10
00522  M01S00351.set     +++|**        LIST OF *SET* GENERATED TABLES.
00523  M01S00352.set     +++|*
00524  M01S00353.set     +++|*         SYMBOLS IN THIS LIST DEFINE THE ORDER IN WHICH TABLES
00525  M01S00354.set     +++|*         IN CMR ARE ALLOCATED BY *SET*.  TABLES MUST BE
00526  M01S00355.set     +++|*         CREATED AND RECOVERED IN THE SAME SEQUENCE.
00527  M01S00356.set     +++|
00528  M01S00357.set     +++|
00529  M01S00358.set     +++|          BSS    0
00530  M01S00359.set     +++|          LOC    0
00531  M01S00360.set     +++| ESTO     BSS    1           EQUIPMENT STATUS TABLE
00532  M01S00361.set     +++| EXPO     BSS    1           C176 (AND 819) EXCHANGE PACKAGES
00533  M01S00005.271l716 +++| MCTO     BSS    1           MEMORY CONTROL TABLE
00534  M01S00362.set     +++| SCDO     BSS    1           *SCD* PARAMETER TABLE
00535  M01S00363.set     +++| RPTO     BSS    1           RING PORT TABLE
00536  M01S00364.set     +++| CHTO     BSS    1           CHANNEL TABLES
00537  M01S00365.set     +++| ECBO     BSS    1           *EICB* TABLES
00538  M01S00366.set     +++| EMBO     BSS    1           ERROR MESSAGE BUFFER
00539  M01S00367.set     +++| EVTO     BSS    1           EVENT TABLE
00540  M01S00368.set     +++| SCTO     BSS    1           SUBSYSTEM CONTROL TABLES
00541  M01S00369.set     +++| SITO     BSS    1           *SECDED* ID TABLE
00542  M01S00370.set     +++| SABO     BSS    1           SYSTEM ATTRIBUTE BLOCK

Line S00371 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00371.271l750 ---| JCAO     BSS    1           JOB CONTROL AREA
00544  M01S00001.271l750 +++| JCAO     BSS    1           JOB CONTROL BLOCK TABLE
00545  M01S00372.set     +++| MSAO     BSS    1           MASS STORAGE ALLOCATION AREA
00546  M01S00373.set     +++| ODBO     BSS    1           OPERATOR DISPLAY BUFFER
00547  M01S00374.set     +++| LDBO     BSS    1           *L* DISPLAY BUFFER
00548  M01S00001.282l826 +++| PDBO     BSS    1           PREVIEW DISPLAY BUFFER
00549  M01S00375.set     +++| DFBO     BSS    1           DAYFILE BUFFERS
00550  M01S00001.253l688 +++| PSVO     BSS    1           PP SAVE AREAS
00551  M01S00376.set     +++| MSTO     BSS    1           MASS STORAGE TABLES
00552  M01S00377.set     +++| TRTO     BSS    1           TRACK RESERVATION TABLES
00553  M01S00378.set     +++| EXMO     BSS    1           EXTENDED MEMORY BUFFERS
00554  M01S00379.set     +++| INBO     BSS    1           INSTALLATION BLOCK
00555  M01S00380.set     +++| SDAO     BSS    1           STATISTICAL DATA AREA
00556  M01S00381.set     +++| FOTO     BSS    1           FAMILY ORDINAL TABLE
00557  M01S00382.set     +++| FNTO     BSS    1           FILE NAME TABLE
00558  M01S00383.set     +++| EJTO     BSS    1           EXECUTING JOB TABLE
00559  M01S00384.set     +++| QFTO     BSS    1           QUEUE FILE TABLE
00560  M01S00385.set     +++| CLTO     BSS    1           COMMON LIBRARIES TABLE
00561  M01S00386.set     +++| LIDO     BSS    1           *LID* TABLE
00562  M01S00144.274l797 +++| OSTO     BSS    1           OPTICAL DISK STATUS TABLE
00563  M01S00145.274l797 +++| ORTO     BSS    1           OPTICAL DISK REQUEST TABLE
00564  M01S00001.283l840 +++| BSTO     BSS    1           BUFFER STATUS TABLES
00565  M01S00387.set     +++| BDTO     BSS    1           BUFFERED DEVICE CONTROL TABLES
00566  M01S00388.set     +++|
00567  M01S00389.set     +++| TSGTE    BSS    0           END OF TABLES GENERATED BY *SET*
00568  M01S00001.set77   +++|          ERRNZ  BDTO+1-TSGTE  BUFFERED DEVICE TABLES MUST BE LAST
00569  M01S00390.set     +++|          TITLE  MAIN PROGRAM.
00570  M01S00391.set     +++| SET      SPACE  4
00571  M01S00392.set     +++|**        SET - MAIN PROGRAM.
00572  M01S00393.set     +++|
00573  M01S00394.set     +++|
00574  M01S00395.set     +++|          ORG    TBPF
00575  M01S00396.set     +++| SET      LDN    0           LOAD TEXT DECK
00576  M01S00397.set     +++|          RJM    RTD
00577  M01S00398.set     +++|          RJM    ATD         ASSEMBLE TEXT DECK
00578  M01S00399.set     +++|          RJM    3,LA        PROCESS ASSEMBLY VALUES
00579  M01S00400.set     +++| SET1     RJM    ROV         LOAD TEXT PROCESSOR
00580  M01S00401.set     +++|          AOD    DI          ADVANCE TEXT DECK INDEX
00581  M01S00402.set     +++|          LMN    TTXCL
00582  M01S00403.set     +++|          NJN    SET         IF NOT END OF TEXT DECKS TO ASSEMBLE

Line S00404 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00583  M02S00404.271l716 ---|
00584  M01S00006.271l716 +++|          RJM    ROV         SKIP *RCT*

Line S00405 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2767`

Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00405.ns2767  ---|          LDN    RSPF        TERMINATE BUFFER PP PROGRAM
00586  M01S00002.ns2767  +++|          LDN    RSBF        TERMINATE BUFFER PP PROGRAM
00587  M01S00406.set     +++|          RJM    IBF
00588  M01S00407.set     +++| SET2     RJM    ROV         LOAD *SCP*
00589  M01S00408.set     +++|          RJM    SCP         SETUP CONTROL POINTS
00590  M01S00409.set     +++|          RJM    ROV         LOAD *PPR*
00591  M01S00410.set     +++|
00592  M01S00411.set     +++|*         PP RESIDENT (PPR) NOW LOADED.
00593  M01S00412.set     +++|
00594  M01S00413.set     +++|          LDC    PPFW-1      SET START ADDRESS
00595  M01S00414.set     +++|          STM    OVL
00596  M01S00415.set     +++|          LDD    DH          SET DEADSTART CHANNEL
00597  M01S00416.set     +++|          STM    OVL+T1
00598  M01S00417.set     +++|          LDD    RS          SET RECOVERY STATUS
00599  M01S00418.set     +++|          STM    OVL+T2
00600  M01S00419.set     +++|          LDD    DF          SET DEADSTART EQUIPMENT
00601  M01S00420.set     +++|          STM    OVL+DRSW
00602  M01S00421.set     +++|          LDC    0           SET DEADSTART OPTIONS
00603  M01S00422.set     +++| DSTO     EQU    *-1
00604  M01S00423.set     +++|          STM    OVL+CM

Line S00424 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00424.283l840 ---|          LDC    0           SET NUMBER OF SHARED DEVICES

Line S00425 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00425.283l840 ---| SETD     EQU    *-1

Line S00426 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00426.283l840 ---|          STM    OVL+T7
00608  M01S00427.set     +++|          LDC    0           SET FIRST TRACK OF RMS DEADSTART FILE
00609  M01S00428.set     +++| SETE     EQU    *-1
00610  M01S00429.set     +++|          STM    OVL+DRSW+1
00611  M01S00430.set     +++|          LDC    PPFW        OUTPUT *PPR* TO PP 2
00612  M01S00431.set     +++| CC1      OAM.   OVL,2
00613  M01S00432.set     +++|          RJM    ROV
00614  M01S00433.set     +++|          LDD    T3          OUTPUT *STL* TO PP2
00615  M01S00434.set     +++| CC2      OAM.   OVL,2
00616  M01S00435.set     +++| CC3      DCN.   2
00617  M01S00436.set     +++| CC4      ACN.   0           INPUT *MTR*
00618  M01S00437.set     +++|          LCN    0
00619  M01S00438.set     +++| CC5      IAM.   0,0
00620  M01S00439.set     +++| DSTO     SPACE  4,10
00621  M01S00440.set     +++|**        DSTO - DEADSTART OPTIONS.
00622  M01S00441.set     +++|*
00623  M01S00442.set     +++|*         DSTO = 8/0,2/RA,1/A,1/G
00624  M01S00443.set     +++|*                A = 0 IF AUTOLOADING ENABLED.
00625  M01S00444.set     +++|*                  = 1 IF AUTOLOADING DISABLED.
00626  M01S00445.set     +++|*                G = 0 IF NO GRENADE AFTER CONTROLLER AUTOLOAD.
00627  M01S00446.set     +++|*                    1 IF GRENADE AFTER CONTROLLER AUTOLOAD.
00628  M01S00447.set     +++|*                RA = 0, ALLOW RECOVERY.
00629  M01S00448.set     +++|*                RA = 1, CHECKPOINT ALL DEVICES, ABORT LEVEL 3.
00630  M01S00449.set     +++|*                RA = 2 OR 3, CHECKPOINT NON-BUFFERED DEVICES,
00631  M01S00450.set     +++|*                        ABORT LEVEL 3 RECOVERY.
00632  M01S00451.set     +++|
00633  M01S00452.set     +++|
00634  M01S00453.set     +++| DSTO     EQU    DSTO        DEADSTART OPTIONS
00635  M01S00454.set     +++| TTXC     SPACE  4,10
00636  M01S00455.set     +++|**        TTXC - TABLE OF TEXT DECK COUNTS.
00637  M01S00456.set     +++|*         ENTRY = 1 WORD.
00638  M01S00457.set     +++|*
00639  M01S00458.set     +++|*T,       12/  N

Figure

00640  M01S00459.set     +++|*         N      TEXT DECK NUMBER
00641  M01S00460.set     +++|
00642  M01S00461.set     +++|
00643  M01S00462.set     +++| TTXC     BSS    0
00644  M01S00463.set     +++|          LOC    0
00645  M01S00464.set     +++| CMRD     CON    0           CMRDECK NUMBER
00646  M01S00465.set     +++| EQPD     CON    0           EQPDECK NUMBER
00647  M01S00466.set     +++| APRD     CON    0           APRDECK NUMBER
00648  M01S00467.set     +++| IPRD     CON    0           IPRDECK NUMBER
00649  M01S00468.set     +++|
00650  M01S00469.set     +++| TTXCL    BSS    0           END OF PROCESSED TEXT DECKS
00651  M01S00470.set     +++| LIBD     CON    0           LIBDECK NUMBER
00652  M01S00471.set     +++|          LOC    *O
00653  M01S00472.set     +++| DATA     SPACE  4
00654  M01S00473.set     +++|**        CONFIGURATION DATA.
00655  M01S00474.set     +++|
00656  M01S00475.set     +++|
00657  M01S00476.set     +++| .CCHN    CON    0           CONCURRENT CHANNEL/PP COUNT
00658  M01S00477.set     +++| .CPPL    CON    0           LOGICAL CONCURRENT PP STATUS
00659  M01S00478.set     +++| .CPU     CON    0,0         CPU STATUS (PHYSICAL, LOGICAL)
00660  M01S00479.set     +++| .CHN     CON    20          CHANNEL COUNT
00661  M01S00480.set     +++| .PPN     CON    0           PP COUNT
00662  M01S00481.set     +++| .PPS     CON    0,0         PPU STATUS
00663  M01S00482.set     +++| .PPL     CON    0,0         LOGICAL PP STATUS
00664  M01S00483.set     +++| .PPU     CON    10D         PP CONFIGURATION
00665  M01S00484.set     +++| .CEL     CON    0           CRITICAL ERROR LOG STATUS
00666  M01S00485.set     +++| .DSD     CON    0           DEADSTART DEVICE DATA
00667  M01S00486.set     +++| .DCS     CON    0           DISPLAY CONSOLE STATUS
00668  M01S00487.set     +++| .APP     CON    0           NEW ALTERNATE PP NUMBER
00669  M01S00488.set     +++| .MDD     CON    0           *MDD* PP NUMBER
00670  M01S00489.set     +++| .NCP     CON    11D         NUMBER OF CONTROL POINTS + 1
00671  M01S00007.271l716 +++| .NPCP    CON    0           NUMBER OF PSEUDO CONTROL POINTS
00672  M01S00490.set     +++|

Line S00491 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00491.283l840 ---| DSFL     CON    0,0         FL ADJUSTMENT FOR DSCB

Line S00492 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00492.283l840 ---| SPPC     CON    2           SYSTEM CONTROL POINT PP COUNT

Line S00001 Modification History
`M01` (Added by)	`ns2633`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00001.283l840 ---| VEFL     CON    0           4000B IF *VE=* SPECIFIED

Line S00493 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00493.283l840 ---| VEMZ     CON    0,0         NVE CM BLOCK SIZE/100B
00677  M01S00002.283l840 +++| BSPT     CON    0           BUILD *SCI* PARAMETER TABLE FLAG

Line S00494 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2633`

Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00494.ns2633  ---| CNVZ     CON    0,0         CURRENT NVE MEMORY SIZE/100B
00679  M01S00495.set     +++| CMCC     CON    /IOU/MRRD   MAINTENANCE CHANNEL READ FUCTION

Line S00001 Modification History
`M01` (Added by)	`271l739`
`M02` (Updated by)	`ns2709`

Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00001.ns2709  ---| IUCC     CON    /IOU/MRRD   IOU CONNECT CODE

Line S00496 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00496.283l840 ---| P2CC     CON    0           CPU-1 CONNECT CODE

Line S00497 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00497.283l840 ---| ISPF     CON    -1          SET POSITIVE IF CYBER 810/815/825/830
00683  M01S00498.set     +++| CMDL     CON    0           MODEL NUMBER
00684  M01S00499.set     +++| C8XX     CON    1           0 = CYBER 800 TYPE MAINFRAME
00685  M01S00500.set     +++| C9LM     CON    0           1 = CYBER 990 LARGE MEMORY
00686  M01S00002.271l750 +++| DCPC     CON    0           NONZERO IF DUAL 170-STATE CPUS WITH CACHE
00687  M01S00001.ns2779  +++| DCPN     CON    0           NONZERO IF *DUALCPU=N* SPECIFIED
00688  M01S00001.ns2730  +++| DCPS     CON    0           NONZERO IF DUAL-NOS-CPU SELECTED IN *CIP*
00689  M01S00003.283l840 +++| DLYA     CON    SBNI+4      DELAY CONSTANT FOR *COMPAPP*
00690  M01S00004.283l840 +++| DSFL     CON    0,0         FL ADJUSTMENT FOR DSCB
00691  M01S00005.283l840 +++| EMAF     CON    0           EXTENDED ADDRESS MODE FLAG
00692  M01S00006.283l840 +++|
00693  M01S00501.set     +++| EMTY     BSSZ   5           EXTENDED MEMORY TYPE
00694  M01S00502.set     +++| EMFL     EQU    EMTY+1      EXTENDED MEMORY FIELD LENGTH / *EMBS*
00695  M01S00503.set     +++| EMSC     EQU    EMTY+2      EXTENDED MEMORY SHIFT COUNT
00696  M01S00504.set     +++| UEMZ     EQU    EMTY+3      UEM SIZE/100B (2 LOCATIONS)

Line S00505 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00505.283l840 ---| EMAF     CON    0           EXTENDED ADDRESS MODE FLAG
00698  M01S00007.283l840 +++|
00699  M01S00008.283l840 +++| ISPF     CON    -1          SET POSITIVE IF CYBER 810/815/825/830
00700  M01S00506.set     +++| LDSH     CON    0           XM SHIFT COUNT FOR LINK DEVICE
00701  M01S00009.283l840 +++| MDDP     CON    0           TWO PORT MUX PORT FOR *MDD*
00702  M01S00010.283l840 +++| MSBD     CON    0           MAXIMUM SHARED BUFFERED DEVICE COUNT
00703  M01S00011.283l840 +++| MSDC     CON    0           MAXIMUM SHARED DEVICE COUNT
00704  M01S00012.283l840 +++| NSBD     CON    0           NUMBER OF SHARED BUFFERED DEVICES
00705  M01S00013.283l840 +++| PRSF     CON    0           MMF *PRESET* FLAG
00706  M01S00014.283l840 +++| P2CC     CON    0           CPU-1 CONNECT CODE
00707  M01S00015.283l840 +++| SCIP     CON    0           TWO PORT MUX PORT FOR CDC 721 CONSOLE
00708  M01S00016.283l840 +++| SPPC     CON    2           SYSTEM CONTROL POINT PP COUNT
00709  M01S00507.set     +++| UESC     CON    0           USER EXTENDED MEMORY SHIFT COUNT

Line S00508 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00508.283l840 ---| DLYA     CON    SBNI+4      DELAY CONSTANT FOR *COMPAPP*

Line S00002 Modification History
`M01` (Added by)	`ns2557`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00002.283l840 ---| BSPT     CON    0           BUILD *SCI* PARAMETER TABLE FLAG

Line S00003 Modification History
`M01` (Added by)	`ns2557`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00003.283l840 ---| MDDP     CON    0           TWO PORT MUX PORT FOR *MDD*

Line S00004 Modification History
`M01` (Added by)	`ns2557`
`M02` (Updated by)	`283l840`

Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00004.283l840 ---| SCIP     CON    0           TWO PORT MUX PORT FOR CDC 721 CONSOLE
00714  M01S00017.283l840 +++| VEFL     CON    0           4000B IF *VE=* SPECIFIED
00715  M01S00018.283l840 +++| VEMZ     CON    0,0         NVE CM BLOCK SIZE/100B
00716  M01S00509.set     +++|          SPACE  4,10
00717  M01S00510.set     +++|**        *DFT* ALLOCATION DATA.
00718  M01S00511.set     +++|*
00719  M01S00512.set     +++|*T,       6/ N, 6/ M, 1/ D, 1/ T, 10/ SIZE

Figure

00720  M01S00513.set     +++|*         N = NUMBER OF MAINTENANCE REGISTER BUFFERS.
00721  M01S00514.set     +++|*         M = SIZE OF EACH M/R BUFFER.
00722  M01S00515.set     +++|*         D = 1, IF *DFT* WILL BE DEDICATED.
00723  M01S00516.set     +++|*         T = 1, IF MODEL 990.
00724  M01S00517.set     +++|*         SIZE = TOTAL SIZE OF M/R BUFFERS (N*M).
00725  M01S00518.set     +++|
00726  M01S00519.set     +++|
00727  M01S00520.set     +++| DFTA     VFD    6/NUMR+1,6/0
00728  M01S00521.set     +++|          VFD    1/0,1/0,10/0
00729  M01S00001.261l700 +++|
00730  M01S00002.261l700 +++| DFSZ     CON    0           SIZE OF *DFT/OS* BUFFER

Line S00003 Modification History
`M01` (Added by)	`261l700`
`M02` (Updated by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00003.271l716 ---| DFTV     CON    0           *DFT* VERSION (ZERO = VERSION 3)
00732  M01S00008.271l716 +++|
00733  M01S00009.271l716 +++|*         *DFT* DESCRIPTOR OBTAINED FROM *CTI*.
00734  M01S00010.271l716 +++|
00735  M01S00011.271l716 +++| DFTV     CON    0           DEFAULT = *DFT* LEVEL 3, OS INITIALIZATION
00736  M01S00012.271l716 +++|*         CON    N           *DFT* VERSION (0 = VERSION 3)
00737  M01S00013.271l716 +++|*                                          (1 = VERSION 4)
00738  M01S00014.271l716 +++|*                                          (2 = VERSION 5)
00739  M01S00522.set     +++|          TITLE  SUBROUTINES.
00740  M01S00523.set     +++| IBF      SPACE  4,10
00741  M01S00524.set     +++|**        IBF - INITIATE BUFFER PP FUNCTION.
00742  M01S00525.set     +++|*
00743  M01S00526.set     +++|*         ENTRY  (A) = FUNCTION CODE.
00744  M01S00527.set     +++|*                (T5) = PARAMETER FOR FUNCTION.
00745  M01S00528.set     +++|*
00746  M01S00529.set     +++|*         EXIT   (A) = RESPONSE FROM BUFFER PP WHERE APPLICABLE.
00747  M01S00530.set     +++|
00748  M01S00531.set     +++|
00749  M01S00532.set     +++| IBF      SUBR               ENTRY/EXIT
00750  M01S00533.set     +++|          LMN    DDDF
00751  M01S00534.set     +++|          STM    AKLA        SET REFRESH STATUS
00752  M01S00535.set     +++|          LMN    DDDF
00753  M01S00536.set     +++| IBFA     ACN    BC
00754  M01S00537.set     +++|*         UJN    IBFX        (RETURN ON LEVEL 3 RECOVERY)
00755  M01S00538.set     +++|          OAN    BC          OUTPUT REQUEST
00756  M01S00539.set     +++|          FJM    *,BC        WAIT FUNCTION ACCEPT
00757  M01S00540.set     +++|          LDD    T5          OUTPUT PARAMETER
00758  M01S00541.set     +++|          OAN    BC
00759  M01S00542.set     +++|          FJM    *,BC        WAIT PARAMETER ACCEPT
00760  M01S00543.set     +++| IBFB     IAN    BC          INPUT RESPONSE
00761  M01S00544.set     +++|          UJN    IBFX        RETURN
00762  M01S00545.set     +++| IDF      SPACE  4,10
00763  M01S00546.set     +++|**        IDF - ISSUE *DIO* REQUEST.
00764  M01S00547.set     +++|*
00765  M01S00548.set     +++|*         ENTRY  (A) = FUNCTION CODE.
00766  M01S00549.set     +++|
00767  M01S00550.set     +++|
00768  M01S00551.set     +++| IDF      SUBR               ENTRY/EXIT
00769  M01S00552.set     +++|          ACN    TC
00770  M01S00553.set     +++|          OAN    TC          OUTPUT REQUEST
00771  M01S00554.set     +++|          FJM    *,TC        WAIT FUNCTION ACCEPT
00772  M01S00555.set     +++|          UJN    IDFX        RETURN
00773  M01S00556.set     +++| RTB      SPACE  4,10
00774  M01S00557.set     +++|**        RTB - READ TAPE BLOCK.
00775  M01S00558.set     +++|
00776  M01S00559.set     +++|
00777  M01S00560.set     +++| RTB      SUBR               ENTRY/EXIT
00778  M01S00561.set     +++|          LDN    RTBF        INITIATE TAPE BLOCK READ
00779  M01S00562.set     +++|          ACN    TC
00780  M01S00563.set     +++|          OAN    TC
00781  M01S00564.set     +++|          AJM    *,TC        WAIT FUNCTION ACCEPT
00782  M01S00565.set     +++|          UJN    RTBX        RETURN
00783  M01S00566.set     +++| RTD      SPACE  4,10
00784  M01S00567.set     +++|**        RTD - READ TEXT DECKS.
00785  M01S00568.set     +++|*
00786  M01S00569.set     +++|*         ENTRY  (A) = 0 TO LOAD INSTRUCTION DECK AND TEXT DECK.
00787  M01S00570.set     +++|*                     .NE. 0 TO LOAD TEXT DECK ONLY.
00788  M01S00571.set     +++|*
00789  M01S00572.set     +++|*         EXIT   TO *DSE* IF CORRECT TEXT DECK NOT FOUND.
00790  M01S00573.set     +++|*
00791  M01S00574.set     +++|*         CALLS  IBF, IDF, RTB.
00792  M01S00575.set     +++|
00793  M01S00576.set     +++|
00794  M01S00577.set     +++| RTD      SUBR               ENTRY/EXIT
00795  M01S00578.set     +++|          NJN    RTD1        IF LOADING TEXT DECK ONLY
00796  M01S00579.set     +++|          RJM    RTB
00797  M01S00580.set     +++|          LDD    DI          TRANSMIT DECK TYPE TO BUFFER PP
00798  M01S00581.set     +++|          STD    T5
00799  M01S00582.set     +++|          LDN    IFBF        LOAD INSTRUCTION DECK
00800  M01S00583.set     +++|          RJM    IBF
00801  M01S00584.set     +++| RTD1     LDN    LTDF        INITIATE SEARCH FOR TEXT DECK
00802  M01S00585.set     +++|          RJM    IDF
00803  M01S00586.set     +++|          LDM    TTXC,DI     TRANSMIT DECK NUMBER
00804  M01S00587.set     +++|          OAN    TC
00805  M01S00588.set     +++|          AJM    *,TC        WAIT SEARCH COMPLETE
00806  M01S00589.set     +++|          LDN    ISBF        LOAD TEXT DECK
00807  M01S00590.set     +++|          RJM    IBF
00808  M01S00591.set     +++|          NJN    RTDX        IF TEXT DECK FOUND
00809  M01S00592.set     +++|
00810  M01S00593.set     +++| RTD2     LDD    DI          SET TEXT DECK NAME
00811  M01S00594.set     +++|          SHN    1
00812  M01S00595.set     +++|          STD    DI
00813  M01S00596.set     +++|          LDM    RTDB,DI
00814  M01S00597.set     +++|          STM    RTDC
00815  M01S00598.set     +++|          LDM    RTDB+1,DI
00816  M01S00599.set     +++|          STM    RTDC+1
00817  M01S00600.set     +++|          LDC    RTDC
00818  M01S00601.set     +++|          LJM    DSE
00819  M01S00602.set     +++|
00820  M01S00603.set     +++| RTDB     BSS    0
00821  M01S00604.set     +++|          DATA   4RCMRD
00822  M01S00605.set     +++|          DATA   4REQPD
00823  M01S00606.set     +++|          DATA   4RAPRD
00824  M01S00607.set     +++|          DATA   4RIPRD
00825  M01S00608.set     +++|
00826  M01S00609.set     +++| RTDC     DATA   C*CMRDECK NOT ON TAPE.*
00827  M01S00610.set     +++| ROV      SPACE  4,10
00828  M01S00611.set     +++|**        ROV - READ OVERLAY.
00829  M01S00612.set     +++|*
00830  M01S00613.set     +++|*         EXIT   (T3) = BYTE COUNT FOR DATA.
00831  M01S00614.set     +++|*                (LA) = LOAD ADDRESS.
00832  M01S00615.set     +++|*
00833  M01S00616.set     +++|*         USES   T4, T6, CM - CM+4.
00834  M01S00617.set     +++|*
00835  M01S00618.set     +++|*         CALLS  IDF, RTB.
00836  M01S00619.set     +++|
00837  M01S00620.set     +++|
00838  M01S00621.set     +++| ROV      SUBR               ENTRY/EXIT
00839  M01S00622.set     +++|          ORG    ROV
00840  M01S00623.set     +++|          CON    RCM         EXIT TO *RCM* ON CM RECOVERY
00841  M01S00624.set     +++|
00842  M01S00625.set     +++| ROV1     LDN    LNOF        INITIATE OVERLAY LOAD
00843  M01S00626.set     +++|          RJM    IDF
00844  M01S00627.set     +++|          ACN    TC
00845  M01S00628.set     +++|          IAN    TC          INPUT WORD COUNT
00846  M01S00629.set     +++|          SBN    20
00847  M01S00630.set     +++|          STD    T3          SET BYTE COUNT
00848  M01S00631.set     +++|          SHN    2
00849  M01S00632.set     +++|          RAD    T3
00850  M01S00633.set     +++|          LMC    MXRL        SET EOR STATUS
00851  M01S00634.set     +++|          STD    T4
00852  M01S00635.set     +++|          LDN    20
00853  M01S00636.set     +++|          STD    T6
00854  M01S00637.set     +++| ROV2     LDN    5           SKIP *PRFX* TABLE
00855  M01S00638.set     +++|          IAM    CM,TC
00856  M01S00639.set     +++|          SOD    T6
00857  M01S00640.set     +++|          NJN    ROV2        IF NOT *6PPM* TABLE
00858  M01S00641.set     +++|          LDN    5
00859  M01S00642.set     +++|          ADD    CM+2        SET LOAD ADDRESS
00860  M01S00643.set     +++|          STD    LA
00861  M01S00644.set     +++|          LDD    LA
00862  M01S00645.set     +++| ROVB     NJN    ROV3        IF NOT PP RESIDENT
00863  M01S00646.set     +++|          LDN    PSNI
00864  M01S00647.set     +++|          STM    ROVB
00865  M01S00648.set     +++|          LDC    OVL
00866  M01S00649.set     +++| ROV3     STM    ROVC        SET LOAD ADDRESS
00867  M01S00650.set     +++|          ADC    MXRL
00868  M01S00651.set     +++|          STM    ROVD
00869  M01S00652.set     +++|          LDD    T3
00870  M01S00653.set     +++|          IAM    OVL,TC      INPUT DATA BLOCK
00871  M01S00654.set     +++| ROVC     EQU    *-1
00872  M01S00655.set     +++|          LDD    T4
00873  M01S00656.set     +++|          NJN    ROV4        IF EOR
00874  M01S00657.set     +++|          RJM    RTB         READ REMAINDER OF RECORD
00875  M01S00658.set     +++|          ACN    TC
00876  M01S00659.set     +++|          IAN    TC          INPUT WORD COUNT
00877  M01S00660.set     +++|          STD    T4
00878  M01S00661.set     +++|          ZJN    ROV4        IF EMPTY BLOCK
00879  M01S00662.set     +++|          SHN    2
00880  M01S00663.set     +++|          RAD    T4
00881  M01S00664.set     +++|          RAD    T3          ADD TO TOTAL BYTE COUNT
00882  M01S00665.set     +++|          LDD    T4          INPUT REMAINDER OF RECORD
00883  M01S00666.set     +++|          IAM    OVL+MXRL,TC
00884  M01S00667.set     +++| ROVD     EQU    *-1
00885  M01S00668.set     +++| ROV4     LJM    ROVX        RETURN
00886  M01S00669.set     +++| CLS      SPACE  4,10
00887  M01S00670.set     +++|**        CLS - CLEAR STORAGE.
00888  M01S00671.set     +++|*
00889  M01S00672.set     +++|*         ENTRY  (A) = WORD COUNT.
00890  M01S00673.set     +++|*                (CA - CA+1) = CM ADDRESS.
00891  M01S00674.set     +++|*
00892  M01S00675.set     +++|*         EXIT   (A) .NE. 0.
00893  M01S00676.set     +++|*                (CA - CA+1) ADVANCED.
00894  M01S00677.set     +++|*
00895  M01S00678.set     +++|*         USES   T1, T2.
00896  M01S00679.set     +++|
00897  M01S00680.set     +++|
00898  M01S00681.set     +++| CLS      SUBR               ENTRY/EXIT
00899  M01S00682.set     +++|          SBN    1
00900  M01S00683.set     +++|          MJN    CLSX        IF NULL WORD COUNT
00901  M01S00684.set     +++|          STD    T2
00902  M01S00685.set     +++|          SHN    -14         SET WORD COUNT
00903  M01S00686.set     +++|          STD    T1
00904  M01S00687.set     +++| CLS1     LDD    CA          CLEAR WORD
00905  M01S00688.set     +++|          SHN    14
00906  M01S00689.set     +++|          ADD    CA+1
00907  M01S00690.set     +++|          CWD    ZR
00908  M01S00691.set     +++|          AOD    CA+1        ADVANCE CENTRAL ADDRESS
00909  M01S00692.set     +++|          SHN    -14
00910  M01S00693.set     +++|          RAD    CA
00911  M01S00694.set     +++|          SOD    T2          DECREMENT
00912  M01S00695.set     +++|          PJN    CLS1        IF NO BORROW FROM NEXT BYTE
00913  M01S00696.set     +++|          AOD    T2
00914  M01S00697.set     +++|          SOD    T1
00915  M01S00698.set     +++|          PJN    CLS1        IF NOT END OF CLEAR
00916  M01S00699.set     +++|          UJN    CLSX        RETURN
00917  M01S00700.set     +++| DSE      SPACE  4,10
00918  M01S00701.set     +++|**        DSE - DISPLAY ERROR.
00919  M01S00702.set     +++|*
00920  M01S00703.set     +++|*         ENTRY  (A) BITS 13 - 00 = MESSAGE ADDRESS.
00921  M01S00704.set     +++|*                    BITS 15 - 14 = CC545 CHARACTER SIZE FLAGS.
00922  M01S00705.set     +++|*
00923  M01S00706.set     +++|*         EXIT   NO EXIT.
00924  M01S00707.set     +++|*
00925  M01S00708.set     +++|*         USES   T1, T2.
00926  M01S00709.set     +++|*
00927  M01S00710.set     +++|*         MACROS CFNC, DFIM.
00928  M01S00711.set     +++|
00929  M01S00712.set     +++|
00930  M01S00713.set     +++| DSE      SBN    1           SET MESSAGE ADDRESS
00931  M01S00714.set     +++|          STD    T1
00932  M01S00715.set     +++|          SHN    -14
00933  M01S00716.set     +++|          LMC    SLMF        SELECT LEFT SCREEN
00934  M01S00717.set     +++|          CFNC
00935  M01S00718.set     +++| DSE1     LDD    T1          SET MESSAGE ADDRESS
00936  M01S00719.set     +++|          STD    T2
00937  M01S00720.set     +++|          LDN    2           OUTPUT COORDINATES
00938  M01S00721.set     +++|          OAM    DSEA,CH
00939  M01S00722.set     +++| DSE2     AOD    T2          DISPLAY MESSAGE
00940  M01S00723.set     +++|          LDI    T2
00941  M01S00724.set     +++|          OAN    CH
00942  M01S00725.set     +++|          NJN    DSE2
00943  M01S00726.set     +++|          CFNC   THVF        TRANSFER HIDDEN TO VISIBLE
00944  M01S00727.set     +++|          LDC    SBNI+1      DELAY
00945  M01S00728.set     +++|          NJN    *-1
00946  M01S00729.set     +++|          DFIM   (UJN *)
00947  M01S00730.set     +++|          UJN    DSE1        LOOP
00948  M01S00731.set     +++|
00949  M01S00732.set     +++|
00950  M01S00733.set     +++|          DFIM   (CON LN15)
00951  M01S00734.set     +++| DSEA     CON    LN25,CH01
00952  M01S00735.set     +++|          SPACE  4,10
00953  M01S00736.set     +++|**        DISPLAY SUBROUTINES.
00954  M01S00737.set     +++|
00955  M01S00738.set     +++|
00956  M01S00739.set     +++| FNC      DSUB
00957  M01S00740.set     +++| SME      SPACE  4,10
00958  M01S00741.set     +++|**        SME - SEARCH EST FOR MASS STORAGE EQUIPMENT.
00959  M01S00742.set     +++|*
00960  M01S00743.set     +++|*         ENTRY  (EQ) = PREVIOUS EST ORDINAL.
00961  M01S00744.set     +++|*                (LE) = NUMBER OF EST ENTRIES.
00962  M01S00745.set     +++|*
00963  M01S00746.set     +++|*         EXIT   (A) = BYTE 0 OF ENTRY WITH BIT 13 IN SIGN POSITION.
00964  M01S00747.set     +++|*                    = 0 IF END OF EST.
00965  M01S00748.set     +++|*                (EQ) = CURRENT EST ORDINAL.
00966  M01S00749.set     +++|*                (AB - AB+4) = EST ENTRY.
00967  M01S00750.set     +++|*
00968  M01S00751.set     +++|*         MACROS SFA.
00969  M01S00752.set     +++|
00970  M01S00753.set     +++|
00971  M01S00754.set     +++| SME      SUBR               ENTRY/EXIT
00972  M01S00755.set     +++| SME1     AOD    EQ
00973  M01S00756.set     +++|          LMD    LE
00974  M01S00757.set     +++|          ZJN    SMEX        IF END OF EST
00975  M01S00758.set     +++|          SFA    EST,EQ
00976  M01S00759.set     +++|          CRD    AB          READ EST ENTRY
00977  M01S00760.set     +++|          LDD    AB
00978  M01S00761.set     +++|          SHN    21-13
00979  M01S00762.set     +++|          PJN    SME1        IF NOT MASS STORAGE
00980  M01S00763.set     +++|          UJN    SMEX        RETURN
00981  M01S00764.set     +++|          SPACE  4,10
00982  M01S00765.set     +++|**        COMMON DECKS.
00983  M01S00766.set     +++|
00984  M01S00767.set     +++|
00985  M01S00768.set     +++|          QUAL   GFP
00986  M01S00769.set     +++|
00987  M01S00770.set     +++| EST$     EQU    0           DEFINE *COMPGFP* ACCESS TO EST
00988  M01S00771.set     +++|*CALL     COMPGFP
00989  M01S00772.set     +++|
00990  M01S00773.set     +++|          QUAL   *
00991  M01S00774.set     +++|
00992  M01S00775.set     +++|.EST      EQU    /GFP/.EST
00993  M01S00776.set     +++|          SPACE  4,10
00994  M01S00777.set     +++|****      SYSTEM STATUS AND CONTROL WORDS.
00995  M01S00778.set     +++|          SPACE  4,10
00996  M01S00779.set     +++| .SSML    BSS    0           MULTI-LEVEL SECURITY WORD
00997  M01S00780.set     +++|          VFD    3/0         RESERVED
00998  M01S00781.set     +++|          VFD    3/0         OUTPUT QUEUE SPECIAL HANDLING LEVEL
00999  M01S00782.set     +++|          VFD    3/0         RESERVED
01000  M01S00783.set     +++|          VFD    3/0         OPERATING SYSTEM SECURITY MODE
01001  M01S00784.set     +++|          VFD    16/0        RESERVED
01002  M01S00785.set     +++|          VFD    32/-0       SYSTEM ACCESS CATEGORIES
01003  M01S00786.set     +++|          SPACE  4,10
01004  M01S00787.set     +++| .INWL    BSS    0           INTERLOCK WORD

Line S00788 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2557`

Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00788.ns2557  ---|          VFD    7/0         RESERVED FOR MDD

Line S00789 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2557`

Seq #  *Modification Id* Act 
----------------------------+
01006  M02S00789.ns2557  ---|          VFD    1/0         MDD IN DEDICATED MODE

Line S00790 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2557`

Seq #  *Modification Id* Act 
----------------------------+
01007  M02S00790.ns2557  ---|          VFD    1/0         MDD CENTRAL MEMORY WRITE COMMAND

Line S00791 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2557`

Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00791.ns2557  ---|          VFD    1/0         MDD MAINTENANCE REGISTER WRITE COMMAND

Line S00792 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2557`

Seq #  *Modification Id* Act 
----------------------------+
01009  M02S00792.ns2557  ---|          VFD    1/0         TWO-PORT MUX CHANNEL HUNG

Line S00793 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`ns2557`

Seq #  *Modification Id* Act 
----------------------------+
01010  M02S00793.ns2557  ---|          VFD    1/0         MAINTENANCE CHANNEL HUNG
01011  M01S00005.ns2557  +++|          VFD    12/0        RESERVED FOR CDC
01012  M01S00794.set     +++|
01013  M01S00795.set     +++|          VFD    12/0        RESERVED FOR CDC
01014  M01S00796.set     +++|
01015  M01S00797.set     +++|          VFD    12/0        RESERVED FOR CDC
01016  M01S00798.set     +++|
01017  M01S00799.set     +++|          VFD    6/0         ACTIVE *MREC* COUNT
01018  M01S00800.set     +++|          VFD    2/0         RESERVED FOR CDC
01019  M01S00801.set     +++|          VFD    1/1         DEADSTART JOB FLAG (JOB NOT COMPLETE)
01020  M01S00802.set     +++|          VFD    1/0         JOB SCHEDULER (DISABLED)
01021  M01S00803.set     +++|          VFD    1/1         DISABLE JOB SCHEDULING
01022  M01S00804.set     +++|          VFD    1/0         RESERVED FOR CDC
01023  M01S00805.set     +++|
01024  M01S00806.set     +++|          VFD    6/0         RESERVED FOR CDC
01025  M01S00807.set     +++|          VFD    1/0         *MCH* ERROR IN PROGRESS FLAG
01026  M01S00808.set     +++|          VFD    1/0         CHECKPOINT IN PROGRESS FLAG
01027  M01S00809.set     +++|          VFD    1/0         WALL CLOCK CHIP RESET
01028  M01S00810.set     +++|          VFD    1/0         *CPD* DROP FLAG
01029  M01S00811.set     +++|          VFD    1/0         FATAL MAINFRAME ERROR
01030  M01S00812.set     +++|          VFD    1/0         SUBSYSTEM ABORT INTERLOCK
01031  M01S00813.set     +++|          SPACE  4,10
01032  M01S00814.set     +++| .PFNL    BSS    0           PERMANENT FILE CONTROL
01033  M01S00815.set     +++|          VFD    18//PFM/DFPT  DEFAULT REMOVABLE PACK TYPE
01034  M01S00816.set     +++|          VFD    18/0        RESERVED
01035  M01S00817.set     +++|          VFD    12/0        DEFAULT FAMILY EST ORDINAL
01036  M01S00818.set     +++|          VFD    12//PFM/CPTT  CPU TRANSFER THRESHOLD FOR INDIRECT FILE
01037  M01S00819.set     +++|****
01038  M01S00820.set     +++|          TITLE  ASSEMBLE TEXT DECK.
01039  M01S00821.set     +++| ATD      SPACE  4
01040  M01S00822.set     +++|**        ATD - ASSEMBLE TEXT DECK.
01041  M01S00823.set     +++|*
01042  M01S00824.set     +++|*         ENTRY  AT *ATD3* TO FORCE DISPLAY OF TEXT DECK FOLLOWING
01043  M01S00825.set     +++|*                A POST PROCESSING ERROR.
01044  M01S00826.set     +++|
01045  M01S00827.set     +++|
01046  M01S00828.set     +++| ATD6     LDD    DS
01047  M01S00829.set     +++|          ZJN    ATD3        IF DISPLAY REQUESTED
01048  M01S00830.set     +++|
01049  M01S00831.set     +++| ATD      SUBR               ENTRY/EXIT
01050  M01S00832.set     +++| ATD1     LDN    0           CLEAR KEYBOARD ASSEMBLY
01051  M01S00833.set     +++|          STD    AM
01052  M01S00834.set     +++| ATD2     RJM    ROL         READ 1 LINE
01053  M01S00835.set     +++|          LDD    KI
01054  M01S00836.set     +++|          ZJN    ATD6        IF END OF DATA
01055  M01S00837.set     +++|          RJM    AKL         ASSEMBLE KEYBOARD LINE
01056  M01S00838.set     +++|          LDD    KM          CHECK ERROR MESSAGE
01057  M01S00839.set     +++|          ZJN    ATD2        LOOP IF NO ERROR
01058  M01S00840.set     +++|          LDN    1           SET KEYBOARD ASSEMBLY
01059  M01S00841.set     +++|          STD    AM
01060  M01S00842.set     +++|          LDN    0           FORCE TEXT DECK DISPLAY
01061  M01S00843.set     +++|          STD    DS
01062  M01S00844.set     +++|          STD    DP
01063  M01S00845.set     +++|          RJM    AKL         ASSEMBLE KEYBOARD LINE
01064  M01S00846.set     +++|          LDN    RCLF
01065  M01S00847.set     +++|          UJN    ATD5        ADD CORRECTED LINE TO PP BUFFER
01066  M01S00848.set     +++|
01067  M01S00849.set     +++|*         ENTER HERE TO FORCE DISPLAY OF TEXT DECK FOLLOWING A
01068  M01S00850.set     +++|*         POST PROCESSING ERROR.
01069  M01S00851.set     +++|
01070  M01S00852.set     +++| ATD3     LDN    2           SET KEYBOARD ASSEMBLY
01071  M01S00853.set     +++|          STD    AM
01072  M01S00854.set     +++|          LDM    1,LA        ADD *GO.*
01073  M01S00855.set     +++|          STD    T1
01074  M01S00856.set     +++|          LDC    GGO
01075  M01S00857.set     +++|          STI    T1
01076  M01S00858.set     +++| ATD4     RJM    AKL         ASSEMBLE KEYBOARD LINE
01077  M01S00859.set     +++|          LDD    KI
01078  M01S00860.set     +++|          ZJN    ATD4        IF NO ENTRY LINE
01079  M01S00861.set     +++|          LDN    ANLF        ADD NEW LINE
01080  M01S00862.set     +++| ATD5     RJM    IBF
01081  M01S00863.set     +++|          LDN    KBUFL+1     TRANSMIT KEYBOARD BUFFER
01082  M01S00864.set     +++|          OAM    KBUF,BC
01083  M01S00865.set     +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
01084  M01S00866.set     +++|          LDD    AM
01085  M01S00867.set     +++|          LMN    2
01086  M01S00868.set     +++|          ZJN    ATD4        ASSEMBLE NEXT KEYBOARD LINE
01087  M01S00869.set     +++|          LJM    ATD1        PROCESS REST OF TEXT DECK
01088  M01S00870.set     +++| ILL      SPACE  4
01089  M01S00871.set     +++|**        ILL - INCORRECT ENTRY RETURN.
01090  M01S00872.set     +++|
01091  M01S00873.set     +++|
01092  M01S00874.set     +++| ILL      LDC    AKLD        MESSAGE = *INCORRECT ENTRY.*
01093  M01S00875.set     +++| ILL1     STD    KM
01094  M01S00876.set     +++|*         UJN    ERR
01095  M01S00877.set     +++| ERR      SPACE  4,10
01096  M01S00878.set     +++|**        ERR - ERROR RETURN.
01097  M01S00879.set     +++|*
01098  M01S00880.set     +++|*         ENTRY  (KM) = ADDRESS OF ERROR MESSAGE.
01099  M01S00881.set     +++|
01100  M01S00882.set     +++|
01101  M01S00883.set     +++| ERR      LDD    AM
01102  M01S00884.set     +++|          NJN    AKL1        IF ERROR NOT IN TEXT DECK
01103  M01S00885.set     +++|*         UJN    AKLX
01104  M01S00886.set     +++| KBR      SPACE  4
01105  M01S00887.set     +++|**        KBR - NORMAL KEYBOARD RETURN.
01106  M01S00888.set     +++|
01107  M01S00889.set     +++|
01108  M01S00890.set     +++| KBR      BSS    0           NORMAL RETURN FROM OVERLAY
01109  M01S00891.set     +++|*         UJN    AKLX
01110  M01S00892.set     +++| AKL      SPACE  4
01111  M01S00893.set     +++|**        AKL - ASSEMBLE KEYBOARD LINE.
01112  M01S00894.set     +++|
01113  M01S00895.set     +++|
01114  M01S00896.set     +++| AKL      SUBR               ENTRY/EXIT
01115  M01S00897.set     +++|          LDD    AM          CHECK ASSEMBLY MODE
01116  M01S00898.set     +++|          ZJN    AKL5        IF NOT KEYBOARD
01117  M01S00899.set     +++|          DFIM   (CON LDCI)
01118  M01S00900.set     +++| AKL1     UJN    AKL2        DISPLAY BUFFER
01119  M01S00901.set     +++| AKLA     CON    1
01120  M01S00902.set     +++|          ZJN    AKL3        IF NOT TIME TO REFRESH
01121  M01S00903.set     +++| AKL2     LDN    DDDF        DISPLAY BUFFER
01122  M01S00904.set     +++|          STD    KB
01123  M01S00905.set     +++|          RJM    IBF
01124  M01S00906.set     +++|*         RJM    /RCM/DRB    (DISPLAY LEVEL 3 RECOVERY OPTIONS)
01125  M01S00907.set     +++| AKLB     EQU    *-1
01126  M01S00908.set     +++| AKL3     RJM    DKB         DISPLAY KEYBOARD BUFFER
01127  M01S00909.set     +++|          RJM    KBI         CHECK KEYBOARD INPUT
01128  M01S00910.set     +++|          UJN    AKL4        NORMAL RETURN - *CR* NOT ENTERED
01129  M01S00911.set     +++|          UJN    AKL5        PROCESS *CR*
01130  M01S00912.set     +++|
01131  M01S00913.set     +++| AKL4     LDD    KI
01132  M01S00914.set     +++|          NJN    AKL1        IF LINE NOT EMPTY
01133  M01S00915.set     +++| AKL5     LDD    KI
01134  M01S00916.set     +++|          ZJN    AKLX        RETURN IF NO ENTRY
01135  M01S00917.set     +++|          LDI    LA          SET SYNTAX TABLE ADDRESS
01136  M01S00918.set     +++|          STD    ST
01137  M01S00919.set     +++|          LDC    KBUF        SET KEYBOARD BUFFER ADDRESS
01138  M01S00920.set     +++|          STD    KB
01139  M01S00921.set     +++|          STD    T3
01140  M01S00922.set     +++|          STD    KA
01141  M01S00923.set     +++|          LDI    KB
01142  M01S00924.set     +++|          LMN    1R*
01143  M01S00925.set     +++|          ZJN    AKLX        IF COMMENT LINE
01144  M01S00926.set     +++| AKLC     UJN    *+2         SEARCH FOR MATCH
01145  M01S00146.274l797 +++|*         RJM    /EQP/LOV    LOAD CORRECT *EQP* OVERLAY
01146  M01S00927.set     +++|          CON    /EQP/LOV
01147  M01S00928.set     +++| AKL6     LDD    KB          RESET CHARACTER ADDRESS
01148  M01S00929.set     +++|          STD    KA
01149  M01S00930.set     +++| AKL7     AOD    ST          ADVANCE TABLE ADDRESS
01150  M01S00931.set     +++|          LDI    ST
01151  M01S00932.set     +++|          NJN    AKL8        IF NOT END OF TABLE
01152  M01S00933.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
01153  M01S00934.set     +++|
01154  M01S00935.set     +++| AKL8     STD    T2          SET TABLE ENTRY
01155  M01S00936.set     +++| AKL9     LDI    T2          COMPARE UPPER
01156  M01S00937.set     +++|          SHN    -6
01157  M01S00938.set     +++|          ZJN    AKL10       IF COMPARE COMPLETE
01158  M01S00939.set     +++|          LMI    KA
01159  M01S00940.set     +++|          NJN    AKL6        IF NO MATCH
01160  M01S00941.set     +++|          AOD    KA
01161  M01S00942.set     +++|          LDI    T2          COMPARE LOWER
01162  M01S00943.set     +++|          LPN    77
01163  M01S00944.set     +++|          ZJN    AKL10       IF COMPARE COMPLETE
01164  M01S00945.set     +++|          LMI    KA
01165  M01S00946.set     +++|          NJN    AKL6        IF NO MATCH
01166  M01S00947.set     +++|          AOD    KA
01167  M01S00948.set     +++|          AOD    T2
01168  M01S00949.set     +++|          UJN    AKL9        CONTINUE COMPARE
01169  M01S00950.set     +++|
01170  M01S00951.set     +++| AKL10    CRD    AB          CLEAR ASSEMBLY BUFFER
01171  M01S00952.set     +++|          STD    KM          CLEAR KEYBOARD MESSAGE
01172  M01S00953.set     +++|          LDD    KA          (A) = CHARACTER ADDRESS
01173  M01S00954.set     +++|          LJM    1,T2        EXIT TO PROCESSOR
01174  M01S00955.set     +++|
01175  M01S00956.set     +++| AKLD     DATA   C*INCORRECT ENTRY.*
01176  M01S00957.set     +++| CKB      SPACE  4,10
01177  M01S00958.set     +++|**        CKB - CLEAR KEYBOARD BUFFER.
01178  M01S00959.set     +++|*
01179  M01S00960.set     +++|*         ENTRY  (KM) = KEYBOARD MESSAGE ADDRESS.
01180  M01S00961.set     +++|*
01181  M01S00962.set     +++|*         EXIT   (KI) = 0.
01182  M01S00963.set     +++|*
01183  M01S00964.set     +++|*         USES   T1.
01184  M01S00965.set     +++|
01185  M01S00966.set     +++|
01186  M01S00967.set     +++| CKB      SUBR               ENTRY/EXIT
01187  M01S00968.set     +++|          LDD    KM
01188  M01S00969.set     +++|          NJN    CKBX        RETURN IF MESSAGE SET
01189  M01S00970.set     +++|          STD    KI          CLEAR KEYBOARD INDEX
01190  M01S00971.set     +++|          STD    T1
01191  M01S00972.set     +++| CKB1     LDN    0           CLEAR BUFFER
01192  M01S00973.set     +++|          STM    KBUF,T1
01193  M01S00974.set     +++|          AOD    T1
01194  M01S00975.set     +++|          LMN    KBUFL
01195  M01S00976.set     +++|          NJN    CKB1
01196  M01S00977.set     +++|          UJN    CKBX        RETURN
01197  M01S00978.set     +++| DKB      SPACE  4,10
01198  M01S00979.set     +++|**        DKB - DISPLAY KEYBOARD BUFFER.
01199  M01S00980.set     +++|*
01200  M01S00981.set     +++|*         ENTRY  (KM) = KEYBOARD MESSAGE ADDRESS.
01201  M01S00982.set     +++|*                (KB) = KEYBOARD BUFFER REFRESH STATUS.
01202  M01S00983.set     +++|*
01203  M01S00984.set     +++|*         USES   T1, T2, YC.
01204  M01S00985.set     +++|*
01205  M01S00986.set     +++|*         MACROS CFNC, DFIM.
01206  M01S00987.set     +++|
01207  M01S00988.set     +++|
01208  M01S00989.set     +++| DKBX     DCN.   CH
01209  M01S00990.set     +++|
01210  M01S00991.set     +++|          LJM    *           ENTRY/EXIT
01211  M01S00992.set     +++| DKB      EQU    *-1
01212  M01S00993.set     +++|          LDD    KB
01213  M01S00994.set     +++|          ZJN    DKBX        IF NO KEYBOARD BUFFER REFRESH
01214  M01S00995.set     +++|          DFIM   (CON LN50),*+1
01215  M01S00996.set     +++|          LDC    LN48
01216  M01S00997.set     +++|          STD    YC
01217  M01S00998.set     +++|          CFNC   SLPF        SELECT LEFT SCREEN - PRIORITY OUTPUT
01218  M01S00999.set     +++|          LDN    2
01219  M01S01000.set     +++|          OAM.   XC,CH       OUTPUT COORDINATES
01220  M01S01001.set     +++|          LDD    KM
01221  M01S01002.set     +++|          ZJN    DKB2        IF NO MESSAGE
01222  M01S01003.set     +++|          SBN    1           SET MESSAGE ADDRESS
01223  M01S01004.set     +++|          STD    T1
01224  M01S01005.set     +++| DKB1     AOD    T1          DISPLAY MESSAGE
01225  M01S01006.set     +++|          LDI    T1
01226  M01S01007.set     +++|          OAN    CH
01227  M01S01008.set     +++|          NJN    DKB1
01228  M01S01009.set     +++| DKB2     LCN    YINC        ADJUST Y-COORDINATE
01229  M01S01010.set     +++|          RAD    YC
01230  M01S01011.set     +++|          DFIM   (CFNC EELF) ERASE TO END OF LINE
01231  M01S01012.set     +++|          DFIM   (UJN DKB3)
01232  M01S01013.set     +++|          LDN    1
01233  M01S01014.set     +++|          STD    T2
01234  M01S01015.set     +++|          LDD    KI          CHECK KEYBOARD INDEX
01235  M01S01016.set     +++|          ZJN    DKBX        IF EMPTY LINE
01236  M01S01017.set     +++|          SBN    40
01237  M01S01018.set     +++|          PJN    DKB3        IF > 32 CHARACTERS
01238  M01S01019.set     +++|          DCN.   CH
01239  M01S01020.set     +++|          CFNC   SLMF        SELECT LEFT SCREEN - MEDIUM CHARACTERS
01240  M01S01021.set     +++|          LCN    4           DECREMENT Y
01241  M01S01022.set     +++|          RAD    YC
01242  M01S01023.set     +++|          LDN    2           ADVANCE COUNT
01243  M01S01024.set     +++|          RAD    T2
01244  M01S01025.set     +++| DKB3     LDN    2           OUTPUT COORDINATES
01245  M01S01026.set     +++|          OAM    XC,CH
01246  M01S01027.set     +++|          LCN    1           SET INDEX
01247  M01S01028.set     +++|          STD    T1
01248  M01S01029.set     +++| DKB4     LDN    2           ADVANCE INDEX
01249  M01S01030.set     +++|          RAD    T1
01250  M01S01031.set     +++|          LDM    KBUF,T1     DISPLAY 2 CHARACTERS
01251  M01S01032.set     +++|          ZJN    DKB5        IF END OF KEYBOARD LINE
01252  M01S01033.set     +++|          SHN    6
01253  M01S01034.set     +++|          ADM    KBUF+1,T1
01254  M01S01035.set     +++|          OAN    CH
01255  M01S01036.set     +++|          LPN    77
01256  M01S01037.set     +++|          NJN    DKB4        LOOP
01257  M01S01038.set     +++| DKB5     CFNC   EELF        ERASE TO END OF LINE
01258  M01S01039.set     +++|          LDD    KM
01259  M01S01040.set     +++|          ZJN    DKB7        IF NO KEYBOARD MESSAGE
01260  M01S01041.set     +++|          LDD    KA          SET CHARACTER COUNT
01261  M01S01042.set     +++|          ADC    -KBUF
01262  M01S01043.set     +++|          SHN    3
01263  M01S01044.set     +++|          STD    T1
01264  M01S01045.set     +++|          LDD    KI
01265  M01S01046.set     +++|          DFIM   (CFNC BIVF) BEGIN INVERSE VIDEO
01266  M01S01047.set     +++|          SBN    40
01267  M01S01048.set     +++|          PJN    DKB6        IF > 32 CHARACTERS
01268  M01S01049.set     +++|          LDD    T1
01269  M01S01050.set     +++|          RAD    T1
01270  M01S01051.set     +++| DKB6     LDC    LN51
01271  M01S01052.set     +++|          OAN.   CH
01272  M01S01053.set     +++|          LDC    CH01
01273  M01S01054.set     +++|          RAD    T1
01274  M01S01055.set     +++|          OAN    CH
01275  M01S01056.set     +++|          DFIM   (LDI KA)
01276  M01S01057.set     +++|          LDN    1RA         DISPLAY CURSOR
01277  M01S01058.set     +++|          SHN    6
01278  M01S01059.set     +++|          OAN    CH
01279  M01S01060.set     +++|          LDD    T1
01280  M01S01061.set     +++|          DFIM   (CFNC EIVF) END INVERSE VIDEO
01281  M01S01062.set     +++|          DFIM   (UJN DKB8)
01282  M01S01063.set     +++|          OAN    CH
01283  M01S01064.set     +++|          LDN    1RI
01284  M01S01065.set     +++|          SHN    6
01285  M01S01066.set     +++|          OAN    CH
01286  M01S01067.set     +++| DKB7     SOD    T2
01287  M01S01068.set     +++|          MJN    DKB8        IF DISPLAY CYCLE COMPLETE
01288  M01S01069.set     +++|          LJM    DKB3        LOOP
01289  M01S01070.set     +++|
01290  M01S01071.set     +++| DKB8     LJM    DKBX        RETURN
01291  M01S01072.set     +++| KBI      SPACE  4,20
01292  M01S01073.set     +++|***       KBI - KEYBOARD INPUT.
01293  M01S01074.set     +++|*         ALL ENTRIES ARE DISPLAYED AT THE BOTTOM OF THE LEFT SCREEN.
01294  M01S01075.set     +++|*         AS THEY ARE ENTERED.
01295  M01S01076.set     +++|*
01296  M01S01077.set     +++|*         *CR* MUST FOLLOW ALL ENTRIES BEFORE ACTION IS TAKEN.
01297  M01S01078.set     +++|*         *BKSP* DELETES THE PREVIOUS CHARACTER TYPED.
01298  M01S01079.set     +++|*         *LEFT BLANK* DELETES THE CURRENT LINE BEING ENTERED.
01299  M01S01080.set     +++|*         *RIGHT BLANK* TOGGLES THE DISPLAY.
01300  M01S01081.set     +++|*
01301  M01S01082.set     +++|*         ABOVE THE ENTRY DISPLAY, THE FOLLOWING MESSAGE MAY
01302  M01S01083.set     +++|*         APPEAR -
01303  M01S01084.set     +++|*         *INCORRECT ENTRY.* = ENTRY IS UNRECOGNIZABLE.
01304  M01S01085.set     +++|*
01305  M01S01086.set     +++|*         EXIT   ADVANCED IF *CR* ENTERED.
01306  M01S01087.set     +++|*                (A) = (KB) = -1 IF *LEFT BLANK* OR *BKSP* ENTERED.
01307  M01S01088.set     +++|*                (KB) = CHARACTER IF DATA ADDED TO KEYBOARD BUFFER.
01308  M01S01089.set     +++|*
01309  M01S01090.set     +++|*         USES   T1.
01310  M01S01091.set     +++|*
01311  M01S01092.set     +++|*         CALLS  CKB, IBF.
01312  M01S01093.set     +++|*
01313  M01S01094.set     +++|*         MACROS CFNC, DFIM.
01314  M01S01095.set     +++|
01315  M01S01096.set     +++|
01316  M01S01097.set     +++| KBI12    AOM    AKLA        FORCE DISPLAY REFRESH
01317  M01S01098.set     +++|
01318  M01S01099.set     +++| KBI      SUBR               ENTRY/EXIT
01319  M01S01100.set     +++|          LDN    0
01320  M01S01101.set     +++|          STD    KB
01321  M01S01102.set     +++|          CFNC   SKIF        SELECT KEYBOARD INPUT
01322  M01S01103.set     +++|          IAN    CH
01323  M01S01104.set     +++|          DCN    CH
01324  M01S01105.set     +++|          DFIM   (UJN KBI1)
01325  M01S01106.set     +++|          ZJN    KBI1        IF NO INPUT
01326  M01S01107.set     +++|          LMC    60          (PRESET CR)
01327  M01S01108.set     +++| KBIA     EQU    *-1
01328  M01S01109.set     +++|          ZJN    KBIX        IF SAME INPUT
01329  M01S01110.set     +++|          LMM    KBIA        STORE NEW INPUT
01330  M01S01111.set     +++| KBI1     STM    KBIA
01331  M01S01112.set     +++|          ZJN    KBIX        RETURN IF NO INPUT
01332  M01S01113.set     +++|          SBD    HN
01333  M01S01114.set     +++|          PJN    KBI12       IF SPECIAL CHARACTER
01334  M01S01115.set     +++|          ADD    HN
01335  M01S01116.set     +++|          STD    T1
01336  M01S01117.set     +++|          LDD    KI
01337  M01S01118.set     +++|          NJN    KBI3        IF NOT FIRST CHARACTER
01338  M01S01119.set     +++|          LDD    T1
01339  M01S01120.set     +++|          LMN    61
01340  M01S01121.set     +++|          ZJN    KBIX        RETURN IF *BKSP*
01341  M01S01122.set     +++|          LMN    1R+&61
01342  M01S01123.set     +++|          NJN    KBI3        IF NOT *+*
01343  M01S01124.set     +++|          LDN    ADBF        ADVANCE BUFFER
01344  M01S01125.set     +++| KBI2     RJM    IBF
01345  M01S01126.set     +++|          JMP    KBIX        RETURN
01346  M01S01127.set     +++|
01347  M01S01128.set     +++| KBI3     LDD    T1          CHECK CHARACTER
01348  M01S01129.set     +++|          LMN    53
01349  M01S01130.set     +++|          NJN    KBI5        IF NOT *LEFT BLANK*
01350  M01S01131.set     +++|          STD    KM          CLEAR KEYBOARD MESSAGE
01351  M01S01132.set     +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
01352  M01S01133.set     +++| KBI4     SOD    KB
01353  M01S01134.set     +++|          JMP    KBIX        RETURN
01354  M01S01135.set     +++|
01355  M01S01136.set     +++| KBI5     LMN    55&53
01356  M01S01137.set     +++|          NJN    KBI6        IF NOT *RIGHT BLANK*
01357  M01S01138.set     +++|          LDN    ADDF        ADVANCE DISPLAY
01358  M01S01139.set     +++|          UJN    KBI2        ISSUE BUFFER PP FUNCTION
01359  M01S01140.set     +++|
01360  M01S01141.set     +++| KBI6     LMN    60&55
01361  M01S01142.set     +++|          NJN    KBI7        IF NOT *CR*
01362  M01S01143.set     +++|          AOM    KBI         ADVANCE EXIT
01363  M01S01144.set     +++|          JMP    KBIX        RETURN
01364  M01S01145.set     +++|
01365  M01S01146.set     +++| KBI7     LMN    61&60
01366  M01S01147.set     +++|          NJN    KBI8        IF NOT *BKSP*
01367  M01S01148.set     +++|          STD    KM          CLEAR KEYBOARD MESSAGE
01368  M01S01149.set     +++|          STM    KBUF-1,KI   CLEAR PREVIOUS ENTRY
01369  M01S01150.set     +++|          SOD    KI
01370  M01S01151.set     +++|          JMP    KBI4        RETURN
01371  M01S01152.set     +++|
01372  M01S01153.set     +++| KBI8     LMN    62&61
01373  M01S01154.set     +++|          NJN    KBI9        IF NOT *SPACE*
01374  M01S01155.set     +++|          LDN    1R          SUBSTITUTE * *
01375  M01S01156.set     +++|          STD    T1
01376  M01S01157.set     +++| KBI9     LDD    KI
01377  M01S01158.set     +++|          NJN    KBI10       IF NOT FIRST CHARACTER
01378  M01S01159.set     +++|          STD    KM
01379  M01S01160.set     +++| KBI10    LMN    KBUFL
01380  M01S01161.set     +++|          ZJN    KBI11       IF BUFFER FULL
01381  M01S01162.set     +++|          LDD    T1          STORE CHARACTER
01382  M01S01163.set     +++|          STM    KBUF,KI
01383  M01S01164.set     +++|          STD    KB
01384  M01S01165.set     +++|          AOD    KI
01385  M01S01166.set     +++| KBI11    JMP    KBIX        RETURN
01386  M01S01167.set     +++| ROL      SPACE  4,10
01387  M01S01168.set     +++|**        ROL - READ ONE LINE.
01388  M01S01169.set     +++|*
01389  M01S01170.set     +++|*         EXIT   (KI) = KEYBOARD INDEX.
01390  M01S01171.set     +++|*
01391  M01S01172.set     +++|*         CALLS  CKB, IBF.
01392  M01S01173.set     +++|
01393  M01S01174.set     +++|
01394  M01S01175.set     +++| ROL1     SHN    14          UNPACK DATA
01395  M01S01176.set     +++|          STM    KBUF,KI
01396  M01S01177.set     +++|          SHN    -14
01397  M01S01178.set     +++|          STM    KBUF+1,KI
01398  M01S01179.set     +++|          LDN    2           ADVANCE BUFFER INDEX
01399  M01S01180.set     +++|          RAD    KI
01400  M01S01181.set     +++|          IAN    BC
01401  M01S01182.set     +++| ROL2     NJN    ROL1        IF NOT END OF LINE OR DATA
01402  M01S01183.set     +++|          DCN    BC
01403  M01S01184.set     +++|
01404  M01S01185.set     +++| ROL      SUBR               ENTRY/EXIT
01405  M01S01186.set     +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
01406  M01S01187.set     +++|          LDN    ONLF        SELECT NEXT LINE INPUT
01407  M01S01188.set     +++|          RJM    IBF
01408  M01S01189.set     +++|          UJN    ROL2        CHECK NEXT LINE PRESENT
01409  M01S01190.set     +++| KBUF     SPACE  4
01410  M01S01191.set     +++|**        KBUF - KEYBOARD BUFFER.
01411  M01S01192.set     +++|
01412  M01S01193.set     +++|
01413  M01S01194.set     +++| KBUF     BSS    60D
01414  M01S01195.set     +++| KBUFL    EQU    *-KBUF
01415  M01S01196.set     +++|          CON    0           INSURE END OF LINE

Line S01197 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01416  M02S01197.274l797 ---|          TITLE  PROCESSING SUBROUTINES.

Line S01198 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01417  M02S01198.274l797 ---| AOD      SPACE  4

Line S01199 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01418  M02S01199.274l797 ---|**        AOD - ASSEMBLE OCTAL DIGITS.

Line S01200 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01419  M02S01200.274l797 ---|*

Line S01201 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01420  M02S01201.274l797 ---|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.

Line S01202 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01421  M02S01202.274l797 ---|*

Line S01203 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01422  M02S01203.274l797 ---|*         EXIT   (A) = LOWER ASSEMBLY.

Line S01204 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01423  M02S01204.274l797 ---|*                (AB - AB+4) = ASSEMBLED VALUE.

Line S01205 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01424  M02S01205.274l797 ---|*                ERROR IF SEPARATOR NOT *,* OR *.*.

Line S01206 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01425  M02S01206.274l797 ---|*

Line S01207 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01426  M02S01207.274l797 ---|*         CALLS  CDR.

Line S01208 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01427  M02S01208.274l797 ---|

Line S01209 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01428  M02S01209.274l797 ---|

Line S01210 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01429  M02S01210.274l797 ---| AOD1     LDD    AB+4        RETURN WITH LOWER ASSEMBLY

Line S01211 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01430  M02S01211.274l797 ---|

Line S01212 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01431  M02S01212.274l797 ---| AOD      SUBR               ENTRY/EXIT

Line S01213 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01432  M02S01213.274l797 ---|          RJM    CDR

Line S01214 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01433  M02S01214.274l797 ---|          LMN    1R,         CHECK SEPARATOR

Line S01215 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01434  M02S01215.274l797 ---|          ZJN    AOD1        IF *,*

Line S01216 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01435  M02S01216.274l797 ---|          LMN    1R.&1R,

Line S01217 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01436  M02S01217.274l797 ---|          ZJN    AOD1        IF *.*

Line S01218 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01437  M02S01218.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY

Line S01219 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01438  M02S01219.274l797 ---| ASD      SPACE  4,10

Line S01220 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01439  M02S01220.274l797 ---|**        ASD - ASSEMBLE DIGITS.

Line S01221 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01440  M02S01221.274l797 ---|*

Line S01222 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01441  M02S01222.274l797 ---|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.

Line S01223 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01442  M02S01223.274l797 ---|*

Line S01224 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01443  M02S01224.274l797 ---|*         EXIT   (AB - AB+4) = ASSEMBLED DIGITS.

Line S01225 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01444  M02S01225.274l797 ---|*                ERROR EXIT IF NO *.*.

Line S01226 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01445  M02S01226.274l797 ---|*

Line S01227 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01446  M02S01227.274l797 ---|*         CALLS  CDR.

Line S01228 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01447  M02S01228.274l797 ---|

Line S01229 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01448  M02S01229.274l797 ---|

Line S01230 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01449  M02S01230.274l797 ---| ASD1     LDD    AB+4        RETURN WITH LOWER ASSEMBLY

Line S01231 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01450  M02S01231.274l797 ---|

Line S01232 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01451  M02S01232.274l797 ---| ASD      SUBR               ENTRY/EXIT

Line S01233 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01452  M02S01233.274l797 ---|          RJM    CDR

Line S01234 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01453  M02S01234.274l797 ---|          LMN    1R.

Line S01235 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01454  M02S01235.274l797 ---|          ZJN    ASD1        IF *.*

Line S01236 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01455  M02S01236.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY

Line S01237 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01456  M02S01237.274l797 ---| ASN      SPACE  4,10

Line S01238 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01457  M02S01238.274l797 ---|**        ASN - ASSEMBLE NAME.

Line S01239 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01458  M02S01239.274l797 ---|*

Line S01240 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01459  M02S01240.274l797 ---|*         ENTRY  (A) = NUMBER OF CHARACTERS TO ASSEMBLE.

Line S01241 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01460  M02S01241.274l797 ---|*                (KA) = ADDRESS OF CHARACTER STRING.

Line S01242 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01461  M02S01242.274l797 ---|*

Line S01243 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01462  M02S01243.274l797 ---|*         EXIT   (CM - CM+4) = ASSEMBLED NAME.

Line S01244 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01463  M02S01244.274l797 ---|*                (A) = 0 IF ASSEMBLY TERMINATED ON *,* OR *.*.

Line S01245 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01464  M02S01245.274l797 ---|*                (T0) = NUMBER OF CHARACTERS ASSEMBLED.

Line S01246 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01465  M02S01246.274l797 ---|*

Line S01247 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01466  M02S01247.274l797 ---|*         USES   T1, T2.

Line S01248 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01467  M02S01248.274l797 ---|

Line S01249 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01468  M02S01249.274l797 ---|

Line S01250 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01469  M02S01250.274l797 ---| ASN2     AOD    T0          ADVANCE CHARACTER COUNT

Line S01251 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01470  M02S01251.274l797 ---|          SBN    1

Line S01252 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01471  M02S01252.274l797 ---|          SHN    21-0        FORM BUFFER ADDRESS

Line S01253 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01472  M02S01253.274l797 ---|          ADN    CM

Line S01254 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01473  M02S01254.274l797 ---|          STD    T1

Line S01255 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01474  M02S01255.274l797 ---|          LMD    T1          CLEAR ADDRESS

Line S01256 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01475  M02S01256.274l797 ---|          LMI    KA          INSERT CHARACTER

Line S01257 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01476  M02S01257.274l797 ---|          MJN    ASN3        IF CHARACTER PACKED LOW

Line S01258 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01477  M02S01258.274l797 ---|          SHN    6           POSITION CHARACTER HIGH

Line S01259 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01478  M02S01259.274l797 ---| ASN3     RAI    T1          ASSEMBLE BYTE

Line S01260 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01479  M02S01260.274l797 ---|          AOD    KA          ADVANCE CHARACTER BUFFER

Line S01261 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01480  M02S01261.274l797 ---|          SOD    T2          DECREMENT CHARACTER COUNT

Line S01262 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01481  M02S01262.274l797 ---|          NJN    ASN1        LOOP TO END OF ASSEMBLY

Line S01263 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01482  M02S01263.274l797 ---|          LDD    T0

Line S01264 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01483  M02S01264.274l797 ---|

Line S01265 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01484  M02S01265.274l797 ---| ASN      SUBR               ENTRY/EXIT

Line S01266 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01485  M02S01266.274l797 ---|          STD    T2          SET CHARACTER COUNT

Line S01267 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01486  M02S01267.274l797 ---|          LDN    0           CLEAR ASSEMBLY BUFFER

Line S01268 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01487  M02S01268.274l797 ---|          STD    T0

Line S01269 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01488  M02S01269.274l797 ---|          CRD    CM

Line S01270 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01489  M02S01270.274l797 ---|          AOD    KA          SKIP SEPARATOR

Line S01271 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01490  M02S01271.274l797 ---| ASN1     LDI    KA          CHECK NEXT CHARACTER

Line S01272 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01491  M02S01272.274l797 ---|          SBN    1R9+1

Line S01273 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01492  M02S01273.274l797 ---|          MJN    ASN2        IF ALPHANUMERIC

Line S01274 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01493  M02S01274.274l797 ---|          SBN    1R,-1R9-1

Line S01275 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01494  M02S01275.274l797 ---|          ZJN    ASNX        IF *,*

Line S01276 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01495  M02S01276.274l797 ---|          SBN    1R.-1R,

Line S01277 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01496  M02S01277.274l797 ---|          ZJN    ASNX        IF *.*

Line S01278 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01497  M02S01278.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY

Line S01279 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01498  M02S01279.274l797 ---| CDR      SPACE  4,10

Line S01280 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01499  M02S01280.274l797 ---|**        CDR - CONVERT DIGITS RIGHT ADJUSTED.

Line S01281 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01500  M02S01281.274l797 ---|*

Line S01282 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01501  M02S01282.274l797 ---|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.

Line S01283 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01502  M02S01283.274l797 ---|*

Line S01284 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01503  M02S01284.274l797 ---|*         EXIT   (A) = SEPARATOR CHARACTER.

Line S01285 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01504  M02S01285.274l797 ---|*                (AB - AB+4) = ASSEMBLY.

Line S01286 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01505  M02S01286.274l797 ---|*

Line S01287 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01506  M02S01287.274l797 ---|*         USES   T1, T2.

Line S01288 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01507  M02S01288.274l797 ---|

Line S01289 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01508  M02S01289.274l797 ---|

Line S01290 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01509  M02S01290.274l797 ---| CDR4     SBN    1R -1R8

Line S01291 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01510  M02S01291.274l797 ---|          ZJN    CDR3        IF SPACE

Line S01292 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01511  M02S01292.274l797 ---| CDR5     LDI    KA          RETURN WITH CHARACTER

Line S01293 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01512  M02S01293.274l797 ---|

Line S01294 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01513  M02S01294.274l797 ---| CDR      SUBR               ENTRY/EXIT

Line S01295 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01514  M02S01295.274l797 ---|          LDN    ZERL        CLEAR ASSEMBLY BUFFER

Line S01296 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01515  M02S01296.274l797 ---|          CRD    AB

Line S01297 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01516  M02S01297.274l797 ---| CDR1     LDI    KA          CHECK CHARACTER

Line S01298 Modification History
`M01` (Added by)	`set`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
01517  M02S01298.274l797 ---|          SBN    1R0

Proceed to Part 1