|
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_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0370 | p | .CONST 0x0370 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 009f | | .CONST 0x009f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 000f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0011 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0015 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 001a 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call 001c 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 001e 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 0020 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 0022 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 0024 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call 0026 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 0028 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 002a 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 002c e002 | | Load 0x0,0x2 002d e003 | | Load 0x0,0x3 002e e004 | | Load 0x0,0x4 002f e005 | | Load 0x0,0x5 0030 e006 | | Load 0x0,0x6 0031 e007 | | Load 0x0,0x7 0032 a008 | | Store_Unchecked 0x0,0x8 0033 a009 | | Store_Unchecked 0x0,0x9 0034 a00a | | Store_Unchecked 0x0,0xa 0035 a00b | | Store_Unchecked 0x0,0xb 0036 a00c | | Store_Unchecked 0x0,0xc 0037 a00d | | Store_Unchecked 0x0,0xd 0038 e00e | | Load 0x0,0xe 0039 e00f | | Load 0x0,0xf 003a a010 | | Store_Unchecked 0x0,0x10 003b a011 | | Store_Unchecked 0x0,0x11 003c a012 | | Store_Unchecked 0x0,0x12 003d e013 | | Load 0x0,0x13 003e 8014 | | Call 0x0,0x14 003f a015 | | Store_Unchecked 0x0,0x15 0040 a016 | | Store_Unchecked 0x0,0x16 0041 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0042 e017 | | Load 0x0,0x17 0043 8018 | | Call 0x0,0x18 0044 a019 | | Store_Unchecked 0x0,0x19 0045 a01a | | Store_Unchecked 0x0,0x1a 0046 a01b | | Store_Unchecked 0x0,0x1b 0047 a01c | | Store_Unchecked 0x0,0x1c 0048 a01d | | Store_Unchecked 0x0,0x1d 0049 a01e | | Store_Unchecked 0x0,0x1e 004a a01f | | Store_Unchecked 0x0,0x1f 004b a020 | | Store_Unchecked 0x0,0x20 004c a021 | ! | Store_Unchecked 0x0,0x21 004d a022 | " | Store_Unchecked 0x0,0x22 004e a023 | # | Store_Unchecked 0x0,0x23 004f a024 | $ | Store_Unchecked 0x0,0x24 0050 a025 | % | Store_Unchecked 0x0,0x25 0051 a026 | & | Store_Unchecked 0x0,0x26 0052 a027 | ' | Store_Unchecked 0x0,0x27 0053 a028 | ( | Store_Unchecked 0x0,0x28 0054 a029 | ) | Store_Unchecked 0x0,0x29 0055 a02a | * | Store_Unchecked 0x0,0x2a 0056 a02b | + | Store_Unchecked 0x0,0x2b 0057 a02c | , | Store_Unchecked 0x0,0x2c 0058 a02d | - | Store_Unchecked 0x0,0x2d 0059 a02e | . | Store_Unchecked 0x0,0x2e 005a a02f | / | Store_Unchecked 0x0,0x2f 005b a030 | 0 | Store_Unchecked 0x0,0x30 005c a031 | 1 | Store_Unchecked 0x0,0x31 005d a032 | 2 | Store_Unchecked 0x0,0x32 005e a033 | 3 | Store_Unchecked 0x0,0x33 005f a034 | 4 | Store_Unchecked 0x0,0x34 0060 a035 | 5 | Store_Unchecked 0x0,0x35 0061 a036 | 6 | Store_Unchecked 0x0,0x36 0062 a037 | 7 | Store_Unchecked 0x0,0x37 0063 a038 | 8 | Store_Unchecked 0x0,0x38 0064 a039 | 9 | Store_Unchecked 0x0,0x39 0065 a03a | : | Store_Unchecked 0x0,0x3a 0066 a03b | ; | Store_Unchecked 0x0,0x3b 0067 a03c | < | Store_Unchecked 0x0,0x3c 0068 a03d | = | Store_Unchecked 0x0,0x3d 0069 a03e | > | Store_Unchecked 0x0,0x3e 006a a03f | ? | Store_Unchecked 0x0,0x3f 006b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 006c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 006d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 006e 1d17 | | Execute_Immediate Reference_Lex_1,0x17 006f 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0070 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0071 e040 | @ | Load 0x0,0x40 0072 194b | K | Execute Package,Field_Reference,Field_Number 0x4b 0073 e040 | @ | Load 0x0,0x40 0074 194c | L | Execute Package,Field_Reference,Field_Number 0x4c 0075 e040 | @ | Load 0x0,0x40 0076 1945 | E | Execute Package,Field_Reference,Field_Number 0x45 0077 e040 | @ | Load 0x0,0x40 0078 1946 | F | Execute Package,Field_Reference,Field_Number 0x46 0079 e040 | @ | Load 0x0,0x40 007a 194a | J | Execute Package,Field_Reference,Field_Number 0x4a 007b a041 | A | Store_Unchecked 0x0,0x41 007c e040 | @ | Load 0x0,0x40 007d 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 007e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 007f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0080 e040 | @ | Load 0x0,0x40 0081 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32 0082 e040 | @ | Load 0x0,0x40 0083 1933 | 3 | Execute Package,Field_Reference,Field_Number 0x33 0084 e040 | @ | Load 0x0,0x40 0085 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 0086 e040 | @ | Load 0x0,0x40 0087 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35 0088 e040 | @ | Load 0x0,0x40 0089 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36 008a e040 | @ | Load 0x0,0x40 008b 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 008c e040 | @ | Load 0x0,0x40 008d 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38 008e a042 | B | Store_Unchecked 0x0,0x42 008f e043 | C | Load 0x0,0x43 0090 0387 | | Declare_Variable Package 0091 00d8 | | Load_Top At_Offset_0 0092 020f | | Execute Module,Activate 0093 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0094 00c7 | | Action Elaborate_Subprogram 0095 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0096 00c7 | | Action Elaborate_Subprogram 0097 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0098 00c7 | | Action Elaborate_Subprogram 0099 1d10 | | Execute_Immediate Reference_Lex_1,0x10 009a 00c7 | | Action Elaborate_Subprogram 009b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 009c 00c7 | | Action Elaborate_Subprogram 009d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 009e 00c7 | | Action Elaborate_Subprogram 009f BODY_0008: 009f 00bc | | Action Signal_Activated 00a0 00bb | | Action Signal_Completion 00a1 0000 0000 | | .BLANK 0000[0x7] 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 e5f8 | | Load 0x2,-0x8 00ac e5f9 | | Load 0x2,-0x7 00ad 00e3 | | Load_Encached Natural_Cache 00ae e5fb | | Load 0x2,-0x5 00af e5fc | | Load 0x2,-0x4 00b0 4800 |H | Short_Literal 0x0 00b1 e5fd | | Load 0x2,-0x3 00b2 e5fe | | Load 0x2,-0x2 00b3 e5ff | | Load 0x2,-0x1 00b4 e21d | | Load 0x1,0x1d 00b5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00b6 c5fa | | Store 0x2,-0x6 00b7 00d1 | | Pop_Control Pop_Count_1 00b8 c5f8 | | Store 0x2,-0x8 00b9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e5f8 | | Load 0x2,-0x8 00c4 e5f9 | | Load 0x2,-0x7 00c5 00e3 | | Load_Encached Natural_Cache 00c6 e5fb | | Load 0x2,-0x5 00c7 e5fc | | Load 0x2,-0x4 00c8 4801 |H | Short_Literal 0x1 00c9 e5fd | | Load 0x2,-0x3 00ca e5fe | | Load 0x2,-0x2 00cb e5ff | | Load 0x2,-0x1 00cc e21d | | Load 0x1,0x1d 00cd 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00ce c5fa | | Store 0x2,-0x6 00cf 00d1 | | Pop_Control Pop_Count_1 00d0 c5f8 | | Store 0x2,-0x8 00d1 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e5fb | | Load 0x2,-0x5 00dc e5fc | | Load 0x2,-0x4 00dd 0120 | | Execute Any,Is_Value 00de 6803 |h | Jump_Zero 0xe2 00df e21d | | Load 0x1,0x1d 00e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e1 7801 |x | Jump 0xe3 00e2 e5fc | | Load 0x2,-0x4 00e3 00ec | | Load_Encached Diana_Tree_Cache 00e4 00e2 | | Load_Encached Integer_Cache 00e5 e5ff | | Load 0x2,-0x1 00e6 e21d | | Load 0x1,0x1d 00e7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00e8 c5fe | | Store 0x2,-0x2 00e9 c5fd | | Store 0x2,-0x3 00ea c5fc | | Store 0x2,-0x4 00eb c5fb | | Store 0x2,-0x5 00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 e5fc | | Load 0x2,-0x4 00f4 00e3 | | Load_Encached Natural_Cache 00f5 e5fe | | Load 0x2,-0x2 00f6 0120 | | Execute Any,Is_Value 00f7 6803 |h | Jump_Zero 0xfb 00f8 e21d | | Load 0x1,0x1d 00f9 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00fa 7801 |x | Jump 0xfc 00fb e5fe | | Load 0x2,-0x2 00fc e5ff | | Load 0x2,-0x1 00fd e21d | | Load 0x1,0x1d 00fe 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 00ff c5fe | | Store 0x2,-0x2 0100 c5fd | | Store 0x2,-0x3 0101 c5fc | | Store 0x2,-0x4 0102 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0103 0000 0000 | | .BLANK 0000[0x5] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b e5f9 | | Load 0x2,-0x7 010c e5fa | | Load 0x2,-0x6 010d 0120 | | Execute Any,Is_Value 010e 6803 |h | Jump_Zero 0x112 010f e21d | | Load 0x1,0x1d 0110 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0111 7801 |x | Jump 0x113 0112 e5fa | | Load 0x2,-0x6 0113 e5fb | | Load 0x2,-0x5 0114 0120 | | Execute Any,Is_Value 0115 6803 |h | Jump_Zero 0x119 0116 e21d | | Load 0x1,0x1d 0117 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0118 7801 |x | Jump 0x11a 0119 e5fb | | Load 0x2,-0x5 011a 00ec | | Load_Encached Diana_Tree_Cache 011b 00ec | | Load_Encached Diana_Tree_Cache 011c 00e2 | | Load_Encached Integer_Cache 011d e5ff | | Load 0x2,-0x1 011e e21d | | Load 0x1,0x1d 011f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0120 c5fe | | Store 0x2,-0x2 0121 c5fd | | Store 0x2,-0x3 0122 c5fc | | Store 0x2,-0x4 0123 c5fb | | Store 0x2,-0x5 0124 c5fa | | Store 0x2,-0x6 0125 c5f9 | | Store 0x2,-0x7 0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e5fd | | Load 0x2,-0x3 012c e5fe | | Load 0x2,-0x2 012d e5ff | | Load 0x2,-0x1 012e e21d | | Load 0x1,0x1d 012f 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 0130 00d2 | | Pop_Control Pop_Count_2 0131 c5fd | | Store 0x2,-0x3 0132 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0133 0000 0000 | | .BLANK 0000[0x5] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013d | = | .CONST 0x013d ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0003 | | .CONST 0x0003 ; Number of locals 013b INIT_0138: 013b 00e2 | | Load_Encached Integer_Cache 013c 00e1 | | Load_Encached Boolean_Cache 013d BODY_0138: 013d 4800 |H | Short_Literal 0x0 013e a5fd | | Store_Unchecked 0x2,-0x3 013f e5fe | | Load 0x2,-0x2 0140 7007 |p | Jump_Nonzero 0x148 0141 e5fc | | Load 0x2,-0x4 0142 0092 02bc | | Action Push_String_Extended,0x2bc ; "Frame number must be non-zero integer" 0144 e044 | D | Load 0x0,0x44 0145 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0146 c5fc | | Store 0x2,-0x4 0147 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0148 e5fe | | Load 0x2,-0x2 0149 0d00 | | Execute_Immediate Less,0x0 014a 6829 |h) | Jump_Zero 0x174 014b e5fc | | Load 0x2,-0x4 014c 00e1 | | Load_Encached Boolean_Cache 014d 00e2 | | Load_Encached Integer_Cache 014e 4800 |H | Short_Literal 0x0 014f e5ff | | Load 0x2,-0x1 0150 8045 | E | Call 0x0,0x45 0151 c402 | | Store 0x2,0x2 0152 005a | Z | Store_Top Discrete,At_Offset_2 0153 c5fc | | Store 0x2,-0x4 0154 4802 |H | Short_Literal 0x2 0155 e5fc | | Load 0x2,-0x4 0156 e044 | D | Load 0x0,0x44 0157 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0158 6801 |h | Jump_Zero 0x15a 0159 4503 |E | Exit_Suprogram New_Top_Offset 0x3 015a 00d8 | | Load_Top At_Offset_0 015b 7007 |p | Jump_Nonzero 0x163 015c e5fc | | Load 0x2,-0x4 015d 0092 02bd | | Action Push_String_Extended,0x2bd ; "Frame could not be found. Please use a postive value." 015f e044 | D | Load 0x0,0x44 0160 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0161 c5fc | | Store 0x2,-0x4 0162 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0163 00d9 | | Load_Top At_Offset_1 0164 e5fe | | Load 0x2,-0x2 0165 0273 | s | Execute Discrete,Plus 0166 0d00 | | Execute_Immediate Less,0x0 0167 6806 |h | Jump_Zero 0x16e 0168 0092 02be | | Action Push_String_Extended,0x2be ; "Nonexistent frame" 016a e044 | D | Load 0x0,0x44 016b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016c c5fc | | Store 0x2,-0x4 016d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016e 00d9 | | Load_Top At_Offset_1 016f e5fe | | Load 0x2,-0x2 0170 0273 | s | Execute Discrete,Plus 0171 0a01 | | Execute_Immediate Plus,0x1 0172 c5fd | | Store 0x2,-0x3 0173 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0174 e5fe | | Load 0x2,-0x2 0175 c5fd | | Store 0x2,-0x3 0176 e044 | D | Load 0x0,0x44 0177 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0178 c5fc | | Store 0x2,-0x4 0179 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0188 | | .CONST 0x0188 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 e046 | F | Load 0x0,0x46 0184 0322 | " | Declare_Variable Record 0185 00d8 | | Load_Top At_Offset_0 0186 1c00 | | Execute_Immediate Run_Utility,0x0 0187 00e3 | | Load_Encached Natural_Cache 0188 BODY_0180: 0188 0092 02bf | | Action Push_String_Extended,0x2bf ; "Resolve.Get_Frame_Information passed null_task" 018a e5ff | | Load 0x2,-0x1 018b 8015 | | Call 0x0,0x15 018c 0f00 | | Execute_Immediate Equal,0x0 018d e047 | G | Load 0x0,0x47 018e 180e | | Execute Package,Field_Execute,Field_Number 0xe 018f e005 | | Load 0x0,0x5 0190 c5fd | | Store 0x2,-0x3 0191 e00f | | Load 0x0,0xf 0192 c5fc | | Store 0x2,-0x4 0193 e007 | | Load 0x0,0x7 0194 c5fb | | Store 0x2,-0x5 0195 8048 | H | Call 0x0,0x48 0196 6807 |h | Jump_Zero 0x19e 0197 e5fa | | Load 0x2,-0x6 0198 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "Program has terminated" 019a e044 | D | Load 0x0,0x44 019b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019c c5fa | | Store 0x2,-0x6 019d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019e e5ff | | Load 0x2,-0x1 019f 8049 | I | Call 0x0,0x49 01a0 7007 |p | Jump_Nonzero 0x1a8 01a1 e5fa | | Load 0x2,-0x6 01a2 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "Nonexistent task" 01a4 e044 | D | Load 0x0,0x44 01a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a6 c5fa | | Store 0x2,-0x6 01a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a8 e5fa | | Load 0x2,-0x6 01a9 00e3 | | Load_Encached Natural_Cache 01aa e5fe | | Load 0x2,-0x2 01ab e5ff | | Load 0x2,-0x1 01ac 8213 | | Call 0x1,0x13 01ad 005a | Z | Store_Top Discrete,At_Offset_2 01ae c5fa | | Store 0x2,-0x6 01af 4802 |H | Short_Literal 0x2 01b0 e5fa | | Load 0x2,-0x6 01b1 e044 | D | Load 0x0,0x44 01b2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b3 6801 |h | Jump_Zero 0x1b5 01b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b5 e5fa | | Load 0x2,-0x6 01b6 00da | | Load_Top At_Offset_2 01b7 00da | | Load_Top At_Offset_2 01b8 e5ff | | Load 0x2,-0x1 01b9 804a | J | Call 0x0,0x4a 01ba 00d1 | | Pop_Control Pop_Count_1 01bb c5fa | | Store 0x2,-0x6 01bc 00d9 | | Load_Top At_Offset_1 01bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01be c5fd | | Store 0x2,-0x3 01bf 00d9 | | Load_Top At_Offset_1 01c0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01c1 c5fc | | Store 0x2,-0x4 01c2 00d9 | | Load_Top At_Offset_1 01c3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 01c4 c5fb | | Store 0x2,-0x5 01c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01ce | | .CONST 0x01ce ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0003 | | .CONST 0x0003 ; Number of locals 01cb INIT_01c8: 01cb 00e3 | | Load_Encached Natural_Cache 01cc 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 01ce BODY_01c8: 01ce e5fb | | Load 0x2,-0x5 01cf 00e3 | | Load_Encached Natural_Cache 01d0 e5ff | | Load 0x2,-0x1 01d1 e5fc | | Load 0x2,-0x4 01d2 8019 | | Call 0x0,0x19 01d3 8213 | | Call 0x1,0x13 01d4 005b | [ | Store_Top Discrete,At_Offset_3 01d5 c5fb | | Store 0x2,-0x5 01d6 4802 |H | Short_Literal 0x2 01d7 e5fb | | Load 0x2,-0x5 01d8 e044 | D | Load 0x0,0x44 01d9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01da 6801 |h | Jump_Zero 0x1dc 01db 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01dc 8403 | | Call 0x2,0x3 01dd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ea | | .CONST 0x01ea ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e013 | | Load 0x0,0x13 01e4 02c7 | | Declare_Variable Any 01e5 00db | | Load_Top At_Offset_3 01e6 e04b | K | Load 0x0,0x4b 01e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e8 804c | L | Call 0x0,0x4c 01e9 a402 | | Store_Unchecked 0x2,0x2 01ea BODY_01e0: 01ea 00d8 | | Load_Top At_Offset_0 01eb 8015 | | Call 0x0,0x15 01ec 680a |h | Jump_Zero 0x1f7 01ed 00db | | Load_Top At_Offset_3 01ee e04b | K | Load 0x0,0x4b 01ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f0 0092 02c2 | | Action Push_String_Extended,0x2c2 ; " does not name a task." 01f2 01cc | | Execute Vector,Catenate 01f3 e044 | D | Load 0x0,0x44 01f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f5 c5fd | | Store 0x2,-0x3 01f6 7803 |x | Jump 0x1fa 01f7 e044 | D | Load 0x0,0x44 01f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01f9 c5fd | | Store 0x2,-0x3 01fa 00d8 | | Load_Top At_Offset_0 01fb c5fe | | Store 0x2,-0x2 01fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020c | | .CONST 0x020c ; Address of begin 0201 021f | | .CONST 0x021f ; Address of exception handler 0202 0003 | | .CONST 0x0003 ; Number of locals 0203 INIT_0200: 0203 e04d | M | Load 0x0,0x4d 0204 02c7 | | Declare_Variable Any 0205 00d8 | | Load_Top At_Offset_0 0206 1c00 | | Execute_Immediate Run_Utility,0x0 0207 4801 |H | Short_Literal 0x1 0208 e04e | N | Load 0x0,0x4e 0209 1c08 | | Execute_Immediate Run_Utility,0x8 020a 00d8 | | Load_Top At_Offset_0 020b 1c00 | | Execute_Immediate Run_Utility,0x0 020c BODY_0200: 020c e5fd | | Load 0x2,-0x3 020d e5fe | | Load 0x2,-0x2 020e 0120 | | Execute Any,Is_Value 020f 6802 |h | Jump_Zero 0x212 0210 e013 | | Load 0x0,0x13 0211 7801 |x | Jump 0x213 0212 e5fe | | Load 0x2,-0x2 0213 e5ff | | Load 0x2,-0x1 0214 804f | O | Call 0x0,0x4f 0215 c5fe | | Store 0x2,-0x2 0216 c5fd | | Store 0x2,-0x3 0217 4802 |H | Short_Literal 0x2 0218 e5fd | | Load 0x2,-0x3 0219 e044 | D | Load 0x0,0x44 021a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 021b 7002 |p | Jump_Nonzero 0x21e 021c e5fd | | Load 0x2,-0x3 021d 8050 | P | Call 0x0,0x50 021e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021f TRAP_0200: 021f 0007 | | Action Break_Optional 0220 0092 02c3 | | Action Push_String_Extended,0x2c3 ; "Exception " 0222 e051 | Q | Load 0x0,0x51 0223 180d | | Execute Package,Field_Execute,Field_Number 0xd 0224 01cc | | Execute Vector,Catenate 0225 0092 02c4 | | Action Push_String_Extended,0x2c4 ; " raised in get_task_id_from_context." 0227 01cc | | Execute Vector,Catenate 0228 e044 | D | Load 0x0,0x44 0229 1811 | | Execute Package,Field_Execute,Field_Number 0x11 022a c5fd | | Store 0x2,-0x3 022b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 022c 0000 0000 | | .BLANK 0000[0x4] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 023a | : | .CONST 0x023a ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0003 | | .CONST 0x0003 ; Number of locals 0233 INIT_0230: 0233 48fa |H | Short_Literal 0xfa 0234 e04b | K | Load 0x0,0x4b 0235 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0236 1c08 | | Execute_Immediate Run_Utility,0x8 0237 00d8 | | Load_Top At_Offset_0 0238 1c00 | | Execute_Immediate Run_Utility,0x0 0239 00e1 | | Load_Encached Boolean_Cache 023a BODY_0230: 023a e5fc | | Load 0x2,-0x4 023b 00da | | Load_Top At_Offset_2 023c 00e1 | | Load_Encached Boolean_Cache 023d e5fd | | Load 0x2,-0x3 023e 0120 | | Execute Any,Is_Value 023f 6802 |h | Jump_Zero 0x242 0240 e00e | | Load 0x0,0xe 0241 7801 |x | Jump 0x243 0242 e5fd | | Load 0x2,-0x3 0243 e5fe | | Load 0x2,-0x2 0244 0120 | | Execute Any,Is_Value 0245 6802 |h | Jump_Zero 0x248 0246 e004 | | Load 0x0,0x4 0247 7801 |x | Jump 0x249 0248 e5fe | | Load 0x2,-0x2 0249 e5ff | | Load 0x2,-0x1 024a 8052 | R | Call 0x0,0x52 024b c5fe | | Store 0x2,-0x2 024c c5fd | | Store 0x2,-0x3 024d 005b | [ | Store_Top Discrete,At_Offset_3 024e 00d1 | | Pop_Control Pop_Count_1 024f c5fc | | Store 0x2,-0x4 0250 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 025c e053 | S | Load 0x0,0x53 025d 012f | / | Execute Any,Equal 025e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025f 0000 | | .XXX[0x1] 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 e5f7 | | Load 0x2,-0x9 0264 00e1 | | Load_Encached Boolean_Cache 0265 e054 | T | Load 0x0,0x54 0266 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0267 00e3 | | Load_Encached Natural_Cache 0268 00ec | | Load_Encached Diana_Tree_Cache 0269 00e3 | | Load_Encached Natural_Cache 026a e5fd | | Load 0x2,-0x3 026b e055 | U | Load 0x0,0x55 026c e5fe | | Load 0x2,-0x2 026d e5ff | | Load 0x2,-0x1 026e 8056 | V | Call 0x0,0x56 026f 00d1 | | Pop_Control Pop_Count_1 0270 c055 | U | Store 0x0,0x55 0271 00d1 | | Pop_Control Pop_Count_1 0272 c5fc | | Store 0x2,-0x4 0273 c5fb | | Store 0x2,-0x5 0274 c5fa | | Store 0x2,-0x6 0275 c5f9 | | Store 0x2,-0x7 0276 c5f8 | | Store 0x2,-0x8 0277 c5f7 | | Store 0x2,-0x9 0278 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0286 | | .CONST 0x0286 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 e054 | T | Load 0x0,0x54 0284 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0285 00e1 | | Load_Encached Boolean_Cache 0286 BODY_0280: 0286 e5fb | | Load 0x2,-0x5 0287 00e1 | | Load_Encached Boolean_Cache 0288 00e1 | | Load_Encached Boolean_Cache 0289 e054 | T | Load 0x0,0x54 028a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028b 00e3 | | Load_Encached Natural_Cache 028c e055 | U | Load 0x0,0x55 028d 4800 |H | Short_Literal 0x0 028e e5fe | | Load 0x2,-0x2 028f e5ff | | Load 0x2,-0x1 0290 8057 | W | Call 0x0,0x57 0291 c055 | U | Store 0x0,0x55 0292 c5fd | | Store 0x2,-0x3 0293 c402 | | Store 0x2,0x2 0294 c5fc | | Store 0x2,-0x4 0295 005a | Z | Store_Top Discrete,At_Offset_2 0296 c5fb | | Store 0x2,-0x5 0297 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "Get_Library_Package_Info: Kind /= Library_Unit" 0299 00da | | Load_Top At_Offset_2 029a 0f00 | | Execute_Immediate Equal,0x0 029b e047 | G | Load 0x0,0x47 029c 180e | | Execute Package,Field_Execute,Field_Number 0xe 029d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 029e 0000 0000 | | .XXX[0x2] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 480a |H | Short_Literal 0xa 02a4 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "Warning: Task " 02a6 e5ff | | Load 0x2,-0x1 02a7 8058 | X | Call 0x0,0x58 02a8 01cc | | Execute Vector,Catenate 02a9 0092 02c7 | | Action Push_String_Extended,0x2c7 ; " is running" 02ab 01cc | | Execute Vector,Catenate 02ac 01cb | | Execute Vector,Append 02ad 8059 | Y | Call 0x0,0x59 02ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e5fb | | Load 0x2,-0x5 02b4 e5fc | | Load 0x2,-0x4 02b5 e5fd | | Load 0x2,-0x3 02b6 e5fe | | Load 0x2,-0x2 02b7 e402 | | Load 0x2,0x2 02b8 805a | Z | Call 0x0,0x5a 02b9 00d1 | | Pop_Control Pop_Count_1 02ba c5fb | | Store 0x2,-0x5 02bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02bc ; -------------------------------------------------------------------------------------- 02bc ; STRING TABLE 02bc ; -------------------------------------------------------------------------------------- 02bc 001a | | .STRTAB 0x001a->0x02c9 ; "Frame number must be non-zero integer" 02bd 003d | = | .STRTAB 0x003d->0x02db ; "Frame could not be found. Please use a postive value." 02be 0071 | q | .STRTAB 0x0071->0x02f6 ; "Nonexistent frame" 02bf 0080 | | .STRTAB 0x0080->0x02ff ; "Resolve.Get_Frame_Information passed null_task" 02c0 00ac | | .STRTAB 0x00ac->0x0316 ; "Program has terminated" 02c1 00c0 | | .STRTAB 0x00c0->0x0321 ; "Nonexistent task" 02c2 00ce | | .STRTAB 0x00ce->0x0329 ; " does not name a task." 02c3 00e2 | | .STRTAB 0x00e2->0x0334 ; "Exception " 02c4 00ea | | .STRTAB 0x00ea->0x0339 ; " raised in get_task_id_from_context." 02c5 010c | | .STRTAB 0x010c->0x034b ; "Get_Library_Package_Info: Kind /= Library_Unit" 02c6 0138 | 8 | .STRTAB 0x0138->0x0362 ; "Warning: Task " 02c7 0144 | D | .STRTAB 0x0144->0x0369 ; " is running" 02c8 014d | M | .STREND 0x014d->0x036e 02c9 4672 616d |Fram| .STRTAB_STRINGS 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; Debug Table 0370 ; -------------------------------------------------------------------------------------- 0370 0004 000d | | .DEBUG4 0x0004,0x000d,0x53a8,0x0000,0x0001,0x0000 0376 0000 0000 | | .BLANK 0000[0x8a]