User Tools

Site Tools


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

Deck SET

79 Modifications

Listing Sections

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

011 N

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

09101112171823 SIZE T D M N

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
cdc/nos2.source/opl.opl871/deck/set.txt ยท Last modified: by 127.0.0.1