|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0710 | | .CONST 0x0710 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00a8 | | .CONST 0x00a8 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003c | < | .CONST 0x003c ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 0129 | ) | Execute Any,Make_Visible 000d e002 | | Load 0x0,0x2 000e 0129 | ) | Execute Any,Make_Visible 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 002d c220 | | Store 0x1,0x20 002e 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0030 c226 | & | Store 0x1,0x26 0031 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0033 c211 | | Store 0x1,0x11 0034 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0036 c212 | | Store 0x1,0x12 0037 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0039 c213 | | Store 0x1,0x13 003a 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 003c c214 | | Store 0x1,0x14 003d 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 003f c224 | $ | Store 0x1,0x24 0040 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0042 c225 | % | Store 0x1,0x25 0043 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0045 c219 | | Store 0x1,0x19 0046 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0048 c21a | | Store 0x1,0x1a 0049 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 004b c227 | ' | Store 0x1,0x27 004c 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 004e c228 | ( | Store 0x1,0x28 004f 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0051 c229 | ) | Store 0x1,0x29 0052 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0054 c22a | * | Store 0x1,0x2a 0055 00bf | | Action Accept_Activation 0056 00e9 | | Load_Encached String_Cache 0057 02a0 | | Declare_Subprogram Null_Subprogram 0058 03ad | | Declare_Type Heap_Access,Defined 0059 00d8 | | Load_Top At_Offset_0 005a 00d9 | | Load_Top At_Offset_1 005b 00da | | Load_Top At_Offset_2 005c 00db | | Load_Top At_Offset_3 005d e22b | + | Load 0x1,0x2b 005e 02a0 | | Declare_Subprogram Null_Subprogram 005f 4805 |H | Short_Literal 0x5 0060 032d | - | Declare_Type Record,Defined 0061 00d8 | | Load_Top At_Offset_0 0062 02a0 | | Declare_Subprogram Null_Subprogram 0063 03ad | | Declare_Type Heap_Access,Defined 0064 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 0066 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0068 e003 | | Load 0x0,0x3 0069 e004 | | Load 0x0,0x4 006a e22d | - | Load 0x1,0x2d 006b 00d8 | | Load_Top At_Offset_0 006c 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 006d 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 006e 0092 06d8 | | Action Push_String_Extended,0x6d8 ; "RCI_Remote_Defaults" 0070 e005 | | Load 0x0,0x5 0071 0387 | | Declare_Variable Package 0072 00d8 | | Load_Top At_Offset_0 0073 020f | | Execute Module,Activate 0074 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 0076 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0078 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 007a 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 007c 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 007e 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 0080 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call 0082 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 0084 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0085 00c7 | | Action Elaborate_Subprogram 0086 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0087 00c7 | | Action Elaborate_Subprogram 0088 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0089 00c7 | | Action Elaborate_Subprogram 008a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 008b 00c7 | | Action Elaborate_Subprogram 008c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 008d 00c7 | | Action Elaborate_Subprogram 008e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 008f 00c7 | | Action Elaborate_Subprogram 0090 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0091 00c7 | | Action Elaborate_Subprogram 0092 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0093 00c7 | | Action Elaborate_Subprogram 0094 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call 0096 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call 0098 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call 009a 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call 009c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 009d 00c7 | | Action Elaborate_Subprogram 009e 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00a7 00c7 | | Action Elaborate_Subprogram 00a8 BODY_0008: 00a8 00bc | | Action Signal_Activated 00a9 00bb | | Action Signal_Completion 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e006 | | Load 0x0,0x6 00b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b5 e230 | 0 | Load 0x1,0x30 00b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b7 680a |h | Jump_Zero 0xc2 00b8 e006 | | Load 0x0,0x6 00b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ba e230 | 0 | Load 0x1,0x30 00bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bc 0217 | | Execute Heap_Access,All_Reference 00bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00be 0217 | | Execute Heap_Access,All_Reference 00bf 0335 | 5 | Declare_Variable Array,Duplicate 00c0 00cd | | Action Spare6_Action 00c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c2 00ea | | Load_Encached Null_String_Cache 00c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e006 | | Load 0x0,0x6 00cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cd e230 | 0 | Load 0x1,0x30 00ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00cf 680a |h | Jump_Zero 0xda 00d0 e006 | | Load 0x0,0x6 00d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d2 e230 | 0 | Load 0x1,0x30 00d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d4 0217 | | Execute Heap_Access,All_Reference 00d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d6 0217 | | Execute Heap_Access,All_Reference 00d7 0335 | 5 | Declare_Variable Array,Duplicate 00d8 00cd | | Action Spare6_Action 00d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00da 00ea | | Load_Encached Null_String_Cache 00db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e5 | | .CONST 0x00e5 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call 00e5 BODY_00e0: 00e5 e006 | | Load 0x0,0x6 00e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e7 e230 | 0 | Load 0x1,0x30 00e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00e9 6813 |h | Jump_Zero 0xfd 00ea e006 | | Load 0x0,0x6 00eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ec e230 | 0 | Load 0x1,0x30 00ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ee 0217 | | Execute Heap_Access,All_Reference 00ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f0 0217 | | Execute Heap_Access,All_Reference 00f1 01db | | Execute Vector,Length 00f2 680a |h | Jump_Zero 0xfd 00f3 e006 | | Load 0x0,0x6 00f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f5 e230 | 0 | Load 0x1,0x30 00f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f7 0217 | | Execute Heap_Access,All_Reference 00f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f9 0217 | | Execute Heap_Access,All_Reference 00fa 0335 | 5 | Declare_Variable Array,Duplicate 00fb 00cd | | Action Spare6_Action 00fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00fd 8402 | | Call 0x2,0x2 00fe 0831 | 1 | Execute_Immediate Raise,0x31 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0105 | | .CONST 0x0105 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 029f 050b | | Declare_Subprogram INIT_0508,For_Call 0105 BODY_0100: 0105 e006 | | Load 0x0,0x6 0106 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0107 e230 | 0 | Load 0x1,0x30 0108 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0109 6813 |h | Jump_Zero 0x11d 010a e006 | | Load 0x0,0x6 010b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010c e230 | 0 | Load 0x1,0x30 010d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 010e 0217 | | Execute Heap_Access,All_Reference 010f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0110 0217 | | Execute Heap_Access,All_Reference 0111 01db | | Execute Vector,Length 0112 680a |h | Jump_Zero 0x11d 0113 e006 | | Load 0x0,0x6 0114 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0115 e230 | 0 | Load 0x1,0x30 0116 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0117 0217 | | Execute Heap_Access,All_Reference 0118 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0119 0217 | | Execute Heap_Access,All_Reference 011a 0335 | 5 | Declare_Variable Array,Duplicate 011b 00cd | | Action Spare6_Action 011c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011d 8402 | | Call 0x2,0x2 011e 0831 | 1 | Execute_Immediate Raise,0x31 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0125 | % | .CONST 0x0125 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 029f 052b | +| Declare_Subprogram INIT_0528,For_Call 0125 BODY_0120: 0125 e006 | | Load 0x0,0x6 0126 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0127 e230 | 0 | Load 0x1,0x30 0128 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0129 6813 |h | Jump_Zero 0x13d 012a e006 | | Load 0x0,0x6 012b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012c e230 | 0 | Load 0x1,0x30 012d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 012e 0217 | | Execute Heap_Access,All_Reference 012f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0130 0217 | | Execute Heap_Access,All_Reference 0131 01db | | Execute Vector,Length 0132 680a |h | Jump_Zero 0x13d 0133 e006 | | Load 0x0,0x6 0134 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0135 e230 | 0 | Load 0x1,0x30 0136 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0137 0217 | | Execute Heap_Access,All_Reference 0138 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0139 0217 | | Execute Heap_Access,All_Reference 013a 0335 | 5 | Declare_Variable Array,Duplicate 013b 00cd | | Action Spare6_Action 013c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013d 8402 | | Call 0x2,0x2 013e 00ea | | Load_Encached Null_String_Cache 013f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0145 | E | .CONST 0x0145 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call 0145 BODY_0140: 0145 e006 | | Load 0x0,0x6 0146 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0147 e230 | 0 | Load 0x1,0x30 0148 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0149 6813 |h | Jump_Zero 0x15d 014a e006 | | Load 0x0,0x6 014b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014c e230 | 0 | Load 0x1,0x30 014d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 014e 0217 | | Execute Heap_Access,All_Reference 014f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0150 0217 | | Execute Heap_Access,All_Reference 0151 01db | | Execute Vector,Length 0152 680a |h | Jump_Zero 0x15d 0153 e006 | | Load 0x0,0x6 0154 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0155 e230 | 0 | Load 0x1,0x30 0156 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0157 0217 | | Execute Heap_Access,All_Reference 0158 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0159 0217 | | Execute Heap_Access,All_Reference 015a 0335 | 5 | Declare_Variable Array,Duplicate 015b 00cd | | Action Spare6_Action 015c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015d 8402 | | Call 0x2,0x2 015e 0831 | 1 | Execute_Immediate Raise,0x31 015f 0000 | | .XXX[0x1] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 019a | | .CONST 0x019a ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0007 | | .CONST 0x0007 ; Number of locals 0163 INIT_0160: 0163 e007 | | Load 0x0,0x7 0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0165 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0166 02c7 | | Declare_Variable Any 0167 e5fd | | Load 0x2,-0x3 0168 8231 | 1 | Call 0x1,0x31 0169 a402 | | Store_Unchecked 0x2,0x2 016a e007 | | Load 0x0,0x7 016b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 02c7 | | Declare_Variable Any 016e 00d8 | | Load_Top At_Offset_0 016f 1c00 | | Execute_Immediate Run_Utility,0x0 0170 0092 06d9 | | Action Push_String_Extended,0x6d9 ; "Rci." 0172 e5fe | | Load 0x2,-0x2 0173 e008 | | Load 0x0,0x8 0174 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0175 01cc | | Execute Vector,Catenate 0176 e009 | | Load 0x0,0x9 0177 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0178 01cc | | Execute Vector,Catenate 0179 0007 | | Action Break_Optional 017a 0092 06da | | Action Push_String_Extended,0x6da ; "Session_Rci." 017c e5fe | | Load 0x2,-0x2 017d e008 | | Load 0x0,0x8 017e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 017f 01cc | | Execute Vector,Catenate 0180 e009 | | Load 0x0,0x9 0181 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0182 01cc | | Execute Vector,Catenate 0183 0007 | | Action Break_Optional 0184 00ea | | Load_Encached Null_String_Cache 0185 00da | | Load_Top At_Offset_2 0186 01cc | | Execute Vector,Catenate 0187 0092 06db | | Action Push_String_Extended,0x6db ; "\x22:=" 0189 01cc | | Execute Vector,Catenate 018a e5ff | | Load 0x2,-0x1 018b 01cc | | Execute Vector,Catenate 018c 00ea | | Load_Encached Null_String_Cache 018d 01cc | | Execute Vector,Catenate 018e 0007 | | Action Break_Optional 018f 00ea | | Load_Encached Null_String_Cache 0190 00da | | Load_Top At_Offset_2 0191 01cc | | Execute Vector,Catenate 0192 0092 06db | | Action Push_String_Extended,0x6db ; "\x22:=" 0194 01cc | | Execute Vector,Catenate 0195 e5ff | | Load 0x2,-0x1 0196 01cc | | Execute Vector,Catenate 0197 00ea | | Load_Encached Null_String_Cache 0198 01cc | | Execute Vector,Catenate 0199 0007 | | Action Break_Optional 019a BODY_0160: 019a e5fc | | Load 0x2,-0x4 019b 6825 |h% | Jump_Zero 0x1c1 019c e403 | | Load 0x2,0x3 019d 0120 | | Execute Any,Is_Value 019e 6804 |h | Jump_Zero 0x1a3 019f e007 | | Load 0x0,0x7 01a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a2 7801 |x | Jump 0x1a4 01a3 e403 | | Load 0x2,0x3 01a4 e402 | | Load 0x2,0x2 01a5 e404 | | Load 0x2,0x4 01a6 8238 | 8 | Call 0x1,0x38 01a7 c403 | | Store 0x2,0x3 01a8 e403 | | Load 0x2,0x3 01a9 e007 | | Load 0x0,0x7 01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ab 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ac 6809 |h | Jump_Zero 0x1b6 01ad e5fb | | Load 0x2,-0x5 01ae e00a | | Load 0x0,0xa 01af 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 01b0 0092 06dc | | Action Push_String_Extended,0x6dc ; "<SESSION>" 01b2 00da | | Load_Top At_Offset_2 01b3 e00b | | Load 0x0,0xb 01b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01b6 e5fb | | Load 0x2,-0x5 01b7 e00a | | Load 0x0,0xa 01b8 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 01b9 e403 | | Load 0x2,0x3 01ba e007 | | Load 0x0,0x7 01bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01bc 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01bd 00db | | Load_Top At_Offset_3 01be e00b | | Load 0x0,0xb 01bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01c1 e5fb | | Load 0x2,-0x5 01c2 e00a | | Load 0x0,0xa 01c3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 01c4 e402 | | Load 0x2,0x2 01c5 e007 | | Load 0x0,0x7 01c6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01c7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01c8 e007 | | Load 0x0,0x7 01c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ca 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01cb 00db | | Load_Top At_Offset_3 01cc e00b | | Load 0x0,0xb 01cd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ce 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 020a | | .CONST 0x020a ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0007 | | .CONST 0x0007 ; Number of locals 01d3 INIT_01d0: 01d3 e007 | | Load 0x0,0x7 01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d6 02c7 | | Declare_Variable Any 01d7 e5fd | | Load 0x2,-0x3 01d8 8231 | 1 | Call 0x1,0x31 01d9 a402 | | Store_Unchecked 0x2,0x2 01da e007 | | Load 0x0,0x7 01db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dd 02c7 | | Declare_Variable Any 01de 00d8 | | Load_Top At_Offset_0 01df 1c00 | | Execute_Immediate Run_Utility,0x0 01e0 0092 06d9 | | Action Push_String_Extended,0x6d9 ; "Rci." 01e2 e5fe | | Load 0x2,-0x2 01e3 e008 | | Load 0x0,0x8 01e4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01e5 01cc | | Execute Vector,Catenate 01e6 e009 | | Load 0x0,0x9 01e7 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 01e8 01cc | | Execute Vector,Catenate 01e9 0007 | | Action Break_Optional 01ea 0092 06da | | Action Push_String_Extended,0x6da ; "Session_Rci." 01ec e5fe | | Load 0x2,-0x2 01ed e008 | | Load 0x0,0x8 01ee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01ef 01cc | | Execute Vector,Catenate 01f0 e009 | | Load 0x0,0x9 01f1 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 01f2 01cc | | Execute Vector,Catenate 01f3 0007 | | Action Break_Optional 01f4 00ea | | Load_Encached Null_String_Cache 01f5 00da | | Load_Top At_Offset_2 01f6 01cc | | Execute Vector,Catenate 01f7 0092 06db | | Action Push_String_Extended,0x6db ; "\x22:=" 01f9 01cc | | Execute Vector,Catenate 01fa e5ff | | Load 0x2,-0x1 01fb 01cc | | Execute Vector,Catenate 01fc 00ea | | Load_Encached Null_String_Cache 01fd 01cc | | Execute Vector,Catenate 01fe 0007 | | Action Break_Optional 01ff 00ea | | Load_Encached Null_String_Cache 0200 00da | | Load_Top At_Offset_2 0201 01cc | | Execute Vector,Catenate 0202 0092 06db | | Action Push_String_Extended,0x6db ; "\x22:=" 0204 01cc | | Execute Vector,Catenate 0205 e5ff | | Load 0x2,-0x1 0206 01cc | | Execute Vector,Catenate 0207 00ea | | Load_Encached Null_String_Cache 0208 01cc | | Execute Vector,Catenate 0209 0007 | | Action Break_Optional 020a BODY_01d0: 020a e5fc | | Load 0x2,-0x4 020b 6825 |h% | Jump_Zero 0x231 020c e403 | | Load 0x2,0x3 020d 0120 | | Execute Any,Is_Value 020e 6804 |h | Jump_Zero 0x213 020f e007 | | Load 0x0,0x7 0210 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0212 7801 |x | Jump 0x214 0213 e403 | | Load 0x2,0x3 0214 e402 | | Load 0x2,0x2 0215 e404 | | Load 0x2,0x4 0216 8238 | 8 | Call 0x1,0x38 0217 c403 | | Store 0x2,0x3 0218 e403 | | Load 0x2,0x3 0219 e007 | | Load 0x0,0x7 021a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021b 180f | | Execute Package,Field_Execute,Field_Number 0xf 021c 6809 |h | Jump_Zero 0x226 021d e5fb | | Load 0x2,-0x5 021e e00a | | Load 0x0,0xa 021f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0220 0092 06dc | | Action Push_String_Extended,0x6dc ; "<SESSION>" 0222 00da | | Load_Top At_Offset_2 0223 e00b | | Load 0x0,0xb 0224 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0225 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0226 e5fb | | Load 0x2,-0x5 0227 e00a | | Load 0x0,0xa 0228 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0229 e403 | | Load 0x2,0x3 022a e007 | | Load 0x0,0x7 022b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 022d 00db | | Load_Top At_Offset_3 022e e00b | | Load 0x0,0xb 022f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0230 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0231 e5fb | | Load 0x2,-0x5 0232 e00a | | Load 0x0,0xa 0233 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0234 e402 | | Load 0x2,0x2 0235 e007 | | Load 0x0,0x7 0236 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0237 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0238 e007 | | Load 0x0,0x7 0239 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 023b 00db | | Load_Top At_Offset_3 023c e00b | | Load 0x0,0xb 023d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 023e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 023f 0000 | | .XXX[0x1] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 4800 |H | Short_Literal 0x0 0244 e006 | | Load 0x0,0x6 0245 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0246 e22c | , | Load 0x1,0x2c 0247 0322 | " | Declare_Variable Record 0248 e5ff | | Load 0x2,-0x1 0249 e22b | + | Load 0x1,0x2b 024a e006 | | Load 0x0,0x6 024b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 024c e00c | | Load 0x0,0xc 024d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 024e 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 024f 00d9 | | Load_Top At_Offset_1 0250 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0251 e5fe | | Load 0x2,-0x2 0252 e22b | + | Load 0x1,0x2b 0253 e006 | | Load 0x0,0x6 0254 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0255 e00c | | Load 0x0,0xc 0256 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0257 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0258 00d9 | | Load_Top At_Offset_1 0259 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 025a e5fd | | Load 0x2,-0x3 025b e22b | + | Load 0x1,0x2b 025c e006 | | Load 0x0,0x6 025d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 025e e00c | | Load 0x0,0xc 025f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0260 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0261 00d9 | | Load_Top At_Offset_1 0262 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0263 e5fb | | Load 0x2,-0x5 0264 e22b | + | Load 0x1,0x2b 0265 e006 | | Load 0x0,0x6 0266 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0267 e00c | | Load 0x0,0xc 0268 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0269 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 026a 00d9 | | Load_Top At_Offset_1 026b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 026c e5fc | | Load 0x2,-0x4 026d e22b | + | Load 0x1,0x2b 026e e006 | | Load 0x0,0x6 026f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0270 e00c | | Load 0x0,0xc 0271 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0272 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0273 00d9 | | Load_Top At_Offset_1 0274 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0275 e22d | - | Load 0x1,0x2d 0276 e006 | | Load 0x0,0x6 0277 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0278 e00c | | Load 0x0,0xc 0279 1811 | | Execute Package,Field_Execute,Field_Number 0x11 027a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 027b e230 | 0 | Load 0x1,0x30 027c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 027d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 027e 0000 0000 | | .XXX[0x2] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4800 |H | Short_Literal 0x0 0284 e006 | | Load 0x0,0x6 0285 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0286 e22d | - | Load 0x1,0x2d 0287 e230 | 0 | Load 0x1,0x30 0288 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0289 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028a 0000 0000 | | .BLANK 0000[0x6] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 e006 | | Load 0x0,0x6 0294 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0295 e230 | 0 | Load 0x1,0x30 0296 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0297 680a |h | Jump_Zero 0x2a2 0298 e006 | | Load 0x0,0x6 0299 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029a e230 | 0 | Load 0x1,0x30 029b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 029c 0217 | | Execute Heap_Access,All_Reference 029d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 029e 0217 | | Execute Heap_Access,All_Reference 029f 0335 | 5 | Declare_Variable Array,Duplicate 02a0 00cd | | Action Spare6_Action 02a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a2 00ea | | Load_Encached Null_String_Cache 02a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a4 0000 0000 | | .BLANK 0000[0x4] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e006 | | Load 0x0,0x6 02ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02ad e230 | 0 | Load 0x1,0x30 02ae 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02af 680a |h | Jump_Zero 0x2ba 02b0 e006 | | Load 0x0,0x6 02b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02b2 e230 | 0 | Load 0x1,0x30 02b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02b4 0217 | | Execute Heap_Access,All_Reference 02b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02b6 0217 | | Execute Heap_Access,All_Reference 02b7 0335 | 5 | Declare_Variable Array,Duplicate 02b8 00cd | | Action Spare6_Action 02b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ba 00ea | | Load_Encached Null_String_Cache 02bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02bc 0000 0000 | | .BLANK 0000[0x4] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 e006 | | Load 0x0,0x6 02c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c5 e230 | 0 | Load 0x1,0x30 02c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02c7 680a |h | Jump_Zero 0x2d2 02c8 e006 | | Load 0x0,0x6 02c9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02ca e230 | 0 | Load 0x1,0x30 02cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02cc 0217 | | Execute Heap_Access,All_Reference 02cd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02ce 0217 | | Execute Heap_Access,All_Reference 02cf 0335 | 5 | Declare_Variable Array,Duplicate 02d0 00cd | | Action Spare6_Action 02d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d2 00ea | | Load_Encached Null_String_Cache 02d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d4 0000 0000 | | .BLANK 0000[0x4] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db e006 | | Load 0x0,0x6 02dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02dd e230 | 0 | Load 0x1,0x30 02de 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02df 680a |h | Jump_Zero 0x2ea 02e0 e006 | | Load 0x0,0x6 02e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e2 e230 | 0 | Load 0x1,0x30 02e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02e4 0217 | | Execute Heap_Access,All_Reference 02e5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02e6 0217 | | Execute Heap_Access,All_Reference 02e7 0335 | 5 | Declare_Variable Array,Duplicate 02e8 00cd | | Action Spare6_Action 02e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ea 00ea | | Load_Encached Null_String_Cache 02eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 e22d | - | Load 0x1,0x2d 02f4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 02f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02f6 0000 0000 | | .XXX[0x2] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 4801 |H | Short_Literal 0x1 0304 e007 | | Load 0x0,0x7 0305 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0306 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0307 e5ff | | Load 0x2,-0x1 0308 e00d | | Load 0x0,0xd 0309 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 030a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 030b e007 | | Load 0x0,0x7 030c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 030d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 030e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030f 0000 | | .XXX[0x1] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0321 | ! | .CONST 0x0321 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0006 | | .CONST 0x0006 ; Number of locals 0313 INIT_0310: 0313 e00d | | Load 0x0,0xd 0314 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0315 02ff | | Declare_Variable Variant_Record 0316 00d8 | | Load_Top At_Offset_0 0317 1c00 | | Execute_Immediate Run_Utility,0x0 0318 e00d | | Load 0x0,0xd 0319 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 031a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 031b 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call 031d 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 031f 029f 057b | {| Declare_Subprogram INIT_0578,For_Call 0321 BODY_0310: 0321 e00d | | Load 0x0,0xd 0322 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0323 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0324 e402 | | Load 0x2,0x2 0325 6032 |`2 | Indirect_Literal Discrete,0x358,{0x00000000, 0x00004000} 0326 e00e | | Load 0x0,0xe 0327 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0328 4800 |H | Short_Literal 0x0 0329 e006 | | Load 0x0,0x6 032a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 032b e00d | | Load 0x0,0xd 032c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 032d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 032e e5ff | | Load 0x2,-0x1 032f 8405 | | Call 0x2,0x5 0330 e00d | | Load 0x0,0xd 0331 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0332 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0333 00d1 | | Pop_Control Pop_Count_1 0334 c403 | | Store 0x2,0x3 0335 00db | | Load_Top At_Offset_3 0336 8404 | | Call 0x2,0x4 0337 6802 |h | Jump_Zero 0x33a 0338 e402 | | Load 0x2,0x2 0339 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033a e00d | | Load 0x0,0xd 033b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 033c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 033d e402 | | Load 0x2,0x2 033e 6019 |` | Indirect_Literal Discrete,0x358,{0x00000000, 0x00004000} 033f e00e | | Load 0x0,0xe 0340 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0341 4800 |H | Short_Literal 0x0 0342 e006 | | Load 0x0,0x6 0343 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0344 e00d | | Load 0x0,0xd 0345 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0346 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0347 e5ff | | Load 0x2,-0x1 0348 8406 | | Call 0x2,0x6 0349 e00d | | Load 0x0,0xd 034a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 034b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 034c 00d1 | | Pop_Control Pop_Count_1 034d c403 | | Store 0x2,0x3 034e 00db | | Load_Top At_Offset_3 034f 8404 | | Call 0x2,0x4 0350 6802 |h | Jump_Zero 0x353 0351 e402 | | Load 0x2,0x2 0352 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0353 e00f | | Load 0x0,0xf 0354 0257 | W | Execute Discrete,Raise 0355 0000 0000 | | .XXX[0x3] 0357 0000 | | 0358 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 035c 0000 0000 | | .BLANK 0000[0x4] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0376 | v | .CONST 0x0376 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0006 | | .CONST 0x0006 ; Number of locals 0363 INIT_0360: 0363 e007 | | Load 0x0,0x7 0364 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0365 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0366 02c7 | | Declare_Variable Any 0367 00db | | Load_Top At_Offset_3 0368 a402 | | Store_Unchecked 0x2,0x2 0369 e007 | | Load 0x0,0x7 036a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036c 02c7 | | Declare_Variable Any 036d 00d8 | | Load_Top At_Offset_0 036e 1c00 | | Execute_Immediate Run_Utility,0x0 036f e5fe | | Load 0x2,-0x2 0370 e008 | | Load 0x0,0x8 0371 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0372 e00d | | Load 0x0,0xd 0373 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0374 029f 058b | | Declare_Subprogram INIT_0588,For_Call 0376 BODY_0360: 0376 00cf | | Action Mark_Auxiliary 0377 8406 | | Call 0x2,0x6 0378 e007 | | Load 0x0,0x7 0379 1b0f | | Execute Package,Field_Read,Field_Number 0xf 037a 180f | | Execute Package,Field_Execute,Field_Number 0xf 037b e402 | | Load 0x2,0x2 037c e007 | | Load 0x0,0x7 037d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 037f 680e |h | Jump_Zero 0x38e 0380 4801 |H | Short_Literal 0x1 0381 e010 | | Load 0x0,0x10 0382 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0383 e011 | | Load 0x0,0x11 0384 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0385 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0386 8232 | 2 | Call 0x1,0x32 0387 e404 | | Load 0x2,0x4 0388 e009 | | Load 0x0,0x9 0389 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 038a 01cc | | Execute Vector,Catenate 038b e009 | | Load 0x0,0x9 038c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 038d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 038e e402 | | Load 0x2,0x2 038f e007 | | Load 0x0,0x7 0390 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0391 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0392 c402 | | Store 0x2,0x2 0393 00c9 | | Action Pop_Auxiliary_Loop 0394 7fe2 | | Jump 0x377 0395 0000 0000 | | .XXX[0x3] 0397 0000 | | 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a9 | | .CONST 0x03a9 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0003 | | .CONST 0x0003 ; Number of locals 039b INIT_0398: 039b 00da | | Load_Top At_Offset_2 039c e007 | | Load 0x0,0x7 039d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 039e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 039f 4801 |H | Short_Literal 0x1 03a0 e5fe | | Load 0x2,-0x2 03a1 00da | | Load_Top At_Offset_2 03a2 e012 | | Load 0x0,0x12 03a3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03a4 00d9 | | Load_Top At_Offset_1 03a5 01db | | Execute Vector,Length 03a6 0273 | s | Execute Discrete,Plus 03a7 00e3 | | Load_Encached Natural_Cache 03a8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03a9 BODY_0398: 03a9 e007 | | Load 0x0,0x7 03aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03ab 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ac e5ff | | Load 0x2,-0x1 03ad e007 | | Load 0x0,0x7 03ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03af 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03b0 7003 |p | Jump_Nonzero 0x3b4 03b1 00d8 | | Load_Top At_Offset_0 03b2 0a01 | | Execute_Immediate Plus,0x1 03b3 0059 | Y | Store_Top Discrete,At_Offset_1 03b4 00d8 | | Load_Top At_Offset_0 03b5 e5fe | | Load 0x2,-0x2 03b6 01dc | | Execute Vector,Last 03b7 e5fe | | Load 0x2,-0x2 03b8 01cf | | Execute Vector,Slice_Read 03b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ba 0000 0000 | | .BLANK 0000[0x6] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03cc | | .CONST 0x03cc ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0003 | | .CONST 0x0003 ; Number of locals 03c3 INIT_03c0: 03c3 4801 |H | Short_Literal 0x1 03c4 00db | | Load_Top At_Offset_3 03c5 482e |H. | Short_Literal 0x2e 03c6 e012 | | Load 0x0,0x12 03c7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03c8 00e3 | | Load_Encached Natural_Cache 03c9 03f1 | | Declare_Variable Discrete,With_Value 03ca 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 03cc BODY_03c0: 03cc 00d9 | | Load_Top At_Offset_1 03cd e5ff | | Load 0x2,-0x1 03ce 01dd | | Execute Vector,First 03cf 0aff | | Execute_Immediate Plus,-0x1 03d0 027d | } | Execute Discrete,Greater 03d1 681a |h | Jump_Zero 0x3ec 03d2 e5ff | | Load 0x2,-0x1 03d3 01dd | | Execute Vector,First 03d4 00da | | Load_Top At_Offset_2 03d5 0aff | | Execute_Immediate Plus,-0x1 03d6 e5ff | | Load 0x2,-0x1 03d7 01cf | | Execute Vector,Slice_Read 03d8 8403 | | Call 0x2,0x3 03d9 e5fe | | Load 0x2,-0x2 03da e013 | | Load 0x0,0x13 03db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03dc 01cc | | Execute Vector,Catenate 03dd e5fe | | Load 0x2,-0x2 03de 00db | | Load_Top At_Offset_3 03df 0a01 | | Execute_Immediate Plus,0x1 03e0 00d8 | | Load_Top At_Offset_0 03e1 00e2 | | Load_Encached Integer_Cache 03e2 0260 | ` | Execute Discrete,In_Type 03e3 7001 |p | Jump_Nonzero 0x3e5 03e4 0801 | | Execute_Immediate Raise,0x1 03e5 e5ff | | Load 0x2,-0x1 03e6 01dc | | Execute Vector,Last 03e7 e5ff | | Load 0x2,-0x1 03e8 01cf | | Execute Vector,Slice_Read 03e9 8235 | 5 | Call 0x1,0x35 03ea 01cc | | Execute Vector,Catenate 03eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ec e5ff | | Load 0x2,-0x1 03ed 8403 | | Call 0x2,0x3 03ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ef 0000 | | .XXX[0x1] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 0409 | | .CONST 0x0409 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0004 | | .CONST 0x0004 ; Number of locals 03f3 INIT_03f0: 03f3 e5fc | | Load 0x2,-0x4 03f4 00db | | Load_Top At_Offset_3 03f5 8234 | 4 | Call 0x1,0x34 03f6 e5fd | | Load 0x2,-0x3 03f7 e013 | | Load 0x0,0x13 03f8 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 03f9 e5fe | | Load 0x2,-0x2 03fa 01dd | | Execute Vector,First 03fb e5fe | | Load 0x2,-0x2 03fc 01dc | | Execute Vector,Last 03fd 00da | | Load_Top At_Offset_2 03fe 01db | | Execute Vector,Length 03ff 0272 | r | Execute Discrete,Minus 0400 00d8 | | Load_Top At_Offset_0 0401 00e2 | | Load_Encached Integer_Cache 0402 0260 | ` | Execute Discrete,In_Type 0403 7001 |p | Jump_Nonzero 0x405 0404 0801 | | Execute_Immediate Raise,0x1 0405 e5fe | | Load 0x2,-0x2 0406 01cf | | Execute Vector,Slice_Read 0407 0335 | 5 | Declare_Variable Array,Duplicate 0408 00cd | | Action Spare6_Action 0409 BODY_03f0: 0409 00d8 | | Load_Top At_Offset_0 040a e5fd | | Load 0x2,-0x3 040b e013 | | Load 0x0,0x13 040c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 040d 01cc | | Execute Vector,Catenate 040e e5fd | | Load 0x2,-0x3 040f e402 | | Load 0x2,0x2 0410 8235 | 5 | Call 0x1,0x35 0411 01cc | | Execute Vector,Catenate 0412 00da | | Load_Top At_Offset_2 0413 01cc | | Execute Vector,Catenate 0414 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0415 0000 0000 | | .XXX[0x3] 0417 0000 | | 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0444 | D | .CONST 0x0444 ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 000a | | .CONST 0x000a ; Number of locals 041b INIT_0418: 041b e007 | | Load 0x0,0x7 041c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041e 02c7 | | Declare_Variable Any 041f 00db | | Load_Top At_Offset_3 0420 a402 | | Store_Unchecked 0x2,0x2 0421 e007 | | Load 0x0,0x7 0422 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0423 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0424 02c7 | | Declare_Variable Any 0425 00d8 | | Load_Top At_Offset_0 0426 1c00 | | Execute_Immediate Run_Utility,0x0 0427 e5fe | | Load 0x2,-0x2 0428 e008 | | Load 0x0,0x8 0429 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 042a e013 | | Load 0x0,0x13 042b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 042c 02c7 | | Declare_Variable Any 042d e5fe | | Load 0x2,-0x2 042e e014 | | Load 0x0,0x14 042f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0430 a405 | | Store_Unchecked 0x2,0x5 0431 00e3 | | Load_Encached Natural_Cache 0432 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0433 e00d | | Load 0x0,0xd 0434 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0435 e5ff | | Load 0x2,-0x1 0436 e007 | | Load 0x0,0x7 0437 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0438 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0439 e012 | | Load 0x0,0x12 043a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 043b 0092 06dd | | Action Push_String_Extended,0x6dd ; "." 043d 01cc | | Execute Vector,Catenate 043e e5fd | | Load 0x2,-0x3 043f 01cc | | Execute Vector,Catenate 0440 029f 061b | | Declare_Subprogram INIT_0618,For_Call 0442 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call 0444 BODY_0418: 0444 00cf | | Action Mark_Auxiliary 0445 8409 | | Call 0x2,0x9 0446 e007 | | Load 0x0,0x7 0447 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0448 180f | | Execute Package,Field_Execute,Field_Number 0xf 0449 e402 | | Load 0x2,0x2 044a e007 | | Load 0x0,0x7 044b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 044d 6802 |h | Jump_Zero 0x450 044e 840a | | Call 0x2,0xa 044f 7808 |x | Jump 0x458 0450 e402 | | Load 0x2,0x2 0451 e007 | | Load 0x0,0x7 0452 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0453 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0454 c402 | | Store 0x2,0x2 0455 e406 | | Load 0x2,0x6 0456 0a01 | | Execute_Immediate Plus,0x1 0457 c406 | | Store 0x2,0x6 0458 00c9 | | Action Pop_Auxiliary_Loop 0459 7feb | | Jump 0x445 045a 0000 0000 | | .BLANK 0000[0x6] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0473 | s | .CONST 0x0473 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0005 | | .CONST 0x0005 ; Number of locals 0463 INIT_0460: 0463 e007 | | Load 0x0,0x7 0464 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0465 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0466 02c7 | | Declare_Variable Any 0467 00d8 | | Load_Top At_Offset_0 0468 1c00 | | Execute_Immediate Run_Utility,0x0 0469 e00d | | Load 0x0,0xd 046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046b e007 | | Load 0x0,0x7 046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046e 02c7 | | Declare_Variable Any 046f e5fe | | Load 0x2,-0x2 0470 a404 | | Store_Unchecked 0x2,0x4 0471 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call 0473 BODY_0460: 0473 00cf | | Action Mark_Auxiliary 0474 8405 | | Call 0x2,0x5 0475 00da | | Load_Top At_Offset_2 0476 e007 | | Load 0x0,0x7 0477 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0478 180f | | Execute Package,Field_Execute,Field_Number 0xf 0479 012f | / | Execute Any,Equal 047a 6805 |h | Jump_Zero 0x480 047b e007 | | Load 0x0,0x7 047c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047d 180e | | Execute Package,Field_Execute,Field_Number 0xe 047e c402 | | Store 0x2,0x2 047f 7807 |x | Jump 0x487 0480 00da | | Load_Top At_Offset_2 0481 e007 | | Load 0x0,0x7 0482 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0483 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0484 c404 | | Store 0x2,0x4 0485 00c9 | | Action Pop_Auxiliary_Loop 0486 7fed | | Jump 0x474 0487 00ce | | Action Pop_Auxiliary 0488 00db | | Load_Top At_Offset_3 0489 c5fd | | Store 0x2,-0x3 048a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 048b 0000 0000 | | .BLANK 0000[0x5] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 e006 | | Load 0x0,0x6 0494 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0495 e230 | 0 | Load 0x1,0x30 0496 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0497 680a |h | Jump_Zero 0x4a2 0498 e006 | | Load 0x0,0x6 0499 1811 | | Execute Package,Field_Execute,Field_Number 0x11 049a e230 | 0 | Load 0x1,0x30 049b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 049c 0217 | | Execute Heap_Access,All_Reference 049d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 049e 0217 | | Execute Heap_Access,All_Reference 049f 0335 | 5 | Declare_Variable Array,Duplicate 04a0 00cd | | Action Spare6_Action 04a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a2 00ea | | Load_Encached Null_String_Cache 04a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a4 0000 0000 | | .BLANK 0000[0x4] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04af | | .CONST 0x04af ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0002 | | .CONST 0x0002 ; Number of locals 04ab INIT_04a8: 04ab e006 | | Load 0x0,0x6 04ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04ad e230 | 0 | Load 0x1,0x30 04ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04af BODY_04a8: 04af 00d8 | | Load_Top At_Offset_0 04b0 e22d | - | Load 0x1,0x2d 04b1 021e | | Execute Heap_Access,Maximum 04b2 6807 |h | Jump_Zero 0x4ba 04b3 00d8 | | Load_Top At_Offset_0 04b4 0217 | | Execute Heap_Access,All_Reference 04b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04b6 0217 | | Execute Heap_Access,All_Reference 04b7 0335 | 5 | Declare_Variable Array,Duplicate 04b8 00cd | | Action Spare6_Action 04b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ba 00ea | | Load_Encached Null_String_Cache 04bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c7 | | .CONST 0x04c7 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0002 | | .CONST 0x0002 ; Number of locals 04c3 INIT_04c0: 04c3 e006 | | Load 0x0,0x6 04c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04c5 e230 | 0 | Load 0x1,0x30 04c6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04c7 BODY_04c0: 04c7 00d8 | | Load_Top At_Offset_0 04c8 e22d | - | Load 0x1,0x2d 04c9 021e | | Execute Heap_Access,Maximum 04ca 6807 |h | Jump_Zero 0x4d2 04cb 00d8 | | Load_Top At_Offset_0 04cc 0217 | | Execute Heap_Access,All_Reference 04cd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04ce 0217 | | Execute Heap_Access,All_Reference 04cf 0335 | 5 | Declare_Variable Array,Duplicate 04d0 00cd | | Action Spare6_Action 04d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04d2 00ea | | Load_Encached Null_String_Cache 04d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04d4 0000 0000 | | .BLANK 0000[0x4] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04df | | .CONST 0x04df ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0002 | | .CONST 0x0002 ; Number of locals 04db INIT_04d8: 04db e006 | | Load 0x0,0x6 04dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04dd e230 | 0 | Load 0x1,0x30 04de 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04df BODY_04d8: 04df 00d8 | | Load_Top At_Offset_0 04e0 e22d | - | Load 0x1,0x2d 04e1 021e | | Execute Heap_Access,Maximum 04e2 6807 |h | Jump_Zero 0x4ea 04e3 00d8 | | Load_Top At_Offset_0 04e4 0217 | | Execute Heap_Access,All_Reference 04e5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04e6 0217 | | Execute Heap_Access,All_Reference 04e7 0335 | 5 | Declare_Variable Array,Duplicate 04e8 00cd | | Action Spare6_Action 04e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ea 00ea | | Load_Encached Null_String_Cache 04eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ec 0000 0000 | | .BLANK 0000[0x4] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04fd | | .CONST 0x04fd ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0002 | | .CONST 0x0002 ; Number of locals 04f3 INIT_04f0: 04f3 e007 | | Load 0x0,0x7 04f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04f6 02c7 | | Declare_Variable Any 04f7 e5ff | | Load 0x2,-0x1 04f8 8231 | 1 | Call 0x1,0x31 04f9 e007 | | Load 0x0,0x7 04fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04fc a602 | | Store_Unchecked 0x3,0x2 04fd BODY_04f0: 04fd e5ff | | Load 0x2,-0x1 04fe e00d | | Load 0x0,0xd 04ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0500 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0501 e012 | | Load 0x0,0x12 0502 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0503 e5fe | | Load 0x2,-0x2 0504 00da | | Load_Top At_Offset_2 0505 8237 | 7 | Call 0x1,0x37 0506 00cb | | Action Pop_Block_With_Result 0507 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 051b | | .CONST 0x051b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0002 | | .CONST 0x0002 ; Number of locals 050b INIT_0508: 050b e007 | | Load 0x0,0x7 050c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050e 02c7 | | Declare_Variable Any 050f 4801 |H | Short_Literal 0x1 0510 e007 | | Load 0x0,0x7 0511 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0512 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0513 e5ff | | Load 0x2,-0x1 0514 e007 | | Load 0x0,0x7 0515 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0516 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0517 e007 | | Load 0x0,0x7 0518 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0519 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 051a a602 | | Store_Unchecked 0x3,0x2 051b BODY_0508: 051b e5ff | | Load 0x2,-0x1 051c e007 | | Load 0x0,0x7 051d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 051e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 051f e012 | | Load 0x0,0x12 0520 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0521 e5fe | | Load 0x2,-0x2 0522 00da | | Load_Top At_Offset_2 0523 8237 | 7 | Call 0x1,0x37 0524 00cb | | Action Pop_Block_With_Result 0525 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0526 0000 0000 | | .XXX[0x2] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0535 | 5 | .CONST 0x0535 ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0002 | | .CONST 0x0002 ; Number of locals 052b INIT_0528: 052b e007 | | Load 0x0,0x7 052c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052e 02c7 | | Declare_Variable Any 052f e5ff | | Load 0x2,-0x1 0530 8231 | 1 | Call 0x1,0x31 0531 e007 | | Load 0x0,0x7 0532 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0533 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0534 a602 | | Store_Unchecked 0x3,0x2 0535 BODY_0528: 0535 e5ff | | Load 0x2,-0x1 0536 e00d | | Load 0x0,0xd 0537 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0538 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0539 e5fe | | Load 0x2,-0x2 053a 00da | | Load_Top At_Offset_2 053b 8233 | 3 | Call 0x1,0x33 053c 00cb | | Action Pop_Block_With_Result 053d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 053e 0000 0000 | | .XXX[0x2] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0553 | S | .CONST 0x0553 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0002 | | .CONST 0x0002 ; Number of locals 0543 INIT_0540: 0543 e007 | | Load 0x0,0x7 0544 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0545 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0546 02c7 | | Declare_Variable Any 0547 4801 |H | Short_Literal 0x1 0548 e007 | | Load 0x0,0x7 0549 1b0e | | Execute Package,Field_Read,Field_Number 0xe 054a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 054b e5ff | | Load 0x2,-0x1 054c e007 | | Load 0x0,0x7 054d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 054e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 054f e007 | | Load 0x0,0x7 0550 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0551 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0552 a602 | | Store_Unchecked 0x3,0x2 0553 BODY_0540: 0553 e5ff | | Load 0x2,-0x1 0554 e007 | | Load 0x0,0x7 0555 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0556 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0557 e5fe | | Load 0x2,-0x2 0558 00da | | Load_Top At_Offset_2 0559 8233 | 3 | Call 0x1,0x33 055a 00cb | | Action Pop_Block_With_Result 055b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 055c 0000 0000 | | .BLANK 0000[0x4] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 00da | | Load_Top At_Offset_2 0564 0f00 | | Execute_Immediate Equal,0x0 0565 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0566 0000 0000 | | .XXX[0x2] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 00da | | Load_Top At_Offset_2 056c e00d | | Load 0x0,0xd 056d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 056e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 056f 0092 06de | | Action Push_String_Extended,0x6de ; "_Switches" 0571 01cc | | Execute Vector,Catenate 0572 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0573 0000 0000 | | .BLANK 0000[0x5] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b 00da | | Load_Top At_Offset_2 057c e00d | | Load 0x0,0xd 057d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 057e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 057f e00d | | Load 0x0,0xd 0580 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0581 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0582 0092 06df | | Action Push_String_Extended,0x6df ; ".S_1_Switches" 0584 01cc | | Execute Vector,Catenate 0585 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0586 0000 0000 | | .XXX[0x2] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0592 | | .CONST 0x0592 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b e00d | | Load 0x0,0xd 058c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 058d 02ff | | Declare_Variable Variant_Record 058e 00d8 | | Load_Top At_Offset_0 058f 1c00 | | Execute_Immediate Run_Utility,0x0 0590 029f 068b | | Declare_Subprogram INIT_0688,For_Call 0592 BODY_0588: 0592 e402 | | Load 0x2,0x2 0593 e007 | | Load 0x0,0x7 0594 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0595 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0596 c403 | | Store 0x2,0x3 0597 e00d | | Load 0x0,0xd 0598 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0599 00da | | Load_Top At_Offset_2 059a 600d |` | Indirect_Literal Discrete,0x5a8,{0x00000000, 0x00004000} 059b e00e | | Load 0x0,0xe 059c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 059d e403 | | Load 0x2,0x3 059e e007 | | Load 0x0,0x7 059f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a0 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 05a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05a2 00d1 | | Pop_Control Pop_Count_1 05a3 c405 | | Store 0x2,0x5 05a4 e405 | | Load 0x2,0x5 05a5 7001 |p | Jump_Nonzero 0x5a7 05a6 8603 | | Call 0x3,0x3 05a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 05ac 0000 0000 | | .BLANK 0000[0x4] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05ca | | .CONST 0x05ca ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0006 | | .CONST 0x0006 ; Number of locals 05b3 INIT_05b0: 05b3 00da | | Load_Top At_Offset_2 05b4 01dd | | Execute Vector,First 05b5 00db | | Load_Top At_Offset_3 05b6 01dc | | Execute Vector,Last 05b7 00e9 | | Load_Encached String_Cache 05b8 035b | [ | Declare_Type Array,Constrained 05b9 0337 | 7 | Declare_Variable Array 05ba 00db | | Load_Top At_Offset_3 05bb 00d9 | | Load_Top At_Offset_1 05bc 01d4 | | Execute Vector,Structure_Write 05bd 00d8 | | Load_Top At_Offset_0 05be 01dd | | Execute Vector,First 05bf 00e2 | | Load_Encached Integer_Cache 05c0 03f1 | | Declare_Variable Discrete,With_Value 05c1 00d9 | | Load_Top At_Offset_1 05c2 01dc | | Execute Vector,Last 05c3 00e2 | | Load_Encached Integer_Cache 05c4 03f1 | | Declare_Variable Discrete,With_Value 05c5 e5fe | | Load 0x2,-0x2 05c6 e013 | | Load 0x0,0x13 05c7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 05c8 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call 05ca BODY_05b0: 05ca 8606 | | Call 0x3,0x6 05cb 6841 |hA | Jump_Zero 0x60d 05cc 4801 |H | Short_Literal 0x1 05cd 0092 06e0 | | Action Push_String_Extended,0x6e0 ; "rev" 05cf e603 | | Load 0x3,0x3 05d0 00d8 | | Load_Top At_Offset_0 05d1 0a02 | | Execute_Immediate Plus,0x2 05d2 00d8 | | Load_Top At_Offset_0 05d3 00e2 | | Load_Encached Integer_Cache 05d4 0260 | ` | Execute Discrete,In_Type 05d5 7001 |p | Jump_Nonzero 0x5d7 05d6 0801 | | Execute_Immediate Raise,0x1 05d7 e602 | | Load 0x3,0x2 05d8 01cf | | Execute Vector,Slice_Read 05d9 e012 | | Load 0x0,0x12 05da 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05db 680a |h | Jump_Zero 0x5e6 05dc 00db | | Load_Top At_Offset_3 05dd e602 | | Load 0x3,0x2 05de 01d7 | | Execute Vector,Field_Read 05df e603 | | Load 0x3,0x3 05e0 0a02 | | Execute_Immediate Plus,0x2 05e1 e602 | | Load 0x3,0x2 05e2 01d6 | | Execute Vector,Field_Write 05e3 00db | | Load_Top At_Offset_3 05e4 0a02 | | Execute_Immediate Plus,0x2 05e5 c603 | | Store 0x3,0x3 05e6 00da | | Load_Top At_Offset_2 05e7 e603 | | Load 0x3,0x3 05e8 0272 | r | Execute Discrete,Minus 05e9 0c08 | | Execute_Immediate Greater_Equal,0x8 05ea 6813 |h | Jump_Zero 0x5fe 05eb 4801 |H | Short_Literal 0x1 05ec 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "_working" 05ee e604 | | Load 0x3,0x4 05ef 0af9 | | Execute_Immediate Plus,-0x7 05f0 00d8 | | Load_Top At_Offset_0 05f1 00e2 | | Load_Encached Integer_Cache 05f2 0260 | ` | Execute Discrete,In_Type 05f3 7001 |p | Jump_Nonzero 0x5f5 05f4 0801 | | Execute_Immediate Raise,0x1 05f5 e604 | | Load 0x3,0x4 05f6 e602 | | Load 0x3,0x2 05f7 01cf | | Execute Vector,Slice_Read 05f8 e012 | | Load 0x0,0x12 05f9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05fa 6803 |h | Jump_Zero 0x5fe 05fb 00da | | Load_Top At_Offset_2 05fc 0af8 | | Execute_Immediate Plus,-0x8 05fd 005b | [ | Store_Top Discrete,At_Offset_3 05fe 8606 | | Call 0x3,0x6 05ff 680d |h | Jump_Zero 0x60d 0600 00db | | Load_Top At_Offset_3 0601 00da | | Load_Top At_Offset_2 0602 0273 | s | Execute Discrete,Plus 0603 0aff | | Execute_Immediate Plus,-0x1 0604 005b | [ | Store_Top Discrete,At_Offset_3 0605 00da | | Load_Top At_Offset_2 0606 e602 | | Load 0x3,0x2 0607 01d7 | | Execute Vector,Field_Read 0608 0f5f | _ | Execute_Immediate Equal,0x5f 0609 6803 |h | Jump_Zero 0x60d 060a 00da | | Load_Top At_Offset_2 060b 0aff | | Execute_Immediate Plus,-0x1 060c 005b | [ | Store_Top Discrete,At_Offset_3 060d 00db | | Load_Top At_Offset_3 060e 00db | | Load_Top At_Offset_3 060f e602 | | Load 0x3,0x2 0610 01cf | | Execute Vector,Slice_Read 0611 00e9 | | Load_Encached String_Cache 0612 01c6 | | Execute Vector,Convert_To_Formal 0613 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0614 0000 0000 | | .BLANK 0000[0x4] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 0622 | " | .CONST 0x0622 ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0003 | | .CONST 0x0003 ; Number of locals 061b INIT_0618: 061b e00d | | Load 0x0,0xd 061c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 061d 02ff | | Declare_Variable Variant_Record 061e 00d8 | | Load_Top At_Offset_0 061f 1c00 | | Execute_Immediate Run_Utility,0x0 0620 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call 0622 BODY_0618: 0622 e402 | | Load 0x2,0x2 0623 e007 | | Load 0x0,0x7 0624 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0625 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0626 c403 | | Store 0x2,0x3 0627 e00d | | Load 0x0,0xd 0628 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0629 00da | | Load_Top At_Offset_2 062a 600d |` | Indirect_Literal Discrete,0x638,{0x00000000, 0x00004000} 062b e00e | | Load 0x0,0xe 062c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 062d e403 | | Load 0x2,0x3 062e e007 | | Load 0x0,0x7 062f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0630 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0631 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0632 00d1 | | Pop_Control Pop_Count_1 0633 c407 | | Store 0x2,0x7 0634 e407 | | Load 0x2,0x7 0635 7001 |p | Jump_Nonzero 0x637 0636 8603 | | Call 0x3,0x3 0637 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0638 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 063c 0000 0000 | | .BLANK 0000[0x4] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0650 | P | .CONST 0x0650 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0002 | | .CONST 0x0002 ; Number of locals 0643 INIT_0640: 0643 4801 |H | Short_Literal 0x1 0644 e010 | | Load 0x0,0x10 0645 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0646 e011 | | Load 0x0,0x11 0647 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0648 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0649 8232 | 2 | Call 0x1,0x32 064a e404 | | Load 0x2,0x4 064b e009 | | Load 0x0,0x9 064c 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 064d 01cc | | Execute Vector,Catenate 064e e009 | | Load 0x0,0x9 064f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0650 BODY_0640: 0650 00d8 | | Load_Top At_Offset_0 0651 01db | | Execute Vector,Length 0652 7003 |p | Jump_Nonzero 0x656 0653 00d8 | | Load_Top At_Offset_0 0654 00cb | | Action Pop_Block_With_Result 0655 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0656 e408 | | Load 0x2,0x8 0657 e405 | | Load 0x2,0x5 0658 00da | | Load_Top At_Offset_2 0659 e402 | | Load 0x2,0x2 065a 8236 | 6 | Call 0x1,0x36 065b 00cb | | Action Pop_Block_With_Result 065c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 065d 0000 0000 | | .XXX[0x3] 065f 0000 | | 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 066a | j | .CONST 0x066a ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0003 | | .CONST 0x0003 ; Number of locals 0663 INIT_0660: 0663 e00d | | Load 0x0,0xd 0664 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0665 02ff | | Declare_Variable Variant_Record 0666 00d8 | | Load_Top At_Offset_0 0667 1c00 | | Execute_Immediate Run_Utility,0x0 0668 029f 06cb | | Declare_Subprogram INIT_06c8,For_Call 066a BODY_0660: 066a e404 | | Load 0x2,0x4 066b e007 | | Load 0x0,0x7 066c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 066d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 066e c402 | | Store 0x2,0x2 066f e00d | | Load 0x0,0xd 0670 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0671 00da | | Load_Top At_Offset_2 0672 600d |` | Indirect_Literal Discrete,0x680,{0x00000000, 0x00004000} 0673 e00e | | Load 0x0,0xe 0674 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0675 e402 | | Load 0x2,0x2 0676 e007 | | Load 0x0,0x7 0677 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0678 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0679 1811 | | Execute Package,Field_Execute,Field_Number 0x11 067a 00d1 | | Pop_Control Pop_Count_1 067b c403 | | Store 0x2,0x3 067c 8603 | | Call 0x3,0x3 067d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 067e 0000 0000 | | .XXX[0x2] 0680 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0684 0000 0000 | | .BLANK 0000[0x4] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 0693 | | .CONST 0x0693 ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0002 | | .CONST 0x0002 ; Number of locals 068b INIT_0688: 068b 4800 |H | Short_Literal 0x0 068c e602 | | Load 0x3,0x2 068d e404 | | Load 0x2,0x4 068e e009 | | Load 0x0,0x9 068f 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0690 01cc | | Execute Vector,Catenate 0691 e009 | | Load 0x0,0x9 0692 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0693 BODY_0688: 0693 00d8 | | Load_Top At_Offset_0 0694 01db | | Execute Vector,Length 0695 0c01 | | Execute_Immediate Greater_Equal,0x1 0696 6804 |h | Jump_Zero 0x69b 0697 00d8 | | Load_Top At_Offset_0 0698 00cb | | Action Pop_Block_With_Result 0699 00cb | | Action Pop_Block_With_Result 069a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 069b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 069c 0000 0000 | | .BLANK 0000[0x4] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a3 | | .CONST 0x06a3 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0001 | | .CONST 0x0001 ; Number of locals 06a3 BODY_06a0: 06a3 INIT_06a0: 06a3 e604 | | Load 0x3,0x4 06a4 e603 | | Load 0x3,0x3 06a5 0272 | r | Execute Discrete,Minus 06a6 0a01 | | Execute_Immediate Plus,0x1 06a7 e605 | | Load 0x3,0x5 06a8 027d | } | Execute Discrete,Greater 06a9 00ca | | Action Exit_Nullary_Function 06aa 0000 0000 | | .BLANK 0000[0x6] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06bb | | .CONST 0x06bb ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0002 | | .CONST 0x0002 ; Number of locals 06b3 INIT_06b0: 06b3 4800 |H | Short_Literal 0x0 06b4 e602 | | Load 0x3,0x2 06b5 e404 | | Load 0x2,0x4 06b6 e009 | | Load 0x0,0x9 06b7 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 06b8 01cc | | Execute Vector,Catenate 06b9 e009 | | Load 0x0,0x9 06ba 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 06bb BODY_06b0: 06bb 00d8 | | Load_Top At_Offset_0 06bc 01db | | Execute Vector,Length 06bd 0c01 | | Execute_Immediate Greater_Equal,0x1 06be 6808 |h | Jump_Zero 0x6c7 06bf e408 | | Load 0x2,0x8 06c0 e405 | | Load 0x2,0x5 06c1 00da | | Load_Top At_Offset_2 06c2 e402 | | Load 0x2,0x2 06c3 8236 | 6 | Call 0x1,0x36 06c4 00cb | | Action Pop_Block_With_Result 06c5 00cb | | Action Pop_Block_With_Result 06c6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 06c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06d0 | | .CONST 0x06d0 ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0002 | | .CONST 0x0002 ; Number of locals 06cb INIT_06c8: 06cb 4800 |H | Short_Literal 0x0 06cc e602 | | Load 0x3,0x2 06cd e5ff | | Load 0x2,-0x1 06ce e009 | | Load 0x0,0x9 06cf 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 06d0 BODY_06c8: 06d0 00d8 | | Load_Top At_Offset_0 06d1 01db | | Execute Vector,Length 06d2 0c01 | | Execute_Immediate Greater_Equal,0x1 06d3 6803 |h | Jump_Zero 0x6d7 06d4 00cc | | Action Pop_Block 06d5 00cc | | Action Pop_Block 06d6 7db0 |} | Jump 0x487 06d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; STRING TABLE 06d8 ; -------------------------------------------------------------------------------------- 06d8 0016 | | .STRTAB 0x0016->0x06e3 ; "RCI_Remote_Defaults" 06d9 0027 | ' | .STRTAB 0x0027->0x06ec ; "Rci." 06da 0029 | ) | .STRTAB 0x0029->0x06ee ; "Session_Rci." 06db 0033 | 3 | .STRTAB 0x0033->0x06f4 ; "\x22:=" 06dc 0034 | 4 | .STRTAB 0x0034->0x06f6 ; "<SESSION>" 06dd 003b | ; | .STRTAB 0x003b->0x06fa ; "." 06de 003a | : | .STRTAB 0x003a->0x06fb ; "_Switches" 06df 0041 | A | .STRTAB 0x0041->0x06ff ; ".S_1_Switches" 06e0 004c | L | .STRTAB 0x004c->0x0706 ; "rev" 06e1 004d | M | .STRTAB 0x004d->0x0707 ; "_working" 06e2 0053 | S | .STREND 0x0053->0x070b 06e3 5243 495f |RCI_| .STRTAB_STRINGS 070c 0000 0000 | | .BLANK 0000[0x4] 0710 ; -------------------------------------------------------------------------------------- 0710 ; Debug Table 0710 ; -------------------------------------------------------------------------------------- 0710 0004 000f | | .DEBUG4 0x0004,0x000f,0x2f61,0x0000,0x0001,0x0000 0716 0000 0000 | | .BLANK 0000[0xea]