|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_063cfc, seg_0694fc, seg_0a7cf5, seg_c7f0e2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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 03e0 | | .CONST 0x03e0 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x3a8, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 0086 | | .CONST 0x0086 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002b | + | .CONST 0x002b ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 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 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001c c21c | | Store 0x1,0x1c 001d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 001f c214 | | Store 0x1,0x14 0020 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0022 c21b | | Store 0x1,0x1b 0023 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0025 c216 | | Store 0x1,0x16 0026 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0028 c21d | | Store 0x1,0x1d 0029 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 002b c218 | | Store 0x1,0x18 002c 4800 |H | Short_Literal 0x0 002d 4805 |H | Short_Literal 0x5 002e 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0030 03fd | | Declare_Type Discrete,Defined 0031 c219 | | Store 0x1,0x19 0032 e219 | | Load 0x1,0x19 0033 4801 |H | Short_Literal 0x1 0034 e001 | | Load 0x0,0x1 0035 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0036 4801 |H | Short_Literal 0x1 0037 e002 | | Load 0x0,0x2 0038 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0039 4801 |H | Short_Literal 0x1 003a e003 | | Load 0x0,0x3 003b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 003c 4801 |H | Short_Literal 0x1 003d e004 | | Load 0x0,0x4 003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003f 4801 |H | Short_Literal 0x1 0040 00e1 | | Load_Encached Boolean_Cache 0041 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call 0043 4805 |H | Short_Literal 0x5 0044 4800 |H | Short_Literal 0x0 0045 4805 |H | Short_Literal 0x5 0046 4800 |H | Short_Literal 0x0 0047 4801 |H | Short_Literal 0x1 0048 031d | | Declare_Type Variant_Record,Defined 0049 c21a | | Store 0x1,0x1a 004a 00db | | Load_Top At_Offset_3 004b 029f 038b | | Declare_Subprogram INIT_0388,For_Call 004d e211 | | Load 0x1,0x11 004e 0326 | & | Complete_Type Record,By_Defining 004f 00bf | | Action Accept_Activation 0050 4801 |H | Short_Literal 0x1 0051 4900 |I | Short_Literal 0x100 0052 00e9 | | Load_Encached String_Cache 0053 035b | [ | Declare_Type Array,Constrained 0054 00d8 | | Load_Top At_Offset_0 0055 0337 | 7 | Declare_Variable Array 0056 00d9 | | Load_Top At_Offset_1 0057 0337 | 7 | Declare_Variable Array 0058 00e3 | | Load_Encached Natural_Cache 0059 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005a 00e3 | | Load_Encached Natural_Cache 005b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005c 4800 |H | Short_Literal 0x0 005d 0093 03a3 | | push_full_address INIT_03a0 005f 00f5 | | Load_Encached Unused21 0060 037d | } | Declare_Type Task,Defined 0061 036f | o | Declare_Variable Task 0062 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0063 00c7 | | Action Elaborate_Subprogram 0064 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0065 00c7 | | Action Elaborate_Subprogram 0066 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0067 00c7 | | Action Elaborate_Subprogram 0068 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0069 00c7 | | Action Elaborate_Subprogram 006a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 006b 00c7 | | Action Elaborate_Subprogram 006c 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call 006e 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call 0070 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0072 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 0074 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 0076 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 0078 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 007a 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 007c 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 007d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 007e 4802 |H | Short_Literal 0x2 007f e223 | # | Load 0x1,0x23 0080 020e | | Execute Module,Augment_Imports 0081 0007 | | Action Break_Optional 0082 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0083 00c7 | | Action Elaborate_Subprogram 0084 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0085 00c7 | | Action Elaborate_Subprogram 0086 BODY_0008: 0086 BODY_0008: 0086 00be | | Action Activate_Tasks 0087 00bc | | Action Signal_Activated 0088 00bb | | Action Signal_Completion 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4803 |H | Short_Literal 0x3 0094 e21a | | Load 0x1,0x1a 0095 1c08 | | Execute_Immediate Run_Utility,0x8 0096 00d8 | | Load_Top At_Offset_0 0097 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 0098 e5ff | | Load 0x2,-0x1 0099 00d9 | | Load_Top At_Offset_1 009a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009b e5fe | | Load 0x2,-0x2 009c e004 | | Load 0x0,0x4 009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009e 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 009f 0119 | | Execute Any,Check_In_Formal_Type 00a0 00d0 | | Action Swap_Control 00a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a2 e5fd | | Load 0x2,-0x3 00a3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a5 0000 0000 | | .XXX[0x3] 00a7 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4800 |H | Short_Literal 0x0 00ac e21a | | Load 0x1,0x1a 00ad 1c08 | | Execute_Immediate Run_Utility,0x8 00ae 00db | | Load_Top At_Offset_3 00af e21a | | Load 0x1,0x1a 00b0 2302 |# | Execute Variant_Record,Field_Type,Field_Number 0x2 00b1 0119 | | Execute Any,Check_In_Formal_Type 00b2 00d9 | | Load_Top At_Offset_1 00b3 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 00b4 e5fe | | Load 0x2,-0x2 00b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b7 0000 | | .XXX[0x1] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4801 |H | Short_Literal 0x1 00bc e21a | | Load 0x1,0x1a 00bd 1c08 | | Execute_Immediate Run_Utility,0x8 00be 00db | | Load_Top At_Offset_3 00bf e21a | | Load 0x1,0x1a 00c0 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3 00c1 0119 | | Execute Any,Check_In_Formal_Type 00c2 00d9 | | Load_Top At_Offset_1 00c3 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 00c4 e5fe | | Load 0x2,-0x2 00c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c7 0000 | | .XXX[0x1] 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 4802 |H | Short_Literal 0x2 00cc e21a | | Load 0x1,0x1a 00cd 1c08 | | Execute_Immediate Run_Utility,0x8 00ce 00d8 | | Load_Top At_Offset_0 00cf 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 00d0 e5ff | | Load 0x2,-0x1 00d1 e003 | | Load 0x0,0x3 00d2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d3 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00d4 0119 | | Execute Any,Check_In_Formal_Type 00d5 00d9 | | Load_Top At_Offset_1 00d6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d7 e5fe | | Load 0x2,-0x2 00d8 00d0 | | Action Swap_Control 00d9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00da e5fd | | Load 0x2,-0x3 00db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00dd 0000 0000 | | .XXX[0x3] 00df 0000 | | 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 e219 | | Load 0x1,0x19 00e4 0007 | | Action Break_Optional 00e5 BODY_00e0: 00e5 00db | | Load_Top At_Offset_3 00e6 680b |h | Jump_Zero 0xf2 00e7 4805 |H | Short_Literal 0x5 00e8 e21a | | Load 0x1,0x1a 00e9 1c08 | | Execute_Immediate Run_Utility,0x8 00ea e5ff | | Load 0x2,-0x1 00eb 00d9 | | Load_Top At_Offset_1 00ec 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 00ed e5fe | | Load 0x2,-0x2 00ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ef 4800 |H | Short_Literal 0x0 00f0 a222 | " | Store_Unchecked 0x1,0x22 00f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f2 4804 |H | Short_Literal 0x4 00f3 e21a | | Load 0x1,0x1a 00f4 1c08 | | Execute_Immediate Run_Utility,0x8 00f5 e5ff | | Load 0x2,-0x1 00f6 00d9 | | Load_Top At_Offset_1 00f7 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 00f8 e5fe | | Load 0x2,-0x2 00f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00fa 4800 |H | Short_Literal 0x0 00fb a221 | ! | Store_Unchecked 0x1,0x21 00fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00db | | Load_Top At_Offset_3 0104 00db | | Load_Top At_Offset_3 0105 4802 |H | Short_Literal 0x2 0106 e223 | # | Load 0x1,0x23 0107 170d | | Execute Task,Entry_Call,Field_Number 0xd 0108 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 4801 |H | Short_Literal 0x1 0115 e223 | # | Load 0x1,0x23 0116 170e | | Execute Task,Entry_Call,Field_Number 0xe 0117 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4607 |F | Jump_Case 0x8 011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 011d 7806 |x | Jump 0x124 ; case 0x1 011e 7809 |x | Jump 0x128 ; case 0x2 011f 780d |x | Jump 0x12d ; case 0x3 0120 7810 |x | Jump 0x131 ; case 0x4 0121 7811 |x | Jump 0x133 ; case 0x5 0122 7812 |x | Jump 0x135 ; case 0x6 0123 7815 |x | Jump 0x139 ; case 0x7 0124 00da | | Load_Top At_Offset_2 0125 0091 03c7 | | Action Push_String_Extended_Indexed,0x3c7 ; "FILE" 0127 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0128 00db | | Load_Top At_Offset_3 0129 00db | | Load_Top At_Offset_3 012a 00e0 | | Load_Encached Standard_Cache 012b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012d 00da | | Load_Top At_Offset_2 012e 00e0 | | Load_Encached Standard_Cache 012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0131 00db | | Load_Top At_Offset_3 0132 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0133 00db | | Load_Top At_Offset_3 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 e219 | | Load 0x1,0x19 0136 00dc | | Load_Top At_Offset_4 0137 0267 | g | Execute Discrete,Predecessor 0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0139 e219 | | Load 0x1,0x19 013a 00dc | | Load_Top At_Offset_4 013b 0268 | h | Execute Discrete,Successor 013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 e221 | ! | Load 0x1,0x21 0144 0c01 | | Execute_Immediate Greater_Equal,0x1 0145 6807 |h | Jump_Zero 0x14d 0146 4801 |H | Short_Literal 0x1 0147 e221 | ! | Load 0x1,0x21 0148 e21f | | Load 0x1,0x1f 0149 01cf | | Execute Vector,Slice_Read 014a 820f | | Call 0x1,0xf 014b 4800 |H | Short_Literal 0x0 014c a221 | ! | Store_Unchecked 0x1,0x21 014d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e222 | " | Load 0x1,0x22 0154 0c01 | | Execute_Immediate Greater_Equal,0x1 0155 6807 |h | Jump_Zero 0x15d 0156 4801 |H | Short_Literal 0x1 0157 e222 | " | Load 0x1,0x22 0158 e220 | | Load 0x1,0x20 0159 01cf | | Execute Vector,Slice_Read 015a 8210 | | Call 0x1,0x10 015b 4800 |H | Short_Literal 0x0 015c a222 | " | Store_Unchecked 0x1,0x22 015d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 01db | | Execute Vector,Length 0165 e221 | ! | Load 0x1,0x21 0166 0273 | s | Execute Discrete,Plus 0167 4900 |I | Short_Literal 0x100 0168 027a | z | Execute Discrete,Less_Equal 0169 6819 |h | Jump_Zero 0x183 016a 00da | | Load_Top At_Offset_2 016b e221 | ! | Load 0x1,0x21 016c 0a01 | | Execute_Immediate Plus,0x1 016d 00d8 | | Load_Top At_Offset_0 016e 00e2 | | Load_Encached Integer_Cache 016f 0260 | ` | Execute Discrete,In_Type 0170 7001 |p | Jump_Nonzero 0x172 0171 0801 | | Execute_Immediate Raise,0x1 0172 e221 | ! | Load 0x1,0x21 0173 e5ff | | Load 0x2,-0x1 0174 01db | | Execute Vector,Length 0175 0273 | s | Execute Discrete,Plus 0176 00d8 | | Load_Top At_Offset_0 0177 00e2 | | Load_Encached Integer_Cache 0178 0260 | ` | Execute Discrete,In_Type 0179 7001 |p | Jump_Nonzero 0x17b 017a 0801 | | Execute_Immediate Raise,0x1 017b e21f | | Load 0x1,0x1f 017c 01ce | | Execute Vector,Slice_Write 017d e221 | ! | Load 0x1,0x21 017e 00db | | Load_Top At_Offset_3 017f 01db | | Execute Vector,Length 0180 0273 | s | Execute Discrete,Plus 0181 c221 | ! | Store 0x1,0x21 0182 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0183 00da | | Load_Top At_Offset_2 0184 01dd | | Execute Vector,First 0185 00db | | Load_Top At_Offset_3 0186 01dd | | Execute Vector,First 0187 4900 |I | Short_Literal 0x100 0188 0273 | s | Execute Discrete,Plus 0189 e221 | ! | Load 0x1,0x21 018a 0272 | r | Execute Discrete,Minus 018b 0aff | | Execute_Immediate Plus,-0x1 018c 00d8 | | Load_Top At_Offset_0 018d 00e2 | | Load_Encached Integer_Cache 018e 0260 | ` | Execute Discrete,In_Type 018f 7001 |p | Jump_Nonzero 0x191 0190 0801 | | Execute_Immediate Raise,0x1 0191 e5ff | | Load 0x2,-0x1 0192 01cf | | Execute Vector,Slice_Read 0193 e221 | ! | Load 0x1,0x21 0194 0a01 | | Execute_Immediate Plus,0x1 0195 00d8 | | Load_Top At_Offset_0 0196 00e2 | | Load_Encached Integer_Cache 0197 0260 | ` | Execute Discrete,In_Type 0198 7001 |p | Jump_Nonzero 0x19a 0199 0801 | | Execute_Immediate Raise,0x1 019a 4900 |I | Short_Literal 0x100 019b e21f | | Load 0x1,0x1f 019c 01ce | | Execute Vector,Slice_Write 019d 4900 |I | Short_Literal 0x100 019e a221 | ! | Store_Unchecked 0x1,0x21 019f 8224 | $ | Call 0x1,0x24 01a0 00da | | Load_Top At_Offset_2 01a1 01dd | | Execute Vector,First 01a2 4900 |I | Short_Literal 0x100 01a3 0273 | s | Execute Discrete,Plus 01a4 e221 | ! | Load 0x1,0x21 01a5 0272 | r | Execute Discrete,Minus 01a6 00d8 | | Load_Top At_Offset_0 01a7 00e2 | | Load_Encached Integer_Cache 01a8 0260 | ` | Execute Discrete,In_Type 01a9 7001 |p | Jump_Nonzero 0x1ab 01aa 0801 | | Execute_Immediate Raise,0x1 01ab 00db | | Load_Top At_Offset_3 01ac 01dc | | Execute Vector,Last 01ad e5ff | | Load 0x2,-0x1 01ae 01cf | | Execute Vector,Slice_Read 01af 8226 | & | Call 0x1,0x26 01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 01db | | Execute Vector,Length 01bd e222 | " | Load 0x1,0x22 01be 0273 | s | Execute Discrete,Plus 01bf 4900 |I | Short_Literal 0x100 01c0 027a | z | Execute Discrete,Less_Equal 01c1 6819 |h | Jump_Zero 0x1db 01c2 00da | | Load_Top At_Offset_2 01c3 e222 | " | Load 0x1,0x22 01c4 0a01 | | Execute_Immediate Plus,0x1 01c5 00d8 | | Load_Top At_Offset_0 01c6 00e2 | | Load_Encached Integer_Cache 01c7 0260 | ` | Execute Discrete,In_Type 01c8 7001 |p | Jump_Nonzero 0x1ca 01c9 0801 | | Execute_Immediate Raise,0x1 01ca e222 | " | Load 0x1,0x22 01cb e5ff | | Load 0x2,-0x1 01cc 01db | | Execute Vector,Length 01cd 0273 | s | Execute Discrete,Plus 01ce 00d8 | | Load_Top At_Offset_0 01cf 00e2 | | Load_Encached Integer_Cache 01d0 0260 | ` | Execute Discrete,In_Type 01d1 7001 |p | Jump_Nonzero 0x1d3 01d2 0801 | | Execute_Immediate Raise,0x1 01d3 e220 | | Load 0x1,0x20 01d4 01ce | | Execute Vector,Slice_Write 01d5 e222 | " | Load 0x1,0x22 01d6 00db | | Load_Top At_Offset_3 01d7 01db | | Execute Vector,Length 01d8 0273 | s | Execute Discrete,Plus 01d9 c222 | " | Store 0x1,0x22 01da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01db 00da | | Load_Top At_Offset_2 01dc 01dd | | Execute Vector,First 01dd 00db | | Load_Top At_Offset_3 01de 01dd | | Execute Vector,First 01df 4900 |I | Short_Literal 0x100 01e0 0273 | s | Execute Discrete,Plus 01e1 e222 | " | Load 0x1,0x22 01e2 0272 | r | Execute Discrete,Minus 01e3 0aff | | Execute_Immediate Plus,-0x1 01e4 00d8 | | Load_Top At_Offset_0 01e5 00e2 | | Load_Encached Integer_Cache 01e6 0260 | ` | Execute Discrete,In_Type 01e7 7001 |p | Jump_Nonzero 0x1e9 01e8 0801 | | Execute_Immediate Raise,0x1 01e9 e5ff | | Load 0x2,-0x1 01ea 01cf | | Execute Vector,Slice_Read 01eb e222 | " | Load 0x1,0x22 01ec 0a01 | | Execute_Immediate Plus,0x1 01ed 00d8 | | Load_Top At_Offset_0 01ee 00e2 | | Load_Encached Integer_Cache 01ef 0260 | ` | Execute Discrete,In_Type 01f0 7001 |p | Jump_Nonzero 0x1f2 01f1 0801 | | Execute_Immediate Raise,0x1 01f2 4900 |I | Short_Literal 0x100 01f3 e220 | | Load 0x1,0x20 01f4 01ce | | Execute Vector,Slice_Write 01f5 4900 |I | Short_Literal 0x100 01f6 a222 | " | Store_Unchecked 0x1,0x22 01f7 8225 | % | Call 0x1,0x25 01f8 00da | | Load_Top At_Offset_2 01f9 01dd | | Execute Vector,First 01fa 4900 |I | Short_Literal 0x100 01fb 0273 | s | Execute Discrete,Plus 01fc e222 | " | Load 0x1,0x22 01fd 0272 | r | Execute Discrete,Minus 01fe 00d8 | | Load_Top At_Offset_0 01ff 00e2 | | Load_Encached Integer_Cache 0200 0260 | ` | Execute Discrete,In_Type 0201 7001 |p | Jump_Nonzero 0x203 0202 0801 | | Execute_Immediate Raise,0x1 0203 00db | | Load_Top At_Offset_3 0204 01dc | | Execute Vector,Last 0205 e5ff | | Load 0x2,-0x1 0206 01cf | | Execute Vector,Slice_Read 0207 8227 | ' | Call 0x1,0x27 0208 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00db | | Load_Top At_Offset_3 0214 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0215 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0216 4605 |F | Jump_Case 0x6 0217 780a |x | Jump 0x222 ; case 0x0 0218 7814 |x | Jump 0x22d ; case 0x1 0219 7820 |x | Jump 0x23a ; case 0x2 021a 782e |x. | Jump 0x249 ; case 0x3 021b 783c |x< | Jump 0x258 ; case 0x4 021c 7800 |x | Jump 0x21d ; case 0x5 021d 00da | | Load_Top At_Offset_2 021e e005 | | Load 0x0,0x5 021f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0220 8227 | ' | Call 0x1,0x27 0221 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0222 00db | | Load_Top At_Offset_3 0223 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0224 00d8 | | Load_Top At_Offset_0 0225 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0226 e5ff | | Load 0x2,-0x1 0227 e001 | | Load 0x0,0x1 0228 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0229 00d9 | | Load_Top At_Offset_1 022a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 022b 00d1 | | Pop_Control Pop_Count_1 022c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 022d 00db | | Load_Top At_Offset_3 022e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 022f 00d8 | | Load_Top At_Offset_0 0230 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0231 e5ff | | Load 0x2,-0x1 0232 e005 | | Load 0x0,0x5 0233 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0234 e002 | | Load 0x0,0x2 0235 180f | | Execute Package,Field_Execute,Field_Number 0xf 0236 00d9 | | Load_Top At_Offset_1 0237 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0238 00d1 | | Pop_Control Pop_Count_1 0239 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023a 00db | | Load_Top At_Offset_3 023b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023c 00d8 | | Load_Top At_Offset_0 023d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 023e 00d8 | | Load_Top At_Offset_0 023f 00d8 | | Load_Top At_Offset_0 0240 e5ff | | Load 0x2,-0x1 0241 e005 | | Load 0x0,0x5 0242 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0243 e003 | | Load 0x0,0x3 0244 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0245 00d2 | | Pop_Control Pop_Count_2 0246 00d0 | | Action Swap_Control 0247 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0248 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0249 00db | | Load_Top At_Offset_3 024a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 024b 00d8 | | Load_Top At_Offset_0 024c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 024d 00d8 | | Load_Top At_Offset_0 024e 00d8 | | Load_Top At_Offset_0 024f e5ff | | Load 0x2,-0x1 0250 e005 | | Load 0x0,0x5 0251 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0252 e004 | | Load 0x0,0x4 0253 180f | | Execute Package,Field_Execute,Field_Number 0xf 0254 00d2 | | Pop_Control Pop_Count_2 0255 00d0 | | Action Swap_Control 0256 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0257 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0258 00da | | Load_Top At_Offset_2 0259 e005 | | Load 0x0,0x5 025a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 025b 8226 | & | Call 0x1,0x26 025c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025d 0000 0000 | | .XXX[0x3] 025f 0000 | | 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00db | | Load_Top At_Offset_3 0264 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0265 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0266 4605 |F | Jump_Case 0x6 0267 780b |x | Jump 0x273 ; case 0x0 0268 7815 |x | Jump 0x27e ; case 0x1 0269 7821 |x! | Jump 0x28b ; case 0x2 026a 782f |x/ | Jump 0x29a ; case 0x3 026b 783d |x= | Jump 0x2a9 ; case 0x4 026c 7800 |x | Jump 0x26d ; case 0x5 026d 00da | | Load_Top At_Offset_2 026e e005 | | Load 0x0,0x5 026f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0270 8227 | ' | Call 0x1,0x27 0271 8225 | % | Call 0x1,0x25 0272 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0273 00db | | Load_Top At_Offset_3 0274 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0275 00d8 | | Load_Top At_Offset_0 0276 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0277 e5ff | | Load 0x2,-0x1 0278 e001 | | Load 0x0,0x1 0279 1812 | | Execute Package,Field_Execute,Field_Number 0x12 027a 00d9 | | Load_Top At_Offset_1 027b 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 027c 00d1 | | Pop_Control Pop_Count_1 027d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027e 00db | | Load_Top At_Offset_3 027f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0280 00d8 | | Load_Top At_Offset_0 0281 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0282 e5ff | | Load 0x2,-0x1 0283 e005 | | Load 0x0,0x5 0284 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0285 e002 | | Load 0x0,0x2 0286 180e | | Execute Package,Field_Execute,Field_Number 0xe 0287 00d9 | | Load_Top At_Offset_1 0288 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0289 00d1 | | Pop_Control Pop_Count_1 028a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 028b 00db | | Load_Top At_Offset_3 028c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 028d 00d8 | | Load_Top At_Offset_0 028e 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 028f 00d8 | | Load_Top At_Offset_0 0290 00d8 | | Load_Top At_Offset_0 0291 e5ff | | Load 0x2,-0x1 0292 e005 | | Load 0x0,0x5 0293 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0294 e003 | | Load 0x0,0x3 0295 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0296 00d2 | | Pop_Control Pop_Count_2 0297 00d0 | | Action Swap_Control 0298 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0299 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029a 00db | | Load_Top At_Offset_3 029b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 029c 00d8 | | Load_Top At_Offset_0 029d 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 029e 00d8 | | Load_Top At_Offset_0 029f 00d8 | | Load_Top At_Offset_0 02a0 e5ff | | Load 0x2,-0x1 02a1 e005 | | Load 0x0,0x5 02a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02a3 e004 | | Load 0x0,0x4 02a4 180e | | Execute Package,Field_Execute,Field_Number 0xe 02a5 00d2 | | Pop_Control Pop_Count_2 02a6 00d0 | | Action Swap_Control 02a7 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 02a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a9 00da | | Load_Top At_Offset_2 02aa e005 | | Load 0x0,0x5 02ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ac 8226 | & | Call 0x1,0x26 02ad 8224 | $ | Call 0x1,0x24 02ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b7 | | .CONST 0x02b7 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 01dd | | Execute Vector,First 02b5 00e3 | | Load_Encached Natural_Cache 02b6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02b7 BODY_02b0: 02b7 00cf | | Action Mark_Auxiliary 02b8 e5ff | | Load 0x2,-0x1 02b9 01dc | | Execute Vector,Last 02ba e5ff | | Load 0x2,-0x1 02bb 01dd | | Execute Vector,First 02bc 0263 | c | Execute Discrete,Above_Bound 02bd 7017 |p | Jump_Nonzero 0x2d5 02be 00d8 | | Load_Top At_Offset_0 02bf e5ff | | Load 0x2,-0x1 02c0 01d7 | | Execute Vector,Field_Read 02c1 0f0a | | Execute_Immediate Equal,0xa 02c2 6810 |h | Jump_Zero 0x2d3 02c3 e5fe | | Load 0x2,-0x2 02c4 e402 | | Load 0x2,0x2 02c5 00da | | Load_Top At_Offset_2 02c6 0aff | | Execute_Immediate Plus,-0x1 02c7 00d8 | | Load_Top At_Offset_0 02c8 00e2 | | Load_Encached Integer_Cache 02c9 0260 | ` | Execute Discrete,In_Type 02ca 7001 |p | Jump_Nonzero 0x2cc 02cb 0801 | | Execute_Immediate Raise,0x1 02cc e5ff | | Load 0x2,-0x1 02cd 01cf | | Execute Vector,Slice_Read 02ce 8229 | ) | Call 0x1,0x29 02cf 00d1 | | Pop_Control Pop_Count_1 02d0 00d8 | | Load_Top At_Offset_0 02d1 0a01 | | Execute_Immediate Plus,0x1 02d2 c402 | | Store 0x2,0x2 02d3 00c8 | | Action Pop_Auxiliary_Range 02d4 3fe9 |? | Loop_Increasing 0x2be 02d5 00ce | | Action Pop_Auxiliary 02d6 e5fe | | Load 0x2,-0x2 02d7 00d9 | | Load_Top At_Offset_1 02d8 e5ff | | Load 0x2,-0x1 02d9 01dc | | Execute Vector,Last 02da e5ff | | Load 0x2,-0x1 02db 01cf | | Execute Vector,Slice_Read 02dc 8228 | ( | Call 0x1,0x28 02dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02de 0000 0000 | | .XXX[0x2] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02e5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02e6 4605 |F | Jump_Case 0x6 02e7 7807 |x | Jump 0x2ef ; case 0x0 02e8 7810 |x | Jump 0x2f9 ; case 0x1 02e9 7819 |x | Jump 0x303 ; case 0x2 02ea 7824 |x$ | Jump 0x30f ; case 0x3 02eb 782f |x/ | Jump 0x31b ; case 0x4 02ec 7800 |x | Jump 0x2ed ; case 0x5 02ed 8225 | % | Call 0x1,0x25 02ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ef 00da | | Load_Top At_Offset_2 02f0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02f1 00d8 | | Load_Top At_Offset_0 02f2 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 02f3 e001 | | Load 0x0,0x1 02f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f5 00d9 | | Load_Top At_Offset_1 02f6 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 02f7 00d1 | | Pop_Control Pop_Count_1 02f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02f9 00da | | Load_Top At_Offset_2 02fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fb 00d8 | | Load_Top At_Offset_0 02fc 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 02fd e002 | | Load 0x0,0x2 02fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02ff 00d9 | | Load_Top At_Offset_1 0300 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0301 00d1 | | Pop_Control Pop_Count_1 0302 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0303 00da | | Load_Top At_Offset_2 0304 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0305 00d8 | | Load_Top At_Offset_0 0306 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0307 00d8 | | Load_Top At_Offset_0 0308 00d8 | | Load_Top At_Offset_0 0309 e003 | | Load 0x0,0x3 030a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 030b 00d2 | | Pop_Control Pop_Count_2 030c 00d0 | | Action Swap_Control 030d 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 030e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 030f 00da | | Load_Top At_Offset_2 0310 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0311 00d8 | | Load_Top At_Offset_0 0312 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0313 00d8 | | Load_Top At_Offset_0 0314 00d8 | | Load_Top At_Offset_0 0315 e004 | | Load 0x0,0x4 0316 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0317 00d2 | | Pop_Control Pop_Count_2 0318 00d0 | | Action Swap_Control 0319 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 031a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 031b 8224 | $ | Call 0x1,0x24 031c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 031d 0000 0000 | | .XXX[0x3] 031f 0000 | | 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 4608 |F | Jump_Case 0x9 0324 7808 |x | Jump 0x32d ; case 0x0 0325 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0326 785d |x] | Jump 0x384 ; case 0x2 0327 785c |x\ | Jump 0x384 ; case 0x3 0328 785b |x[ | Jump 0x384 ; case 0x4 0329 785a |xZ | Jump 0x384 ; case 0x5 032a 782b |x+ | Jump 0x356 ; case 0x6 032b 783c |x< | Jump 0x368 ; case 0x7 032c 7850 |xP | Jump 0x37d ; case 0x8 032d 00da | | Load_Top At_Offset_2 032e 016c | l | Execute Variant_Record,Is_Constrained 032f 7009 |p | Jump_Nonzero 0x339 0330 00cf | | Action Mark_Auxiliary 0331 4800 |H | Short_Literal 0x0 0332 e5ff | | Load 0x2,-0x1 0333 1c08 | | Execute_Immediate Run_Utility,0x8 0334 00d8 | | Load_Top At_Offset_0 0335 1c00 | | Execute_Immediate Run_Utility,0x0 0336 c5ff | | Store 0x2,-0x1 0337 00ce | | Action Pop_Auxiliary 0338 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0339 00da | | Load_Top At_Offset_2 033a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 033b 4605 |F | Jump_Case 0x6 033c 7805 |x | Jump 0x342 ; case 0x0 033d 780a |x | Jump 0x348 ; case 0x1 033e 780f |x | Jump 0x34e ; case 0x2 033f 7812 |x | Jump 0x352 ; case 0x3 0340 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0341 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0342 00da | | Load_Top At_Offset_2 0343 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0344 00da | | Load_Top At_Offset_2 0345 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0346 1c00 | | Execute_Immediate Run_Utility,0x0 0347 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0348 00da | | Load_Top At_Offset_2 0349 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3 034a 00da | | Load_Top At_Offset_2 034b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 034c 1c00 | | Execute_Immediate Run_Utility,0x0 034d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 034e 00da | | Load_Top At_Offset_2 034f 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0350 1c00 | | Execute_Immediate Run_Utility,0x0 0351 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0352 00da | | Load_Top At_Offset_2 0353 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 0354 1c00 | | Execute_Immediate Run_Utility,0x0 0355 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0356 00db | | Load_Top At_Offset_3 0357 4605 |F | Jump_Case 0x6 0358 7807 |x | Jump 0x360 ; case 0x0 0359 7808 |x | Jump 0x362 ; case 0x1 035a 7809 |x | Jump 0x364 ; case 0x2 035b 780a |x | Jump 0x366 ; case 0x3 035c 7801 |x | Jump 0x35e ; case 0x4 035d 7800 |x | Jump 0x35e ; case 0x5 035e 4805 |H | Short_Literal 0x5 035f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0360 4801 |H | Short_Literal 0x1 0361 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0362 4802 |H | Short_Literal 0x2 0363 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0364 4803 |H | Short_Literal 0x3 0365 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0366 4804 |H | Short_Literal 0x4 0367 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0368 00db | | Load_Top At_Offset_3 0369 e5fe | | Load 0x2,-0x2 036a 4605 |F | Jump_Case 0x6 036b 7807 |x | Jump 0x373 ; case 0x0 036c 7808 |x | Jump 0x375 ; case 0x1 036d 7809 |x | Jump 0x377 ; case 0x2 036e 780a |x | Jump 0x379 ; case 0x3 036f 7801 |x | Jump 0x371 ; case 0x4 0370 7800 |x | Jump 0x371 ; case 0x5 0371 4805 |H | Short_Literal 0x5 0372 7807 |x | Jump 0x37a 0373 4801 |H | Short_Literal 0x1 0374 7805 |x | Jump 0x37a 0375 4802 |H | Short_Literal 0x2 0376 7803 |x | Jump 0x37a 0377 4803 |H | Short_Literal 0x3 0378 7801 |x | Jump 0x37a 0379 4804 |H | Short_Literal 0x4 037a e5ff | | Load 0x2,-0x1 037b 031b | | Declare_Type Variant_Record,Constrained 037c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 037d 00db | | Load_Top At_Offset_3 037e e5fe | | Load 0x2,-0x2 037f e5ff | | Load 0x2,-0x1 0380 1c06 | | Execute_Immediate Run_Utility,0x6 0381 e5ff | | Load 0x2,-0x1 0382 02fc | | Declare_Variable Variant_Record,With_Constraint 0383 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0384 0869 | i | Execute_Immediate Raise,0x69 0385 0000 0000 | | .XXX[0x3] 0387 0000 | | 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 4608 |F | Jump_Case 0x9 038c 7808 |x | Jump 0x395 ; case 0x0 038d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 038e 780a |x | Jump 0x399 ; case 0x2 038f 7809 |x | Jump 0x399 ; case 0x3 0390 7808 |x | Jump 0x399 ; case 0x4 0391 7807 |x | Jump 0x399 ; case 0x5 0392 7806 |x | Jump 0x399 ; case 0x6 0393 7805 |x | Jump 0x399 ; case 0x7 0394 7804 |x | Jump 0x399 ; case 0x8 0395 00da | | Load_Top At_Offset_2 0396 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0397 1c00 | | Execute_Immediate Run_Utility,0x0 0398 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0399 0869 | i | Execute_Immediate Raise,0x69 039a 0000 0000 | | .BLANK 0000[0x6] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03b2 | | .CONST 0x03b2 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 000f | | .CONST 0x000f ; Number of locals 03a3 INIT_03a0: 03a3 4802 |H | Short_Literal 0x2 03a4 02cb | | Declare_Variable Entry 03a5 4801 |H | Short_Literal 0x1 03a6 02cb | | Declare_Variable Entry 03a7 00bf | | Action Accept_Activation 03a8 480e 4877 |H Hw| Declare_Variable Select 0x000, 0x002, 03aa 480d 4878 |H Hx| [0x000]: 0x001 = 0x0008, 03ac 4800 4801 |H H | [0x00d]: 0x078 = 0x03c0, 03ae 4800 4802 |H H | [0x00e]: 0x077 = 0x03b8 03b0 02cf | | 03b1 00bc | | Action Signal_Activated 03b2 BODY_03a0: 03b2 00cf | | Action Mark_Auxiliary 03b3 00d9 | | Load_Top At_Offset_1 03b4 013f | ? | Execute Select,Rendezvous 03b5 00d1 | | Pop_Control Pop_Count_1 03b6 00c9 | | Action Pop_Auxiliary_Loop 03b7 7ffb | | Jump 0x3b3 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; See instruction 0x02cf at 0x3a8, index=0xe 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 00db | | Load_Top At_Offset_3 03bc 8001 | | Call 0x0,0x1 03bd 4101 |A | End_Rendezvous 0x1 03be 0000 0000 | | .XXX[0x2] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; See instruction 0x02cf at 0x3a8, index=0xd 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 e5fd | | Load 0x2,-0x3 03c4 e5fe | | Load 0x2,-0x2 03c5 8002 | | Call 0x0,0x2 03c6 4101 |A | End_Rendezvous 0x1 03c7 ; -------------------------------------------------------------------------------------- 03c7 ; STRING TABLE 03c7 ; -------------------------------------------------------------------------------------- 03c7 000e | | .STRTAB 0x000e->0x03ce ; "FILE" 03c8 0010 | | .STRTAB 0x0010->0x03d0 ; "WINDOW" 03c9 0014 | | .STRTAB 0x0014->0x03d3 ; "VT100" 03ca 0017 | | .STRTAB 0x0017->0x03d5 ; "LOG" 03cb 0018 | | .STRTAB 0x0018->0x03d7 ; "USER" 03cc 001a | | .STRTAB 0x001a->0x03d9 ; "USER_ERROR" 03cd 0022 | " | .STREND 0x0022->0x03de 03ce 4649 4c45 |FILE| .STRTAB_STRINGS 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; Debug Table 03e0 ; -------------------------------------------------------------------------------------- 03e0 0004 000f | | .DEBUG4 0x0004,0x000f,0xa6fc,0x0000,0x0001,0x0000 03e6 0000 0000 | | .BLANK 0000[0x1a]