Deck SETCORE

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.setcore +++|          IDENT  SETCORE,SETCORE,SETCORE
00002  M01S00002.setcore +++|          ABS
00003  M01S00003.setcore +++|          SYSCOM B1          DEFINE (B1) = 1
00004  M01S00004.setcore +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00005  M01S00005.setcore +++|*COMMENT  SETCORE - PRESET MEMORY.

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.setcore +++|          TITLE  SETCORE - PRESET MEMORY.
00009  M01S00008.setcore +++| SETCORE  SPACE  4
00010  M01S00009.setcore +++|***       SETCORE - PRESET MEMORY.
00011  M01S00010.setcore +++|*         R. A. LARSEN.  75/01/03.
00012  M01S00011.setcore +++|*         ADAPTED FROM LINK BY G. R. MANSFIELD.
00013  M01S00012.setcore +++| SETCORE  SPACE  4
00014  M01S00013.setcore +++|***              SETCORE PROCESSES THE PRESETTING OF MEMORY TO A
00015  M01S00014.setcore +++|*         SPECIFIED VALUE.
00016  M01S00015.setcore +++| SETCORE  SPACE  4
00017  M01S00016.setcore +++|***       SETCORE(P)
00018  M01S00017.setcore +++|*         SETCORE(+P)
00019  M01S00018.setcore +++|*         SETCORE(-P)
00020  M01S00019.setcore +++|*         PRESET MEMORY ACCORDING TO *P*.
00021  M01S00020.setcore +++|*
00022  M01S00021.setcore +++|*         P      VALUE
00023  M01S00022.setcore +++|*         0      ZEROES
00024  M01S00023.setcore +++|*         ZERO   ZEROES
00025  M01S00024.setcore +++|*         INDEF  INDEFINITES
00026  M01S00025.setcore +++|*         INF    INFINITES
00027  M01S00026.setcore +++|*
00028  M01S00027.setcore +++|*         ASSUMED ARGUMENT.
00029  M01S00028.setcore +++|*         P      ZERO
00030  M01S00029.setcore +++|
00031  M01S00030.setcore +++|
00032  M01S00031.setcore +++|          ORG    110B
00033  M01S00032.setcore +++|
00034  M01S00033.setcore +++| SETCORE  SB1    1           PRESET PROGRAM
00035  M01S00034.setcore +++|          SA1    ACTR        CHECK ARGUMENT COUNT
00036  M01S00035.setcore +++|          BX6    X6-X6       CLEAR VALUE
00037  M01S00036.setcore +++|          SX5    B0          CLEAR SIGN
00038  M01S00037.setcore +++|          BX0    X0-X0       SET DEFAULT PATTERN
00039  M01S00038.setcore +++|          SB7    X1
00040  M01S00039.setcore +++|          ZR     B7,STC2     IF NO ARGUMENTS
00041  M01S00040.setcore +++|
00042  M01S00041.setcore +++|*         PROCESS SIGN ARGUMENT.
00043  M01S00042.setcore +++|
00044  M01S00043.setcore +++|          SA1    ARGR
00045  M01S00044.setcore +++|          ZR     X1,STC2     IF BLANK
00046  M01S00045.setcore +++|          SA2    STCA-2
00047  M01S00046.setcore +++|          SB2    X1-1R+      CHECK SEPARATOR
00048  M01S00047.setcore +++|          NG     B2,STC1     IF NOT *+*
00049  M01S00048.setcore +++|          GT     B2,B1,STC1  IF NOT *-*
00050  M01S00049.setcore +++|          SA1    A1+B1       NEXT ARGUMENT
00051  M01S00050.setcore +++|          SX5    B2          SET SIGN
00052  M01S00051.setcore +++|
00053  M01S00052.setcore +++|*         PROCESS VALUE ARGUMENT.
00054  M01S00053.setcore +++|
00055  M01S00054.setcore +++| STC1     SA2    A2+2        NEXT OPTION
00056  M01S00055.setcore +++|          BX7    X1-X2
00057  M01S00056.setcore +++|          ZR     X2,STC4     IF END OF OPTIONS
00058  M01S00057.setcore +++|          NZ     X7,STC1     IF NO MATCH
00059  M01S00058.setcore +++|          LX5    59          SET SIGN
00060  M01S00059.setcore +++|          SA2    A2+B1       SET VALUE
00061  M01S00060.setcore +++|          AX5    60
00062  M01S00061.setcore +++|          BX0    X2-X5       SAVE SETCORE VALUE
00063  M01S00062.setcore +++|
00064  M01S00063.setcore +++|*         MOVE PRESET PROGRAM.
00065  M01S00064.setcore +++|
00066  M01S00065.setcore +++| STC2     SB2    PMLL
00067  M01S00066.setcore +++| STC3     SA1    PML+B2
00068  M01S00067.setcore +++|          SB2    B2-B1
00069  M01S00068.setcore +++|          LX7    X1
00070  M01S00069.setcore +++|          SA7    B2+1
00071  M01S00070.setcore +++|          PL     B2,STC3     IF NOT END OF MOVE
00072  M01S00071.setcore +++|          BX6    X0          SET VALUE
00073  M01S00072.setcore +++|          LX7    X0
00074  M01S00073.setcore +++|          SA4    PMLA
00075  M01S00074.setcore +++|          SB3    A0-PMLL-2   SET WORD COUNT
00076  M01S00075.setcore +++|          SB2    B1+B1
00077  M01S00076.setcore +++|          SA6    A0-B1
00078  M01S00077.setcore +++|          SA7    A6-B1

