|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦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 0550 | P | .CONST 0x0550 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0056 | V | .CONST 0x0056 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0013 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0015 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0017 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0019 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001b 00bf | | Action Accept_Activation 001c 0092 03b6 | | Action Push_String_Extended,0x3b6 ; "----------------------------------------------------------" 001e 4800 |H | Short_Literal 0x0 001f 0093 0363 | c| push_full_address INIT_0360 0021 00f5 | | Load_Encached Unused21 0022 037a | z | Declare_Type Task,Defined,Not_Elaborated 0023 00d8 | | Load_Top At_Offset_0 0024 02a0 | | Declare_Subprogram Null_Subprogram 0025 4818 |H | Short_Literal 0x18 0026 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0027 00d8 | | Load_Top At_Offset_0 0028 0007 | | Action Break_Optional 0029 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call 002b 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 002d 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 002f 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call 0031 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 0033 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 0035 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 0037 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 0039 e002 | | Load 0x0,0x2 003a e003 | | Load 0x0,0x3 003b e004 | | Load 0x0,0x4 003c e005 | | Load 0x0,0x5 003d e006 | | Load 0x0,0x6 003e 4805 |H | Short_Literal 0x5 003f e216 | | Load 0x1,0x16 0040 020e | | Execute Module,Augment_Imports 0041 e216 | | Load 0x1,0x16 0042 020d | | Execute Module,Elaborate 0043 0007 | | Action Break_Optional 0044 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 0046 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0047 00c7 | | Action Elaborate_Subprogram 0048 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0049 00c7 | | Action Elaborate_Subprogram 004a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 004b 00c7 | | Action Elaborate_Subprogram 004c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004d 00c7 | | Action Elaborate_Subprogram 004e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004f 00c7 | | Action Elaborate_Subprogram 0050 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0051 00c7 | | Action Elaborate_Subprogram 0052 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0053 00c7 | | Action Elaborate_Subprogram 0054 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0055 00c7 | | Action Elaborate_Subprogram 0056 BODY_0008: 0056 00bc | | Action Signal_Activated 0057 00bb | | Action Signal_Completion 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e005 | | Load 0x0,0x5 005c 180e | | Execute Package,Field_Execute,Field_Number 0xe 005d e007 | | Load 0x0,0x7 005e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0060 c008 | | Store 0x0,0x8 0061 8220 | | Call 0x1,0x20 0062 821f | | Call 0x1,0x1f 0063 e009 | | Load 0x0,0x9 0064 e00a | | Load 0x0,0xa 0065 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0066 e00b | | Load 0x0,0xb 0067 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 0068 c009 | | Store 0x0,0x9 0069 800c | | Call 0x0,0xc 006a 4801 |H | Short_Literal 0x1 006b 821b | | Call 0x1,0x1b 006c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 821f | | Call 0x1,0x1f 0074 800d | | Call 0x0,0xd 0075 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0076 0000 0000 | | .XXX[0x2] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0080 | | .CONST 0x0080 ; Address of begin 0079 00d2 | | .CONST 0x00d2 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b e00e | | Load 0x0,0xe 007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007d 02c7 | | Declare_Variable Any 007e 00d8 | | Load_Top At_Offset_0 007f 1c00 | | Execute_Immediate Run_Utility,0x0 0080 BODY_0078: 0080 e00f | | Load 0x0,0xf 0081 700f |p | Jump_Nonzero 0x91 0082 00db | | Load_Top At_Offset_3 0083 8221 | ! | Call 0x1,0x21 0084 e5fe | | Load 0x2,-0x2 0085 e5ff | | Load 0x2,-0x1 0086 821a | | Call 0x1,0x1a 0087 00d8 | | Load_Top At_Offset_0 0088 0092 03b7 | | Action Push_String_Extended,0x3b7 ; "Root_Task" 008a e5fe | | Load 0x2,-0x2 008b 8010 | | Call 0x0,0x10 008c c402 | | Store 0x2,0x2 008d 8011 | | Call 0x0,0x11 008e e012 | | Load 0x0,0x12 008f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0090 782e |x. | Jump 0xbf 0091 e013 | | Load 0x0,0x13 0092 4810 |H | Short_Literal 0x10 0093 e014 | | Load 0x0,0x14 0094 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0095 6807 |h | Jump_Zero 0x9d 0096 0092 03b8 | | Action Push_String_Extended,0x3b8 ; "\x0aYou must debug_off to stop debugging your old job before debugging a new one.\x0a" 0098 8015 | | Call 0x0,0x15 0099 00db | | Load_Top At_Offset_3 009a e016 | | Load 0x0,0x16 009b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 009c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009d e017 | | Load 0x0,0x17 009e 8018 | | Call 0x0,0x18 009f 680f |h | Jump_Zero 0xaf 00a0 e013 | | Load 0x0,0x13 00a1 4809 |H | Short_Literal 0x9 00a2 e014 | | Load 0x0,0x14 00a3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00a4 6804 |h | Jump_Zero 0xa9 00a5 0092 03b9 | | Action Push_String_Extended,0x3b9 ; "\x0aKilling current job to begin debugging a new one." 00a7 8219 | | Call 0x1,0x19 00a8 7806 |x | Jump 0xaf 00a9 8019 | | Call 0x0,0x19 00aa 0092 03ba | | Action Push_String_Extended,0x3ba ; "Detaching current job to begin debugging a new one." 00ac 801a | | Call 0x0,0x1a 00ad 8019 | | Call 0x0,0x19 00ae 821e | | Call 0x1,0x1e 00af 821c | | Call 0x1,0x1c 00b0 e215 | | Load 0x1,0x15 00b1 801a | | Call 0x0,0x1a 00b2 8019 | | Call 0x0,0x19 00b3 e5fe | | Load 0x2,-0x2 00b4 e5ff | | Load 0x2,-0x1 00b5 821a | | Call 0x1,0x1a 00b6 00d8 | | Load_Top At_Offset_0 00b7 0092 03b7 | | Action Push_String_Extended,0x3b7 ; "Root_Task" 00b9 e5fe | | Load 0x2,-0x2 00ba 8010 | | Call 0x0,0x10 00bb c402 | | Store 0x2,0x2 00bc 8011 | | Call 0x0,0x11 00bd e012 | | Load 0x0,0x12 00be 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00bf 00d8 | | Load_Top At_Offset_0 00c0 e5fe | | Load 0x2,-0x2 00c1 801b | | Call 0x0,0x1b 00c2 c402 | | Store 0x2,0x2 00c3 4802 |H | Short_Literal 0x2 00c4 00d9 | | Load_Top At_Offset_1 00c5 e00e | | Load 0x0,0xe 00c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c7 6809 |h | Jump_Zero 0xd1 00c8 480a |H | Short_Literal 0xa 00c9 0092 03bb | | Action Push_String_Extended,0x3bb ; "Start_Debugging: " 00cb 00da | | Load_Top At_Offset_2 00cc e00e | | Load 0x0,0xe 00cd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ce 01cc | | Execute Vector,Catenate 00cf 01cb | | Execute Vector,Append 00d0 8015 | | Call 0x0,0x15 00d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d2 TRAP_0078: 00d2 0007 | | Action Break_Optional 00d3 480a |H | Short_Literal 0xa 00d4 0092 03bc | | Action Push_String_Extended,0x3bc ; "Sart_Debugging: " 00d6 e01c | | Load 0x0,0x1c 00d7 180d | | Execute Package,Field_Execute,Field_Number 0xd 00d8 01cc | | Execute Vector,Catenate 00d9 01cb | | Execute Vector,Append 00da 8015 | | Call 0x0,0x15 00db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00ea | | .CONST 0x00ea ; Address of begin 00e1 0109 | | .CONST 0x0109 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 e002 | | Load 0x0,0x2 00e4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00e5 e00e | | Load 0x0,0xe 00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e7 02c7 | | Declare_Variable Any 00e8 00d8 | | Load_Top At_Offset_0 00e9 1c00 | | Execute_Immediate Run_Utility,0x0 00ea BODY_00e0: 00ea e5ff | | Load 0x2,-0x1 00eb 801d | | Call 0x0,0x1d 00ec e002 | | Load 0x0,0x2 00ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ee 005a | Z | Store_Top Discrete,At_Offset_2 00ef e00f | | Load 0x0,0xf 00f0 00da | | Load_Top At_Offset_2 00f1 027f | | Execute Discrete,Equal 00f2 6815 |h | Jump_Zero 0x108 00f3 e017 | | Load 0x0,0x17 00f4 8018 | | Call 0x0,0x18 00f5 6812 |h | Jump_Zero 0x108 00f6 00d8 | | Load_Top At_Offset_0 00f7 e5ff | | Load 0x2,-0x1 00f8 801b | | Call 0x0,0x1b 00f9 c403 | | Store 0x2,0x3 00fa 4802 |H | Short_Literal 0x2 00fb 00d9 | | Load_Top At_Offset_1 00fc e00e | | Load 0x0,0xe 00fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00fe 6809 |h | Jump_Zero 0x108 00ff 480a |H | Short_Literal 0xa 0100 0092 03bd | | Action Push_String_Extended,0x3bd ; "Debug_On failed: " 0102 00da | | Load_Top At_Offset_2 0103 e00e | | Load 0x0,0xe 0104 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0105 01cc | | Execute Vector,Catenate 0106 01cb | | Execute Vector,Append 0107 8015 | | Call 0x0,0x15 0108 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0109 TRAP_00e0: 0109 0007 | | Action Break_Optional 010a 480a |H | Short_Literal 0xa 010b 0092 03be | | Action Push_String_Extended,0x3be ; "Debug_On: " 010d e01c | | Load 0x0,0x1c 010e 180d | | Execute Package,Field_Execute,Field_Number 0xd 010f 01cc | | Execute Vector,Catenate 0110 01cb | | Execute Vector,Append 0111 8015 | | Call 0x0,0x15 0112 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0122 | " | .CONST 0x0122 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b e002 | | Load 0x0,0x2 011c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 011d e00e | | Load 0x0,0xe 011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011f 02c7 | | Declare_Variable Any 0120 00d8 | | Load_Top At_Offset_0 0121 1c00 | | Execute_Immediate Run_Utility,0x0 0122 BODY_0118: 0122 e5ff | | Load 0x2,-0x1 0123 801d | | Call 0x0,0x1d 0124 e002 | | Load 0x0,0x2 0125 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0126 005a | Z | Store_Top Discrete,At_Offset_2 0127 e00f | | Load 0x0,0xf 0128 00da | | Load_Top At_Offset_2 0129 027f | | Execute Discrete,Equal 012a 6815 |h | Jump_Zero 0x140 012b e017 | | Load 0x0,0x17 012c 8018 | | Call 0x0,0x18 012d 6812 |h | Jump_Zero 0x140 012e 00d8 | | Load_Top At_Offset_0 012f e5ff | | Load 0x2,-0x1 0130 801e | | Call 0x0,0x1e 0131 c403 | | Store 0x2,0x3 0132 4802 |H | Short_Literal 0x2 0133 00d9 | | Load_Top At_Offset_1 0134 e00e | | Load 0x0,0xe 0135 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0136 6809 |h | Jump_Zero 0x140 0137 480a |H | Short_Literal 0xa 0138 0092 03bf | | Action Push_String_Extended,0x3bf ; "Debug_Off failed: " 013a 00da | | Load_Top At_Offset_2 013b e00e | | Load 0x0,0xe 013c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 013d 01cc | | Execute Vector,Catenate 013e 01cb | | Execute Vector,Append 013f 8015 | | Call 0x0,0x15 0140 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0150 | P | .CONST 0x0150 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b e00e | | Load 0x0,0xe 014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014d 02c7 | | Declare_Variable Any 014e 00d8 | | Load_Top At_Offset_0 014f 1c00 | | Execute_Immediate Run_Utility,0x0 0150 BODY_0148: 0150 e017 | | Load 0x0,0x17 0151 8018 | | Call 0x0,0x18 0152 7005 |p | Jump_Nonzero 0x158 0153 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "Current program has already terminated" 0155 801a | | Call 0x0,0x1a 0156 8019 | | Call 0x0,0x19 0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0158 00db | | Load_Top At_Offset_3 0159 6805 |h | Jump_Zero 0x15f 015a 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "Killing current job.\x0a----------------------------------------------------------" 015c 8219 | | Call 0x1,0x19 015d 821c | | Call 0x1,0x1c 015e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015f 8019 | | Call 0x0,0x19 0160 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "Detaching current job." 0162 801a | | Call 0x0,0x1a 0163 8019 | | Call 0x0,0x19 0164 e215 | | Load 0x1,0x15 0165 801a | | Call 0x0,0x1a 0166 8019 | | Call 0x0,0x19 0167 821e | | Call 0x1,0x1e 0168 821c | | Call 0x1,0x1c 0169 00d8 | | Load_Top At_Offset_0 016a e017 | | Load 0x0,0x17 016b 801e | | Call 0x0,0x1e 016c c402 | | Store 0x2,0x2 016d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e017 | | Load 0x0,0x17 0174 8018 | | Call 0x0,0x18 0175 6802 |h | Jump_Zero 0x178 0176 00ea | | Load_Encached Null_String_Cache 0177 8219 | | Call 0x1,0x19 0178 8214 | | Call 0x1,0x14 0179 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0189 | | .CONST 0x0189 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e218 | | Load 0x1,0x18 0184 6803 |h | Jump_Zero 0x188 0185 e218 | | Load 0x1,0x18 0186 0229 | ) | Execute Access,All_Read 0187 0209 | | Execute Task,Abort 0188 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0189 TRAP_0180: 0189 0007 | | Action Break_Optional 018a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018b 0000 0000 | | .BLANK 0000[0x5] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 01a7 | | .CONST 0x01a7 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 e01f | | Load 0x0,0x1f 0194 e00f | | Load 0x0,0xf 0195 e020 | | Load 0x0,0x20 0196 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0197 027f | | Execute Discrete,Equal 0198 680d |h | Jump_Zero 0x1a6 0199 00da | | Load_Top At_Offset_2 019a 01db | | Execute Vector,Length 019b 6807 |h | Jump_Zero 0x1a3 019c 00da | | Load_Top At_Offset_2 019d 801a | | Call 0x0,0x1a 019e 8019 | | Call 0x0,0x19 019f e00f | | Load 0x0,0xf 01a0 e016 | | Load 0x0,0x16 01a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a3 e00f | | Load 0x0,0xf 01a4 e016 | | Load 0x0,0x16 01a5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a7 TRAP_0190: 01a7 0007 | | Action Break_Optional 01a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a9 0000 0000 | | .BLANK 0000[0x7] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b8 | | .CONST 0x01b8 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 e004 | | Load 0x0,0x4 01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b5 e004 | | Load 0x0,0x4 01b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b8 BODY_01b0: 01b8 e5ff | | Load 0x2,-0x1 01b9 c00f | | Store 0x0,0xf 01ba e5fe | | Load 0x2,-0x2 01bb c017 | | Store 0x0,0x17 01bc e5ff | | Load 0x2,-0x1 01bd 7003 |p | Jump_Nonzero 0x1c1 01be 4800 |H | Short_Literal 0x0 01bf c01f | | Store 0x0,0x1f 01c0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c1 e5ff | | Load 0x2,-0x1 01c2 e020 | | Load 0x0,0x20 01c3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01c4 c01f | | Store 0x0,0x1f 01c5 e5ff | | Load 0x2,-0x1 01c6 e004 | | Load 0x0,0x4 01c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01ca e004 | | Load 0x0,0x4 01cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cc e005 | | Load 0x0,0x5 01cd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ce 00da | | Load_Top At_Offset_2 01cf e004 | | Load 0x0,0x4 01d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01d1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01d2 005a | Z | Store_Top Discrete,At_Offset_2 01d3 e021 | ! | Load 0x0,0x21 01d4 00d9 | | Load_Top At_Offset_1 01d5 e012 | | Load 0x0,0x12 01d6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01d7 c021 | ! | Store 0x0,0x21 01d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e8 | | .CONST 0x01e8 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e00e | | Load 0x0,0xe 01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e5 02c7 | | Declare_Variable Any 01e6 00d8 | | Load_Top At_Offset_0 01e7 1c00 | | Execute_Immediate Run_Utility,0x0 01e8 BODY_01e0: 01e8 e022 | " | Load 0x0,0x22 01e9 8023 | # | Call 0x0,0x23 01ea c022 | " | Store 0x0,0x22 01eb e024 | $ | Load 0x0,0x24 01ec e025 | % | Load 0x0,0x25 01ed 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01ee c024 | $ | Store 0x0,0x24 01ef e026 | & | Load 0x0,0x26 01f0 e00a | | Load 0x0,0xa 01f1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01f2 e027 | ' | Load 0x0,0x27 01f3 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 01f4 c026 | & | Store 0x0,0x26 01f5 e028 | ( | Load 0x0,0x28 01f6 e00a | | Load 0x0,0xa 01f7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01f8 e029 | ) | Load 0x0,0x29 01f9 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 01fa c028 | ( | Store 0x0,0x28 01fb 4800 |H | Short_Literal 0x0 01fc c02a | * | Store 0x0,0x2a 01fd 802b | + | Call 0x0,0x2b 01fe 00d8 | | Load_Top At_Offset_0 01ff e009 | | Load 0x0,0x9 0200 e00b | | Load 0x0,0xb 0201 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0202 c009 | | Store 0x0,0x9 0203 c402 | | Store 0x2,0x2 0204 e02c | , | Load 0x0,0x2c 0205 802d | - | Call 0x0,0x2d 0206 c02c | , | Store 0x0,0x2c 0207 e02e | . | Load 0x0,0x2e 0208 e00a | | Load 0x0,0xa 0209 1b17 | | Execute Package,Field_Read,Field_Number 0x17 020a e02f | / | Load 0x0,0x2f 020b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 020c c02e | . | Store 0x0,0x2e 020d 4800 |H | Short_Literal 0x0 020e c030 | 0 | Store 0x0,0x30 020f e031 | 1 | Load 0x0,0x31 0210 e00a | | Load 0x0,0xa 0211 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0212 e032 | 2 | Load 0x0,0x32 0213 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0214 c031 | 1 | Store 0x0,0x31 0215 e033 | 3 | Load 0x0,0x33 0216 e00a | | Load 0x0,0xa 0217 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0218 e034 | 4 | Load 0x0,0x34 0219 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 021a c033 | 3 | Store 0x0,0x33 021b 8035 | 5 | Call 0x0,0x35 021c 00db | | Load_Top At_Offset_3 021d 681c |h | Jump_Zero 0x23a 021e e036 | 6 | Load 0x0,0x36 021f e00a | | Load 0x0,0xa 0220 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0221 e037 | 7 | Load 0x0,0x37 0222 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0223 c036 | 6 | Store 0x0,0x36 0224 00d8 | | Load_Top At_Offset_0 0225 e036 | 6 | Load 0x0,0x36 0226 4800 |H | Short_Literal 0x0 0227 e037 | 7 | Load 0x0,0x37 0228 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0229 c036 | 6 | Store 0x0,0x36 022a c402 | | Store 0x2,0x2 022b 4802 |H | Short_Literal 0x2 022c 00d9 | | Load_Top At_Offset_1 022d e00e | | Load 0x0,0xe 022e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022f 6820 |h | Jump_Zero 0x250 0230 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "Error starting to catch all exceptions: " 0232 8015 | | Call 0x0,0x15 0233 480a |H | Short_Literal 0xa 0234 00d9 | | Load_Top At_Offset_1 0235 e00e | | Load 0x0,0xe 0236 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0237 01cb | | Execute Vector,Append 0238 8015 | | Call 0x0,0x15 0239 7816 |x | Jump 0x250 023a 00d8 | | Load_Top At_Offset_0 023b e036 | 6 | Load 0x0,0x36 023c e00a | | Load 0x0,0xa 023d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 023e e037 | 7 | Load 0x0,0x37 023f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0240 c036 | 6 | Store 0x0,0x36 0241 c402 | | Store 0x2,0x2 0242 4802 |H | Short_Literal 0x2 0243 00d9 | | Load_Top At_Offset_1 0244 e00e | | Load 0x0,0xe 0245 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0246 6809 |h | Jump_Zero 0x250 0247 0092 03c4 | | Action Push_String_Extended,0x3c4 ; "Error re-activating exception-handling state: \x0a" 0249 8015 | | Call 0x0,0x15 024a 480a |H | Short_Literal 0xa 024b 00d9 | | Load_Top At_Offset_1 024c e00e | | Load 0x0,0xe 024d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 024e 01cb | | Execute Vector,Append 024f 8015 | | Call 0x0,0x15 0250 8038 | 8 | Call 0x0,0x38 0251 4800 |H | Short_Literal 0x0 0252 821a | | Call 0x1,0x1a 0253 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0254 0000 0000 | | .BLANK 0000[0x4] 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 e013 | | Load 0x0,0x13 025c 4811 |H | Short_Literal 0x11 025d e014 | | Load 0x0,0x14 025e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 025f 0f00 | | Execute_Immediate Equal,0x0 0260 821b | | Call 0x1,0x1b 0261 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0262 0000 0000 | | .BLANK 0000[0x6] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 4802 |H | Short_Literal 0x2 026c e5fe | | Load 0x2,-0x2 026d e00e | | Load 0x0,0xe 026e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 026f 680d |h | Jump_Zero 0x27d 0270 0092 03c5 | | Action Push_String_Extended,0x3c5 ; "Error deactivating " 0272 00db | | Load_Top At_Offset_3 0273 01cc | | Execute Vector,Catenate 0274 0092 03c6 | | Action Push_String_Extended,0x3c6 ; ": " 0276 01cc | | Execute Vector,Catenate 0277 801a | | Call 0x0,0x1a 0278 00db | | Load_Top At_Offset_3 0279 e00e | | Load 0x0,0xe 027a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 027b 801a | | Call 0x0,0x1a 027c 8019 | | Call 0x0,0x19 027d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027e 0000 0000 | | .XXX[0x2] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0291 | | .CONST 0x0291 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0004 | | .CONST 0x0004 ; Number of locals 0283 INIT_0280: 0283 e00e | | Load 0x0,0xe 0284 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0285 02c7 | | Declare_Variable Any 0286 00d8 | | Load_Top At_Offset_0 0287 1c00 | | Execute_Immediate Run_Utility,0x0 0288 e039 | 9 | Load 0x0,0x39 0289 181a | | Execute Package,Field_Execute,Field_Number 0x1a 028a e03a | : | Load 0x0,0x3a 028b 03f1 | | Declare_Variable Discrete,With_Value 028c e03b | ; | Load 0x0,0x3b 028d 0322 | " | Declare_Variable Record 028e 803c | < | Call 0x0,0x3c 028f 00d9 | | Load_Top At_Offset_1 0290 017d | } | Execute Record,Structure_Write 0291 BODY_0280: 0291 00da | | Load_Top At_Offset_2 0292 e009 | | Load 0x0,0x9 0293 e00b | | Load 0x0,0xb 0294 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0295 c009 | | Store 0x0,0x9 0296 c402 | | Store 0x2,0x2 0297 00da | | Load_Top At_Offset_2 0298 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "Breakpoints" 029a 821d | | Call 0x1,0x1d 029b c402 | | Store 0x2,0x2 029c 00da | | Load_Top At_Offset_2 029d e026 | & | Load 0x0,0x26 029e 8038 | 8 | Call 0x0,0x38 029f e027 | ' | Load 0x0,0x27 02a0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02a1 c026 | & | Store 0x0,0x26 02a2 c402 | | Store 0x2,0x2 02a3 00da | | Load_Top At_Offset_2 02a4 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Stepping information" 02a6 821d | | Call 0x1,0x1d 02a7 c402 | | Store 0x2,0x2 02a8 00da | | Load_Top At_Offset_2 02a9 00d9 | | Load_Top At_Offset_1 02aa e028 | ( | Load 0x0,0x28 02ab e403 | | Load 0x2,0x3 02ac 4800 |H | Short_Literal 0x0 02ad 8038 | 8 | Call 0x0,0x38 02ae e029 | ) | Load 0x0,0x29 02af 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02b0 c028 | ( | Store 0x0,0x28 02b1 00d1 | | Pop_Control Pop_Count_1 02b2 c402 | | Store 0x2,0x2 02b3 00da | | Load_Top At_Offset_2 02b4 00d9 | | Load_Top At_Offset_1 02b5 e028 | ( | Load 0x0,0x28 02b6 e403 | | Load 0x2,0x3 02b7 4800 |H | Short_Literal 0x0 02b8 8038 | 8 | Call 0x0,0x38 02b9 e029 | ) | Load 0x0,0x29 02ba 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 02bb c028 | ( | Store 0x0,0x28 02bc 00d1 | | Pop_Control Pop_Count_1 02bd c402 | | Store 0x2,0x2 02be 00da | | Load_Top At_Offset_2 02bf 00d9 | | Load_Top At_Offset_1 02c0 e028 | ( | Load 0x0,0x28 02c1 e403 | | Load 0x2,0x3 02c2 4800 |H | Short_Literal 0x0 02c3 8038 | 8 | Call 0x0,0x38 02c4 e029 | ) | Load 0x0,0x29 02c5 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 02c6 c028 | ( | Store 0x0,0x28 02c7 00d1 | | Pop_Control Pop_Count_1 02c8 c402 | | Store 0x2,0x2 02c9 00da | | Load_Top At_Offset_2 02ca 00d9 | | Load_Top At_Offset_1 02cb e028 | ( | Load 0x0,0x28 02cc e403 | | Load 0x2,0x3 02cd 4800 |H | Short_Literal 0x0 02ce 8038 | 8 | Call 0x0,0x38 02cf e029 | ) | Load 0x0,0x29 02d0 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 02d1 c028 | ( | Store 0x0,0x28 02d2 00d1 | | Pop_Control Pop_Count_1 02d3 c402 | | Store 0x2,0x2 02d4 00da | | Load_Top At_Offset_2 02d5 00d9 | | Load_Top At_Offset_1 02d6 e028 | ( | Load 0x0,0x28 02d7 e403 | | Load 0x2,0x3 02d8 4800 |H | Short_Literal 0x0 02d9 8038 | 8 | Call 0x0,0x38 02da e029 | ) | Load 0x0,0x29 02db 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02dc c028 | ( | Store 0x0,0x28 02dd 00d1 | | Pop_Control Pop_Count_1 02de c402 | | Store 0x2,0x2 02df 00da | | Load_Top At_Offset_2 02e0 00d9 | | Load_Top At_Offset_1 02e1 e028 | ( | Load 0x0,0x28 02e2 e403 | | Load 0x2,0x3 02e3 4800 |H | Short_Literal 0x0 02e4 8038 | 8 | Call 0x0,0x38 02e5 e029 | ) | Load 0x0,0x29 02e6 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 02e7 c028 | ( | Store 0x0,0x28 02e8 00d1 | | Pop_Control Pop_Count_1 02e9 c402 | | Store 0x2,0x2 02ea 00da | | Load_Top At_Offset_2 02eb e036 | 6 | Load 0x0,0x36 02ec e037 | 7 | Load 0x0,0x37 02ed 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 02ee c036 | 6 | Store 0x0,0x36 02ef c402 | | Store 0x2,0x2 02f0 00da | | Load_Top At_Offset_2 02f1 00d9 | | Load_Top At_Offset_1 02f2 e036 | 6 | Load 0x0,0x36 02f3 8038 | 8 | Call 0x0,0x38 02f4 803d | = | Call 0x0,0x3d 02f5 e037 | 7 | Load 0x0,0x37 02f6 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 02f7 c036 | 6 | Store 0x0,0x36 02f8 00d1 | | Pop_Control Pop_Count_1 02f9 c402 | | Store 0x2,0x2 02fa 00da | | Load_Top At_Offset_2 02fb 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "Exception catches" 02fd 821d | | Call 0x1,0x1d 02fe c402 | | Store 0x2,0x2 02ff 00da | | Load_Top At_Offset_2 0300 e031 | 1 | Load 0x0,0x31 0301 4801 |H | Short_Literal 0x1 0302 8038 | 8 | Call 0x0,0x38 0303 e032 | 2 | Load 0x0,0x32 0304 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0305 c031 | 1 | Store 0x0,0x31 0306 c402 | | Store 0x2,0x2 0307 00da | | Load_Top At_Offset_2 0308 0092 03ca | | Action Push_String_Extended,0x3ca ; "Holds" 030a 821d | | Call 0x1,0x1d 030b c402 | | Store 0x2,0x2 030c 00da | | Load_Top At_Offset_2 030d e031 | 1 | Load 0x0,0x31 030e 4801 |H | Short_Literal 0x1 030f 8038 | 8 | Call 0x0,0x38 0310 e032 | 2 | Load 0x0,0x32 0311 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0312 c031 | 1 | Store 0x0,0x31 0313 c402 | | Store 0x2,0x2 0314 8035 | 5 | Call 0x0,0x35 0315 802b | + | Call 0x0,0x2b 0316 8038 | 8 | Call 0x0,0x38 0317 4800 |H | Short_Literal 0x0 0318 821a | | Call 0x1,0x1a 0319 4501 |E | Exit_Suprogram New_Top_Offset 0x1 031a 0000 0000 | | .BLANK 0000[0x6] 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 e013 | | Load 0x0,0x13 0324 e014 | | Load 0x0,0x14 0325 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0326 c013 | | Store 0x0,0x13 0327 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b e021 | ! | Load 0x0,0x21 032c 8011 | | Call 0x0,0x11 032d e03e | > | Load 0x0,0x3e 032e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 032f c021 | ! | Store 0x0,0x21 0330 0092 03cb | | Action Push_String_Extended,0x3cb ; "R1000 Ada Debugger (Version " 0332 e03f | ? | Load 0x0,0x3f 0333 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0334 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0335 01cc | | Execute Vector,Catenate 0336 0092 03cc | | Action Push_String_Extended,0x3cc ; " - " 0338 01cc | | Execute Vector,Catenate 0339 e03f | ? | Load 0x0,0x3f 033a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 033c 01cc | | Execute Vector,Catenate 033d 0092 03cd | | Action Push_String_Extended,0x3cd ; ")" 033f 01cc | | Execute Vector,Catenate 0340 801a | | Call 0x0,0x1a 0341 8019 | | Call 0x0,0x19 0342 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0343 0000 0000 | | .BLANK 0000[0x5] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0359 | Y | .CONST 0x0359 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b e218 | | Load 0x1,0x18 034c 700b |p | Jump_Nonzero 0x358 034d e217 | | Load 0x1,0x17 034e 03bc | | Declare_Variable Access,By_Allocation 034f 00d8 | | Load_Top At_Offset_0 0350 00e0 | | Load_Encached Standard_Cache 0351 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0352 a218 | | Store_Unchecked 0x1,0x18 0353 00da | | Load_Top At_Offset_2 0354 4801 |H | Short_Literal 0x1 0355 e218 | | Load 0x1,0x18 0356 0229 | ) | Execute Access,All_Read 0357 170d | | Execute Task,Entry_Call,Field_Number 0xd 0358 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0359 TRAP_0348: 0359 0007 | | Action Break_Optional 035a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035b 0000 0000 | | .BLANK 0000[0x5] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0370 | p | .CONST 0x0370 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0011 | | .CONST 0x0011 ; Number of locals 0363 INIT_0360: 0363 4801 |H | Short_Literal 0x1 0364 02cb | | Declare_Variable Entry 0365 00bf | | Action Accept_Activation 0366 e001 | | Load 0x0,0x1 0367 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0368 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 036a 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 036c 480d |H | Short_Literal 0xd 036d 0299 03b3 | | Declare_Subprogram INIT_03b0,For_Accept 036f 00bc | | Action Signal_Activated 0370 BODY_0360: 0370 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0371 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0372 0137 | 7 | Execute Entry,Rendezvous 0373 0092 03ce | | Action Push_String_Extended,0x3ce ; "!Machine.Devices.Nil" 0375 e002 | | Load 0x0,0x2 0376 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0377 8210 | | Call 0x1,0x10 0378 e002 | | Load 0x0,0x2 0379 181d | | Execute Package,Field_Execute,Field_Number 0x1d 037a 00bb | | Action Signal_Completion 037b 0000 0000 | | .BLANK 0000[0x5] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 e20e | | Load 0x1,0xe 0384 7004 |p | Jump_Nonzero 0x389 0385 e003 | | Load 0x0,0x3 0386 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0387 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0388 00ca | | Action Exit_Nullary_Function 0389 e20e | | Load 0x1,0xe 038a e003 | | Load 0x0,0x3 038b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 038c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 038d 00ca | | Action Exit_Nullary_Function 038e 0000 0000 | | .XXX[0x2] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0396 | | .CONST 0x0396 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0003 | | .CONST 0x0003 ; Number of locals 0393 INIT_0390: 0393 820f | | Call 0x1,0xf 0394 e003 | | Load 0x0,0x3 0395 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0396 BODY_0390: 0396 e003 | | Load 0x0,0x3 0397 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0398 e004 | | Load 0x0,0x4 0399 1811 | | Execute Package,Field_Execute,Field_Number 0x11 039a 00db | | Load_Top At_Offset_3 039b e003 | | Load 0x0,0x3 039c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 039d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 039e 0059 | Y | Store_Top Discrete,At_Offset_1 039f 0092 03cf | | Action Push_String_Extended,0x3cf ; "<PROFILE>" 03a1 00da | | Load_Top At_Offset_2 03a2 e003 | | Load 0x0,0x3 03a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03a4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 03a5 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "\x22!commands\x22.log.pop_output; DEBUGGER_INITIALIZATION; delay duration'last" 03a7 e005 | | Load 0x0,0x5 03a8 180f | | Execute Package,Field_Execute,Field_Number 0xf 03a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03aa 0000 0000 | | .BLANK 0000[0x6] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 00db | | Load_Top At_Offset_3 03b4 a20e | | Store_Unchecked 0x1,0xe 03b5 4100 |A | End_Rendezvous 0x0 03b6 ; -------------------------------------------------------------------------------------- 03b6 ; STRING TABLE 03b6 ; -------------------------------------------------------------------------------------- 03b6 0038 | 8 | .STRTAB 0x0038->0x03d2 ; "----------------------------------------------------------" 03b7 0070 | p | .STRTAB 0x0070->0x03ef ; "Root_Task" 03b8 0077 | w | .STRTAB 0x0077->0x03f3 ; "\x0aYou must debug_off to stop debugging your old job before debugging a new one.\x0a" 03b9 00c4 | | .STRTAB 0x00c4->0x041b ; "\x0aKilling current job to begin debugging a new one." 03ba 00f4 | | .STRTAB 0x00f4->0x0434 ; "Detaching current job to begin debugging a new one." 03bb 0125 | % | .STRTAB 0x0125->0x044d ; "Start_Debugging: " 03bc 0134 | 4 | .STRTAB 0x0134->0x0456 ; "Sart_Debugging: " 03bd 0142 | B | .STRTAB 0x0142->0x045e ; "Debug_On failed: " 03be 0151 | Q | .STRTAB 0x0151->0x0466 ; "Debug_On: " 03bf 0159 | Y | .STRTAB 0x0159->0x046b ; "Debug_Off failed: " 03c0 0169 | i | .STRTAB 0x0169->0x0474 ; "Current program has already terminated" 03c1 018d | | .STRTAB 0x018d->0x0487 ; "Killing current job.\x0a----------------------------------------------------------" 03c2 01da | | .STRTAB 0x01da->0x04af ; "Detaching current job." 03c3 01ee | | .STRTAB 0x01ee->0x04ba ; "Error starting to catch all exceptions: " 03c4 0214 | | .STRTAB 0x0214->0x04ce ; "Error re-activating exception-handling state: \x0a" 03c5 0241 | A | .STRTAB 0x0241->0x04e5 ; "Error deactivating " 03c6 0252 | R | .STRTAB 0x0252->0x04ef ; ": " 03c7 0252 | R | .STRTAB 0x0252->0x04f0 ; "Breakpoints" 03c8 025b | [ | .STRTAB 0x025b->0x04f5 ; "Stepping information" 03c9 026d | m | .STRTAB 0x026d->0x04ff ; "Exception catches" 03ca 027c | | | .STRTAB 0x027c->0x0508 ; "Holds" 03cb 027f | | .STRTAB 0x027f->0x050a ; "R1000 Ada Debugger (Version " 03cc 0299 | | .STRTAB 0x0299->0x0518 ; " - " 03cd 029a | | .STRTAB 0x029a->0x051a ; ")" 03ce 0299 | | .STRTAB 0x0299->0x051a ; "!Machine.Devices.Nil" 03cf 02ab | | .STRTAB 0x02ab->0x0524 ; "<PROFILE>" 03d0 02b2 | | .STRTAB 0x02b2->0x0529 ; "\x22!commands\x22.log.pop_output; DEBUGGER_INITIALIZATION; delay duration'last" 03d1 02f8 | | .STREND 0x02f8->0x054d 03d2 2d2d 2d2d |----| .STRTAB_STRINGS 054d 0000 0000 | | .XXX[0x3] 054f 0000 | | 0550 ; -------------------------------------------------------------------------------------- 0550 ; Debug Table 0550 ; -------------------------------------------------------------------------------------- 0550 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1653,0x0000,0x0001,0x0000 0556 0000 0000 | | .BLANK 0000[0xaa]