|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 02e8 | | .CONST 0x02e8 ; 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 00d0 | | .CONST 0x00d0 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0037 | 7 | .CONST 0x0037 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 4802 |H | Short_Literal 0x2
0035 032b | + | Declare_Type Record,Incomplete,Visible
0036 c21c | | Store 0x1,0x1c
0037 4802 |H | Short_Literal 0x2
0038 032b | + | Declare_Type Record,Incomplete,Visible
0039 c21d | | Store 0x1,0x1d
003a 4802 |H | Short_Literal 0x2
003b 032b | + | Declare_Type Record,Incomplete,Visible
003c c21e | | Store 0x1,0x1e
003d e001 | | Load 0x0,0x1
003e 0129 | ) | Execute Any,Make_Visible
003f c21f | | Store 0x1,0x1f
0040 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0042 c220 | | Store 0x1,0x20
0043 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0045 c221 | ! | Store 0x1,0x21
0046 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0048 c222 | " | Store 0x1,0x22
0049 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
004b c223 | # | Store 0x1,0x23
004c 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
004e c224 | $ | Store 0x1,0x24
004f e002 | | Load 0x0,0x2
0050 0129 | ) | Execute Any,Make_Visible
0051 c225 | % | Store 0x1,0x25
0052 e003 | | Load 0x0,0x3
0053 0129 | ) | Execute Any,Make_Visible
0054 c226 | & | Store 0x1,0x26
0055 e004 | | Load 0x0,0x4
0056 0129 | ) | Execute Any,Make_Visible
0057 c235 | 5 | Store 0x1,0x35
0058 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
005a c227 | ' | Store 0x1,0x27
005b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
005d c228 | ( | Store 0x1,0x28
005e 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0060 c229 | ) | Store 0x1,0x29
0061 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0063 c22a | * | Store 0x1,0x2a
0064 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0066 c22b | + | Store 0x1,0x2b
0067 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0069 c22c | , | Store 0x1,0x2c
006a 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
006c c22d | - | Store 0x1,0x2d
006d 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
006f c218 | | Store 0x1,0x18
0070 e005 | | Load 0x0,0x5
0071 0129 | ) | Execute Any,Make_Visible
0072 c22e | . | Store 0x1,0x2e
0073 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0075 c22f | / | Store 0x1,0x2f
0076 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0078 c230 | 0 | Store 0x1,0x30
0079 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
007b c231 | 1 | Store 0x1,0x31
007c 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
007e c232 | 2 | Store 0x1,0x32
007f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0081 c21a | | Store 0x1,0x1a
0082 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0084 c21b | | Store 0x1,0x1b
0085 00e9 | | Load_Encached String_Cache
0086 02a0 | | Declare_Subprogram Null_Subprogram
0087 4818 |H | Short_Literal 0x18
0088 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0089 c213 | | Store 0x1,0x13
008a e213 | | Load 0x1,0x13
008b e006 | | Load 0x0,0x6
008c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
008d 02a0 | | Declare_Subprogram Null_Subprogram
008e e21c | | Load 0x1,0x1c
008f 0326 | & | Complete_Type Record,By_Defining
0090 4802 |H | Short_Literal 0x2
0091 032a | * | Declare_Type Record,Incomplete
0092 c233 | 3 | Store 0x1,0x33
0093 e233 | 3 | Load 0x1,0x33
0094 02a0 | | Declare_Subprogram Null_Subprogram
0095 4818 |H | Short_Literal 0x18
0096 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0097 c234 | 4 | Store 0x1,0x34
0098 e21c | | Load 0x1,0x1c
0099 e234 | 4 | Load 0x1,0x34
009a 02a0 | | Declare_Subprogram Null_Subprogram
009b e233 | 3 | Load 0x1,0x33
009c 0326 | & | Complete_Type Record,By_Defining
009d e234 | 4 | Load 0x1,0x34
009e 00d8 | | Load_Top At_Offset_0
009f 02a0 | | Declare_Subprogram Null_Subprogram
00a0 e21d | | Load 0x1,0x1d
00a1 0326 | & | Complete_Type Record,By_Defining
00a2 e21d | | Load 0x1,0x1d
00a3 e21e | | Load 0x1,0x1e
00a4 0325 | % | Complete_Type Record,By_Renaming
00a5 00bf | | Action Accept_Activation
00a6 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
00a8 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00bf 00c7 | | Action Elaborate_Subprogram
00c0 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call
00c2 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00cf 00c7 | | Action Elaborate_Subprogram
00d0 BODY_0008:
00d0 00bc | | Action Signal_Activated
00d1 00bb | | Action Signal_Completion
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e21c | | Load 0x1,0x1c
00dc 0322 | " | Declare_Variable Record
00dd e213 | | Load 0x1,0x13
00de e402 | | Load 0x2,0x2
00df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e0 4816 |H | Short_Literal 0x16
00e1 e402 | | Load 0x2,0x2
00e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e3 00ca | | Action Exit_Nullary_Function
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e5ff | | Load 0x2,-0x1
00ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ed 022d | - | Execute Access,Is_Null
00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ef 0000 | | .XXX[0x1]
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 e21c | | Load 0x1,0x1c
00f4 0322 | " | Declare_Variable Record
00f5 e5ff | | Load 0x2,-0x1
00f6 e213 | | Load 0x1,0x13
00f7 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00f8 e402 | | Load 0x2,0x2
00f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00fa e5fe | | Load 0x2,-0x2
00fb e402 | | Load 0x2,0x2
00fc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e5ff | | Load 0x2,-0x1
0104 8221 | ! | Call 0x1,0x21
0105 6802 |h | Jump_Zero 0x108
0106 e21f | | Load 0x1,0x1f
0107 0257 | W | Execute Discrete,Raise
0108 e5ff | | Load 0x2,-0x1
0109 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010a 0227 | ' | Execute Access,All_Reference
010b 0335 | 5 | Declare_Variable Array,Duplicate
010c 00cd | | Action Spare6_Action
010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e5ff | | Load 0x2,-0x1
0114 8221 | ! | Call 0x1,0x21
0115 6802 |h | Jump_Zero 0x118
0116 e21f | | Load 0x1,0x1f
0117 0257 | W | Execute Discrete,Raise
0118 e5ff | | Load 0x2,-0x1
0119 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e21d | | Load 0x1,0x1d
0124 0322 | " | Declare_Variable Record
0125 e234 | 4 | Load 0x1,0x34
0126 e402 | | Load 0x2,0x2
0127 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0128 e234 | 4 | Load 0x1,0x34
0129 e402 | | Load 0x2,0x2
012a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012b 00ca | | Action Exit_Nullary_Function
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e5ff | | Load 0x2,-0x1
0134 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0135 022d | - | Execute Access,Is_Null
0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013d | = | .CONST 0x013d ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b e5ff | | Load 0x2,-0x1
013c 8236 | 6 | Call 0x1,0x36
013d BODY_0138:
013d e5fe | | Load 0x2,-0x2
013e 8228 | ( | Call 0x1,0x28
013f 6803 |h | Jump_Zero 0x143
0140 00d8 | | Load_Top At_Offset_0
0141 e5fe | | Load 0x2,-0x2
0142 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0143 e5fe | | Load 0x2,-0x2
0144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0145 e402 | | Load 0x2,0x2
0146 0227 | ' | Execute Access,All_Reference
0147 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0148 00d8 | | Load_Top At_Offset_0
0149 e5fe | | Load 0x2,-0x2
014a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155 | U | .CONST 0x0155 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e5ff | | Load 0x2,-0x1
0154 8236 | 6 | Call 0x1,0x36
0155 BODY_0150:
0155 e5fe | | Load 0x2,-0x2
0156 8228 | ( | Call 0x1,0x28
0157 6804 |h | Jump_Zero 0x15c
0158 00d8 | | Load_Top At_Offset_0
0159 e5fe | | Load 0x2,-0x2
015a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
015b 7805 |x | Jump 0x161
015c 00d8 | | Load_Top At_Offset_0
015d e5fe | | Load 0x2,-0x2
015e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015f 0227 | ' | Execute Access,All_Reference
0160 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0161 00d8 | | Load_Top At_Offset_0
0162 e5fe | | Load 0x2,-0x2
0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0164 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b e5ff | | Load 0x2,-0x1
016c 8228 | ( | Call 0x1,0x28
016d 6802 |h | Jump_Zero 0x170
016e e225 | % | Load 0x1,0x25
016f 0257 | W | Execute Discrete,Raise
0170 e5ff | | Load 0x2,-0x1
0171 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0172 0227 | ' | Execute Access,All_Reference
0173 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0174 e5ff | | Load 0x2,-0x1
0175 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0176 e5ff | | Load 0x2,-0x1
0177 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0178 7003 |p | Jump_Nonzero 0x17c
0179 e234 | 4 | Load 0x1,0x34
017a e5ff | | Load 0x2,-0x1
017b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0185 | | .CONST 0x0185 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 e234 | 4 | Load 0x1,0x34
0184 0007 | | Action Break_Optional
0185 BODY_0180:
0185 e5ff | | Load 0x2,-0x1
0186 8228 | ( | Call 0x1,0x28
0187 6802 |h | Jump_Zero 0x18a
0188 e225 | % | Load 0x1,0x25
0189 0257 | W | Execute Discrete,Raise
018a e5ff | | Load 0x2,-0x1
018b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018c e5ff | | Load 0x2,-0x1
018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018e 022f | / | Execute Access,Equal
018f 6804 |h | Jump_Zero 0x194
0190 e5ff | | Load 0x2,-0x1
0191 822d | - | Call 0x1,0x2d
0192 00d1 | | Pop_Control Pop_Count_1
0193 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0194 e5ff | | Load 0x2,-0x1
0195 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0196 a402 | | Store_Unchecked 0x2,0x2
0197 00cf | | Action Mark_Auxiliary
0198 7805 |x | Jump 0x19e
0199 e402 | | Load 0x2,0x2
019a 0227 | ' | Execute Access,All_Reference
019b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019c a402 | | Store_Unchecked 0x2,0x2
019d 00c9 | | Action Pop_Auxiliary_Loop
019e e402 | | Load 0x2,0x2
019f 0227 | ' | Execute Access,All_Reference
01a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a1 e5ff | | Load 0x2,-0x1
01a2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a3 022e | . | Execute Access,Not_Equal
01a4 77f4 |w | Jump_Nonzero 0x199
01a5 00ce | | Action Pop_Auxiliary
01a6 e234 | 4 | Load 0x1,0x34
01a7 e402 | | Load 0x2,0x2
01a8 0227 | ' | Execute Access,All_Reference
01a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01aa 00d8 | | Load_Top At_Offset_0
01ab e5ff | | Load 0x2,-0x1
01ac 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 8227 | ' | Call 0x1,0x27
01b4 e5ff | | Load 0x2,-0x1
01b5 017d | } | Execute Record,Structure_Write
01b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01d7 | | .CONST 0x01d7 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0008 | | .CONST 0x0008 ; Number of locals
01bb INIT_01b8:
01bb 4801 |H | Short_Literal 0x1
01bc e5ff | | Load 0x2,-0x1
01bd e007 | | Load 0x0,0x7
01be 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
01bf 4801 |H | Short_Literal 0x1
01c0 e5ff | | Load 0x2,-0x1
01c1 e007 | | Load 0x0,0x7
01c2 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
01c3 00d8 | | Load_Top At_Offset_0
01c4 8237 | 7 | Call 0x1,0x37
01c5 00e1 | | Load_Encached Boolean_Cache
01c6 03f1 | | Declare_Variable Discrete,With_Value
01c7 e007 | | Load 0x0,0x7
01c8 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
01c9 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01ca e007 | | Load 0x0,0x7
01cb 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
01cc 0664 | d | Execute_Immediate Set_Value_Unchecked,0x64
01cd e008 | | Load 0x0,0x8
01ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cf 02c7 | | Declare_Variable Any
01d0 00d8 | | Load_Top At_Offset_0
01d1 1c00 | | Execute_Immediate Run_Utility,0x0
01d2 e21d | | Load 0x1,0x1d
01d3 0322 | " | Declare_Variable Record
01d4 8227 | ' | Call 0x1,0x27
01d5 e408 | | Load 0x2,0x8
01d6 017d | } | Execute Record,Structure_Write
01d7 BODY_01b8:
01d7 00d8 | | Load_Top At_Offset_0
01d8 4801 |H | Short_Literal 0x1
01d9 e5ff | | Load 0x2,-0x1
01da e007 | | Load 0x0,0x7
01db 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01dc 4801 |H | Short_Literal 0x1
01dd e5ff | | Load 0x2,-0x1
01de e007 | | Load 0x0,0x7
01df 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
01e0 8222 | " | Call 0x1,0x22
01e1 822a | * | Call 0x1,0x2a
01e2 00d1 | | Pop_Control Pop_Count_1
01e3 00cf | | Action Mark_Auxiliary
01e4 7851 |xQ | Jump 0x236
01e5 e407 | | Load 0x2,0x7
01e6 e009 | | Load 0x0,0x9
01e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e8 e406 | | Load 0x2,0x6
01e9 e5ff | | Load 0x2,-0x1
01ea 4801 |H | Short_Literal 0x1
01eb e405 | | Load 0x2,0x5
01ec e006 | | Load 0x0,0x6
01ed 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01ee e5ff | | Load 0x2,-0x1
01ef e007 | | Load 0x0,0x7
01f0 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
01f1 e007 | | Load 0x0,0x7
01f2 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
01f3 c407 | | Store 0x2,0x7
01f4 4801 |H | Short_Literal 0x1
01f5 e407 | | Load 0x2,0x7
01f6 e008 | | Load 0x0,0x8
01f7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f8 6819 |h | Jump_Zero 0x212
01f9 0092 02bf | | Action Push_String_Extended,0x2bf ; "Slot already in use"
01fb e407 | | Load 0x2,0x7
01fc e008 | | Load 0x0,0x8
01fd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01fe 7013 |p | Jump_Nonzero 0x212
01ff e00a | | Load 0x0,0xa
0200 180e | | Execute Package,Field_Execute,Field_Number 0xe
0201 4807 |H | Short_Literal 0x7
0202 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "Error found when searching one of the parents of gateway "
0204 4801 |H | Short_Literal 0x1
0205 e5ff | | Load 0x2,-0x1
0206 e007 | | Load 0x0,0x7
0207 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0208 01cc | | Execute Vector,Catenate
0209 e00b | | Load 0x0,0xb
020a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020b e00a | | Load 0x0,0xa
020c 180e | | Execute Package,Field_Execute,Field_Number 0xe
020d e407 | | Load 0x2,0x7
020e e00b | | Load 0x0,0xb
020f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0210 e235 | 5 | Load 0x1,0x35
0211 0257 | W | Execute Discrete,Raise
0212 e408 | | Load 0x2,0x8
0213 4801 |H | Short_Literal 0x1
0214 e406 | | Load 0x2,0x6
0215 e006 | | Load 0x0,0x6
0216 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0217 e5ff | | Load 0x2,-0x1
0218 e007 | | Load 0x0,0x7
0219 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
021a e006 | | Load 0x0,0x6
021b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
021c 1c02 | | Execute_Immediate Run_Utility,0x2
021d 4801 |H | Short_Literal 0x1
021e e406 | | Load 0x2,0x6
021f e006 | | Load 0x0,0x6
0220 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0221 e5ff | | Load 0x2,-0x1
0222 e007 | | Load 0x0,0x7
0223 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0224 8222 | " | Call 0x1,0x22
0225 8229 | ) | Call 0x1,0x29
0226 00d1 | | Pop_Control Pop_Count_1
0227 4801 |H | Short_Literal 0x1
0228 e406 | | Load 0x2,0x6
0229 e006 | | Load 0x0,0x6
022a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
022b e5ff | | Load 0x2,-0x1
022c e007 | | Load 0x0,0x7
022d 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
022e 8237 | 7 | Call 0x1,0x37
022f a404 | | Store_Unchecked 0x2,0x4
0230 e406 | | Load 0x2,0x6
0231 a405 | | Store_Unchecked 0x2,0x5
0232 e406 | | Load 0x2,0x6
0233 0a01 | | Execute_Immediate Plus,0x1
0234 c406 | | Store 0x2,0x6
0235 00c9 | | Action Pop_Auxiliary_Loop
0236 e404 | | Load 0x2,0x4
0237 e406 | | Load 0x2,0x6
0238 0d6e | n | Execute_Immediate Less,0x6e
0239 0279 | y | Execute Discrete,And
023a 77aa |w | Jump_Nonzero 0x1e5
023b 00ce | | Action Pop_Auxiliary
023c e404 | | Load 0x2,0x4
023d 6802 |h | Jump_Zero 0x240
023e e226 | & | Load 0x1,0x26
023f 0257 | W | Execute Discrete,Raise
0240 00d8 | | Load_Top At_Offset_0
0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e5ff | | Load 0x2,-0x1
024c e5fe | | Load 0x2,-0x2
024d 017d | } | Execute Record,Structure_Write
024e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024f 0000 | | .XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e5ff | | Load 0x2,-0x1
0254 8228 | ( | Call 0x1,0x28
0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e5ff | | Load 0x2,-0x1
025c 8228 | ( | Call 0x1,0x28
025d 6802 |h | Jump_Zero 0x260
025e e22e | . | Load 0x1,0x2e
025f 0257 | W | Execute Discrete,Raise
0260 e5ff | | Load 0x2,-0x1
0261 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0262 0227 | ' | Execute Access,All_Reference
0263 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0264 0320 | | Declare_Variable Record,Duplicate
0265 00cd | | Action Spare6_Action
0266 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e5ff | | Load 0x2,-0x1
026c 8228 | ( | Call 0x1,0x28
026d 6802 |h | Jump_Zero 0x270
026e e22e | . | Load 0x1,0x2e
026f 0257 | W | Execute Discrete,Raise
0270 e5ff | | Load 0x2,-0x1
0271 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0272 0227 | ' | Execute Access,All_Reference
0273 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0274 e5ff | | Load 0x2,-0x1
0275 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0276 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4801 |H | Short_Literal 0x1
027c e5ff | | Load 0x2,-0x1
027d e007 | | Load 0x0,0x7
027e 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
027f 821b | | Call 0x1,0x1b
0280 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0281 0000 0000 | | .BLANK 0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0290 | | .CONST 0x0290 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b e5ff | | Load 0x2,-0x1
028c e00c | | Load 0x0,0xc
028d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028e e00d | | Load 0x0,0xd
028f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0290 BODY_0288:
0290 00d8 | | Load_Top At_Offset_0
0291 01db | | Execute Vector,Length
0292 0d20 | | Execute_Immediate Less,0x20
0293 6802 |h | Jump_Zero 0x296
0294 00d8 | | Load_Top At_Offset_0
0295 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0296 00d8 | | Load_Top At_Offset_0
0297 01dd | | Execute Vector,First
0298 e402 | | Load 0x2,0x2
0299 01dd | | Execute Vector,First
029a 0a1e | | Execute_Immediate Plus,0x1e
029b 00d8 | | Load_Top At_Offset_0
029c 00e2 | | Load_Encached Integer_Cache
029d 0260 | ` | Execute Discrete,In_Type
029e 7001 |p | Jump_Nonzero 0x2a0
029f 0801 | | Execute_Immediate Raise,0x1
02a0 e402 | | Load 0x2,0x2
02a1 01cf | | Execute Vector,Slice_Read
02a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a3 0000 0000 | | .BLANK 0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab e233 | 3 | Load 0x1,0x33
02ac 0322 | " | Declare_Variable Record
02ad e5ff | | Load 0x2,-0x1
02ae e402 | | Load 0x2,0x2
02af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02b0 e234 | 4 | Load 0x1,0x34
02b1 e402 | | Load 0x2,0x2
02b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02b3 e234 | 4 | Load 0x1,0x34
02b4 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b6 0000 0000 | | .XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb e5ff | | Load 0x2,-0x1
02bc 01db | | Execute Vector,Length
02bd 0e00 | | Execute_Immediate Not_Equal,0x0
02be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bf ; --------------------------------------------------------------------------------------
02bf ; STRING TABLE
02bf ; --------------------------------------------------------------------------------------
02bf 0006 | | .STRTAB 0x0006->0x02c2 ; "Slot already in use"
02c0 0017 | | .STRTAB 0x0017->0x02cb ; "Error found when searching one of the parents of gateway "
02c1 004e | N | .STREND 0x004e->0x02e8
02c2 536c 6f74 |Slot| .STRTAB_STRINGS
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug Table
02e8 ; --------------------------------------------------------------------------------------
02e8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xce83,0x0000,0x0001,0x0000
02ee 0000 0000 | | .BLANK 0000[0x13]
0301 0020 0500 | | .XXX[0xc]
0303 0000 0000 | |
0305 0000 4000 | @ |
0307 0002 2000 | |
0309 0000 0100 | |
030b 0000 0a00 | |
030d 0000 0000 | | .BLANK 0000[0x2d]
033a 0004 00a0 | | .XXX[0xc]
033c 0000 0000 | |
033e 0000 0800 | |
0340 0000 4400 | D |
0342 0000 0020 | |
0344 0000 0140 | @|
0346 0000 0000 | | .BLANK 0000[0x2e]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]