User Tools

Site Tools


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

Deck SCRSIM

4 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.scrsim  +++|          IDENT  SCRSIM,PW16,SCRSIM
00002  M01S00002.scrsim  +++|          ABS
00003  M01S00003.scrsim  +++|          SST
00004  M01S00004.scrsim  +++|          SYSCOM B1
00005  M01S00005.scrsim  +++|          ENTRY  SCRSIM
00006  M01S00006.scrsim  +++|          ENTRY  RFL=
00007  M01S00007.scrsim  +++|          ENTRY  SSJ=
00008  M01S00008.scrsim  +++|*COMMENT  SCRSIM - SCR SIMULATOR.
Line S00009 Modification History
M01 (Added by) scrsim
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00010.scrsim  +++|          TITLE  SCRSIM - STATUS/CONTROL REGISTER SIMULATOR.
00012  M01S00011.scrsim  +++|          SPACE  4
00013  M01S00012.scrsim  +++|***       SCRSIM - STATUS/CONTROL REGISTER SIMULATOR.
00014  M01S00013.scrsim  +++|*         A. J. BEEKMAN      74/06/13.
00015  M01S00014.scrsim  +++|          SPACE  4
00016  M01S00015.scrsim  +++|***       *SCRSIM* SIMULATES THE CYBER 170 STATUS/CONTROL REGISTERS
00017  M01S00016.scrsim  +++|*         BY ALLOWING THE OPERATOR TO MANIPULATE THE BITS IN THE ACTUAL
00018  M01S00017.scrsim  +++|*         S/C REGISTER(S) OF THE CYBER 170 OR THE INTERLOCK REGISTER
00019  M01S00018.scrsim  +++|*         OF THE CYBER 70.
00020  M01S00019.scrsim  +++|*
00021  M01S00020.scrsim  +++|*         *SCRSIM* DRIVES A *K* DISPLAY THAT ALLOWS THE OPERATOR TO
00022  M01S00021.scrsim  +++|*         SET AND CLEAR BITS, SET BYTES, AND SET LINES AND AREAS IN
00023  M01S00022.scrsim  +++|*         HOLDING REGISTERS.  THIS ALLOWS THE OPERATOR TO SET UP BOTH
00024  M01S00023.scrsim  +++|*         REGISTERS COMPLETELY.  WHEN *GO.* IS ENTERED, THE ENTIRE
00025  M01S00024.scrsim  +++|*         HOLDING REGISTER CONTENTS ARE TRANSFERRED INTO THE
00026  M01S00025.scrsim  +++|*         STATUS/CONTROL REGISTERS OF THE CYBER 170, OR 128 BITS
00027  M01S00026.scrsim  +++|*         ARE TRANSFERRED INTO THE INTERLOCK REGISTER OF THE CYBER 70.
00028  M01S00027.scrsim  +++|*         THE PROGRAM IS CALLED FROM THE CONSOLE BY ENTERING X.SCRSIM.
00029  M01S00028.scrsim  +++|*
00030  M01S00029.scrsim  +++|*         COMMANDS CAN BE ENTERED ON THE *K* DISPLAY BY ENTERING
00031  M01S00030.scrsim  +++|*         K.COMND. WHERE COMND. IS ONE OF THE FOLLOWING-
00032  M01S00031.scrsim  +++|*
00033  M01S00032.scrsim  +++|*                AREA,A,M,Y.
00034  M01S00033.scrsim  +++|*                BYTE,XX,YYYY.
00035  M01S00034.scrsim  +++|*                CLEAR,A,B,...,Z.
00036  M01S00035.scrsim  +++|*                CYCLE,X,T,R.
00037  M01S00036.scrsim  +++|*                END.
00038  M01S00037.scrsim  +++|*                GO.
00039  M01S00038.scrsim  +++|*                LINE,X,Y.
00040  M01S00039.scrsim  +++|*                READ.
00041  M01S00040.scrsim  +++|*                SET,A,B,...,Z.
00042  M01S00041.scrsim  +++|*                STOP.
00043  M01S00042.scrsim  +++|*                +.
00044  M01S00043.scrsim  +++|*
00045  M01S00044.scrsim  +++|*         THE BITS SET THROUGH THE SIMULATOR ARE LOGGED IN THE ERROR
00046  M01S00045.scrsim  +++|*         LOG IF AN ERROR BIT (BITS 0-39) IS SET.  ERROR LOGGING
00047  M01S00046.scrsim  +++|*         WILL NOT OCCUR ON A CYBER 70 IF NNNN OF THE IPRDECK ENTRY
00048  M01S00047.scrsim  +++|*         DELAY,TCNNNN IS ZERO.  THE SIMULATOR JOB DAYFILE LISTS ALL
00049  M01S00048.scrsim  +++|*         COMMANDS ENTERED.
00050  M01S00049.scrsim  +++|*
00051  M01S00050.scrsim  +++|*         BATCH INPUT.
00052  M01S00051.scrsim  +++|*
00053  M01S00052.scrsim  +++|*         THE SIMULATOR MAY BE CALLED FROM BATCH INPUT BY THE
Line S00053 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00053.v23l617 ---|*         CONTROL CARD *SCRSIM*.  THE INPUT FILE MUST HAVE A RECORD
00055  M01S00001.v23l617 +++|*         COMMAND *SCRSIM*.  THE INPUT FILE MUST HAVE A RECORD
00056  M01S00054.scrsim  +++|*         CONTAINING THE COMMANDS TO BE PROCESSED, ONE COMMAND PER
Line S00055 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00055.v23l617 ---|*         CARD.  DEBUG MODE IS NECESSARY, AND THE USER MUST BE
00058  M01S00002.v23l617 +++|*         COMMAND.  DEBUG MODE IS NECESSARY, AND THE USER MUST BE
00059  M01S00056.scrsim  +++|*         VALIDATED FOR SYSTEM ORIGIN PRIVILEDGES.
00060  M01S00057.scrsim  +++|          SPACE  4
00061  M01S00058.scrsim  +++|***       DAYFILE MESSAGES.
00062  M01S00059.scrsim  +++|*
00063  M01S00060.scrsim  +++|*         * END SIMULATOR.* - OPERATOR HAS ENTERED *STOP.* TO DROP THE
00064  M01S00061.scrsim  +++|*         SIMULATOR.
00065  M01S00001.ns21000 +++|*
00066  M01S00002.ns21000 +++|*         * NO SCR ON MAINFRAME.* - OPERATOR HAS BROUGHT UP
00067  M01S00003.ns21000 +++|*         SCR SIMULATOR ON MAINFRAME THAT DOES NOT SUPPORT
00068  M01S00004.ns21000 +++|*         STATUS/CONTROL REGISTER.
00069  M01S00062.scrsim  +++|          SPACE  4
00070  M01S00063.scrsim  +++|***       *K* DISPLAY MESSAGES.
00071  M01S00064.scrsim  +++|*
00072  M01S00065.scrsim  +++|*         *CONVERSION ERROR.* - PRESENCE OF CHARACTER AFTER POSTRADIX
00073  M01S00066.scrsim  +++|*         OR PRESENCE OF 8 OR 9 WITH POSTRADIX OF B.
00074  M01S00067.scrsim  +++|*
00075  M01S00068.scrsim  +++|*         *CYCLE STILL PROCESSING.* - COMMAND OTHER THAN *END*
00076  M01S00069.scrsim  +++|*         ENTERED BEFORE TOTAL TIME LIMIT IS REACHED.
00077  M01S00070.scrsim  +++|*
Line S00071 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00071.ns2052  ---|*         *HFM ERROR N* - *HFM* ERROR, CODE N.  SEE *HFM* FOR
Line S00072 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00072.ns2052  ---|*         DESCRIPTION OF ERROR.
Line S00073 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00073.ns2052  ---|*
Line S00074 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00074.v23l617 ---|*         *ILLEGAL BIT NUMBER.* - BIT NUMBER SPECIFIED NOT LEGAL.
00082  M01S00003.v23l617 +++|*         *INCORRECT BIT NUMBER.* - BIT NUMBER SPECIFIED NOT VALID.
00083  M01S00075.scrsim  +++|*
Line S00076 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00076.v23l617 ---|*         *ILLEGAL BYTE NUMBER.* - BYTE NUMBER SPECIFIED NOT LEGAL.
00085  M01S00004.v23l617 +++|*         *INCORRECT BYTE NUMBER.* - BYTE NUMBER SPECIFIED NOT VALID.
00086  M01S00077.scrsim  +++|*
Line S00078 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00078.v23l617 ---|*         *ILLEGAL CHARACTER.* - ALPHABETIC CHARACTER OTHER THAN B OR
00088  M01S00005.v23l617 +++|*         *INCORRECT CHARACTER.* - ALPHABETIC CHARACTER OTHER THAN B OR
00089  M01S00079.scrsim  +++|*         OR D AS POSTRADIX ON DECIMAL VALUES, ALPHABETIC CHARACTER,
00090  M01S00080.scrsim  +++|*         8, OR 9 FOUND IN OCTAL VALUE ARGUMENT, OR CHARACTER WITH
00091  M01S00081.scrsim  +++|*         DISPLAY CODE OF 60B OR ABOVE FOUND.
00092  M01S00082.scrsim  +++|*
Line S00083 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00083.v23l617 ---|*         *ILLEGAL COMMAND.* - ENTERED COMMAND NOT LEGAL.
00094  M01S00006.v23l617 +++|*         *INCORRECT COMMAND.* - ENTERED COMMAND NOT LEGAL.
00095  M01S00084.scrsim  +++|*
Line S00085 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00085.v23l617 ---|*         *ILLEGAL LINE NUMBER.* - LINE NUMBER SPECIFIED NOT LEGAL.
00097  M01S00007.v23l617 +++|*         *INCORRECT LINE NUMBER.* - LINE NUMBER SPECIFIED NOT LEGAL.
00098  M01S00086.scrsim  +++|*
00099  M01S00087.scrsim  +++|*         *MAXIMUM NUMBER OF ARGUMENTS.* - FIRST 30 BIT NUMBERS ONLY
00100  M01S00088.scrsim  +++|*         ACCEPTED ON SET OR CLEAR COMMANDS.
00101  M01S00089.scrsim  +++|*
00102  M01S00090.scrsim  +++|*         *NO BITS SPECIFIED.* - NO BIT NUMBERS SPECIFIED ON SET OR
00103  M01S00091.scrsim  +++|*         CLEAR BIT COMMANDS.
00104  M01S00092.scrsim  +++|*
00105  M01S00093.scrsim  +++|*         *NOT ENOUGH ARGUMENTS.* - TERMINATOR FOUND BEFORE THE CORRECT
00106  M01S00094.scrsim  +++|*         NUMBER OF ARGUMENTS ENTERED FOR THE COMMAND.
00107  M01S00095.scrsim  +++|*
00108  M01S00096.scrsim  +++|*         *NUMBER OF BITS TOO LARGE.* - NUMBER OF BITS ON AREA COMMAND
00109  M01S00097.scrsim  +++|*         LARGER THAN NUMBER OF BITS FROM STARTING BIT TO END OF
00110  M01S00098.scrsim  +++|*         REGISTER.
00111  M01S00099.scrsim  +++|*
00112  M01S00100.scrsim  +++|*         *NUMBER OF CYCLES TOO LARGE.* - NUMBER OF CYCLES ON CYCLE
00113  M01S00101.scrsim  +++|*         COMMAND IS GREATER THAN 4095.
00114  M01S00102.scrsim  +++|*
00115  M01S00103.scrsim  +++|*         *TIME LIMIT UP.* - TOTAL TIME LIMIT ON CYCLE COMMAND HAS
00116  M01S00104.scrsim  +++|*         PASSED.  INPUT CAN AGAIN BE ACCEPTED BY THE SIMULATOR.
00117  M01S00105.scrsim  +++|*
00118  M01S00106.scrsim  +++|*         *TOO MANY BITS SPECIFIED.* - MORE BITS SPECIFIED THAN CAN
00119  M01S00107.scrsim  +++|*         BE HELD IN AREA, LINE OR BYTE GIVEN.
00120  M01S00108.scrsim  +++|          SPACE  4
00121  M01S00109.scrsim  +++|*CALL     COMCMAC
00122  M01S00008.v23l617 +++|*CALL     COMCDCM
00123  M01S00110.scrsim  +++|*CALL     COMSPRD
00124  M01S00111.scrsim  +++|*CALL     COMSSCR
00125  M01S00112.scrsim  +++|*CALL     COMSSSJ
00126  M01S00113.scrsim  +++|*CALL     COMSSSD
00127  M01S00114.scrsim  +++|          TITLE  CONSTANTS.
00128  M01S00115.scrsim  +++|*         CONSTANTS.
00129  M01S00116.scrsim  +++|
00130  M01S00117.scrsim  +++| MNOP     EQU    30          MAXIMUM NUMBER OF PARAMETERS ALLOWED
00131  M01S00118.scrsim  +++| IBUFL    EQU    101B        INPUT BUFFER LENGTH
00132  M01S00119.scrsim  +++| OBUFL    EQU    101B        OUTPUT BUFFER LENGTH
00133  M01S00120.scrsim  +++|          TITLE  HOLDING REGISTERS AND DIRECT LOCATIONS.
00134  M01S00121.scrsim  +++|          ORG    101B
00135  M01S00122.scrsim  +++|
00136  M01S00123.scrsim  +++|*         HOLDING REGISTERS FOR OPERATOR USE.
00137  M01S00124.scrsim  +++|
00138  M01S00125.scrsim  +++| PW16     BSSZ   1           CHANNEL 16 PARAMETER WORD
00139  M01S00126.scrsim  +++| UHLD     BSSZ   4           CHANNEL 16 HOLDING REGISTER
00140  M01S00127.scrsim  +++| PW36     BSSZ   1           CHANNEL 36 PARAMETER WORD
00141  M01S00128.scrsim  +++| LHLD     BSSZ   4           CHANNEL 36 HOLDING REGISTER
00142  M01S00129.scrsim  +++|
00143  M01S00130.scrsim  +++|*         DIRECT LOCATIONS.
00144  M01S00131.scrsim  +++|
00145  M01S00132.scrsim  +++| K        VFD    24/I,18/R,18/L16  *K* DISPLAY CONTROL WORD
00146  M01S00133.scrsim  +++| I        BSS    8           KEYBOARD INPUT BUFFER
00147  M01S00134.scrsim  +++| PARA     BSS    30          PARAMETER AREA
00148  M01S00135.scrsim  +++| BLNK     DIS    4,
00149  M01S00136.scrsim  +++| REGF     BSSZ   1           REGISTER IN USE FLAG
00150  M01S00137.scrsim  +++| CA       BSSZ   1           CHANNEL 36 AVAILABLE FLAG
00151  M01S00138.scrsim  +++|
00152  M01S00139.scrsim  +++|*         FETS.
00153  M01S00140.scrsim  +++|
00154  M01S00141.scrsim  +++| IN       BSS    0
00155  M01S00142.scrsim  +++| INPUT    FILEB  IBUF,IBUFL
00156  M01S00143.scrsim  +++|
00157  M01S00144.scrsim  +++| OT       BSS    0
00158  M01S00145.scrsim  +++| OUTPUT   FILEB  OBUF,OBUFL
00159  M01S00146.scrsim  +++|
00160  M01S00147.scrsim  +++|*         SSJ PARAMETER AREA.
00161  M01S00148.scrsim  +++|
00162  M01S00149.scrsim  +++| SSJ=     VFD    12/0,24/-0,12/SCCS,12/IRSI
00163  M01S00150.scrsim  +++|          BSSZ   SSJL-1
00164  M01S00151.scrsim  +++| SCRSIM   TITLE  SCRSIM - MAIN LOOP.
00165  M01S00152.scrsim  +++|*         SCRSIM - STATUS/CONTROL REGISTER SIMULATOR.
00166  M01S00153.scrsim  +++|
00167  M01S00154.scrsim  +++| SCRSIM   SB1    1
00168  M01S00155.scrsim  +++|          RJ     PRS         PRESET
00169  M01S00156.scrsim  +++|          READ   IN,R
00170  M01S00157.scrsim  +++|          SA1    IN+2        IN
00171  M01S00158.scrsim  +++|          SA2    A1+B1       OUT
00172  M01S00159.scrsim  +++|          IX6    X1-X2
00173  M01S00160.scrsim  +++|          NZ     X6,SCS11    IF FET INPUT, BEGIN ROUTINE
00174  M01S00161.scrsim  +++|          BX6    X6-X6       ZERO FET NAME
00175  M01S00162.scrsim  +++|          SA6    IN
00176  M01S00163.scrsim  +++| SCS1     SA1    I
00177  M01S00164.scrsim  +++|          ZR     X1,SCS11    IF INPUT NOT READY
00178  M01S00165.scrsim  +++|
00179  M01S00166.scrsim  +++|*         DISPLAY INPUT COMMAND.
00180  M01S00167.scrsim  +++|
00181  M01S00168.scrsim  +++|          MESSAGE I,3        ENTER COMMAND IN JOB DAYFILE
00182  M01S00169.scrsim  +++|          MOVE   3,BLNK,MSGL CLEAR ERROR MESSAGE AREAS
00183  M01S00170.scrsim  +++|          MOVE   3,BLNK,MSGK
00184  M01S00171.scrsim  +++|          MOVE   5,I,PARL    DISPLAY COMMAND
00185  M01S00172.scrsim  +++|          MOVE   5,I,PARK
00186  M01S00173.scrsim  +++|          SA2    BLNK
00187  M01S00174.scrsim  +++|          SB2    4
00188  M01S00175.scrsim  +++|          BX6    X2
00189  M01S00176.scrsim  +++| SCS2     SA3    PARL+B2
00190  M01S00177.scrsim  +++|          SA4    PARK+B2
00191  M01S00178.scrsim  +++|          NZ     X3,SCS3     IF NOT ZERO WORD
00192  M01S00179.scrsim  +++|          SA6    A3+         BLANK OUT ZERO WORD
00193  M01S00180.scrsim  +++|          SB2    B2-B1
00194  M01S00181.scrsim  +++|          SA6    A4
00195  M01S00182.scrsim  +++|          NZ     B2,SCS2     IF NOT END OF BUFFER
00196  M01S00183.scrsim  +++|
00197  M01S00184.scrsim  +++|*         FIND CORRECT COMMAND AND PROCESSOR.
00198  M01S00185.scrsim  +++|
00199  M01S00186.scrsim  +++| SCS3     SA2    I
00200  M01S00187.scrsim  +++|          SA1    TOCP        TABLE OF COMMAND PROCESSORS
00201  M01S00188.scrsim  +++| SCS4     BX6    X1
00202  M01S00189.scrsim  +++|          AX6    18
00203  M01S00190.scrsim  +++|          MX7    -6
00204  M01S00191.scrsim  +++|          BX6    -X7*X6      SHIFT COUNT FOR MASK
00205  M01S00192.scrsim  +++|          SB7    X6
00206  M01S00193.scrsim  +++|          MX0    1
00207  M01S00194.scrsim  +++|          AX0    B7          MASK FOR COMMAND
00208  M01S00195.scrsim  +++|          BX2    X0*X2
00209  M01S00196.scrsim  +++|          BX1    X0*X1
00210  M01S00197.scrsim  +++|          BX6    X2-X1
00211  M01S00198.scrsim  +++|          ZR     X6,SCS5     IF CORRECT COMMAND
00212  M01S00199.scrsim  +++|          SA1    A1+B1
00213  M01S00200.scrsim  +++|          SA2    A2
00214  M01S00201.scrsim  +++|          NZ     X1,SCS4     IF NOT END OF COMMANDS
Line S00202 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00202.v23l617 ---|          MOVE   3,SCSA,MSGL *ILLEGAL PARAMETER.*
00216  M01S00009.v23l617 +++|          MOVE   3,SCSA,MSGL *INCORRECT PARAMETER.*
00217  M01S00203.scrsim  +++|          MOVE   3,SCSA,MSGK
00218  M01S00204.scrsim  +++|          EQ     SCS8
00219  M01S00205.scrsim  +++|
00220  M01S00206.scrsim  +++| SCS5     SB6    7
00221  M01S00207.scrsim  +++|          SA2    A2          CHECK FOR SEPARATOR
00222  M01S00208.scrsim  +++|          SB7    B7+B6       SHIFT COUNT FOR COMMAND AND SEPARATOR
00223  M01S00209.scrsim  +++|          LX2    B7
00224  M01S00210.scrsim  +++|          SX3    1R+         CHECK FOR *+* COMMAND
00225  M01S00211.scrsim  +++|          LX3    6
00226  M01S00212.scrsim  +++|          BX3    X2-X3
00227  M01S00213.scrsim  +++|          ZR     X3,SCS7     IF *+* ONLY
00228  M01S00214.scrsim  +++|          BX2    -X7*X2
00229  M01S00215.scrsim  +++|          SX6    X2-1R+
00230  M01S00216.scrsim  +++|          NG     X6,SCS6     IF ALPHANUMERIC
00231  M01S00217.scrsim  +++|          SX6    X2-1R#
00232  M01S00218.scrsim  +++|          NG     X6,SCS7     IF SEPARATOR OR TERMINATOR
Line S00219 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00233  M02S00219.v23l617 ---| SCS6     MOVE   3,SCSA,MSGL *ILLEGAL PARAMETER.*
00234  M01S00010.v23l617 +++| SCS6     MOVE   3,SCSA,MSGL *INCORRECT PARAMETER.*
00235  M01S00220.scrsim  +++|          MOVE   3,SCSA,MSGK
00236  M01S00221.scrsim  +++|          EQ     SCS8
00237  M01S00222.scrsim  +++|
00238  M01S00223.scrsim  +++|*         JUMP TO COMMAND PROCESSOR.
00239  M01S00224.scrsim  +++|
00240  M01S00225.scrsim  +++| SCS7     SA1    A1
00241  M01S00226.scrsim  +++|          SB7    X1          PROCESSOR ADDRESS
00242  M01S00227.scrsim  +++|          SX6    SCS8        SET UP RETURN ADDRESS
00243  M01S00228.scrsim  +++|          SX7    1           SET DISPLAY UPDATE AFTER COMMAND
00244  M01S00229.scrsim  +++|          SA7    SCSC
00245  M01S00230.scrsim  +++|          SA6    B7-B1
00246  M01S00231.scrsim  +++|          JP     B7
00247  M01S00232.scrsim  +++|
00248  M01S00233.scrsim  +++|*         RETURN FROM PROCESSOR AND CLEAR INPUT AREA.
00249  M01S00234.scrsim  +++|
00250  M01S00235.scrsim  +++| SCS8     MOVE   3,MSGL,SCSB+1
00251  M01S00236.scrsim  +++|          SA1    SCSB+1
00252  M01S00237.scrsim  +++|          NG     X1,SCS9     IF NO ERROR MESSAGE
00253  M01S00238.scrsim  +++|          MESSAGE SCSB,3     PUT ERROR MESSAGE IN DAYFILE
00254  M01S00239.scrsim  +++| SCS9     BX6    X6-X6       CLEAR INPUT AREA
00255  M01S00240.scrsim  +++|          SB2    B0
00256  M01S00241.scrsim  +++|          SB3    7
00257  M01S00242.scrsim  +++| SCS10    SA6    I+B2
00258  M01S00243.scrsim  +++|          EQ     B2,B3,SCS11 IF END OF BUFFER
00259  M01S00244.scrsim  +++|          SB2    B2+B1
00260  M01S00245.scrsim  +++|          EQ     SCS10
00261  M01S00246.scrsim  +++|
00262  M01S00247.scrsim  +++|*         READ AND DISPLAY S/C REGISTER CONTENTS.
00263  M01S00248.scrsim  +++|
00264  M01S00249.scrsim  +++| SCS11    RECALL
00265  M01S00250.scrsim  +++|          SA1    SCSC        CHECK IF TIME TO UPDATE DISPLAY
00266  M01S00251.scrsim  +++|          SX6    X1-1
00267  M01S00252.scrsim  +++|          SA6    A1+
00268  M01S00253.scrsim  +++|          NZ     X6,SCS12    IF NOT TIME TO UPDATE
00269  M01S00254.scrsim  +++|          RJ     DCR         DISPLAY CONTENTS OF REGISTER
00270  M01S00255.scrsim  +++|          SX6    50          RESET DISPLAY UPDATE COUNTER
00271  M01S00256.scrsim  +++|          SA6    SCSC
00272  M01S00257.scrsim  +++|          RECALL
00273  M01S00258.scrsim  +++| SCS12    SA1    IN          CHECK FOR FET INPUT
00274  M01S00259.scrsim  +++|          ZR     X1,SCS1     IF NO FET INPUT
00275  M01S00260.scrsim  +++|          READC  IN,I,8      TRANSFER FET INPUT TO INPUT AREA
00276  M01S00261.scrsim  +++|          NZ     X1,STP      IF EOR/EOF, END SIMULATOR
00277  M01S00262.scrsim  +++|          MESSAGE I,2        DISPLAY AT CONTROL POINT
00278  M01S00263.scrsim  +++|          EQ     SCS1
00279  M01S00264.scrsim  +++|
Line S00265 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00265.v23l617 ---| SCSA     DIS    3,ILLEGAL COMMAND.
00281  M01S00011.v23l617 +++| SCSA     DIS    3,INCORRECT COMMAND.
00282  M01S00266.scrsim  +++|          BSSZ   1
00283  M01S00267.scrsim  +++| SCSB     DIS    4,          ERROR MESSAGE BUFFER
00284  M01S00268.scrsim  +++|          BSSZ   1
00285  M01S00269.scrsim  +++| SCSC     CON    1           DISPLAY UPDATE COUNTER
00286  M01S00270.scrsim  +++|          SPACE  4,5
00287  M01S00271.scrsim  +++|**        TABLE OF COMMAND PROCESSORS.
00288  M01S00272.scrsim  +++|*T        36/ COMMAND,6/ SC,18/ ADDR
Figure