Line S00078 Modification History
`M01` (Added by)	`setcore`
`M02` (Updated by)	`setco1`

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00078.setco1  ---|          EQ     PML2        ENTER PRESET LOOP
00080  M01S00001.setco1  +++|          JP     PML2        ENTER PRESET LOOP
00081  M01S00079.setcore +++|
00082  M01S00080.setcore +++|*         PROCESS ARGUMENT ERROR.
00083  M01S00081.setcore +++|
00084  M01S00082.setcore +++| STC4     MESSAGE (=C* ILLEGAL ARGUMENT.*)
00085  M01S00083.setcore +++|          ABORT
00086  M01S00084.setcore +++|          SPACE  4
00087  M01S00085.setcore +++|**        TABLE OF SETCORE OPTIONS.
00088  M01S00086.setcore +++|*
00089  M01S00087.setcore +++|*         WORD 1 = OPTION.
00090  M01S00088.setcore +++|*         WORD 2 = VALUE.
00091  M01S00089.setcore +++|
00092  M01S00090.setcore +++|
00093  M01S00091.setcore +++| STCA     CON    0LZERO,0
00094  M01S00092.setcore +++|          CON    0L0,0
00095  M01S00093.setcore +++|          CON    0LINDEF,1777BS48
00096  M01S00094.setcore +++|          CON    0LINF,3777BS48
00097  M01S00095.setcore +++|          CON    0           END OF TABLE
00098  M01S00096.setcore +++| PML      SPACE  4
00099  M01S00097.setcore +++|**        PRESET MEMORY LOOP.
00100  M01S00098.setcore +++|
00101  M01S00099.setcore +++|
00102  M01S00100.setcore +++| PML      BSS    0
00103  M01S00101.setcore +++|          LOC    0
00104  M01S00102.setcore +++|          CON    0
00105  M01S00103.setcore +++| PML1     CON    0
00106  M01S00104.setcore +++|
00107  M01S00105.setcore +++|*         NEXT THREE INSTRUCTIONS ARE LEFT IN RA+2.
00108  M01S00106.setcore +++|
00109  M01S00107.setcore +++| PML1.1   SA7    B1          END PROGRAM
00110  M01S00108.setcore +++|          SA6    A6+B1       PRESET (5)

Line S00109 Modification History
`M01` (Added by)	`setcore`
`M02` (Updated by)	`setco1`

Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00109.setco1  ---|          EQ     PML1        WAIT MONITOR
00112  M01S00002.setco1  +++|          JP     PML1        WAIT MONITOR
00113  M01S00110.setcore +++|
00114  M01S00111.setcore +++| PML2     SA6    A6-B2       PRESET UPPER CORE
00115  M01S00112.setcore +++|          SA7    A7-B2
00116  M01S00113.setcore +++|          SB3    B3-2
00117  M01S00114.setcore +++|          NZ     B3,PML2     IF UPPER MEMORY NOT PRESET
00118  M01S00115.setcore +++|          SA6    B2+B1       PRESET (3)
00119  M01S00116.setcore +++|          BX7    X4
00120  M01S00117.setcore +++|          SB6    B1
00121  M01S00118.setcore +++|          SA6    A6+B1       PRESET (4)
00122  M01S00119.setcore +++|          EQ     PML1.1      COMPLETE PROGRAM IN WORD 2
00123  M01S00120.setcore +++|
00124  M01S00121.setcore +++|
00125  M01S00122.setcore +++|          LOC    *O
00126  M01S00123.setcore +++| PMLL     EQU    *-PML
00127  M01S00124.setcore +++|
00128  M01S00125.setcore +++|*         (RA+1) END MONITOR CALL.
00129  M01S00126.setcore +++|
00130  M01S00127.setcore +++| PMLA     VFD    30/0LEND
00131  M01S00128.setcore +++|          EQ     PML1
00132  M01S00129.setcore +++|          SPACE  4
00133  M01S00130.setcore +++|**        COMMON DECKS.
00134  M01S00131.setcore +++|
00135  M01S00132.setcore +++|
00136  M01S00133.setcore +++|*CALL     COMCSYS
00137  M01S00134.setcore +++|          SPACE  4
00138  M01S00135.setcore +++|          END