|
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_5850da
└─⟦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 0340 | @ | .CONST 0x0340 ; 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 0046 | F | .CONST 0x0046 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
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 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001d c212 | | Store 0x1,0x12
001e 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0020 c213 | | Store 0x1,0x13
0021 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0023 c214 | | Store 0x1,0x14
0024 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0026 c215 | | Store 0x1,0x15
0027 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0029 c216 | | Store 0x1,0x16
002a 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
002c c218 | | Store 0x1,0x18
002d 00bf | | Action Accept_Activation
002e 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call
0030 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0031 00c7 | | Action Elaborate_Subprogram
0032 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0033 00c7 | | Action Elaborate_Subprogram
0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0035 00c7 | | Action Elaborate_Subprogram
0036 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
0038 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0039 00c7 | | Action Elaborate_Subprogram
003a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003b 00c7 | | Action Elaborate_Subprogram
003c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003d 00c7 | | Action Elaborate_Subprogram
003e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003f 00c7 | | Action Elaborate_Subprogram
0040 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0041 00c7 | | Action Elaborate_Subprogram
0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0043 00c7 | | Action Elaborate_Subprogram
0044 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0045 00c7 | | Action Elaborate_Subprogram
0046 BODY_0008:
0046 00bc | | Action Signal_Activated
0047 00bb | | Action Signal_Completion
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4800 |H | Short_Literal 0x0
004c 00db | | Load_Top At_Offset_3
004d 0092 0320 | | Action Push_String_Extended,0x320 ; ">>"
004f e001 | | Load 0x0,0x1
0050 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0051 7012 |p | Jump_Nonzero 0x64
0052 4800 |H | Short_Literal 0x0
0053 00db | | Load_Top At_Offset_3
0054 0092 0321 | !| Action Push_String_Extended,0x321 ; "<<"
0056 e001 | | Load 0x0,0x1
0057 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0058 700b |p | Jump_Nonzero 0x64
0059 00db | | Load_Top At_Offset_3
005a 6824 |h$ | Jump_Zero 0x7f
005b 4800 |H | Short_Literal 0x0
005c 00ea | | Load_Encached Null_String_Cache
005d 4820 |H | Short_Literal 0x20
005e e5ff | | Load 0x2,-0x1
005f e001 | | Load 0x0,0x1
0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0061 e001 | | Load 0x0,0x1
0062 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0063 681b |h | Jump_Zero 0x7f
0064 e5fc | | Load 0x2,-0x4
0065 4801 |H | Short_Literal 0x1
0066 4802 |H | Short_Literal 0x2
0067 e002 | | Load 0x0,0x2
0068 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0069 035b | [ | Declare_Type Array,Constrained
006a 0337 | 7 | Declare_Variable Array
006b e5ff | | Load 0x2,-0x1
006c e002 | | Load 0x0,0x2
006d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006e e002 | | Load 0x0,0x2
006f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0070 0119 | | Execute Any,Check_In_Formal_Type
0071 4801 |H | Short_Literal 0x1
0072 00da | | Load_Top At_Offset_2
0073 01d6 | | Execute Vector,Field_Write
0074 e5fd | | Load 0x2,-0x3
0075 e002 | | Load 0x0,0x2
0076 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0077 e002 | | Load 0x0,0x2
0078 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0079 0119 | | Execute Any,Check_In_Formal_Type
007a 4802 |H | Short_Literal 0x2
007b 00da | | Load_Top At_Offset_2
007c 01d6 | | Execute Vector,Field_Write
007d 6002 |` | Indirect_Literal Discrete,0x80,{0x00000000, 0x00008802}
007e 8219 | | Call 0x1,0x19
007f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0080 0000 0000 | | .LITERAL {0x00000000, 0x00008802}
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4800 |H | Short_Literal 0x0
008c 00ea | | Load_Encached Null_String_Cache
008d 4820 |H | Short_Literal 0x20
008e e5ff | | Load 0x2,-0x1
008f e001 | | Load 0x0,0x1
0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0091 e001 | | Load 0x0,0x1
0092 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0093 681b |h | Jump_Zero 0xaf
0094 e5fd | | Load 0x2,-0x3
0095 4801 |H | Short_Literal 0x1
0096 4802 |H | Short_Literal 0x2
0097 e002 | | Load 0x0,0x2
0098 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0099 035b | [ | Declare_Type Array,Constrained
009a 0337 | 7 | Declare_Variable Array
009b e5ff | | Load 0x2,-0x1
009c e002 | | Load 0x0,0x2
009d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009e e002 | | Load 0x0,0x2
009f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a0 0119 | | Execute Any,Check_In_Formal_Type
00a1 4801 |H | Short_Literal 0x1
00a2 00da | | Load_Top At_Offset_2
00a3 01d6 | | Execute Vector,Field_Write
00a4 e5fe | | Load 0x2,-0x2
00a5 e002 | | Load 0x0,0x2
00a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a7 e002 | | Load 0x0,0x2
00a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a9 0119 | | Execute Any,Check_In_Formal_Type
00aa 4802 |H | Short_Literal 0x2
00ab 00da | | Load_Top At_Offset_2
00ac 01d6 | | Execute Vector,Field_Write
00ad 67d2 |g | Indirect_Literal Discrete,0x80,{0x00000000, 0x00008802}
00ae 8219 | | Call 0x1,0x19
00af 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5 | | .CONST 0x00b5 ; Address of begin
00b1 00ce | | .CONST 0x00ce ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 0092 0322 | "| Action Push_String_Extended,0x322 ; "Rcf"
00b5 BODY_00b0:
00b5 00d8 | | Load_Top At_Offset_0
00b6 e003 | | Load 0x0,0x3
00b7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b8 7006 |p | Jump_Nonzero 0xbf
00b9 00db | | Load_Top At_Offset_3
00ba e002 | | Load 0x0,0x2
00bb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00bc 601b |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00008848}
00bd 8219 | | Call 0x1,0x19
00be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bf e004 | | Load 0x0,0x4
00c0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c1 4801 |H | Short_Literal 0x1
00c2 00da | | Load_Top At_Offset_2
00c3 e005 | | Load 0x0,0x5
00c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c5 e005 | | Load 0x0,0x5
00c6 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c7 7005 |p | Jump_Nonzero 0xcd
00c8 00db | | Load_Top At_Offset_3
00c9 e002 | | Load 0x0,0x2
00ca 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00cb 6008 |` | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00008847}
00cc 8219 | | Call 0x1,0x19
00cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ce TRAP_00b0:
00ce 4884 |H | Short_Literal 0x84
00cf 010f | | Execute Exception,Equal
00d0 6801 |h | Jump_Zero 0xd2
00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d2 0100 | | Execute Exception,Raise
00d3 0000 | | .XXX[0x1]
00d4 0000 0000 | | .LITERAL {0x00000000, 0x00008847}
00d8 0000 0000 | | .LITERAL {0x00000000, 0x00008848}
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ed | | .CONST 0x00ed ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e006 | | Load 0x0,0x6
00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e5 02c7 | | Declare_Variable Any
00e6 e5fd | | Load 0x2,-0x3
00e7 4801 |H | Short_Literal 0x1
00e8 e5fe | | Load 0x2,-0x2
00e9 e5ff | | Load 0x2,-0x1
00ea e007 | | Load 0x0,0x7
00eb 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
00ec a402 | | Store_Unchecked 0x2,0x2
00ed BODY_00e0:
00ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00fc | | .CONST 0x00fc ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e006 | | Load 0x0,0x6
00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f5 02c7 | | Declare_Variable Any
00f6 e5fe | | Load 0x2,-0x2
00f7 4801 |H | Short_Literal 0x1
00f8 e5ff | | Load 0x2,-0x1
00f9 e007 | | Load 0x0,0x7
00fa 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
00fb a402 | | Store_Unchecked 0x2,0x2
00fc BODY_00f0:
00fc e5fe | | Load 0x2,-0x2
00fd 00d9 | | Load_Top At_Offset_1
00fe e007 | | Load 0x0,0x7
00ff 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0100 681b |h | Jump_Zero 0x11c
0101 e5fe | | Load 0x2,-0x2
0102 4801 |H | Short_Literal 0x1
0103 4802 |H | Short_Literal 0x2
0104 e002 | | Load 0x0,0x2
0105 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0106 035b | [ | Declare_Type Array,Constrained
0107 0337 | 7 | Declare_Variable Array
0108 00da | | Load_Top At_Offset_2
0109 e002 | | Load 0x0,0x2
010a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
010b e002 | | Load 0x0,0x2
010c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010d 0119 | | Execute Any,Check_In_Formal_Type
010e 4801 |H | Short_Literal 0x1
010f 00da | | Load_Top At_Offset_2
0110 01d6 | | Execute Vector,Field_Write
0111 e5ff | | Load 0x2,-0x1
0112 e002 | | Load 0x0,0x2
0113 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0114 e002 | | Load 0x0,0x2
0115 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0116 0119 | | Execute Any,Check_In_Formal_Type
0117 4802 |H | Short_Literal 0x2
0118 00da | | Load_Top At_Offset_2
0119 01d6 | | Execute Vector,Field_Write
011a 6005 |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x0000882e}
011b 8219 | | Call 0x1,0x19
011c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 0000 0000 | | .LITERAL {0x00000000, 0x0000882e}
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0130 | 0 | .CONST 0x0130 ; Address of begin
0129 016e | n | .CONST 0x016e ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e006 | | Load 0x0,0x6
012c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
012d 0322 | " | Declare_Variable Record
012e 00d8 | | Load_Top At_Offset_0
012f 1c00 | | Execute_Immediate Run_Utility,0x0
0130 BODY_0128:
0130 e5fe | | Load 0x2,-0x2
0131 e5ff | | Load 0x2,-0x1
0132 e007 | | Load 0x0,0x7
0133 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0134 00d9 | | Load_Top At_Offset_1
0135 017d | } | Execute Record,Structure_Write
0136 00d8 | | Load_Top At_Offset_0
0137 e007 | | Load 0x0,0x7
0138 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0139 701b |p | Jump_Nonzero 0x155
013a e5fe | | Load 0x2,-0x2
013b 4801 |H | Short_Literal 0x1
013c 4802 |H | Short_Literal 0x2
013d e002 | | Load 0x0,0x2
013e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013f 035b | [ | Declare_Type Array,Constrained
0140 0337 | 7 | Declare_Variable Array
0141 00da | | Load_Top At_Offset_2
0142 e007 | | Load 0x0,0x7
0143 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0144 e002 | | Load 0x0,0x2
0145 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0146 0119 | | Execute Any,Check_In_Formal_Type
0147 4801 |H | Short_Literal 0x1
0148 00da | | Load_Top At_Offset_2
0149 01d6 | | Execute Vector,Field_Write
014a e5ff | | Load 0x2,-0x1
014b e002 | | Load 0x0,0x2
014c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
014d e002 | | Load 0x0,0x2
014e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014f 0119 | | Execute Any,Check_In_Formal_Type
0150 4802 |H | Short_Literal 0x2
0151 00da | | Load_Top At_Offset_2
0152 01d6 | | Execute Vector,Field_Write
0153 6028 |`( | Indirect_Literal Discrete,0x17c,{0x00000000, 0x0000882f}
0154 8219 | | Call 0x1,0x19
0155 00d8 | | Load_Top At_Offset_0
0156 e008 | | Load 0x0,0x8
0157 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0158 e007 | | Load 0x0,0x7
0159 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
015a 6812 |h | Jump_Zero 0x16d
015b e5fe | | Load 0x2,-0x2
015c 4801 |H | Short_Literal 0x1
015d 4801 |H | Short_Literal 0x1
015e e002 | | Load 0x0,0x2
015f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0160 035b | [ | Declare_Type Array,Constrained
0161 0337 | 7 | Declare_Variable Array
0162 00da | | Load_Top At_Offset_2
0163 e007 | | Load 0x0,0x7
0164 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0165 e002 | | Load 0x0,0x2
0166 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0167 0119 | | Execute Any,Check_In_Formal_Type
0168 4801 |H | Short_Literal 0x1
0169 00da | | Load_Top At_Offset_2
016a 01d6 | | Execute Vector,Field_Write
016b 600c |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00008891}
016c 8219 | | Call 0x1,0x19
016d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016e TRAP_0128:
016e 010e | | Execute Exception,Is_Constraint_Error
016f 6806 |h | Jump_Zero 0x176
0170 e5fe | | Load 0x2,-0x2
0171 e002 | | Load 0x0,0x2
0172 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0173 6004 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00008891}
0174 8219 | | Call 0x1,0x19
0175 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0176 0100 | | Execute Exception,Raise
0177 0000 | | .XXX[0x1]
0178 0000 0000 | | .LITERAL {0x00000000, 0x00008891}
017c 0000 0000 | | .LITERAL {0x00000000, 0x0000882f}
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018b | | .CONST 0x018b ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 e006 | | Load 0x0,0x6
0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0185 02c7 | | Declare_Variable Any
0186 00d8 | | Load_Top At_Offset_0
0187 1c00 | | Execute_Immediate Run_Utility,0x0
0188 e006 | | Load 0x0,0x6
0189 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018b BODY_0180:
018b e006 | | Load 0x0,0x6
018c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018e 00da | | Load_Top At_Offset_2
018f 0120 | | Execute Any,Is_Value
0190 6803 |h | Jump_Zero 0x194
0191 e006 | | Load 0x0,0x6
0192 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0193 7801 |x | Jump 0x195
0194 00da | | Load_Top At_Offset_2
0195 602e |`. | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x00004000}
0196 e009 | | Load 0x0,0x9
0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0198 e004 | | Load 0x0,0x4
0199 1811 | | Execute Package,Field_Execute,Field_Number 0x11
019a e006 | | Load 0x0,0x6
019b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
019d e5ff | | Load 0x2,-0x1
019e e006 | | Load 0x0,0x6
019f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01a0 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01a1 c402 | | Store 0x2,0x2
01a2 0059 | Y | Store_Top Discrete,At_Offset_1
01a3 00d8 | | Load_Top At_Offset_0
01a4 6805 |h | Jump_Zero 0x1aa
01a5 00d9 | | Load_Top At_Offset_1
01a6 e006 | | Load 0x0,0x6
01a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a8 012e | . | Execute Any,Not_Equal
01a9 6812 |h | Jump_Zero 0x1bc
01aa e5fe | | Load 0x2,-0x2
01ab 4801 |H | Short_Literal 0x1
01ac 4801 |H | Short_Literal 0x1
01ad e002 | | Load 0x0,0x2
01ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01af 035b | [ | Declare_Type Array,Constrained
01b0 0337 | 7 | Declare_Variable Array
01b1 00db | | Load_Top At_Offset_3
01b2 e002 | | Load 0x0,0x2
01b3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b4 e002 | | Load 0x0,0x2
01b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b6 0119 | | Execute Any,Check_In_Formal_Type
01b7 4801 |H | Short_Literal 0x1
01b8 00da | | Load_Top At_Offset_2
01b9 01d6 | | Execute Vector,Field_Write
01ba 6005 |` | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x00008850}
01bb 8219 | | Call 0x1,0x19
01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 0000 0000 | | .LITERAL {0x00000000, 0x00008850}
01c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc e007 | | Load 0x0,0x7
01cd 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ce 7013 |p | Jump_Nonzero 0x1e2
01cf 00db | | Load_Top At_Offset_3
01d0 4801 |H | Short_Literal 0x1
01d1 4801 |H | Short_Literal 0x1
01d2 e002 | | Load 0x0,0x2
01d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d4 035b | [ | Declare_Type Array,Constrained
01d5 0337 | 7 | Declare_Variable Array
01d6 e5ff | | Load 0x2,-0x1
01d7 e002 | | Load 0x0,0x2
01d8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01d9 e002 | | Load 0x0,0x2
01da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01db 0119 | | Execute Any,Check_In_Formal_Type
01dc 4801 |H | Short_Literal 0x1
01dd 00da | | Load_Top At_Offset_2
01de 01d6 | | Execute Vector,Field_Write
01df 6020 |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x0000882d}
01e0 8219 | | Call 0x1,0x19
01e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e2 00da | | Load_Top At_Offset_2
01e3 e007 | | Load 0x0,0x7
01e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e5 7012 |p | Jump_Nonzero 0x1f8
01e6 00db | | Load_Top At_Offset_3
01e7 4801 |H | Short_Literal 0x1
01e8 4801 |H | Short_Literal 0x1
01e9 e002 | | Load 0x0,0x2
01ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01eb 035b | [ | Declare_Type Array,Constrained
01ec 0337 | 7 | Declare_Variable Array
01ed e5ff | | Load 0x2,-0x1
01ee e002 | | Load 0x0,0x2
01ef 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f0 e002 | | Load 0x0,0x2
01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f2 0119 | | Execute Any,Check_In_Formal_Type
01f3 4801 |H | Short_Literal 0x1
01f4 00da | | Load_Top At_Offset_2
01f5 01d6 | | Execute Vector,Field_Write
01f6 6005 |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00008830}
01f7 8219 | | Call 0x1,0x19
01f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f9 0000 0000 | | .XXX[0x3]
01fb 0000 | |
01fc 0000 0000 | | .LITERAL {0x00000000, 0x00008830}
0200 0000 0000 | | .LITERAL {0x00000000, 0x0000882d}
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0225 | % | .CONST 0x0225 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0007 | | .CONST 0x0007 ; Number of locals
020b INIT_0208:
020b e006 | | Load 0x0,0x6
020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020d 02c7 | | Declare_Variable Any
020e e5fd | | Load 0x2,-0x3
020f 4800 |H | Short_Literal 0x0
0210 e5ff | | Load 0x2,-0x1
0211 e007 | | Load 0x0,0x7
0212 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0213 a402 | | Store_Unchecked 0x2,0x2
0214 e006 | | Load 0x0,0x6
0215 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0216 02c7 | | Declare_Variable Any
0217 00d8 | | Load_Top At_Offset_0
0218 1c00 | | Execute_Immediate Run_Utility,0x0
0219 e006 | | Load 0x0,0x6
021a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
021b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
021c 02c7 | | Declare_Variable Any
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f 00e1 | | Load_Encached Boolean_Cache
0220 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0221 e00a | | Load 0x0,0xa
0222 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0223 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
0225 BODY_0208:
0225 e402 | | Load 0x2,0x2
0226 e006 | | Load 0x0,0x6
0227 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0228 6800 |h | Jump_Zero 0x229
0229 e5fd | | Load 0x2,-0x3
022a 4800 |H | Short_Literal 0x0
022b e402 | | Load 0x2,0x2
022c e007 | | Load 0x0,0x7
022d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
022e 0092 0323 | #| Action Push_String_Extended,0x323 ; ".@'c(Comb_View)"
0230 01cc | | Execute Vector,Catenate
0231 e007 | | Load 0x0,0x7
0232 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0233 c404 | | Store 0x2,0x4
0234 00cf | | Action Mark_Auxiliary
0235 780d |x | Jump 0x243
0236 e5fd | | Load 0x2,-0x3
0237 4801 |H | Short_Literal 0x1
0238 e404 | | Load 0x2,0x4
0239 e007 | | Load 0x0,0x7
023a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
023b c403 | | Store 0x2,0x3
023c 8407 | | Call 0x2,0x7
023d e404 | | Load 0x2,0x4
023e e006 | | Load 0x0,0x6
023f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0240 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0241 c404 | | Store 0x2,0x4
0242 00c9 | | Action Pop_Auxiliary_Loop
0243 e404 | | Load 0x2,0x4
0244 e006 | | Load 0x0,0x6
0245 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0246 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0247 6fee |o | Jump_Zero 0x236
0248 00ce | | Action Pop_Auxiliary
0249 00da | | Load_Top At_Offset_2
024a 6804 |h | Jump_Zero 0x24f
024b 4803 |H | Short_Literal 0x3
024c 00da | | Load_Top At_Offset_2
024d e00a | | Load 0x0,0xa
024e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
024f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025c | \ | .CONST 0x025c ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 e006 | | Load 0x0,0x6
0254 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0255 02c7 | | Declare_Variable Any
0256 e5fd | | Load 0x2,-0x3
0257 e5fe | | Load 0x2,-0x2
0258 e5ff | | Load 0x2,-0x1
0259 e007 | | Load 0x0,0x7
025a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
025b a402 | | Store_Unchecked 0x2,0x2
025c BODY_0250:
025c 00d8 | | Load_Top At_Offset_0
025d e006 | | Load 0x0,0x6
025e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025f 7016 |p | Jump_Nonzero 0x276
0260 00d8 | | Load_Top At_Offset_0
0261 e007 | | Load 0x0,0x7
0262 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0263 7012 |p | Jump_Nonzero 0x276
0264 e5fd | | Load 0x2,-0x3
0265 4801 |H | Short_Literal 0x1
0266 4801 |H | Short_Literal 0x1
0267 e002 | | Load 0x0,0x2
0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0269 035b | [ | Declare_Type Array,Constrained
026a 0337 | 7 | Declare_Variable Array
026b 00da | | Load_Top At_Offset_2
026c e002 | | Load 0x0,0x2
026d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
026e e002 | | Load 0x0,0x2
026f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0270 0119 | | Execute Any,Check_In_Formal_Type
0271 4801 |H | Short_Literal 0x1
0272 00da | | Load_Top At_Offset_2
0273 01d6 | | Execute Vector,Field_Write
0274 6003 |` | Indirect_Literal Discrete,0x278,{0x00000000, 0x0000888f}
0275 8219 | | Call 0x1,0x19
0276 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0277 0000 | | .XXX[0x1]
0278 0000 0000 | | .LITERAL {0x00000000, 0x0000888f}
027c 0000 0000 | | .BLANK 0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 e00a | | Load 0x0,0xa
0284 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0285 BODY_0280:
0285 e5fe | | Load 0x2,-0x2
0286 e5ff | | Load 0x2,-0x1
0287 e00a | | Load 0x0,0xa
0288 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0289 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
028a e5fd | | Load 0x2,-0x3
028b 00d9 | | Load_Top At_Offset_1
028c e00a | | Load 0x0,0xa
028d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
028e 4803 |H | Short_Literal 0x3
028f 00d9 | | Load_Top At_Offset_1
0290 e00a | | Load 0x0,0xa
0291 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0292 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a0 | | .CONST 0x02a0 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b e006 | | Load 0x0,0x6
029c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029d 02c7 | | Declare_Variable Any
029e 00d8 | | Load_Top At_Offset_0
029f 1c00 | | Execute_Immediate Run_Utility,0x0
02a0 BODY_0298:
02a0 4801 |H | Short_Literal 0x1
02a1 0092 0324 | $| Action Push_String_Extended,0x324 ; "<INHERIT_MODEL>"
02a3 e5ff | | Load 0x2,-0x1
02a4 e001 | | Load 0x0,0x1
02a5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02a6 6807 |h | Jump_Zero 0x2ae
02a7 e5fd | | Load 0x2,-0x3
02a8 4801 |H | Short_Literal 0x1
02a9 e5fe | | Load 0x2,-0x2
02aa e007 | | Load 0x0,0x7
02ab 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
02ac c402 | | Store 0x2,0x2
02ad 7816 |x | Jump 0x2c4
02ae 4800 |H | Short_Literal 0x0
02af e5ff | | Load 0x2,-0x1
02b0 4821 |H! | Short_Literal 0x21
02b1 e001 | | Load 0x0,0x1
02b2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02b3 6807 |h | Jump_Zero 0x2bb
02b4 e5fd | | Load 0x2,-0x3
02b5 4801 |H | Short_Literal 0x1
02b6 e5ff | | Load 0x2,-0x1
02b7 e007 | | Load 0x0,0x7
02b8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02b9 c402 | | Store 0x2,0x2
02ba 7809 |x | Jump 0x2c4
02bb e5fd | | Load 0x2,-0x3
02bc 4801 |H | Short_Literal 0x1
02bd 0092 0325 | %| Action Push_String_Extended,0x325 ; "!Model."
02bf e5ff | | Load 0x2,-0x1
02c0 01cc | | Execute Vector,Catenate
02c1 e007 | | Load 0x0,0x7
02c2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02c3 c402 | | Store 0x2,0x2
02c4 e5fd | | Load 0x2,-0x3
02c5 00d9 | | Load_Top At_Offset_1
02c6 e007 | | Load 0x0,0x7
02c7 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02c8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02c9 0000 0000 | | .BLANK 0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02db | | .CONST 0x02db ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 e5fd | | Load 0x2,-0x3
02d4 00d8 | | Load_Top At_Offset_0
02d5 e403 | | Load 0x2,0x3
02d6 e007 | | Load 0x0,0x7
02d7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02d8 e403 | | Load 0x2,0x3
02d9 e00b | | Load 0x0,0xb
02da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02db BODY_02d0:
02db e403 | | Load 0x2,0x3
02dc e5ff | | Load 0x2,-0x1
02dd 012e | . | Execute Any,Not_Equal
02de 683a |h: | Jump_Zero 0x319
02df e5fd | | Load 0x2,-0x3
02e0 e403 | | Load 0x2,0x3
02e1 e007 | | Load 0x0,0x7
02e2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02e3 7035 |p5 | Jump_Nonzero 0x319
02e4 e5fe | | Load 0x2,-0x2
02e5 01db | | Execute Vector,Length
02e6 6832 |h2 | Jump_Zero 0x319
02e7 4801 |H | Short_Literal 0x1
02e8 00d9 | | Load_Top At_Offset_1
02e9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02ea e5fe | | Load 0x2,-0x2
02eb e001 | | Load 0x0,0x1
02ec 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02ed 682b |h+ | Jump_Zero 0x319
02ee 4801 |H | Short_Literal 0x1
02ef a405 | | Store_Unchecked 0x2,0x5
02f0 4801 |H | Short_Literal 0x1
02f1 4803 |H | Short_Literal 0x3
02f2 e002 | | Load 0x0,0x2
02f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f4 035b | [ | Declare_Type Array,Constrained
02f5 0337 | 7 | Declare_Variable Array
02f6 e5fe | | Load 0x2,-0x2
02f7 e002 | | Load 0x0,0x2
02f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f9 e002 | | Load 0x0,0x2
02fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fb 0119 | | Execute Any,Check_In_Formal_Type
02fc 4801 |H | Short_Literal 0x1
02fd 00da | | Load_Top At_Offset_2
02fe 01d6 | | Execute Vector,Field_Write
02ff e5ff | | Load 0x2,-0x1
0300 e002 | | Load 0x0,0x2
0301 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0302 e002 | | Load 0x0,0x2
0303 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0304 0119 | | Execute Any,Check_In_Formal_Type
0305 4802 |H | Short_Literal 0x2
0306 00da | | Load_Top At_Offset_2
0307 01d6 | | Execute Vector,Field_Write
0308 e403 | | Load 0x2,0x3
0309 e002 | | Load 0x0,0x2
030a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
030b e002 | | Load 0x0,0x2
030c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
030d 0119 | | Execute Any,Check_In_Formal_Type
030e 4803 |H | Short_Literal 0x3
030f 00da | | Load_Top At_Offset_2
0310 01d6 | | Execute Vector,Field_Write
0311 600a |` | Indirect_Literal Discrete,0x31c,{0x00000000, 0x00008836}
0312 e00a | | Load 0x0,0xa
0313 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0314 a406 | | Store_Unchecked 0x2,0x6
0315 e5fd | | Load 0x2,-0x3
0316 e406 | | Load 0x2,0x6
0317 e00a | | Load 0x0,0xa
0318 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0319 4501 |E | Exit_Suprogram New_Top_Offset 0x1
031a 0000 0000 | | .XXX[0x2]
031c 0000 0000 | | .LITERAL {0x00000000, 0x00008836}
0320 ; --------------------------------------------------------------------------------------
0320 ; STRING TABLE
0320 ; --------------------------------------------------------------------------------------
0320 000e | | .STRTAB 0x000e->0x0327 ; ">>"
0321 000e | | .STRTAB 0x000e->0x0328 ; "<<"
0322 000e | | .STRTAB 0x000e->0x0329 ; "Rcf"
0323 000f | | .STRTAB 0x000f->0x032a ; ".@'c(Comb_View)"
0324 001c | | .STRTAB 0x001c->0x0332 ; "<INHERIT_MODEL>"
0325 0029 | ) | .STRTAB 0x0029->0x0339 ; "!Model."
0326 002e | . | .STREND 0x002e->0x033d
0327 3e3e 3c3c |>><<| .STRTAB_STRINGS
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug Table
0340 ; --------------------------------------------------------------------------------------
0340 0004 000d | | .DEBUG4 0x0004,0x000d,0x509c,0x0000,0x0001,0x0000
0346 0000 0000 | | .BLANK 0000[0xba]