01718232429 ADDR SC COMMAND3059 COMMAND

00289  M01S00273.scrsim  +++|*
00290  M01S00274.scrsim  +++|*         SC     SHIFT COUNT FOR MASK.
00291  M01S00275.scrsim  +++|*         ADDR   PROCESSOR ADDRESS.
00292  M01S00276.scrsim  +++|
00293  M01S00277.scrsim  +++|
00294  M01S00278.scrsim  +++| TOCP     BSS    0
00295  M01S00279.scrsim  +++|          VFD    36/4LAREA,6/23,18/ARP
00296  M01S00280.scrsim  +++|          VFD    36/4LBYTE,6/23,18/BYP
00297  M01S00281.scrsim  +++|          VFD    36/5LCLEAR,6/29,18/CLP
00298  M01S00282.scrsim  +++|          VFD    36/5LCYCLE,6/29,18/CYP
00299  M01S00283.scrsim  +++|          VFD    36/2LGO,6/11,18/GOP
00300  M01S00284.scrsim  +++|          VFD    36/4LLINE,6/23,18/LIP
00301  M01S00285.scrsim  +++|          VFD    36/4LREAD,6/23,18/REP
00302  M01S00286.scrsim  +++|          VFD    36/3LSET,6/17,18/SEP
00303  M01S00287.scrsim  +++|          VFD    36/4LSTOP,6/23,18/STP
00304  M01S00288.scrsim  +++|          VFD    36/1L+,6/5,18/TOP
00305  M01S00289.scrsim  +++|          BSSZ   1
00306  M01S00290.scrsim  +++| ARP      TITLE  PARAMETER PROCESSOR SUBROUTINES.
00307  M01S00291.scrsim  +++|***       AREA,A,M,Y.
00308  M01S00292.scrsim  +++|*                SET M BITS IN THE HOLDING REGISTER, FROM BIT A TO
00309  M01S00293.scrsim  +++|*                A+M-1, TO THE OCTAL VALUE Y.  Y MAY BE UP TO M BITS
00310  M01S00294.scrsim  +++|*                OF OCTAL VALUE.  A IS THE STARTING BIT NUMBER (0-203),
00311  M01S00295.scrsim  +++|*                AND M IS THE NUMBER OF BITS (1-204).  A AND M ARE
00312  M01S00296.scrsim  +++|*                ASSUMED DECIMAL, BUT MAY HAVE A POSTRADIX OF D OR B.
00313  M01S00297.scrsim  +++|
00314  M01S00298.scrsim  +++|**        ARP -  SET AREA TO OCTAL VALUE.
00315  M01S00299.scrsim  +++|*
00316  M01S00300.scrsim  +++|*         EXIT   AREA IN HOLDING REGISTER SET TO GIVEN OCTAL VALUE.
00317  M01S00301.scrsim  +++|*                VALUE DISPLAYED ON *K* DISPLAY.
00318  M01S00302.scrsim  +++|*
00319  M01S00303.scrsim  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00320  M01S00304.scrsim  +++|*                B - 2, 4, 5, 6, 7.
00321  M01S00305.scrsim  +++|*                A - 0, 1, 2, 3, 5, 6, 7.
00322  M01S00306.scrsim  +++|*
00323  M01S00307.scrsim  +++|*         CALLS  GPV, GOV, DYL.
00324  M01S00308.scrsim  +++|
00325  M01S00309.scrsim  +++|
00326  M01S00310.scrsim  +++|          DATA   0           RETURN ADDRESS
00327  M01S00311.scrsim  +++| ARP      BSS    0
00328  M01S00312.scrsim  +++|
00329  M01S00313.scrsim  +++|*         GET PARAMETERS.
00330  M01S00314.scrsim  +++|
00331  M01S00315.scrsim  +++|          SA2    I
00332  M01S00316.scrsim  +++|          LX2    30
00333  M01S00317.scrsim  +++|          SA0    B0
00334  M01S00318.scrsim  +++|          MX0    -6
00335  M01S00319.scrsim  +++|          BX6    -X0*X2
00336  M01S00320.scrsim  +++|          SX7    X6-1R)
00337  M01S00321.scrsim  +++|          ZR     X7,ARP15    IF *)*
00338  M01S00322.scrsim  +++|          SX7    X6-1R.
00339  M01S00323.scrsim  +++|          ZR     X7,ARP15    IF *.*
00340  M01S00324.scrsim  +++|          SB6    5           CHARACTER COUNTER
00341  M01S00325.scrsim  +++|          RJ     GPV         GET PARAMETER VALUE
00342  M01S00326.scrsim  +++|          ZR     X1,ARP11    IF ERROR
00343  M01S00327.scrsim  +++|          SX7    X6-NBIT
Line S00328 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00328.v23l617 ---|          PL     X7,ARP12    IF ILLEGAL BIT NUMBER
00345  M01S00012.v23l617 +++|          PL     X7,ARP12    IF INCORRECT BIT NUMBER
00346  M01S00329.scrsim  +++|          SA6    ARPA        SAVE STARTING BIT
00347  M01S00330.scrsim  +++| ARP1     SX6    X1-1R)
00348  M01S00331.scrsim  +++|          ZR     X6,ARP15    IF *)* TERMINATOR
00349  M01S00332.scrsim  +++|          SX6    X1-1R.
00350  M01S00333.scrsim  +++|          ZR     X6,ARP15    IF *.* TERMINATOR
00351  M01S00334.scrsim  +++|          SX0    A0
00352  M01S00335.scrsim  +++|          NZ     X0,ARP2     IF BOTH PARAMETERS FOUND
00353  M01S00336.scrsim  +++|          SA0    B1
00354  M01S00337.scrsim  +++|          RJ     GPV         GET PARAMETER VALUE
00355  M01S00338.scrsim  +++|          ZR     X1,ARP11    IF ERROR
00356  M01S00339.scrsim  +++|          SA5    ARPA
00357  M01S00340.scrsim  +++|          IX7    X5+X6       END BIT + 1
00358  M01S00341.scrsim  +++|          SX5    205
00359  M01S00342.scrsim  +++|          IX7    X7-X5
00360  M01S00343.scrsim  +++|          PL     X7,ARP13    IF NUMBER OF BITS TOO LARGE
00361  M01S00344.scrsim  +++|          SA6    ARPB        SAVE NUMBER OF BITS
00362  M01S00345.scrsim  +++|          EQ     ARP1
00363  M01S00346.scrsim  +++|
00364  M01S00347.scrsim  +++| ARP2     RJ     GOV         GET OCTAL VALUE
00365  M01S00348.scrsim  +++|          ZR     X2,ARP11    IF ERROR
00366  M01S00349.scrsim  +++|          SX6    B7+
00367  M01S00350.scrsim  +++|          ZR     B4,ARP3     IF NO FULL WORD OF VALUE
00368  M01S00351.scrsim  +++|          SX1    60          NUMBER OF BITS IN A WORD
00369  M01S00352.scrsim  +++|          SX2    B4+
00370  M01S00353.scrsim  +++|          IX7    X2*X1
00371  M01S00354.scrsim  +++|          IX6    X7+X6       TOTAL NUMBER OF BITS
00372  M01S00355.scrsim  +++| ARP3     SA2    ARPB
00373  M01S00356.scrsim  +++|          IX7    X2-X6
00374  M01S00357.scrsim  +++|          NG     X7,ARP14    IF TOO MANY BITS GIVEN
00375  M01S00358.scrsim  +++|
00376  M01S00359.scrsim  +++|*         INSERT VALUE INTO HOLDING REGISTER.
00377  M01S00360.scrsim  +++|
00378  M01S00361.scrsim  +++|          SA1    REGF
00379  M01S00362.scrsim  +++|          SA2    ARPA        STARTING BIT
00380  M01S00363.scrsim  +++|          SX6    60
00381  M01S00364.scrsim  +++|          SX7    X2
00382  M01S00365.scrsim  +++|          IX6    X7/X6       HOLDING REGISTER WORD
00383  M01S00366.scrsim  +++|          SX7    60
00384  M01S00367.scrsim  +++|          IX7    X6*X7
00385  M01S00368.scrsim  +++|          IX7    X2-X7
00386  M01S00369.scrsim  +++|          SB5    X7          BIT NUMBER IN WORD
00387  M01S00370.scrsim  +++|          SA7    A2          SAVE BIT NUMBER IN WORD
00388  M01S00371.scrsim  +++|          SX7    UHLD+X6
00389  M01S00372.scrsim  +++|          ZR     X1,ARP4     IF CHANNEL 16 REGISTER
00390  M01S00373.scrsim  +++|          SX7    LHLD+X6
00391  M01S00374.scrsim  +++| ARP4     SA0    X7          STARTING ADDRESS
00392  M01S00375.scrsim  +++|          SA1    A0
00393  M01S00376.scrsim  +++|          SA3    ARPB        NUMBER OF BITS
00394  M01S00377.scrsim  +++|          SB7    X3+
00395  M01S00378.scrsim  +++|          SB6    60
00396  M01S00379.scrsim  +++|          SA3    GOVA        VALUE
00397  M01S00380.scrsim  +++| ARP5     SB4    60
00398  M01S00381.scrsim  +++|          SB4    B5-B4
00399  M01S00382.scrsim  +++|          SB4    -B4
00400  M01S00383.scrsim  +++|          GE     B7,B4,ARP6  IF ENOUGH BITS TO FILL WORD
00401  M01S00384.scrsim  +++|          SB4    B7+
00402  M01S00385.scrsim  +++| ARP6     GE     B6,B4,ARP7  IF ENOUGH BITS IN VALUE WORD
00403  M01S00386.scrsim  +++|          SB4    B6+
00404  M01S00387.scrsim  +++| ARP7     SB3    B4-B1       MASK COUNT
00405  M01S00388.scrsim  +++|          MX0    1
00406  M01S00389.scrsim  +++|          AX0    B3
00407  M01S00390.scrsim  +++|          LX2    B4,X0       VALUE WORD MASK
00408  M01S00391.scrsim  +++|          LX0    B5,X2       HOLDING WORD MASK
00409  M01S00392.scrsim  +++|          BX7    X2*X3       GET VALUE
00410  M01S00393.scrsim  +++|          AX3    B4
00411  M01S00394.scrsim  +++|          LX7    B5          VALUE LEFT SHIFTED
00412  M01S00395.scrsim  +++|          BX6    -X0*X1
00413  M01S00396.scrsim  +++|          BX1    X7+X6       MERGE IN VALUE
00414  M01S00397.scrsim  +++|          SB6    B6-B4
00415  M01S00398.scrsim  +++|          NZ     B6,ARP8     IF NOT END OF VALUE WORD
00416  M01S00399.scrsim  +++|          SB6    60
00417  M01S00400.scrsim  +++|          SA3    A3+B1       GET NEXT VALUE WORD
00418  M01S00401.scrsim  +++| ARP8     SB5    B5+B4
00419  M01S00402.scrsim  +++|          SB2    60
00420  M01S00403.scrsim  +++|          SB2    B5-B2
00421  M01S00404.scrsim  +++|          NZ     B2,ARP9     IF NOT END OF HOLDING WORD
00422  M01S00405.scrsim  +++|          BX6    X1
00423  M01S00406.scrsim  +++|          SA6    A1+         SAVE WORD
00424  M01S00407.scrsim  +++|          SA1    A1+B1       GET NEXT HOLDING REGISTER WORD
00425  M01S00408.scrsim  +++|          SB5    B0+
00426  M01S00409.scrsim  +++| ARP9     SB7    B7-B4
00427  M01S00410.scrsim  +++|          NZ     B7,ARP5     IF NOT END OF TRANSFER
00428  M01S00411.scrsim  +++|          BX6    X1
00429  M01S00412.scrsim  +++|          SA6    A1          SAVE LAST WORD
00430  M01S00413.scrsim  +++|
00431  M01S00414.scrsim  +++|*         DISPLAY ENTIRE AREA.
00432  M01S00415.scrsim  +++|
00433  M01S00416.scrsim  +++|          RJ     DYL         DISPLAY LINE
00434  M01S00417.scrsim  +++|          SA1    ARPB        NUMBER OF BITS
00435  M01S00418.scrsim  +++|          SA2    ARPA        BIT ORDINAL IN WORD
00436  M01S00419.scrsim  +++|          SB7    X2-60
00437  M01S00420.scrsim  +++|          SB6    X1+
00438  M01S00421.scrsim  +++|          SB7    -B7+B1      NUMBER OF BITS LEFT IN WORD + 1
00439  M01S00422.scrsim  +++|          SB5    B6-B7
00440  M01S00423.scrsim  +++| ARP10    NG     B5,ARP11    IF ENTIRE AREA DISPLAYED
00441  M01S00424.scrsim  +++|          SB6    B5+B1       NUMBER OF BITS LEFT TO DISPLAY
00442  M01S00425.scrsim  +++|          SA0    A0+B1       SET NEXT WORD ADDRESS
00443  M01S00426.scrsim  +++|          RJ     DYL         DISPLAY LINE
00444  M01S00427.scrsim  +++|          SB5    B6-61
00445  M01S00428.scrsim  +++|          EQ     ARP10
00446  M01S00429.scrsim  +++|
00447  M01S00430.scrsim  +++|*         RETURN TO MAIN PROCESSOR.
00448  M01S00431.scrsim  +++|
00449  M01S00432.scrsim  +++| ARP11    SA1    ARP-1       GET RETURN ADDRESS
00450  M01S00433.scrsim  +++|          SB7    X1+
00451  M01S00434.scrsim  +++|          JP     B7
00452  M01S00435.scrsim  +++|
Line S00436 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00436.v23l617 ---| ARP12    MOVE   3,ARPD,MSGL *ILLEGAL BIT NUMBER.*
00454  M01S00013.v23l617 +++| ARP12    MOVE   3,ARPD,MSGL *INCORRECT BIT NUMBER.*
00455  M01S00437.scrsim  +++|          MOVE   3,ARPD,MSGK
00456  M01S00438.scrsim  +++|          EQ     ARP11
00457  M01S00439.scrsim  +++|
00458  M01S00440.scrsim  +++| ARP13    MOVE   3,ARPE,MSGL *NUMBER OF BITS TOO LARGE.*
00459  M01S00441.scrsim  +++|          MOVE   3,ARPE,MSGK
00460  M01S00442.scrsim  +++|          EQ     ARP11
00461  M01S00443.scrsim  +++|
00462  M01S00444.scrsim  +++| ARP14    MOVE   3,ARPF,MSGL *TOO MANY BITS SPECIFIED.*
00463  M01S00445.scrsim  +++|          MOVE   3,ARPF,MSGK
00464  M01S00446.scrsim  +++|          EQ     ARP11
00465  M01S00447.scrsim  +++|
00466  M01S00448.scrsim  +++| ARP15    MOVE   3,ARPC,MSGL *NOT ENOUGH ARGUMENTS.*
00467  M01S00449.scrsim  +++|          MOVE   3,ARPC,MSGK
00468  M01S00450.scrsim  +++|          EQ     ARP11
00469  M01S00451.scrsim  +++|
00470  M01S00452.scrsim  +++| ARPA     BSSZ   1           STARTING BIT
00471  M01S00453.scrsim  +++| ARPB     BSSZ   1           NUMBER OF BITS
00472  M01S00454.scrsim  +++| ARPC     DIS    3,NOT ENOUGH ARGUMENTS.
00473  M01S00455.scrsim  +++|          BSSZ   1
Line S00456 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00456.v23l617 ---| ARPD     DIS    3,ILLEGAL BIT NUMBER.
00475  M01S00014.v23l617 +++| ARPD     DIS    3,INCORRECT BIT NUMBER.
00476  M01S00457.scrsim  +++|          BSSZ   1
00477  M01S00458.scrsim  +++| ARPE     DIS    3,NUMBER OF BITS TOO LARGE.
00478  M01S00459.scrsim  +++|          BSSZ   1
00479  M01S00460.scrsim  +++| ARPF     DIS    3,TOO MANY BITS SPECIFIED.
00480  M01S00461.scrsim  +++|          BSSZ   1
00481  M01S00462.scrsim  +++| BYP      SPACE  4,16
00482  M01S00463.scrsim  +++|***       BYTE,XX,YYYY.
00483  M01S00464.scrsim  +++|*                SET BYTE XX IN THE HOLDING REGISTER TO THE OCTAL
00484  M01S00465.scrsim  +++|*                VALUE YYYY.  YYYY MAY BE UP TO 12 BITS OF OCTAL
00485  M01S00466.scrsim  +++|*                VALUE.  XX IS THE BYTE NUMBER (0-16), AND IS
00486  M01S00467.scrsim  +++|*                ASSUMED DECIMAL, BUT MAY HAVE A POSTRADIX OF D OR B.
00487  M01S00468.scrsim  +++|
00488  M01S00469.scrsim  +++|**        BYP -  SET BYTE TO OCTAL VALUE.
00489  M01S00470.scrsim  +++|*
00490  M01S00471.scrsim  +++|*         EXIT   BYTE SET IN HOLDING REGISTER.
00491  M01S00472.scrsim  +++|*                VALUE DISPLAYED ON *K* DISPLAY.
00492  M01S00473.scrsim  +++|*
00493  M01S00474.scrsim  +++|*         USES   X - 0, 1, 2, 5, 6, 7.
00494  M01S00475.scrsim  +++|*                B - 2, 6, 7.
00495  M01S00476.scrsim  +++|*                A - 0, 1, 2, 7.
00496  M01S00477.scrsim  +++|*
00497  M01S00478.scrsim  +++|*         CALLS  GPV, GOV, DYL.
00498  M01S00479.scrsim  +++|
00499  M01S00480.scrsim  +++|
00500  M01S00481.scrsim  +++|          DATA   0           ENTRY/EXIT
00501  M01S00482.scrsim  +++| BYP      BSS    0
00502  M01S00483.scrsim  +++|          SA2    I
00503  M01S00484.scrsim  +++|          SB6    5           CHARACTER COUNTER
00504  M01S00485.scrsim  +++|          LX2    30
00505  M01S00486.scrsim  +++|          MX0    -6
00506  M01S00487.scrsim  +++|          BX6    -X0*X2
00507  M01S00488.scrsim  +++|          SX7    X6-1R)
00508  M01S00489.scrsim  +++|          ZR     X7,BYP1     IF *)*
00509  M01S00490.scrsim  +++|          SX7    X6-1R.
00510  M01S00491.scrsim  +++|          ZR     X7,BYP1     IF *.*
00511  M01S00492.scrsim  +++|
00512  M01S00493.scrsim  +++|*         GET CORRECT BYTE.
00513  M01S00494.scrsim  +++|
00514  M01S00495.scrsim  +++|          RJ     GPV         GET PARAMETER VALUE
00515  M01S00496.scrsim  +++|          ZR     X1,BYP5     IF ERROR
00516  M01S00497.scrsim  +++|          SX7    X1-1R)
00517  M01S00498.scrsim  +++|          ZR     X7,BYP1     IF *)* TERMINATOR
00518  M01S00499.scrsim  +++|          SX7    X1-1R.
00519  M01S00500.scrsim  +++|          ZR     X7,BYP1     IF *.* TERMINATOR
00520  M01S00501.scrsim  +++|          EQ     BYP2
00521  M01S00502.scrsim  +++|
00522  M01S00503.scrsim  +++| BYP1     MOVE   3,BYPA,MSGL *NOT ENOUGH ARGUMENTS.*
00523  M01S00504.scrsim  +++|          MOVE   3,BYPA,MSGK
00524  M01S00505.scrsim  +++|          EQ     BYP5
00525  M01S00506.scrsim  +++|
00526  M01S00507.scrsim  +++| BYP2     SX7    X6-17
00527  M01S00508.scrsim  +++|          NG     X7,BYP3     IF LEGAL BYTE NUMBER
Line S00509 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00509.v23l617 ---|          MOVE   3,BYPB,MSGL *ILLEGAL BYTE NUMBER.*
00529  M01S00015.v23l617 +++|          MOVE   3,BYPB,MSGL *INCORRECT BYTE NUMBER.*
00530  M01S00510.scrsim  +++|          MOVE   3,BYPB,MSGK
00531  M01S00511.scrsim  +++|          EQ     BYP5
00532  M01S00512.scrsim  +++|
00533  M01S00513.scrsim  +++| BYP3     SA0    UHLD
00534  M01S00514.scrsim  +++|          SA1    REGF
00535  M01S00515.scrsim  +++|          ZR     X1,BYP4     IF CHANNEL 16 REGISTER
00536  M01S00516.scrsim  +++|          SA0    LHLD
00537  M01S00517.scrsim  +++| BYP4     SX7    5
00538  M01S00518.scrsim  +++|          SX5    X6
00539  M01S00519.scrsim  +++|          IX7    X6/X7       WORD NUMBER
00540  M01S00520.scrsim  +++|          SB7    X7
00541  M01S00521.scrsim  +++|          SA0    A0+B7       SET WORD ADDRESS
00542  M01S00522.scrsim  +++|          SX6    5
00543  M01S00523.scrsim  +++|          IX6    X6*X7
00544  M01S00524.scrsim  +++|          IX6    X5-X6       BYTE ORDINAL IN WORD
00545  M01S00525.scrsim  +++|          SB2    X6
00546  M01S00526.scrsim  +++|          RJ     GOV         GET OCTAL VALUE
00547  M01S00527.scrsim  +++|          ZR     X2,BYP5     IF ERROR
00548  M01S00528.scrsim  +++|          NZ     B4,BYP6     IF TOO MANY BITS
00549  M01S00529.scrsim  +++|          SB7    B7-13
00550  M01S00530.scrsim  +++|          PL     B7,BYP6     IF TOO MANY BITS
00551  M01S00531.scrsim  +++|
00552  M01S00532.scrsim  +++|*         INSERT OCTAL VALUE INTO BYTE.
00553  M01S00533.scrsim  +++|
00554  M01S00534.scrsim  +++|          SA2    GOVA        OCTAL VALUE
00555  M01S00535.scrsim  +++|          SX5    12
00556  M01S00536.scrsim  +++|          SX7    B2
00557  M01S00537.scrsim  +++|          IX7    X7*X5       SHIFT COUNT
00558  M01S00538.scrsim  +++|          SB7    X7
00559  M01S00539.scrsim  +++|          SA1    A0          GET HOLDING WORD
00560  M01S00540.scrsim  +++|          MX0    48
00561  M01S00541.scrsim  +++|          BX6    -X0*X2
00562  M01S00542.scrsim  +++|          LX0    B7          FORM MASK
00563  M01S00543.scrsim  +++|          LX6    B7
00564  M01S00544.scrsim  +++|          BX7    X0*X1
00565  M01S00545.scrsim  +++|          BX7    X6+X7       INSERT VALUE
00566  M01S00546.scrsim  +++|          SA7    A0+
00567  M01S00547.scrsim  +++|          RJ     DYL         DISPLAY LINE
00568  M01S00548.scrsim  +++| BYP5     SA1    BYP-1       GET RETURN ADDRESS
00569  M01S00549.scrsim  +++|          SB7    X1+
00570  M01S00550.scrsim  +++|          JP     B7
00571  M01S00551.scrsim  +++|
00572  M01S00552.scrsim  +++| BYP6     MOVE   3,BYPC,MSGL *TOO MANY BITS SPECIFIED.*
00573  M01S00553.scrsim  +++|          MOVE   3,BYPC,MSGK
00574  M01S00554.scrsim  +++|          EQ     BYP5
00575  M01S00555.scrsim  +++|
00576  M01S00556.scrsim  +++| BYPA     DIS    3,NOT ENOUGH ARGUMENTS.
00577  M01S00557.scrsim  +++|          BSSZ   1
Line S00558 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00558.v23l617 ---| BYPB     DIS    3,ILLEGAL BYTE NUMBER.
00579  M01S00016.v23l617 +++| BYPB     DIS    3,INCORRECT BYTE NUMBER.
00580  M01S00559.scrsim  +++|          BSSZ   1
00581  M01S00560.scrsim  +++| BYPC     DIS    3,TOO MANY BITS SPECIFIED.
00582  M01S00561.scrsim  +++|          BSSZ   1
00583  M01S00562.scrsim  +++| CLP      SPACE  4,15
00584  M01S00563.scrsim  +++|***       CLEAR,A,B,...,Z.
00585  M01S00564.scrsim  +++|*                CLEAR BITS A,B,...,Z IN THE HOLDING REGISTER, WHERE
00586  M01S00565.scrsim  +++|*                A,B,...,Z ARE BIT NUMBERS (0-203).  DECIMAL VALUES
00587  M01S00566.scrsim  +++|*                ARE ASSUMED, BUT EACH MAY HAVE A POSTRADIX OF D OR B.
00588  M01S00567.scrsim  +++|*                IF MORE THAN 30 BIT NUMBERS ARE ENTERED, ONLY THE
00589  M01S00568.scrsim  +++|*                FIRST 30 WILL BE PROCESSED.  ALL OTHERS WILL BE
00590  M01S00569.scrsim  +++|*                IGNORED.
00591  M01S00570.scrsim  +++|
00592  M01S00571.scrsim  +++|**        CLP -  CLEAR BITS IN HOLDING REGISTERS.
00593  M01S00572.scrsim  +++|*
00594  M01S00573.scrsim  +++|*         EXIT   BITS CLEARED IN HOLDING REGISTER.
00595  M01S00574.scrsim  +++|*                BITS DISPLAYED ON *K* DISPLAY.
00596  M01S00575.scrsim  +++|*
00597  M01S00576.scrsim  +++|*         USES   X - 0, 1, 2, 6.
00598  M01S00577.scrsim  +++|*                B - 6, 7.
00599  M01S00578.scrsim  +++|*                A - 0, 1, 2, 6.
00600  M01S00579.scrsim  +++|*
00601  M01S00580.scrsim  +++|*         CALLS  GPV, CBV.
00602  M01S00581.scrsim  +++|
00603  M01S00582.scrsim  +++|
00604  M01S00583.scrsim  +++|          DATA   0           RETURN ADDRESS
00605  M01S00584.scrsim  +++| CLP      BSS    0
00606  M01S00585.scrsim  +++|          SA2    I
00607  M01S00586.scrsim  +++|          SB6    B0+
00608  M01S00587.scrsim  +++|          LX2    36
00609  M01S00588.scrsim  +++|          SA0    B0
00610  M01S00589.scrsim  +++|          MX0    -6
00611  M01S00590.scrsim  +++|          BX6    -X0*X2
00612  M01S00591.scrsim  +++|          SX1    X6-1R)
00613  M01S00592.scrsim  +++|          ZR     X1,CLP4     IF *)*
00614  M01S00593.scrsim  +++|          SX1    X6-1R.
00615  M01S00594.scrsim  +++|          ZR     X1,CLP4     IF *.*
00616  M01S00595.scrsim  +++|          SB6    6           CHARACTER COUNTER
00617  M01S00596.scrsim  +++|
00618  M01S00597.scrsim  +++|*         GET BIT NUMBERS.
00619  M01S00598.scrsim  +++|
00620  M01S00599.scrsim  +++| CLP1     RJ     GPV         GET PARAMETER VALUE
00621  M01S00600.scrsim  +++|          ZR     X1,CLP5     IF ERROR
00622  M01S00601.scrsim  +++|          SA6    PARA+A0
00623  M01S00602.scrsim  +++|          SA0    A0+B1       CHECK FOR MAXIMUM NUMBER OF PARAMETERS
00624  M01S00603.scrsim  +++|          SX0    A0
00625  M01S00604.scrsim  +++|          SX6    X1-1R)
00626  M01S00605.scrsim  +++|          ZR     X6,CLP3     IF *)*
00627  M01S00606.scrsim  +++|          SX6    X1-1R.
00628  M01S00607.scrsim  +++|          ZR     X6,CLP3     IF *.*
00629  M01S00608.scrsim  +++|          SX0    X0-MNOP
00630  M01S00609.scrsim  +++|          ZR     X0,CLP2     IF MAXIMUM NUMBER OF PARAMETERS
00631  M01S00610.scrsim  +++|          EQ     CLP1
00632  M01S00611.scrsim  +++|
00633  M01S00612.scrsim  +++| CLP2     MOVE   3,CLPA,MSGL *MAXIMUM NUMBER OF ARGUMENTS.*
00634  M01S00613.scrsim  +++|          MOVE   3,CLPA,MSGK
00635  M01S00614.scrsim  +++| CLP3     SB6    A0+         NUMBER OF BITS SPECIFIED
00636  M01S00615.scrsim  +++|          SA0    UHLD
00637  M01S00616.scrsim  +++|          SA1    REGF
00638  M01S00617.scrsim  +++|          ZR     X1,CLP4     IF CHANNEL 16 REGISTER
00639  M01S00618.scrsim  +++|          SA0    LHLD
00640  M01S00619.scrsim  +++| CLP4     SX0    B1          SET CLEAR BIT FLAG
00641  M01S00620.scrsim  +++|          RJ     CBV         CHANGE BIT VALUES
00642  M01S00621.scrsim  +++| CLP5     SA1    CLP-1       GET RETURN ADDRESS
00643  M01S00622.scrsim  +++|          SB7    X1+
00644  M01S00623.scrsim  +++|          JP     B7
00645  M01S00624.scrsim  +++|
00646  M01S00625.scrsim  +++| CLPA     DIS    3,MAXIMUM NUMBER OF ARGUMENTS.
00647  M01S00626.scrsim  +++|          BSSZ   1
00648  M01S00627.scrsim  +++| CYP      SPACE  4,25
00649  M01S00628.scrsim  +++|***       CYCLE,X,T,R.
00650  M01S00629.scrsim  +++|*                SET BIT X EVERY T PERIODS A TOTAL OF R TIMES.  X IS
00651  M01S00630.scrsim  +++|*                THE BIT NUMBER (0-203) AND R THE NUMBER OF TIMES TO
00652  M01S00631.scrsim  +++|*                SET THE BIT.  R MAY NOT EXCEED 4095.  T IS THE
00653  M01S00632.scrsim  +++|*                NUMBER OF TIME PERIODS FOR EACH CYCLE, ONE PERIOD
00654  M01S00633.scrsim  +++|*                BEING 16 MILLISECONDS.  T=32 IS APPROXIMATELY ONE HALF
00655  M01S00634.scrsim  +++|*                SECOND.  THIS COMMAND ASSUMES CONTROL OF THE
00656  M01S00635.scrsim  +++|*                SIMULATOR FOR THE TOTAL TIME PERIOD SPECIFIED, AND
00657  M01S00636.scrsim  +++|*                NO COMMAND WILL BE ACCEPTED EXCEPT *END*.  BIT X
00658  M01S00637.scrsim  +++|*                IS SET IN THE HOLDING REGISTER BY THIS COMMAND.
00659  M01S00638.scrsim  +++|*
00660  M01S00639.scrsim  +++|*         END.
00661  M01S00640.scrsim  +++|*                END *CYCLE* COMMAND PROCESSING BEFORE R HAS BEEN
00662  M01S00641.scrsim  +++|*                REACHED.  CONTROL OF THE SIMULATOR IS RETURNED TO
00663  M01S00642.scrsim  +++|*                THE OPERATOR.
00664  M01S00643.scrsim  +++|
00665  M01S00644.scrsim  +++|**        CYP -  CYCLE BIT AT GIVEN INTERVAL.
00666  M01S00645.scrsim  +++|*
00667  M01S00646.scrsim  +++|*         EXIT   BIT SET ON *K* DISPLAY.
00668  M01S00647.scrsim  +++|*
00669  M01S00648.scrsim  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00670  M01S00649.scrsim  +++|*                B - 6, 7.
00671  M01S00650.scrsim  +++|*                A - 0, 1, 2, 3, 5, 6, 7.
00672  M01S00651.scrsim  +++|*
00673  M01S00652.scrsim  +++|*         CALLS  GPV, DYL, DEB, SSR.
00674  M01S00653.scrsim  +++|
00675  M01S00654.scrsim  +++|
00676  M01S00655.scrsim  +++|          DATA   0           RETURN ADDRESS
00677  M01S00656.scrsim  +++| CYP      BSS    0
00678  M01S00657.scrsim  +++|          SA2    I
00679  M01S00658.scrsim  +++|          SB6    6           CHARACTER COUNT
00680  M01S00659.scrsim  +++|          LX2    36
00681  M01S00660.scrsim  +++|          MX0    -6
00682  M01S00661.scrsim  +++|          BX6    -X0*X2
00683  M01S00662.scrsim  +++|          SX7    X6-1R)
00684  M01S00663.scrsim  +++|          ZR     X7,CYP2     IF *)*
00685  M01S00664.scrsim  +++|          SX7    X6-1R.
00686  M01S00665.scrsim  +++|          ZR     X7,CYP2     IF *.*
00687  M01S00666.scrsim  +++|          SA0    3
00688  M01S00667.scrsim  +++| CYP1     RJ     GPV         GET PARAMETER VALUE
00689  M01S00668.scrsim  +++|          ZR     X1,CYP11    IF ERROR
00690  M01S00669.scrsim  +++|          SA0    A0-B1
00691  M01S00670.scrsim  +++|          SX0    A0
00692  M01S00671.scrsim  +++|          SA6    PARA+A0     SAVE PARAMETER
00693  M01S00672.scrsim  +++|          ZR     X0,CYP3     IF ALL PARAMETERS FOUND
00694  M01S00673.scrsim  +++|          SX6    X1-1R)
00695  M01S00674.scrsim  +++|          ZR     X6,CYP2     IF *)* TERMINATOR
00696  M01S00675.scrsim  +++|          SX6    X1-1R.
00697  M01S00676.scrsim  +++|          ZR     X6,CYP2     IF *.* TERMINATOR
00698  M01S00677.scrsim  +++|          EQ     CYP1
00699  M01S00678.scrsim  +++|
00700  M01S00679.scrsim  +++| CYP2     MOVE   3,CYPA,MSGL *NOT ENOUGH ARGUMENTS.*
00701  M01S00680.scrsim  +++|          MOVE   3,CYPA,MSGK
00702  M01S00681.scrsim  +++|          EQ     CYP11
00703  M01S00682.scrsim  +++|
00704  M01S00683.scrsim  +++| CYP3     SA5    PARA+2      BIT NUMBER
00705  M01S00684.scrsim  +++|          SX7    X5-NBIT
00706  M01S00685.scrsim  +++|          NG     X7,CYP4     IF LEGAL BIT NUMBER
Line S00686 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00707  M02S00686.v23l617 ---|          MOVE   3,CYPB,MSGL *ILLEGAL BIT NUMBER.*
00708  M01S00017.v23l617 +++|          MOVE   3,CYPB,MSGL *INCORRECT BIT NUMBER.*
00709  M01S00687.scrsim  +++|          MOVE   3,CYPB,MSGK
00710  M01S00688.scrsim  +++|          EQ     CYP11
00711  M01S00689.scrsim  +++|
00712  M01S00690.scrsim  +++|*         SET BIT IN HOLDING REGISTER.
00713  M01S00691.scrsim  +++|
00714  M01S00692.scrsim  +++| CYP4     SA0    UHLD
00715  M01S00693.scrsim  +++|          SA1    REGF
00716  M01S00694.scrsim  +++|          ZR     X1,CYP5     IF CHANNEL 16 REGISTER
00717  M01S00695.scrsim  +++|          SA0    LHLD
00718  M01S00696.scrsim  +++| CYP5     SX7    60
00719  M01S00697.scrsim  +++|          SX6    X5+
00720  M01S00698.scrsim  +++|          SA6    CYPI        SAVE BIT NUMBER
00721  M01S00699.scrsim  +++|          IX7    X6/X7       WORD NUMBER
00722  M01S00700.scrsim  +++|          SB7    X7+
00723  M01S00701.scrsim  +++|          SA0    A0+B7       SET WORD ADDRESS
00724  M01S00702.scrsim  +++|          SX6    60
00725  M01S00703.scrsim  +++|          IX6    X6*X7
00726  M01S00704.scrsim  +++|          IX6    X5-X6       BIT ORDINAL IN WORD
00727  M01S00705.scrsim  +++|          MX0    59
00728  M01S00706.scrsim  +++|          SB7    X6
00729  M01S00707.scrsim  +++|          LX0    B7
00730  M01S00708.scrsim  +++|          SA1    A0          GET HOLDING WORD
00731  M01S00709.scrsim  +++|          SX7    B1
00732  M01S00710.scrsim  +++|          LX7    B7
00733  M01S00711.scrsim  +++|          BX1    X0*X1
00734  M01S00712.scrsim  +++|          BX6    X7+X1       SET BIT
00735  M01S00713.scrsim  +++|          SA6    A0+
00736  M01S00714.scrsim  +++|          RJ     DYL         DISPLAY LINE
00737  M01S00715.scrsim  +++|
00738  M01S00716.scrsim  +++|*         GET TIME PARAMETERS.
00739  M01S00717.scrsim  +++|
00740  M01S00718.scrsim  +++|          SA5    PARA+1      TIME INTERVAL
00741  M01S00719.scrsim  +++|          SX6    X5+
00742  M01S00720.scrsim  +++|          SA6    CYPE        SAVE INTERVAL
00743  M01S00721.scrsim  +++|          SA5    A5-B1       NUMBER OF CYCLES
00744  M01S00722.scrsim  +++|          BX7    X5
00745  M01S00723.scrsim  +++|          SX5    X5-4096
00746  M01S00724.scrsim  +++|          PL     X5,CYP17    IF NUMBER TOO LARGE
00747  M01S00725.scrsim  +++|
00748  M01S00726.scrsim  +++|*         SEND SET BIT TO STATUS AND CONTROL REGISTER.
00749  M01S00727.scrsim  +++|
00750  M01S00728.scrsim  +++| CYP6     SA7    CYPF        SAVE NUMBER OF CYCLES
00751  M01S00729.scrsim  +++|          SA1    REGF
00752  M01S00730.scrsim  +++|          SX6    5
00753  M01S00731.scrsim  +++|          IX5    X1*X6
00754  M01S00732.scrsim  +++|          LX1    59
00755  M01S00733.scrsim  +++|          SA2    CYPI
00756  M01S00734.scrsim  +++|          SX7    4000B
00757  M01S00735.scrsim  +++|          BX7    X2+X7       BIT NUMBER AND SET BIT CODE
00758  M01S00736.scrsim  +++|          LX7    12
00759  M01S00737.scrsim  +++|          BX6    X1+X7       SET BIT 59 IF CHANNEL 36
00760  M01S00738.scrsim  +++|          SA6    PW16+X5     SET PARAMETER WORD
00761  M01S00739.scrsim  +++|          SA0    A6+
00762  M01S00740.scrsim  +++|          SA1    CYPE
00763  M01S00741.scrsim  +++|          SX6    X1-32
00764  M01S00742.scrsim  +++|          NG     X6,CYP13    IF INTERVAL LESS THAN HALF SECOND
00765  M01S00743.scrsim  +++| CYP7     RJ     SSR         SEND SYSTEM REQUEST
Line S00744 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00766  M02S00744.ns2052  ---|          NZ     X6,CYP12    IF ERROR
00767  M01S00745.scrsim  +++|          RTIME  CYPG
00768  M01S00746.scrsim  +++|          SA5    CYPF
00769  M01S00747.scrsim  +++|          SX5    X5-1
00770  M01S00748.scrsim  +++|          ZR     X5,CYP10    IF TIME LIMIT UP
00771  M01S00749.scrsim  +++|          SA1    I
00772  M01S00750.scrsim  +++|          SA2    =5LCYCLE
00773  M01S00751.scrsim  +++|          BX6    X1-X2
00774  M01S00752.scrsim  +++|          MX0    30
00775  M01S00753.scrsim  +++|          BX6    X0*X6
00776  M01S00754.scrsim  +++|          ZR     X6,CYP8     IF NO INPUT ENTERED
00777  M01S00755.scrsim  +++|          MX0    18
00778  M01S00756.scrsim  +++|          SA2    =3LEND
00779  M01S00757.scrsim  +++|          BX6    X1-X2
00780  M01S00758.scrsim  +++|          BX6    X0*X6
00781  M01S00759.scrsim  +++|          ZR     X6,CYP16    IF *END*
00782  M01S00760.scrsim  +++|          MOVE   3,CYPJ,MSGL *CYCLE STILL PROCESSING.*
00783  M01S00761.scrsim  +++|          MOVE   3,CYPJ,MSGK
00784  M01S00762.scrsim  +++|
00785  M01S00763.scrsim  +++|*         LOOP FOR TIME INTERVAL.
00786  M01S00764.scrsim  +++|
00787  M01S00765.scrsim  +++| CYP8     RTIME  CYPH
00788  M01S00766.scrsim  +++|          SA1    CYPE
00789  M01S00767.scrsim  +++|          SA2    CYPG        GET REAL TIME
00790  M01S00768.scrsim  +++|          MX7    -32
00791  M01S00769.scrsim  +++|          AX2    4
00792  M01S00770.scrsim  +++|          SA3    CYPH        GET PRESENT TIME
00793  M01S00771.scrsim  +++|          BX2    -X7*X2
00794  M01S00772.scrsim  +++|          AX3    4
00795  M01S00773.scrsim  +++|          BX3    -X7*X3
00796  M01S00774.scrsim  +++|          IX3    X3-X2
00797  M01S00775.scrsim  +++|          IX3    X3-X1
00798  M01S00776.scrsim  +++|          PL     X3,CYP9     IF TIME TO RESET BIT
00799  M01S00777.scrsim  +++|          RJ     DCR         DISPLAY CONTENTS OF REGISTER
00800  M01S00778.scrsim  +++|          RECALL
00801  M01S00779.scrsim  +++|          EQ     CYP8
00802  M01S00780.scrsim  +++|
00803  M01S00781.scrsim  +++| CYP9     SA5    CYPF        DECREMENT NUMBER OF CYCLES
00804  M01S00782.scrsim  +++|          SX6    X5-1
00805  M01S00783.scrsim  +++|          SA6    A5
00806  M01S00784.scrsim  +++|          EQ     CYP7
00807  M01S00785.scrsim  +++|
00808  M01S00786.scrsim  +++| CYP10    MOVE   3,CYPD,MSGL *TIME LIMIT UP.*
00809  M01S00787.scrsim  +++|          MOVE   3,CYPD,MSGK
00810  M01S00788.scrsim  +++| CYP11    RJ     DCR         DISPLAY CONTENTS OF REGISTER
00811  M01S00789.scrsim  +++|          SA1    CYP-1       GET RETURN ADDRESS
00812  M01S00790.scrsim  +++|          SB7    X1+
00813  M01S00791.scrsim  +++|          JP     B7
00814  M01S00792.scrsim  +++|
Line S00793 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00793.ns2052  ---| CYP12    BX7    -X0*X1      CLEAR ERROR
Line S00794 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00816  M02S00794.ns2052  ---|          SA7    A1
Line S00795 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00795.ns2052  ---|          LX6    12
Line S00796 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00818  M02S00796.ns2052  ---|          SX1    X6
Line S00797 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00797.ns2052  ---|          RJ     COD         CONSTANT TO OCTAL DISPLAY CODE
Line S00798 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00798.ns2052  ---|          BX6    X4          STORE LEFT JUSTIFIED CODE
Line S00799 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00799.ns2052  ---|          SA6    CYPK+1
Line S00800 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00800.ns2052  ---|          MOVE   3,CYPK,MSGL *HFM ERROR N*
Line S00801 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00801.ns2052  ---|          MOVE   3,CYPK,MSGK
Line S00802 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00802.ns2052  ---|          EQ     CYP11
Line S00803 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00803.ns2052  ---|
00826  M01S00804.scrsim  +++|*         PROCESS FUNCTION WITH INTERVAL LESS THAN HALF SECOND.
00827  M01S00805.scrsim  +++|
00828  M01S00806.scrsim  +++| CYP13    SX1    B1          SET LESS THAN HALF SECOND FLAG
00829  M01S00807.scrsim  +++|          LX1    58-0
00830  M01S00808.scrsim  +++|          SA2    CYPE
00831  M01S00809.scrsim  +++|          LX2    36
00832  M01S00810.scrsim  +++|          SA3    CYPF
00833  M01S00811.scrsim  +++|          LX3    24
00834  M01S00812.scrsim  +++|          BX6    X2+X3       TIME INTERVAL AND LIMIT
00835  M01S00813.scrsim  +++|          BX6    X1+X6
00836  M01S00814.scrsim  +++|          SA1    A6          GET PARAMETER WORD
00837  M01S00815.scrsim  +++|          BX7    X1+X6
00838  M01S00816.scrsim  +++|          SA7    A6
00839  M01S00817.scrsim  +++|          RJ     SSR         SEND SYSTEM REQUEST
Line S00818 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00840  M02S00818.ns2052  ---|          NZ     X6,CYP12    IF ERROR
00841  M01S00819.scrsim  +++| CYP14    SA1    A0          GET PARAMETER WORD
00842  M01S00820.scrsim  +++|          LX1    59-58
00843  M01S00821.scrsim  +++|          PL     X1,CYP10    IF TIME LIMIT UP
00844  M01S00822.scrsim  +++|          SA1    I
00845  M01S00823.scrsim  +++|          SA2    =5LCYCLE
00846  M01S00824.scrsim  +++|          BX6    X1-X2
00847  M01S00825.scrsim  +++|          MX0    30
00848  M01S00826.scrsim  +++|          BX6    X0*X6
00849  M01S00827.scrsim  +++|          ZR     X6,CYP15    IF NO INPUT ENTERED
00850  M01S00828.scrsim  +++|          SA2    =3LEND
00851  M01S00829.scrsim  +++|          BX6    X1-X2
00852  M01S00830.scrsim  +++|          MX0    18
00853  M01S00831.scrsim  +++|          BX6    X0*X6
00854  M01S00832.scrsim  +++|          ZR     X6,CYP16    IF *END*
00855  M01S00833.scrsim  +++|          MOVE   3,CYPJ,MSGL *CYCLE STILL PROCESSING.*
00856  M01S00834.scrsim  +++|          MOVE   3,CYPJ,MSGK
00857  M01S00835.scrsim  +++| CYP15    RECALL
00858  M01S00836.scrsim  +++|          EQ     CYP14
00859  M01S00837.scrsim  +++|
00860  M01S00838.scrsim  +++|*         PROCESS *END* COMMAND.
00861  M01S00839.scrsim  +++|
00862  M01S00840.scrsim  +++| CYP16    MOVE   5,I,PARL    DISPLAY COMMAND
00863  M01S00841.scrsim  +++|          MOVE   5,I,PARK
00864  M01S00842.scrsim  +++|          MOVE   4,BLNK,PARL+1
00865  M01S00843.scrsim  +++|          MOVE   4,BLNK,PARK+1
00866  M01S00844.scrsim  +++|          MESSAGE I,3        ENTER COMMAND IN JOB DAYFILE
00867  M01S00845.scrsim  +++|          MOVE   3,BLNK,MSGL CLEAR ANY ERROR MESSAGE
00868  M01S00846.scrsim  +++|          MOVE   3,BLNK,MSGK
00869  M01S00847.scrsim  +++|          MX0    59          CLEAR HALF SECOND INTERVAL FLAG
00870  M01S00848.scrsim  +++|          LX0    58
00871  M01S00849.scrsim  +++|          SA1    A0
00872  M01S00850.scrsim  +++|          BX6    X0*X1
00873  M01S00851.scrsim  +++|          SA6    A1+
00874  M01S00852.scrsim  +++|          RECALL
00875  M01S00853.scrsim  +++|          EQ     CYP11
00876  M01S00854.scrsim  +++|
00877  M01S00855.scrsim  +++| CYP17    MOVE   3,CYPC,MSGL *NUMBER OF CYCLES TOO LARGE.*
00878  M01S00856.scrsim  +++|          MOVE   3,CYPC,MSGK
00879  M01S00857.scrsim  +++|          EQ     CYP11
00880  M01S00858.scrsim  +++|
00881  M01S00859.scrsim  +++| CYPA     DIS    3,NOT ENOUGH ARGUMENTS.
00882  M01S00860.scrsim  +++|          BSSZ   1
Line S00861 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00883  M02S00861.v23l617 ---| CYPB     DIS    3,ILLEGAL BIT NUMBER.
00884  M01S00018.v23l617 +++| CYPB     DIS    3,INCORRECT BIT NUMBER.
00885  M01S00862.scrsim  +++|          BSSZ   1
00886  M01S00863.scrsim  +++| CYPC     DIS    3,NUMBER OF CYCLES TOO LARGE.
00887  M01S00864.scrsim  +++|          BSSZ   1
00888  M01S00865.scrsim  +++| CYPD     DIS    3,TIME LIMIT UP.
00889  M01S00866.scrsim  +++|          BSSZ   1
00890  M01S00867.scrsim  +++| CYPE     BSSZ   1           TIME INTERVAL
00891  M01S00868.scrsim  +++| CYPF     BSSZ   1           NUMBER OF CYCLES
00892  M01S00869.scrsim  +++| CYPG     BSSZ   1           REAL TIME
00893  M01S00870.scrsim  +++| CYPH     BSSZ   1           REAL TIME COMPARE
00894  M01S00871.scrsim  +++| CYPI     BSSZ   1           BIT NUMBER
00895  M01S00872.scrsim  +++| CYPJ     DIS    3,CYCLE STILL PROCESSING.
00896  M01S00873.scrsim  +++|          BSSZ   1
Line S00874 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00874.ns2052  ---| CYPK     DIS    3,HFM ERROR
Line S00875 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00875.ns2052  ---|          BSSZ   1
00899  M01S00876.scrsim  +++| GOP      SPACE  4,15
00900  M01S00877.scrsim  +++|***       GO.
00901  M01S00878.scrsim  +++|*                THIS COMMAND CAUSES THE CONTENTS OF THE HOLDING
00902  M01S00879.scrsim  +++|*                REGISTERS TO BE TRANSFERRED TO THE ACTUAL STATUS
00903  M01S00880.scrsim  +++|*                AND CONTROL REGISTERS OR INTERLOCK REGISTER.  NO
00904  M01S00881.scrsim  +++|*                BITS ARE CHANGED IN VALUE IN THE HOLDING REGISTERS
00905  M01S00882.scrsim  +++|*                BY THIS COMMAND.
00906  M01S00883.scrsim  +++|
00907  M01S00884.scrsim  +++|**        GOP -  TRANSFER HOLDING REGISTERS TO S/C REGISTERS.
00908  M01S00885.scrsim  +++|*
00909  M01S00886.scrsim  +++|*         EXIT   HOLDING REGISTERS TRANSFERRED TO PROPER STATUS AND
00910  M01S00887.scrsim  +++|*                CONTROL REGISTER.
00911  M01S00888.scrsim  +++|*
Line S00889 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00889.ns2052  ---|*         USES   X - 0, 1, 6.
00913  M01S00001.ns2052  +++|*         USES   X - 1, 6.
00914  M01S00890.scrsim  +++|*                B - 7.
00915  M01S00891.scrsim  +++|*                A - 1, 6.
00916  M01S00892.scrsim  +++|
00917  M01S00893.scrsim  +++|
00918  M01S00894.scrsim  +++|          DATA   0           RETURN ADDRESS
00919  M01S00895.scrsim  +++| GOP      BSS    0
00920  M01S00896.scrsim  +++|          SA1    CA
00921  M01S00897.scrsim  +++|          NZ     X1,GOP1     IF CHANNEL 36 NOT AVAILABLE
00922  M01S00898.scrsim  +++|
00923  M01S00899.scrsim  +++|*         SEND CHANNEL 36 DATA TO *HFM*.
00924  M01S00900.scrsim  +++|
00925  M01S00901.scrsim  +++|          SX6    B1          SET CHANNEL 36 FLAG IN PARAMETER WORD
00926  M01S00902.scrsim  +++|          LX6    59-0
00927  M01S00903.scrsim  +++|          SA6    PW36
00928  M01S00904.scrsim  +++|          SYSTEM HFM,R,PW36,0
Line S00905 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00929  M02S00905.ns2052  ---|          SA1    PW36        CHECK FOR ERROR
Line S00906 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00930  M02S00906.ns2052  ---|          MX0    10
Line S00907 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00907.ns2052  ---|          LX0    -2
Line S00908 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00908.ns2052  ---|          BX6    X0*X1
Line S00909 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00909.ns2052  ---|          ZR     X6,GOP1     IF NO ERROR
Line S00910 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00910.ns2052  ---|          BX7    -X0*X1      CLEAR ERROR
Line S00911 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00911.ns2052  ---|          SA7    A1+
Line S00912 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00936  M02S00912.ns2052  ---|          LX6    12
Line S00913 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00913.ns2052  ---|          SX1    X6
Line S00914 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00938  M02S00914.ns2052  ---|          RJ     COD         CONSTANT TO OCTAL DISPLAY CODE
Line S00915 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00915.ns2052  ---|          BX6    X4          STORE LEFT JUSTIFIED CODE
Line S00916 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00916.ns2052  ---|          SA6    GOPA+1
Line S00917 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00941  M02S00917.ns2052  ---|          MOVE   3,GOPA,MSGL *HFM ERROR N*
Line S00918 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00942  M02S00918.ns2052  ---|          MOVE   3,GOPA,MSGK
Line S00919 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00919.ns2052  ---|          EQ     GOP2
00944  M01S00920.scrsim  +++|
00945  M01S00921.scrsim  +++|*         SEND CHANNEL 16 DATA TO *HFM*.
00946  M01S00922.scrsim  +++|
00947  M01S00923.scrsim  +++| GOP1     SX6    B0+         CLEAR PARAMETER WORD
00948  M01S00924.scrsim  +++|          SA6    PW16
00949  M01S00925.scrsim  +++|          SYSTEM HFM,R,PW16,0
Line S00926 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00950  M02S00926.ns2052  ---|          SA1    PW16        CHECK FOR ERROR
Line S00927 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00927.ns2052  ---|          MX0    10
Line S00928 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00952  M02S00928.ns2052  ---|          LX0    -2
Line S00929 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00953  M02S00929.ns2052  ---|          BX6    X0*X1
Line S00930 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00954  M02S00930.ns2052  ---|          ZR     X6,GOP2     IF NO ERROR
Line S00931 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00931.ns2052  ---|          BX7    -X0*X1      CLEAR ERROR
Line S00932 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00956  M02S00932.ns2052  ---|          SA7    A1+
Line S00933 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00957  M02S00933.ns2052  ---|          LX6    12
Line S00934 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00958  M02S00934.ns2052  ---|          SX1    X6
Line S00935 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00959  M02S00935.ns2052  ---|          RJ     COD         CONSTANT TO OCTAL DISPLAY CODE
Line S00936 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00960  M02S00936.ns2052  ---|          BX6    X4          STORE LEFT JUSTIFIED CODE
Line S00937 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00961  M02S00937.ns2052  ---|          SA6    GOPA+1
Line S00938 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00962  M02S00938.ns2052  ---|          MOVE   3,GOPA,MSGL *HFM ERROR N*
Line S00939 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00939.ns2052  ---|          MOVE   3,GOPA,MSGK
Line S00940 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00940.ns2052  ---| GOP2     SA1    GOP-1       GET RETURN ADDRESS
00965  M01S00002.ns2052  +++|          SA1    GOP-1       GET RETURN ADDRESS
00966  M01S00941.scrsim  +++|          SB7    X1+
00967  M01S00942.scrsim  +++|          JP     B7
Line S00943 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00968  M02S00943.ns2052  ---|
Line S00944 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00969  M02S00944.ns2052  ---| GOPA     DIS    3,HFM ERROR
Line S00945 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
00970  M02S00945.ns2052  ---|          BSSZ   1
00971  M01S00946.scrsim  +++| LIP      SPACE  4,16
00972  M01S00947.scrsim  +++|***       LINE,X,Y.
00973  M01S00948.scrsim  +++|*                SET LINE X OF THE HOLDING REGISTER TO THE OCTAL
00974  M01S00949.scrsim  +++|*                VALUE Y.  Y MAY BE UP TO 60 BITS OF OCTAL VALUE.
00975  M01S00950.scrsim  +++|*                X IS THE LINE NUMBER (0-3) FROM THE LEFT DISPLAY
00976  M01S00951.scrsim  +++|*                SCREEN, LINE 0 AT THE TOP, AND LINE 3 AT THE BOTTOM.
00977  M01S00952.scrsim  +++|
00978  M01S00953.scrsim  +++|**        LIP -  SET HOLDING REGISTER LINE TO OCTAL VALUE.
00979  M01S00954.scrsim  +++|*
00980  M01S00955.scrsim  +++|*         EXIT   SPECIFIED LINE SET TO OCTAL VALUE IN HOLDING REGISTER.
00981  M01S00956.scrsim  +++|*                VALUE DISPLAYED ON *K* DISPLAY.
00982  M01S00957.scrsim  +++|*
00983  M01S00958.scrsim  +++|*         USES   X - 0, 1, 2, 6, 7.
00984  M01S00959.scrsim  +++|*                B - 6, 7.
00985  M01S00960.scrsim  +++|*                A - 0, 1, 2, 6.
00986  M01S00961.scrsim  +++|*
00987  M01S00962.scrsim  +++|*         CALLS  GPV, GOV, DYL.
00988  M01S00963.scrsim  +++|
00989  M01S00964.scrsim  +++|
00990  M01S00965.scrsim  +++|          DATA   0           RETURN ADDRESS
00991  M01S00966.scrsim  +++| LIP      BSS    0
00992  M01S00967.scrsim  +++|          SA2    I
00993  M01S00968.scrsim  +++|          SB6    5           CHARACTER COUNTER
00994  M01S00969.scrsim  +++|          LX2    30
00995  M01S00970.scrsim  +++|          MX0    -6
00996  M01S00971.scrsim  +++|          BX6    -X0*X2
00997  M01S00972.scrsim  +++|          SX7    X6-1R)
00998  M01S00973.scrsim  +++|          ZR     X7,LIP4     IF *)*
00999  M01S00974.scrsim  +++|          SX7    X6-1R.
01000  M01S00975.scrsim  +++|          ZR     X7,LIP4     IF *.*
01001  M01S00976.scrsim  +++|
01002  M01S00977.scrsim  +++|*         GET LINE NUMBER AND OCTAL VALUE.
01003  M01S00978.scrsim  +++|
01004  M01S00979.scrsim  +++|          RJ     GPV         GET PARAMETER VALUE
01005  M01S00980.scrsim  +++|          ZR     X1,LIP2     IF ERROR
01006  M01S00981.scrsim  +++|          SX7    X6-4
Line S00982 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01007  M02S00982.v23l617 ---|          PL     X7,LIP3     IF ILLEGAL LINE NUMBER
01008  M01S00019.v23l617 +++|          PL     X7,LIP3     IF INCORRECT LINE NUMBER
01009  M01S00983.scrsim  +++|          SX7    X1-1R)
01010  M01S00984.scrsim  +++|          ZR     X7,LIP4     IF *)* TERMINATOR
01011  M01S00985.scrsim  +++|          SX7    X1-1R.
01012  M01S00986.scrsim  +++|          ZR     X7,LIP4     IF *.* TERMINATOR
01013  M01S00987.scrsim  +++|          SA1    REGF
01014  M01S00988.scrsim  +++|          SA0    UHLD
01015  M01S00989.scrsim  +++|          ZR     X1,LIP1     IF CHANNEL 16 REGISTER
01016  M01S00990.scrsim  +++|          SA0    LHLD
01017  M01S00991.scrsim  +++| LIP1     SB7    X6
01018  M01S00992.scrsim  +++|          SA0    A0+B7       LINE ADDRESS
01019  M01S00993.scrsim  +++|          RJ     GOV         GET OCTAL VALUE
01020  M01S00994.scrsim  +++|          ZR     X2,LIP2     IF ERROR
01021  M01S00995.scrsim  +++|          NZ     B4,LIP5     IF TOO MANY BITS
01022  M01S00996.scrsim  +++|
01023  M01S00997.scrsim  +++|*         INSERT VALUE INTO HOLDING REGISTER.
01024  M01S00998.scrsim  +++|
01025  M01S00999.scrsim  +++|          SA1    GOVA        GET VALUE
01026  M01S01000.scrsim  +++|          BX6    X1
01027  M01S01001.scrsim  +++|          SA6    A0
01028  M01S01002.scrsim  +++|          RJ     DYL         DISPLAY LINE
01029  M01S01003.scrsim  +++| LIP2     SA1    LIP-1       GET RETURN ADDRESS
01030  M01S01004.scrsim  +++|          SB7    X1+
01031  M01S01005.scrsim  +++|          JP     B7
01032  M01S01006.scrsim  +++|
Line S01007 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01033  M02S01007.v23l617 ---| LIP3     MOVE   3,LIPA,MSGL *ILLEGAL LINE NUMBER.*
01034  M01S00020.v23l617 +++| LIP3     MOVE   3,LIPA,MSGL *INCORRECT LINE NUMBER.*
01035  M01S01008.scrsim  +++|          MOVE   3,LIPA,MSGK
01036  M01S01009.scrsim  +++|          EQ     LIP2
01037  M01S01010.scrsim  +++|
01038  M01S01011.scrsim  +++| LIP4     MOVE   3,LIPB,MSGL *NOT ENOUGH ARGUMENTS.*
01039  M01S01012.scrsim  +++|          MOVE   3,LIPB,MSGK
01040  M01S01013.scrsim  +++|          EQ     LIP2
01041  M01S01014.scrsim  +++|
01042  M01S01015.scrsim  +++| LIP5     MOVE   3,LIPC,MSGL *TOO MANY BITS SPECIFIED.*
01043  M01S01016.scrsim  +++|          MOVE   3,LIPC,MSGK
01044  M01S01017.scrsim  +++|          EQ     LIP2
01045  M01S01018.scrsim  +++|
Line S01019 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01046  M02S01019.v23l617 ---| LIPA     DIS    3,ILLEGAL LINE NUMBER.
01047  M01S00021.v23l617 +++| LIPA     DIS    3,INCORRECT LINE NUMBER.
01048  M01S01020.scrsim  +++|          BSSZ   1
01049  M01S01021.scrsim  +++| LIPB     DIS    3,NOT ENOUGH ARGUMENTS.
01050  M01S01022.scrsim  +++|          BSSZ   1
01051  M01S01023.scrsim  +++| LIPC     DIS    3,TOO MANY BITS SPECIFIED.
01052  M01S01024.scrsim  +++|          BSSZ   1
01053  M01S01025.scrsim  +++| REP      SPACE  4,20
01054  M01S01026.scrsim  +++|***       READ.
01055  M01S01027.scrsim  +++|*                READ THE ACTUAL CONTENTS OF THE S/C REGISTER (OR
01056  M01S01028.scrsim  +++|*                INTERLOCK REGISTER) ON THE CURRENT CHANNEL INTO THE
01057  M01S01029.scrsim  +++|*                HOLDING REGISTER.
01058  M01S01030.scrsim  +++|
01059  M01S01031.scrsim  +++|**        REP - READ CURRENT CONTENTS OF S/C OR INTERLOCK REGISTER.
01060  M01S01032.scrsim  +++|*
01061  M01S01033.scrsim  +++|*         EXIT   ACTUAL CONTENTS OF S/C REGISTER (OR INTERLOCK REGISTER)
01062  M01S01034.scrsim  +++|*                ON THE CURRENT CHANNEL SET IN HOLDING REGISTER.
01063  M01S01035.scrsim  +++|*
01064  M01S01036.scrsim  +++|*         USES   X - 1, 7.
01065  M01S01037.scrsim  +++|*                B - 6, 7.
01066  M01S01038.scrsim  +++|*                A - 0, 1.
01067  M01S01039.scrsim  +++|*
01068  M01S01040.scrsim  +++|*         CALLS  DYL, RDR.
01069  M01S01041.scrsim  +++|
01070  M01S01042.scrsim  +++|
01071  M01S01043.scrsim  +++|          DATA   0           RETURN ADDRESS
01072  M01S01044.scrsim  +++| REP      BSS    0
01073  M01S01045.scrsim  +++|          SX7    UHLD        SET HOLDING REGISTER ADDRESS
01074  M01S01046.scrsim  +++|          SA1    REGF
01075  M01S01047.scrsim  +++|          ZR     X1,REP1     IF CHANNEL 16
01076  M01S01048.scrsim  +++|          SX7    LHLD        SET CHANNEL 36 HOLDING REGISTER ADDRESS
01077  M01S01049.scrsim  +++| REP1     RJ     RDR         READ REGISTER CONTENTS
01078  M01S01050.scrsim  +++|          SB6    3
01079  M01S01051.scrsim  +++| REP2     SA1    RDRB        SET LINE ADDRESS
01080  M01S01052.scrsim  +++|          SA0    X1+B6
01081  M01S01053.scrsim  +++|          RJ     DYL         DISPLAY LINE
01082  M01S01054.scrsim  +++|          SB6    B6-B1
01083  M01S01055.scrsim  +++|          PL     B6,REP2     IF NOT END OF REGISTER
01084  M01S01056.scrsim  +++|          SA1    REP-1       GET RETURN ADDRESS
01085  M01S01057.scrsim  +++|          SB7    X1+
01086  M01S01058.scrsim  +++|          JP     B7          RETURN
01087  M01S01059.scrsim  +++| SEP      SPACE  4,15
01088  M01S01060.scrsim  +++|***       SET,A,B,...,Z.
01089  M01S01061.scrsim  +++|*                SET BITS A,B,...,Z IN THE HOLDING REGISTER, WHERE
01090  M01S01062.scrsim  +++|*                A,B,...,Z ARE BIT NUMBERS (0-203).  DECIMAL VALUES
01091  M01S01063.scrsim  +++|*                ARE ASSUMED, BUT EACH MAY HAVE A POSTRADIX OF D OR B.
01092  M01S01064.scrsim  +++|*                IF MORE THAN 30 BIT NUMBERS ARE ENTERED, ONLY THE
01093  M01S01065.scrsim  +++|*                FIRST 30 WILL BE PROCESSED.  ALL OTHERS WILL BE
01094  M01S01066.scrsim  +++|*                IGNORED.
01095  M01S01067.scrsim  +++|
01096  M01S01068.scrsim  +++|**        SEP -  SET BITS IN HOLDING REGISTERS.
01097  M01S01069.scrsim  +++|*
01098  M01S01070.scrsim  +++|*         EXIT   BITS SET IN HOLDING REGISTER.
01099  M01S01071.scrsim  +++|*                BITS DISPLAYED ON *K* DISPLAY.
01100  M01S01072.scrsim  +++|*
01101  M01S01073.scrsim  +++|*         USES   X - 0, 1, 2, 6.
01102  M01S01074.scrsim  +++|*                B - 6, 7.
01103  M01S01075.scrsim  +++|*                A - 0, 1, 2, 6.
01104  M01S01076.scrsim  +++|*
01105  M01S01077.scrsim  +++|*         CALLS  GPV, CBV.
01106  M01S01078.scrsim  +++|
01107  M01S01079.scrsim  +++|
01108  M01S01080.scrsim  +++|          DATA   0           RETURN ADDRESS
01109  M01S01081.scrsim  +++| SEP      BSS    0
01110  M01S01082.scrsim  +++|          SA2    I
01111  M01S01083.scrsim  +++|          SB6    B0+
01112  M01S01084.scrsim  +++|          LX2    24
01113  M01S01085.scrsim  +++|          SA0    B0
01114  M01S01086.scrsim  +++|          MX0    -6
01115  M01S01087.scrsim  +++|          BX6    -X0*X2
01116  M01S01088.scrsim  +++|          SX1    X6-1R)
01117  M01S01089.scrsim  +++|          ZR     X1,SEP4     IF *)*
01118  M01S01090.scrsim  +++|          SX1    X6-1R.
01119  M01S01091.scrsim  +++|          ZR     X1,SEP4     IF *.*
01120  M01S01092.scrsim  +++|          SB6    4           CHARACTER COUNTER
01121  M01S01093.scrsim  +++|
01122  M01S01094.scrsim  +++|*         GET BIT NUMBERS.
01123  M01S01095.scrsim  +++|
01124  M01S01096.scrsim  +++| SEP1     RJ     GPV         GET PARAMETER VALUE
01125  M01S01097.scrsim  +++|          ZR     X1,SEP5     IF ERROR
01126  M01S01098.scrsim  +++|          SA6    PARA+A0
01127  M01S01099.scrsim  +++|          SA0    A0+B1       CHECK FOR MAXIMUM NUMBER OF PARAMETERS
01128  M01S01100.scrsim  +++|          SX0    A0
01129  M01S01101.scrsim  +++|          SX6    X1-1R)
01130  M01S01102.scrsim  +++|          ZR     X6,SEP3     IF *)*
01131  M01S01103.scrsim  +++|          SX6    X1-1R.
01132  M01S01104.scrsim  +++|          ZR     X6,SEP3     IF *.*
01133  M01S01105.scrsim  +++|          SX0    X0-MNOP
01134  M01S01106.scrsim  +++|          ZR     X0,SEP2     IF MAXIMUM NUMBER OF PARAMETERS
01135  M01S01107.scrsim  +++|          EQ     SEP1
01136  M01S01108.scrsim  +++|
01137  M01S01109.scrsim  +++| SEP2     MOVE   3,SEPA,MSGL *MAXIMUM NUMBER OF ARGUMENTS.*
01138  M01S01110.scrsim  +++|          MOVE   3,SEPA,MSGK
01139  M01S01111.scrsim  +++| SEP3     SB6    A0+         NUMBER OF BITS SPECIFIED
01140  M01S01112.scrsim  +++|          SA0    UHLD
01141  M01S01113.scrsim  +++|          SA1    REGF
01142  M01S01114.scrsim  +++|          ZR     X1,SEP4     IF CHANNEL 16 REGISTER
01143  M01S01115.scrsim  +++|          SA0    LHLD
01144  M01S01116.scrsim  +++| SEP4     SX0    B0          SET SET BIT FLAG
01145  M01S01117.scrsim  +++|          RJ     CBV         CHANGE BIT VALUES
01146  M01S01118.scrsim  +++| SEP5     SA1    SEP-1       GET RETURN ADDRESS
01147  M01S01119.scrsim  +++|          SB7    X1+
01148  M01S01120.scrsim  +++|          JP     B7
01149  M01S01121.scrsim  +++|
01150  M01S01122.scrsim  +++| SEPA     DIS    3,MAXIMUM NUMBER OF ARGUMENTS.
01151  M01S01123.scrsim  +++|          BSSZ   1
01152  M01S01124.scrsim  +++| STP      SPACE  4,4
01153  M01S01125.scrsim  +++|***       STOP.
01154  M01S01126.scrsim  +++|*                THIS COMMAND CAUSES THE SIMULATOR TO END PROCESSING.
01155  M01S01127.scrsim  +++|
01156  M01S01128.scrsim  +++|**        STP -  END SIMULATOR.
01157  M01S01129.scrsim  +++|
01158  M01S01130.scrsim  +++|
01159  M01S01131.scrsim  +++|          DATA   0           RETURN ADDRESS
01160  M01S01132.scrsim  +++| STP      BSS    0
01161  M01S01133.scrsim  +++|          MESSAGE STPA       *END SIMULATOR.*
01162  M01S01134.scrsim  +++|          WRITEF OT          CAUSE DAYFILE TO PRINT
01163  M01S01135.scrsim  +++|          ENDRUN
01164  M01S01136.scrsim  +++|
01165  M01S01137.scrsim  +++| STPA     DIS    3, END SIMULATOR.
01166  M01S01138.scrsim  +++| TOP      SPACE  4,18
01167  M01S01139.scrsim  +++|***       +.
01168  M01S01140.scrsim  +++|*                THIS COMMAND TOGGLES THE *K* DISPLAY BETWEEN THE
01169  M01S01141.scrsim  +++|*                CHANNEL 16 AND CHANNEL 36 REGISTER DISPLAYS AND ALSO
01170  M01S01142.scrsim  +++|*                CHANGES THE REGISTER CURRENTLY BEING WORKED ON IF
01171  M01S01143.scrsim  +++|*                THE SIMULATOR IS BEING OPERATED ON A CYBER 170 WITH
01172  M01S01144.scrsim  +++|*                TWO S/C REGISTERS.  OTHERWISE, NO ACTION IS TAKEN.
01173  M01S01145.scrsim  +++|*                THE CHANNEL 16 REGISTER IS ASSUMED WHEN THE SIMULATOR
01174  M01S01146.scrsim  +++|*                BEGINS.  THE REGISTER CURRENTLY DISPLAYED IS THE
01175  M01S01147.scrsim  +++|*                HOLDING REGISTER WHICH THE OTHER COMMANDS AFFECT.
01176  M01S01148.scrsim  +++|
01177  M01S01149.scrsim  +++|**        TOP -  TOGGLE REGISTER IN USE.
01178  M01S01150.scrsim  +++|*
01179  M01S01151.scrsim  +++|*         EXIT   REGISTER IN USE FLAG TOGGLED.
01180  M01S01152.scrsim  +++|*                *K* DISPLAY CHANGED TO REFLECT REGISTER BEING USED.
01181  M01S01153.scrsim  +++|*
01182  M01S01154.scrsim  +++|*         USES   X - 0, 1, 2, 6, 7.
01183  M01S01155.scrsim  +++|*                B - 7.
01184  M01S01156.scrsim  +++|*                A - 1, 2, 6, 7.
01185  M01S01157.scrsim  +++|
01186  M01S01158.scrsim  +++|
01187  M01S01159.scrsim  +++|          DATA   0           RETURN ADDRESS
01188  M01S01160.scrsim  +++| TOP      BSS    0
01189  M01S01161.scrsim  +++|          MX0    42
01190  M01S01162.scrsim  +++|          SA2    K           CLEAR LEFT SCREEN FIELD
01191  M01S01163.scrsim  +++|          BX2    X0*X2
01192  M01S01164.scrsim  +++|          SA1    REGF
01193  M01S01165.scrsim  +++|          ZR     X1,TOP1     IF CHANNEL 16 IN USE
01194  M01S01166.scrsim  +++|
01195  M01S01167.scrsim  +++|*         CHANGE TO CHANNEL 16 DISPLAY FROM CHANNEL 36.
01196  M01S01168.scrsim  +++|
01197  M01S01169.scrsim  +++|          SX7    L16         SET CHANNEL 16 DISPLAY ADDRESS
01198  M01S01170.scrsim  +++|          BX7    X2+X7
01199  M01S01171.scrsim  +++|          SA7    A2
01200  M01S01172.scrsim  +++|          CONSOLE K          TOGGLE DISPLAY
01201  M01S01173.scrsim  +++|          SX6    B0+         SET CHANNEL 16 REGISTER
01202  M01S01174.scrsim  +++|          SA6    REGF
01203  M01S01175.scrsim  +++|          EQ     TOP2
01204  M01S01176.scrsim  +++|
01205  M01S01177.scrsim  +++|*         CHANGE TO CHANNEL 36 DISPLAY IF AVAILABLE.
01206  M01S01178.scrsim  +++|
01207  M01S01179.scrsim  +++| TOP1     SA1    CA
01208  M01S01180.scrsim  +++|          NZ     X1,TOP2     IF CHANNEL 36 NOT AVAILABLE
01209  M01S01181.scrsim  +++|          SX7    L36         SET CHANNEL 36 DISPLAY ADDRESS
01210  M01S01182.scrsim  +++|          BX7    X2+X7
01211  M01S01183.scrsim  +++|          SA7    A2
01212  M01S01184.scrsim  +++|          CONSOLE K          TOGGLE DISPLAY
01213  M01S01185.scrsim  +++|          SX6    B1+         SET CHANNEL 36 REGISTER
01214  M01S01186.scrsim  +++|          SA6    REGF
01215  M01S01187.scrsim  +++| TOP2     SA1    TOP-1       GET RETURN ADDRESS
01216  M01S01188.scrsim  +++|          SB7    X1+
01217  M01S01189.scrsim  +++|          JP     B7
01218  M01S01190.scrsim  +++| CBV      TITLE  SECONDARY SUBROUTINES.
01219  M01S01191.scrsim  +++|**        CBV -  CHANGE BIT VALUES.
01220  M01S01192.scrsim  +++|*
01221  M01S01193.scrsim  +++|*         ENTRY  (A0) = REGISTER ADDRESS.
01222  M01S01194.scrsim  +++|*                (X0) = SET/CLEAR BIT FLAG.
01223  M01S01195.scrsim  +++|*                (B6) = NUMBER OF BITS SPECIFIED.
01224  M01S01196.scrsim  +++|*                BIT NUMBERS UNPACKED INTO PARA.
01225  M01S01197.scrsim  +++|*
01226  M01S01198.scrsim  +++|*         EXIT   SPECIFIED BITS CHANGED IN VALUE.
01227  M01S01199.scrsim  +++|*                CHANGED BITS DISPLAYED ON *K* DISPLAY.
01228  M01S01200.scrsim  +++|*
01229  M01S01201.scrsim  +++|*         USES   X - 1, 6, 7.
01230  M01S01202.scrsim  +++|*                B - 6, 7.
01231  M01S01203.scrsim  +++|*                A - 0, 1, 6, 7.
01232  M01S01204.scrsim  +++|*
01233  M01S01205.scrsim  +++|*         CALLS  DYL.
01234  M01S01206.scrsim  +++|
01235  M01S01207.scrsim  +++|
01236  M01S01208.scrsim  +++| CBV      SUBR               ENTRY/EXIT
01237  M01S01209.scrsim  +++|          SX7    X0+         SAVE FLAG
01238  M01S01210.scrsim  +++|          SA7    CBVC
01239  M01S01211.scrsim  +++|          NZ     B6,CBV1     IF BITS SPECIFIED
01240  M01S01212.scrsim  +++|          MOVE   3,CBVA,MSGL *NO BITS SPECIFIED.*
01241  M01S01213.scrsim  +++|          MOVE   3,CBVA,MSGK
01242  M01S01214.scrsim  +++|          EQ     CBVX
01243  M01S01215.scrsim  +++|
01244  M01S01216.scrsim  +++|*         GET BIT NUMBER.
01245  M01S01217.scrsim  +++|
01246  M01S01218.scrsim  +++| CBV1     SX7    PARA        ADDRESS OF FIRST PARAMETER
01247  M01S01219.scrsim  +++|          SA7    CBVD
01248  M01S01220.scrsim  +++|          SX6    A0+         SAVE REGISTER ADDRESS
01249  M01S01221.scrsim  +++|          SA6    CBVE
01250  M01S01222.scrsim  +++| CBV2     SA1    X7+         BIT NUMBER
01251  M01S01223.scrsim  +++|          SX7    X1-NBIT
01252  M01S01224.scrsim  +++|          NG     X7,CBV3     IF LEGAL BIT NUMBER
Line S01225 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01253  M02S01225.v23l617 ---|          MOVE   3,CBVB,MSGL *ILLEGAL BIT NUMBER.*
01254  M01S00022.v23l617 +++|          MOVE   3,CBVB,MSGL *INCORRECT BIT NUMBER.*
01255  M01S01226.scrsim  +++|          MOVE   3,CBVB,MSGK
01256  M01S01227.scrsim  +++|          EQ     CBVX
01257  M01S01228.scrsim  +++|
01258  M01S01229.scrsim  +++|*         FIND CORRECT BIT AND SET/CLEAR IT.
01259  M01S01230.scrsim  +++|
01260  M01S01231.scrsim  +++| CBV3     SX6    60
01261  M01S01232.scrsim  +++|          SX7    X1
01262  M01S01233.scrsim  +++|          IX7    X7/X6       WORD NUMBER
01263  M01S01234.scrsim  +++|          SX6    60
01264  M01S01235.scrsim  +++|          IX6    X7*X6
01265  M01S01236.scrsim  +++|          IX6    X1-X6       BIT ORDINAL IN WORD
01266  M01S01237.scrsim  +++|          SB7    X7
01267  M01S01238.scrsim  +++|          SA0    A0+B7       WORD ADDRESS
01268  M01S01239.scrsim  +++|          SA1    A0
01269  M01S01240.scrsim  +++|          SB7    X6+
01270  M01S01241.scrsim  +++|          MX6    59
01271  M01S01242.scrsim  +++|          LX6    B7          SET UP MASK
01272  M01S01243.scrsim  +++|          BX7    X6*X1       CLEAR BIT
01273  M01S01244.scrsim  +++|          SA1    CBVC
01274  M01S01245.scrsim  +++|          NZ     X1,CBV4     IF CLEAR BIT
01275  M01S01246.scrsim  +++|          SX6    B1+         SET BIT
01276  M01S01247.scrsim  +++|          LX6    B7
01277  M01S01248.scrsim  +++|          IX7    X6+X7
01278  M01S01249.scrsim  +++| CBV4     SA7    A0          STORE BIT
01279  M01S01250.scrsim  +++|          RJ     DYL         DISPLAY LINE
01280  M01S01251.scrsim  +++|          SB6    B6-B1
01281  M01S01252.scrsim  +++|          SA1    CBVD        SET NEXT PARAMETER ADDRESS
01282  M01S01253.scrsim  +++|          SX7    X1+B1
01283  M01S01254.scrsim  +++|          SA7    A1
01284  M01S01255.scrsim  +++|          SA1    CBVE        RESET REGISTER ADDRESS
01285  M01S01256.scrsim  +++|          SA0    X1
01286  M01S01257.scrsim  +++|          NZ     B6,CBV2     IF NOT END OF PARAMETERS
01287  M01S01258.scrsim  +++|          EQ     CBVX
01288  M01S01259.scrsim  +++|
01289  M01S01260.scrsim  +++| CBVA     DIS    3,NO BITS SPECIFIED.
01290  M01S01261.scrsim  +++|          BSSZ   1
Line S01262 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01291  M02S01262.v23l617 ---| CBVB     DIS    3,ILLEGAL BIT NUMBER.
01292  M01S00023.v23l617 +++| CBVB     DIS    3,INCORRECT BIT NUMBER.
01293  M01S01263.scrsim  +++|          BSSZ   1
01294  M01S01264.scrsim  +++| CBVC     BSSZ   1           SET/CLEAR FLAG
01295  M01S01265.scrsim  +++| CBVD     BSSZ   1           PARAMETER ADDRESS
01296  M01S01266.scrsim  +++| CBVE     BSSZ   1           REGISTER ADDRESS
01297  M01S01267.scrsim  +++| CDC      SPACE  4,8
01298  M01S01268.scrsim  +++|**        CDC -  CONVERT TEN BITS TO DISPLAY CODE.
01299  M01S01269.scrsim  +++|*
01300  M01S01270.scrsim  +++|*         ENTRY  (X1) = TEN BITS RIGHT JUSTIFIED.
01301  M01S01271.scrsim  +++|*
01302  M01S01272.scrsim  +++|*         EXIT   (X6) = DISPLAY CODED WORD.
01303  M01S01273.scrsim  +++|*
01304  M01S01274.scrsim  +++|*         USES   X - 0, 1, 4, 6, 7.
01305  M01S01275.scrsim  +++|*                B - 7.
01306  M01S01276.scrsim  +++|
01307  M01S01277.scrsim  +++|
01308  M01S01278.scrsim  +++| CDC      SUBR               ENTRY/EXIT
01309  M01S01279.scrsim  +++|          BX4    X4-X4       CLEAR ASSEMBLY
01310  M01S01280.scrsim  +++|          MX0    -1
01311  M01S01281.scrsim  +++|          SB7    10
01312  M01S01282.scrsim  +++|
01313  M01S01283.scrsim  +++|*         CONVERT ONE BIT AT A TIME TO DISPLAY CODE.
01314  M01S01284.scrsim  +++|
01315  M01S01285.scrsim  +++| CDC1     BX7    -X0*X1      GET BIT
01316  M01S01286.scrsim  +++|          LX4    -6
01317  M01S01287.scrsim  +++|          SX6    X7+1R0      CONVERT BIT TO DISPLAY CODE
01318  M01S01288.scrsim  +++|          AX1    1
01319  M01S01289.scrsim  +++|          BX4    X6+X4       ADD TO ASSEMBLY
01320  M01S01290.scrsim  +++|          SB7    B7-B1
01321  M01S01291.scrsim  +++|          NZ     B7,CDC1     IF NOT TEN BITS
01322  M01S01292.scrsim  +++|          LX4    -6
01323  M01S01293.scrsim  +++|          BX6    X4
01324  M01S01294.scrsim  +++|          EQ     CDCX
01325  M01S01295.scrsim  +++| GOV      SPACE  4,14
01326  M01S01296.scrsim  +++|**        GOV -  GET OCTAL VALUE.
01327  M01S01297.scrsim  +++|*
01328  M01S01298.scrsim  +++|*         ENTRY  (A2) = CHARACTER WORD ADDRESS.
01329  M01S01299.scrsim  +++|*                (X2) = CHARACTER WORD, NEXT CHARACTER LEFT JUSTIFIED.
01330  M01S01300.scrsim  +++|*                (B6) = CHARACTER COUNT.
01331  M01S01301.scrsim  +++|*
01332  M01S01302.scrsim  +++|*         EXIT   (B4) = NUMBER OF FULL CM WORDS OF VALUE.
01333  M01S01303.scrsim  +++|*                (B7) = NUMBER OF BITS IN LAST WORD OF VALUE.
01334  M01S01304.scrsim  +++|*                (X2) = 0 IF ERROR.
01335  M01S01305.scrsim  +++|*                VALUE STORED IN GOVA - GOVA+3.
01336  M01S01306.scrsim  +++|*
01337  M01S01307.scrsim  +++|*         USES   X - 0, 2, 3, 4, 6, 7.
01338  M01S01308.scrsim  +++|*                B - 4, 5, 6, 7.
01339  M01S01309.scrsim  +++|*                A - 2, 6, 7.
01340  M01S01310.scrsim  +++|
01341  M01S01311.scrsim  +++|
01342  M01S01312.scrsim  +++| GOV      SUBR               ENTRY/EXIT
01343  M01S01313.scrsim  +++|          BX6    X6-X6       CLEAR VALUE BUFFER
01344  M01S01314.scrsim  +++|          SA6    GOVA
01345  M01S01315.scrsim  +++|          SA6    A6+B1
01346  M01S01316.scrsim  +++|          SA6    A6+B1
01347  M01S01317.scrsim  +++|          SA6    A6+B1
01348  M01S01318.scrsim  +++|          MX0    -6
01349  M01S01319.scrsim  +++|          BX4    X4-X4       CLEAR ASSEMBLY
01350  M01S01320.scrsim  +++|          MX0    -6
01351  M01S01321.scrsim  +++|          SB7    B0          DIGIT COUNTER
01352  M01S01322.scrsim  +++|          SB4    B0+         WORD COUNTER
01353  M01S01323.scrsim  +++|          EQ     GOV2
01354  M01S01324.scrsim  +++|
01355  M01S01325.scrsim  +++|*         CHECK NEXT CHARACTER.
01356  M01S01326.scrsim  +++|
01357  M01S01327.scrsim  +++| GOV1     SB6    B6+B1
01358  M01S01328.scrsim  +++|          SB5    10
01359  M01S01329.scrsim  +++|          SB5    B6-B5
01360  M01S01330.scrsim  +++|          NZ     B5,GOV2     IF NOT END OF WORD
01361  M01S01331.scrsim  +++|          SA2    A2+B1       GET NEXT WORD
01362  M01S01332.scrsim  +++|          SB6    B0          RESET COUNTER
01363  M01S01333.scrsim  +++| GOV2     LX2    6
01364  M01S01334.scrsim  +++|          BX6    -X0*X2
01365  M01S01335.scrsim  +++|          SX7    X6-1R0
01366  M01S01336.scrsim  +++|          NG     X7,GOV5     IF ALPHABETIC CHARACTER
01367  M01S01337.scrsim  +++|          SX7    X6-1R8
01368  M01S01338.scrsim  +++|          NG     X7,GOV3     IF OCTAL NUMERIC
01369  M01S01339.scrsim  +++|          SX7    X6-1R+
01370  M01S01340.scrsim  +++|          NG     X7,GOV5     IF 8 OR 9
01371  M01S01341.scrsim  +++|          SX7    X6-1R
01372  M01S01342.scrsim  +++|          ZR     X7,GOV1     IF SPACE
01373  M01S01343.scrsim  +++|          SX7    X6-1R#
Line S01344 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01374  M02S01344.v23l617 ---|          PL     X7,GOV5     IF ILLEGAL CHARACTER
01375  M01S00024.v23l617 +++|          PL     X7,GOV5     IF INCORRECT CHARACTER
01376  M01S01345.scrsim  +++|          BX7    X4
01377  M01S01346.scrsim  +++|          SB5    B7+B4
01378  M01S01347.scrsim  +++|          ZR     B5,GOVX     IF DEFAULT VALUE
01379  M01S01348.scrsim  +++|          SA7    GOVA+B4     SAVE VALUE
01380  M01S01349.scrsim  +++|          LX3    57
01381  M01S01350.scrsim  +++|          SB5    B0
01382  M01S01351.scrsim  +++|          NG     X3,GOV6     IF 3 BIT DIGIT
01383  M01S01352.scrsim  +++|          LX3    1
01384  M01S01353.scrsim  +++|          SB5    B1
01385  M01S01354.scrsim  +++|          NG     X3,GOV6     IF 2 BIT DIGIT
01386  M01S01355.scrsim  +++|          SB5    B5+B1
01387  M01S01356.scrsim  +++|          EQ     GOV6
01388  M01S01357.scrsim  +++|
01389  M01S01358.scrsim  +++|*         ASSEMBLE OCTAL VALUE.
01390  M01S01359.scrsim  +++|
01391  M01S01360.scrsim  +++| GOV3     SX6    X6-1R0      CONVERT TO BINARY
01392  M01S01361.scrsim  +++|          LX4    3
01393  M01S01362.scrsim  +++|          BX4    X4+X6       ADD TO ASSEMBLY
01394  M01S01363.scrsim  +++|          NZ     B7,GOV4     IF NOT FIRST DIGIT OF WORD
01395  M01S01364.scrsim  +++|          NZ     B4,GOV4     IF NOT FIRST WORD
01396  M01S01365.scrsim  +++|          SX3    X6+         SAVE FIRST DIGIT
01397  M01S01366.scrsim  +++| GOV4     SB7    B7+3
01398  M01S01367.scrsim  +++|          SB5    B7-60
01399  M01S01368.scrsim  +++|          NZ     B5,GOV1     IF NOT A FULL WORD
01400  M01S01369.scrsim  +++|          BX7    X4          SAVE VALUE
01401  M01S01370.scrsim  +++|          SB7    B0
01402  M01S01371.scrsim  +++|          SA7    GOVA+B4
01403  M01S01372.scrsim  +++|          SB4    B4+B1
01404  M01S01373.scrsim  +++|          BX4    X4-X4       CLEAR ASSEMBLY
01405  M01S01374.scrsim  +++|          EQ     GOV1
01406  M01S01375.scrsim  +++|
Line S01376 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01407  M02S01376.v23l617 ---| GOV5     MOVE   3,GOVB,MSGL *ILLEGAL CHARACTER.*
01408  M01S00025.v23l617 +++| GOV5     MOVE   3,GOVB,MSGL *INCORRECT CHARACTER.*
01409  M01S01377.scrsim  +++|          MOVE   3,GOVB,MSGK
01410  M01S01378.scrsim  +++|          SX2    B0
01411  M01S01379.scrsim  +++|          EQ     GOVX
01412  M01S01380.scrsim  +++|
01413  M01S01381.scrsim  +++|*         ADJUST NUMBER OF BITS IN VALUE.
01414  M01S01382.scrsim  +++|
01415  M01S01383.scrsim  +++| GOV6     NZ     B7,GOV7     IF NOT EXACTLY A FULL LAST WORD
01416  M01S01384.scrsim  +++|          SB7    60
01417  M01S01385.scrsim  +++|          SB4    B4-B1
01418  M01S01386.scrsim  +++| GOV7     SB7    B7-B5       ADJUST NUMBER OF BITS
01419  M01S01387.scrsim  +++|          EQ     GOVX
01420  M01S01388.scrsim  +++|
01421  M01S01389.scrsim  +++| GOVA     BSS    4           VALUE
Line S01390 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01422  M02S01390.v23l617 ---| GOVB     DIS    3,ILLEGAL CHARACTER.
01423  M01S00026.v23l617 +++| GOVB     DIS    3,INCORRECT CHARACTER.
01424  M01S01391.scrsim  +++|          BSSZ   1
01425  M01S01392.scrsim  +++| GPV      SPACE  4,17
01426  M01S01393.scrsim  +++|**        GPV -  GET PARAMETER VALUE.
01427  M01S01394.scrsim  +++|*
01428  M01S01395.scrsim  +++|*         ENTRY  (A2) = CHARACTER WORD ADDRESS.
01429  M01S01396.scrsim  +++|*                (X2) = CHARACTER WORD, NEXT CHARACTER LEFT JUSTIFIED.
01430  M01S01397.scrsim  +++|*                (B6) = CHARACTER COUNT.
01431  M01S01398.scrsim  +++|*
01432  M01S01399.scrsim  +++|*         EXIT   (X1) = SEPARATOR OR 0 IF ERROR.
01433  M01S01400.scrsim  +++|*                (X2) = CHARACTER LINE.
01434  M01S01401.scrsim  +++|*                (A2) = CHARACTER LINE ADDRESS.
01435  M01S01402.scrsim  +++|*                (B6) = CHARACTER COUNT.
01436  M01S01403.scrsim  +++|*                (X6) = PARAMETER BINARY VALUE.
01437  M01S01404.scrsim  +++|*
01438  M01S01405.scrsim  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
01439  M01S01406.scrsim  +++|*                B - 4, 5, 6, 7.
01440  M01S01407.scrsim  +++|*                A - 1, 2, 3, 5, 6.
01441  M01S01408.scrsim  +++|*
01442  M01S01409.scrsim  +++|*         CALLS  DXB.
01443  M01S01410.scrsim  +++|
01444  M01S01411.scrsim  +++|
01445  M01S01412.scrsim  +++| GPV      SUBR               ENTRY/EXIT
01446  M01S01413.scrsim  +++|          SB4    B0+
01447  M01S01414.scrsim  +++|          BX5    X5-X5       CLEAR ASSEMBLY WORD
01448  M01S01415.scrsim  +++|          MX0    -6
01449  M01S01416.scrsim  +++|
01450  M01S01417.scrsim  +++|*         CHECK NEXT CHARACTER.
01451  M01S01418.scrsim  +++|
01452  M01S01419.scrsim  +++| GPV1     LX2    6
01453  M01S01420.scrsim  +++|          BX6    -X0*X2
01454  M01S01421.scrsim  +++|          SX7    X6-1RB
01455  M01S01422.scrsim  +++|          ZR     X7,GPV3     IF POSTRADIX *B*
01456  M01S01423.scrsim  +++|          SX7    X6-1RD
01457  M01S01424.scrsim  +++|          ZR     X7,GPV3     IF POSTRADIX *D*
01458  M01S01425.scrsim  +++|          SX7    X6-1R0
01459  M01S01426.scrsim  +++|          NG     X7,GPV7     IF ALPHABETIC CHARACTER
01460  M01S01427.scrsim  +++|          SX7    X6-1R+
01461  M01S01428.scrsim  +++|          NG     X7,GPV3     IF NUMERIC
01462  M01S01429.scrsim  +++|          SX7    X6-1R
01463  M01S01430.scrsim  +++|          ZR     X7,GPV2     IF SPACE
01464  M01S01431.scrsim  +++|          SX7    X6-1R#
Line S01432 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01465  M02S01432.v23l617 ---|          PL     X7,GPV7     IF ILLEGAL CHARACTER
01466  M01S00027.v23l617 +++|          PL     X7,GPV7     IF INCORRECT CHARACTER
01467  M01S01433.scrsim  +++|          NZ     B4,GPV4     IF NOT EMPTY STRING
01468  M01S01434.scrsim  +++|          SA5    =1L0        SET DEFAULT VALUE
01469  M01S01435.scrsim  +++|          EQ     GPV5
01470  M01S01436.scrsim  +++|
01471  M01S01437.scrsim  +++| GPV2     SB6    B6+B1
01472  M01S01438.scrsim  +++|          SB5    10
01473  M01S01439.scrsim  +++|          SB5    B6-B5
01474  M01S01440.scrsim  +++|          NZ     B5,GPV1     IF NOT END OF WORD
01475  M01S01441.scrsim  +++|          SA2    A2+B1       GET NEXT WORD
01476  M01S01442.scrsim  +++|          SB6    B0          RESET COUNTER
01477  M01S01443.scrsim  +++|          EQ     GPV1
01478  M01S01444.scrsim  +++|
01479  M01S01445.scrsim  +++|*         ASSEMBLE PARAMETER.
01480  M01S01446.scrsim  +++|
01481  M01S01447.scrsim  +++| GPV3     LX5    6           ADD CHARACTER TO ASSEMBLY
01482  M01S01448.scrsim  +++|          BX5    X6+X5
01483  M01S01449.scrsim  +++|          SB4    B4+1
01484  M01S01450.scrsim  +++|          EQ     GPV2
01485  M01S01451.scrsim  +++|
01486  M01S01452.scrsim  +++| GPV4     LX5    -6          LEFT JUSTIFY NUMBER
01487  M01S01453.scrsim  +++|          SB4    B4-B1
01488  M01S01454.scrsim  +++|          NZ     B4,GPV4     IF NOT LEFT JUSTIFIED
01489  M01S01455.scrsim  +++| GPV5     SA6    GPVA        SAVE SEPARATOR
01490  M01S01456.scrsim  +++|          BX6    X2          SAVE CHARACTER LINE
01491  M01S01457.scrsim  +++|          SB7    B1          ASSUME DECIMAL
01492  M01S01458.scrsim  +++|          SA6    GPVB
01493  M01S01459.scrsim  +++|          RJ     DXB         DISPLAY CODE TO BINARY
01494  M01S01460.scrsim  +++|          ZR     X4,GPV6     IF NO ERROR
01495  M01S01461.scrsim  +++|          MOVE   3,GPVC,MSGL *CONVERSION ERROR.*
01496  M01S01462.scrsim  +++|          MOVE   3,GPVC,MSGK
01497  M01S01463.scrsim  +++|          SX1    B0
01498  M01S01464.scrsim  +++|          EQ     GPVX
01499  M01S01465.scrsim  +++|
01500  M01S01466.scrsim  +++|*         SET EXIT CONDITIONS.
01501  M01S01467.scrsim  +++|
01502  M01S01468.scrsim  +++| GPV6     SA1    GPVA        RESTORE SEPARATOR
01503  M01S01469.scrsim  +++|          SA3    GPVB        RESTORE CHARACTER LINE
01504  M01S01470.scrsim  +++|          BX2    X3
01505  M01S01471.scrsim  +++|          SB6    B6+B1
01506  M01S01472.scrsim  +++|          SB5    B6-10
01507  M01S01473.scrsim  +++|          NZ     B5,GPVX     IF NOT END OF WORD
01508  M01S01474.scrsim  +++|          SA2    A2+B1       GET NEXT WORD
01509  M01S01475.scrsim  +++|          SB6    B0          RESET COUNTER
01510  M01S01476.scrsim  +++|          EQ     GPVX
01511  M01S01477.scrsim  +++|
Line S01478 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01512  M02S01478.v23l617 ---| GPV7     MOVE   3,GPVD,MSGL *ILLEGAL CHARACTER.*
01513  M01S00028.v23l617 +++| GPV7     MOVE   3,GPVD,MSGL *INCORRECT CHARACTER.*
01514  M01S01479.scrsim  +++|          MOVE   3,GPVD,MSGK
01515  M01S01480.scrsim  +++|          SX1    B0
01516  M01S01481.scrsim  +++|          EQ     GPVX
01517  M01S01482.scrsim  +++|
01518  M01S01483.scrsim  +++| GPVA     BSSZ   1           SEPARATOR
01519  M01S01484.scrsim  +++| GPVB     BSSZ   1           CHARACTER LINE
01520  M01S01485.scrsim  +++| GPVC     DIS    3,CONVERSION ERROR.
01521  M01S01486.scrsim  +++|          BSSZ   1
Line S01487 Modification History
M01 (Added by) scrsim
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01522  M02S01487.v23l617 ---| GPVD     DIS    3,ILLEGAL CHARACTER.
01523  M01S00029.v23l617 +++| GPVD     DIS    3,INCORRECT CHARACTER.
01524  M01S01488.scrsim  +++|          BSSZ   1
01525  M01S01489.scrsim  +++| RDR      SPACE  4,20
01526  M01S01490.scrsim  +++|**        RDR - READ REGISTER CONTENTS.
01527  M01S01491.scrsim  +++|*
01528  M01S01492.scrsim  +++|*         ENTRY  (X7) = ADDRESS OF DATA BUFFER.
01529  M01S01493.scrsim  +++|*                ACTUAL CONTENTS OF S/C REGISTER (OR INTERLOCK REGISTER)
01530  M01S01494.scrsim  +++|*                READ INTO BUFFER.
01531  M01S01495.scrsim  +++|*
01532  M01S01496.scrsim  +++|*         EXIT   (RDRB) = ADDRESS OF DATA BUFFER.
01533  M01S01497.scrsim  +++|*
01534  M01S01498.scrsim  +++|*         USES   X - 0, 1, 2, 5, 6, 7.
01535  M01S01499.scrsim  +++|*                B - 7.
01536  M01S01500.scrsim  +++|*                A - 0, 1, 6, 7.
01537  M01S01501.scrsim  +++|*
01538  M01S01502.scrsim  +++|*         CALLS  SSR.
01539  M01S01503.scrsim  +++|
01540  M01S01504.scrsim  +++|
01541  M01S01505.scrsim  +++| RDR      SUBR               ENTRY/EXIT
01542  M01S01506.scrsim  +++|          SA7    RDRB        SAVE BUFFER ADDRESS
01543  M01S01507.scrsim  +++|          SX6    B0+         SET READ FUNCTION
01544  M01S01508.scrsim  +++|          SA6    RDRA
01545  M01S01509.scrsim  +++| RDR1     SA1    RDRB        SET BUFFER ADDRESS
01546  M01S01510.scrsim  +++|          SA0    X1+
01547  M01S01511.scrsim  +++|          SA1    REGF
01548  M01S01512.scrsim  +++|          ZR     X1,RDR2     IF CHANNEL 16
01549  M01S01513.scrsim  +++|
01550  M01S01514.scrsim  +++|*         READ CHANNEL 36 REGISTER CONTENTS.
01551  M01S01515.scrsim  +++|
01552  M01S01516.scrsim  +++|          MX7    1           SET CHANNEL 36 FLAG
01553  M01S01517.scrsim  +++|          LX6    12          MERGE IN FUNCTION REQUEST
01554  M01S01518.scrsim  +++|          BX7    X6+X7
01555  M01S01519.scrsim  +++|          SA7    PW36
01556  M01S01520.scrsim  +++|          RJ     SSR         SEND SYSTEM REQUEST
Line S01521 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01557  M02S01521.ns2052  ---|          NZ     X6,RDR1     IF ERROR
01558  M01S01522.scrsim  +++|          SA1    PW36        GET REPLY
01559  M01S01523.scrsim  +++|          MX0    -12
01560  M01S01524.scrsim  +++|          BX6    -X0*X1
01561  M01S01525.scrsim  +++|          EQ     RDR3        SET VALUE IN HOLDING REGISTER
01562  M01S01526.scrsim  +++|
01563  M01S01527.scrsim  +++|*         READ CHANNEL 16 REGISTER CONTENTS.
01564  M01S01528.scrsim  +++|
01565  M01S01529.scrsim  +++| RDR2     LX6    12          SET FUNCTION REQUEST
01566  M01S01530.scrsim  +++|          SA6    PW16
01567  M01S01531.scrsim  +++|          RJ     SSR         SEND SYSTEM REQUEST
Line S01532 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01568  M02S01532.ns2052  ---|          NZ     X6,RDR1     IF ERROR
01569  M01S01533.scrsim  +++|          SA1    PW16        GET REPLY
01570  M01S01534.scrsim  +++|          MX0    -12
01571  M01S01535.scrsim  +++|          BX6    -X0*X1
01572  M01S01536.scrsim  +++|
01573  M01S01537.scrsim  +++|*         SET VALUE IN HOLDING REGISTER.
01574  M01S01538.scrsim  +++|
01575  M01S01539.scrsim  +++| RDR3     SX7    5
01576  M01S01540.scrsim  +++|          SA1    RDRA        GET BYTE NUMBER
01577  M01S01541.scrsim  +++|          SX5    X1
01578  M01S01542.scrsim  +++|          IX7    X1/X7       WORD NUMBER
01579  M01S01543.scrsim  +++|          SB7    X7
01580  M01S01544.scrsim  +++|          SA0    A0+B7       SET WORD ADDRESS
01581  M01S01545.scrsim  +++|          SX1    5
01582  M01S01546.scrsim  +++|          IX7    X1*X7
01583  M01S01547.scrsim  +++|          IX1    X5-X7       BYTE ORDINAL IN WORD
01584  M01S01548.scrsim  +++|          SX5    12          FORM SHIFT COUNT
01585  M01S01549.scrsim  +++|          IX7    X1*X5
01586  M01S01550.scrsim  +++|          SB7    X7
01587  M01S01551.scrsim  +++|          SA1    A0          GET HOLDING WORD
01588  M01S01552.scrsim  +++|          MX0    48
01589  M01S01553.scrsim  +++|          BX6    -X0*X6
01590  M01S01554.scrsim  +++|          LX0    B7          FORM MASK
01591  M01S01555.scrsim  +++|          LX6    B7
01592  M01S01556.scrsim  +++|          BX7    X0*X1
01593  M01S01557.scrsim  +++|          BX7    X6+X7       INSERT VALUE
01594  M01S01558.scrsim  +++|          SA7    A0
01595  M01S01559.scrsim  +++|          SA1    RDRA        INCREMENT BYTE NUMBER
01596  M01S01560.scrsim  +++|          SX6    X1+B1
01597  M01S01561.scrsim  +++|          SA6    A1
01598  M01S01562.scrsim  +++|          SX7    X6-17
01599  M01S01563.scrsim  +++|          NG     X7,RDR1     IF NOT END OF REGISTER
01600  M01S01564.scrsim  +++|          EQ     RDRX        RETURN
01601  M01S01565.scrsim  +++|
01602  M01S01566.scrsim  +++| RDRA     CON    0           READ FUNCTION CODE
01603  M01S01567.scrsim  +++| RDRB     CON    0           DATA BUFFER ADDRESS
01604  M01S01568.scrsim  +++| SSR      SPACE  4,7
01605  M01S01569.scrsim  +++|**        SSR - SEND SYSTEM REQUEST FOR CYCLE OR READ.
01606  M01S01570.scrsim  +++|*
01607  M01S01571.scrsim  +++|*         EXIT   SYSTEM REQUEST MADE.
Line S01572 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01608  M02S01572.ns2052  ---|*                (X6) .NE. 0 IF ERROR.
01609  M01S01573.scrsim  +++|*
Line S01574 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01610  M02S01574.ns2052  ---|*         USES   X - 0, 1, 6.
01611  M01S00003.ns2052  +++|*         USES   X - 1.
01612  M01S01575.scrsim  +++|*                A - 1.
01613  M01S00004.ns2052  +++|*
01614  M01S00005.ns2052  +++|*         MACROS SYSTEM.
01615  M01S01576.scrsim  +++|
01616  M01S01577.scrsim  +++|
01617  M01S01578.scrsim  +++| SSR      SUBR               ENTRY/EXIT
01618  M01S01579.scrsim  +++|          SA1    REGF
01619  M01S01580.scrsim  +++|          ZR     X1,SSR1     IF CHANNEL 16
01620  M01S01581.scrsim  +++|
01621  M01S01582.scrsim  +++|*         SEND CHANNEL 36 CYCLE REQUEST.
01622  M01S01583.scrsim  +++|
01623  M01S01584.scrsim  +++|          SYSTEM HFM,R,PW36,100B
Line S01585 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01624  M02S01585.ns2052  ---|          SA1    PW36
Line S01586 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01625  M02S01586.ns2052  ---|          EQ     SSR2
01626  M01S00006.ns2052  +++|          EQ     SSRX        RETURN
01627  M01S01587.scrsim  +++|
01628  M01S01588.scrsim  +++|*         SEND CHANNEL 16 CYCLE REQUEST.
01629  M01S01589.scrsim  +++|
01630  M01S01590.scrsim  +++| SSR1     SYSTEM HFM,R,PW16,100B
Line S01591 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01631  M02S01591.ns2052  ---|          SA1    PW16
Line S01592 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01632  M02S01592.ns2052  ---| SSR2     MX0    10          CHECK FOR ERROR CODE
Line S01593 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01633  M02S01593.ns2052  ---|          LX0    -2
Line S01594 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01634  M02S01594.ns2052  ---|          BX6    X0*X1
Line S01595 Modification History
M01 (Added by) scrsim
M02 (Updated by) ns2052
Seq #  *Modification Id* Act 
----------------------------+
01635  M02S01595.ns2052  ---|          EQ     SSRX
01636  M01S00007.ns2052  +++|          EQ     SSRX        RETURN
01637  M01S01596.scrsim  +++|          TITLE  DISPLAY SUBROUTINES.
01638  M01S01597.scrsim  +++| DCR      SPACE  4,20
01639  M01S01598.scrsim  +++|**        DCR - DISPLAY CONTENTS OF S/C REGISTER.
01640  M01S01599.scrsim  +++|*
01641  M01S01600.scrsim  +++|*         EXIT   ACTUAL CONTENTS OF S/C REGISTER (OR INTERLOCK REGISTER)
01642  M01S01601.scrsim  +++|*                ON THE CURRENT CHANNEL DISPLAYED ON K-DISPLAY.
01643  M01S01602.scrsim  +++|*
01644  M01S01603.scrsim  +++|*         USES   X - 1, 2, 6.
01645  M01S01604.scrsim  +++|*                B - 2, 3, 4, 6.
01646  M01S01605.scrsim  +++|*                A - 2, 6.
01647  M01S01606.scrsim  +++|*
01648  M01S01607.scrsim  +++|*         CALLS  DYW.
01649  M01S01608.scrsim  +++|
01650  M01S01609.scrsim  +++|
01651  M01S01610.scrsim  +++| DCR3     SA1    DCRB        RESTORE PARAMETER WORDS
01652  M01S01611.scrsim  +++|          SA2    DCRB+1
01653  M01S01612.scrsim  +++|          BX6    X1
01654  M01S01613.scrsim  +++|          BX7    X2
01655  M01S01614.scrsim  +++|          SA6    PW16
01656  M01S01615.scrsim  +++|          SA7    PW36
01657  M01S01616.scrsim  +++|
01658  M01S01617.scrsim  +++| DCR      SUBR               ENTRY/EXIT
01659  M01S01618.scrsim  +++|          SA1    PW16        SAVE PARAMETER WORDS
01660  M01S01619.scrsim  +++|          SA2    PW36
01661  M01S01620.scrsim  +++|          BX6    X1
01662  M01S01621.scrsim  +++|          BX7    X2
01663  M01S01622.scrsim  +++|          SA6    DCRB
01664  M01S01623.scrsim  +++|          SA7    DCRB+1
01665  M01S01624.scrsim  +++|          SX7    DCRA        SET BUFFER ADDRESS
01666  M01S01625.scrsim  +++|          RJ     RDR         READ REGISTER CONTENTS
01667  M01S01626.scrsim  +++|          SA2    DCRA        BUFFER ADDRESS
01668  M01S01627.scrsim  +++|          SB6    3
01669  M01S01628.scrsim  +++|          SB3    B0+
01670  M01S01629.scrsim  +++|          SB4    CH16-1      DISPLAY WORD ADDRESS - 1
01671  M01S01630.scrsim  +++|          SA1    REGF
01672  M01S01631.scrsim  +++|          ZR     X1,DCR1     IF CHANNEL 16
01673  M01S01632.scrsim  +++|          SB4    CH36-1      SET CHANNEL 36 DISPLAY WORD ADDRESS - 1
01674  M01S01633.scrsim  +++|
01675  M01S01634.scrsim  +++|*         DISPLAY CONTENTS ON LEFT SCREEN.
01676  M01S01635.scrsim  +++|
01677  M01S01636.scrsim  +++| DCR1     RJ     DYW         DISPLAY WORD
01678  M01S01637.scrsim  +++|          SA2    A2+B1       GET NEXT WORD
01679  M01S01638.scrsim  +++|          SB4    A7+         SAVE LAST ADDRESS
01680  M01S01639.scrsim  +++|          SB6    B6-B1
01681  M01S01640.scrsim  +++|          ZR     B6,DCR2     IF END OF TRANSFER
01682  M01S01641.scrsim  +++|          SB3    B0+
01683  M01S01642.scrsim  +++|          EQ     DCR1        DISPLAY NEXT WORD
01684  M01S01643.scrsim  +++|
01685  M01S01644.scrsim  +++| DCR2     SB6    B1          SET ONE LINE
01686  M01S01645.scrsim  +++|          NG     B3,DCR3     IF ENTIRE REGISTER DISPLAYED
01687  M01S01646.scrsim  +++|          SB3    -B1         SET SHORT LINE FLAG
01688  M01S01647.scrsim  +++|          SB4    B4+5
01689  M01S01648.scrsim  +++|          EQ     DCR1        DISPLAY NEXT WORD
01690  M01S01649.scrsim  +++|
01691  M01S01650.scrsim  +++| DCRA     BSS    4           S/C REGISTER BUFFER
01692  M01S01651.scrsim  +++| DCRB     BSS    2           PARAMETER SAVE AREA
01693  M01S01652.scrsim  +++| DOC      SPACE  4,12
01694  M01S01653.scrsim  +++|**        DOC -  DISPLAY OCTAL WORD.
01695  M01S01654.scrsim  +++|*
01696  M01S01655.scrsim  +++|*         ENTRY  (X2) = WORD TO DISPLAY.
01697  M01S01656.scrsim  +++|*                (B4) = DISPLAY ADDRESS.
01698  M01S01657.scrsim  +++|*                (B3) = 0 DISPLAY WHOLE LINE.
01699  M01S01658.scrsim  +++|*                     =-1 DISPLAY SHORTENED LINE.
01700  M01S01659.scrsim  +++|*
01701  M01S01660.scrsim  +++|*         EXIT   OCTAL VALUE DISPLAYED.
01702  M01S01661.scrsim  +++|*
01703  M01S01662.scrsim  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
01704  M01S01663.scrsim  +++|*                B - 4, 5, 7.
01705  M01S01664.scrsim  +++|*                A - 3, 7.
01706  M01S01665.scrsim  +++|
01707  M01S01666.scrsim  +++|
01708  M01S01667.scrsim  +++| DOC      SUBR               ENTRY/EXIT
01709  M01S01668.scrsim  +++|          MX0    -12
01710  M01S01669.scrsim  +++|          MX5    -3
01711  M01S01670.scrsim  +++|          SB4    B4+4
01712  M01S01671.scrsim  +++|          SB5    5
01713  M01S01672.scrsim  +++|          ZR     B3,DOC1     IF WHOLE LINE
01714  M01S01673.scrsim  +++|          SB5    2
01715  M01S01674.scrsim  +++|
01716  M01S01675.scrsim  +++|*         DISPLAY WORD IN BYTES.
01717  M01S01676.scrsim  +++|
01718  M01S01677.scrsim  +++| DOC1     BX6    -X0*X2      GET BYTE
01719  M01S01678.scrsim  +++|          AX2    12
01720  M01S01679.scrsim  +++|          SB7    4
01721  M01S01680.scrsim  +++|          SX1    B0+         CLEAR ASSEMBLY
01722  M01S01681.scrsim  +++| DOC2     BX7    -X5*X6      GET DIGIT
01723  M01S01682.scrsim  +++|          SX7    X7+1R0      CONVERT TO DISPLAY CODE
01724  M01S01683.scrsim  +++|          LX1    -6
01725  M01S01684.scrsim  +++|          BX1    X1+X7       ADD TO ASSEMBLY
01726  M01S01685.scrsim  +++|          AX6    3
01727  M01S01686.scrsim  +++|          SB7    B7-B1
01728  M01S01687.scrsim  +++|          NZ     B7,DOC2     IF NOT ENTIRE BYTE
01729  M01S01688.scrsim  +++|          LX1    18
01730  M01S01689.scrsim  +++|          SA3    B4          GET DISPLAY WORD
01731  M01S01690.scrsim  +++|          MX7    36
01732  M01S01691.scrsim  +++|          BX3    X7*X3
01733  M01S01692.scrsim  +++|          BX7    X1+X3       ADD TO DISPLAY WORD
01734  M01S01693.scrsim  +++|          SA7    A3
01735  M01S01694.scrsim  +++|          SB4    B4-B1
01736  M01S01695.scrsim  +++|          SB5    B5-B1
01737  M01S01696.scrsim  +++|          NZ     B5,DOC1     IF NOT ENTIRE LINE DISPLAYED
01738  M01S01697.scrsim  +++|          EQ     DOCX
01739  M01S01698.scrsim  +++| DYL      SPACE  4,11
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/scrsim.txt ยท Last modified: by 127.0.0.1