|
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: 9216 (0x2400)
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 1008 | | .CONST 0x1008 ; 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 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00f2 | | .CONST 0x00f2 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0037 | 7 | .CONST 0x0037 ; Number of locals
000b INIT_0008:
000b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
000d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
000f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0011 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0013 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0015 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0017 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0019 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
001b 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
001d 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
001f 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0021 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
0023 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
0025 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
0027 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0029 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
002b 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated
002d 029a 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call,Visible,Unelaborated
002f 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated
0031 029a 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call,Visible,Unelaborated
0033 029a 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Visible,Unelaborated
0035 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
0037 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated
0039 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated
003b 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated
003d 029a 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call,Visible,Unelaborated
003f 029a 090b | | Declare_Subprogram INIT_0908,For_Outer_Call,Visible,Unelaborated
0041 00bf | | Action Accept_Activation
0042 0092 0df8 | | Action Push_String_Extended,0xdf8 ; "Rcf."
0044 0092 0df9 | | Action Push_String_Extended,0xdf9 ; "<error>"
0046 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call
0048 4800 |H | Short_Literal 0x0
0049 e001 | | Load 0x0,0x1
004a 02a0 | | Declare_Subprogram Null_Subprogram
004b 038e | | Declare_Type Package,Defined
004c 0387 | | Declare_Variable Package
004d 4800 |H | Short_Literal 0x0
004e e002 | | Load 0x0,0x2
004f 02a0 | | Declare_Subprogram Null_Subprogram
0050 038e | | Declare_Type Package,Defined
0051 0387 | | Declare_Variable Package
0052 4800 |H | Short_Literal 0x0
0053 e003 | | Load 0x0,0x3
0054 02a0 | | Declare_Subprogram Null_Subprogram
0055 038e | | Declare_Type Package,Defined
0056 0387 | | Declare_Variable Package
0057 4800 |H | Short_Literal 0x0
0058 e004 | | Load 0x0,0x4
0059 02a0 | | Declare_Subprogram Null_Subprogram
005a 038e | | Declare_Type Package,Defined
005b 0387 | | Declare_Variable Package
005c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005d 00c7 | | Action Elaborate_Subprogram
005e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
005f 00c7 | | Action Elaborate_Subprogram
0060 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0061 00c7 | | Action Elaborate_Subprogram
0062 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0063 00c7 | | Action Elaborate_Subprogram
0064 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0065 00c7 | | Action Elaborate_Subprogram
0066 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0067 00c7 | | Action Elaborate_Subprogram
0068 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0069 00c7 | | Action Elaborate_Subprogram
006a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
006b 00c7 | | Action Elaborate_Subprogram
006c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
006d 00c7 | | Action Elaborate_Subprogram
006e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006f 00c7 | | Action Elaborate_Subprogram
0070 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0071 00c7 | | Action Elaborate_Subprogram
0072 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0073 00c7 | | Action Elaborate_Subprogram
0074 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0075 00c7 | | Action Elaborate_Subprogram
0076 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0077 00c7 | | Action Elaborate_Subprogram
0078 029d 0a43 | C| Declare_Subprogram INIT_0a40,For_Outer_Call
007a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
007f 00c7 | | Action Elaborate_Subprogram
0080 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0081 00c7 | | Action Elaborate_Subprogram
0082 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0083 00c7 | | Action Elaborate_Subprogram
0084 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0085 00c7 | | Action Elaborate_Subprogram
0086 029d 0a53 | S| Declare_Subprogram INIT_0a50,For_Outer_Call
0088 029d 0a63 | c| Declare_Subprogram INIT_0a60,For_Outer_Call
008a 029d 0a73 | s| Declare_Subprogram INIT_0a70,For_Outer_Call
008c 029d 0a83 | | Declare_Subprogram INIT_0a80,For_Outer_Call
008e 029d 0a93 | | Declare_Subprogram INIT_0a90,For_Outer_Call
0090 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0091 00c7 | | Action Elaborate_Subprogram
0092 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0093 00c7 | | Action Elaborate_Subprogram
0094 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0095 00c7 | | Action Elaborate_Subprogram
0096 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0097 00c7 | | Action Elaborate_Subprogram
0098 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0099 00c7 | | Action Elaborate_Subprogram
009a 029d 0aab | | Declare_Subprogram INIT_0aa8,For_Outer_Call
009c 029d 0ae3 | | Declare_Subprogram INIT_0ae0,For_Outer_Call
009e 029d 0b1b | | Declare_Subprogram INIT_0b18,For_Outer_Call
00a0 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00a3 00c7 | | Action Elaborate_Subprogram
00a4 e005 | | Load 0x0,0x5
00a5 e006 | | Load 0x0,0x6
00a6 e007 | | Load 0x0,0x7
00a7 e008 | | Load 0x0,0x8
00a8 e009 | | Load 0x0,0x9
00a9 e00a | | Load 0x0,0xa
00aa e00b | | Load 0x0,0xb
00ab e00c | | Load 0x0,0xc
00ac e00d | | Load 0x0,0xd
00ad e00e | | Load 0x0,0xe
00ae e00f | | Load 0x0,0xf
00af e010 | | Load 0x0,0x10
00b0 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00b1 e011 | | Load 0x0,0x11
00b2 e012 | | Load 0x0,0x12
00b3 e013 | | Load 0x0,0x13
00b4 e014 | | Load 0x0,0x14
00b5 e015 | | Load 0x0,0x15
00b6 e016 | | Load 0x0,0x16
00b7 e017 | | Load 0x0,0x17
00b8 e018 | | Load 0x0,0x18
00b9 e019 | | Load 0x0,0x19
00ba e01a | | Load 0x0,0x1a
00bb 4817 |H | Short_Literal 0x17
00bc e22b | + | Load 0x1,0x2b
00bd 020e | | Execute Module,Augment_Imports
00be e22b | + | Load 0x1,0x2b
00bf 020f | | Execute Module,Activate
00c0 e006 | | Load 0x0,0x6
00c1 e005 | | Load 0x0,0x5
00c2 e007 | | Load 0x0,0x7
00c3 e00b | | Load 0x0,0xb
00c4 e00c | | Load 0x0,0xc
00c5 e00d | | Load 0x0,0xd
00c6 e00a | | Load 0x0,0xa
00c7 e01b | | Load 0x0,0x1b
00c8 e00f | | Load 0x0,0xf
00c9 e014 | | Load 0x0,0x14
00ca e019 | | Load 0x0,0x19
00cb e01c | | Load 0x0,0x1c
00cc 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00cd e01d | | Load 0x0,0x1d
00ce e015 | | Load 0x0,0x15
00cf 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00d0 e01e | | Load 0x0,0x1e
00d1 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00d2 e018 | | Load 0x0,0x18
00d3 4813 |H | Short_Literal 0x13
00d4 e22c | , | Load 0x1,0x2c
00d5 020e | | Execute Module,Augment_Imports
00d6 e22c | , | Load 0x1,0x2c
00d7 020f | | Execute Module,Activate
00d8 e007 | | Load 0x0,0x7
00d9 e00d | | Load 0x0,0xd
00da e00f | | Load 0x0,0xf
00db e005 | | Load 0x0,0x5
00dc e013 | | Load 0x0,0x13
00dd e01f | | Load 0x0,0x1f
00de e00c | | Load 0x0,0xc
00df e018 | | Load 0x0,0x18
00e0 e006 | | Load 0x0,0x6
00e1 e014 | | Load 0x0,0x14
00e2 480a |H | Short_Literal 0xa
00e3 e22d | - | Load 0x1,0x2d
00e4 020e | | Execute Module,Augment_Imports
00e5 e22d | - | Load 0x1,0x2d
00e6 020f | | Execute Module,Activate
00e7 e007 | | Load 0x0,0x7
00e8 e005 | | Load 0x0,0x5
00e9 e00d | | Load 0x0,0xd
00ea e006 | | Load 0x0,0x6
00eb e00f | | Load 0x0,0xf
00ec e013 | | Load 0x0,0x13
00ed 4806 |H | Short_Literal 0x6
00ee e22e | . | Load 0x1,0x2e
00ef 020e | | Execute Module,Augment_Imports
00f0 e22e | . | Load 0x1,0x2e
00f1 020f | | Execute Module,Activate
00f2 BODY_0008:
00f2 00bc | | Action Signal_Activated
00f3 00bb | | Action Signal_Completion
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0107 | | .CONST 0x0107 ; Address of begin
00f9 014a | J | .CONST 0x014a ; Address of exception handler
00fa 0004 | | .CONST 0x0004 ; Number of locals
00fb INIT_00f8:
00fb 0092 0dfa | | Action Push_String_Extended,0xdfa ; "Create_Secondary"
00fd e005 | | Load 0x0,0x5
00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0100 e006 | | Load 0x0,0x6
0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0102 02c7 | | Declare_Variable Any
0103 e5fa | | Load 0x2,-0x6
0104 e006 | | Load 0x0,0x6
0105 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0106 a404 | | Store_Unchecked 0x2,0x4
0107 BODY_00f8:
0107 00d8 | | Load_Top At_Offset_0
0108 e228 | ( | Load 0x1,0x28
0109 0092 0dfb | | Action Push_String_Extended,0xdfb ; "Primary_Unit"
010b e5ff | | Load 0x2,-0x1
010c e00b | | Load 0x0,0xb
010d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010e 01cc | | Execute Vector,Catenate
010f 0092 0dfc | | Action Push_String_Extended,0xdfc ; "command"
0111 01cc | | Execute Vector,Catenate
0112 e5fe | | Load 0x2,-0x2
0113 e00b | | Load 0x0,0xb
0114 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0115 01cc | | Execute Vector,Catenate
0116 0092 0dfd | | Action Push_String_Extended,0xdfd ; "secondary_text"
0118 01cc | | Execute Vector,Catenate
0119 e5fd | | Load 0x2,-0x3
011a e00b | | Load 0x0,0xb
011b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011c 01cc | | Execute Vector,Catenate
011d 0092 0dfe | | Action Push_String_Extended,0xdfe ; "Remote_Name"
011f 01cc | | Execute Vector,Catenate
0120 e5fc | | Load 0x2,-0x4
0121 e00b | | Load 0x0,0xb
0122 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0123 01cc | | Execute Vector,Catenate
0124 0092 0dff | | Action Push_String_Extended,0xdff ; "Process_primary => "
0126 01cc | | Execute Vector,Catenate
0127 e5fb | | Load 0x2,-0x5
0128 00e1 | | Load_Encached Boolean_Cache
0129 011c | | Execute Any,Convert_Unchecked
012a 1c01 | | Execute_Immediate Run_Utility,0x1
012b 01cc | | Execute Vector,Catenate
012c 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
012e 01cc | | Execute Vector,Catenate
012f e5fa | | Load 0x2,-0x6
0130 e00b | | Load 0x0,0xb
0131 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0132 01cc | | Execute Vector,Catenate
0133 e402 | | Load 0x2,0x2
0134 e00b | | Load 0x0,0xb
0135 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0136 00d8 | | Load_Top At_Offset_0
0137 e00c | | Load 0x0,0xc
0138 180f | | Execute Package,Field_Execute,Field_Number 0xf
0139 00d9 | | Load_Top At_Offset_1
013a 00d9 | | Load_Top At_Offset_1
013b e5fb | | Load 0x2,-0x5
013c e5fc | | Load 0x2,-0x4
013d e5fd | | Load 0x2,-0x3
013e e5fe | | Load 0x2,-0x2
013f e5ff | | Load 0x2,-0x1
0140 e22d | - | Load 0x1,0x2d
0141 180d | | Execute Package,Field_Execute,Field_Number 0xd
0142 005a | Z | Store_Top Discrete,At_Offset_2
0143 00d8 | | Load_Top At_Offset_0
0144 e228 | ( | Load 0x1,0x28
0145 e402 | | Load 0x2,0x2
0146 e403 | | Load 0x2,0x3
0147 e00b | | Load 0x0,0xb
0148 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0149 4507 |E | Exit_Suprogram New_Top_Offset 0x7
014a TRAP_00f8:
014a e005 | | Load 0x0,0x5
014b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
014c 010f | | Execute Exception,Equal
014d 6807 |h | Jump_Zero 0x155
014e 00d9 | | Load_Top At_Offset_1
014f e228 | ( | Load 0x1,0x28
0150 e402 | | Load 0x2,0x2
0151 e403 | | Load 0x2,0x3
0152 e00b | | Load 0x0,0xb
0153 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0154 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0155 4884 |H | Short_Literal 0x84
0156 010f | | Execute Exception,Equal
0157 6807 |h | Jump_Zero 0x15f
0158 00d9 | | Load_Top At_Offset_1
0159 e228 | ( | Load 0x1,0x28
015a e402 | | Load 0x2,0x2
015b e403 | | Load 0x2,0x3
015c e00b | | Load 0x0,0xb
015d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
015e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
015f 00d9 | | Load_Top At_Offset_1
0160 e228 | ( | Load 0x1,0x28
0161 e402 | | Load 0x2,0x2
0162 e403 | | Load 0x2,0x3
0163 e00b | | Load 0x0,0xb
0164 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0165 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0177 | w | .CONST 0x0177 ; Address of begin
0169 0199 | | .CONST 0x0199 ; Address of exception handler
016a 0004 | | .CONST 0x0004 ; Number of locals
016b INIT_0168:
016b 0092 0e01 | | Action Push_String_Extended,0xe01 ; "Remove_Secondary"
016d e005 | | Load 0x0,0x5
016e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0170 e006 | | Load 0x0,0x6
0171 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0172 02c7 | | Declare_Variable Any
0173 e5fe | | Load 0x2,-0x2
0174 e006 | | Load 0x0,0x6
0175 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0176 a404 | | Store_Unchecked 0x2,0x4
0177 BODY_0168:
0177 00d8 | | Load_Top At_Offset_0
0178 e228 | ( | Load 0x1,0x28
0179 0092 0e02 | | Action Push_String_Extended,0xe02 ; "secondary_referencer"
017b e5ff | | Load 0x2,-0x1
017c e00b | | Load 0x0,0xb
017d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
017e 01cc | | Execute Vector,Catenate
017f 0092 0e03 | | Action Push_String_Extended,0xe03 ; "Response"
0181 01cc | | Execute Vector,Catenate
0182 e5fe | | Load 0x2,-0x2
0183 e00b | | Load 0x0,0xb
0184 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0185 01cc | | Execute Vector,Catenate
0186 e402 | | Load 0x2,0x2
0187 e00b | | Load 0x0,0xb
0188 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0189 00d8 | | Load_Top At_Offset_0
018a e00c | | Load 0x0,0xc
018b 180f | | Execute Package,Field_Execute,Field_Number 0xf
018c 00d9 | | Load_Top At_Offset_1
018d 00d9 | | Load_Top At_Offset_1
018e e5ff | | Load 0x2,-0x1
018f e22d | - | Load 0x1,0x2d
0190 180e | | Execute Package,Field_Execute,Field_Number 0xe
0191 005a | Z | Store_Top Discrete,At_Offset_2
0192 00d8 | | Load_Top At_Offset_0
0193 e228 | ( | Load 0x1,0x28
0194 e402 | | Load 0x2,0x2
0195 e403 | | Load 0x2,0x3
0196 e00b | | Load 0x0,0xb
0197 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0198 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0199 TRAP_0168:
0199 e005 | | Load 0x0,0x5
019a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
019b 010f | | Execute Exception,Equal
019c 6807 |h | Jump_Zero 0x1a4
019d 00d9 | | Load_Top At_Offset_1
019e e228 | ( | Load 0x1,0x28
019f e402 | | Load 0x2,0x2
01a0 e403 | | Load 0x2,0x3
01a1 e00b | | Load 0x0,0xb
01a2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a4 4884 |H | Short_Literal 0x84
01a5 010f | | Execute Exception,Equal
01a6 6807 |h | Jump_Zero 0x1ae
01a7 00d9 | | Load_Top At_Offset_1
01a8 e228 | ( | Load 0x1,0x28
01a9 e402 | | Load 0x2,0x2
01aa e403 | | Load 0x2,0x3
01ab e00b | | Load 0x0,0xb
01ac 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ae 00d9 | | Load_Top At_Offset_1
01af e228 | ( | Load 0x1,0x28
01b0 e402 | | Load 0x2,0x2
01b1 e403 | | Load 0x2,0x3
01b2 e00b | | Load 0x0,0xb
01b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c7 | | .CONST 0x01c7 ; Address of begin
01b9 01e9 | | .CONST 0x01e9 ; Address of exception handler
01ba 0004 | | .CONST 0x0004 ; Number of locals
01bb INIT_01b8:
01bb 0092 0e04 | | Action Push_String_Extended,0xe04 ; "Show_Secondary"
01bd e005 | | Load 0x0,0x5
01be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01c0 e006 | | Load 0x0,0x6
01c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c2 02c7 | | Declare_Variable Any
01c3 e5fe | | Load 0x2,-0x2
01c4 e006 | | Load 0x0,0x6
01c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01c6 a404 | | Store_Unchecked 0x2,0x4
01c7 BODY_01b8:
01c7 00d8 | | Load_Top At_Offset_0
01c8 e228 | ( | Load 0x1,0x28
01c9 0092 0dfb | | Action Push_String_Extended,0xdfb ; "Primary_Unit"
01cb e5ff | | Load 0x2,-0x1
01cc e00b | | Load 0x0,0xb
01cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ce 01cc | | Execute Vector,Catenate
01cf 0092 0e03 | | Action Push_String_Extended,0xe03 ; "Response"
01d1 01cc | | Execute Vector,Catenate
01d2 e5fe | | Load 0x2,-0x2
01d3 e00b | | Load 0x0,0xb
01d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d5 01cc | | Execute Vector,Catenate
01d6 e402 | | Load 0x2,0x2
01d7 e00b | | Load 0x0,0xb
01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d9 00d8 | | Load_Top At_Offset_0
01da e00c | | Load 0x0,0xc
01db 180f | | Execute Package,Field_Execute,Field_Number 0xf
01dc 00d9 | | Load_Top At_Offset_1
01dd 00d9 | | Load_Top At_Offset_1
01de e5ff | | Load 0x2,-0x1
01df e22d | - | Load 0x1,0x2d
01e0 180f | | Execute Package,Field_Execute,Field_Number 0xf
01e1 005a | Z | Store_Top Discrete,At_Offset_2
01e2 00d8 | | Load_Top At_Offset_0
01e3 e228 | ( | Load 0x1,0x28
01e4 e402 | | Load 0x2,0x2
01e5 e403 | | Load 0x2,0x3
01e6 e00b | | Load 0x0,0xb
01e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e9 TRAP_01b8:
01e9 e005 | | Load 0x0,0x5
01ea 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01eb 010f | | Execute Exception,Equal
01ec 6807 |h | Jump_Zero 0x1f4
01ed 00d9 | | Load_Top At_Offset_1
01ee e228 | ( | Load 0x1,0x28
01ef e402 | | Load 0x2,0x2
01f0 e403 | | Load 0x2,0x3
01f1 e00b | | Load 0x0,0xb
01f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f4 4884 |H | Short_Literal 0x84
01f5 010f | | Execute Exception,Equal
01f6 6807 |h | Jump_Zero 0x1fe
01f7 00d9 | | Load_Top At_Offset_1
01f8 e228 | ( | Load 0x1,0x28
01f9 e402 | | Load 0x2,0x2
01fa e403 | | Load 0x2,0x3
01fb e00b | | Load 0x0,0xb
01fc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01fe 00d9 | | Load_Top At_Offset_1
01ff e228 | ( | Load 0x1,0x28
0200 e402 | | Load 0x2,0x2
0201 e403 | | Load 0x2,0x3
0202 e00b | | Load 0x0,0xb
0203 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0204 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0217 | | .CONST 0x0217 ; Address of begin
0209 024b | K | .CONST 0x024b ; Address of exception handler
020a 0004 | | .CONST 0x0004 ; Number of locals
020b INIT_0208:
020b 0092 0e05 | | Action Push_String_Extended,0xe05 ; "Edit_Secondary"
020d e005 | | Load 0x0,0x5
020e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0210 e006 | | Load 0x0,0x6
0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0212 02c7 | | Declare_Variable Any
0213 e5fc | | Load 0x2,-0x4
0214 e006 | | Load 0x0,0x6
0215 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0216 a404 | | Store_Unchecked 0x2,0x4
0217 BODY_0208:
0217 00d8 | | Load_Top At_Offset_0
0218 e228 | ( | Load 0x1,0x28
0219 0092 0e02 | | Action Push_String_Extended,0xe02 ; "secondary_referencer"
021b e5ff | | Load 0x2,-0x1
021c e00b | | Load 0x0,0xb
021d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
021e 01cc | | Execute Vector,Catenate
021f 0092 0e06 | | Action Push_String_Extended,0xe06 ; "In_Place => "
0221 01cc | | Execute Vector,Catenate
0222 e5fe | | Load 0x2,-0x2
0223 00e1 | | Load_Encached Boolean_Cache
0224 011c | | Execute Any,Convert_Unchecked
0225 1c01 | | Execute_Immediate Run_Utility,0x1
0226 01cc | | Execute Vector,Catenate
0227 0092 0e07 | | Action Push_String_Extended,0xe07 ; ", Visible => "
0229 01cc | | Execute Vector,Catenate
022a e5fd | | Load 0x2,-0x3
022b 00e1 | | Load_Encached Boolean_Cache
022c 011c | | Execute Any,Convert_Unchecked
022d 1c01 | | Execute_Immediate Run_Utility,0x1
022e 01cc | | Execute Vector,Catenate
022f 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
0231 01cc | | Execute Vector,Catenate
0232 e5fc | | Load 0x2,-0x4
0233 e00b | | Load 0x0,0xb
0234 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0235 01cc | | Execute Vector,Catenate
0236 e402 | | Load 0x2,0x2
0237 e00b | | Load 0x0,0xb
0238 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0239 00d8 | | Load_Top At_Offset_0
023a e00c | | Load 0x0,0xc
023b 180f | | Execute Package,Field_Execute,Field_Number 0xf
023c 00d9 | | Load_Top At_Offset_1
023d 00d9 | | Load_Top At_Offset_1
023e e5fd | | Load 0x2,-0x3
023f e5fe | | Load 0x2,-0x2
0240 e5ff | | Load 0x2,-0x1
0241 e22d | - | Load 0x1,0x2d
0242 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0243 005a | Z | Store_Top Discrete,At_Offset_2
0244 00d8 | | Load_Top At_Offset_0
0245 e228 | ( | Load 0x1,0x28
0246 e402 | | Load 0x2,0x2
0247 e403 | | Load 0x2,0x3
0248 e00b | | Load 0x0,0xb
0249 1814 | | Execute Package,Field_Execute,Field_Number 0x14
024a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
024b TRAP_0208:
024b e005 | | Load 0x0,0x5
024c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
024d 010f | | Execute Exception,Equal
024e 6807 |h | Jump_Zero 0x256
024f 00d9 | | Load_Top At_Offset_1
0250 e228 | ( | Load 0x1,0x28
0251 e402 | | Load 0x2,0x2
0252 e403 | | Load 0x2,0x3
0253 e00b | | Load 0x0,0xb
0254 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0255 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0256 4884 |H | Short_Literal 0x84
0257 010f | | Execute Exception,Equal
0258 6807 |h | Jump_Zero 0x260
0259 00d9 | | Load_Top At_Offset_1
025a e228 | ( | Load 0x1,0x28
025b e402 | | Load 0x2,0x2
025c e403 | | Load 0x2,0x3
025d e00b | | Load 0x0,0xb
025e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
025f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0260 00d9 | | Load_Top At_Offset_1
0261 e228 | ( | Load 0x1,0x28
0262 e402 | | Load 0x2,0x2
0263 e403 | | Load 0x2,0x3
0264 e00b | | Load 0x0,0xb
0265 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0266 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0277 | w | .CONST 0x0277 ; Address of begin
0269 02a2 | | .CONST 0x02a2 ; Address of exception handler
026a 0004 | | .CONST 0x0004 ; Number of locals
026b INIT_0268:
026b 0092 0e08 | | Action Push_String_Extended,0xe08 ; "Set_Process_Primary"
026d e005 | | Load 0x0,0x5
026e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0270 e006 | | Load 0x0,0x6
0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0272 02c7 | | Declare_Variable Any
0273 e5fd | | Load 0x2,-0x3
0274 e006 | | Load 0x0,0x6
0275 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0276 a404 | | Store_Unchecked 0x2,0x4
0277 BODY_0268:
0277 00d8 | | Load_Top At_Offset_0
0278 e228 | ( | Load 0x1,0x28
0279 0092 0dfb | | Action Push_String_Extended,0xdfb ; "Primary_Unit"
027b e5ff | | Load 0x2,-0x1
027c e00b | | Load 0x0,0xb
027d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
027e 01cc | | Execute Vector,Catenate
027f 0092 0e09 | | Action Push_String_Extended,0xe09 ; ", Value => "
0281 01cc | | Execute Vector,Catenate
0282 e5fe | | Load 0x2,-0x2
0283 00e1 | | Load_Encached Boolean_Cache
0284 011c | | Execute Any,Convert_Unchecked
0285 1c01 | | Execute_Immediate Run_Utility,0x1
0286 01cc | | Execute Vector,Catenate
0287 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
0289 01cc | | Execute Vector,Catenate
028a e5fd | | Load 0x2,-0x3
028b e00b | | Load 0x0,0xb
028c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028d 01cc | | Execute Vector,Catenate
028e e402 | | Load 0x2,0x2
028f e00b | | Load 0x0,0xb
0290 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0291 00d8 | | Load_Top At_Offset_0
0292 e00c | | Load 0x0,0xc
0293 180f | | Execute Package,Field_Execute,Field_Number 0xf
0294 00d9 | | Load_Top At_Offset_1
0295 00d9 | | Load_Top At_Offset_1
0296 e5fe | | Load 0x2,-0x2
0297 e5ff | | Load 0x2,-0x1
0298 e22d | - | Load 0x1,0x2d
0299 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029a 005a | Z | Store_Top Discrete,At_Offset_2
029b 00d8 | | Load_Top At_Offset_0
029c e228 | ( | Load 0x1,0x28
029d e402 | | Load 0x2,0x2
029e e403 | | Load 0x2,0x3
029f e00b | | Load 0x0,0xb
02a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02a2 TRAP_0268:
02a2 e005 | | Load 0x0,0x5
02a3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02a4 010f | | Execute Exception,Equal
02a5 6807 |h | Jump_Zero 0x2ad
02a6 00d9 | | Load_Top At_Offset_1
02a7 e228 | ( | Load 0x1,0x28
02a8 e402 | | Load 0x2,0x2
02a9 e403 | | Load 0x2,0x3
02aa e00b | | Load 0x0,0xb
02ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ad 4884 |H | Short_Literal 0x84
02ae 010f | | Execute Exception,Equal
02af 6807 |h | Jump_Zero 0x2b7
02b0 00d9 | | Load_Top At_Offset_1
02b1 e228 | ( | Load 0x1,0x28
02b2 e402 | | Load 0x2,0x2
02b3 e403 | | Load 0x2,0x3
02b4 e00b | | Load 0x0,0xb
02b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02b7 00d9 | | Load_Top At_Offset_1
02b8 e228 | ( | Load 0x1,0x28
02b9 e402 | | Load 0x2,0x2
02ba e403 | | Load 0x2,0x3
02bb e00b | | Load 0x0,0xb
02bc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02be 0000 0000 | | .XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02cf | | .CONST 0x02cf ; Address of begin
02c1 02f7 | | .CONST 0x02f7 ; Address of exception handler
02c2 0004 | | .CONST 0x0004 ; Number of locals
02c3 INIT_02c0:
02c3 0092 0e0a | | Action Push_String_Extended,0xe0a ; "Set_Secondary_Command"
02c5 e005 | | Load 0x0,0x5
02c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02c8 e006 | | Load 0x0,0x6
02c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ca 02c7 | | Declare_Variable Any
02cb e5fd | | Load 0x2,-0x3
02cc e006 | | Load 0x0,0x6
02cd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02ce a404 | | Store_Unchecked 0x2,0x4
02cf BODY_02c0:
02cf 00d8 | | Load_Top At_Offset_0
02d0 e228 | ( | Load 0x1,0x28
02d1 0092 0e0b | | Action Push_String_Extended,0xe0b ; "Command => "
02d3 e5ff | | Load 0x2,-0x1
02d4 01cc | | Execute Vector,Catenate
02d5 0092 0e0c | | Action Push_String_Extended,0xe0c ; ", Secondary_referencer"
02d7 01cc | | Execute Vector,Catenate
02d8 e5fe | | Load 0x2,-0x2
02d9 e00b | | Load 0x0,0xb
02da 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02db 01cc | | Execute Vector,Catenate
02dc 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
02de 01cc | | Execute Vector,Catenate
02df e5fd | | Load 0x2,-0x3
02e0 e00b | | Load 0x0,0xb
02e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e2 01cc | | Execute Vector,Catenate
02e3 e402 | | Load 0x2,0x2
02e4 e00b | | Load 0x0,0xb
02e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e6 00d8 | | Load_Top At_Offset_0
02e7 e00c | | Load 0x0,0xc
02e8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02e9 00d9 | | Load_Top At_Offset_1
02ea 00d9 | | Load_Top At_Offset_1
02eb e5fe | | Load 0x2,-0x2
02ec e5ff | | Load 0x2,-0x1
02ed e22d | - | Load 0x1,0x2d
02ee 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02ef 005a | Z | Store_Top Discrete,At_Offset_2
02f0 00d8 | | Load_Top At_Offset_0
02f1 e228 | ( | Load 0x1,0x28
02f2 e402 | | Load 0x2,0x2
02f3 e403 | | Load 0x2,0x3
02f4 e00b | | Load 0x0,0xb
02f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02f6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02f7 TRAP_02c0:
02f7 e005 | | Load 0x0,0x5
02f8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02f9 010f | | Execute Exception,Equal
02fa 6807 |h | Jump_Zero 0x302
02fb 00d9 | | Load_Top At_Offset_1
02fc e228 | ( | Load 0x1,0x28
02fd e402 | | Load 0x2,0x2
02fe e403 | | Load 0x2,0x3
02ff e00b | | Load 0x0,0xb
0300 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0301 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0302 4884 |H | Short_Literal 0x84
0303 010f | | Execute Exception,Equal
0304 6807 |h | Jump_Zero 0x30c
0305 00d9 | | Load_Top At_Offset_1
0306 e228 | ( | Load 0x1,0x28
0307 e402 | | Load 0x2,0x2
0308 e403 | | Load 0x2,0x3
0309 e00b | | Load 0x0,0xb
030a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
030c 00d9 | | Load_Top At_Offset_1
030d e228 | ( | Load 0x1,0x28
030e e402 | | Load 0x2,0x2
030f e403 | | Load 0x2,0x3
0310 e00b | | Load 0x0,0xb
0311 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0312 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0313 0000 0000 | | .BLANK 0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b e5fd | | Load 0x2,-0x3
031c e5fe | | Load 0x2,-0x2
031d e5ff | | Load 0x2,-0x1
031e e22b | + | Load 0x1,0x2b
031f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0320 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b e5fa | | Load 0x2,-0x6
032c e5fb | | Load 0x2,-0x5
032d e5fc | | Load 0x2,-0x4
032e e5fd | | Load 0x2,-0x3
032f e5fe | | Load 0x2,-0x2
0330 e5ff | | Load 0x2,-0x1
0331 e22b | + | Load 0x1,0x2b
0332 180e | | Execute Package,Field_Execute,Field_Number 0xe
0333 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0334 0000 0000 | | .BLANK 0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e5fb | | Load 0x2,-0x5
033c e5fc | | Load 0x2,-0x4
033d e5fd | | Load 0x2,-0x3
033e e5fe | | Load 0x2,-0x2
033f e5ff | | Load 0x2,-0x1
0340 e22b | + | Load 0x1,0x2b
0341 180f | | Execute Package,Field_Execute,Field_Number 0xf
0342 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0343 0000 0000 | | .BLANK 0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b e5fd | | Load 0x2,-0x3
034c e5fe | | Load 0x2,-0x2
034d e5ff | | Load 0x2,-0x1
034e e22b | + | Load 0x1,0x2b
034f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0350 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 036f | o | .CONST 0x036f ; Address of begin
0359 03a5 | | .CONST 0x03a5 ; Address of exception handler
035a 0006 | | .CONST 0x0006 ; Number of locals
035b INIT_0358:
035b 0092 0e0d | | Action Push_String_Extended,0xe0d ; "Link"
035d e005 | | Load 0x0,0x5
035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0360 e006 | | Load 0x0,0x6
0361 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0362 02c7 | | Declare_Variable Any
0363 e5fc | | Load 0x2,-0x4
0364 e006 | | Load 0x0,0x6
0365 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0366 a404 | | Store_Unchecked 0x2,0x4
0367 e007 | | Load 0x0,0x7
0368 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0369 1b18 | | Execute Package,Field_Read,Field_Number 0x18
036a 02c7 | | Declare_Variable Any
036b 00d8 | | Load_Top At_Offset_0
036c 1c00 | | Execute_Immediate Run_Utility,0x0
036d 029f 0b53 | S| Declare_Subprogram INIT_0b50,For_Call
036f BODY_0358:
036f 00da | | Load_Top At_Offset_2
0370 e228 | ( | Load 0x1,0x28
0371 0092 0e0e | | Action Push_String_Extended,0xe0e ; "Main_Unit"
0373 e5ff | | Load 0x2,-0x1
0374 e00b | | Load 0x0,0xb
0375 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0376 01cc | | Execute Vector,Catenate
0377 0092 0e0f | | Action Push_String_Extended,0xe0f ; "Make_Uncoded_Units => "
0379 01cc | | Execute Vector,Catenate
037a e5fe | | Load 0x2,-0x2
037b 00e1 | | Load_Encached Boolean_Cache
037c 011c | | Execute Any,Convert_Unchecked
037d 1c01 | | Execute_Immediate Run_Utility,0x1
037e 01cc | | Execute Vector,Catenate
037f 0092 0e10 | | Action Push_String_Extended,0xe10 ; ", Executable_Name"
0381 01cc | | Execute Vector,Catenate
0382 e5fd | | Load 0x2,-0x3
0383 e00b | | Load 0x0,0xb
0384 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0385 01cc | | Execute Vector,Catenate
0386 0092 0e03 | | Action Push_String_Extended,0xe03 ; "Response"
0388 01cc | | Execute Vector,Catenate
0389 e5fc | | Load 0x2,-0x4
038a e00b | | Load 0x0,0xb
038b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
038c 01cc | | Execute Vector,Catenate
038d e402 | | Load 0x2,0x2
038e e00b | | Load 0x0,0xb
038f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0390 00da | | Load_Top At_Offset_2
0391 4800 |H | Short_Literal 0x0
0392 e5ff | | Load 0x2,-0x1
0393 e00d | | Load 0x0,0xd
0394 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0395 c405 | | Store 0x2,0x5
0396 8406 | | Call 0x2,0x6
0397 00db | | Load_Top At_Offset_3
0398 00db | | Load_Top At_Offset_3
0399 e5fd | | Load 0x2,-0x3
039a e5fe | | Load 0x2,-0x2
039b e405 | | Load 0x2,0x5
039c 822a | * | Call 0x1,0x2a
039d c403 | | Store 0x2,0x3
039e 00da | | Load_Top At_Offset_2
039f e228 | ( | Load 0x1,0x28
03a0 e402 | | Load 0x2,0x2
03a1 e403 | | Load 0x2,0x3
03a2 e00b | | Load 0x0,0xb
03a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03a5 TRAP_0358:
03a5 e005 | | Load 0x0,0x5
03a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03a7 010f | | Execute Exception,Equal
03a8 6807 |h | Jump_Zero 0x3b0
03a9 00db | | Load_Top At_Offset_3
03aa e228 | ( | Load 0x1,0x28
03ab e402 | | Load 0x2,0x2
03ac e403 | | Load 0x2,0x3
03ad e00b | | Load 0x0,0xb
03ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03af 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03b0 4884 |H | Short_Literal 0x84
03b1 010f | | Execute Exception,Equal
03b2 6807 |h | Jump_Zero 0x3ba
03b3 00db | | Load_Top At_Offset_3
03b4 e228 | ( | Load 0x1,0x28
03b5 e402 | | Load 0x2,0x2
03b6 e403 | | Load 0x2,0x3
03b7 e00b | | Load 0x0,0xb
03b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03b9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03ba 00db | | Load_Top At_Offset_3
03bb e228 | ( | Load 0x1,0x28
03bc e402 | | Load 0x2,0x2
03bd e403 | | Load 0x2,0x3
03be e00b | | Load 0x0,0xb
03bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03c1 0000 0000 | | .BLANK 0000[0x7]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb e5fc | | Load 0x2,-0x4
03cc e5fd | | Load 0x2,-0x3
03cd e5fe | | Load 0x2,-0x2
03ce e5ff | | Load 0x2,-0x1
03cf e22b | + | Load 0x1,0x2b
03d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03d2 0000 0000 | | .BLANK 0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 0401 | | .CONST 0x0401 ; Address of begin
03d9 044b | K | .CONST 0x044b ; Address of exception handler
03da 000b | | .CONST 0x000b ; Number of locals
03db INIT_03d8:
03db 0092 0e11 | | Action Push_String_Extended,0xe11 ; "Show_Remote_Unit_Name"
03dd e005 | | Load 0x0,0x5
03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03df 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03e0 e006 | | Load 0x0,0x6
03e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e2 02c7 | | Declare_Variable Any
03e3 e5fe | | Load 0x2,-0x2
03e4 e006 | | Load 0x0,0x6
03e5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03e6 a404 | | Store_Unchecked 0x2,0x4
03e7 00e1 | | Load_Encached Boolean_Cache
03e8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03e9 00e2 | | Load_Encached Integer_Cache
03ea e007 | | Load 0x0,0x7
03eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ec 02c7 | | Declare_Variable Any
03ed 00d8 | | Load_Top At_Offset_0
03ee 1c00 | | Execute_Immediate Run_Utility,0x0
03ef e007 | | Load 0x0,0x7
03f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f1 02c7 | | Declare_Variable Any
03f2 00d8 | | Load_Top At_Offset_0
03f3 1c00 | | Execute_Immediate Run_Utility,0x0
03f4 e007 | | Load 0x0,0x7
03f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f6 02c7 | | Declare_Variable Any
03f7 00d8 | | Load_Top At_Offset_0
03f8 1c00 | | Execute_Immediate Run_Utility,0x0
03f9 e007 | | Load 0x0,0x7
03fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03fb 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03fc 02c7 | | Declare_Variable Any
03fd 00d8 | | Load_Top At_Offset_0
03fe 1c00 | | Execute_Immediate Run_Utility,0x0
03ff 029f 0bab | | Declare_Subprogram INIT_0ba8,For_Call
0401 BODY_03d8:
0401 e404 | | Load 0x2,0x4
0402 e228 | ( | Load 0x1,0x28
0403 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Unit"
0405 e5ff | | Load 0x2,-0x1
0406 e00b | | Load 0x0,0xb
0407 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0408 01cc | | Execute Vector,Catenate
0409 0092 0e03 | | Action Push_String_Extended,0xe03 ; "Response"
040b 01cc | | Execute Vector,Catenate
040c e5fe | | Load 0x2,-0x2
040d e00b | | Load 0x0,0xb
040e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
040f 01cc | | Execute Vector,Catenate
0410 e402 | | Load 0x2,0x2
0411 e00b | | Load 0x0,0xb
0412 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0413 e404 | | Load 0x2,0x4
0414 e00c | | Load 0x0,0xc
0415 180f | | Execute Package,Field_Execute,Field_Number 0xf
0416 e404 | | Load 0x2,0x4
0417 4800 |H | Short_Literal 0x0
0418 e5ff | | Load 0x2,-0x1
0419 e00d | | Load 0x0,0xd
041a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
041b c40a | | Store 0x2,0xa
041c 00d9 | | Load_Top At_Offset_1
041d e007 | | Load 0x0,0x7
041e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
041f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0420 6814 |h | Jump_Zero 0x435
0421 e404 | | Load 0x2,0x4
0422 4801 |H | Short_Literal 0x1
0423 4801 |H | Short_Literal 0x1
0424 e00f | | Load 0x0,0xf
0425 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0426 035b | [ | Declare_Type Array,Constrained
0427 0337 | 7 | Declare_Variable Array
0428 e5ff | | Load 0x2,-0x1
0429 e00f | | Load 0x0,0xf
042a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
042b e00f | | Load 0x0,0xf
042c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
042d 0119 | | Execute Any,Check_In_Formal_Type
042e 4801 |H | Short_Literal 0x1
042f 00da | | Load_Top At_Offset_2
0430 01d6 | | Execute Vector,Field_Write
0431 6036 |`6 | Indirect_Literal Discrete,0x468,{0x00000000, 0x0000882b}
0432 e005 | | Load 0x0,0x5
0433 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0434 780f |x | Jump 0x444
0435 00cf | | Action Mark_Auxiliary
0436 7807 |x | Jump 0x43e
0437 840b | | Call 0x2,0xb
0438 00da | | Load_Top At_Offset_2
0439 e007 | | Load 0x0,0x7
043a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
043b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
043c c40a | | Store 0x2,0xa
043d 00c9 | | Action Pop_Auxiliary_Loop
043e 00da | | Load_Top At_Offset_2
043f e007 | | Load 0x0,0x7
0440 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0441 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0442 6ff4 |o | Jump_Zero 0x437
0443 00ce | | Action Pop_Auxiliary
0444 e404 | | Load 0x2,0x4
0445 e228 | ( | Load 0x1,0x28
0446 e402 | | Load 0x2,0x2
0447 e403 | | Load 0x2,0x3
0448 e00b | | Load 0x0,0xb
0449 1814 | | Execute Package,Field_Execute,Field_Number 0x14
044a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
044b TRAP_03d8:
044b e005 | | Load 0x0,0x5
044c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
044d 010f | | Execute Exception,Equal
044e 6807 |h | Jump_Zero 0x456
044f e404 | | Load 0x2,0x4
0450 e228 | ( | Load 0x1,0x28
0451 e402 | | Load 0x2,0x2
0452 e403 | | Load 0x2,0x3
0453 e00b | | Load 0x0,0xb
0454 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0455 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0456 4884 |H | Short_Literal 0x84
0457 010f | | Execute Exception,Equal
0458 6807 |h | Jump_Zero 0x460
0459 e404 | | Load 0x2,0x4
045a e228 | ( | Load 0x1,0x28
045b e402 | | Load 0x2,0x2
045c e403 | | Load 0x2,0x3
045d e00b | | Load 0x0,0xb
045e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
045f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0460 e404 | | Load 0x2,0x4
0461 e228 | ( | Load 0x1,0x28
0462 e402 | | Load 0x2,0x2
0463 e403 | | Load 0x2,0x3
0464 e00b | | Load 0x0,0xb
0465 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0466 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0467 0000 | | .XXX[0x1]
0468 0000 0000 | | .LITERAL {0x00000000, 0x0000882b}
046c 0000 0000 | | .BLANK 0000[0x4]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0491 | | .CONST 0x0491 ; Address of begin
0471 04e6 | | .CONST 0x04e6 ; Address of exception handler
0472 0008 | | .CONST 0x0008 ; Number of locals
0473 INIT_0470:
0473 0092 0e13 | | Action Push_String_Extended,0xe13 ; "Show_Units"
0475 e005 | | Load 0x0,0x5
0476 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0477 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0478 e006 | | Load 0x0,0x6
0479 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047a 02c7 | | Declare_Variable Any
047b e5fc | | Load 0x2,-0x4
047c e006 | | Load 0x0,0x6
047d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
047e a404 | | Store_Unchecked 0x2,0x4
047f e007 | | Load 0x0,0x7
0480 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0481 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0482 02c7 | | Declare_Variable Any
0483 00d8 | | Load_Top At_Offset_0
0484 1c00 | | Execute_Immediate Run_Utility,0x0
0485 e007 | | Load 0x0,0x7
0486 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0487 02c7 | | Declare_Variable Any
0488 00d8 | | Load_Top At_Offset_0
0489 1c00 | | Execute_Immediate Run_Utility,0x0
048a e007 | | Load 0x0,0x7
048b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
048c 02c7 | | Declare_Variable Any
048d 00d8 | | Load_Top At_Offset_0
048e 1c00 | | Execute_Immediate Run_Utility,0x0
048f 029f 0c03 | | Declare_Subprogram INIT_0c00,For_Call
0491 BODY_0470:
0491 e404 | | Load 0x2,0x4
0492 e228 | ( | Load 0x1,0x28
0493 0092 0e12 | | Action Push_String_Extended,0xe12 ; "Unit"
0495 e5ff | | Load 0x2,-0x1
0496 e00b | | Load 0x0,0xb
0497 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0498 01cc | | Execute Vector,Catenate
0499 0092 0e14 | | Action Push_String_Extended,0xe14 ; "Remote_Name => "
049b 01cc | | Execute Vector,Catenate
049c e5fe | | Load 0x2,-0x2
049d 00e1 | | Load_Encached Boolean_Cache
049e 011c | | Execute Any,Convert_Unchecked
049f 1c01 | | Execute_Immediate Run_Utility,0x1
04a0 01cc | | Execute Vector,Catenate
04a1 0092 0e15 | | Action Push_String_Extended,0xe15 ; ", Consistency => "
04a3 01cc | | Execute Vector,Catenate
04a4 e5fd | | Load 0x2,-0x3
04a5 00e1 | | Load_Encached Boolean_Cache
04a6 011c | | Execute Any,Convert_Unchecked
04a7 1c01 | | Execute_Immediate Run_Utility,0x1
04a8 01cc | | Execute Vector,Catenate
04a9 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
04ab 01cc | | Execute Vector,Catenate
04ac e5fc | | Load 0x2,-0x4
04ad e00b | | Load 0x0,0xb
04ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04af 01cc | | Execute Vector,Catenate
04b0 e402 | | Load 0x2,0x2
04b1 e00b | | Load 0x0,0xb
04b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b3 e404 | | Load 0x2,0x4
04b4 e00c | | Load 0x0,0xc
04b5 180f | | Execute Package,Field_Execute,Field_Number 0xf
04b6 e404 | | Load 0x2,0x4
04b7 4801 |H | Short_Literal 0x1
04b8 e5ff | | Load 0x2,-0x1
04b9 e00d | | Load 0x0,0xd
04ba 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04bb c405 | | Store 0x2,0x5
04bc e404 | | Load 0x2,0x4
04bd 4801 |H | Short_Literal 0x1
04be e404 | | Load 0x2,0x4
04bf 4801 |H | Short_Literal 0x1
04c0 e405 | | Load 0x2,0x5
04c1 e00d | | Load 0x0,0xd
04c2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04c3 e00d | | Load 0x0,0xd
04c4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04c5 c407 | | Store 0x2,0x7
04c6 e404 | | Load 0x2,0x4
04c7 00da | | Load_Top At_Offset_2
04c8 e00c | | Load 0x0,0xc
04c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ca 00cf | | Action Mark_Auxiliary
04cb 780d |x | Jump 0x4d9
04cc e404 | | Load 0x2,0x4
04cd 4801 |H | Short_Literal 0x1
04ce e405 | | Load 0x2,0x5
04cf e00d | | Load 0x0,0xd
04d0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04d1 c406 | | Store 0x2,0x6
04d2 8408 | | Call 0x2,0x8
04d3 e405 | | Load 0x2,0x5
04d4 e007 | | Load 0x0,0x7
04d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04d7 c405 | | Store 0x2,0x5
04d8 00c9 | | Action Pop_Auxiliary_Loop
04d9 e405 | | Load 0x2,0x5
04da e007 | | Load 0x0,0x7
04db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04dc 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04dd 6fee |o | Jump_Zero 0x4cc
04de 00ce | | Action Pop_Auxiliary
04df e404 | | Load 0x2,0x4
04e0 e228 | ( | Load 0x1,0x28
04e1 e402 | | Load 0x2,0x2
04e2 e403 | | Load 0x2,0x3
04e3 e00b | | Load 0x0,0xb
04e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04e5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04e6 TRAP_0470:
04e6 e005 | | Load 0x0,0x5
04e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04e8 010f | | Execute Exception,Equal
04e9 6807 |h | Jump_Zero 0x4f1
04ea e404 | | Load 0x2,0x4
04eb e228 | ( | Load 0x1,0x28
04ec e402 | | Load 0x2,0x2
04ed e403 | | Load 0x2,0x3
04ee e00b | | Load 0x0,0xb
04ef 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04f1 4884 |H | Short_Literal 0x84
04f2 010f | | Execute Exception,Equal
04f3 6807 |h | Jump_Zero 0x4fb
04f4 e404 | | Load 0x2,0x4
04f5 e228 | ( | Load 0x1,0x28
04f6 e402 | | Load 0x2,0x2
04f7 e403 | | Load 0x2,0x3
04f8 e00b | | Load 0x0,0xb
04f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04fa 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04fb e404 | | Load 0x2,0x4
04fc e228 | ( | Load 0x1,0x28
04fd e402 | | Load 0x2,0x2
04fe e403 | | Load 0x2,0x3
04ff e00b | | Load 0x0,0xb
0500 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0501 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0502 0000 0000 | | .BLANK 0000[0x6]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0517 | | .CONST 0x0517 ; Address of begin
0509 054d | M | .CONST 0x054d ; Address of exception handler
050a 0004 | | .CONST 0x0004 ; Number of locals
050b INIT_0508:
050b 0092 0e16 | | Action Push_String_Extended,0xe16 ; "Set_Unit_Option"
050d e005 | | Load 0x0,0x5
050e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
050f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0510 e006 | | Load 0x0,0x6
0511 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0512 02c7 | | Declare_Variable Any
0513 e5fc | | Load 0x2,-0x4
0514 e006 | | Load 0x0,0x6
0515 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0516 a404 | | Store_Unchecked 0x2,0x4
0517 BODY_0508:
0517 00d8 | | Load_Top At_Offset_0
0518 e228 | ( | Load 0x1,0x28
0519 0092 0e17 | | Action Push_String_Extended,0xe17 ; "Option_Switch"
051b e5ff | | Load 0x2,-0x1
051c e00b | | Load 0x0,0xb
051d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
051e 01cc | | Execute Vector,Catenate
051f 0092 0e18 | | Action Push_String_Extended,0xe18 ; ", switch_Value"
0521 01cc | | Execute Vector,Catenate
0522 e5fe | | Load 0x2,-0x2
0523 00e1 | | Load_Encached Boolean_Cache
0524 011c | | Execute Any,Convert_Unchecked
0525 1c01 | | Execute_Immediate Run_Utility,0x1
0526 e00b | | Load 0x0,0xb
0527 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0528 01cc | | Execute Vector,Catenate
0529 0092 0e19 | | Action Push_String_Extended,0xe19 ; ", Units"
052b 01cc | | Execute Vector,Catenate
052c e5fd | | Load 0x2,-0x3
052d e00b | | Load 0x0,0xb
052e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
052f 01cc | | Execute Vector,Catenate
0530 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
0532 01cc | | Execute Vector,Catenate
0533 e5fc | | Load 0x2,-0x4
0534 e00b | | Load 0x0,0xb
0535 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0536 01cc | | Execute Vector,Catenate
0537 e402 | | Load 0x2,0x2
0538 e00b | | Load 0x0,0xb
0539 1813 | | Execute Package,Field_Execute,Field_Number 0x13
053a 00d8 | | Load_Top At_Offset_0
053b e00c | | Load 0x0,0xc
053c 180f | | Execute Package,Field_Execute,Field_Number 0xf
053d e005 | | Load 0x0,0x5
053e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
053f 00d9 | | Load_Top At_Offset_1
0540 e5fd | | Load 0x2,-0x3
0541 e5fe | | Load 0x2,-0x2
0542 e5ff | | Load 0x2,-0x1
0543 e22e | . | Load 0x1,0x2e
0544 180d | | Execute Package,Field_Execute,Field_Number 0xd
0545 005a | Z | Store_Top Discrete,At_Offset_2
0546 00d8 | | Load_Top At_Offset_0
0547 e228 | ( | Load 0x1,0x28
0548 e402 | | Load 0x2,0x2
0549 e403 | | Load 0x2,0x3
054a e00b | | Load 0x0,0xb
054b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
054c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
054d TRAP_0508:
054d e005 | | Load 0x0,0x5
054e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
054f 010f | | Execute Exception,Equal
0550 6807 |h | Jump_Zero 0x558
0551 00d9 | | Load_Top At_Offset_1
0552 e228 | ( | Load 0x1,0x28
0553 e402 | | Load 0x2,0x2
0554 e403 | | Load 0x2,0x3
0555 e00b | | Load 0x0,0xb
0556 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0557 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0558 4884 |H | Short_Literal 0x84
0559 010f | | Execute Exception,Equal
055a 6807 |h | Jump_Zero 0x562
055b 00d9 | | Load_Top At_Offset_1
055c e228 | ( | Load 0x1,0x28
055d e402 | | Load 0x2,0x2
055e e403 | | Load 0x2,0x3
055f e00b | | Load 0x0,0xb
0560 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0561 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0562 00d9 | | Load_Top At_Offset_1
0563 e228 | ( | Load 0x1,0x28
0564 e402 | | Load 0x2,0x2
0565 e403 | | Load 0x2,0x3
0566 e00b | | Load 0x0,0xb
0567 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0568 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0569 0000 0000 | | .BLANK 0000[0x7]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 057f | | .CONST 0x057f ; Address of begin
0571 05b2 | | .CONST 0x05b2 ; Address of exception handler
0572 0004 | | .CONST 0x0004 ; Number of locals
0573 INIT_0570:
0573 0092 0e16 | | Action Push_String_Extended,0xe16 ; "Set_Unit_Option"
0575 e005 | | Load 0x0,0x5
0576 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0577 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0578 e006 | | Load 0x0,0x6
0579 1b0d | | Execute Package,Field_Read,Field_Number 0xd
057a 02c7 | | Declare_Variable Any
057b e5fc | | Load 0x2,-0x4
057c e006 | | Load 0x0,0x6
057d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
057e a404 | | Store_Unchecked 0x2,0x4
057f BODY_0570:
057f 00d8 | | Load_Top At_Offset_0
0580 e228 | ( | Load 0x1,0x28
0581 0092 0e17 | | Action Push_String_Extended,0xe17 ; "Option_Switch"
0583 e5ff | | Load 0x2,-0x1
0584 e00b | | Load 0x0,0xb
0585 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0586 01cc | | Execute Vector,Catenate
0587 0092 0e1a | | Action Push_String_Extended,0xe1a ; ", Switch_Value"
0589 01cc | | Execute Vector,Catenate
058a e5fe | | Load 0x2,-0x2
058b e00b | | Load 0x0,0xb
058c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
058d 01cc | | Execute Vector,Catenate
058e 0092 0e19 | | Action Push_String_Extended,0xe19 ; ", Units"
0590 01cc | | Execute Vector,Catenate
0591 e5fd | | Load 0x2,-0x3
0592 e00b | | Load 0x0,0xb
0593 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0594 01cc | | Execute Vector,Catenate
0595 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
0597 01cc | | Execute Vector,Catenate
0598 e5fc | | Load 0x2,-0x4
0599 e00b | | Load 0x0,0xb
059a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
059b 01cc | | Execute Vector,Catenate
059c e402 | | Load 0x2,0x2
059d e00b | | Load 0x0,0xb
059e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059f 00d8 | | Load_Top At_Offset_0
05a0 e00c | | Load 0x0,0xc
05a1 180f | | Execute Package,Field_Execute,Field_Number 0xf
05a2 e005 | | Load 0x0,0x5
05a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05a4 00d9 | | Load_Top At_Offset_1
05a5 e5fd | | Load 0x2,-0x3
05a6 e5fe | | Load 0x2,-0x2
05a7 e5ff | | Load 0x2,-0x1
05a8 e22e | . | Load 0x1,0x2e
05a9 180e | | Execute Package,Field_Execute,Field_Number 0xe
05aa 005a | Z | Store_Top Discrete,At_Offset_2
05ab 00d8 | | Load_Top At_Offset_0
05ac e228 | ( | Load 0x1,0x28
05ad e402 | | Load 0x2,0x2
05ae e403 | | Load 0x2,0x3
05af e00b | | Load 0x0,0xb
05b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05b1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05b2 TRAP_0570:
05b2 e005 | | Load 0x0,0x5
05b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05b4 010f | | Execute Exception,Equal
05b5 6807 |h | Jump_Zero 0x5bd
05b6 00d9 | | Load_Top At_Offset_1
05b7 e228 | ( | Load 0x1,0x28
05b8 e402 | | Load 0x2,0x2
05b9 e403 | | Load 0x2,0x3
05ba e00b | | Load 0x0,0xb
05bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05bc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05bd 4884 |H | Short_Literal 0x84
05be 010f | | Execute Exception,Equal
05bf 6807 |h | Jump_Zero 0x5c7
05c0 00d9 | | Load_Top At_Offset_1
05c1 e228 | ( | Load 0x1,0x28
05c2 e402 | | Load 0x2,0x2
05c3 e403 | | Load 0x2,0x3
05c4 e00b | | Load 0x0,0xb
05c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05c6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05c7 00d9 | | Load_Top At_Offset_1
05c8 e228 | ( | Load 0x1,0x28
05c9 e402 | | Load 0x2,0x2
05ca e403 | | Load 0x2,0x3
05cb e00b | | Load 0x0,0xb
05cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05cd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05ce 0000 0000 | | .XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05df | | .CONST 0x05df ; Address of begin
05d1 0602 | | .CONST 0x0602 ; Address of exception handler
05d2 0004 | | .CONST 0x0004 ; Number of locals
05d3 INIT_05d0:
05d3 0092 0e1b | | Action Push_String_Extended,0xe1b ; "Display_Unit_Options"
05d5 e005 | | Load 0x0,0x5
05d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05d8 e006 | | Load 0x0,0x6
05d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05da 02c7 | | Declare_Variable Any
05db e5fe | | Load 0x2,-0x2
05dc e006 | | Load 0x0,0x6
05dd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
05de a404 | | Store_Unchecked 0x2,0x4
05df BODY_05d0:
05df 00d8 | | Load_Top At_Offset_0
05e0 e228 | ( | Load 0x1,0x28
05e1 0092 0e1c | | Action Push_String_Extended,0xe1c ; "Units"
05e3 e5ff | | Load 0x2,-0x1
05e4 e00b | | Load 0x0,0xb
05e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05e6 01cc | | Execute Vector,Catenate
05e7 0092 0e03 | | Action Push_String_Extended,0xe03 ; "Response"
05e9 01cc | | Execute Vector,Catenate
05ea e5fe | | Load 0x2,-0x2
05eb e00b | | Load 0x0,0xb
05ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05ed 01cc | | Execute Vector,Catenate
05ee e402 | | Load 0x2,0x2
05ef e00b | | Load 0x0,0xb
05f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05f1 00d8 | | Load_Top At_Offset_0
05f2 e00c | | Load 0x0,0xc
05f3 180f | | Execute Package,Field_Execute,Field_Number 0xf
05f4 e005 | | Load 0x0,0x5
05f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f6 00d9 | | Load_Top At_Offset_1
05f7 e5ff | | Load 0x2,-0x1
05f8 e22e | . | Load 0x1,0x2e
05f9 180f | | Execute Package,Field_Execute,Field_Number 0xf
05fa 005a | Z | Store_Top Discrete,At_Offset_2
05fb 00d8 | | Load_Top At_Offset_0
05fc e228 | ( | Load 0x1,0x28
05fd e402 | | Load 0x2,0x2
05fe e403 | | Load 0x2,0x3
05ff e00b | | Load 0x0,0xb
0600 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0601 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0602 TRAP_05d0:
0602 e005 | | Load 0x0,0x5
0603 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0604 010f | | Execute Exception,Equal
0605 6807 |h | Jump_Zero 0x60d
0606 00d9 | | Load_Top At_Offset_1
0607 e228 | ( | Load 0x1,0x28
0608 e402 | | Load 0x2,0x2
0609 e403 | | Load 0x2,0x3
060a e00b | | Load 0x0,0xb
060b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
060c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
060d 4884 |H | Short_Literal 0x84
060e 010f | | Execute Exception,Equal
060f 6807 |h | Jump_Zero 0x617
0610 00d9 | | Load_Top At_Offset_1
0611 e228 | ( | Load 0x1,0x28
0612 e402 | | Load 0x2,0x2
0613 e403 | | Load 0x2,0x3
0614 e00b | | Load 0x0,0xb
0615 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0616 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0617 00d9 | | Load_Top At_Offset_1
0618 e228 | ( | Load 0x1,0x28
0619 e402 | | Load 0x2,0x2
061a e403 | | Load 0x2,0x3
061b e00b | | Load 0x0,0xb
061c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
061d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
061e 0000 0000 | | .XXX[0x2]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 062f | / | .CONST 0x062f ; Address of begin
0621 065a | Z | .CONST 0x065a ; Address of exception handler
0622 0004 | | .CONST 0x0004 ; Number of locals
0623 INIT_0620:
0623 0092 0e1d | | Action Push_String_Extended,0xe1d ; "Remove_Unit_Option"
0625 e005 | | Load 0x0,0x5
0626 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0627 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0628 e006 | | Load 0x0,0x6
0629 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062a 02c7 | | Declare_Variable Any
062b e5fd | | Load 0x2,-0x3
062c e006 | | Load 0x0,0x6
062d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
062e a404 | | Store_Unchecked 0x2,0x4
062f BODY_0620:
062f 00d8 | | Load_Top At_Offset_0
0630 e228 | ( | Load 0x1,0x28
0631 0092 0e17 | | Action Push_String_Extended,0xe17 ; "Option_Switch"
0633 e5ff | | Load 0x2,-0x1
0634 e00b | | Load 0x0,0xb
0635 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0636 01cc | | Execute Vector,Catenate
0637 0092 0e19 | | Action Push_String_Extended,0xe19 ; ", Units"
0639 01cc | | Execute Vector,Catenate
063a e5fe | | Load 0x2,-0x2
063b e00b | | Load 0x0,0xb
063c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
063d 01cc | | Execute Vector,Catenate
063e 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
0640 01cc | | Execute Vector,Catenate
0641 e5fd | | Load 0x2,-0x3
0642 e00b | | Load 0x0,0xb
0643 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0644 01cc | | Execute Vector,Catenate
0645 e402 | | Load 0x2,0x2
0646 e00b | | Load 0x0,0xb
0647 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0648 00d8 | | Load_Top At_Offset_0
0649 e00c | | Load 0x0,0xc
064a 180f | | Execute Package,Field_Execute,Field_Number 0xf
064b e005 | | Load 0x0,0x5
064c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
064d 00d9 | | Load_Top At_Offset_1
064e e5fe | | Load 0x2,-0x2
064f e5ff | | Load 0x2,-0x1
0650 e22e | . | Load 0x1,0x2e
0651 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0652 005a | Z | Store_Top Discrete,At_Offset_2
0653 00d8 | | Load_Top At_Offset_0
0654 e228 | ( | Load 0x1,0x28
0655 e402 | | Load 0x2,0x2
0656 e403 | | Load 0x2,0x3
0657 e00b | | Load 0x0,0xb
0658 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0659 4504 |E | Exit_Suprogram New_Top_Offset 0x4
065a TRAP_0620:
065a e005 | | Load 0x0,0x5
065b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
065c 010f | | Execute Exception,Equal
065d 6807 |h | Jump_Zero 0x665
065e 00d9 | | Load_Top At_Offset_1
065f e228 | ( | Load 0x1,0x28
0660 e402 | | Load 0x2,0x2
0661 e403 | | Load 0x2,0x3
0662 e00b | | Load 0x0,0xb
0663 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0664 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0665 4884 |H | Short_Literal 0x84
0666 010f | | Execute Exception,Equal
0667 6807 |h | Jump_Zero 0x66f
0668 00d9 | | Load_Top At_Offset_1
0669 e228 | ( | Load 0x1,0x28
066a e402 | | Load 0x2,0x2
066b e403 | | Load 0x2,0x3
066c e00b | | Load 0x0,0xb
066d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
066e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
066f 00d9 | | Load_Top At_Offset_1
0670 e228 | ( | Load 0x1,0x28
0671 e402 | | Load 0x2,0x2
0672 e403 | | Load 0x2,0x3
0673 e00b | | Load 0x0,0xb
0674 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0675 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0676 0000 0000 | | .XXX[0x2]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 0691 | | .CONST 0x0691 ; Address of begin
0679 06d0 | | .CONST 0x06d0 ; Address of exception handler
067a 0007 | | .CONST 0x0007 ; Number of locals
067b INIT_0678:
067b 0092 0e1e | | Action Push_String_Extended,0xe1e ; "Refresh_View"
067d e005 | | Load 0x0,0x5
067e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0680 e006 | | Load 0x0,0x6
0681 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0682 02c7 | | Declare_Variable Any
0683 e5fd | | Load 0x2,-0x3
0684 e006 | | Load 0x0,0x6
0685 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0686 a404 | | Store_Unchecked 0x2,0x4
0687 e007 | | Load 0x0,0x7
0688 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0689 1b18 | | Execute Package,Field_Read,Field_Number 0x18
068a 02c7 | | Declare_Variable Any
068b 00d8 | | Load_Top At_Offset_0
068c 1c00 | | Execute_Immediate Run_Utility,0x0
068d 00e1 | | Load_Encached Boolean_Cache
068e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
068f 029f 0c3b | ;| Declare_Subprogram INIT_0c38,For_Call
0691 BODY_0678:
0691 00db | | Load_Top At_Offset_3
0692 e228 | ( | Load 0x1,0x28
0693 0092 0e1f | | Action Push_String_Extended,0xe1f ; "View"
0695 e5ff | | Load 0x2,-0x1
0696 e00b | | Load 0x0,0xb
0697 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0698 01cc | | Execute Vector,Catenate
0699 0092 0e20 | | Action Push_String_Extended,0xe20 ; ", Retain_History => "
069b 01cc | | Execute Vector,Catenate
069c e5fe | | Load 0x2,-0x2
069d 00e1 | | Load_Encached Boolean_Cache
069e 011c | | Execute Any,Convert_Unchecked
069f 1c01 | | Execute_Immediate Run_Utility,0x1
06a0 01cc | | Execute Vector,Catenate
06a1 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
06a3 01cc | | Execute Vector,Catenate
06a4 e5fd | | Load 0x2,-0x3
06a5 e00b | | Load 0x0,0xb
06a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06a7 01cc | | Execute Vector,Catenate
06a8 e402 | | Load 0x2,0x2
06a9 e00b | | Load 0x0,0xb
06aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ab 00db | | Load_Top At_Offset_3
06ac e00c | | Load 0x0,0xc
06ad 180f | | Execute Package,Field_Execute,Field_Number 0xf
06ae 00db | | Load_Top At_Offset_3
06af 0092 0e1f | | Action Push_String_Extended,0xe1f ; "View"
06b1 e5ff | | Load 0x2,-0x1
06b2 e00c | | Load 0x0,0xc
06b3 180e | | Execute Package,Field_Execute,Field_Number 0xe
06b4 00db | | Load_Top At_Offset_3
06b5 4801 |H | Short_Literal 0x1
06b6 e5ff | | Load 0x2,-0x1
06b7 e00d | | Load 0x0,0xd
06b8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
06b9 c405 | | Store 0x2,0x5
06ba 00cf | | Action Mark_Auxiliary
06bb 7807 |x | Jump 0x6c3
06bc 8407 | | Call 0x2,0x7
06bd 00db | | Load_Top At_Offset_3
06be e007 | | Load 0x0,0x7
06bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06c1 c405 | | Store 0x2,0x5
06c2 00c9 | | Action Pop_Auxiliary_Loop
06c3 00db | | Load_Top At_Offset_3
06c4 e007 | | Load 0x0,0x7
06c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
06c7 6ff4 |o | Jump_Zero 0x6bc
06c8 00ce | | Action Pop_Auxiliary
06c9 00db | | Load_Top At_Offset_3
06ca e228 | ( | Load 0x1,0x28
06cb e402 | | Load 0x2,0x2
06cc e403 | | Load 0x2,0x3
06cd e00b | | Load 0x0,0xb
06ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06d0 TRAP_0678:
06d0 e005 | | Load 0x0,0x5
06d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
06d2 010f | | Execute Exception,Equal
06d3 6807 |h | Jump_Zero 0x6db
06d4 e404 | | Load 0x2,0x4
06d5 e228 | ( | Load 0x1,0x28
06d6 e402 | | Load 0x2,0x2
06d7 e403 | | Load 0x2,0x3
06d8 e00b | | Load 0x0,0xb
06d9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06da 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06db 4884 |H | Short_Literal 0x84
06dc 010f | | Execute Exception,Equal
06dd 6807 |h | Jump_Zero 0x6e5
06de e404 | | Load 0x2,0x4
06df e228 | ( | Load 0x1,0x28
06e0 e402 | | Load 0x2,0x2
06e1 e403 | | Load 0x2,0x3
06e2 e00b | | Load 0x0,0xb
06e3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06e5 e404 | | Load 0x2,0x4
06e6 e228 | ( | Load 0x1,0x28
06e7 e402 | | Load 0x2,0x2
06e8 e403 | | Load 0x2,0x3
06e9 e00b | | Load 0x0,0xb
06ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06ec 0000 0000 | | .BLANK 0000[0x4]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 00db | | Load_Top At_Offset_3
06f4 00db | | Load_Top At_Offset_3
06f5 e22c | , | Load 0x1,0x2c
06f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb e5fc | | Load 0x2,-0x4
06fc e5fd | | Load 0x2,-0x3
06fd e5fe | | Load 0x2,-0x2
06fe e5ff | | Load 0x2,-0x1
06ff e22c | , | Load 0x1,0x2c
0700 180d | | Execute Package,Field_Execute,Field_Number 0xd
0701 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0702 0000 0000 | | .BLANK 0000[0x6]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b e5fb | | Load 0x2,-0x5
070c e5fc | | Load 0x2,-0x4
070d e5fd | | Load 0x2,-0x3
070e e5fe | | Load 0x2,-0x2
070f e5ff | | Load 0x2,-0x1
0710 e22c | , | Load 0x1,0x2c
0711 180e | | Execute Package,Field_Execute,Field_Number 0xe
0712 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0713 0000 0000 | | .BLANK 0000[0x5]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00db | | Load_Top At_Offset_3
071c 00db | | Load_Top At_Offset_3
071d e22c | , | Load 0x1,0x2c
071e 180f | | Execute Package,Field_Execute,Field_Number 0xf
071f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0737 | 7 | .CONST 0x0737 ; Address of begin
0721 076b | k | .CONST 0x076b ; Address of exception handler
0722 0006 | | .CONST 0x0006 ; Number of locals
0723 INIT_0720:
0723 0092 0e21 | !| Action Push_String_Extended,0xe21 ; "Show_Remote_Information"
0725 e005 | | Load 0x0,0x5
0726 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0727 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0728 e006 | | Load 0x0,0x6
0729 1b0d | | Execute Package,Field_Read,Field_Number 0xd
072a 02c7 | | Declare_Variable Any
072b e5fe | | Load 0x2,-0x2
072c e006 | | Load 0x0,0x6
072d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
072e a404 | | Store_Unchecked 0x2,0x4
072f e007 | | Load 0x0,0x7
0730 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0731 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0732 02c7 | | Declare_Variable Any
0733 00d8 | | Load_Top At_Offset_0
0734 1c00 | | Execute_Immediate Run_Utility,0x0
0735 029f 0cb3 | | Declare_Subprogram INIT_0cb0,For_Call
0737 BODY_0720:
0737 00da | | Load_Top At_Offset_2
0738 e228 | ( | Load 0x1,0x28
0739 0092 0e1f | | Action Push_String_Extended,0xe1f ; "View"
073b e5ff | | Load 0x2,-0x1
073c e00b | | Load 0x0,0xb
073d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
073e 01cc | | Execute Vector,Catenate
073f 0092 0e03 | | Action Push_String_Extended,0xe03 ; "Response"
0741 01cc | | Execute Vector,Catenate
0742 e5fe | | Load 0x2,-0x2
0743 e00b | | Load 0x0,0xb
0744 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0745 01cc | | Execute Vector,Catenate
0746 e402 | | Load 0x2,0x2
0747 e00b | | Load 0x0,0xb
0748 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0749 00da | | Load_Top At_Offset_2
074a e00c | | Load 0x0,0xc
074b 180f | | Execute Package,Field_Execute,Field_Number 0xf
074c 00da | | Load_Top At_Offset_2
074d 4801 |H | Short_Literal 0x1
074e e5ff | | Load 0x2,-0x1
074f e00d | | Load 0x0,0xd
0750 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0751 c405 | | Store 0x2,0x5
0752 00cf | | Action Mark_Auxiliary
0753 7807 |x | Jump 0x75b
0754 8406 | | Call 0x2,0x6
0755 00da | | Load_Top At_Offset_2
0756 e007 | | Load 0x0,0x7
0757 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0758 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0759 c405 | | Store 0x2,0x5
075a 00c9 | | Action Pop_Auxiliary_Loop
075b 00da | | Load_Top At_Offset_2
075c e007 | | Load 0x0,0x7
075d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
075e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
075f 6ff4 |o | Jump_Zero 0x754
0760 00ce | | Action Pop_Auxiliary
0761 4801 |H | Short_Literal 0x1
0762 e016 | | Load 0x0,0x16
0763 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0764 00da | | Load_Top At_Offset_2
0765 e228 | ( | Load 0x1,0x28
0766 e402 | | Load 0x2,0x2
0767 e403 | | Load 0x2,0x3
0768 e00b | | Load 0x0,0xb
0769 1814 | | Execute Package,Field_Execute,Field_Number 0x14
076a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
076b TRAP_0720:
076b e005 | | Load 0x0,0x5
076c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
076d 010f | | Execute Exception,Equal
076e 6807 |h | Jump_Zero 0x776
076f 00db | | Load_Top At_Offset_3
0770 e228 | ( | Load 0x1,0x28
0771 e402 | | Load 0x2,0x2
0772 e403 | | Load 0x2,0x3
0773 e00b | | Load 0x0,0xb
0774 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0775 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0776 4884 |H | Short_Literal 0x84
0777 010f | | Execute Exception,Equal
0778 6807 |h | Jump_Zero 0x780
0779 00db | | Load_Top At_Offset_3
077a e228 | ( | Load 0x1,0x28
077b e402 | | Load 0x2,0x2
077c e403 | | Load 0x2,0x3
077d e00b | | Load 0x0,0xb
077e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
077f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0780 00db | | Load_Top At_Offset_3
0781 e228 | ( | Load 0x1,0x28
0782 e402 | | Load 0x2,0x2
0783 e403 | | Load 0x2,0x3
0784 e00b | | Load 0x0,0xb
0785 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0786 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0787 0000 | | .XXX[0x1]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 07a1 | | .CONST 0x07a1 ; Address of begin
0789 0867 | g | .CONST 0x0867 ; Address of exception handler
078a 0006 | | .CONST 0x0006 ; Number of locals
078b INIT_0788:
078b 0092 0e22 | "| Action Push_String_Extended,0xe22 ; "Execute_Remote_Command"
078d e005 | | Load 0x0,0x5
078e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
078f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0790 e006 | | Load 0x0,0x6
0791 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0792 02c7 | | Declare_Variable Any
0793 e5f9 | | Load 0x2,-0x7
0794 e006 | | Load 0x0,0x6
0795 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0796 a404 | | Store_Unchecked 0x2,0x4
0797 e008 | | Load 0x0,0x8
0798 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0799 02c7 | | Declare_Variable Any
079a 00d8 | | Load_Top At_Offset_0
079b 1c00 | | Execute_Immediate Run_Utility,0x0
079c e020 | | Load 0x0,0x20
079d 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
079e 02c7 | | Declare_Variable Any
079f 00d8 | | Load_Top At_Offset_0
07a0 1c00 | | Execute_Immediate Run_Utility,0x0
07a1 BODY_0788:
07a1 00da | | Load_Top At_Offset_2
07a2 e228 | ( | Load 0x1,0x28
07a3 0092 0e23 | #| Action Push_String_Extended,0xe23 ; "remote_command"
07a5 e5ff | | Load 0x2,-0x1
07a6 e00b | | Load 0x0,0xb
07a7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07a8 01cc | | Execute Vector,Catenate
07a9 0092 0e24 | $| Action Push_String_Extended,0xe24 ; ", remote_machine"
07ab 01cc | | Execute Vector,Catenate
07ac e5fe | | Load 0x2,-0x2
07ad e00b | | Load 0x0,0xb
07ae 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07af 01cc | | Execute Vector,Catenate
07b0 0092 0e25 | %| Action Push_String_Extended,0xe25 ; ", remote_username"
07b2 01cc | | Execute Vector,Catenate
07b3 e5fd | | Load 0x2,-0x3
07b4 e00b | | Load 0x0,0xb
07b5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07b6 01cc | | Execute Vector,Catenate
07b7 0092 0e26 | &| Action Push_String_Extended,0xe26 ; ", remote_password"
07b9 01cc | | Execute Vector,Catenate
07ba e5fc | | Load 0x2,-0x4
07bb e00b | | Load 0x0,0xb
07bc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07bd 01cc | | Execute Vector,Catenate
07be 0092 0e27 | '| Action Push_String_Extended,0xe27 ; ", remote_directory"
07c0 01cc | | Execute Vector,Catenate
07c1 e5fb | | Load 0x2,-0x5
07c2 e00b | | Load 0x0,0xb
07c3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07c4 01cc | | Execute Vector,Catenate
07c5 0092 0e28 | (| Action Push_String_Extended,0xe28 ; ", The_Key"
07c7 01cc | | Execute Vector,Catenate
07c8 e5fa | | Load 0x2,-0x6
07c9 e00b | | Load 0x0,0xb
07ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12
07cb 01cc | | Execute Vector,Catenate
07cc 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
07ce 01cc | | Execute Vector,Catenate
07cf e5f9 | | Load 0x2,-0x7
07d0 e00b | | Load 0x0,0xb
07d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07d2 01cc | | Execute Vector,Catenate
07d3 e402 | | Load 0x2,0x2
07d4 e00b | | Load 0x0,0xb
07d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07d6 00da | | Load_Top At_Offset_2
07d7 e00c | | Load 0x0,0xc
07d8 180f | | Execute Package,Field_Execute,Field_Number 0xf
07d9 e5fa | | Load 0x2,-0x6
07da 8234 | 4 | Call 0x1,0x34
07db e021 | ! | Load 0x0,0x21
07dc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07dd e020 | | Load 0x0,0x20
07de 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
07df c406 | | Store 0x2,0x6
07e0 e005 | | Load 0x0,0x5
07e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07e2 00da | | Load_Top At_Offset_2
07e3 0120 | | Execute Any,Is_Value
07e4 6803 |h | Jump_Zero 0x7e8
07e5 e008 | | Load 0x0,0x8
07e6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
07e7 7801 |x | Jump 0x7e9
07e8 00da | | Load_Top At_Offset_2
07e9 4800 |H | Short_Literal 0x0
07ea e5fc | | Load 0x2,-0x4
07eb 8233 | 3 | Call 0x1,0x33
07ec e5fd | | Load 0x2,-0x3
07ed 8232 | 2 | Call 0x1,0x32
07ee e5fe | | Load 0x2,-0x2
07ef 8231 | 1 | Call 0x1,0x31
07f0 00ea | | Load_Encached Null_String_Cache
07f1 00ea | | Load_Encached Null_String_Cache
07f2 e5fb | | Load 0x2,-0x5
07f3 8230 | 0 | Call 0x1,0x30
07f4 e406 | | Load 0x2,0x6
07f5 e020 | | Load 0x0,0x20
07f6 18b8 | | Execute Package,Field_Execute,Field_Number 0xb8
07f7 e406 | | Load 0x2,0x6
07f8 e008 | | Load 0x0,0x8
07f9 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
07fa c405 | | Store 0x2,0x5
07fb c403 | | Store 0x2,0x3
07fc 4800 |H | Short_Literal 0x0
07fd e403 | | Load 0x2,0x3
07fe e005 | | Load 0x0,0x5
07ff 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0800 7016 |p | Jump_Nonzero 0x817
0801 e006 | | Load 0x0,0x6
0802 180e | | Execute Package,Field_Execute,Field_Number 0xe
0803 4801 |H | Short_Literal 0x1
0804 4801 |H | Short_Literal 0x1
0805 e00f | | Load 0x0,0xf
0806 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0807 035b | [ | Declare_Type Array,Constrained
0808 0337 | 7 | Declare_Variable Array
0809 e5fe | | Load 0x2,-0x2
080a e00f | | Load 0x0,0xf
080b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
080c e00f | | Load 0x0,0xf
080d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
080e 0119 | | Execute Any,Check_In_Formal_Type
080f 4801 |H | Short_Literal 0x1
0810 00da | | Load_Top At_Offset_2
0811 01d6 | | Execute Vector,Field_Write
0812 6099 |` | Indirect_Literal Discrete,0x8ac,{0x00000000, 0x00008803}
0813 e005 | | Load 0x0,0x5
0814 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0815 e022 | " | Load 0x0,0x22
0816 0257 | W | Execute Discrete,Raise
0817 e005 | | Load 0x0,0x5
0818 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0819 4801 |H | Short_Literal 0x1
081a 4801 |H | Short_Literal 0x1
081b 4800 |H | Short_Literal 0x0
081c 4800 |H | Short_Literal 0x0
081d 00ea | | Load_Encached Null_String_Cache
081e e405 | | Load 0x2,0x5
081f e5ff | | Load 0x2,-0x1
0820 e008 | | Load 0x0,0x8
0821 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0822 c403 | | Store 0x2,0x3
0823 4800 |H | Short_Literal 0x0
0824 e403 | | Load 0x2,0x3
0825 e005 | | Load 0x0,0x5
0826 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0827 7016 |p | Jump_Nonzero 0x83e
0828 e006 | | Load 0x0,0x6
0829 180e | | Execute Package,Field_Execute,Field_Number 0xe
082a 4801 |H | Short_Literal 0x1
082b 4801 |H | Short_Literal 0x1
082c e00f | | Load 0x0,0xf
082d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
082e 035b | [ | Declare_Type Array,Constrained
082f 0337 | 7 | Declare_Variable Array
0830 e5ff | | Load 0x2,-0x1
0831 e00f | | Load 0x0,0xf
0832 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0833 e00f | | Load 0x0,0xf
0834 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0835 0119 | | Execute Any,Check_In_Formal_Type
0836 4801 |H | Short_Literal 0x1
0837 00da | | Load_Top At_Offset_2
0838 01d6 | | Execute Vector,Field_Write
0839 606e |`n | Indirect_Literal Discrete,0x8a8,{0x00000000, 0x0000885c}
083a e005 | | Load 0x0,0x5
083b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
083c e022 | " | Load 0x0,0x22
083d 0257 | W | Execute Discrete,Raise
083e e005 | | Load 0x0,0x5
083f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0840 4800 |H | Short_Literal 0x0
0841 00db | | Load_Top At_Offset_3
0842 e008 | | Load 0x0,0x8
0843 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0844 c403 | | Store 0x2,0x3
0845 4800 |H | Short_Literal 0x0
0846 e403 | | Load 0x2,0x3
0847 e005 | | Load 0x0,0x5
0848 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0849 7016 |p | Jump_Nonzero 0x860
084a e006 | | Load 0x0,0x6
084b 180e | | Execute Package,Field_Execute,Field_Number 0xe
084c 4801 |H | Short_Literal 0x1
084d 4801 |H | Short_Literal 0x1
084e e00f | | Load 0x0,0xf
084f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0850 035b | [ | Declare_Type Array,Constrained
0851 0337 | 7 | Declare_Variable Array
0852 e5fe | | Load 0x2,-0x2
0853 e00f | | Load 0x0,0xf
0854 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0855 e00f | | Load 0x0,0xf
0856 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0857 0119 | | Execute Any,Check_In_Formal_Type
0858 4801 |H | Short_Literal 0x1
0859 00da | | Load_Top At_Offset_2
085a 01d6 | | Execute Vector,Field_Write
085b 6048 |`H | Indirect_Literal Discrete,0x8a4,{0x00000000, 0x0000880f}
085c e005 | | Load 0x0,0x5
085d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
085e e022 | " | Load 0x0,0x22
085f 0257 | W | Execute Discrete,Raise
0860 00da | | Load_Top At_Offset_2
0861 e228 | ( | Load 0x1,0x28
0862 e402 | | Load 0x2,0x2
0863 e403 | | Load 0x2,0x3
0864 e00b | | Load 0x0,0xb
0865 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0866 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0867 TRAP_0788:
0867 e022 | " | Load 0x0,0x22
0868 010f | | Execute Exception,Equal
0869 680e |h | Jump_Zero 0x878
086a e005 | | Load 0x0,0x5
086b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
086c 4800 |H | Short_Literal 0x0
086d e405 | | Load 0x2,0x5
086e e008 | | Load 0x0,0x8
086f 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0870 c403 | | Store 0x2,0x3
0871 00db | | Load_Top At_Offset_3
0872 e228 | ( | Load 0x1,0x28
0873 e402 | | Load 0x2,0x2
0874 e403 | | Load 0x2,0x3
0875 e00b | | Load 0x0,0xb
0876 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0877 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0878 e023 | # | Load 0x0,0x23
0879 1b17 | | Execute Package,Field_Read,Field_Number 0x17
087a 010f | | Execute Exception,Equal
087b 681c |h | Jump_Zero 0x898
087c e006 | | Load 0x0,0x6
087d 180e | | Execute Package,Field_Execute,Field_Number 0xe
087e 4801 |H | Short_Literal 0x1
087f 4801 |H | Short_Literal 0x1
0880 e00f | | Load 0x0,0xf
0881 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0882 035b | [ | Declare_Type Array,Constrained
0883 0337 | 7 | Declare_Variable Array
0884 e5fa | | Load 0x2,-0x6
0885 8234 | 4 | Call 0x1,0x34
0886 e00f | | Load 0x0,0xf
0887 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0888 e00f | | Load 0x0,0xf
0889 1b0e | | Execute Package,Field_Read,Field_Number 0xe
088a 0119 | | Execute Any,Check_In_Formal_Type
088b 4801 |H | Short_Literal 0x1
088c 00da | | Load_Top At_Offset_2
088d 01d6 | | Execute Vector,Field_Write
088e 6011 |` | Indirect_Literal Discrete,0x8a0,{0x00000000, 0x00008891}
088f e005 | | Load 0x0,0x5
0890 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0891 00db | | Load_Top At_Offset_3
0892 e228 | ( | Load 0x1,0x28
0893 e402 | | Load 0x2,0x2
0894 e403 | | Load 0x2,0x3
0895 e00b | | Load 0x0,0xb
0896 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0897 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0898 00db | | Load_Top At_Offset_3
0899 e228 | ( | Load 0x1,0x28
089a e402 | | Load 0x2,0x2
089b e403 | | Load 0x2,0x3
089c e00b | | Load 0x0,0xb
089d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
089e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
089f 0000 | | .XXX[0x1]
08a0 0000 0000 | | .LITERAL {0x00000000, 0x00008891}
08a4 0000 0000 | | .LITERAL {0x00000000, 0x0000880f}
08a8 0000 0000 | | .LITERAL {0x00000000, 0x0000885c}
08ac 0000 0000 | | .LITERAL {0x00000000, 0x00008803}
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08bf | | .CONST 0x08bf ; Address of begin
08b1 08e8 | | .CONST 0x08e8 ; Address of exception handler
08b2 0004 | | .CONST 0x0004 ; Number of locals
08b3 INIT_08b0:
08b3 0092 0e29 | )| Action Push_String_Extended,0xe29 ; "Collapse_secondary_referencers"
08b5 e005 | | Load 0x0,0x5
08b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
08b8 e006 | | Load 0x0,0x6
08b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ba 02c7 | | Declare_Variable Any
08bb e5fe | | Load 0x2,-0x2
08bc e006 | | Load 0x0,0x6
08bd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
08be a404 | | Store_Unchecked 0x2,0x4
08bf BODY_08b0:
08bf 00d8 | | Load_Top At_Offset_0
08c0 e228 | ( | Load 0x1,0x28
08c1 0092 0e2a | *| Action Push_String_Extended,0xe2a ; "directory => "
08c3 e5ff | | Load 0x2,-0x1
08c4 01cc | | Execute Vector,Catenate
08c5 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
08c7 01cc | | Execute Vector,Catenate
08c8 e5fe | | Load 0x2,-0x2
08c9 e00b | | Load 0x0,0xb
08ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08cb 01cc | | Execute Vector,Catenate
08cc e402 | | Load 0x2,0x2
08cd e00b | | Load 0x0,0xb
08ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08cf 00d8 | | Load_Top At_Offset_0
08d0 e00c | | Load 0x0,0xc
08d1 180f | | Execute Package,Field_Execute,Field_Number 0xf
08d2 e005 | | Load 0x0,0x5
08d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08d4 00d9 | | Load_Top At_Offset_1
08d5 e5ff | | Load 0x2,-0x1
08d6 e013 | | Load 0x0,0x13
08d7 1883 | | Execute Package,Field_Execute,Field_Number 0x83
08d8 005a | Z | Store_Top Discrete,At_Offset_2
08d9 4800 |H | Short_Literal 0x0
08da 00da | | Load_Top At_Offset_2
08db e005 | | Load 0x0,0x5
08dc 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
08dd 7003 |p | Jump_Nonzero 0x8e1
08de e005 | | Load 0x0,0x5
08df 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08e0 0257 | W | Execute Discrete,Raise
08e1 00d8 | | Load_Top At_Offset_0
08e2 e228 | ( | Load 0x1,0x28
08e3 e402 | | Load 0x2,0x2
08e4 e403 | | Load 0x2,0x3
08e5 e00b | | Load 0x0,0xb
08e6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08e8 TRAP_08b0:
08e8 e005 | | Load 0x0,0x5
08e9 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08ea 010f | | Execute Exception,Equal
08eb 6807 |h | Jump_Zero 0x8f3
08ec 00d9 | | Load_Top At_Offset_1
08ed e228 | ( | Load 0x1,0x28
08ee e402 | | Load 0x2,0x2
08ef e403 | | Load 0x2,0x3
08f0 e00b | | Load 0x0,0xb
08f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08f3 4884 |H | Short_Literal 0x84
08f4 010f | | Execute Exception,Equal
08f5 6807 |h | Jump_Zero 0x8fd
08f6 00d9 | | Load_Top At_Offset_1
08f7 e228 | ( | Load 0x1,0x28
08f8 e402 | | Load 0x2,0x2
08f9 e403 | | Load 0x2,0x3
08fa e00b | | Load 0x0,0xb
08fb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08fd 00d9 | | Load_Top At_Offset_1
08fe e228 | ( | Load 0x1,0x28
08ff e402 | | Load 0x2,0x2
0900 e403 | | Load 0x2,0x3
0901 e00b | | Load 0x0,0xb
0902 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0903 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0904 0000 0000 | | .BLANK 0000[0x4]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 0917 | | .CONST 0x0917 ; Address of begin
0909 0941 | A | .CONST 0x0941 ; Address of exception handler
090a 0004 | | .CONST 0x0004 ; Number of locals
090b INIT_0908:
090b 0092 0e2b | +| Action Push_String_Extended,0xe2b ; "Expand_secondary_referencers"
090d e005 | | Load 0x0,0x5
090e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
090f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0910 e006 | | Load 0x0,0x6
0911 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0912 02c7 | | Declare_Variable Any
0913 e5fe | | Load 0x2,-0x2
0914 e006 | | Load 0x0,0x6
0915 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0916 a404 | | Store_Unchecked 0x2,0x4
0917 BODY_0908:
0917 00d8 | | Load_Top At_Offset_0
0918 e228 | ( | Load 0x1,0x28
0919 0092 0e2a | *| Action Push_String_Extended,0xe2a ; "directory => "
091b e5ff | | Load 0x2,-0x1
091c 01cc | | Execute Vector,Catenate
091d 0092 0e00 | | Action Push_String_Extended,0xe00 ; ", Response"
091f 01cc | | Execute Vector,Catenate
0920 e5fe | | Load 0x2,-0x2
0921 e00b | | Load 0x0,0xb
0922 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0923 01cc | | Execute Vector,Catenate
0924 e402 | | Load 0x2,0x2
0925 e00b | | Load 0x0,0xb
0926 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0927 00d8 | | Load_Top At_Offset_0
0928 e00c | | Load 0x0,0xc
0929 180f | | Execute Package,Field_Execute,Field_Number 0xf
092a e005 | | Load 0x0,0x5
092b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092c 4800 |H | Short_Literal 0x0
092d 00da | | Load_Top At_Offset_2
092e e5ff | | Load 0x2,-0x1
092f e013 | | Load 0x0,0x13
0930 188c | | Execute Package,Field_Execute,Field_Number 0x8c
0931 005a | Z | Store_Top Discrete,At_Offset_2
0932 4800 |H | Short_Literal 0x0
0933 00da | | Load_Top At_Offset_2
0934 e005 | | Load 0x0,0x5
0935 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0936 7003 |p | Jump_Nonzero 0x93a
0937 e005 | | Load 0x0,0x5
0938 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0939 0257 | W | Execute Discrete,Raise
093a 00d8 | | Load_Top At_Offset_0
093b e228 | ( | Load 0x1,0x28
093c e402 | | Load 0x2,0x2
093d e403 | | Load 0x2,0x3
093e e00b | | Load 0x0,0xb
093f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0940 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0941 TRAP_0908:
0941 e005 | | Load 0x0,0x5
0942 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0943 010f | | Execute Exception,Equal
0944 6807 |h | Jump_Zero 0x94c
0945 00d9 | | Load_Top At_Offset_1
0946 e228 | ( | Load 0x1,0x28
0947 e402 | | Load 0x2,0x2
0948 e403 | | Load 0x2,0x3
0949 e00b | | Load 0x0,0xb
094a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
094b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
094c 4884 |H | Short_Literal 0x84
094d 010f | | Execute Exception,Equal
094e 6807 |h | Jump_Zero 0x956
094f 00d9 | | Load_Top At_Offset_1
0950 e228 | ( | Load 0x1,0x28
0951 e402 | | Load 0x2,0x2
0952 e403 | | Load 0x2,0x3
0953 e00b | | Load 0x0,0xb
0954 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0955 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0956 00d9 | | Load_Top At_Offset_1
0957 e228 | ( | Load 0x1,0x28
0958 e402 | | Load 0x2,0x2
0959 e403 | | Load 0x2,0x3
095a e00b | | Load 0x0,0xb
095b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
095c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
095d 0000 0000 | | .XXX[0x3]
095f 0000 | |
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 098a | | .CONST 0x098a ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 000c | | .CONST 0x000c ; Number of locals
0963 INIT_0960:
0963 e024 | $ | Load 0x0,0x24
0964 e025 | % | Load 0x0,0x25
0965 e007 | | Load 0x0,0x7
0966 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0967 e026 | & | Load 0x0,0x26
0968 0387 | | Declare_Variable Package
0969 00d8 | | Load_Top At_Offset_0
096a 020f | | Execute Module,Activate
096b e005 | | Load 0x0,0x5
096c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
096d 00d9 | | Load_Top At_Offset_1
096e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
096f e007 | | Load 0x0,0x7
0970 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0971 02c7 | | Declare_Variable Any
0972 00d8 | | Load_Top At_Offset_0
0973 1c00 | | Execute_Immediate Run_Utility,0x0
0974 e007 | | Load 0x0,0x7
0975 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0976 02c7 | | Declare_Variable Any
0977 00d8 | | Load_Top At_Offset_0
0978 1c00 | | Execute_Immediate Run_Utility,0x0
0979 e007 | | Load 0x0,0x7
097a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
097b 02c7 | | Declare_Variable Any
097c 00d8 | | Load_Top At_Offset_0
097d 1c00 | | Execute_Immediate Run_Utility,0x0
097e 00e1 | | Load_Encached Boolean_Cache
097f e007 | | Load 0x0,0x7
0980 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0981 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0982 02c7 | | Declare_Variable Any
0983 e5ff | | Load 0x2,-0x1
0984 a409 | | Store_Unchecked 0x2,0x9
0985 00e1 | | Load_Encached Boolean_Cache
0986 029f 0d33 | 3| Declare_Subprogram INIT_0d30,For_Call
0988 029f 0d4b | K| Declare_Subprogram INIT_0d48,For_Call
098a BODY_0960:
098a 00cf | | Action Mark_Auxiliary
098b 789b |x | Jump 0xa27
098c e5fc | | Load 0x2,-0x4
098d 4800 |H | Short_Literal 0x0
098e e409 | | Load 0x2,0x9
098f e00d | | Load 0x0,0xd
0990 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0991 c405 | | Store 0x2,0x5
0992 e405 | | Load 0x2,0x5
0993 840c | | Call 0x2,0xc
0994 7014 |p | Jump_Nonzero 0x9a9
0995 e5fc | | Load 0x2,-0x4
0996 4801 |H | Short_Literal 0x1
0997 4801 |H | Short_Literal 0x1
0998 e00f | | Load 0x0,0xf
0999 1b0f | | Execute Package,Field_Read,Field_Number 0xf
099a 035b | [ | Declare_Type Array,Constrained
099b 0337 | 7 | Declare_Variable Array
099c e405 | | Load 0x2,0x5
099d e00f | | Load 0x0,0xf
099e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
099f e00f | | Load 0x0,0xf
09a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09a1 0119 | | Execute Any,Check_In_Formal_Type
09a2 4801 |H | Short_Literal 0x1
09a3 00da | | Load_Top At_Offset_2
09a4 01d6 | | Execute Vector,Field_Write
09a5 6092 |` | Indirect_Literal Discrete,0xa38,{0x00000000, 0x00008853}
09a6 e005 | | Load 0x0,0x5
09a7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09a8 7878 |xx | Jump 0xa21
09a9 e5fc | | Load 0x2,-0x4
09aa 4801 |H | Short_Literal 0x1
09ab e405 | | Load 0x2,0x5
09ac e00d | | Load 0x0,0xd
09ad 181c | | Execute Package,Field_Execute,Field_Number 0x1c
09ae c407 | | Store 0x2,0x7
09af e405 | | Load 0x2,0x5
09b0 e00d | | Load 0x0,0xd
09b1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
09b2 c406 | | Store 0x2,0x6
09b3 e406 | | Load 0x2,0x6
09b4 e007 | | Load 0x0,0x7
09b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09b6 6802 |h | Jump_Zero 0x9b9
09b7 e405 | | Load 0x2,0x5
09b8 c406 | | Store 0x2,0x6
09b9 00e1 | | Load_Encached Boolean_Cache
09ba e404 | | Load 0x2,0x4
09bb e406 | | Load 0x2,0x6
09bc 840b | | Call 0x2,0xb
09bd c404 | | Store 0x2,0x4
09be c408 | | Store 0x2,0x8
09bf e408 | | Load 0x2,0x8
09c0 7060 |p` | Jump_Nonzero 0xa21
09c1 e403 | | Load 0x2,0x3
09c2 e00e | | Load 0x0,0xe
09c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09c4 e5fc | | Load 0x2,-0x4
09c5 e5fe | | Load 0x2,-0x2
09c6 4800 |H | Short_Literal 0x0
09c7 e406 | | Load 0x2,0x6
09c8 e027 | ' | Load 0x0,0x27
09c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
09ca c403 | | Store 0x2,0x3
09cb 4800 |H | Short_Literal 0x0
09cc e403 | | Load 0x2,0x3
09cd e005 | | Load 0x0,0x5
09ce 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
09cf 683c |h< | Jump_Zero 0xa0c
09d0 e005 | | Load 0x0,0x5
09d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09d2 e5fc | | Load 0x2,-0x4
09d3 e5fe | | Load 0x2,-0x2
09d4 e5fc | | Load 0x2,-0x4
09d5 e407 | | Load 0x2,0x7
09d6 e00d | | Load 0x0,0xd
09d7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
09d8 e5fd | | Load 0x2,-0x3
09d9 e406 | | Load 0x2,0x6
09da e01a | | Load 0x0,0x1a
09db 181f | | Execute Package,Field_Execute,Field_Number 0x1f
09dc c403 | | Store 0x2,0x3
09dd 4800 |H | Short_Literal 0x0
09de e403 | | Load 0x2,0x3
09df e005 | | Load 0x0,0x5
09e0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
09e1 6814 |h | Jump_Zero 0x9f6
09e2 e5fc | | Load 0x2,-0x4
09e3 4801 |H | Short_Literal 0x1
09e4 4801 |H | Short_Literal 0x1
09e5 e00f | | Load 0x0,0xf
09e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09e7 035b | [ | Declare_Type Array,Constrained
09e8 0337 | 7 | Declare_Variable Array
09e9 e406 | | Load 0x2,0x6
09ea e00d | | Load 0x0,0xd
09eb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
09ec e00f | | Load 0x0,0xf
09ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09ee 0119 | | Execute Any,Check_In_Formal_Type
09ef 4801 |H | Short_Literal 0x1
09f0 00da | | Load_Top At_Offset_2
09f1 01d6 | | Execute Vector,Field_Write
09f2 6041 |`A | Indirect_Literal Discrete,0xa34,{0x00000000, 0x00008827}
09f3 e005 | | Load 0x0,0x5
09f4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
09f5 782b |x+ | Jump 0xa21
09f6 e5fc | | Load 0x2,-0x4
09f7 4801 |H | Short_Literal 0x1
09f8 4801 |H | Short_Literal 0x1
09f9 e00f | | Load 0x0,0xf
09fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09fb 035b | [ | Declare_Type Array,Constrained
09fc 0337 | 7 | Declare_Variable Array
09fd e406 | | Load 0x2,0x6
09fe e00d | | Load 0x0,0xd
09ff 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a00 e00f | | Load 0x0,0xf
0a01 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a02 0119 | | Execute Any,Check_In_Formal_Type
0a03 4801 |H | Short_Literal 0x1
0a04 00da | | Load_Top At_Offset_2
0a05 01d6 | | Execute Vector,Field_Write
0a06 6029 |`) | Indirect_Literal Discrete,0xa30,{0x00000000, 0x0000880d}
0a07 e005 | | Load 0x0,0x5
0a08 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a09 e403 | | Load 0x2,0x3
0a0a a5fb | | Store_Unchecked 0x2,-0x5
0a0b 7815 |x | Jump 0xa21
0a0c e5fc | | Load 0x2,-0x4
0a0d 4801 |H | Short_Literal 0x1
0a0e 4801 |H | Short_Literal 0x1
0a0f e00f | | Load 0x0,0xf
0a10 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a11 035b | [ | Declare_Type Array,Constrained
0a12 0337 | 7 | Declare_Variable Array
0a13 e406 | | Load 0x2,0x6
0a14 e00d | | Load 0x0,0xd
0a15 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0a16 e00f | | Load 0x0,0xf
0a17 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a18 0119 | | Execute Any,Check_In_Formal_Type
0a19 4801 |H | Short_Literal 0x1
0a1a 00da | | Load_Top At_Offset_2
0a1b 01d6 | | Execute Vector,Field_Write
0a1c 6013 |` | Indirect_Literal Discrete,0xa30,{0x00000000, 0x0000880d}
0a1d e005 | | Load 0x0,0x5
0a1e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a1f e403 | | Load 0x2,0x3
0a20 a5fb | | Store_Unchecked 0x2,-0x5
0a21 e409 | | Load 0x2,0x9
0a22 e007 | | Load 0x0,0x7
0a23 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a24 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0a25 c409 | | Store 0x2,0x9
0a26 00c9 | | Action Pop_Auxiliary_Loop
0a27 e409 | | Load 0x2,0x9
0a28 e007 | | Load 0x0,0x7
0a29 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0a2a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0a2b 6f60 |o` | Jump_Zero 0x98c
0a2c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0a2d 0000 0000 | | .XXX[0x3]
0a2f 0000 | |
0a30 0000 0000 | | .LITERAL {0x00000000, 0x0000880d}
0a34 0000 0000 | | .LITERAL {0x00000000, 0x00008827}
0a38 0000 0000 | | .LITERAL {0x00000000, 0x00008853}
0a3c 0000 0000 | | .BLANK 0000[0x4]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a47 | G | .CONST 0x0a47 ; Address of begin
0a41 0004 | | .CONST 0x0004 ; Address of exception handler
0a42 0003 | | .CONST 0x0003 ; Number of locals
0a43 INIT_0a40:
0a43 029f 0d6b | k| Declare_Subprogram INIT_0d68,For_Call
0a45 029f 0d8b | | Declare_Subprogram INIT_0d88,For_Call
0a47 BODY_0a40:
0a47 e5fd | | Load 0x2,-0x3
0a48 7002 |p | Jump_Nonzero 0xa4b
0a49 8402 | | Call 0x2,0x2
0a4a 7801 |x | Jump 0xa4c
0a4b 8403 | | Call 0x2,0x3
0a4c 0831 | 1 | Execute_Immediate Raise,0x31
0a4d 0000 0000 | | .XXX[0x3]
0a4f 0000 | |
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a53 | S | .CONST 0x0a53 ; Address of begin
0a51 0004 | | .CONST 0x0004 ; Address of exception handler
0a52 0001 | | .CONST 0x0001 ; Number of locals
0a53 BODY_0a50:
0a53 INIT_0a50:
0a53 4801 |H | Short_Literal 0x1
0a54 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0a56 e5ff | | Load 0x2,-0x1
0a57 e015 | | Load 0x0,0x15
0a58 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0a59 6803 |h | Jump_Zero 0xa5d
0a5a e028 | ( | Load 0x0,0x28
0a5b 180f | | Execute Package,Field_Execute,Field_Number 0xf
0a5c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a5d 00da | | Load_Top At_Offset_2
0a5e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a5f 0000 | | .XXX[0x1]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a63 | c | .CONST 0x0a63 ; Address of begin
0a61 0004 | | .CONST 0x0004 ; Address of exception handler
0a62 0001 | | .CONST 0x0001 ; Number of locals
0a63 BODY_0a60:
0a63 INIT_0a60:
0a63 4801 |H | Short_Literal 0x1
0a64 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0a66 e5ff | | Load 0x2,-0x1
0a67 e015 | | Load 0x0,0x15
0a68 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0a69 6803 |h | Jump_Zero 0xa6d
0a6a e028 | ( | Load 0x0,0x28
0a6b 180d | | Execute Package,Field_Execute,Field_Number 0xd
0a6c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a6d 00da | | Load_Top At_Offset_2
0a6e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a6f 0000 | | .XXX[0x1]
0a70 ; --------------------------------------------------------------------------------------
0a70 ; SUBPROGRAM
0a70 ; --------------------------------------------------------------------------------------
0a70 0a73 | s | .CONST 0x0a73 ; Address of begin
0a71 0004 | | .CONST 0x0004 ; Address of exception handler
0a72 0001 | | .CONST 0x0001 ; Number of locals
0a73 BODY_0a70:
0a73 INIT_0a70:
0a73 4801 |H | Short_Literal 0x1
0a74 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0a76 e5ff | | Load 0x2,-0x1
0a77 e015 | | Load 0x0,0x15
0a78 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0a79 6803 |h | Jump_Zero 0xa7d
0a7a e028 | ( | Load 0x0,0x28
0a7b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0a7c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a7d 00da | | Load_Top At_Offset_2
0a7e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a7f 0000 | | .XXX[0x1]
0a80 ; --------------------------------------------------------------------------------------
0a80 ; SUBPROGRAM
0a80 ; --------------------------------------------------------------------------------------
0a80 0a83 | | .CONST 0x0a83 ; Address of begin
0a81 0004 | | .CONST 0x0004 ; Address of exception handler
0a82 0001 | | .CONST 0x0001 ; Number of locals
0a83 BODY_0a80:
0a83 INIT_0a80:
0a83 4801 |H | Short_Literal 0x1
0a84 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0a86 e5ff | | Load 0x2,-0x1
0a87 e015 | | Load 0x0,0x15
0a88 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0a89 6803 |h | Jump_Zero 0xa8d
0a8a e028 | ( | Load 0x0,0x28
0a8b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a8c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a8d 00da | | Load_Top At_Offset_2
0a8e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a8f 0000 | | .XXX[0x1]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a93 | | .CONST 0x0a93 ; Address of begin
0a91 0004 | | .CONST 0x0004 ; Address of exception handler
0a92 0001 | | .CONST 0x0001 ; Number of locals
0a93 BODY_0a90:
0a93 INIT_0a90:
0a93 4801 |H | Short_Literal 0x1
0a94 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0a96 e5ff | | Load 0x2,-0x1
0a97 e015 | | Load 0x0,0x15
0a98 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0a99 6805 |h | Jump_Zero 0xa9f
0a9a 0092 0e2d | -| Action Push_String_Extended,0xe2d ; "$"
0a9c e014 | | Load 0x0,0x14
0a9d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0a9e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a9f 00da | | Load_Top At_Offset_2
0aa0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0aa1 0000 0000 | | .BLANK 0000[0x7]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0ab3 | | .CONST 0x0ab3 ; Address of begin
0aa9 0004 | | .CONST 0x0004 ; Address of exception handler
0aaa 0002 | | .CONST 0x0002 ; Number of locals
0aab INIT_0aa8:
0aab 00db | | Load_Top At_Offset_3
0aac e5fe | | Load 0x2,-0x2
0aad e5ff | | Load 0x2,-0x1
0aae e00d | | Load 0x0,0xd
0aaf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0ab0 e5ff | | Load 0x2,-0x1
0ab1 e01e | | Load 0x0,0x1e
0ab2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0ab3 BODY_0aa8:
0ab3 4800 |H | Short_Literal 0x0
0ab4 00d9 | | Load_Top At_Offset_1
0ab5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0ab6 e005 | | Load 0x0,0x5
0ab7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0ab8 6803 |h | Jump_Zero 0xabc
0ab9 00d8 | | Load_Top At_Offset_0
0aba 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0abb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0abc e5fe | | Load 0x2,-0x2
0abd 4801 |H | Short_Literal 0x1
0abe 4802 |H | Short_Literal 0x2
0abf e00f | | Load 0x0,0xf
0ac0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ac1 035b | [ | Declare_Type Array,Constrained
0ac2 0337 | 7 | Declare_Variable Array
0ac3 e5ff | | Load 0x2,-0x1
0ac4 e00f | | Load 0x0,0xf
0ac5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0ac6 e00f | | Load 0x0,0xf
0ac7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ac8 0119 | | Execute Any,Check_In_Formal_Type
0ac9 4801 |H | Short_Literal 0x1
0aca 00da | | Load_Top At_Offset_2
0acb 01d6 | | Execute Vector,Field_Write
0acc 00da | | Load_Top At_Offset_2
0acd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0ace e005 | | Load 0x0,0x5
0acf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0ad0 e00f | | Load 0x0,0xf
0ad1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ad2 0119 | | Execute Any,Check_In_Formal_Type
0ad3 4802 |H | Short_Literal 0x2
0ad4 00da | | Load_Top At_Offset_2
0ad5 01d6 | | Execute Vector,Field_Write
0ad6 6005 |` | Indirect_Literal Discrete,0xadc,{0x00000000, 0x00008809}
0ad7 e005 | | Load 0x0,0x5
0ad8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ad9 00ea | | Load_Encached Null_String_Cache
0ada 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0adb 0000 | | .XXX[0x1]
0adc 0000 0000 | | .LITERAL {0x00000000, 0x00008809}
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0aeb | | .CONST 0x0aeb ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0002 | | .CONST 0x0002 ; Number of locals
0ae3 INIT_0ae0:
0ae3 00db | | Load_Top At_Offset_3
0ae4 e5fe | | Load 0x2,-0x2
0ae5 e5ff | | Load 0x2,-0x1
0ae6 e00d | | Load 0x0,0xd
0ae7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0ae8 e5ff | | Load 0x2,-0x1
0ae9 e01e | | Load 0x0,0x1e
0aea 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0aeb BODY_0ae0:
0aeb 4800 |H | Short_Literal 0x0
0aec 00d9 | | Load_Top At_Offset_1
0aed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0aee e005 | | Load 0x0,0x5
0aef 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0af0 6803 |h | Jump_Zero 0xaf4
0af1 00d8 | | Load_Top At_Offset_0
0af2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0af3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0af4 e5fe | | Load 0x2,-0x2
0af5 4801 |H | Short_Literal 0x1
0af6 4802 |H | Short_Literal 0x2
0af7 e00f | | Load 0x0,0xf
0af8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0af9 035b | [ | Declare_Type Array,Constrained
0afa 0337 | 7 | Declare_Variable Array
0afb e5ff | | Load 0x2,-0x1
0afc e00f | | Load 0x0,0xf
0afd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0afe e00f | | Load 0x0,0xf
0aff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b00 0119 | | Execute Any,Check_In_Formal_Type
0b01 4801 |H | Short_Literal 0x1
0b02 00da | | Load_Top At_Offset_2
0b03 01d6 | | Execute Vector,Field_Write
0b04 00da | | Load_Top At_Offset_2
0b05 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b06 e005 | | Load 0x0,0x5
0b07 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0b08 e00f | | Load 0x0,0xf
0b09 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b0a 0119 | | Execute Any,Check_In_Formal_Type
0b0b 4802 |H | Short_Literal 0x2
0b0c 00da | | Load_Top At_Offset_2
0b0d 01d6 | | Execute Vector,Field_Write
0b0e 6005 |` | Indirect_Literal Discrete,0xb14,{0x00000000, 0x00008807}
0b0f e005 | | Load 0x0,0x5
0b10 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b11 00ea | | Load_Encached Null_String_Cache
0b12 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b13 0000 | | .XXX[0x1]
0b14 0000 0000 | | .LITERAL {0x00000000, 0x00008807}
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b23 | # | .CONST 0x0b23 ; Address of begin
0b19 0004 | | .CONST 0x0004 ; Address of exception handler
0b1a 0002 | | .CONST 0x0002 ; Number of locals
0b1b INIT_0b18:
0b1b 00db | | Load_Top At_Offset_3
0b1c e5fe | | Load 0x2,-0x2
0b1d e5ff | | Load 0x2,-0x1
0b1e e00d | | Load 0x0,0xd
0b1f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0b20 e5ff | | Load 0x2,-0x1
0b21 e01e | | Load 0x0,0x1e
0b22 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b23 BODY_0b18:
0b23 4800 |H | Short_Literal 0x0
0b24 00d9 | | Load_Top At_Offset_1
0b25 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b26 e005 | | Load 0x0,0x5
0b27 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0b28 6803 |h | Jump_Zero 0xb2c
0b29 00d8 | | Load_Top At_Offset_0
0b2a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b2b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b2c e5fe | | Load 0x2,-0x2
0b2d 4801 |H | Short_Literal 0x1
0b2e 4802 |H | Short_Literal 0x2
0b2f e00f | | Load 0x0,0xf
0b30 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b31 035b | [ | Declare_Type Array,Constrained
0b32 0337 | 7 | Declare_Variable Array
0b33 e5ff | | Load 0x2,-0x1
0b34 e00f | | Load 0x0,0xf
0b35 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b36 e00f | | Load 0x0,0xf
0b37 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b38 0119 | | Execute Any,Check_In_Formal_Type
0b39 4801 |H | Short_Literal 0x1
0b3a 00da | | Load_Top At_Offset_2
0b3b 01d6 | | Execute Vector,Field_Write
0b3c 00da | | Load_Top At_Offset_2
0b3d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b3e e005 | | Load 0x0,0x5
0b3f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0b40 e00f | | Load 0x0,0xf
0b41 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b42 0119 | | Execute Any,Check_In_Formal_Type
0b43 4802 |H | Short_Literal 0x2
0b44 00da | | Load_Top At_Offset_2
0b45 01d6 | | Execute Vector,Field_Write
0b46 6005 |` | Indirect_Literal Discrete,0xb4c,{0x00000000, 0x00008808}
0b47 e005 | | Load 0x0,0x5
0b48 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b49 00ea | | Load_Encached Null_String_Cache
0b4a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b4b 0000 | | .XXX[0x1]
0b4c 0000 0000 | | .LITERAL {0x00000000, 0x00008808}
0b50 ; --------------------------------------------------------------------------------------
0b50 ; SUBPROGRAM
0b50 ; --------------------------------------------------------------------------------------
0b50 0b53 | S | .CONST 0x0b53 ; Address of begin
0b51 0004 | | .CONST 0x0004 ; Address of exception handler
0b52 0001 | | .CONST 0x0001 ; Number of locals
0b53 BODY_0b50:
0b53 INIT_0b50:
0b53 e404 | | Load 0x2,0x4
0b54 e00c | | Load 0x0,0xc
0b55 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b56 e405 | | Load 0x2,0x5
0b57 e007 | | Load 0x0,0x7
0b58 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0b59 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b5a 6820 |h | Jump_Zero 0xb7b
0b5b e404 | | Load 0x2,0x4
0b5c 4801 |H | Short_Literal 0x1
0b5d 4802 |H | Short_Literal 0x2
0b5e e00f | | Load 0x0,0xf
0b5f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b60 035b | [ | Declare_Type Array,Constrained
0b61 0337 | 7 | Declare_Variable Array
0b62 e5ff | | Load 0x2,-0x1
0b63 e00f | | Load 0x0,0xf
0b64 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b65 e00f | | Load 0x0,0xf
0b66 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b67 0119 | | Execute Any,Check_In_Formal_Type
0b68 4801 |H | Short_Literal 0x1
0b69 00da | | Load_Top At_Offset_2
0b6a 01d6 | | Execute Vector,Field_Write
0b6b 0092 0e2e | .| Action Push_String_Extended,0xe2e ; "Expression does not name a linkable object"
0b6d e00f | | Load 0x0,0xf
0b6e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b6f e00f | | Load 0x0,0xf
0b70 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b71 0119 | | Execute Any,Check_In_Formal_Type
0b72 4802 |H | Short_Literal 0x2
0b73 00da | | Load_Top At_Offset_2
0b74 01d6 | | Execute Vector,Field_Write
0b75 602e |`. | Indirect_Literal Discrete,0xba4,{0x00000000, 0x00008814}
0b76 e005 | | Load 0x0,0x5
0b77 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0b78 e005 | | Load 0x0,0x5
0b79 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0b7a 0257 | W | Execute Discrete,Raise
0b7b e5fd | | Load 0x2,-0x3
0b7c 01db | | Execute Vector,Length
0b7d 6825 |h% | Jump_Zero 0xba3
0b7e e404 | | Load 0x2,0x4
0b7f 4800 |H | Short_Literal 0x0
0b80 e5ff | | Load 0x2,-0x1
0b81 e00d | | Load 0x0,0xd
0b82 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0b83 e007 | | Load 0x0,0x7
0b84 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0b85 681d |h | Jump_Zero 0xba3
0b86 e404 | | Load 0x2,0x4
0b87 4801 |H | Short_Literal 0x1
0b88 4802 |H | Short_Literal 0x2
0b89 e00f | | Load 0x0,0xf
0b8a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b8b 035b | [ | Declare_Type Array,Constrained
0b8c 0337 | 7 | Declare_Variable Array
0b8d e5ff | | Load 0x2,-0x1
0b8e e00f | | Load 0x0,0xf
0b8f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b90 e00f | | Load 0x0,0xf
0b91 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b92 0119 | | Execute Any,Check_In_Formal_Type
0b93 4801 |H | Short_Literal 0x1
0b94 00da | | Load_Top At_Offset_2
0b95 01d6 | | Execute Vector,Field_Write
0b96 0092 0e2f | /| Action Push_String_Extended,0xe2f ; "Expression names more than one object, but an executable name was specified"
0b98 e00f | | Load 0x0,0xf
0b99 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b9a e00f | | Load 0x0,0xf
0b9b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b9c 0119 | | Execute Any,Check_In_Formal_Type
0b9d 4802 |H | Short_Literal 0x2
0b9e 00da | | Load_Top At_Offset_2
0b9f 01d6 | | Execute Vector,Field_Write
0ba0 6003 |` | Indirect_Literal Discrete,0xba4,{0x00000000, 0x00008814}
0ba1 e005 | | Load 0x0,0x5
0ba2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ba3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ba4 0000 0000 | | .LITERAL {0x00000000, 0x00008814}
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bad | | .CONST 0x0bad ; Address of begin
0ba9 0bf4 | | .CONST 0x0bf4 ; Address of exception handler
0baa 0002 | | .CONST 0x0002 ; Number of locals
0bab INIT_0ba8:
0bab 029f 0da3 | | Declare_Subprogram INIT_0da0,For_Call
0bad BODY_0ba8:
0bad e404 | | Load 0x2,0x4
0bae 4801 |H | Short_Literal 0x1
0baf e40a | | Load 0x2,0xa
0bb0 e00d | | Load 0x0,0xd
0bb1 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0bb2 c407 | | Store 0x2,0x7
0bb3 e404 | | Load 0x2,0x4
0bb4 4801 |H | Short_Literal 0x1
0bb5 e407 | | Load 0x2,0x7
0bb6 e00d | | Load 0x0,0xd
0bb7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0bb8 c409 | | Store 0x2,0x9
0bb9 e404 | | Load 0x2,0x4
0bba e409 | | Load 0x2,0x9
0bbb e00c | | Load 0x0,0xc
0bbc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0bbd e407 | | Load 0x2,0x7
0bbe e00d | | Load 0x0,0xd
0bbf 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0bc0 7031 |p1 | Jump_Nonzero 0xbf2
0bc1 e005 | | Load 0x0,0x5
0bc2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0bc3 00e2 | | Load_Encached Integer_Cache
0bc4 00e1 | | Load_Encached Boolean_Cache
0bc5 e408 | | Load 0x2,0x8
0bc6 0120 | | Execute Any,Is_Value
0bc7 6803 |h | Jump_Zero 0xbcb
0bc8 e007 | | Load 0x0,0x7
0bc9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bca 7801 |x | Jump 0xbcc
0bcb e408 | | Load 0x2,0x8
0bcc e404 | | Load 0x2,0x4
0bcd e407 | | Load 0x2,0x7
0bce e013 | | Load 0x0,0x13
0bcf 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0bd0 c408 | | Store 0x2,0x8
0bd1 c405 | | Store 0x2,0x5
0bd2 c406 | | Store 0x2,0x6
0bd3 c403 | | Store 0x2,0x3
0bd4 4800 |H | Short_Literal 0x0
0bd5 e403 | | Load 0x2,0x3
0bd6 e005 | | Load 0x0,0x5
0bd7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0bd8 0f00 | | Execute_Immediate Equal,0x0
0bd9 e405 | | Load 0x2,0x5
0bda 0f00 | | Execute_Immediate Equal,0x0
0bdb 0278 | x | Execute Discrete,Or
0bdc 6815 |h | Jump_Zero 0xbf2
0bdd e404 | | Load 0x2,0x4
0bde 4801 |H | Short_Literal 0x1
0bdf 4801 |H | Short_Literal 0x1
0be0 e00f | | Load 0x0,0xf
0be1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0be2 035b | [ | Declare_Type Array,Constrained
0be3 0337 | 7 | Declare_Variable Array
0be4 e407 | | Load 0x2,0x7
0be5 e00d | | Load 0x0,0xd
0be6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0be7 e00f | | Load 0x0,0xf
0be8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0be9 0119 | | Execute Any,Check_In_Formal_Type
0bea 4801 |H | Short_Literal 0x1
0beb 00da | | Load_Top At_Offset_2
0bec 01d6 | | Execute Vector,Field_Write
0bed 600e |` | Indirect_Literal Discrete,0xbfc,{0x00000000, 0x0000889d}
0bee e005 | | Load 0x0,0x5
0bef 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0bf0 00cc | | Action Pop_Block
0bf1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bf2 8602 | | Call 0x3,0x2
0bf3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bf4 TRAP_0ba8:
0bf4 e012 | | Load 0x0,0x12
0bf5 010f | | Execute Exception,Equal
0bf6 6801 |h | Jump_Zero 0xbf8
0bf7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bf8 0100 | | Execute Exception,Raise
0bf9 0000 0000 | | .XXX[0x3]
0bfb 0000 | |
0bfc 0000 0000 | | .LITERAL {0x00000000, 0x0000889d}
0c00 ; --------------------------------------------------------------------------------------
0c00 ; SUBPROGRAM
0c00 ; --------------------------------------------------------------------------------------
0c00 0c06 | | .CONST 0x0c06 ; Address of begin
0c01 0004 | | .CONST 0x0004 ; Address of exception handler
0c02 0002 | | .CONST 0x0002 ; Number of locals
0c03 INIT_0c00:
0c03 e406 | | Load 0x2,0x6
0c04 e00d | | Load 0x0,0xd
0c05 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c06 BODY_0c00:
0c06 e404 | | Load 0x2,0x4
0c07 4801 |H | Short_Literal 0x1
0c08 4801 |H | Short_Literal 0x1
0c09 e00f | | Load 0x0,0xf
0c0a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c0b 035b | [ | Declare_Type Array,Constrained
0c0c 0337 | 7 | Declare_Variable Array
0c0d e406 | | Load 0x2,0x6
0c0e e00d | | Load 0x0,0xd
0c0f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0c10 e00f | | Load 0x0,0xf
0c11 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c12 0119 | | Execute Any,Check_In_Formal_Type
0c13 4801 |H | Short_Literal 0x1
0c14 00da | | Load_Top At_Offset_2
0c15 01d6 | | Execute Vector,Field_Write
0c16 601d |` | Indirect_Literal Discrete,0xc34,{0x00000000, 0x0000886c}
0c17 e005 | | Load 0x0,0x5
0c18 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0c19 e5fe | | Load 0x2,-0x2
0c1a 6809 |h | Jump_Zero 0xc24
0c1b 4801 |H | Short_Literal 0x1
0c1c 4801 |H | Short_Literal 0x1
0c1d 4800 |H | Short_Literal 0x0
0c1e 4801 |H | Short_Literal 0x1
0c1f e5fc | | Load 0x2,-0x4
0c20 e00d | | Load 0x0,0xd
0c21 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0c22 00d9 | | Load_Top At_Offset_1
0c23 8219 | | Call 0x1,0x19
0c24 e5fd | | Load 0x2,-0x3
0c25 680a |h | Jump_Zero 0xc30
0c26 4801 |H | Short_Literal 0x1
0c27 4801 |H | Short_Literal 0x1
0c28 4800 |H | Short_Literal 0x0
0c29 4801 |H | Short_Literal 0x1
0c2a e5fc | | Load 0x2,-0x4
0c2b e00d | | Load 0x0,0xd
0c2c 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0c2d 4800 |H | Short_Literal 0x0
0c2e 00da | | Load_Top At_Offset_2
0c2f 8213 | | Call 0x1,0x13
0c30 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c31 0000 0000 | | .XXX[0x3]
0c33 0000 | |
0c34 0000 0000 | | .LITERAL {0x00000000, 0x0000886c}
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c5e | ^ | .CONST 0x0c5e ; Address of begin
0c39 0c8a | | .CONST 0x0c8a ; Address of exception handler
0c3a 0006 | | .CONST 0x0006 ; Number of locals
0c3b INIT_0c38:
0c3b e007 | | Load 0x0,0x7
0c3c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c3d 02c7 | | Declare_Variable Any
0c3e e404 | | Load 0x2,0x4
0c3f 4801 |H | Short_Literal 0x1
0c40 e404 | | Load 0x2,0x4
0c41 4801 |H | Short_Literal 0x1
0c42 e405 | | Load 0x2,0x5
0c43 e00d | | Load 0x0,0xd
0c44 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0c45 e00d | | Load 0x0,0xd
0c46 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0c47 a602 | | Store_Unchecked 0x3,0x2
0c48 00d8 | | Load_Top At_Offset_0
0c49 e00d | | Load 0x0,0xd
0c4a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c4b e007 | | Load 0x0,0x7
0c4c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0c4d 0322 | " | Declare_Variable Record
0c4e e404 | | Load 0x2,0x4
0c4f 00db | | Load_Top At_Offset_3
0c50 e00d | | Load 0x0,0xd
0c51 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0c52 00d9 | | Load_Top At_Offset_1
0c53 017d | } | Execute Record,Structure_Write
0c54 e404 | | Load 0x2,0x4
0c55 00d9 | | Load_Top At_Offset_1
0c56 e602 | | Load 0x3,0x2
0c57 e01e | | Load 0x0,0x1e
0c58 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0c59 e404 | | Load 0x2,0x4
0c5a 00da | | Load_Top At_Offset_2
0c5b e602 | | Load 0x3,0x2
0c5c e01e | | Load 0x0,0x1e
0c5d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0c5e BODY_0c38:
0c5e e005 | | Load 0x0,0x5
0c5f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c60 e404 | | Load 0x2,0x4
0c61 4801 |H | Short_Literal 0x1
0c62 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0c64 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0c66 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0c68 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0c6a 0092 0e2c | ,| Action Push_String_Extended,0xe2c ; "<DEFAULT>"
0c6c e5fe | | Load 0x2,-0x2
0c6d e604 | | Load 0x3,0x4
0c6e 00ea | | Load_Encached Null_String_Cache
0c6f 00ea | | Load_Encached Null_String_Cache
0c70 4801 |H | Short_Literal 0x1
0c71 e606 | | Load 0x3,0x6
0c72 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c73 e606 | | Load 0x3,0x6
0c74 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c75 01cf | | Execute Vector,Slice_Read
0c76 4801 |H | Short_Literal 0x1
0c77 e605 | | Load 0x3,0x5
0c78 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c79 e605 | | Load 0x3,0x5
0c7a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c7b 01cf | | Execute Vector,Slice_Read
0c7c e602 | | Load 0x3,0x2
0c7d e01e | | Load 0x0,0x1e
0c7e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0c7f c403 | | Store 0x2,0x3
0c80 4800 |H | Short_Literal 0x0
0c81 e403 | | Load 0x2,0x3
0c82 e005 | | Load 0x0,0x5
0c83 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0c84 7004 |p | Jump_Nonzero 0xc89
0c85 e404 | | Load 0x2,0x4
0c86 e403 | | Load 0x2,0x3
0c87 e005 | | Load 0x0,0x5
0c88 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0c89 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c8a TRAP_0c38:
0c8a e005 | | Load 0x0,0x5
0c8b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0c8c 010f | | Execute Exception,Equal
0c8d 6801 |h | Jump_Zero 0xc8f
0c8e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c8f e006 | | Load 0x0,0x6
0c90 180e | | Execute Package,Field_Execute,Field_Number 0xe
0c91 4801 |H | Short_Literal 0x1
0c92 4801 |H | Short_Literal 0x1
0c93 e00f | | Load 0x0,0xf
0c94 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c95 035b | [ | Declare_Type Array,Constrained
0c96 0337 | 7 | Declare_Variable Array
0c97 0092 0e30 | 0| Action Push_String_Extended,0xe30 ; "Unexpected exception caught while refreshing "
0c99 e602 | | Load 0x3,0x2
0c9a e00d | | Load 0x0,0xd
0c9b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0c9c 01cc | | Execute Vector,Catenate
0c9d e00f | | Load 0x0,0xf
0c9e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c9f e00f | | Load 0x0,0xf
0ca0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ca1 0119 | | Execute Any,Check_In_Formal_Type
0ca2 4801 |H | Short_Literal 0x1
0ca3 00da | | Load_Top At_Offset_2
0ca4 01d6 | | Execute Vector,Field_Write
0ca5 6006 |` | Indirect_Literal Discrete,0xcac,{0x00000000, 0x00008859}
0ca6 e005 | | Load 0x0,0x5
0ca7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ca8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ca9 0000 0000 | | .XXX[0x3]
0cab 0000 | |
0cac 0000 0000 | | .LITERAL {0x00000000, 0x00008859}
0cb0 ; --------------------------------------------------------------------------------------
0cb0 ; SUBPROGRAM
0cb0 ; --------------------------------------------------------------------------------------
0cb0 0cc0 | | .CONST 0x0cc0 ; Address of begin
0cb1 0d1a | | .CONST 0x0d1a ; Address of exception handler
0cb2 0002 | | .CONST 0x0002 ; Number of locals
0cb3 INIT_0cb0:
0cb3 e007 | | Load 0x0,0x7
0cb4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cb5 02c7 | | Declare_Variable Any
0cb6 e404 | | Load 0x2,0x4
0cb7 4801 |H | Short_Literal 0x1
0cb8 e404 | | Load 0x2,0x4
0cb9 4801 |H | Short_Literal 0x1
0cba e405 | | Load 0x2,0x5
0cbb e00d | | Load 0x0,0xd
0cbc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0cbd e00d | | Load 0x0,0xd
0cbe 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0cbf a602 | | Store_Unchecked 0x3,0x2
0cc0 BODY_0cb0:
0cc0 e404 | | Load 0x2,0x4
0cc1 00d9 | | Load_Top At_Offset_1
0cc2 e00c | | Load 0x0,0xc
0cc3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0cc4 4801 |H | Short_Literal 0x1
0cc5 e016 | | Load 0x0,0x16
0cc6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0cc7 e404 | | Load 0x2,0x4
0cc8 4801 |H | Short_Literal 0x1
0cc9 4801 |H | Short_Literal 0x1
0cca e00f | | Load 0x0,0xf
0ccb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ccc 035b | [ | Declare_Type Array,Constrained
0ccd 0337 | 7 | Declare_Variable Array
0cce 00da | | Load_Top At_Offset_2
0ccf e00f | | Load 0x0,0xf
0cd0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0cd1 e00f | | Load 0x0,0xf
0cd2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cd3 0119 | | Execute Any,Check_In_Formal_Type
0cd4 4801 |H | Short_Literal 0x1
0cd5 00da | | Load_Top At_Offset_2
0cd6 01d6 | | Execute Vector,Field_Write
0cd7 6054 |`T | Indirect_Literal Discrete,0xd2c,{0x00000000, 0x0000888e}
0cd8 e005 | | Load 0x0,0x5
0cd9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cda e404 | | Load 0x2,0x4
0cdb 4801 |H | Short_Literal 0x1
0cdc 4801 |H | Short_Literal 0x1
0cdd e00f | | Load 0x0,0xf
0cde 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cdf 035b | [ | Declare_Type Array,Constrained
0ce0 0337 | 7 | Declare_Variable Array
0ce1 e404 | | Load 0x2,0x4
0ce2 00db | | Load_Top At_Offset_3
0ce3 8237 | 7 | Call 0x1,0x37
0ce4 e00f | | Load 0x0,0xf
0ce5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ce6 e00f | | Load 0x0,0xf
0ce7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ce8 0119 | | Execute Any,Check_In_Formal_Type
0ce9 4801 |H | Short_Literal 0x1
0cea 00da | | Load_Top At_Offset_2
0ceb 01d6 | | Execute Vector,Field_Write
0cec 603b |`; | Indirect_Literal Discrete,0xd28,{0x00000000, 0x00008843}
0ced e005 | | Load 0x0,0x5
0cee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0cef e404 | | Load 0x2,0x4
0cf0 4801 |H | Short_Literal 0x1
0cf1 4801 |H | Short_Literal 0x1
0cf2 e00f | | Load 0x0,0xf
0cf3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cf4 035b | [ | Declare_Type Array,Constrained
0cf5 0337 | 7 | Declare_Variable Array
0cf6 e404 | | Load 0x2,0x4
0cf7 00db | | Load_Top At_Offset_3
0cf8 8236 | 6 | Call 0x1,0x36
0cf9 e00f | | Load 0x0,0xf
0cfa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0cfb e00f | | Load 0x0,0xf
0cfc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cfd 0119 | | Execute Any,Check_In_Formal_Type
0cfe 4801 |H | Short_Literal 0x1
0cff 00da | | Load_Top At_Offset_2
0d00 01d6 | | Execute Vector,Field_Write
0d01 6022 |`" | Indirect_Literal Discrete,0xd24,{0x00000000, 0x00008842}
0d02 e005 | | Load 0x0,0x5
0d03 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d04 e404 | | Load 0x2,0x4
0d05 4801 |H | Short_Literal 0x1
0d06 4801 |H | Short_Literal 0x1
0d07 e00f | | Load 0x0,0xf
0d08 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d09 035b | [ | Declare_Type Array,Constrained
0d0a 0337 | 7 | Declare_Variable Array
0d0b e404 | | Load 0x2,0x4
0d0c 00db | | Load_Top At_Offset_3
0d0d 8235 | 5 | Call 0x1,0x35
0d0e e00f | | Load 0x0,0xf
0d0f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d10 e00f | | Load 0x0,0xf
0d11 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d12 0119 | | Execute Any,Check_In_Formal_Type
0d13 4801 |H | Short_Literal 0x1
0d14 00da | | Load_Top At_Offset_2
0d15 01d6 | | Execute Vector,Field_Write
0d16 6009 |` | Indirect_Literal Discrete,0xd20,{0x00000000, 0x00008844}
0d17 e005 | | Load 0x0,0x5
0d18 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0d19 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d1a TRAP_0cb0:
0d1a e005 | | Load 0x0,0x5
0d1b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0d1c 010f | | Execute Exception,Equal
0d1d 6801 |h | Jump_Zero 0xd1f
0d1e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d1f 0100 | | Execute Exception,Raise
0d20 0000 0000 | | .LITERAL {0x00000000, 0x00008844}
0d24 0000 0000 | | .LITERAL {0x00000000, 0x00008842}
0d28 0000 0000 | | .LITERAL {0x00000000, 0x00008843}
0d2c 0000 0000 | | .LITERAL {0x00000000, 0x0000888e}
0d30 ; --------------------------------------------------------------------------------------
0d30 ; SUBPROGRAM
0d30 ; --------------------------------------------------------------------------------------
0d30 0d33 | 3 | .CONST 0x0d33 ; Address of begin
0d31 0004 | | .CONST 0x0004 ; Address of exception handler
0d32 0001 | | .CONST 0x0001 ; Number of locals
0d33 BODY_0d30:
0d33 INIT_0d30:
0d33 00da | | Load_Top At_Offset_2
0d34 e7fe | | Load 0x3,-0x2
0d35 e402 | | Load 0x2,0x2
0d36 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0d37 6803 |h | Jump_Zero 0xd3b
0d38 4801 |H | Short_Literal 0x1
0d39 a7fd | | Store_Unchecked 0x3,-0x3
0d3a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d3b 4800 |H | Short_Literal 0x0
0d3c a7fd | | Store_Unchecked 0x3,-0x3
0d3d 00db | | Load_Top At_Offset_3
0d3e 00db | | Load_Top At_Offset_3
0d3f e402 | | Load 0x2,0x2
0d40 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d41 c7fe | | Store 0x3,-0x2
0d42 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d43 0000 0000 | | .BLANK 0000[0x5]
0d48 ; --------------------------------------------------------------------------------------
0d48 ; SUBPROGRAM
0d48 ; --------------------------------------------------------------------------------------
0d48 0d4b | K | .CONST 0x0d4b ; Address of begin
0d49 0004 | | .CONST 0x0004 ; Address of exception handler
0d4a 0001 | | .CONST 0x0001 ; Number of locals
0d4b BODY_0d48:
0d4b INIT_0d48:
0d4b 00da | | Load_Top At_Offset_2
0d4c e007 | | Load 0x0,0x7
0d4d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0d4e 7016 |p | Jump_Nonzero 0xd65
0d4f 00da | | Load_Top At_Offset_2
0d50 e00d | | Load 0x0,0xd
0d51 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0d52 6810 |h | Jump_Zero 0xd63
0d53 00da | | Load_Top At_Offset_2
0d54 e00d | | Load 0x0,0xd
0d55 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0d56 700a |p | Jump_Nonzero 0xd61
0d57 00da | | Load_Top At_Offset_2
0d58 e00d | | Load 0x0,0xd
0d59 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0d5a 7004 |p | Jump_Nonzero 0xd5f
0d5b 00da | | Load_Top At_Offset_2
0d5c e00d | | Load 0x0,0xd
0d5d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0d5e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d5f 4801 |H | Short_Literal 0x1
0d60 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d61 4800 |H | Short_Literal 0x0
0d62 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d63 4800 |H | Short_Literal 0x0
0d64 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d65 4800 |H | Short_Literal 0x0
0d66 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d67 0000 | | .XXX[0x1]
0d68 ; --------------------------------------------------------------------------------------
0d68 ; SUBPROGRAM
0d68 ; --------------------------------------------------------------------------------------
0d68 0d74 | t | .CONST 0x0d74 ; Address of begin
0d69 0004 | | .CONST 0x0004 ; Address of exception handler
0d6a 0002 | | .CONST 0x0002 ; Number of locals
0d6b INIT_0d68:
0d6b e5fc | | Load 0x2,-0x4
0d6c 00d8 | | Load_Top At_Offset_0
0d6d e5ff | | Load 0x2,-0x1
0d6e e00d | | Load 0x0,0xd
0d6f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0d70 e5fe | | Load 0x2,-0x2
0d71 e5ff | | Load 0x2,-0x1
0d72 e013 | | Load 0x0,0x13
0d73 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0d74 BODY_0d68:
0d74 4800 |H | Short_Literal 0x0
0d75 00d9 | | Load_Top At_Offset_1
0d76 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0d77 e005 | | Load 0x0,0x5
0d78 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0d79 6804 |h | Jump_Zero 0xd7e
0d7a 00d8 | | Load_Top At_Offset_0
0d7b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0d7c 00cb | | Action Pop_Block_With_Result
0d7d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0d7e e005 | | Load 0x0,0x5
0d7f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0d80 0257 | W | Execute Discrete,Raise
0d81 0000 0000 | | .BLANK 0000[0x7]
0d88 ; --------------------------------------------------------------------------------------
0d88 ; SUBPROGRAM
0d88 ; --------------------------------------------------------------------------------------
0d88 0d8f | | .CONST 0x0d8f ; Address of begin
0d89 0004 | | .CONST 0x0004 ; Address of exception handler
0d8a 0002 | | .CONST 0x0002 ; Number of locals
0d8b INIT_0d88:
0d8b e5fc | | Load 0x2,-0x4
0d8c e5fe | | Load 0x2,-0x2
0d8d e013 | | Load 0x0,0x13
0d8e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
0d8f BODY_0d88:
0d8f 4800 |H | Short_Literal 0x0
0d90 00d9 | | Load_Top At_Offset_1
0d91 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0d92 e005 | | Load 0x0,0x5
0d93 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0d94 6804 |h | Jump_Zero 0xd99
0d95 00d8 | | Load_Top At_Offset_0
0d96 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0d97 00cb | | Action Pop_Block_With_Result
0d98 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0d99 e005 | | Load 0x0,0x5
0d9a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0d9b 0257 | W | Execute Discrete,Raise
0d9c 0000 0000 | | .BLANK 0000[0x4]
0da0 ; --------------------------------------------------------------------------------------
0da0 ; SUBPROGRAM
0da0 ; --------------------------------------------------------------------------------------
0da0 0da8 | | .CONST 0x0da8 ; Address of begin
0da1 0004 | | .CONST 0x0004 ; Address of exception handler
0da2 0002 | | .CONST 0x0002 ; Number of locals
0da3 INIT_0da0:
0da3 e404 | | Load 0x2,0x4
0da4 e405 | | Load 0x2,0x5
0da5 e407 | | Load 0x2,0x7
0da6 e409 | | Load 0x2,0x9
0da7 822f | / | Call 0x1,0x2f
0da8 BODY_0da0:
0da8 4801 |H | Short_Literal 0x1
0da9 e229 | ) | Load 0x1,0x29
0daa 00da | | Load_Top At_Offset_2
0dab e015 | | Load 0x0,0x15
0dac 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0dad 7045 |pE | Jump_Nonzero 0xdf3
0dae e405 | | Load 0x2,0x5
0daf 6827 |h' | Jump_Zero 0xdd7
0db0 e404 | | Load 0x2,0x4
0db1 4801 |H | Short_Literal 0x1
0db2 4803 |H | Short_Literal 0x3
0db3 e00f | | Load 0x0,0xf
0db4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0db5 035b | [ | Declare_Type Array,Constrained
0db6 0337 | 7 | Declare_Variable Array
0db7 e407 | | Load 0x2,0x7
0db8 e00d | | Load 0x0,0xd
0db9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0dba e00f | | Load 0x0,0xf
0dbb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dbc 0119 | | Execute Any,Check_In_Formal_Type
0dbd 4801 |H | Short_Literal 0x1
0dbe 00da | | Load_Top At_Offset_2
0dbf 01d6 | | Execute Vector,Field_Write
0dc0 00da | | Load_Top At_Offset_2
0dc1 e00f | | Load 0x0,0xf
0dc2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dc3 e00f | | Load 0x0,0xf
0dc4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dc5 0119 | | Execute Any,Check_In_Formal_Type
0dc6 4802 |H | Short_Literal 0x2
0dc7 00da | | Load_Top At_Offset_2
0dc8 01d6 | | Execute Vector,Field_Write
0dc9 0092 0e31 | 1| Action Push_String_Extended,0xe31 ; "secondary "
0dcb e00f | | Load 0x0,0xf
0dcc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dcd e00f | | Load 0x0,0xf
0dce 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dcf 0119 | | Execute Any,Check_In_Formal_Type
0dd0 4803 |H | Short_Literal 0x3
0dd1 00da | | Load_Top At_Offset_2
0dd2 01d6 | | Execute Vector,Field_Write
0dd3 6020 |` | Indirect_Literal Discrete,0xdf4,{0x00000000, 0x00008845}
0dd4 e005 | | Load 0x0,0x5
0dd5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0dd6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0dd7 e404 | | Load 0x2,0x4
0dd8 4801 |H | Short_Literal 0x1
0dd9 4802 |H | Short_Literal 0x2
0dda e00f | | Load 0x0,0xf
0ddb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ddc 035b | [ | Declare_Type Array,Constrained
0ddd 0337 | 7 | Declare_Variable Array
0dde e407 | | Load 0x2,0x7
0ddf e00d | | Load 0x0,0xd
0de0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0de1 e00f | | Load 0x0,0xf
0de2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0de3 0119 | | Execute Any,Check_In_Formal_Type
0de4 4801 |H | Short_Literal 0x1
0de5 00da | | Load_Top At_Offset_2
0de6 01d6 | | Execute Vector,Field_Write
0de7 00da | | Load_Top At_Offset_2
0de8 e00f | | Load 0x0,0xf
0de9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dea e00f | | Load 0x0,0xf
0deb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dec 0119 | | Execute Any,Check_In_Formal_Type
0ded 4802 |H | Short_Literal 0x2
0dee 00da | | Load_Top At_Offset_2
0def 01d6 | | Execute Vector,Field_Write
0df0 6003 |` | Indirect_Literal Discrete,0xdf4,{0x00000000, 0x00008845}
0df1 e005 | | Load 0x0,0x5
0df2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0df3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0df4 0000 0000 | | .LITERAL {0x00000000, 0x00008845}
0df8 ; --------------------------------------------------------------------------------------
0df8 ; STRING TABLE
0df8 ; --------------------------------------------------------------------------------------
0df8 0076 | v | .STRTAB 0x0076->0x0e33 ; "Rcf."
0df9 0078 | x | .STRTAB 0x0078->0x0e35 ; "<error>"
0dfa 007d | } | .STRTAB 0x007d->0x0e38 ; "Create_Secondary"
0dfb 008b | | .STRTAB 0x008b->0x0e40 ; "Primary_Unit"
0dfc 0095 | | .STRTAB 0x0095->0x0e46 ; "command"
0dfd 009a | | .STRTAB 0x009a->0x0e4a ; "secondary_text"
0dfe 00a6 | | .STRTAB 0x00a6->0x0e51 ; "Remote_Name"
0dff 00af | | .STRTAB 0x00af->0x0e56 ; "Process_primary => "
0e00 00c0 | | .STRTAB 0x00c0->0x0e60 ; ", Response"
0e01 00c8 | | .STRTAB 0x00c8->0x0e65 ; "Remove_Secondary"
0e02 00d6 | | .STRTAB 0x00d6->0x0e6d ; "secondary_referencer"
0e03 00e8 | | .STRTAB 0x00e8->0x0e77 ; "Response"
0e04 00ee | | .STRTAB 0x00ee->0x0e7b ; "Show_Secondary"
0e05 00fa | | .STRTAB 0x00fa->0x0e82 ; "Edit_Secondary"
0e06 0106 | | .STRTAB 0x0106->0x0e89 ; "In_Place => "
0e07 0110 | | .STRTAB 0x0110->0x0e8f ; ", Visible => "
0e08 011b | | .STRTAB 0x011b->0x0e95 ; "Set_Process_Primary"
0e09 012c | , | .STRTAB 0x012c->0x0e9f ; ", Value => "
0e0a 0135 | 5 | .STRTAB 0x0135->0x0ea4 ; "Set_Secondary_Command"
0e0b 0148 | H | .STRTAB 0x0148->0x0eaf ; "Command => "
0e0c 0151 | Q | .STRTAB 0x0151->0x0eb4 ; ", Secondary_referencer"
0e0d 0165 | e | .STRTAB 0x0165->0x0ebf ; "Link"
0e0e 0167 | g | .STRTAB 0x0167->0x0ec1 ; "Main_Unit"
0e0f 016e | n | .STRTAB 0x016e->0x0ec6 ; "Make_Uncoded_Units => "
0e10 0182 | | .STRTAB 0x0182->0x0ed1 ; ", Executable_Name"
0e11 0191 | | .STRTAB 0x0191->0x0ed9 ; "Show_Remote_Unit_Name"
0e12 01a4 | | .STRTAB 0x01a4->0x0ee4 ; "Unit"
0e13 01a6 | | .STRTAB 0x01a6->0x0ee6 ; "Show_Units"
0e14 01ae | | .STRTAB 0x01ae->0x0eeb ; "Remote_Name => "
0e15 01bb | | .STRTAB 0x01bb->0x0ef2 ; ", Consistency => "
0e16 01ca | | .STRTAB 0x01ca->0x0efb ; "Set_Unit_Option"
0e17 01d7 | | .STRTAB 0x01d7->0x0f02 ; "Option_Switch"
0e18 01e2 | | .STRTAB 0x01e2->0x0f09 ; ", switch_Value"
0e19 01ee | | .STRTAB 0x01ee->0x0f10 ; ", Units"
0e1a 01f3 | | .STRTAB 0x01f3->0x0f13 ; ", Switch_Value"
0e1b 01ff | | .STRTAB 0x01ff->0x0f1a ; "Display_Unit_Options"
0e1c 0211 | | .STRTAB 0x0211->0x0f24 ; "Units"
0e1d 0214 | | .STRTAB 0x0214->0x0f27 ; "Remove_Unit_Option"
0e1e 0224 | $ | .STRTAB 0x0224->0x0f30 ; "Refresh_View"
0e1f 022e | . | .STRTAB 0x022e->0x0f36 ; "View"
0e20 0230 | 0 | .STRTAB 0x0230->0x0f38 ; ", Retain_History => "
0e21 0242 | B | .STRTAB 0x0242->0x0f42 ; "Show_Remote_Information"
0e22 0257 | W | .STRTAB 0x0257->0x0f4d ; "Execute_Remote_Command"
0e23 026b | k | .STRTAB 0x026b->0x0f58 ; "remote_command"
0e24 0277 | w | .STRTAB 0x0277->0x0f5f ; ", remote_machine"
0e25 0285 | | .STRTAB 0x0285->0x0f67 ; ", remote_username"
0e26 0294 | | .STRTAB 0x0294->0x0f70 ; ", remote_password"
0e27 02a3 | | .STRTAB 0x02a3->0x0f78 ; ", remote_directory"
0e28 02b3 | | .STRTAB 0x02b3->0x0f81 ; ", The_Key"
0e29 02ba | | .STRTAB 0x02ba->0x0f86 ; "Collapse_secondary_referencers"
0e2a 02d6 | | .STRTAB 0x02d6->0x0f95 ; "directory => "
0e2b 02e1 | | .STRTAB 0x02e1->0x0f9b ; "Expand_secondary_referencers"
0e2c 02fb | | .STRTAB 0x02fb->0x0fa9 ; "<DEFAULT>"
0e2d 0302 | | .STRTAB 0x0302->0x0fae ; "$"
0e2e 0301 | | .STRTAB 0x0301->0x0fae ; "Expression does not name a linkable object"
0e2f 0329 | ) | .STRTAB 0x0329->0x0fc3 ; "Expression names more than one object, but an executable name was specified"
0e30 0372 | r | .STRTAB 0x0372->0x0fe9 ; "Unexpected exception caught while refreshing "
0e31 039d | | .STRTAB 0x039d->0x0fff ; "secondary "
0e32 03a5 | | .STREND 0x03a5->0x1004
0e33 5263 662e |Rcf.| .STRTAB_STRINGS
1005 0000 0000 | | .XXX[0x3]
1007 0000 | |
1008 ; --------------------------------------------------------------------------------------
1008 ; Debug Table
1008 ; --------------------------------------------------------------------------------------
1008 0004 000d | | .DEBUG4 0x0004,0x000d,0xf6a6,0x0000,0x0001,0x0000
100e 0000 0000 | | .XXX[0x11]
1010 0700 0000 | |
1012 0001 9661 | a|
1014 a900 0000 | |
1016 0000 0000 | |
1018 0200 0000 | |
101a 0000 0000 | |
101c 0200 023c | <|
101e b000 | |
101f 0000 0000 | | .BLANK 0000[0x5]
1024 0900 00a3 | | .XXX[0x5]
1026 2b01 965d |+ ]|
1028 ff00 | |
1029 0000 0000 | | .BLANK 0000[0x4]
102d cb31 8600 | 1 | .XXX[0x10]
102f 0003 8f40 | @|
1031 1966 34c0 | f4 |
1033 1966 49f0 | fI |
1035 0000 da00 | |
1037 010a 7220 | r |
1039 0000 0000 | |
103b 32cc be40 |2 @|
103d 0000 0000 | | .BLANK 0000[0x4]
1041 0002 1540 | @| .XXX[0x11]
1043 2000 00d7 | |
1045 a180 0804 | |
1047 000e 0000 | |
1049 1af4 0000 | |
104b 1b40 0021 | @ !|
104d 4e44 0000 |ND |
104f 0000 0659 | Y|
1051 9bc8 | |
1052 0000 0000 | | .BLANK 0000[0x5]
1057 42a8 0400 |B | .XXX[0x25]
1059 001a f430 | 0|
105b 0100 8011 | |
105d c000 035e | ^|
105f 8065 999c | e |
1061 c000 0000 | |
1063 0000 0000 | |
1065 8000 0000 | |
1067 0000 0000 | |
1069 8000 042a | *|
106b 8000 0000 | |
106d 0000 0000 | |
106f 0065 99dc | e |
1071 c000 0000 | |
1073 0000 0000 | |
1075 8000 0000 | |
1077 0000 0000 | |
1079 8000 042a | *|
107b 8000 | |
107c 0000 0000 | | .BLANK 0000[0x4]
1080 0002 4000 | @ | .XXX[0x1a]
1082 01b4 0065 | e|
1084 98b2 4000 | @ |
1086 0000 0000 | |
1088 0000 0032 | 2|
108a cd1a c000 | |
108c 0497 2006 | |
108e 59a4 5806 |Y X |
1090 59a9 a400 |Y |
1092 016f 380c | o8 |
1094 af7b a800 | { |
1096 0000 000c | |
1098 b35d e000 | ] |
109a 0000 0000 | | .BLANK 0000[0x4]
109e 04ef 1008 | | .XXX[0x11]
10a0 0001 6f18 | o |
10a2 6002 1700 |` |
10a4 0380 002d | -|
10a6 e300 002d | -|
10a8 e701 95ef | |
10aa 7500 0000 |u |
10ac 0001 966c | l|
10ae bc00 | |
10af 0000 0000 | | .BLANK 0000[0x4]
10b3 009d e201 | | .XXX[0x15]
10b5 0000 2de3 | - |
10b7 0c00 42e0 | B |
10b9 0070 0005 | p |
10bb bc60 1966 | ` f|
10bd c3d0 0000 | |
10bf 0000 0000 | |
10c1 0020 0000 | |
10c3 0000 0000 | |
10c5 0020 0009 | |
10c7 de20 | |
10c8 0000 0000 | | .BLANK 0000[0x4]
10cc 1966 d3d0 | f | .XXX[0xc]
10ce 0000 0000 | |
10d0 0000 0020 | |
10d2 0000 0000 | |
10d4 0000 0010 | |
10d6 0009 de20 | |
10d8 0000 0000 | | .BLANK 0000[0x5]
10dd 0090 0002 | | .XXX[0x19]
10df de70 1966 | p f|
10e1 8930 1966 | 0 f|
10e3 7f20 1967 | g|
10e5 2860 0cb3 |(` |
10e7 7500 000e |u |
10e9 d8b3 0196 | |
10eb 6ee0 0196 |n |
10ed 7033 0000 |p3 |
10ef f82a 0013 | * |
10f1 ba6c 0000 | l |
10f3 0000 032c | ,|
10f5 e30c | |
10f6 0000 0000 | | .BLANK 0000[0x4]
10fa 0001 2738 | '8| .XXX[0x9]
10fc 0200 0054 | T|
10fe 3658 0085 |6X |
1100 4000 e000 |@ |
1102 0a86 | |
1103 0000 0000 | | .BLANK 0000[0xe]
1111 0040 | @ | .XXX[0x1]
1112 0000 0000 | | .BLANK 0000[0x4]
1116 1c00 0000 | | .XXX[0xf]
1118 0006 59c8 | Y |
111a 1c00 0000 | |
111c 0000 0000 | |
111e 0800 0000 | |
1120 0000 0000 | |
1122 0400 024e | N|
1124 7000 |p |
1125 0000 0000 | | .BLANK 0000[0x5]
112a 2400 01f0 |$ | .XXX[0x19]
112c 5406 59b9 |T Y |
112e 7400 0000 |t |
1130 0006 59dd | Y |
1132 4203 2ce6 |B , |
1134 d400 0643 | C|
1136 7800 659c |x e |
1138 ea80 659d | e |
113a 3f40 0051 |?@ Q|
113c 9600 042d | -|
113e 9e00 0000 | |
1140 0000 cb3b | ;|
1142 2800 |( |
1143 0000 0000 | | .BLANK 0000[0x4]
1147 011e 5a00 | Z | .XXX[0x9]
1149 8000 5192 | Q |
114b 8600 2170 | !p|
114d 0038 000a | 8 |
114f 3250 |2P |
1150 0000 0000 | | .BLANK 0000[0xe]
115e 1000 0000 | | .XXX[0x13]
1160 0000 0000 | |
1162 0007 0000 | |
1164 0000 0196 | |
1166 76d1 0000 |v |
1168 0000 0000 | |
116a 0002 0000 | |
116c 0000 0000 | |
116e 0002 0002 | |
1170 3cb4 |< |
1171 0000 0000 | | .BLANK 0000[0x5]
1176 0009 0000 | | .XXX[0x5]
1178 a32c 0196 | , |
117a 7327 |s' |
117b 0000 0000 | | .BLANK 0000[0x4]
117f 00cb 3c1a | < | .XXX[0x11]
1181 0000 0a1c | |
1183 6019 6787 |` g |
1185 4019 679c |@ g |
1187 7000 00da |p |
1189 2032 7f8c | 2 |
118b 8000 0000 | |
118d 0032 cf63 | 2 c|
118f 4000 |@ |
1190 0000 0000 | | .BLANK 0000[0x4]
1194 0215 c020 | | .XXX[0x9]
1196 0000 d7c1 | |
1198 8548 0c00 | H |
119a 0e00 001a | |
119c f800 | |
119d 0000 0000 | | .BLANK 0000[0xd]
11aa 0004 | | .XXX[0x1]
11ab 0000 0000 | | .BLANK 0000[0x4]
11af 01c0 0000 | | .XXX[0xf]
11b1 0000 659e | e |
11b3 e6c0 0000 | |
11b5 0000 0000 | |
11b7 0080 0000 | |
11b9 0000 0000 | |
11bb 0080 0004 | |
11bd 2b80 |+ |
11be 0000 0000 | | .BLANK 0000[0x5]
11c3 0240 0001 | @ | .XXX[0x5]
11c5 b440 659d | @e |
11c7 fc40 | @ |
11c8 0000 0000 | | .BLANK 0000[0x4]
11cc 32cf 9fc0 |2 | .XXX[0x10]
11ce 0005 274c | 'L|
11d0 0659 f4f8 | Y |
11d2 0659 fa44 | Y D|
11d4 0001 6f40 | o@|
11d6 0caf 8be8 | |
11d8 0000 0000 | |
11da 0cb3 ff20 | |
11dc 0000 0000 | | .BLANK 0000[0x4]
11e0 0004 ef30 | 0| .XXX[0x11]
11e2 0800 016f | o|
11e4 1860 0217 | ` |
11e6 0003 8000 | |
11e8 2de3 0000 |- |
11ea 2de8 0195 |- |
11ec f17d 0000 | } |
11ee 0000 0196 | |
11f0 80e4 | |
11f1 0000 0000 | | .BLANK 0000[0x5]
11f6 9de6 0100 | | .XXX[0xa]
11f8 002d e30c | - |
11fa 0042 e000 | B |
11fc 7000 05bc |p |
11fe 6019 6806 |` h |