|
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_03b8fe
└─⟦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 0658 | X | .CONST 0x0658 ; 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 004e | N | .CONST 0x004e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0028 | ( | .CONST 0x0028 ; Number of locals 000b INIT_0008: 000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0011 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 001a 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 001c 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 001e 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call 0020 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0022 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 0024 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 0026 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 0028 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 002a 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 002c 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 002e 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0031 00c7 | | Action Elaborate_Subprogram 0032 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 0034 00e4 | | Load_Encached Positive_Cache 0035 0266 | f | Execute Discrete,Bounds 0036 e002 | | Load 0x0,0x2 0037 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 4801 |H | Short_Literal 0x1 003a 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 003b 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 003d a003 | | Store_Unchecked 0x0,0x3 003e 00c6 | | Action Check_Subprogram_Elaborated 003f e002 | | Load 0x0,0x2 0040 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 0041 00e4 | | Load_Encached Positive_Cache 0042 00db | | Load_Top At_Offset_3 0043 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0044 e004 | | Load 0x0,0x4 0045 e005 | | Load 0x0,0x5 0046 4800 |H | Short_Literal 0x0 0047 0007 | | Action Break_Optional 0048 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call 004a 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call 004c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004d 00c7 | | Action Elaborate_Subprogram 004e BODY_0008: 004e 00bc | | Action Signal_Activated 004f 00bb | | Action Signal_Completion 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 005d | ] | .CONST 0x005d ; Address of begin 0051 0096 | | .CONST 0x0096 ; Address of exception handler 0052 0004 | | .CONST 0x0004 ; Number of locals 0053 INIT_0050: 0053 e006 | | Load 0x0,0x6 0054 02c7 | | Declare_Variable Any 0055 00d8 | | Load_Top At_Offset_0 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 00e1 | | Load_Encached Boolean_Cache 0058 e007 | | Load 0x0,0x7 0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005a 02c7 | | Declare_Variable Any 005b 00d8 | | Load_Top At_Offset_0 005c 1c00 | | Execute_Immediate Run_Utility,0x0 005d BODY_0050: 005d 8008 | | Call 0x0,0x8 005e 6804 |h | Jump_Zero 0x63 005f 0092 0488 | | Action Push_String_Extended,0x488 ; "Program has terminated.\x0a" 0061 8009 | | Call 0x0,0x9 0062 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0063 00e1 | | Load_Encached Boolean_Cache 0064 00db | | Load_Top At_Offset_3 0065 0120 | | Execute Any,Is_Value 0066 6802 |h | Jump_Zero 0x69 0067 e006 | | Load 0x0,0x6 0068 7801 |x | Jump 0x6a 0069 00db | | Load_Top At_Offset_3 006a 4801 |H | Short_Literal 0x1 006b e5ff | | Load 0x2,-0x1 006c 800a | | Call 0x0,0xa 006d c402 | | Store 0x2,0x2 006e 005a | Z | Store_Top Discrete,At_Offset_2 006f 00d9 | | Load_Top At_Offset_1 0070 680e |h | Jump_Zero 0x7f 0071 e00b | | Load 0x0,0xb 0072 e00c | | Load 0x0,0xc 0073 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0074 c00b | | Store 0x0,0xb 0075 00d8 | | Load_Top At_Offset_0 0076 e5fd | | Load 0x2,-0x3 0077 e5fe | | Load 0x2,-0x2 0078 e402 | | Load 0x2,0x2 0079 800d | | Call 0x0,0xd 007a c404 | | Store 0x2,0x4 007b e00b | | Load 0x0,0xb 007c e00c | | Load 0x0,0xc 007d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 007e c00b | | Store 0x0,0xb 007f 4802 |H | Short_Literal 0x2 0080 00d9 | | Load_Top At_Offset_1 0081 e007 | | Load 0x0,0x7 0082 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0083 6811 |h | Jump_Zero 0x95 0084 480a |H | Short_Literal 0xa 0085 480a |H | Short_Literal 0xa 0086 0092 0489 | | Action Push_String_Extended,0x489 ; "The stack for task " 0088 e402 | | Load 0x2,0x2 0089 800e | | Call 0x0,0xe 008a 01cc | | Execute Vector,Catenate 008b 0092 048a | | Action Push_String_Extended,0x48a ; " could not be displayed:" 008d 01cc | | Execute Vector,Catenate 008e 01cb | | Execute Vector,Append 008f 00da | | Load_Top At_Offset_2 0090 e007 | | Load 0x0,0x7 0091 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0092 01cc | | Execute Vector,Catenate 0093 01cb | | Execute Vector,Append 0094 800f | | Call 0x0,0xf 0095 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0096 TRAP_0050: 0096 0007 | | Action Break_Optional 0097 480a |H | Short_Literal 0xa 0098 0092 048b | | Action Push_String_Extended,0x48b ; "Exception raised during command processing: " 009a e010 | | Load 0x0,0x10 009b 180d | | Execute Package,Field_Execute,Field_Number 0xd 009c 01cc | | Execute Vector,Catenate 009d 01cb | | Execute Vector,Append 009e 800f | | Call 0x0,0xf 009f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a8 | | .CONST 0x00a8 ; Address of begin 00a1 00ce | | .CONST 0x00ce ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 e006 | | Load 0x0,0x6 00a4 02c7 | | Declare_Variable Any 00a5 00d8 | | Load_Top At_Offset_0 00a6 1c00 | | Execute_Immediate Run_Utility,0x0 00a7 00e1 | | Load_Encached Boolean_Cache 00a8 BODY_00a0: 00a8 4801 |H | Short_Literal 0x1 00a9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00aa 4801 |H | Short_Literal 0x1 00ab 0092 048c | | Action Push_String_Extended,0x48c ; "all" 00ad e5ff | | Load 0x2,-0x1 00ae e011 | | Load 0x0,0x11 00af 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00b0 6803 |h | Jump_Zero 0xb4 00b1 8012 | | Call 0x0,0x12 00b2 c402 | | Store 0x2,0x2 00b3 780c |x | Jump 0xc0 00b4 00e1 | | Load_Encached Boolean_Cache 00b5 00da | | Load_Top At_Offset_2 00b6 0120 | | Execute Any,Is_Value 00b7 6802 |h | Jump_Zero 0xba 00b8 e006 | | Load 0x0,0x6 00b9 7801 |x | Jump 0xbb 00ba 00da | | Load_Top At_Offset_2 00bb 4800 |H | Short_Literal 0x0 00bc e5ff | | Load 0x2,-0x1 00bd 800a | | Call 0x0,0xa 00be c402 | | Store 0x2,0x2 00bf 0059 | Y | Store_Top Discrete,At_Offset_1 00c0 00d8 | | Load_Top At_Offset_0 00c1 680b |h | Jump_Zero 0xcd 00c2 e00b | | Load 0x0,0xb 00c3 e00c | | Load 0x0,0xc 00c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c5 c00b | | Store 0x0,0xb 00c6 e5fe | | Load 0x2,-0x2 00c7 00da | | Load_Top At_Offset_2 00c8 8013 | | Call 0x0,0x13 00c9 e00b | | Load 0x0,0xb 00ca e00c | | Load 0x0,0xc 00cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00cc c00b | | Store 0x0,0xb 00cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ce TRAP_00a0: 00ce 0007 | | Action Break_Optional 00cf 480a |H | Short_Literal 0xa 00d0 0092 048b | | Action Push_String_Extended,0x48b ; "Exception raised during command processing: " 00d2 e010 | | Load 0x0,0x10 00d3 180d | | Execute Package,Field_Execute,Field_Number 0xd 00d4 01cc | | Execute Vector,Catenate 00d5 01cb | | Execute Vector,Append 00d6 800f | | Call 0x0,0xf 00d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 00f3 | | .CONST 0x00f3 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 0f01 | | Execute_Immediate Equal,0x1 00dd 700c |p | Jump_Nonzero 0xea 00de e5fd | | Load 0x2,-0x3 00df 00eb | | Load_Encached Diana_Cache 00e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e1 6804 |h | Jump_Zero 0xe6 00e2 00db | | Load_Top At_Offset_3 00e3 8014 | | Call 0x0,0x14 00e4 8213 | | Call 0x1,0x13 00e5 7806 |x | Jump 0xec 00e6 00db | | Load_Top At_Offset_3 00e7 e5fd | | Load 0x2,-0x3 00e8 821b | | Call 0x1,0x1b 00e9 7802 |x | Jump 0xec 00ea 00db | | Load_Top At_Offset_3 00eb 821c | | Call 0x1,0x1c 00ec 480a |H | Short_Literal 0xa 00ed e015 | | Load 0x0,0x15 00ee e016 | | Load 0x0,0x16 00ef 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00f0 01cb | | Execute Vector,Append 00f1 8009 | | Call 0x0,0x9 00f2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f3 TRAP_00d8: 00f3 0007 | | Action Break_Optional 00f4 480a |H | Short_Literal 0xa 00f5 0092 048b | | Action Push_String_Extended,0x48b ; "Exception raised during command processing: " 00f7 e010 | | Load 0x0,0x10 00f8 180d | | Execute Package,Field_Execute,Field_Number 0xd 00f9 01cc | | Execute Vector,Catenate 00fa 01cb | | Execute Vector,Append 00fb 800f | | Call 0x0,0xf 00fc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0108 | | .CONST 0x0108 ; Address of begin 0101 01b7 | | .CONST 0x01b7 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e007 | | Load 0x0,0x7 0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0105 02c7 | | Declare_Variable Any 0106 00d8 | | Load_Top At_Offset_0 0107 1c00 | | Execute_Immediate Run_Utility,0x0 0108 BODY_0100: 0108 e00b | | Load 0x0,0xb 0109 e00c | | Load 0x0,0xc 010a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010b c00b | | Store 0x0,0xb 010c 00db | | Load_Top At_Offset_3 010d 460e |F | Jump_Case 0xf 010e 7870 |xp | Jump 0x17f ; case 0x0 010f 7814 |x | Jump 0x124 ; case 0x1 0110 7815 |x | Jump 0x126 ; case 0x2 0111 7819 |x | Jump 0x12b ; case 0x3 0112 781a |x | Jump 0x12d ; case 0x4 0113 783a |x: | Jump 0x14e ; case 0x5 0114 781d |x | Jump 0x132 ; case 0x6 0115 7867 |xg | Jump 0x17d ; case 0x7 0116 7808 |x | Jump 0x11f ; case 0x8 0117 782d |x- | Jump 0x145 ; case 0x9 0118 7823 |x# | Jump 0x13c ; case 0xa 0119 7827 |x' | Jump 0x141 ; case 0xb 011a 7854 |xT | Jump 0x16f ; case 0xc 011b 7836 |x6 | Jump 0x152 ; case 0xd 011c 7800 |x | Jump 0x11d ; case 0xe 011d 8228 | ( | Call 0x1,0x28 011e 7893 |x | Jump 0x1b2 011f e017 | | Load 0x0,0x17 0120 e018 | | Load 0x0,0x18 0121 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0122 8009 | | Call 0x0,0x9 0123 788e |x | Jump 0x1b2 0124 821d | | Call 0x1,0x1d 0125 788c |x | Jump 0x1b2 0126 e015 | | Load 0x0,0x15 0127 e016 | | Load 0x0,0x16 0128 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0129 8009 | | Call 0x0,0x9 012a 7887 |x | Jump 0x1b2 012b 8227 | ' | Call 0x1,0x27 012c 7885 |x | Jump 0x1b2 012d e019 | | Load 0x0,0x19 012e e01a | | Load 0x0,0x1a 012f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0130 8009 | | Call 0x0,0x9 0131 7880 |x | Jump 0x1b2 0132 8008 | | Call 0x0,0x8 0133 6804 |h | Jump_Zero 0x138 0134 0092 048d | | Action Push_String_Extended,0x48d ; "Program has terminated; no libraries are in use.\x0a" 0136 8009 | | Call 0x0,0x9 0137 787a |xz | Jump 0x1b2 0138 e01b | | Load 0x0,0x1b 0139 801c | | Call 0x0,0x1c 013a c01b | | Store 0x0,0x1b 013b 7876 |xv | Jump 0x1b2 013c e01d | | Load 0x0,0x1d 013d e01e | | Load 0x0,0x1e 013e 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 013f 8009 | | Call 0x0,0x9 0140 7871 |xq | Jump 0x1b2 0141 e01f | | Load 0x0,0x1f 0142 8020 | | Call 0x0,0x20 0143 8009 | | Call 0x0,0x9 0144 786d |xm | Jump 0x1b2 0145 0092 048e | | Action Push_String_Extended,0x48e ; "Stops and Holds: " 0147 8009 | | Call 0x0,0x9 0148 8021 | ! | Call 0x0,0x21 0149 e022 | " | Load 0x0,0x22 014a e023 | # | Load 0x0,0x23 014b 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 014c 8009 | | Call 0x0,0x9 014d 7864 |xd | Jump 0x1b2 014e e024 | $ | Load 0x0,0x24 014f e025 | % | Load 0x0,0x25 0150 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0151 7860 |x` | Jump 0x1b2 0152 00cf | | Action Mark_Auxiliary 0153 4808 |H | Short_Literal 0x8 0154 4801 |H | Short_Literal 0x1 0155 0007 | | Action Break_Optional 0156 00db | | Load_Top At_Offset_3 0157 00d9 | | Load_Top At_Offset_1 0158 8026 | & | Call 0x0,0x26 0159 c402 | | Store 0x2,0x2 015a 00c8 | | Action Pop_Auxiliary_Range 015b 3ffa |? | Loop_Increasing 0x156 015c 00ce | | Action Pop_Auxiliary 015d 00d8 | | Load_Top At_Offset_0 015e 480a |H | Short_Literal 0xa 015f 8026 | & | Call 0x0,0x26 0160 c402 | | Store 0x2,0x2 0161 00d8 | | Load_Top At_Offset_0 0162 480b |H | Short_Literal 0xb 0163 8026 | & | Call 0x0,0x26 0164 c402 | | Store 0x2,0x2 0165 4802 |H | Short_Literal 0x2 0166 00d9 | | Load_Top At_Offset_1 0167 e007 | | Load 0x0,0x7 0168 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0169 6848 |hH | Jump_Zero 0x1b2 016a 00d8 | | Load_Top At_Offset_0 016b e007 | | Load 0x0,0x7 016c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 016d 800f | | Call 0x0,0xf 016e 7843 |xC | Jump 0x1b2 016f 00d8 | | Load_Top At_Offset_0 0170 4809 |H | Short_Literal 0x9 0171 8026 | & | Call 0x0,0x26 0172 c402 | | Store 0x2,0x2 0173 4802 |H | Short_Literal 0x2 0174 00d9 | | Load_Top At_Offset_1 0175 e007 | | Load 0x0,0x7 0176 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0177 683a |h: | Jump_Zero 0x1b2 0178 00d8 | | Load_Top At_Offset_0 0179 e007 | | Load 0x0,0x7 017a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 017b 800f | | Call 0x0,0xf 017c 7835 |x5 | Jump 0x1b2 017d 8027 | ' | Call 0x0,0x27 017e 7833 |x3 | Jump 0x1b2 017f 0092 048f | | Action Push_String_Extended,0x48f ; "Breakpoints: " 0181 8009 | | Call 0x0,0x9 0182 8021 | ! | Call 0x0,0x21 0183 821d | | Call 0x1,0x1d 0184 8021 | ! | Call 0x0,0x21 0185 e015 | | Load 0x0,0x15 0186 e016 | | Load 0x0,0x16 0187 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0188 8009 | | Call 0x0,0x9 0189 8021 | ! | Call 0x0,0x21 018a 0092 0490 | | Action Push_String_Extended,0x490 ; "Exception handling: " 018c 8009 | | Call 0x0,0x9 018d 8021 | ! | Call 0x0,0x21 018e 8227 | ' | Call 0x1,0x27 018f 8021 | ! | Call 0x0,0x21 0190 0092 0491 | | Action Push_String_Extended,0x491 ; "Tracing: " 0192 8009 | | Call 0x0,0x9 0193 8021 | ! | Call 0x0,0x21 0194 e01d | | Load 0x0,0x1d 0195 e01e | | Load 0x0,0x1e 0196 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0197 8009 | | Call 0x0,0x9 0198 8021 | ! | Call 0x0,0x21 0199 0092 0492 | | Action Push_String_Extended,0x492 ; "History-Taking: " 019b 8009 | | Call 0x0,0x9 019c 8021 | ! | Call 0x0,0x21 019d e024 | $ | Load 0x0,0x24 019e e025 | % | Load 0x0,0x25 019f 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 01a0 8021 | ! | Call 0x0,0x21 01a1 0092 0493 | | Action Push_String_Extended,0x493 ; "Stepping: " 01a3 8009 | | Call 0x0,0x9 01a4 8021 | ! | Call 0x0,0x21 01a5 e017 | | Load 0x0,0x17 01a6 e018 | | Load 0x0,0x18 01a7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01a8 8009 | | Call 0x0,0x9 01a9 8021 | ! | Call 0x0,0x21 01aa 0092 048e | | Action Push_String_Extended,0x48e ; "Stops and Holds: " 01ac 8009 | | Call 0x0,0x9 01ad 8021 | ! | Call 0x0,0x21 01ae e022 | " | Load 0x0,0x22 01af e023 | # | Load 0x0,0x23 01b0 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 01b1 8009 | | Call 0x0,0x9 01b2 e00b | | Load 0x0,0xb 01b3 e00c | | Load 0x0,0xc 01b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b5 c00b | | Store 0x0,0xb 01b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b7 TRAP_0100: 01b7 0007 | | Action Break_Optional 01b8 480a |H | Short_Literal 0xa 01b9 0092 048b | | Action Push_String_Extended,0x48b ; "Exception raised during command processing: " 01bb e010 | | Load 0x0,0x10 01bc 180d | | Execute Package,Field_Execute,Field_Number 0xd 01bd 01cc | | Execute Vector,Catenate 01be 01cb | | Execute Vector,Append 01bf 800f | | Call 0x0,0xf 01c0 e00b | | Load 0x0,0xb 01c1 e00c | | Load 0x0,0xc 01c2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c3 c00b | | Store 0x0,0xb 01c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00db | | Load_Top At_Offset_3 01cc e015 | | Load 0x0,0x15 01cd e5ff | | Load 0x2,-0x1 01ce 8014 | | Call 0x0,0x14 01cf e016 | | Load 0x0,0x16 01d0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01d1 c015 | | Store 0x0,0x15 01d2 c5fe | | Store 0x2,-0x2 01d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00db | | Load_Top At_Offset_3 01dc e015 | | Load 0x0,0x15 01dd e5ff | | Load 0x2,-0x1 01de 8014 | | Call 0x0,0x14 01df e016 | | Load 0x0,0x16 01e0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01e1 c015 | | Store 0x0,0x15 01e2 c5fe | | Store 0x2,-0x2 01e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f0 | | .CONST 0x01f0 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e007 | | Load 0x0,0x7 01ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ed 02c7 | | Declare_Variable Any 01ee 00d8 | | Load_Top At_Offset_0 01ef 1c00 | | Execute_Immediate Run_Utility,0x0 01f0 BODY_01e8: 01f0 00d8 | | Load_Top At_Offset_0 01f1 e5ff | | Load 0x2,-0x1 01f2 8212 | | Call 0x1,0x12 01f3 c402 | | Store 0x2,0x2 01f4 4802 |H | Short_Literal 0x2 01f5 00d9 | | Load_Top At_Offset_1 01f6 e007 | | Load 0x0,0x7 01f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f8 6813 |h | Jump_Zero 0x20c 01f9 480a |H | Short_Literal 0xa 01fa 480a |H | Short_Literal 0xa 01fb 4822 |H" | Short_Literal 0x22 01fc 0092 0494 | | Action Push_String_Extended,0x494 ; "The control context could not be set to \x22" 01fe e5ff | | Load 0x2,-0x1 01ff 01cc | | Execute Vector,Catenate 0200 01cb | | Execute Vector,Append 0201 0092 0495 | | Action Push_String_Extended,0x495 ; ":" 0203 01cc | | Execute Vector,Catenate 0204 01cb | | Execute Vector,Append 0205 00da | | Load_Top At_Offset_2 0206 e007 | | Load 0x0,0x7 0207 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0208 01cc | | Execute Vector,Catenate 0209 01cb | | Execute Vector,Append 020a 800f | | Call 0x0,0xf 020b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020c 480a |H | Short_Literal 0xa 020d 4822 |H" | Short_Literal 0x22 020e 0092 0496 | | Action Push_String_Extended,0x496 ; "The control context has been set to \x22" 0210 e5ff | | Load 0x2,-0x1 0211 01cc | | Execute Vector,Catenate 0212 01cb | | Execute Vector,Append 0213 0092 0497 | | Action Push_String_Extended,0x497 ; "." 0215 01cc | | Execute Vector,Catenate 0216 01cb | | Execute Vector,Append 0217 8009 | | Call 0x0,0x9 0218 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0226 | & | .CONST 0x0226 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e028 | ( | Load 0x0,0x28 0225 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0226 BODY_0220: 0226 00cf | | Action Mark_Auxiliary 0227 00d9 | | Load_Top At_Offset_1 0228 00eb | | Load_Encached Diana_Cache 0229 1814 | | Execute Package,Field_Execute,Field_Number 0x14 022a 0b4c | L | Execute_Immediate Case_Compare,0x4c 022b 7004 |p | Jump_Nonzero 0x230 022c 0f4e | N | Execute_Immediate Equal,0x4e 022d 7003 |p | Jump_Nonzero 0x231 022e 00d9 | | Load_Top At_Offset_1 022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0230 00d1 | | Pop_Control Pop_Count_1 0231 00d9 | | Load_Top At_Offset_1 0232 00eb | | Load_Encached Diana_Cache 0233 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0234 e028 | ( | Load 0x0,0x28 0235 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0236 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0237 00c9 | | Action Pop_Auxiliary_Loop 0238 7fee | | Jump 0x227 0239 0000 0000 | | .BLANK 0000[0x7] 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 00da | | Load_Top At_Offset_2 0244 01db | | Execute Vector,Length 0245 7002 |p | Jump_Nonzero 0x248 0246 00ea | | Load_Encached Null_String_Cache 0247 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0248 0092 0498 | | Action Push_String_Extended,0x498 ; " " 024a 00db | | Load_Top At_Offset_3 024b 01cc | | Execute Vector,Catenate 024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024d 0000 0000 | | .XXX[0x3] 024f 0000 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0258 | X | .CONST 0x0258 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 4801 |H | Short_Literal 0x1 0254 00db | | Load_Top At_Offset_3 0255 8029 | ) | Call 0x0,0x29 0256 8215 | | Call 0x1,0x15 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 TRAP_0250: 0258 0007 | | Action Break_Optional 0259 00ea | | Load_Encached Null_String_Cache 025a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025b 0000 0000 | | .BLANK 0000[0x5] 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 0092 0499 | | Action Push_String_Extended,0x499 ; "the selected object" 0265 00db | | Load_Top At_Offset_3 0266 8216 | | Call 0x1,0x16 0267 01cc | | Execute Vector,Catenate 0268 0092 049a | | Action Push_String_Extended,0x49a ; " specifes a task type, not a task object." 026a 01cc | | Execute Vector,Catenate 026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026c 0000 0000 | | .BLANK 0000[0x4] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 0092 0499 | | Action Push_String_Extended,0x499 ; "the selected object" 0275 00db | | Load_Top At_Offset_3 0276 8216 | | Call 0x1,0x16 0277 01cc | | Execute Vector,Catenate 0278 0092 049b | | Action Push_String_Extended,0x49b ; " does not specify a task." 027a 01cc | | Execute Vector,Catenate 027b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0285 | | .CONST 0x0285 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 00ec | | Load_Encached Diana_Tree_Cache 0284 039d | | Declare_Variable Heap_Access,Duplicate 0285 BODY_0280: 0285 e007 | | Load 0x0,0x7 0286 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0287 c5fe | | Store 0x2,-0x2 0288 e5ff | | Load 0x2,-0x1 0289 00eb | | Load_Encached Diana_Cache 028a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 028b 0b2e | . | Execute_Immediate Case_Compare,0x2e 028c 700b |p | Jump_Nonzero 0x298 028d 0b2f | / | Execute_Immediate Case_Compare,0x2f 028e 7028 |p( | Jump_Nonzero 0x2b7 028f 0f30 | 0 | Execute_Immediate Equal,0x30 0290 703d |p= | Jump_Nonzero 0x2ce 0291 e5fe | | Load 0x2,-0x2 0292 e5ff | | Load 0x2,-0x1 0293 8218 | | Call 0x1,0x18 0294 e007 | | Load 0x0,0x7 0295 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0296 c5fe | | Store 0x2,-0x2 0297 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0298 00d1 | | Pop_Control Pop_Count_1 0299 e5ff | | Load 0x2,-0x1 029a e02a | * | Load 0x0,0x2a 029b 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 029c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 029d 00d9 | | Load_Top At_Offset_1 029e 00eb | | Load_Encached Diana_Cache 029f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a0 0b30 | 0 | Execute_Immediate Case_Compare,0x30 02a1 700c |p | Jump_Nonzero 0x2ae 02a2 0f2f | / | Execute_Immediate Equal,0x2f 02a3 700c |p | Jump_Nonzero 0x2b0 02a4 e5fe | | Load 0x2,-0x2 02a5 0092 049c | | Action Push_String_Extended,0x49c ; "cannot select this type of task object" 02a7 00db | | Load_Top At_Offset_3 02a8 8216 | | Call 0x1,0x16 02a9 01cc | | Execute Vector,Catenate 02aa e007 | | Load 0x0,0x7 02ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02ac c5fe | | Store 0x2,-0x2 02ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ae 00d1 | | Pop_Control Pop_Count_1 02af 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b0 e5fe | | Load 0x2,-0x2 02b1 00da | | Load_Top At_Offset_2 02b2 8217 | | Call 0x1,0x17 02b3 e007 | | Load 0x0,0x7 02b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02b5 c5fe | | Store 0x2,-0x2 02b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b7 00d1 | | Pop_Control Pop_Count_1 02b8 e5ff | | Load 0x2,-0x1 02b9 4907 |I | Short_Literal 0x107 02ba 00eb | | Load_Encached Diana_Cache 02bb 0096 | | Execute Package,Entry 02bc 00eb | | Load_Encached Diana_Cache 02bd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02be 0f73 | s | Execute_Immediate Equal,0x73 02bf 6807 |h | Jump_Zero 0x2c7 02c0 e5fe | | Load 0x2,-0x2 02c1 e5ff | | Load 0x2,-0x1 02c2 8217 | | Call 0x1,0x17 02c3 e007 | | Load 0x0,0x7 02c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c5 c5fe | | Store 0x2,-0x2 02c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c7 e5fe | | Load 0x2,-0x2 02c8 e5ff | | Load 0x2,-0x1 02c9 8218 | | Call 0x1,0x18 02ca e007 | | Load 0x0,0x7 02cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02cc c5fe | | Store 0x2,-0x2 02cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ce e02b | + | Load 0x0,0x2b 02cf e5ff | | Load 0x2,-0x1 02d0 e02a | * | Load 0x0,0x2a 02d1 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 02d2 0031 | 1 | Store_Top Heap_Access,At_Offset_1 02d3 00d8 | | Load_Top At_Offset_0 02d4 00eb | | Load_Encached Diana_Cache 02d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02d6 0b73 | s | Execute_Immediate Case_Compare,0x73 02d7 7009 |p | Jump_Nonzero 0x2e1 02d8 0f6b | k | Execute_Immediate Equal,0x6b 02d9 7009 |p | Jump_Nonzero 0x2e3 02da e5fe | | Load 0x2,-0x2 02db e5ff | | Load 0x2,-0x1 02dc 8218 | | Call 0x1,0x18 02dd e007 | | Load 0x0,0x7 02de 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02df c5fe | | Store 0x2,-0x2 02e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e1 00d1 | | Pop_Control Pop_Count_1 02e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e3 4800 |H | Short_Literal 0x0 02e4 e02b | + | Load 0x0,0x2b 02e5 e5ff | | Load 0x2,-0x1 02e6 e02a | * | Load 0x0,0x2a 02e7 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 02e8 00eb | | Load_Encached Diana_Cache 02e9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02ea 0f73 | s | Execute_Immediate Equal,0x73 02eb 6801 |h | Jump_Zero 0x2ed 02ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ed e5fe | | Load 0x2,-0x2 02ee e5ff | | Load 0x2,-0x1 02ef 8218 | | Call 0x1,0x18 02f0 e007 | | Load 0x0,0x7 02f1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02f2 c5fe | | Store 0x2,-0x2 02f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f4 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 02fc 8215 | | Call 0x1,0x15 02fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fe 0000 0000 | | .XXX[0x2] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 030b | | .CONST 0x030b ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0005 | | .CONST 0x0005 ; Number of locals 0303 INIT_0300: 0303 e007 | | Load 0x0,0x7 0304 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0305 02c7 | | Declare_Variable Any 0306 00d8 | | Load_Top At_Offset_0 0307 1c00 | | Execute_Immediate Run_Utility,0x0 0308 00ec | | Load_Encached Diana_Tree_Cache 0309 039d | | Declare_Variable Heap_Access,Duplicate 030a 039d | | Declare_Variable Heap_Access,Duplicate 030b BODY_0300: 030b e5ff | | Load 0x2,-0x1 030c e028 | ( | Load 0x0,0x28 030d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 030e 6818 |h | Jump_Zero 0x327 030f e5ff | | Load 0x2,-0x1 0310 8214 | | Call 0x1,0x14 0311 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0312 00da | | Load_Top At_Offset_2 0313 00eb | | Load_Encached Diana_Cache 0314 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0315 0f46 | F | Execute_Immediate Equal,0x46 0316 6809 |h | Jump_Zero 0x320 0317 00da | | Load_Top At_Offset_2 0318 00eb | | Load_Encached Diana_Cache 0319 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 031a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 031b 00db | | Load_Top At_Offset_3 031c 00da | | Load_Top At_Offset_2 031d 8219 | | Call 0x1,0x19 031e c402 | | Store 0x2,0x2 031f 781b |x | Jump 0x33b 0320 00db | | Load_Top At_Offset_3 0321 0092 049d | | Action Push_String_Extended,0x49d ; "a statement can be selected only if it is directly inside a task body" 0323 e007 | | Load 0x0,0x7 0324 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0325 c402 | | Store 0x2,0x2 0326 7814 |x | Jump 0x33b 0327 e5ff | | Load 0x2,-0x1 0328 e028 | ( | Load 0x0,0x28 0329 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 032a 680c |h | Jump_Zero 0x337 032b e5ff | | Load 0x2,-0x1 032c 8214 | | Call 0x1,0x14 032d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 032e 00da | | Load_Top At_Offset_2 032f e028 | ( | Load 0x0,0x28 0330 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0331 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0332 00db | | Load_Top At_Offset_3 0333 00d9 | | Load_Top At_Offset_1 0334 8219 | | Call 0x1,0x19 0335 c402 | | Store 0x2,0x2 0336 7804 |x | Jump 0x33b 0337 00db | | Load_Top At_Offset_3 0338 e5ff | | Load 0x2,-0x1 0339 8219 | | Call 0x1,0x19 033a c402 | | Store 0x2,0x2 033b 4802 |H | Short_Literal 0x2 033c e402 | | Load 0x2,0x2 033d e007 | | Load 0x0,0x7 033e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 033f 7013 |p | Jump_Nonzero 0x353 0340 00db | | Load_Top At_Offset_3 0341 e5fe | | Load 0x2,-0x2 0342 8212 | | Call 0x1,0x12 0343 c402 | | Store 0x2,0x2 0344 4802 |H | Short_Literal 0x2 0345 e402 | | Load 0x2,0x2 0346 e007 | | Load 0x0,0x7 0347 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0348 700a |p | Jump_Nonzero 0x353 0349 480a |H | Short_Literal 0xa 034a 0092 049e | | Action Push_String_Extended,0x49e ; "The control context has been set to " 034c e5fe | | Load 0x2,-0x2 034d 01cc | | Execute Vector,Catenate 034e 0092 0497 | | Action Push_String_Extended,0x497 ; "." 0350 01cc | | Execute Vector,Catenate 0351 01cb | | Execute Vector,Append 0352 8009 | | Call 0x0,0x9 0353 4802 |H | Short_Literal 0x2 0354 e402 | | Load 0x2,0x2 0355 e007 | | Load 0x0,0x7 0356 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0357 6811 |h | Jump_Zero 0x369 0358 480a |H | Short_Literal 0xa 0359 480a |H | Short_Literal 0xa 035a 0092 049f | | Action Push_String_Extended,0x49f ; "The control context could not be set to " 035c e5fe | | Load 0x2,-0x2 035d 821a | | Call 0x1,0x1a 035e 01cc | | Execute Vector,Catenate 035f 0092 0495 | | Action Push_String_Extended,0x495 ; ":" 0361 01cc | | Execute Vector,Catenate 0362 01cb | | Execute Vector,Append 0363 e402 | | Load 0x2,0x2 0364 e007 | | Load 0x0,0x7 0365 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0366 01cc | | Execute Vector,Catenate 0367 01cb | | Execute Vector,Append 0368 800f | | Call 0x0,0xf 0369 4503 |E | Exit_Suprogram New_Top_Offset 0x3 036a 0000 0000 | | .BLANK 0000[0x6] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 037a | z | .CONST 0x037a ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0003 | | .CONST 0x0003 ; Number of locals 0373 INIT_0370: 0373 e007 | | Load 0x0,0x7 0374 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0375 02c7 | | Declare_Variable Any 0376 00d8 | | Load_Top At_Offset_0 0377 1c00 | | Execute_Immediate Run_Utility,0x0 0378 029f 046b | k| Declare_Subprogram INIT_0468,For_Call 037a BODY_0370: 037a 8403 | | Call 0x2,0x3 037b 4802 |H | Short_Literal 0x2 037c 00da | | Load_Top At_Offset_2 037d e007 | | Load 0x0,0x7 037e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 037f 680e |h | Jump_Zero 0x38e 0380 480a |H | Short_Literal 0xa 0381 480a |H | Short_Literal 0xa 0382 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "The evaluation context could not be set to the specified object:" 0384 e5ff | | Load 0x2,-0x1 0385 821a | | Call 0x1,0x1a 0386 01cc | | Execute Vector,Catenate 0387 01cb | | Execute Vector,Append 0388 00db | | Load_Top At_Offset_3 0389 e007 | | Load 0x0,0x7 038a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 038b 01cc | | Execute Vector,Catenate 038c 01cb | | Execute Vector,Append 038d 800f | | Call 0x0,0xf 038e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038f 0000 | | .XXX[0x1] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 039a | | .CONST 0x039a ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0004 | | .CONST 0x0004 ; Number of locals 0393 INIT_0390: 0393 e02c | , | Load 0x0,0x2c 0394 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0395 e02c | , | Load 0x0,0x2c 0396 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f 0397 0322 | " | Declare_Variable Record 0398 00e1 | | Load_Encached Boolean_Cache 0399 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 039a BODY_0390: 039a e02c | , | Load 0x0,0x2c 039b 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 039c e02d | - | Load 0x0,0x2d 039d e02c | , | Load 0x0,0x2c 039e 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 039f 003b | ; | Store_Top Access,At_Offset_3 03a0 00cf | | Action Mark_Auxiliary 03a1 7811 |x | Jump 0x3b3 03a2 00db | | Load_Top At_Offset_3 03a3 e02c | , | Load 0x0,0x2c 03a4 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 03a5 00db | | Load_Top At_Offset_3 03a6 017d | } | Execute Record,Structure_Write 03a7 4801 |H | Short_Literal 0x1 03a8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 03a9 00da | | Load_Top At_Offset_2 03aa e02c | , | Load 0x0,0x2c 03ab 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 03ac 8009 | | Call 0x0,0x9 03ad 8021 | ! | Call 0x0,0x21 03ae 00db | | Load_Top At_Offset_3 03af e02c | , | Load 0x0,0x2c 03b0 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 03b1 c402 | | Store 0x2,0x2 03b2 00c9 | | Action Pop_Auxiliary_Loop 03b3 00db | | Load_Top At_Offset_3 03b4 e02c | , | Load 0x0,0x2c 03b5 1873 | s | Execute Package,Field_Execute,Field_Number 0x73 03b6 6feb |o | Jump_Zero 0x3a2 03b7 00ce | | Action Pop_Auxiliary 03b8 00d8 | | Load_Top At_Offset_0 03b9 7003 |p | Jump_Nonzero 0x3bd 03ba 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "none\x0a" 03bc 8009 | | Call 0x0,0x9 03bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03be 0000 0000 | | .XXX[0x2] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 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 00da | | Load_Top At_Offset_2 03c4 e002 | | Load 0x0,0x2 03c5 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 03c6 e5fe | | Load 0x2,-0x2 03c7 e002 | | Load 0x0,0x2 03c8 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 03c9 027c | | | Execute Discrete,Less 03ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03cb 0000 0000 | | .BLANK 0000[0x5] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03df | | .CONST 0x03df ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0006 | | .CONST 0x0006 ; Number of locals 03d3 INIT_03d0: 03d3 e002 | | Load 0x0,0x2 03d4 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 03d5 e002 | | Load 0x0,0x2 03d6 1b53 | S | Execute Package,Field_Read,Field_Number 0x53 03d7 00e3 | | Load_Encached Natural_Cache 03d8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03d9 4801 |H | Short_Literal 0x1 03da 4828 |H( | Short_Literal 0x28 03db e21e | | Load 0x1,0x1e 03dc 035b | [ | Declare_Type Array,Constrained 03dd 0337 | 7 | Declare_Variable Array 03de 00e2 | | Load_Encached Integer_Cache 03df BODY_03d0: 03df e002 | | Load 0x0,0x2 03e0 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 03e1 e02e | . | Load 0x0,0x2e 03e2 e002 | | Load 0x0,0x2 03e3 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 03e4 c02e | . | Store 0x0,0x2e 03e5 c402 | | Store 0x2,0x2 03e6 00cf | | Action Mark_Auxiliary 03e7 7810 |x | Jump 0x3f8 03e8 e402 | | Load 0x2,0x2 03e9 e002 | | Load 0x0,0x2 03ea 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 03eb a403 | | Store_Unchecked 0x2,0x3 03ec 00db | | Load_Top At_Offset_3 03ed 0a01 | | Execute_Immediate Plus,0x1 03ee c404 | | Store 0x2,0x4 03ef e403 | | Load 0x2,0x3 03f0 e404 | | Load 0x2,0x4 03f1 e405 | | Load 0x2,0x5 03f2 01d6 | | Execute Vector,Field_Write 03f3 e402 | | Load 0x2,0x2 03f4 e002 | | Load 0x0,0x2 03f5 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 03f6 c402 | | Store 0x2,0x2 03f7 00c9 | | Action Pop_Auxiliary_Loop 03f8 e402 | | Load 0x2,0x2 03f9 e002 | | Load 0x0,0x2 03fa 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 03fb 6fec |o | Jump_Zero 0x3e8 03fc 00ce | | Action Pop_Auxiliary 03fd 00d9 | | Load_Top At_Offset_1 03fe 4801 |H | Short_Literal 0x1 03ff e404 | | Load 0x2,0x4 0400 00da | | Load_Top At_Offset_2 0401 035b | [ | Declare_Type Array,Constrained 0402 00d0 | | Action Swap_Control 0403 01cd | | Execute Vector,Slice_Reference 0404 00d9 | | Load_Top At_Offset_1 0405 00d9 | | Load_Top At_Offset_1 0406 e220 | | Load 0x1,0x20 0407 e221 | ! | Load 0x1,0x21 0408 e222 | " | Load 0x1,0x22 0409 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 040a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 040b 8003 | | Call 0x0,0x3 040c 00d1 | | Pop_Control Pop_Count_1 040d 005a | Z | Store_Top Discrete,At_Offset_2 040e 00d1 | | Pop_Control Pop_Count_1 040f 00cf | | Action Mark_Auxiliary 0410 4801 |H | Short_Literal 0x1 0411 e404 | | Load 0x2,0x4 0412 0264 | d | Execute Discrete,Below_Bound 0413 7009 |p | Jump_Nonzero 0x41d 0414 00d8 | | Load_Top At_Offset_0 0415 e405 | | Load 0x2,0x5 0416 01d7 | | Execute Vector,Field_Read 0417 e002 | | Load 0x0,0x2 0418 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 0419 8009 | | Call 0x0,0x9 041a 8021 | ! | Call 0x0,0x21 041b 00c8 | | Action Pop_Auxiliary_Range 041c 37f7 |7 | Loop_Decreasing 0x414 041d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 041e 0000 0000 | | .XXX[0x2] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 042c | , | .CONST 0x042c ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0006 | | .CONST 0x0006 ; Number of locals 0423 INIT_0420: 0423 00e2 | | Load_Encached Integer_Cache 0424 00e2 | | Load_Encached Integer_Cache 0425 00e2 | | Load_Encached Integer_Cache 0426 00e2 | | Load_Encached Integer_Cache 0427 e007 | | Load 0x0,0x7 0428 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0429 02c7 | | Declare_Variable Any 042a 00d8 | | Load_Top At_Offset_0 042b 1c00 | | Execute_Immediate Run_Utility,0x0 042c BODY_0420: 042c 00d8 | | Load_Top At_Offset_0 042d 00e2 | | Load_Encached Integer_Cache 042e 00e2 | | Load_Encached Integer_Cache 042f 00e2 | | Load_Encached Integer_Cache 0430 00e2 | | Load_Encached Integer_Cache 0431 802f | / | Call 0x0,0x2f 0432 c402 | | Store 0x2,0x2 0433 c403 | | Store 0x2,0x3 0434 c404 | | Store 0x2,0x4 0435 005b | [ | Store_Top Discrete,At_Offset_3 0436 c406 | | Store 0x2,0x6 0437 4802 |H | Short_Literal 0x2 0438 00d9 | | Load_Top At_Offset_1 0439 e007 | | Load 0x0,0x7 043a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 043b 6805 |h | Jump_Zero 0x441 043c 00d8 | | Load_Top At_Offset_0 043d e007 | | Load 0x0,0x7 043e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 043f 800f | | Call 0x0,0xf 0440 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0441 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "Creation breaks = " 0443 8009 | | Call 0x0,0x9 0444 e402 | | Load 0x2,0x2 0445 00e0 | | Load_Encached Standard_Cache 0446 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0447 8009 | | Call 0x0,0x9 0448 8021 | ! | Call 0x0,0x21 0449 0092 04a3 | | Action Push_String_Extended,0x4a3 ; "Breakpoint breaks = " 044b 8009 | | Call 0x0,0x9 044c 00db | | Load_Top At_Offset_3 044d 00e0 | | Load_Encached Standard_Cache 044e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 044f 8009 | | Call 0x0,0x9 0450 8021 | ! | Call 0x0,0x21 0451 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "Exception breaks = " 0453 8009 | | Call 0x0,0x9 0454 00da | | Load_Top At_Offset_2 0455 00e0 | | Load_Encached Standard_Cache 0456 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0457 8009 | | Call 0x0,0x9 0458 8021 | ! | Call 0x0,0x21 0459 0092 04a5 | | Action Push_String_Extended,0x4a5 ; "Level 2 breaks = " 045b 8009 | | Call 0x0,0x9 045c 00d9 | | Load_Top At_Offset_1 045d 00e0 | | Load_Encached Standard_Cache 045e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 045f 8009 | | Call 0x0,0x9 0460 8021 | ! | Call 0x0,0x21 0461 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0481 | | .CONST 0x0481 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b e402 | | Load 0x2,0x2 046c e5ff | | Load 0x2,-0x1 046d 8211 | | Call 0x1,0x11 046e c402 | | Store 0x2,0x2 046f 4802 |H | Short_Literal 0x2 0470 e402 | | Load 0x2,0x2 0471 e007 | | Load 0x0,0x7 0472 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0473 700c |p | Jump_Nonzero 0x480 0474 480a |H | Short_Literal 0xa 0475 4822 |H" | Short_Literal 0x22 0476 0092 04a6 | | Action Push_String_Extended,0x4a6 ; "The evaluation context has been set to \x22" 0478 e5ff | | Load 0x2,-0x1 0479 01cc | | Execute Vector,Catenate 047a 01cb | | Execute Vector,Append 047b 0092 0497 | | Action Push_String_Extended,0x497 ; "." 047d 01cc | | Execute Vector,Catenate 047e 01cb | | Execute Vector,Append 047f 8009 | | Call 0x0,0x9 0480 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0481 TRAP_0468: 0481 0007 | | Action Break_Optional 0482 0092 04a7 | | Action Push_String_Extended,0x4a7 ; "The specified object cannot be used as an evaluation context." 0484 e007 | | Load 0x0,0x7 0485 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0486 c402 | | Store 0x2,0x2 0487 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0488 ; -------------------------------------------------------------------------------------- 0488 ; STRING TABLE 0488 ; -------------------------------------------------------------------------------------- 0488 0042 | B | .STRTAB 0x0042->0x04a9 ; "Program has terminated.\x0a" 0489 0058 | X | .STRTAB 0x0058->0x04b5 ; "The stack for task " 048a 0069 | i | .STRTAB 0x0069->0x04be ; " could not be displayed:" 048b 007f | | .STRTAB 0x007f->0x04ca ; "Exception raised during command processing: " 048c 00a9 | | .STRTAB 0x00a9->0x04e0 ; "all" 048d 00aa | | .STRTAB 0x00aa->0x04e2 ; "Program has terminated; no libraries are in use.\x0a" 048e 00d9 | | .STRTAB 0x00d9->0x04fa ; "Stops and Holds: " 048f 00e8 | | .STRTAB 0x00e8->0x0503 ; "Breakpoints: " 0490 00f3 | | .STRTAB 0x00f3->0x0509 ; "Exception handling: " 0491 0105 | | .STRTAB 0x0105->0x0513 ; "Tracing: " 0492 010c | | .STRTAB 0x010c->0x0518 ; "History-Taking: " 0493 011a | | .STRTAB 0x011a->0x0520 ; "Stepping: " 0494 0122 | " | .STRTAB 0x0122->0x0525 ; "The control context could not be set to \x22" 0495 0149 | I | .STRTAB 0x0149->0x0539 ; ":" 0496 0148 | H | .STRTAB 0x0148->0x053a ; "The control context has been set to \x22" 0497 016b | k | .STRTAB 0x016b->0x054c ; "." 0498 016a | j | .STRTAB 0x016a->0x054d ; " " 0499 0169 | i | .STRTAB 0x0169->0x054d ; "the selected object" 049a 017a | z | .STRTAB 0x017a->0x0557 ; " specifes a task type, not a task object." 049b 01a1 | | .STRTAB 0x01a1->0x056b ; " does not specify a task." 049c 01b8 | | .STRTAB 0x01b8->0x0578 ; "cannot select this type of task object" 049d 01dc | | .STRTAB 0x01dc->0x058b ; "a statement can be selected only if it is directly inside a task body" 049e 021f | | .STRTAB 0x021f->0x05ad ; "The control context has been set to " 049f 0241 | A | .STRTAB 0x0241->0x05bf ; "The control context could not be set to " 04a0 0267 | g | .STRTAB 0x0267->0x05d3 ; "The evaluation context could not be set to the specified object:" 04a1 02a5 | | .STRTAB 0x02a5->0x05f3 ; "none\x0a" 04a2 02a8 | | .STRTAB 0x02a8->0x05f6 ; "Creation breaks = " 04a3 02ba | | .STRTAB 0x02ba->0x0600 ; "Breakpoint breaks = " 04a4 02cc | | .STRTAB 0x02cc->0x060a ; "Exception breaks = " 04a5 02de | | .STRTAB 0x02de->0x0614 ; "Level 2 breaks = " 04a6 02f0 | | .STRTAB 0x02f0->0x061e ; "The evaluation context has been set to \x22" 04a7 0316 | | .STRTAB 0x0316->0x0632 ; "The specified object cannot be used as an evaluation context." 04a8 0351 | Q | .STREND 0x0351->0x0650 04a9 5072 6f67 |Prog| .STRTAB_STRINGS 0651 0000 0000 | | .BLANK 0000[0x7] 0658 ; -------------------------------------------------------------------------------------- 0658 ; Debug Table 0658 ; -------------------------------------------------------------------------------------- 0658 0004 000d | | .DEBUG4 0x0004,0x000d,0x72ab,0x0000,0x0001,0x0000 065e 0000 0000 | | .BLANK 0000[0x8] 0666 004e e8b5 | N | .XXX[0x2] 0668 0000 0000 | | .BLANK 0000[0x7] 066f 009c | | .XXX[0x1] 0670 0000 0000 | | .BLANK 0000[0x8] 0678 0001 0404 | | .XXX[0x5] 067a 0000 0280 | | 067c 8000 | | 067d 0000 0000 | | .BLANK 0000[0x9] 0686 004e e8b5 | N | .XXX[0x2] 0688 0000 0000 | | .BLANK 0000[0x7] 068f 00a8 | | .XXX[0x1] 0690 0000 0000 | | .BLANK 0000[0x8] 0698 0001 0404 | | .XXX[0x5] 069a 0000 0700 | | 069c 8000 | | 069d 0000 0000 | | .BLANK 0000[0x9] 06a6 004e e8b5 | N | .XXX[0x2] 06a8 0000 0000 | | .BLANK 0000[0x7] 06af 00b4 | | .XXX[0x1] 06b0 0000 0000 | | .BLANK 0000[0x8] 06b8 0011 c8fe | | .XXX[0x8] 06ba 0000 0016 | | 06bc 00b9 d014 | | 06be 0000 32b2 | 2 | 06c0 0000 0000 | | .BLANK 0000[0x140]