|
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]