|
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_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 0558 | X | .CONST 0x0558 ; 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 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
001b 00bf | | Action Accept_Activation
001c 0092 03be | | Action Push_String_Extended,0x3be ; "----------------------------------------------------------"
001e 4800 |H | Short_Literal 0x0
001f 0093 036b | k| push_full_address INIT_0368
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 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
002b 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
002d 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
002f 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call
0031 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
0033 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
0035 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0037 029d 0333 | 3| Declare_Subprogram INIT_0330,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 0353 | S| Declare_Subprogram INIT_0350,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 03bf | | Action Push_String_Extended,0x3bf ; "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 03c0 | | Action Push_String_Extended,0x3c0 ; "\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 03c1 | | Action Push_String_Extended,0x3c1 ; "\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 03c2 | | Action Push_String_Extended,0x3c2 ; "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 03bf | | Action Push_String_Extended,0x3bf ; "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 03c3 | | Action Push_String_Extended,0x3c3 ; "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 03c4 | | Action Push_String_Extended,0x3c4 ; "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 03c5 | | Action Push_String_Extended,0x3c5 ; "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 03c6 | | Action Push_String_Extended,0x3c6 ; "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 03c7 | | Action Push_String_Extended,0x3c7 ; "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 03c8 | | Action Push_String_Extended,0x3c8 ; "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 03c9 | | Action Push_String_Extended,0x3c9 ; "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 03ca | | Action Push_String_Extended,0x3ca ; "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 0178 | x | .CONST 0x0178 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e00e | | Load 0x0,0xe
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 02c7 | | Declare_Variable Any
0176 00d8 | | Load_Top At_Offset_0
0177 1c00 | | Execute_Immediate Run_Utility,0x0
0178 BODY_0170:
0178 00d8 | | Load_Top At_Offset_0
0179 801f | | Call 0x0,0x1f
017a c402 | | Store 0x2,0x2
017b e017 | | Load 0x0,0x17
017c 8018 | | Call 0x0,0x18
017d 6802 |h | Jump_Zero 0x180
017e 00ea | | Load_Encached Null_String_Cache
017f 8219 | | Call 0x1,0x19
0180 8214 | | Call 0x1,0x14
0181 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0182 0000 0000 | | .BLANK 0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0191 | | .CONST 0x0191 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e218 | | Load 0x1,0x18
018c 6803 |h | Jump_Zero 0x190
018d e218 | | Load 0x1,0x18
018e 0229 | ) | Execute Access,All_Read
018f 0209 | | Execute Task,Abort
0190 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0191 TRAP_0188:
0191 0007 | | Action Break_Optional
0192 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 01af | | .CONST 0x01af ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b e020 | | Load 0x0,0x20
019c e00f | | Load 0x0,0xf
019d e021 | ! | Load 0x0,0x21
019e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
019f 027f | | Execute Discrete,Equal
01a0 680d |h | Jump_Zero 0x1ae
01a1 00da | | Load_Top At_Offset_2
01a2 01db | | Execute Vector,Length
01a3 6807 |h | Jump_Zero 0x1ab
01a4 00da | | Load_Top At_Offset_2
01a5 801a | | Call 0x0,0x1a
01a6 8019 | | Call 0x0,0x19
01a7 e00f | | Load 0x0,0xf
01a8 e016 | | Load 0x0,0x16
01a9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ab e00f | | Load 0x0,0xf
01ac e016 | | Load 0x0,0x16
01ad 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01af TRAP_0198:
01af 0007 | | Action Break_Optional
01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c0 | | .CONST 0x01c0 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb e004 | | Load 0x0,0x4
01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bd e004 | | Load 0x0,0x4
01be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01bf 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01c0 BODY_01b8:
01c0 e5ff | | Load 0x2,-0x1
01c1 c00f | | Store 0x0,0xf
01c2 e5fe | | Load 0x2,-0x2
01c3 c017 | | Store 0x0,0x17
01c4 e5ff | | Load 0x2,-0x1
01c5 7003 |p | Jump_Nonzero 0x1c9
01c6 4800 |H | Short_Literal 0x0
01c7 c020 | | Store 0x0,0x20
01c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c9 e5ff | | Load 0x2,-0x1
01ca e021 | ! | Load 0x0,0x21
01cb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01cc c020 | | Store 0x0,0x20
01cd e5ff | | Load 0x2,-0x1
01ce e004 | | Load 0x0,0x4
01cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01d2 e004 | | Load 0x0,0x4
01d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d4 e005 | | Load 0x0,0x5
01d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d6 00da | | Load_Top At_Offset_2
01d7 e004 | | Load 0x0,0x4
01d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01da 005a | Z | Store_Top Discrete,At_Offset_2
01db e022 | " | Load 0x0,0x22
01dc 00d9 | | Load_Top At_Offset_1
01dd e012 | | Load 0x0,0x12
01de 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01df c022 | " | Store 0x0,0x22
01e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e1 0000 0000 | | .BLANK 0000[0x7]
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 e00e | | Load 0x0,0xe
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 e023 | # | Load 0x0,0x23
01f1 8024 | $ | Call 0x0,0x24
01f2 c023 | # | Store 0x0,0x23
01f3 e025 | % | Load 0x0,0x25
01f4 e026 | & | Load 0x0,0x26
01f5 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01f6 c025 | % | Store 0x0,0x25
01f7 e027 | ' | Load 0x0,0x27
01f8 e00a | | Load 0x0,0xa
01f9 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01fa e028 | ( | Load 0x0,0x28
01fb 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01fc c027 | ' | Store 0x0,0x27
01fd e029 | ) | Load 0x0,0x29
01fe e00a | | Load 0x0,0xa
01ff 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0200 e02a | * | Load 0x0,0x2a
0201 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0202 c029 | ) | Store 0x0,0x29
0203 4800 |H | Short_Literal 0x0
0204 c02b | + | Store 0x0,0x2b
0205 802c | , | Call 0x0,0x2c
0206 00d8 | | Load_Top At_Offset_0
0207 e009 | | Load 0x0,0x9
0208 e00b | | Load 0x0,0xb
0209 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
020a c009 | | Store 0x0,0x9
020b c402 | | Store 0x2,0x2
020c e02d | - | Load 0x0,0x2d
020d 802e | . | Call 0x0,0x2e
020e c02d | - | Store 0x0,0x2d
020f e02f | / | Load 0x0,0x2f
0210 e00a | | Load 0x0,0xa
0211 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0212 e030 | 0 | Load 0x0,0x30
0213 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0214 c02f | / | Store 0x0,0x2f
0215 4800 |H | Short_Literal 0x0
0216 c031 | 1 | Store 0x0,0x31
0217 e032 | 2 | Load 0x0,0x32
0218 e00a | | Load 0x0,0xa
0219 1b18 | | Execute Package,Field_Read,Field_Number 0x18
021a e033 | 3 | Load 0x0,0x33
021b 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
021c c032 | 2 | Store 0x0,0x32
021d e034 | 4 | Load 0x0,0x34
021e e00a | | Load 0x0,0xa
021f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0220 e035 | 5 | Load 0x0,0x35
0221 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0222 c034 | 4 | Store 0x0,0x34
0223 8036 | 6 | Call 0x0,0x36
0224 00db | | Load_Top At_Offset_3
0225 681c |h | Jump_Zero 0x242
0226 e037 | 7 | Load 0x0,0x37
0227 e00a | | Load 0x0,0xa
0228 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0229 e038 | 8 | Load 0x0,0x38
022a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
022b c037 | 7 | Store 0x0,0x37
022c 00d8 | | Load_Top At_Offset_0
022d e037 | 7 | Load 0x0,0x37
022e 4800 |H | Short_Literal 0x0
022f e038 | 8 | Load 0x0,0x38
0230 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0231 c037 | 7 | Store 0x0,0x37
0232 c402 | | Store 0x2,0x2
0233 4802 |H | Short_Literal 0x2
0234 00d9 | | Load_Top At_Offset_1
0235 e00e | | Load 0x0,0xe
0236 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0237 6820 |h | Jump_Zero 0x258
0238 0092 03cb | | Action Push_String_Extended,0x3cb ; "Error starting to catch all exceptions: "
023a 8015 | | Call 0x0,0x15
023b 480a |H | Short_Literal 0xa
023c 00d9 | | Load_Top At_Offset_1
023d e00e | | Load 0x0,0xe
023e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
023f 01cb | | Execute Vector,Append
0240 8015 | | Call 0x0,0x15
0241 7816 |x | Jump 0x258
0242 00d8 | | Load_Top At_Offset_0
0243 e037 | 7 | Load 0x0,0x37
0244 e00a | | Load 0x0,0xa
0245 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0246 e038 | 8 | Load 0x0,0x38
0247 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0248 c037 | 7 | Store 0x0,0x37
0249 c402 | | Store 0x2,0x2
024a 4802 |H | Short_Literal 0x2
024b 00d9 | | Load_Top At_Offset_1
024c e00e | | Load 0x0,0xe
024d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
024e 6809 |h | Jump_Zero 0x258
024f 0092 03cc | | Action Push_String_Extended,0x3cc ; "Error re-activating exception-handling state: \x0a"
0251 8015 | | Call 0x0,0x15
0252 480a |H | Short_Literal 0xa
0253 00d9 | | Load_Top At_Offset_1
0254 e00e | | Load 0x0,0xe
0255 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0256 01cb | | Execute Vector,Append
0257 8015 | | Call 0x0,0x15
0258 8039 | 9 | Call 0x0,0x39
0259 4800 |H | Short_Literal 0x0
025a 821a | | Call 0x1,0x1a
025b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025c 0000 0000 | | .BLANK 0000[0x4]
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 e013 | | Load 0x0,0x13
0264 4811 |H | Short_Literal 0x11
0265 e014 | | Load 0x0,0x14
0266 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0267 0f00 | | Execute_Immediate Equal,0x0
0268 821b | | Call 0x1,0x1b
0269 4501 |E | Exit_Suprogram New_Top_Offset 0x1
026a 0000 0000 | | .BLANK 0000[0x6]
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 4802 |H | Short_Literal 0x2
0274 e5fe | | Load 0x2,-0x2
0275 e00e | | Load 0x0,0xe
0276 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0277 680d |h | Jump_Zero 0x285
0278 0092 03cd | | Action Push_String_Extended,0x3cd ; "Error deactivating "
027a 00db | | Load_Top At_Offset_3
027b 01cc | | Execute Vector,Catenate
027c 0092 03ce | | Action Push_String_Extended,0x3ce ; ": "
027e 01cc | | Execute Vector,Catenate
027f 801a | | Call 0x0,0x1a
0280 00db | | Load_Top At_Offset_3
0281 e00e | | Load 0x0,0xe
0282 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0283 801a | | Call 0x0,0x1a
0284 8019 | | Call 0x0,0x19
0285 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0299 | | .CONST 0x0299 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0004 | | .CONST 0x0004 ; Number of locals
028b INIT_0288:
028b e00e | | Load 0x0,0xe
028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028d 02c7 | | Declare_Variable Any
028e 00d8 | | Load_Top At_Offset_0
028f 1c00 | | Execute_Immediate Run_Utility,0x0
0290 e03a | : | Load 0x0,0x3a
0291 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0292 e03b | ; | Load 0x0,0x3b
0293 03f1 | | Declare_Variable Discrete,With_Value
0294 e03c | < | Load 0x0,0x3c
0295 0322 | " | Declare_Variable Record
0296 803d | = | Call 0x0,0x3d
0297 00d9 | | Load_Top At_Offset_1
0298 017d | } | Execute Record,Structure_Write
0299 BODY_0288:
0299 00da | | Load_Top At_Offset_2
029a e009 | | Load 0x0,0x9
029b e00b | | Load 0x0,0xb
029c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
029d c009 | | Store 0x0,0x9
029e c402 | | Store 0x2,0x2
029f 00da | | Load_Top At_Offset_2
02a0 0092 03cf | | Action Push_String_Extended,0x3cf ; "Breakpoints"
02a2 821d | | Call 0x1,0x1d
02a3 c402 | | Store 0x2,0x2
02a4 00da | | Load_Top At_Offset_2
02a5 e027 | ' | Load 0x0,0x27
02a6 8039 | 9 | Call 0x0,0x39
02a7 e028 | ( | Load 0x0,0x28
02a8 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02a9 c027 | ' | Store 0x0,0x27
02aa c402 | | Store 0x2,0x2
02ab 00da | | Load_Top At_Offset_2
02ac 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "Stepping information"
02ae 821d | | Call 0x1,0x1d
02af c402 | | Store 0x2,0x2
02b0 00da | | Load_Top At_Offset_2
02b1 00d9 | | Load_Top At_Offset_1
02b2 e029 | ) | Load 0x0,0x29
02b3 e403 | | Load 0x2,0x3
02b4 4800 |H | Short_Literal 0x0
02b5 8039 | 9 | Call 0x0,0x39
02b6 e02a | * | Load 0x0,0x2a
02b7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02b8 c029 | ) | Store 0x0,0x29
02b9 00d1 | | Pop_Control Pop_Count_1
02ba c402 | | Store 0x2,0x2
02bb 00da | | Load_Top At_Offset_2
02bc 00d9 | | Load_Top At_Offset_1
02bd e029 | ) | Load 0x0,0x29
02be e403 | | Load 0x2,0x3
02bf 4800 |H | Short_Literal 0x0
02c0 8039 | 9 | Call 0x0,0x39
02c1 e02a | * | Load 0x0,0x2a
02c2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
02c3 c029 | ) | Store 0x0,0x29
02c4 00d1 | | Pop_Control Pop_Count_1
02c5 c402 | | Store 0x2,0x2
02c6 00da | | Load_Top At_Offset_2
02c7 00d9 | | Load_Top At_Offset_1
02c8 e029 | ) | Load 0x0,0x29
02c9 e403 | | Load 0x2,0x3
02ca 4800 |H | Short_Literal 0x0
02cb 8039 | 9 | Call 0x0,0x39
02cc e02a | * | Load 0x0,0x2a
02cd 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
02ce c029 | ) | Store 0x0,0x29
02cf 00d1 | | Pop_Control Pop_Count_1
02d0 c402 | | Store 0x2,0x2
02d1 00da | | Load_Top At_Offset_2
02d2 00d9 | | Load_Top At_Offset_1
02d3 e029 | ) | Load 0x0,0x29
02d4 e403 | | Load 0x2,0x3
02d5 4800 |H | Short_Literal 0x0
02d6 8039 | 9 | Call 0x0,0x39
02d7 e02a | * | Load 0x0,0x2a
02d8 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
02d9 c029 | ) | Store 0x0,0x29
02da 00d1 | | Pop_Control Pop_Count_1
02db c402 | | Store 0x2,0x2
02dc 00da | | Load_Top At_Offset_2
02dd 00d9 | | Load_Top At_Offset_1
02de e029 | ) | Load 0x0,0x29
02df e403 | | Load 0x2,0x3
02e0 4800 |H | Short_Literal 0x0
02e1 8039 | 9 | Call 0x0,0x39
02e2 e02a | * | Load 0x0,0x2a
02e3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02e4 c029 | ) | Store 0x0,0x29
02e5 00d1 | | Pop_Control Pop_Count_1
02e6 c402 | | Store 0x2,0x2
02e7 00da | | Load_Top At_Offset_2
02e8 00d9 | | Load_Top At_Offset_1
02e9 e029 | ) | Load 0x0,0x29
02ea e403 | | Load 0x2,0x3
02eb 4800 |H | Short_Literal 0x0
02ec 8039 | 9 | Call 0x0,0x39
02ed e02a | * | Load 0x0,0x2a
02ee 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
02ef c029 | ) | Store 0x0,0x29
02f0 00d1 | | Pop_Control Pop_Count_1
02f1 c402 | | Store 0x2,0x2
02f2 00da | | Load_Top At_Offset_2
02f3 e037 | 7 | Load 0x0,0x37
02f4 e038 | 8 | Load 0x0,0x38
02f5 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
02f6 c037 | 7 | Store 0x0,0x37
02f7 c402 | | Store 0x2,0x2
02f8 00da | | Load_Top At_Offset_2
02f9 00d9 | | Load_Top At_Offset_1
02fa e037 | 7 | Load 0x0,0x37
02fb 8039 | 9 | Call 0x0,0x39
02fc 803e | > | Call 0x0,0x3e
02fd e038 | 8 | Load 0x0,0x38
02fe 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
02ff c037 | 7 | Store 0x0,0x37
0300 00d1 | | Pop_Control Pop_Count_1
0301 c402 | | Store 0x2,0x2
0302 00da | | Load_Top At_Offset_2
0303 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "Exception catches"
0305 821d | | Call 0x1,0x1d
0306 c402 | | Store 0x2,0x2
0307 00da | | Load_Top At_Offset_2
0308 e032 | 2 | Load 0x0,0x32
0309 4801 |H | Short_Literal 0x1
030a 8039 | 9 | Call 0x0,0x39
030b e033 | 3 | Load 0x0,0x33
030c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
030d c032 | 2 | Store 0x0,0x32
030e c402 | | Store 0x2,0x2
030f 00da | | Load_Top At_Offset_2
0310 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "Holds"
0312 821d | | Call 0x1,0x1d
0313 c402 | | Store 0x2,0x2
0314 00da | | Load_Top At_Offset_2
0315 e032 | 2 | Load 0x0,0x32
0316 4801 |H | Short_Literal 0x1
0317 8039 | 9 | Call 0x0,0x39
0318 e033 | 3 | Load 0x0,0x33
0319 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
031a c032 | 2 | Store 0x0,0x32
031b c402 | | Store 0x2,0x2
031c 8036 | 6 | Call 0x0,0x36
031d 802c | , | Call 0x0,0x2c
031e 8039 | 9 | Call 0x0,0x39
031f 4800 |H | Short_Literal 0x0
0320 821a | | Call 0x1,0x1a
0321 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0322 0000 0000 | | .BLANK 0000[0x6]
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 e013 | | Load 0x0,0x13
032c e014 | | Load 0x0,0x14
032d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
032e c013 | | Store 0x0,0x13
032f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 e022 | " | Load 0x0,0x22
0334 8011 | | Call 0x0,0x11
0335 e03f | ? | Load 0x0,0x3f
0336 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0337 c022 | " | Store 0x0,0x22
0338 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "R1000 Ada Debugger (Version "
033a e040 | @ | Load 0x0,0x40
033b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033d 01cc | | Execute Vector,Catenate
033e 0092 03d4 | | Action Push_String_Extended,0x3d4 ; " - "
0340 01cc | | Execute Vector,Catenate
0341 e040 | @ | Load 0x0,0x40
0342 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0343 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0344 01cc | | Execute Vector,Catenate
0345 0092 03d5 | | Action Push_String_Extended,0x3d5 ; ")"
0347 01cc | | Execute Vector,Catenate
0348 801a | | Call 0x0,0x1a
0349 8019 | | Call 0x0,0x19
034a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034b 0000 0000 | | .BLANK 0000[0x5]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0361 | a | .CONST 0x0361 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e218 | | Load 0x1,0x18
0354 700b |p | Jump_Nonzero 0x360
0355 e217 | | Load 0x1,0x17
0356 03bc | | Declare_Variable Access,By_Allocation
0357 00d8 | | Load_Top At_Offset_0
0358 00e0 | | Load_Encached Standard_Cache
0359 181f | | Execute Package,Field_Execute,Field_Number 0x1f
035a a218 | | Store_Unchecked 0x1,0x18
035b 00da | | Load_Top At_Offset_2
035c 4801 |H | Short_Literal 0x1
035d e218 | | Load 0x1,0x18
035e 0229 | ) | Execute Access,All_Read
035f 170d | | Execute Task,Entry_Call,Field_Number 0xd
0360 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0361 TRAP_0350:
0361 0007 | | Action Break_Optional
0362 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0363 0000 0000 | | .BLANK 0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0378 | x | .CONST 0x0378 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0011 | | .CONST 0x0011 ; Number of locals
036b INIT_0368:
036b 4801 |H | Short_Literal 0x1
036c 02cb | | Declare_Variable Entry
036d 00bf | | Action Accept_Activation
036e e001 | | Load 0x0,0x1
036f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0370 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
0372 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call
0374 480d |H | Short_Literal 0xd
0375 0299 03bb | | Declare_Subprogram INIT_03b8,For_Accept
0377 00bc | | Action Signal_Activated
0378 BODY_0368:
0378 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0379 1d0d | | Execute_Immediate Reference_Lex_1,0xd
037a 0137 | 7 | Execute Entry,Rendezvous
037b 0092 03d6 | | Action Push_String_Extended,0x3d6 ; "!Machine.Devices.Nil"
037d e002 | | Load 0x0,0x2
037e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
037f 8210 | | Call 0x1,0x10
0380 e002 | | Load 0x0,0x2
0381 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0382 00bb | | Action Signal_Completion
0383 0000 0000 | | .BLANK 0000[0x5]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b e20e | | Load 0x1,0xe
038c 7004 |p | Jump_Nonzero 0x391
038d e003 | | Load 0x0,0x3
038e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
038f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0390 00ca | | Action Exit_Nullary_Function
0391 e20e | | Load 0x1,0xe
0392 e003 | | Load 0x0,0x3
0393 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0394 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0395 00ca | | Action Exit_Nullary_Function
0396 0000 0000 | | .XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039e | | .CONST 0x039e ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0003 | | .CONST 0x0003 ; Number of locals
039b INIT_0398:
039b 820f | | Call 0x1,0xf
039c e003 | | Load 0x0,0x3
039d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039e BODY_0398:
039e e003 | | Load 0x0,0x3
039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a0 e004 | | Load 0x0,0x4
03a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a2 00db | | Load_Top At_Offset_3
03a3 e003 | | Load 0x0,0x3
03a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03a6 0059 | Y | Store_Top Discrete,At_Offset_1
03a7 0092 03d7 | | Action Push_String_Extended,0x3d7 ; "<PROFILE>"
03a9 00da | | Load_Top At_Offset_2
03aa e003 | | Load 0x0,0x3
03ab 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03ac 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03ad 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "\x22!commands\x22.log.pop_output; DEBUGGER_INITIALIZATION; delay duration'last"
03af e005 | | Load 0x0,0x5
03b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
03b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b2 0000 0000 | | .BLANK 0000[0x6]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 00db | | Load_Top At_Offset_3
03bc a20e | | Store_Unchecked 0x1,0xe
03bd 4100 |A | End_Rendezvous 0x0
03be ; --------------------------------------------------------------------------------------
03be ; STRING TABLE
03be ; --------------------------------------------------------------------------------------
03be 0038 | 8 | .STRTAB 0x0038->0x03da ; "----------------------------------------------------------"
03bf 0070 | p | .STRTAB 0x0070->0x03f7 ; "Root_Task"
03c0 0077 | w | .STRTAB 0x0077->0x03fb ; "\x0aYou must debug_off to stop debugging your old job before debugging a new one.\x0a"
03c1 00c4 | | .STRTAB 0x00c4->0x0423 ; "\x0aKilling current job to begin debugging a new one."
03c2 00f4 | | .STRTAB 0x00f4->0x043c ; "Detaching current job to begin debugging a new one."
03c3 0125 | % | .STRTAB 0x0125->0x0455 ; "Start_Debugging: "
03c4 0134 | 4 | .STRTAB 0x0134->0x045e ; "Sart_Debugging: "
03c5 0142 | B | .STRTAB 0x0142->0x0466 ; "Debug_On failed: "
03c6 0151 | Q | .STRTAB 0x0151->0x046e ; "Debug_On: "
03c7 0159 | Y | .STRTAB 0x0159->0x0473 ; "Debug_Off failed: "
03c8 0169 | i | .STRTAB 0x0169->0x047c ; "Current program has already terminated"
03c9 018d | | .STRTAB 0x018d->0x048f ; "Killing current job.\x0a----------------------------------------------------------"
03ca 01da | | .STRTAB 0x01da->0x04b7 ; "Detaching current job."
03cb 01ee | | .STRTAB 0x01ee->0x04c2 ; "Error starting to catch all exceptions: "
03cc 0214 | | .STRTAB 0x0214->0x04d6 ; "Error re-activating exception-handling state: \x0a"
03cd 0241 | A | .STRTAB 0x0241->0x04ed ; "Error deactivating "
03ce 0252 | R | .STRTAB 0x0252->0x04f7 ; ": "
03cf 0252 | R | .STRTAB 0x0252->0x04f8 ; "Breakpoints"
03d0 025b | [ | .STRTAB 0x025b->0x04fd ; "Stepping information"
03d1 026d | m | .STRTAB 0x026d->0x0507 ; "Exception catches"
03d2 027c | | | .STRTAB 0x027c->0x0510 ; "Holds"
03d3 027f | | .STRTAB 0x027f->0x0512 ; "R1000 Ada Debugger (Version "
03d4 0299 | | .STRTAB 0x0299->0x0520 ; " - "
03d5 029a | | .STRTAB 0x029a->0x0522 ; ")"
03d6 0299 | | .STRTAB 0x0299->0x0522 ; "!Machine.Devices.Nil"
03d7 02ab | | .STRTAB 0x02ab->0x052c ; "<PROFILE>"
03d8 02b2 | | .STRTAB 0x02b2->0x0531 ; "\x22!commands\x22.log.pop_output; DEBUGGER_INITIALIZATION; delay duration'last"
03d9 02f8 | | .STREND 0x02f8->0x0555
03da 2d2d 2d2d |----| .STRTAB_STRINGS
0555 0000 0000 | | .XXX[0x3]
0557 0000 | |
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug Table
0558 ; --------------------------------------------------------------------------------------
0558 0004 000d | | .DEBUG4 0x0004,0x000d,0x2bed,0x0000,0x0001,0x0000
055e 0ded c000 | | .XXX[0xa2]
0560 0007 6000 | ` |
0562 0009 4404 | D |
0564 2aae 6cae |* l |
0566 4e65 c8ef |Ne |
0568 4c65 c404 |Le |
056a 08ce 4ded | M |
056c a40e 8d0d | |
056e 2e64 086d |.d m|
0570 edad ac2d | -|
0572 cc84 0eed | |
0574 2dcc 8dee |- |
0576 e584 0e6d | m|
0578 0ca4 0eec | |
057a 2dce 8e64 |- d|
057c 0e8d e40e | |
057e 0cae 4ccd | L |
0580 ee4d a40d | M |
0582 ee0c ae4c | L|
0584 2e8d 2ded |. - |
0586 ce64 0ded | d |
0588 c000 0007 | |
058a 6000 0009 |` |
058c 4404 2aae |D * |
058e 6cae 4e65 |l Ne|
0590 c8ef 4c65 | Le|
0592 c404 08ce | |
0594 4ded a40e |M |
0596 8d0d 2e64 | .d|
0598 086d edad | m |
059a ac2d cc84 | - |
059c 0eed 2dcc | - |
059e 8dee e584 | |
05a0 0e6d 0ca4 | m |
05a2 0eec 2dce | - |
05a4 8e64 0e8d | d |
05a6 e40e 0cae | |
05a8 4ccd ee4d |L M|
05aa a40d ee0c | |
05ac ae4c 2e8d | L. |
05ae 2ded ce64 |- d|
05b0 0ded c000 | |
05b2 0000 e000 | |
05b4 0008 8dec | |
05b6 4d4c ac6e |ML n|
05b8 8e64 0d2d | d -|
05ba c404 2aae | * |
05bc 6cae 4e65 |l Ne|
05be c8ef 4c65 | Le|
05c0 ca6c 2dae | l- |
05c2 0d8c abe8 | |
05c4 8d2e 4cac | .L |
05c6 6e8d ee4f |n O|
05c8 25c4 040a |% |
05ca 6d0c a40c |m |
05cc 6c2d c40c |l- |
05ce 8de4 0e8d | |
05d0 0d2e 640c | .d |
05d2 2e64 0ccd |.d |
05d4 ed8d 8dee | |
05d6 ee67 4000 | g@ |
05d8 0000 c000 | |
05da 0008 a40d | |
05dc ec4d 4cac | ML |
05de 6e8e 640d |n d |
05e0 2dc4 042a |- *|
05e2 ae6c ae4e | l N|
05e4 65c8 ef4c |e L|
05e6 65ca 6c2d |e l-|
05e8 ae0d 8cab | |
05ea e88d 2e4c | .L|
05ec ac6e 8dee | n |
05ee 4f25 c404 |O% |
05f0 0a6d 0ca4 | m |
05f2 0c6c 2dc4 | l- |
05f4 0c8d e40e | |
05f6 8d0d 2e64 | .d|
05f8 0c2e 640c | .d |
05fa cded 8d8d | |
05fc eeee 6740 | g@|
05fe 0000 00c0 | |