|
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_0df8e0
└─⟦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 e236 | 6 | Load 0x1,0x36
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 e016 | | Load 0x0,0x16
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 e01c | | Load 0x0,0x1c
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 e016 | | Load 0x0,0x16
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 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0054 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0056 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0058 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
005a 029f 021b | | Declare_Subprogram INIT_0218,For_Call
005c 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
005e BODY_0008:
005e e403 | | Load 0x2,0x3
005f e5ff | | Load 0x2,-0x1
0060 e402 | | Load 0x2,0x2
0061 e23b | ; | Load 0x1,0x3b
0062 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0063 c403 | | Store 0x2,0x3
0064 e403 | | Load 0x2,0x3
0065 e23b | ; | Load 0x1,0x3b
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 e23b | ; | Load 0x1,0x3b
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 e019 | | Load 0x0,0x19
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 e019 | | Load 0x0,0x19
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 e019 | | Load 0x0,0x19
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 e019 | | Load 0x0,0x19
007f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0080 4801 |H | Short_Literal 0x1
0081 e019 | | Load 0x0,0x19
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 e019 | | Load 0x0,0x19
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 e016 | | Load 0x0,0x16
008f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0090 e011 | | Load 0x0,0x11
0091 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0092 e23d | = | Load 0x1,0x3d
0093 180f | | Execute Package,Field_Execute,Field_Number 0xf
0094 e01d | | Load 0x0,0x1d
0095 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0096 e23d | = | Load 0x1,0x3d
0097 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0098 e403 | | Load 0x2,0x3
0099 00ea | | Load_Encached Null_String_Cache
009a e402 | | Load 0x2,0x2
009b e23b | ; | Load 0x1,0x3b
009c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
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 e23b | ; | Load 0x1,0x3b
00a5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00a6 00d8 | | Load_Top At_Offset_0
00a7 0101 | | Execute Exception,Reraise
00a8 e009 | | Load 0x0,0x9
00a9 010f | | Execute Exception,Equal
00aa 6805 |h | Jump_Zero 0xb0
00ab e403 | | Load 0x2,0x3
00ac e402 | | Load 0x2,0x2
00ad e23b | ; | Load 0x1,0x3b
00ae 181a | | Execute Package,Field_Execute,Field_Number 0x1a
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 e23b | ; | Load 0x1,0x3b
00bb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
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 e01a | | Load 0x0,0x1a
00c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c2 e402 | | Load 0x2,0x2
00c3 e23b | ; | Load 0x1,0x3b
00c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
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 e019 | | Load 0x0,0x19
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 02c7 | | Declare_Variable Any
00ce e019 | | Load 0x0,0x19
00cf 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00d0 a602 | | Store_Unchecked 0x3,0x2
00d1 00d8 | | Load_Top At_Offset_0
00d2 e019 | | Load 0x0,0x19
00d3 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00d4 00e2 | | Load_Encached Integer_Cache
00d5 03f1 | | Declare_Variable Discrete,With_Value
00d6 e019 | | Load 0x0,0x19
00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d8 02c7 | | Declare_Variable Any
00d9 e019 | | Load 0x0,0x19
00da 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00db a604 | | Store_Unchecked 0x3,0x4
00dc 00d8 | | Load_Top At_Offset_0
00dd e019 | | Load 0x0,0x19
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 e019 | | Load 0x0,0x19
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 e019 | | Load 0x0,0x19
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 e019 | | Load 0x0,0x19
0102 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0103 7804 |x | Jump 0x108
0104 0092 02fc | | Action Push_String_Extended,0x2fc ; ": "
0106 e019 | | Load 0x0,0x19
0107 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0108 e019 | | Load 0x0,0x19
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 e019 | | Load 0x0,0x19
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 e01c | | Load 0x0,0x1c
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 e01c | | Load 0x0,0x1c
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 e016 | | Load 0x0,0x16
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 823e | > | Call 0x1,0x3e
0145 e602 | | Load 0x3,0x2
0146 840a | | Call 0x2,0xa
0147 00e3 | | Load_Encached Natural_Cache
0148 029f 0253 | S| Declare_Subprogram INIT_0250,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 028b | | Declare_Subprogram INIT_0288,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 e01c | | Load 0x0,0x1c
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 7808 |x | Jump 0x1b4
01ac 0092 0304 | | Action Push_String_Extended,0x304 ; "More than one of Login, Full Session, or Fundamental Session are non-zero. "
01ae e019 | | Load 0x0,0x19
01af 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b0 0092 0305 | | Action Push_String_Extended,0x305 ; "This must be fixed before proceeding."
01b2 e019 | | Load 0x0,0x19
01b3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b4 00c9 | | Action Pop_Auxiliary_Loop
01b5 7fde | | Jump 0x194
01b6 0000 0000 | | .XXX[0x2]
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 e01c | | Load 0x0,0x1c
01bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01be 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
01c0 BODY_01b8:
01c0 e602 | | Load 0x3,0x2
01c1 e23d | = | Load 0x1,0x3d
01c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c3 00cf | | Action Mark_Auxiliary
01c4 e405 | | Load 0x2,0x5
01c5 01dc | | Execute Vector,Last
01c6 4801 |H | Short_Literal 0x1
01c7 0263 | c | Execute Discrete,Above_Bound
01c8 7003 |p | Jump_Nonzero 0x1cc
01c9 8603 | | Call 0x3,0x3
01ca 00c8 | | Action Pop_Auxiliary_Range
01cb 3ffd |? | Loop_Increasing 0x1c9
01cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4820 |H | Short_Literal 0x20
01d4 4800 |H | Short_Literal 0x0
01d5 480a |H | Short_Literal 0xa
01d6 e7ff | | Load 0x3,-0x1
01d7 e006 | | Load 0x0,0x6
01d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d9 0092 0306 | | Action Push_String_Extended,0x306 ; " Logins"
01db 01cc | | Execute Vector,Catenate
01dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 e7ff | | Load 0x3,-0x1
01e4 8410 | | Call 0x2,0x10
01e5 e017 | | Load 0x0,0x17
01e6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00cf | | Action Mark_Auxiliary
01ec 4801 |H | Short_Literal 0x1
01ed 4840 |H@ | Short_Literal 0x40
01ee 0007 | | Action Break_Optional
01ef 00d8 | | Load_Top At_Offset_0
01f0 8411 | | Call 0x2,0x11
01f1 6802 |h | Jump_Zero 0x1f4
01f2 00d8 | | Load_Top At_Offset_0
01f3 00ca | | Action Exit_Nullary_Function
01f4 00c8 | | Action Pop_Auxiliary_Range
01f5 37f9 |7 | Loop_Decreasing 0x1ef
01f6 00ce | | Action Pop_Auxiliary
01f7 4800 |H | Short_Literal 0x0
01f8 00ca | | Action Exit_Nullary_Function
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020d | | .CONST 0x020d ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 8412 | | Call 0x2,0x12
0204 00e3 | | Load_Encached Natural_Cache
0205 03f1 | | Declare_Variable Discrete,With_Value
0206 0092 02fe | | Action Push_String_Extended,0x2fe ; "Login"
0208 e016 | | Load 0x0,0x16
0209 180e | | Execute Package,Field_Execute,Field_Number 0xe
020a e016 | | Load 0x0,0x16
020b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020c 03f1 | | Declare_Variable Discrete,With_Value
020d BODY_0200:
020d e602 | | Load 0x3,0x2
020e e603 | | Load 0x3,0x3
020f e405 | | Load 0x2,0x5
0210 01d6 | | Execute Vector,Field_Write
0211 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0222 | " | .CONST 0x0222 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0004 | | .CONST 0x0004 ; Number of locals
021b INIT_0218:
021b e7ff | | Load 0x3,-0x1
021c 8410 | | Call 0x2,0x10
021d 821c | | Call 0x1,0x1c
021e 00e5 | | Load_Encached Long_Integer_Cache
021f 03f1 | | Declare_Variable Discrete,With_Value
0220 0092 0307 | | Action Push_String_Extended,0x307 ; "01/01/90"
0222 BODY_0218:
0222 00d8 | | Load_Top At_Offset_0
0223 e604 | | Load 0x3,0x4
0224 e603 | | Load 0x3,0x3
0225 e602 | | Load 0x3,0x2
0226 e017 | | Load 0x0,0x17
0227 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0228 e602 | | Load 0x3,0x2
0229 e017 | | Load 0x0,0x17
022a 180d | | Execute Package,Field_Execute,Field_Number 0xd
022b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235 | 5 | .CONST 0x0235 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 00e1 | | Load_Encached Boolean_Cache
0234 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0235 BODY_0230:
0235 00cf | | Action Mark_Auxiliary
0236 4801 |H | Short_Literal 0x1
0237 4840 |H@ | Short_Literal 0x40
0238 0007 | | Action Break_Optional
0239 00d8 | | Load_Top At_Offset_0
023a 8411 | | Call 0x2,0x11
023b 6804 |h | Jump_Zero 0x240
023c 4801 |H | Short_Literal 0x1
023d a602 | | Store_Unchecked 0x3,0x2
023e 00d8 | | Load_Top At_Offset_0
023f 8414 | | Call 0x2,0x14
0240 00c8 | | Action Pop_Auxiliary_Range
0241 37f7 |7 | Loop_Decreasing 0x239
0242 00ce | | Action Pop_Auxiliary
0243 00d8 | | Load_Top At_Offset_0
0244 6804 |h | Jump_Zero 0x249
0245 e017 | | Load 0x0,0x17
0246 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0247 e017 | | Load 0x0,0x17
0248 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0249 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0277 | w | .CONST 0x0277 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e603 | | Load 0x3,0x3
0254 00e2 | | Load_Encached Integer_Cache
0255 00e0 | | Load_Encached Standard_Cache
0256 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0257 c604 | | Store 0x3,0x4
0258 e604 | | Load 0x3,0x4
0259 e235 | 5 | Load 0x1,0x35
025a 0260 | ` | Execute Discrete,In_Type
025b 6805 |h | Jump_Zero 0x261
025c e604 | | Load 0x3,0x4
025d e7ff | | Load 0x3,-0x1
025e e405 | | Load 0x2,0x5
025f 01d6 | | Execute Vector,Field_Write
0260 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0261 482e |H. | Short_Literal 0x2e
0262 0092 0308 | | Action Push_String_Extended,0x308 ; "Value must be in the range "
0264 4820 |H | Short_Literal 0x20
0265 4800 |H | Short_Literal 0x0
0266 480a |H | Short_Literal 0xa
0267 4800 |H | Short_Literal 0x0
0268 823e | > | Call 0x1,0x3e
0269 01cc | | Execute Vector,Catenate
026a 0092 0309 | | Action Push_String_Extended,0x309 ; ".."
026c 01cc | | Execute Vector,Catenate
026d 4820 |H | Short_Literal 0x20
026e 4800 |H | Short_Literal 0x0
026f 480a |H | Short_Literal 0xa
0270 4840 |H@ | Short_Literal 0x40
0271 823e | > | Call 0x1,0x3e
0272 01cc | | Execute Vector,Catenate
0273 01cb | | Execute Vector,Append
0274 e019 | | Load 0x0,0x19
0275 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0276 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0277 TRAP_0250:
0277 010e | | Execute Exception,Is_Constraint_Error
0278 6807 |h | Jump_Zero 0x280
0279 0092 030a | | Action Push_String_Extended,0x30a ; "Numeric value is required."
027b e019 | | Load 0x0,0x19
027c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
027d e7ff | | Load 0x3,-0x1
027e 840c | | Call 0x2,0xc
027f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0280 0100 | | Execute Exception,Raise
0281 0000 0000 | | .BLANK 0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4801 |H | Short_Literal 0x1
028c a602 | | Store_Unchecked 0x3,0x2
028d 4800 |H | Short_Literal 0x0
028e a603 | | Store_Unchecked 0x3,0x3
028f 00cf | | Action Mark_Auxiliary
0290 e408 | | Load 0x2,0x8
0291 01d9 | | Execute Vector,Reverse_Bounds
0292 0007 | | Action Break_Optional
0293 00d8 | | Load_Top At_Offset_0
0294 e408 | | Load 0x2,0x8
0295 01d7 | | Execute Vector,Field_Read
0296 e405 | | Load 0x2,0x5
0297 01d7 | | Execute Vector,Field_Read
0298 0c01 | | Execute_Immediate Greater_Equal,0x1
0299 6807 |h | Jump_Zero 0x2a1
029a e603 | | Load 0x3,0x3
029b 6803 |h | Jump_Zero 0x29f
029c 4800 |H | Short_Literal 0x0
029d a602 | | Store_Unchecked 0x3,0x2
029e 7802 |x | Jump 0x2a1
029f 4801 |H | Short_Literal 0x1
02a0 a603 | | Store_Unchecked 0x3,0x3
02a1 00c8 | | Action Pop_Auxiliary_Range
02a2 3ff0 |? | Loop_Increasing 0x293
02a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a4 0000 0000 | | .BLANK 0000[0x4]
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 030b | | Action Push_String_Extended,0x30b ; "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 030c | | Action Push_String_Extended,0x30c ; "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 e019 | | Load 0x0,0x19
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 e016 | | Load 0x0,0x16
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 e016 | | Load 0x0,0x16
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 e017 | | Load 0x0,0x17
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 e017 | | Load 0x0,0x17
02ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02eb e802 | | Load 0x4,0x2
02ec e017 | | Load 0x0,0x17
02ed 180d | | Execute Package,Field_Execute,Field_Number 0xd
02ee 480c |H | Short_Literal 0xc
02ef e802 | | Load 0x4,0x2
02f0 e016 | | Load 0x0,0x16
02f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f3 ; --------------------------------------------------------------------------------------
02f3 ; STRING TABLE
02f3 ; --------------------------------------------------------------------------------------
02f3 0036 | 6 | .STRTAB 0x0036->0x030e ; "Setup_Machine"
02f4 0041 | A | .STRTAB 0x0041->0x0314 ; "This machine has already been assigned a Site. Contact your Rational representative for further assistance."
02f5 00ab | | .STRTAB 0x00ab->0x034a ; "Answer each of the following questions."
02f6 00d0 | | .STRTAB 0x00d0->0x035e ; "No action will be taken until all answers have been given."
02f7 0108 | | .STRTAB 0x0108->0x037b ; "Default value for each token count is given in []"
02f8 0137 | 7 | .STRTAB 0x0137->0x0393 ; "All values start at 0, except Login."
02f9 0159 | Y | .STRTAB 0x0159->0x03a5 ; "End of file encountered"
02fa 016e | n | .STRTAB 0x016e->0x03b1 ; " ["
02fb 016e | n | .STRTAB 0x016e->0x03b2 ; "]: "
02fc 016f | o | .STRTAB 0x016f->0x03b3 ; ": "
02fd 016f | o | .STRTAB 0x016f->0x03b4 ; "There is no default, and null string not a valid value."
02fe 01a4 | | .STRTAB 0x01a4->0x03d0 ; "Login"
02ff 01a7 | | .STRTAB 0x01a7->0x03d2 ; "Full Session"
0300 01b1 | | .STRTAB 0x01b1->0x03d8 ; "Fundamental Session"
0301 01c2 | | .STRTAB 0x01c2->0x03e2 ; "Yes"
0302 01c3 | | .STRTAB 0x01c3->0x03e3 ; "No"
0303 01c3 | | .STRTAB 0x01c3->0x03e4 ; "Site"
0304 01c5 | | .STRTAB 0x01c5->0x03e6 ; "More than one of Login, Full Session, or Fundamental Session are non-zero. "
0305 020f | | .STRTAB 0x020f->0x040c ; "This must be fixed before proceeding."
0306 0232 | 2 | .STRTAB 0x0232->0x041f ; " Logins"
0307 0237 | 7 | .STRTAB 0x0237->0x0422 ; "01/01/90"
0308 023d | = | .STRTAB 0x023d->0x0426 ; "Value must be in the range "
0309 0256 | V | .STRTAB 0x0256->0x0434 ; ".."
030a 0256 | V | .STRTAB 0x0256->0x0435 ; "Numeric value is required."
030b 026e | n | .STRTAB 0x026e->0x0442 ; "All answers correct"
030c 027f | | .STRTAB 0x027f->0x044b ; "Y"
030d 027e | ~ | .STREND 0x027e->0x044c
030e 5365 7475 |Setu| .STRTAB_STRINGS
044c 0000 0000 | | .BLANK 0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 000e | | .DEBUG4 0x0004,0x000e,0xcee9,0x0000,0x0001,0x0000
0456 603a 7a84 |`:z | .XXX[0x1d]
0458 0000 603a | `:|
045a 7a94 0000 |z |
045c 603a 7aa4 |`:z |
045e 0000 603a | `:|
0460 7ab4 0000 |z |
0462 603a 7ac4 |`:z |
0464 0000 603a | `:|
0466 7ad4 0000 |z |
0468 603a 7ae4 |`:z |
046a 0000 603a | `:|
046c 7af4 0000 |z |
046e 603a 7b04 |`:{ |
0470 0000 603a | `:|
0472 7b10 |{ |
0473 0000 0000 | | .BLANK 0000[0x18d]