|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0450 | P | .CONST 0x0450 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005e | ^ | .CONST 0x005e ; Address of begin
0009 009e | | .CONST 0x009e ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 0092 02f3 | | Action Push_String_Extended,0x2f3 ; "Setup_Machine"
000d e22c | , | Load 0x1,0x2c
000e 02c7 | | Declare_Variable Any
000f e002 | | Load 0x0,0x2
0010 180e | | Execute Package,Field_Execute,Field_Number 0xe
0011 a403 | | Store_Unchecked 0x2,0x3
0012 4800 |H | Short_Literal 0x0
0013 e017 | | Load 0x0,0x17
0014 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0015 00e3 | | Load_Encached Natural_Cache
0016 02a0 | | Declare_Subprogram Null_Subprogram
0017 4801 |H | Short_Literal 0x1
0018 035d | ] | Declare_Type Array,Defined
0019 00d8 | | Load_Top At_Offset_0
001a 0337 | 7 | Declare_Variable Array
001b 00d8 | | Load_Top At_Offset_0
001c 0335 | 5 | Declare_Variable Array,Duplicate
001d 00cd | | Action Spare6_Action
001e e405 | | Load 0x2,0x5
001f 01d9 | | Execute Vector,Reverse_Bounds
0020 0263 | c | Execute Discrete,Above_Bound
0021 7005 |p | Jump_Nonzero 0x27
0022 4800 |H | Short_Literal 0x0
0023 e408 | | Load 0x2,0x8
0024 e406 | | Load 0x2,0x6
0025 01d6 | | Execute Vector,Field_Write
0026 3ffb |? | Loop_Increasing 0x22
0027 e405 | | Load 0x2,0x5
0028 01d4 | | Execute Vector,Structure_Write
0029 4850 |HP | Short_Literal 0x50
002a e01b | | Load 0x0,0x1b
002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002c 1c08 | | Execute_Immediate Run_Utility,0x8
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f 4801 |H | Short_Literal 0x1
0030 4803 |H | Short_Literal 0x3
0031 e017 | | Load 0x0,0x17
0032 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0033 02a0 | | Declare_Subprogram Null_Subprogram
0034 4801 |H | Short_Literal 0x1
0035 035d | ] | Declare_Type Array,Defined
0036 00d8 | | Load_Top At_Offset_0
0037 0337 | 7 | Declare_Variable Array
0038 00d8 | | Load_Top At_Offset_0
0039 0335 | 5 | Declare_Variable Array,Duplicate
003a 00cd | | Action Spare6_Action
003b 4803 |H | Short_Literal 0x3
003c 4801 |H | Short_Literal 0x1
003d 4800 |H | Short_Literal 0x0
003e e40b | | Load 0x2,0xb
003f e409 | | Load 0x2,0x9
0040 01d6 | | Execute Vector,Field_Write
0041 3ffb |? | Loop_Increasing 0x3d
0042 e408 | | Load 0x2,0x8
0043 01d4 | | Execute Vector,Structure_Write
0044 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0046 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0048 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
004a 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
004c 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
004e 029f 018b | | Declare_Subprogram INIT_0188,For_Call
0050 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0052 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0054 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0056 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0058 029f 020b | | Declare_Subprogram INIT_0208,For_Call
005a 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
005c 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
005e BODY_0008:
005e e403 | | Load 0x2,0x3
005f e5ff | | Load 0x2,-0x1
0060 e402 | | Load 0x2,0x2
0061 e230 | 0 | Load 0x1,0x30
0062 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0063 c403 | | Store 0x2,0x3
0064 e403 | | Load 0x2,0x3
0065 e230 | 0 | Load 0x1,0x30
0066 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0067 821b | | Call 0x1,0x1b
0068 01db | | Execute Vector,Length
0069 6805 |h | Jump_Zero 0x6f
006a e403 | | Load 0x2,0x3
006b 0092 02f4 | | Action Push_String_Extended,0x2f4 ; "This machine has already been assigned a Site. Contact your Rational representative for further assistance."
006d e230 | 0 | Load 0x1,0x30
006e 180d | | Execute Package,Field_Execute,Field_Number 0xd
006f 8413 | | Call 0x2,0x13
0070 0092 02f5 | | Action Push_String_Extended,0x2f5 ; "Answer each of the following questions."
0072 e018 | | Load 0x0,0x18
0073 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0074 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "No action will be taken until all answers have been given."
0076 e018 | | Load 0x0,0x18
0077 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0078 0092 02f7 | | Action Push_String_Extended,0x2f7 ; "Default value for each token count is given in []"
007a e018 | | Load 0x0,0x18
007b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
007c 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "All values start at 0, except Login."
007e e018 | | Load 0x0,0x18
007f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0080 4801 |H | Short_Literal 0x1
0081 e018 | | Load 0x0,0x18
0082 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0083 840e | | Call 0x2,0xe
0084 840f | | Call 0x2,0xf
0085 8415 | | Call 0x2,0x15
0086 4801 |H | Short_Literal 0x1
0087 e018 | | Load 0x0,0x18
0088 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0089 4800 |H | Short_Literal 0x0
008a 4800 |H | Short_Literal 0x0
008b 4801 |H | Short_Literal 0x1
008c 00ea | | Load_Encached Null_String_Cache
008d 00ea | | Load_Encached Null_String_Cache
008e e017 | | Load 0x0,0x17
008f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0090 e012 | | Load 0x0,0x12
0091 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0092 e232 | 2 | Load 0x1,0x32
0093 180f | | Execute Package,Field_Execute,Field_Number 0xf
0094 e01c | | Load 0x0,0x1c
0095 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0096 e232 | 2 | Load 0x1,0x32
0097 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0098 e403 | | Load 0x2,0x3
0099 00ea | | Load_Encached Null_String_Cache
009a e402 | | Load 0x2,0x2
009b e230 | 0 | Load 0x1,0x30
009c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009e TRAP_0008:
009e e002 | | Load 0x0,0x2
009f 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
00a0 010f | | Execute Exception,Equal
00a1 6806 |h | Jump_Zero 0xa8
00a2 e403 | | Load 0x2,0x3
00a3 e402 | | Load 0x2,0x2
00a4 e230 | 0 | Load 0x1,0x30
00a5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00a6 00d8 | | Load_Top At_Offset_0
00a7 0101 | | Execute Exception,Reraise
00a8 e00a | | Load 0x0,0xa
00a9 010f | | Execute Exception,Equal
00aa 6805 |h | Jump_Zero 0xb0
00ab e403 | | Load 0x2,0x3
00ac e402 | | Load 0x2,0x2
00ad e230 | 0 | Load 0x1,0x30
00ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00af 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b0 00d8 | | Load_Top At_Offset_0
00b1 0107 | | Execute Exception,Get_Name
00b2 4950 |IP | Short_Literal 0x150
00b3 495f |I_ | Short_Literal 0x15f
00b4 0262 | b | Execute Discrete,In_Range
00b5 6807 |h | Jump_Zero 0xbd
00b6 e403 | | Load 0x2,0x3
00b7 0092 02f9 | | Action Push_String_Extended,0x2f9 ; "End of file encountered"
00b9 e402 | | Load 0x2,0x2
00ba e230 | 0 | Load 0x1,0x30
00bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bd e403 | | Load 0x2,0x3
00be 4800 |H | Short_Literal 0x0
00bf 4801 |H | Short_Literal 0x1
00c0 e019 | | Load 0x0,0x19
00c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c2 e402 | | Load 0x2,0x2
00c3 e230 | 0 | Load 0x1,0x30
00c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00e1 | | .CONST 0x00e1 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0005 | | .CONST 0x0005 ; Number of locals
00cb INIT_00c8:
00cb e018 | | Load 0x0,0x18
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 02c7 | | Declare_Variable Any
00ce e018 | | Load 0x0,0x18
00cf 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00d0 a602 | | Store_Unchecked 0x3,0x2
00d1 00d8 | | Load_Top At_Offset_0
00d2 e018 | | Load 0x0,0x18
00d3 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00d4 00e2 | | Load_Encached Integer_Cache
00d5 03f1 | | Declare_Variable Discrete,With_Value
00d6 e018 | | Load 0x0,0x18
00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d8 02c7 | | Declare_Variable Any
00d9 e018 | | Load 0x0,0x18
00da 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00db a604 | | Store_Unchecked 0x3,0x4
00dc 00d8 | | Load_Top At_Offset_0
00dd e018 | | Load 0x0,0x18
00de 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00df 00e2 | | Load_Encached Integer_Cache
00e0 03f1 | | Declare_Variable Discrete,With_Value
00e1 BODY_00c8:
00e1 e603 | | Load 0x3,0x3
00e2 0c02 | | Execute_Immediate Greater_Equal,0x2
00e3 6806 |h | Jump_Zero 0xea
00e4 00d8 | | Load_Top At_Offset_0
00e5 0c02 | | Execute_Immediate Greater_Equal,0x2
00e6 6803 |h | Jump_Zero 0xea
00e7 4801 |H | Short_Literal 0x1
00e8 e018 | | Load 0x0,0x18
00e9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00eb 0000 0000 | | .BLANK 0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 8409 | | Call 0x2,0x9
00f4 e7ff | | Load 0x3,-0x1
00f5 e018 | | Load 0x0,0x18
00f6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00f7 e7fe | | Load 0x3,-0x2
00f8 01db | | Execute Vector,Length
00f9 680a |h | Jump_Zero 0x104
00fa 0092 02fa | | Action Push_String_Extended,0x2fa ; " ["
00fc e7fe | | Load 0x3,-0x2
00fd 01cc | | Execute Vector,Catenate
00fe 0092 02fb | | Action Push_String_Extended,0x2fb ; "]: "
0100 01cc | | Execute Vector,Catenate
0101 e018 | | Load 0x0,0x18
0102 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0103 7804 |x | Jump 0x108
0104 0092 02fc | | Action Push_String_Extended,0x2fc ; ": "
0106 e018 | | Load 0x0,0x18
0107 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0108 e018 | | Load 0x0,0x18
0109 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
010a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0116 | | .CONST 0x0116 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e7fe | | Load 0x3,-0x2
0114 e7ff | | Load 0x3,-0x1
0115 840a | | Call 0x2,0xa
0116 BODY_0110:
0116 00d8 | | Load_Top At_Offset_0
0117 01db | | Execute Vector,Length
0118 7014 |p | Jump_Nonzero 0x12d
0119 e7fe | | Load 0x3,-0x2
011a 01db | | Execute Vector,Length
011b 700b |p | Jump_Nonzero 0x127
011c 8409 | | Call 0x2,0x9
011d 0092 02fd | | Action Push_String_Extended,0x2fd ; "There is no default, and null string not a valid value."
011f e018 | | Load 0x0,0x18
0120 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0121 e7fd | | Load 0x3,-0x3
0122 e7fe | | Load 0x3,-0x2
0123 e7ff | | Load 0x3,-0x1
0124 840b | | Call 0x2,0xb
0125 00d1 | | Pop_Control Pop_Count_1
0126 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0127 e7fd | | Load 0x3,-0x3
0128 e7fe | | Load 0x3,-0x2
0129 e01b | | Load 0x0,0x1b
012a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
012b 00d1 | | Pop_Control Pop_Count_1
012c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012d e7fd | | Load 0x3,-0x3
012e e602 | | Load 0x3,0x2
012f e01b | | Load 0x0,0x1b
0130 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0131 00d1 | | Pop_Control Pop_Count_1
0132 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014a | J | .CONST 0x014a ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0005 | | .CONST 0x0005 ; Number of locals
013b INIT_0138:
013b e7ff | | Load 0x3,-0x1
013c e017 | | Load 0x0,0x17
013d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
013e 4820 |H | Short_Literal 0x20
013f 4800 |H | Short_Literal 0x0
0140 480a |H | Short_Literal 0xa
0141 e7ff | | Load 0x3,-0x1
0142 e405 | | Load 0x2,0x5
0143 01d7 | | Execute Vector,Field_Read
0144 8233 | 3 | Call 0x1,0x33
0145 e602 | | Load 0x3,0x2
0146 840a | | Call 0x2,0xa
0147 00e3 | | Load_Encached Natural_Cache
0148 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
014a BODY_0138:
014a 4801 |H | Short_Literal 0x1
014b 0092 02fe | | Action Push_String_Extended,0x2fe ; "Login"
014d e602 | | Load 0x3,0x2
014e e006 | | Load 0x0,0x6
014f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0150 6805 |h | Jump_Zero 0x156
0151 e7ff | | Load 0x3,-0x1
0152 4801 |H | Short_Literal 0x1
0153 e408 | | Load 0x2,0x8
0154 01d6 | | Execute Vector,Field_Write
0155 7817 |x | Jump 0x16d
0156 4801 |H | Short_Literal 0x1
0157 0092 02ff | | Action Push_String_Extended,0x2ff ; "Full Session"
0159 e602 | | Load 0x3,0x2
015a e006 | | Load 0x0,0x6
015b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
015c 6805 |h | Jump_Zero 0x162
015d e7ff | | Load 0x3,-0x1
015e 4802 |H | Short_Literal 0x2
015f e408 | | Load 0x2,0x8
0160 01d6 | | Execute Vector,Field_Write
0161 780b |x | Jump 0x16d
0162 4801 |H | Short_Literal 0x1
0163 0092 0300 | | Action Push_String_Extended,0x300 ; "Fundamental Session"
0165 e602 | | Load 0x3,0x2
0166 e006 | | Load 0x0,0x6
0167 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0168 6804 |h | Jump_Zero 0x16d
0169 e7ff | | Load 0x3,-0x1
016a 4803 |H | Short_Literal 0x3
016b e408 | | Load 0x2,0x8
016c 01d6 | | Execute Vector,Field_Write
016d 4820 |H | Short_Literal 0x20
016e e603 | | Load 0x3,0x3
016f e006 | | Load 0x0,0x6
0170 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0171 01db | | Execute Vector,Length
0172 6801 |h | Jump_Zero 0x174
0173 8605 | | Call 0x3,0x5
0174 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b e7ff | | Load 0x3,-0x1
017c 6803 |h | Jump_Zero 0x180
017d 0092 0301 | | Action Push_String_Extended,0x301 ; "Yes"
017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0180 0092 0302 | | Action Push_String_Extended,0x302 ; "No"
0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0183 0000 0000 | | .BLANK 0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0193 | | .CONST 0x0193 ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0005 | | .CONST 0x0005 ; Number of locals
018b INIT_0188:
018b 00e1 | | Load_Encached Boolean_Cache
018c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
018d 00e1 | | Load_Encached Boolean_Cache
018e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
018f 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0191 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
0193 BODY_0188:
0193 00cf | | Action Mark_Auxiliary
0194 e406 | | Load 0x2,0x6
0195 00d8 | | Load_Top At_Offset_0
0196 e01b | | Load 0x0,0x1b
0197 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0198 0092 0303 | | Action Push_String_Extended,0x303 ; "Site"
019a 840b | | Call 0x2,0xb
019b 00d1 | | Pop_Control Pop_Count_1
019c 00cf | | Action Mark_Auxiliary
019d e405 | | Load 0x2,0x5
019e 01dc | | Execute Vector,Last
019f 4801 |H | Short_Literal 0x1
01a0 0263 | c | Execute Discrete,Above_Bound
01a1 7004 |p | Jump_Nonzero 0x1a6
01a2 00d8 | | Load_Top At_Offset_0
01a3 840c | | Call 0x2,0xc
01a4 00c8 | | Action Pop_Auxiliary_Range
01a5 3ffc |? | Loop_Increasing 0x1a2
01a6 00ce | | Action Pop_Auxiliary
01a7 8604 | | Call 0x3,0x4
01a8 e602 | | Load 0x3,0x2
01a9 6802 |h | Jump_Zero 0x1ac
01aa 8605 | | Call 0x3,0x5
01ab 7804 |x | Jump 0x1b0
01ac 0092 0304 | | Action Push_String_Extended,0x304 ; "More than one of Login, Full Session, or Fundamental Session are non-zero. This must be fixed before proceeding."
01ae e018 | | Load 0x0,0x18
01af 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b0 00c9 | | Action Pop_Auxiliary_Loop
01b1 7fe2 | | Jump 0x194
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c0 | | .CONST 0x01c0 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb e406 | | Load 0x2,0x6
01bc e01b | | Load 0x0,0x1b
01bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01be 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
01c0 BODY_01b8:
01c0 e236 | 6 | Load 0x1,0x36
01c1 821c | | Call 0x1,0x1c
01c2 e602 | | Load 0x3,0x2
01c3 8239 | 9 | Call 0x1,0x39
01c4 e602 | | Load 0x3,0x2
01c5 e232 | 2 | Load 0x1,0x32
01c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c7 00cf | | Action Mark_Auxiliary
01c8 e405 | | Load 0x2,0x5
01c9 01dc | | Execute Vector,Last
01ca 4801 |H | Short_Literal 0x1
01cb 0263 | c | Execute Discrete,Above_Bound
01cc 7003 |p | Jump_Nonzero 0x1d0
01cd 8603 | | Call 0x3,0x3
01ce 00c8 | | Action Pop_Auxiliary_Range
01cf 3ffd |? | Loop_Increasing 0x1cd
01d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d1 0000 0000 | | .BLANK 0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4820 |H | Short_Literal 0x20
01dc 4800 |H | Short_Literal 0x0
01dd 480a |H | Short_Literal 0xa
01de e7ff | | Load 0x3,-0x1
01df e006 | | Load 0x0,0x6
01e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e1 0092 0305 | | Action Push_String_Extended,0x305 ; " Logins"
01e3 01cc | | Execute Vector,Catenate
01e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e7ff | | Load 0x3,-0x1
01ec 8410 | | Call 0x2,0x10
01ed e008 | | Load 0x0,0x8
01ee 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00cf | | Action Mark_Auxiliary
01f4 4801 |H | Short_Literal 0x1
01f5 4840 |H@ | Short_Literal 0x40
01f6 0007 | | Action Break_Optional
01f7 00d8 | | Load_Top At_Offset_0
01f8 8411 | | Call 0x2,0x11
01f9 6802 |h | Jump_Zero 0x1fc
01fa 00d8 | | Load_Top At_Offset_0
01fb 00ca | | Action Exit_Nullary_Function
01fc 00c8 | | Action Pop_Auxiliary_Range
01fd 37f9 |7 | Loop_Decreasing 0x1f7
01fe 00ce | | Action Pop_Auxiliary
01ff 4800 |H | Short_Literal 0x0
0200 00ca | | Action Exit_Nullary_Function
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0215 | | .CONST 0x0215 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0003 | | .CONST 0x0003 ; Number of locals
020b INIT_0208:
020b 8412 | | Call 0x2,0x12
020c 00e3 | | Load_Encached Natural_Cache
020d 03f1 | | Declare_Variable Discrete,With_Value
020e 0092 02fe | | Action Push_String_Extended,0x2fe ; "Login"
0210 e017 | | Load 0x0,0x17
0211 180e | | Execute Package,Field_Execute,Field_Number 0xe
0212 e017 | | Load 0x0,0x17
0213 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0214 03f1 | | Declare_Variable Discrete,With_Value
0215 BODY_0208:
0215 e602 | | Load 0x3,0x2
0216 e603 | | Load 0x3,0x3
0217 e405 | | Load 0x2,0x5
0218 01d6 | | Execute Vector,Field_Write
0219 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022a | * | .CONST 0x022a ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0004 | | .CONST 0x0004 ; Number of locals
0223 INIT_0220:
0223 e7ff | | Load 0x3,-0x1
0224 8410 | | Call 0x2,0x10
0225 821c | | Call 0x1,0x1c
0226 00e5 | | Load_Encached Long_Integer_Cache
0227 03f1 | | Declare_Variable Discrete,With_Value
0228 0092 0306 | | Action Push_String_Extended,0x306 ; "01/01/90"
022a BODY_0220:
022a 00d8 | | Load_Top At_Offset_0
022b e604 | | Load 0x3,0x4
022c e603 | | Load 0x3,0x3
022d e602 | | Load 0x3,0x2
022e e008 | | Load 0x0,0x8
022f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0230 e602 | | Load 0x3,0x2
0231 e008 | | Load 0x0,0x8
0232 180d | | Execute Package,Field_Execute,Field_Number 0xd
0233 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b 00e1 | | Load_Encached Boolean_Cache
023c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
023d BODY_0238:
023d 00cf | | Action Mark_Auxiliary
023e 4801 |H | Short_Literal 0x1
023f 4840 |H@ | Short_Literal 0x40
0240 0007 | | Action Break_Optional
0241 00d8 | | Load_Top At_Offset_0
0242 8411 | | Call 0x2,0x11
0243 6804 |h | Jump_Zero 0x248
0244 4801 |H | Short_Literal 0x1
0245 a602 | | Store_Unchecked 0x3,0x2
0246 00d8 | | Load_Top At_Offset_0
0247 8414 | | Call 0x2,0x14
0248 00c8 | | Action Pop_Auxiliary_Range
0249 37f7 |7 | Loop_Decreasing 0x241
024a 00ce | | Action Pop_Auxiliary
024b 00d8 | | Load_Top At_Offset_0
024c 6804 |h | Jump_Zero 0x251
024d e008 | | Load 0x0,0x8
024e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
024f e008 | | Load 0x0,0x8
0250 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0251 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 027f | | .CONST 0x027f ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e603 | | Load 0x3,0x3
025c 00e2 | | Load_Encached Integer_Cache
025d 00e0 | | Load_Encached Standard_Cache
025e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
025f c604 | | Store 0x3,0x4
0260 e604 | | Load 0x3,0x4
0261 e22b | + | Load 0x1,0x2b
0262 0260 | ` | Execute Discrete,In_Type
0263 6805 |h | Jump_Zero 0x269
0264 e604 | | Load 0x3,0x4
0265 e7ff | | Load 0x3,-0x1
0266 e405 | | Load 0x2,0x5
0267 01d6 | | Execute Vector,Field_Write
0268 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0269 482e |H. | Short_Literal 0x2e
026a 0092 0307 | | Action Push_String_Extended,0x307 ; "Value must be in the range "
026c 4820 |H | Short_Literal 0x20
026d 4800 |H | Short_Literal 0x0
026e 480a |H | Short_Literal 0xa
026f 4800 |H | Short_Literal 0x0
0270 8233 | 3 | Call 0x1,0x33
0271 01cc | | Execute Vector,Catenate
0272 0092 0308 | | Action Push_String_Extended,0x308 ; ".."
0274 01cc | | Execute Vector,Catenate
0275 4820 |H | Short_Literal 0x20
0276 4800 |H | Short_Literal 0x0
0277 480a |H | Short_Literal 0xa
0278 4840 |H@ | Short_Literal 0x40
0279 8233 | 3 | Call 0x1,0x33
027a 01cc | | Execute Vector,Catenate
027b 01cb | | Execute Vector,Append
027c e018 | | Load 0x0,0x18
027d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
027e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027f TRAP_0258:
027f 010e | | Execute Exception,Is_Constraint_Error
0280 6807 |h | Jump_Zero 0x288
0281 0092 0309 | | Action Push_String_Extended,0x309 ; "Numeric value is required."
0283 e018 | | Load 0x0,0x18
0284 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0285 e7ff | | Load 0x3,-0x1
0286 840c | | Call 0x2,0xc
0287 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0288 0100 | | Execute Exception,Raise
0289 0000 0000 | | .BLANK 0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00cf | | Action Mark_Auxiliary
0294 e408 | | Load 0x2,0x8
0295 01d9 | | Execute Vector,Reverse_Bounds
0296 0007 | | Action Break_Optional
0297 00d8 | | Load_Top At_Offset_0
0298 e408 | | Load 0x2,0x8
0299 01d7 | | Execute Vector,Field_Read
029a e405 | | Load 0x2,0x5
029b 01d7 | | Execute Vector,Field_Read
029c 0c01 | | Execute_Immediate Greater_Equal,0x1
029d 6807 |h | Jump_Zero 0x2a5
029e e603 | | Load 0x3,0x3
029f 6803 |h | Jump_Zero 0x2a3
02a0 4800 |H | Short_Literal 0x0
02a1 a602 | | Store_Unchecked 0x3,0x2
02a2 7802 |x | Jump 0x2a5
02a3 4801 |H | Short_Literal 0x1
02a4 a603 | | Store_Unchecked 0x3,0x3
02a5 00c8 | | Action Pop_Auxiliary_Range
02a6 3ff0 |? | Loop_Increasing 0x297
02a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b3 | | .CONST 0x02b3 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab 4820 |H | Short_Literal 0x20
02ac e603 | | Load 0x3,0x3
02ad 840d | | Call 0x2,0xd
02ae 0092 030a | | Action Push_String_Extended,0x30a ; "All answers correct"
02b0 840a | | Call 0x2,0xa
02b1 e006 | | Load 0x0,0x6
02b2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02b3 BODY_02a8:
02b3 e603 | | Load 0x3,0x3
02b4 6803 |h | Jump_Zero 0x2b8
02b5 00d8 | | Load_Top At_Offset_0
02b6 01db | | Execute Vector,Length
02b7 680e |h | Jump_Zero 0x2c6
02b8 4801 |H | Short_Literal 0x1
02b9 0092 030b | | Action Push_String_Extended,0x30b ; "Y"
02bb e802 | | Load 0x4,0x2
02bc e006 | | Load 0x0,0x6
02bd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02be 7007 |p | Jump_Nonzero 0x2c6
02bf 4801 |H | Short_Literal 0x1
02c0 0092 0301 | | Action Push_String_Extended,0x301 ; "Yes"
02c2 e802 | | Load 0x4,0x2
02c3 e006 | | Load 0x0,0x6
02c4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02c5 6802 |h | Jump_Zero 0x2c8
02c6 00cc | | Action Pop_Block
02c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c8 4801 |H | Short_Literal 0x1
02c9 e018 | | Load 0x0,0x18
02ca 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d6 | | .CONST 0x02d6 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 e606 | | Load 0x3,0x6
02d4 e017 | | Load 0x0,0x17
02d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02d6 BODY_02d0:
02d6 e606 | | Load 0x3,0x6
02d7 e405 | | Load 0x2,0x5
02d8 01d7 | | Execute Vector,Field_Read
02d9 e802 | | Load 0x4,0x2
02da e017 | | Load 0x0,0x17
02db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02dc e606 | | Load 0x3,0x6
02dd e405 | | Load 0x2,0x5
02de 01d7 | | Execute Vector,Field_Read
02df 0c01 | | Execute_Immediate Greater_Equal,0x1
02e0 680d |h | Jump_Zero 0x2ee
02e1 00d8 | | Load_Top At_Offset_0
02e2 e008 | | Load 0x0,0x8
02e3 180e | | Execute Package,Field_Execute,Field_Number 0xe
02e4 7009 |p | Jump_Nonzero 0x2ee
02e5 00ea | | Load_Encached Null_String_Cache
02e6 00ea | | Load_Encached Null_String_Cache
02e7 821c | | Call 0x1,0x1c
02e8 e802 | | Load 0x4,0x2
02e9 e008 | | Load 0x0,0x8
02ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02eb e802 | | Load 0x4,0x2
02ec e008 | | Load 0x0,0x8
02ed 180d | | Execute Package,Field_Execute,Field_Number 0xd
02ee 480c |H | Short_Literal 0xc
02ef e802 | | Load 0x4,0x2
02f0 e017 | | Load 0x0,0x17
02f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f3 ; --------------------------------------------------------------------------------------
02f3 ; STRING TABLE
02f3 ; --------------------------------------------------------------------------------------
02f3 0034 | 4 | .STRTAB 0x0034->0x030d ; "Setup_Machine"
02f4 003f | ? | .STRTAB 0x003f->0x0313 ; "This machine has already been assigned a Site. Contact your Rational representative for further assistance."
02f5 00a9 | | .STRTAB 0x00a9->0x0349 ; "Answer each of the following questions."
02f6 00ce | | .STRTAB 0x00ce->0x035d ; "No action will be taken until all answers have been given."
02f7 0106 | | .STRTAB 0x0106->0x037a ; "Default value for each token count is given in []"
02f8 0135 | 5 | .STRTAB 0x0135->0x0392 ; "All values start at 0, except Login."
02f9 0157 | W | .STRTAB 0x0157->0x03a4 ; "End of file encountered"
02fa 016c | l | .STRTAB 0x016c->0x03b0 ; " ["
02fb 016c | l | .STRTAB 0x016c->0x03b1 ; "]: "
02fc 016d | m | .STRTAB 0x016d->0x03b2 ; ": "
02fd 016d | m | .STRTAB 0x016d->0x03b3 ; "There is no default, and null string not a valid value."
02fe 01a2 | | .STRTAB 0x01a2->0x03cf ; "Login"
02ff 01a5 | | .STRTAB 0x01a5->0x03d1 ; "Full Session"
0300 01af | | .STRTAB 0x01af->0x03d7 ; "Fundamental Session"
0301 01c0 | | .STRTAB 0x01c0->0x03e1 ; "Yes"
0302 01c1 | | .STRTAB 0x01c1->0x03e2 ; "No"
0303 01c1 | | .STRTAB 0x01c1->0x03e3 ; "Site"
0304 01c3 | | .STRTAB 0x01c3->0x03e5 ; "More than one of Login, Full Session, or Fundamental Session are non-zero. This must be fixed before proceeding."
0305 0232 | 2 | .STRTAB 0x0232->0x041e ; " Logins"
0306 0237 | 7 | .STRTAB 0x0237->0x0421 ; "01/01/90"
0307 023d | = | .STRTAB 0x023d->0x0425 ; "Value must be in the range "
0308 0256 | V | .STRTAB 0x0256->0x0433 ; ".."
0309 0256 | V | .STRTAB 0x0256->0x0434 ; "Numeric value is required."
030a 026e | n | .STRTAB 0x026e->0x0441 ; "All answers correct"
030b 027f | | .STRTAB 0x027f->0x044a ; "Y"
030c 027e | ~ | .STREND 0x027e->0x044b
030d 5365 7475 |Setu| .STRTAB_STRINGS
044b 0000 0000 | | .BLANK 0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 000d | | .DEBUG4 0x0004,0x000d,0x6346,0x0000,0x0001,0x0000
0456 0000 0000 | | .BLANK 0000[0x1aa]