|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0320 | | .CONST 0x0320 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003f | ? | .CONST 0x003f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "Definition Failed " ; Debug Table 0x0 = .DEBUG 0x000b,0x038a,0x8000,0x0000,0x0037,0xdaf4,0x0000,0x000f ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 0129 | ) | Execute Any,Make_Visible 000e 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 0129 | ) | Execute Any,Make_Visible 0010 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x10,0xfffd 0012 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x12,0xfffc 0014 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x14,0xfffb 0016 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x16,0xfffa 0018 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x18,0xfff9 001a e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x1a,0xfff8 001b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 001c 0129 | ) | Execute Any,Make_Visible 001d 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1d,0xfff7 001f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1f,0xfff6 0021 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x21,0xfff5 0023 0007 | | Action Break_Optional ; Debug Table 0x0.0xb = 0x23,0xfff4 0024 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x24,0xfff3 0025 00bf | | Action Accept_Activation ; Debug Table 0x0.0xd = 0x25,0xfff2 0026 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0026,0x03a8,0x8000,0x0000,0x0037,0xe0b4,0x0000,0x001b ; Debug Table 0x1.0x0 = 0x26,0xffff 0027 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x27,0xfffe 0028 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0029 190f | | Execute Package,Field_Reference,Field_Number 0xf 002a 0007 | | Action Break_Optional 002b 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call ; Debug Table 0x1.0x2 = 0x2b,0xfffd 002d 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call ; Debug Table 0x1.0x3 = 0x2d,0xfffc 002f 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x2f,0xfffb 0030 00c7 | | Action Elaborate_Subprogram 0031 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x5 = 0x31,0xfffa 0032 00c7 | | Action Elaborate_Subprogram 0033 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x6 = 0x33,0xfff9 0034 00c7 | | Action Elaborate_Subprogram 0035 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x7 = 0x35,0xfff8 0036 00c7 | | Action Elaborate_Subprogram 0037 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x8 = 0x37,0xfff7 0038 00c7 | | Action Elaborate_Subprogram 0039 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x9 = 0x39,0xfff6 003a 00c7 | | Action Elaborate_Subprogram 003b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xa = 0x3b,0xfff5 003c 00c7 | | Action Elaborate_Subprogram 003d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xb = 0x3d,0xfff4 003e 00c7 | | Action Elaborate_Subprogram 003f BODY_0008: 003f 00bc | | Action Signal_Activated 0040 00bb | | Action Signal_Completion 0041 0000 0000 | | .BLANK 0000[0x7] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x004b,0x03c2,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x001c ; Debug Table 0x2.0x0 = 0x4b,0x1 004c e002 | | Load 0x0,0x2 004d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004e 021f | | Execute Heap_Access,Equal 004f 700a |p | Jump_Nonzero 0x5a 0050 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x1 = 0x50,0x2 0051 4801 |H | Short_Literal 0x1 0052 e5fe | | Load 0x2,-0x2 0053 e5ff | | Load 0x2,-0x1 0054 8218 | | Call 0x1,0x18 0055 e003 | | Load 0x0,0x3 0056 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0057 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x2 = 0x57,0x3 0058 a5fb | | Store_Unchecked 0x2,-0x5 0059 4505 |E | Exit_Suprogram New_Top_Offset 0x5 005a 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "Ada_Program.Nil_Element specified" ; Debug Table 0x2.0x3 = 0x5a,0x4 005c e5fc | | Load 0x2,-0x4 005d 8219 | | Call 0x1,0x19 005e 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x4 = 0x5e,0x5 005f a5fb | | Store_Unchecked 0x2,-0x5 0060 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0073 | s | .CONST 0x0073 ; Address of begin 0069 00bd | | .CONST 0x00bd ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b e002 | | Load 0x0,0x2 ; Debug Table 0x3 = .DEBUG 0x006b,0x03ce,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x0039 ; Debug Table 0x3.0x0 = 0x6b,0xffff 006c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 006d 0322 | " | Declare_Variable Record 006e e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x6e,0xfffe 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x2 = 0x70,0xfffd 0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0072 0322 | " | Declare_Variable Record 0073 BODY_0068: 0073 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0x73,0x1 0074 e5ff | | Load 0x2,-0x1 0075 e002 | | Load 0x0,0x2 0076 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0077 00d1 | | Pop_Control Pop_Count_1 0078 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x4 = 0x78,0x2 0079 e002 | | Load 0x0,0x2 007a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 007b 703a |p: | Jump_Nonzero 0xb6 007c 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x5 = 0x7c,0x3 007d e002 | | Load 0x0,0x2 007e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 007f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0080 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x6 = 0x80,0x4 0081 e002 | | Load 0x0,0x2 0082 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0083 00d1 | | Pop_Control Pop_Count_1 0084 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x7 = 0x84,0x5 0085 e002 | | Load 0x0,0x2 0086 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0087 6808 |h | Jump_Zero 0x90 0088 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x8 = 0x88,0x6 0089 e5fc | | Load 0x2,-0x4 008a e5fd | | Load 0x2,-0x3 008b e5fe | | Load 0x2,-0x2 008c e403 | | Load 0x2,0x3 008d 820f | | Call 0x1,0xf 008e c5fb | | Store 0x2,-0x5 008f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0090 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x9 = 0x90,0x7 0091 e005 | | Load 0x0,0x5 0092 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0093 e004 | | Load 0x0,0x4 0094 180e | | Execute Package,Field_Execute,Field_Number 0xe 0095 00d1 | | Pop_Control Pop_Count_1 0096 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xa = 0x96,0x8 0097 00da | | Load_Top At_Offset_2 0098 e004 | | Load 0x0,0x4 0099 180f | | Execute Package,Field_Execute,Field_Number 0xf 009a 00d1 | | Pop_Control Pop_Count_1 009b 00cf | | Action Mark_Auxiliary 009c 780c |x | Jump 0xa9 009d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xb = 0x9d,0xa 009e e402 | | Load 0x2,0x2 009f e002 | | Load 0x0,0x2 00a0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00a1 e004 | | Load 0x0,0x4 00a2 180f | | Execute Package,Field_Execute,Field_Number 0xf 00a3 00d1 | | Pop_Control Pop_Count_1 00a4 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xc = 0xa4,0xb 00a5 e002 | | Load 0x0,0x2 00a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00a7 00d1 | | Pop_Control Pop_Count_1 00a8 00c9 | | Action Pop_Auxiliary_Loop 00a9 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xd = 0xa9,0x9 00aa e002 | | Load 0x0,0x2 00ab 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00ac 6ff0 |o | Jump_Zero 0x9d 00ad 00ce | | Action Pop_Auxiliary 00ae 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xe = 0xae,0xc 00af e5fe | | Load 0x2,-0x2 00b0 e004 | | Load 0x0,0x4 00b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b2 00d1 | | Pop_Control Pop_Count_1 00b3 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xf = 0xb3,0xd 00b4 a5fb | | Store_Unchecked 0x2,-0x5 00b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00b6 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "No Elements in list" ; Debug Table 0x3.0x10 = 0xb6,0xe 00b8 e5fc | | Load 0x2,-0x4 00b9 8219 | | Call 0x1,0x19 00ba 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x11 = 0xba,0xf 00bb a5fb | | Store_Unchecked 0x2,-0x5 00bc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00bd TRAP_0068: 00bd 0007 | | Action Break_Optional 00be 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Unexpected exception, " ; Debug Table 0x3.0x12 = 0xbe,0x10 00c0 e006 | | Load 0x0,0x6 00c1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c2 01cc | | Execute Vector,Catenate 00c3 e5fc | | Load 0x2,-0x4 00c4 8219 | | Call 0x1,0x19 00c5 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x13 = 0xc5,0x11 00c6 a5fb | | Store_Unchecked 0x2,-0x5 00c7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d0 | | .CONST 0x00d0 ; Address of begin 00c9 00f1 | | .CONST 0x00f1 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb e006 | | Load 0x0,0x6 ; Debug Table 0x4 = .DEBUG 0x00cb,0x03f8,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x0056 ; Debug Table 0x4.0x0 = 0xcb,0xffff 00cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00cd 02c7 | | Declare_Variable Any 00ce 00d8 | | Load_Top At_Offset_0 00cf 1c00 | | Execute_Immediate Run_Utility,0x0 00d0 BODY_00c8: 00d0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0xd0,0x1 00d1 4800 |H | Short_Literal 0x0 00d2 e5fd | | Load 0x2,-0x3 00d3 e5fe | | Load 0x2,-0x2 00d4 e5ff | | Load 0x2,-0x1 00d5 e007 | | Load 0x0,0x7 00d6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00d7 c402 | | Store 0x2,0x2 00d8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0xd8,0x2 00d9 e006 | | Load 0x0,0x6 00da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00db 4603 |F | Jump_Case 0x4 00dc 7803 |x | Jump 0xe0 ; case 0x0 00dd 7805 |x | Jump 0xe3 ; case 0x1 00de 780b |x | Jump 0xea ; case 0x2 00df 780a |x | Jump 0xea ; case 0x3 00e0 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x3 = 0xe0,0x3 00e1 a5fb | | Store_Unchecked 0x2,-0x5 00e2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00e3 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x4 = 0xe3,0x4 00e4 a5fb | | Store_Unchecked 0x2,-0x5 00e5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x5 = 0xe5,0x5 00e6 e5fc | | Load 0x2,-0x4 00e7 821a | | Call 0x1,0x1a 00e8 c402 | | Store 0x2,0x2 00e9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ea 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x6 = 0xea,0x6 00eb a5fb | | Store_Unchecked 0x2,-0x5 00ec 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x7 = 0xec,0x7 00ed e5fc | | Load 0x2,-0x4 00ee 821a | | Call 0x1,0x1a 00ef c402 | | Store 0x2,0x2 00f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00f1 TRAP_00c8: 00f1 0007 | | Action Break_Optional 00f2 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Unexpected exception, " ; Debug Table 0x4.0x8 = 0xf2,0x8 00f4 e006 | | Load 0x0,0x6 00f5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f6 01cc | | Execute Vector,Catenate 00f7 e5fc | | Load 0x2,-0x4 00f8 8219 | | Call 0x1,0x19 00f9 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x9 = 0xf9,0x9 00fa a5fb | | Store_Unchecked 0x2,-0x5 00fb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 010b | | .CONST 0x010b ; Address of begin 0101 0153 | S | .CONST 0x0153 ; Address of exception handler 0102 0004 | | .CONST 0x0004 ; Number of locals 0103 INIT_0100: 0103 e007 | | Load 0x0,0x7 ; Debug Table 0x5 = .DEBUG 0x0103,0x040e,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x0073 ; Debug Table 0x5.0x0 = 0x103,0xffff 0104 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0105 0322 | " | Declare_Variable Record 0106 e007 | | Load 0x0,0x7 ; Debug Table 0x5.0x1 = 0x106,0xfffe 0107 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0108 e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x2 = 0x108,0xfffd 0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010a 0322 | " | Declare_Variable Record 010b BODY_0100: 010b e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x3 = 0x10b,0x1 010c 00db | | Load_Top At_Offset_3 010d 017d | } | Execute Record,Structure_Write 010e 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x4 = 0x10e,0x2 010f e007 | | Load 0x0,0x7 0110 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0111 703a |p: | Jump_Nonzero 0x14c 0112 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x5 = 0x112,0x3 0113 e007 | | Load 0x0,0x7 0114 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0115 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0116 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x6 = 0x116,0x4 0117 e007 | | Load 0x0,0x7 0118 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0119 00d1 | | Pop_Control Pop_Count_1 011a 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x7 = 0x11a,0x5 011b e007 | | Load 0x0,0x7 011c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 011d 6808 |h | Jump_Zero 0x126 011e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x8 = 0x11e,0x6 011f e5fc | | Load 0x2,-0x4 0120 e5fd | | Load 0x2,-0x3 0121 e5fe | | Load 0x2,-0x2 0122 e403 | | Load 0x2,0x3 0123 8211 | | Call 0x1,0x11 0124 c5fb | | Store 0x2,-0x5 0125 7823 |x# | Jump 0x149 0126 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x9 = 0x126,0x7 0127 e005 | | Load 0x0,0x5 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 e004 | | Load 0x0,0x4 012a 180e | | Execute Package,Field_Execute,Field_Number 0xe 012b 00d1 | | Pop_Control Pop_Count_1 012c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0xa = 0x12c,0x8 012d 00da | | Load_Top At_Offset_2 012e e004 | | Load 0x0,0x4 012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0130 00d1 | | Pop_Control Pop_Count_1 0131 00cf | | Action Mark_Auxiliary 0132 780c |x | Jump 0x13f 0133 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xb = 0x133,0xa 0134 e402 | | Load 0x2,0x2 0135 e007 | | Load 0x0,0x7 0136 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0137 e004 | | Load 0x0,0x4 0138 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0139 00d1 | | Pop_Control Pop_Count_1 013a 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0xc = 0x13a,0xb 013b e007 | | Load 0x0,0x7 013c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 013d 00d1 | | Pop_Control Pop_Count_1 013e 00c9 | | Action Pop_Auxiliary_Loop 013f 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0xd = 0x13f,0x9 0140 e007 | | Load 0x0,0x7 0141 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0142 6ff0 |o | Jump_Zero 0x133 0143 00ce | | Action Pop_Auxiliary 0144 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0xe = 0x144,0xc 0145 e5fe | | Load 0x2,-0x2 0146 e004 | | Load 0x0,0x4 0147 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0148 00d1 | | Pop_Control Pop_Count_1 0149 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0xf = 0x149,0xd 014a a5fb | | Store_Unchecked 0x2,-0x5 014b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 014c 0092 02e4 | | Action Push_String_Extended,0x2e4 ; "No elements in list" ; Debug Table 0x5.0x10 = 0x14c,0xe 014e e5fc | | Load 0x2,-0x4 014f 8219 | | Call 0x1,0x19 0150 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x11 = 0x150,0xf 0151 a5fb | | Store_Unchecked 0x2,-0x5 0152 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0153 TRAP_0100: 0153 0007 | | Action Break_Optional 0154 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Unexpected exception, " ; Debug Table 0x5.0x12 = 0x154,0x10 0156 e006 | | Load 0x0,0x6 0157 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0158 01cc | | Execute Vector,Catenate 0159 e5fc | | Load 0x2,-0x4 015a 8219 | | Call 0x1,0x19 015b 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x13 = 0x15b,0x11 015c a5fb | | Store_Unchecked 0x2,-0x5 015d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0176 | v | .CONST 0x0176 ; Address of begin 0161 01d6 | | .CONST 0x01d6 ; Address of exception handler 0162 0006 | | .CONST 0x0006 ; Number of locals 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0163,0x0438,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x0090 ; Debug Table 0x6.0x0 = 0x163,0xffff 0164 e008 | | Load 0x0,0x8 0165 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0166 00e1 | | Load_Encached Boolean_Cache 0167 03f1 | | Declare_Variable Discrete,With_Value 0168 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0x168,0xfffe 0169 e008 | | Load 0x0,0x8 016a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 016b 00e1 | | Load_Encached Boolean_Cache 016c 03f1 | | Declare_Variable Discrete,With_Value 016d e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x2 = 0x16d,0xfffd 016e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 016f 0322 | " | Declare_Variable Record 0170 e007 | | Load 0x0,0x7 ; Debug Table 0x6.0x3 = 0x170,0xfffc 0171 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0172 0322 | " | Declare_Variable Record 0173 e004 | | Load 0x0,0x4 ; Debug Table 0x6.0x4 = 0x173,0xfffb 0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0175 0322 | " | Declare_Variable Record 0176 BODY_0160: 0176 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x5 = 0x176,0x1 0177 683f |h? | Jump_Zero 0x1b7 0178 00db | | Load_Top At_Offset_3 0179 683d |h= | Jump_Zero 0x1b7 017a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x6 = 0x17a,0x2 017b e005 | | Load 0x0,0x5 017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017d e004 | | Load 0x0,0x4 017e 180e | | Execute Package,Field_Execute,Field_Number 0xe 017f 00d1 | | Pop_Control Pop_Count_1 0180 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x7 = 0x180,0x3 0181 e008 | | Load 0x0,0x8 0182 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0183 00db | | Load_Top At_Offset_3 0184 017d | } | Execute Record,Structure_Write 0185 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x8 = 0x185,0x4 0186 e008 | | Load 0x0,0x8 0187 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0188 00da | | Load_Top At_Offset_2 0189 017d | } | Execute Record,Structure_Write 018a 00cf | | Action Mark_Auxiliary 018b 780c |x | Jump 0x198 018c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x9 = 0x18c,0x6 018d e404 | | Load 0x2,0x4 018e e002 | | Load 0x0,0x2 018f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0190 e004 | | Load 0x0,0x4 0191 180f | | Execute Package,Field_Execute,Field_Number 0xf 0192 00d1 | | Pop_Control Pop_Count_1 0193 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xa = 0x193,0x7 0194 e002 | | Load 0x0,0x2 0195 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0196 00d1 | | Pop_Control Pop_Count_1 0197 00c9 | | Action Pop_Auxiliary_Loop 0198 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xb = 0x198,0x5 0199 e002 | | Load 0x0,0x2 019a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 019b 6ff0 |o | Jump_Zero 0x18c 019c 00c9 | | Action Pop_Auxiliary_Loop 019d 780c |x | Jump 0x1aa 019e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xc = 0x19e,0x9 019f 00db | | Load_Top At_Offset_3 01a0 e007 | | Load 0x0,0x7 01a1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01a2 e004 | | Load 0x0,0x4 01a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a4 00d1 | | Pop_Control Pop_Count_1 01a5 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xd = 0x1a5,0xa 01a6 e007 | | Load 0x0,0x7 01a7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01a8 00d1 | | Pop_Control Pop_Count_1 01a9 00c9 | | Action Pop_Auxiliary_Loop 01aa 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xe = 0x1aa,0x8 01ab e007 | | Load 0x0,0x7 01ac 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01ad 6ff0 |o | Jump_Zero 0x19e 01ae 00ce | | Action Pop_Auxiliary 01af 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xf = 0x1af,0xb 01b0 e5fe | | Load 0x2,-0x2 01b1 e004 | | Load 0x0,0x4 01b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01b3 00d1 | | Pop_Control Pop_Count_1 01b4 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x10 = 0x1b4,0xc 01b5 a5fb | | Store_Unchecked 0x2,-0x5 01b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01b7 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x11 = 0x1b7,0xd 01b8 680a |h | Jump_Zero 0x1c3 01b9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x12 = 0x1b9,0xe 01ba e5fc | | Load 0x2,-0x4 01bb e5fd | | Load 0x2,-0x3 01bc e5fe | | Load 0x2,-0x2 01bd e5ff | | Load 0x2,-0x1 01be e008 | | Load 0x0,0x8 01bf 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01c0 8210 | | Call 0x1,0x10 01c1 c5fb | | Store 0x2,-0x5 01c2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01c3 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x13 = 0x1c3,0xf 01c4 680a |h | Jump_Zero 0x1cf 01c5 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x14 = 0x1c5,0x10 01c6 e5fc | | Load 0x2,-0x4 01c7 e5fd | | Load 0x2,-0x3 01c8 e5fe | | Load 0x2,-0x2 01c9 e5ff | | Load 0x2,-0x1 01ca e008 | | Load 0x0,0x8 01cb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01cc 8212 | | Call 0x1,0x12 01cd c5fb | | Store 0x2,-0x5 01ce 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01cf 0092 02e4 | | Action Push_String_Extended,0x2e4 ; "No elements in list" ; Debug Table 0x6.0x15 = 0x1cf,0x11 01d1 e5fc | | Load 0x2,-0x4 01d2 8219 | | Call 0x1,0x19 01d3 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x16 = 0x1d3,0x12 01d4 a5fb | | Store_Unchecked 0x2,-0x5 01d5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01d6 TRAP_0160: 01d6 0007 | | Action Break_Optional 01d7 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Unexpected exception, " ; Debug Table 0x6.0x17 = 0x1d7,0x13 01d9 e006 | | Load 0x0,0x6 01da 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01db 01cc | | Execute Vector,Catenate 01dc e5fc | | Load 0x2,-0x4 01dd 8219 | | Call 0x1,0x19 01de 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x18 = 0x1de,0x14 01df a5fb | | Store_Unchecked 0x2,-0x5 01e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 0207 | | .CONST 0x0207 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb e009 | | Load 0x0,0x9 ; Debug Table 0x7 = .DEBUG 0x01eb,0x046c,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x00b3 ; Debug Table 0x7.0x0 = 0x1eb,0xffff 01ec 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01ed e00a | | Load 0x0,0xa ; Debug Table 0x7.0x1 = 0x1ed,0xfffe 01ee 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01ef 0322 | " | Declare_Variable Record 01f0 00d8 | | Load_Top At_Offset_0 01f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f2 e5fe | | Load 0x2,-0x2 01f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f4 00d9 | | Load_Top At_Offset_1 01f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01f6 e5fe | | Load 0x2,-0x2 01f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f8 00d0 | | Action Swap_Control 01f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01fa 00d8 | | Load_Top At_Offset_0 01fb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01fc e5fe | | Load 0x2,-0x2 01fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01fe e5fe | | Load 0x2,-0x2 01ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0200 0272 | r | Execute Discrete,Minus 0201 00d9 | | Load_Top At_Offset_1 0202 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0203 e5fe | | Load 0x2,-0x2 0204 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0205 00d0 | | Action Swap_Control 0206 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0207 BODY_01e8: 0207 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x7.0x2 = 0x207,0x1 0208 e5fb | | Load 0x2,-0x5 0209 e5fc | | Load 0x2,-0x4 020a e5fd | | Load 0x2,-0x3 020b e5ff | | Load 0x2,-0x1 020c 820f | | Call 0x1,0xf 020d c5fa | | Store 0x2,-0x6 020e e009 | | Load 0x0,0x9 ; Debug Table 0x7.0x3 = 0x20e,0x2 020f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0210 e00b | | Load 0x0,0xb 0211 180e | | Execute Package,Field_Execute,Field_Number 0xe 0212 4801 |H | Short_Literal 0x1 0213 e5fd | | Load 0x2,-0x3 0214 e403 | | Load 0x2,0x3 0215 e00b | | Load 0x0,0xb 0216 180e | | Execute Package,Field_Execute,Field_Number 0xe 0217 e009 | | Load 0x0,0x9 0218 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0219 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 021a e009 | | Load 0x0,0x9 021b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 021c 005a | Z | Store_Top Discrete,At_Offset_2 021d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0227 | ' | .CONST 0x0227 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 e00b | | Load 0x0,0xb ; Debug Table 0x8 = .DEBUG 0x0223,0x0476,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x00d4 ; Debug Table 0x8.0x0 = 0x223,0xffff 0224 180e | | Execute Package,Field_Execute,Field_Number 0xe 0225 e009 | | Load 0x0,0x9 0226 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0227 BODY_0220: 0227 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x1 = 0x227,0x1 0228 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0229 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 022a a5ff | | Store_Unchecked 0x2,-0x1 022b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x2 = 0x22b,0x2 022c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 022d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 022e a5fe | | Store_Unchecked 0x2,-0x2 022f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x22f,0x3 0230 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0231 e009 | | Load 0x0,0x9 0232 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0233 012f | / | Execute Any,Equal 0234 6803 |h | Jump_Zero 0x238 0235 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x4 = 0x235,0x4 0236 a5fd | | Store_Unchecked 0x2,-0x3 0237 7812 |x | Jump 0x24a 0238 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x5 = 0x238,0x5 0239 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023a 00d9 | | Load_Top At_Offset_1 023b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 023c 012f | / | Execute Any,Equal 023d 680a |h | Jump_Zero 0x248 023e 00d8 | | Load_Top At_Offset_0 023f 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8 0240 00d9 | | Load_Top At_Offset_1 0241 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0242 e00c | | Load 0x0,0xc 0243 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0244 6803 |h | Jump_Zero 0x248 0245 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x6 = 0x245,0x6 0246 a5fd | | Store_Unchecked 0x2,-0x3 0247 7802 |x | Jump 0x24a 0248 4803 |H | Short_Literal 0x3 ; Debug Table 0x8.0x7 = 0x248,0x7 0249 a5fd | | Store_Unchecked 0x2,-0x3 024a e00d | | Load 0x0,0xd ; Debug Table 0x8.0x8 = 0x24a,0x8 024b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024c 180e | | Execute Package,Field_Execute,Field_Number 0xe 024d c5fc | | Store 0x2,-0x4 024e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024f 0000 | | .XXX[0x1] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0266 | f | .CONST 0x0266 ; Address of begin 0251 0293 | | .CONST 0x0293 ; Address of exception handler 0252 0008 | | .CONST 0x0008 ; Number of locals 0253 INIT_0250: 0253 0007 | | Action Break_Optional ; Debug Table 0x9 = .DEBUG 0x0253,0x048a,0x0002,0x0000,0x0037,0xdaf4,0x0000,0x00eb ; Debug Table 0x9.0x0 = 0x253,0xffff 0254 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x9.0x1 = 0x254,0xfffe 0255 e00c | | Load 0x0,0xc ; Debug Table 0x9.0x2 = 0x255,0xfffd 0256 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0257 e00e | | Load 0x0,0xe ; Debug Table 0x9.0x3 = 0x257,0xfffc 0258 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0259 02c7 | | Declare_Variable Any 025a 00d8 | | Load_Top At_Offset_0 025b 1c00 | | Execute_Immediate Run_Utility,0x0 025c e00c | | Load 0x0,0xc ; Debug Table 0x9.0x4 = 0x25c,0xfffb 025d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 025e e00b | | Load 0x0,0xb ; Debug Table 0x9.0x5 = 0x25e,0xfffa 025f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0260 e009 | | Load 0x0,0x9 0261 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0262 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x6 = 0x262,0xfff9 0263 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0264 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 0266 BODY_0250: 0266 e009 | | Load 0x0,0x9 ; Debug Table 0x9.0x7 = 0x266,0x1 0267 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0268 e00c | | Load 0x0,0xc 0269 1b12 | | Execute Package,Field_Read,Field_Number 0x12 026a e404 | | Load 0x2,0x4 026b 0120 | | Execute Any,Is_Value 026c 6803 |h | Jump_Zero 0x270 026d e00e | | Load 0x0,0xe 026e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 026f 7801 |x | Jump 0x271 0270 e404 | | Load 0x2,0x4 0271 4800 |H | Short_Literal 0x0 0272 e407 | | Load 0x2,0x7 0273 e009 | | Load 0x0,0x9 0274 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0275 c404 | | Store 0x2,0x4 0276 c405 | | Store 0x2,0x5 0277 c403 | | Store 0x2,0x3 0278 e403 | | Load 0x2,0x3 ; Debug Table 0x9.0x8 = 0x278,0x2 0279 6802 |h | Jump_Zero 0x27c 027a 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x9.0x9 = 0x27a,0x3 027b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027c e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0xa = 0x27c,0x4 027d e404 | | Load 0x2,0x4 027e e00e | | Load 0x0,0xe 027f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0280 027d | } | Execute Discrete,Greater 0281 6809 |h | Jump_Zero 0x28b 0282 e009 | | Load 0x0,0x9 ; Debug Table 0x9.0xb = 0x282,0x5 0283 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0284 e405 | | Load 0x2,0x5 0285 00db | | Load_Top At_Offset_3 0286 e009 | | Load 0x0,0x9 0287 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0288 c403 | | Store 0x2,0x3 0289 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x9.0xc = 0x289,0x6 028a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028b e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0xd = 0x28b,0x7 028c e404 | | Load 0x2,0x4 028d e00e | | Load 0x0,0xe 028e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 028f a402 | | Store_Unchecked 0x2,0x2 0290 8408 | | Call 0x2,0x8 ; Debug Table 0x9.0xe = 0x290,0x8 0291 4831 |H1 | Short_Literal 0x31 0292 0257 | W | Execute Discrete,Raise 0293 TRAP_0250: 0293 0007 | | Action Break_Optional 0294 e009 | | Load 0x0,0x9 ; Debug Table 0x9.0xf = 0x294,0x9 0295 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0296 e405 | | Load 0x2,0x5 0297 e407 | | Load 0x2,0x7 0298 e009 | | Load 0x0,0x9 0299 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 029a c403 | | Store 0x2,0x3 029b 4831 |H1 | Short_Literal 0x31 029c 0257 | W | Execute Discrete,Raise 029d 0000 0000 | | .XXX[0x3] 029f 0000 | | 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x02a3,0x04ac,0x0001,0x0000,0x0037,0xe0b4,0x0000,0x003f ; Debug Table 0xa.0x0 = 0x2a3,0x1 02a4 01db | | Execute Vector,Length 02a5 680d |h | Jump_Zero 0x2b3 02a6 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x1 = 0x2a6,0x2 02a7 4800 |H | Short_Literal 0x0 02a8 4802 |H | Short_Literal 0x2 02a9 4829 |H) | Short_Literal 0x29 02aa 4828 |H( | Short_Literal 0x28 02ab e5ff | | Load 0x2,-0x1 02ac 01cb | | Execute Vector,Append 02ad e5fe | | Load 0x2,-0x2 02ae 01cc | | Execute Vector,Catenate 02af 01cb | | Execute Vector,Append 02b0 00ea | | Load_Encached Null_String_Cache 02b1 e006 | | Load 0x0,0x6 02b2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b4 0000 0000 | | .BLANK 0000[0x4] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x02bb,0x04b2,0x0001,0x0000,0x0037,0xe0b4,0x0000,0x006d ; Debug Table 0xb.0x0 = 0x2bb,0x1 02bc 01db | | Execute Vector,Length 02bd 6808 |h | Jump_Zero 0x2c6 02be 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x1 = 0x2be,0x2 02bf 4800 |H | Short_Literal 0x0 02c0 4802 |H | Short_Literal 0x2 02c1 e5fe | | Load 0x2,-0x2 02c2 e5ff | | Load 0x2,-0x1 02c3 00ea | | Load_Encached Null_String_Cache 02c4 e006 | | Load 0x0,0x6 02c5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c7 0000 | | .XXX[0x1] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cf | | .CONST 0x02cf ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb 4801 |H | Short_Literal 0x1 ; Debug Table 0xc = .DEBUG 0x02cb,0x04b8,0x0004,0x0000,0x0037,0xe0b4,0x0000,0x054d ; Debug Table 0xc.0x0 = 0x2cb,0xffff 02cc e402 | | Load 0x2,0x2 02cd 00e9 | | Load_Encached String_Cache 02ce 0334 | 4 | Declare_Variable Array,With_Constraint 02cf BODY_02c8: 02cf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x1 = 0x2cf,0x1 02d0 4801 |H | Short_Literal 0x1 02d1 e5ff | | Load 0x2,-0x1 02d2 e404 | | Load 0x2,0x4 02d3 e00e | | Load 0x0,0xe 02d4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02d5 00d1 | | Pop_Control Pop_Count_1 02d6 e009 | | Load 0x0,0x9 ; Debug Table 0xc.0x2 = 0x2d6,0x2 02d7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02d8 e405 | | Load 0x2,0x5 02d9 e407 | | Load 0x2,0x7 02da e009 | | Load 0x0,0x9 02db 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 02dc c403 | | Store 0x2,0x3 02dd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x3 = 0x2dd,0x3 02de 00cb | | Action Pop_Block_With_Result 02df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; STRING TABLE 02e0 ; -------------------------------------------------------------------------------------- 02e0 000c | | .STRTAB 0x000c->0x02e6 ; "Definition Failed " 02e1 001c | | .STRTAB 0x001c->0x02ef ; "Ada_Program.Nil_Element specified" 02e2 003b | ; | .STRTAB 0x003b->0x02ff ; "No Elements in list" 02e3 004c | L | .STRTAB 0x004c->0x0309 ; "Unexpected exception, " 02e4 0060 | ` | .STRTAB 0x0060->0x0314 ; "No elements in list" 02e5 0071 | q | .STREND 0x0071->0x031d 02e6 4465 6669 |Defi| .STRTAB_STRINGS 031e 0000 0000 | | .XXX[0x2] 0320 ; -------------------------------------------------------------------------------------- 0320 ; Debug Table 0320 ; -------------------------------------------------------------------------------------- 0320 0003 000d | | .CONST 0x0003,0x000d 0322 000b 038a | | .DEBUG 0x000b,0x038a,0x8000,0x0000,0x0037,0xdaf4,0x0000,0x000f 032a 0026 03a8 | & | .DEBUG 0x0026,0x03a8,0x8000,0x0000,0x0037,0xe0b4,0x0000,0x001b 0332 004b 03c2 | K | .DEBUG 0x004b,0x03c2,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x001c 033a 006b 03ce | k | .DEBUG 0x006b,0x03ce,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x0039 0342 00cb 03f8 | | .DEBUG 0x00cb,0x03f8,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x0056 034a 0103 040e | | .DEBUG 0x0103,0x040e,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x0073 0352 0163 0438 | c 8| .DEBUG 0x0163,0x0438,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x0090 035a 01eb 046c | l| .DEBUG 0x01eb,0x046c,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x00b3 0362 0223 0476 | # v| .DEBUG 0x0223,0x0476,0x0001,0x0000,0x0037,0xdaf4,0x0000,0x00d4 036a 0253 048a | S | .DEBUG 0x0253,0x048a,0x0002,0x0000,0x0037,0xdaf4,0x0000,0x00eb 0372 02a3 04ac | | .DEBUG 0x02a3,0x04ac,0x0001,0x0000,0x0037,0xe0b4,0x0000,0x003f 037a 02bb 04b2 | | .DEBUG 0x02bb,0x04b2,0x0001,0x0000,0x0037,0xe0b4,0x0000,0x006d 0382 02cb 04b8 | | .DEBUG 0x02cb,0x04b8,0x0004,0x0000,0x0037,0xe0b4,0x0000,0x054d 038a ; -------------------------------------------------------------------------------------- 038a ; Debug3 Subtable 0x0 038a ; -------------------------------------------------------------------------------------- 038a 000e 0000 | | .DBG3TAB 0x000e,0x0000 038c 000b ffff | | .CONST 0x000b,0xffff 038e 000e fffe | | .CONST 0x000e,0xfffe 0390 0010 fffd | | .CONST 0x0010,0xfffd 0392 0012 fffc | | .CONST 0x0012,0xfffc 0394 0014 fffb | | .CONST 0x0014,0xfffb 0396 0016 fffa | | .CONST 0x0016,0xfffa 0398 0018 fff9 | | .CONST 0x0018,0xfff9 039a 001a fff8 | | .CONST 0x001a,0xfff8 039c 001d fff7 | | .CONST 0x001d,0xfff7 039e 001f fff6 | | .CONST 0x001f,0xfff6 03a0 0021 fff5 | ! | .CONST 0x0021,0xfff5 03a2 0023 fff4 | # | .CONST 0x0023,0xfff4 03a4 0024 fff3 | $ | .CONST 0x0024,0xfff3 03a6 0025 fff2 | % | .CONST 0x0025,0xfff2 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; Debug3 Subtable 0x1 03a8 ; -------------------------------------------------------------------------------------- 03a8 000c 0000 | | .DBG3TAB 0x000c,0x0000 03aa 0026 ffff | & | .CONST 0x0026,0xffff 03ac 0027 fffe | ' | .CONST 0x0027,0xfffe 03ae 002b fffd | + | .CONST 0x002b,0xfffd 03b0 002d fffc | - | .CONST 0x002d,0xfffc 03b2 002f fffb | / | .CONST 0x002f,0xfffb 03b4 0031 fffa | 1 | .CONST 0x0031,0xfffa 03b6 0033 fff9 | 3 | .CONST 0x0033,0xfff9 03b8 0035 fff8 | 5 | .CONST 0x0035,0xfff8 03ba 0037 fff7 | 7 | .CONST 0x0037,0xfff7 03bc 0039 fff6 | 9 | .CONST 0x0039,0xfff6 03be 003b fff5 | ; | .CONST 0x003b,0xfff5 03c0 003d fff4 | = | .CONST 0x003d,0xfff4 03c2 ; -------------------------------------------------------------------------------------- 03c2 ; Debug3 Subtable 0x2 03c2 ; -------------------------------------------------------------------------------------- 03c2 0000 0005 | | .DBG3TAB 0x0000,0x0005 03c4 004b 0001 | K | .CONST 0x004b,0x0001 03c6 0050 0002 | P | .CONST 0x0050,0x0002 03c8 0057 0003 | W | .CONST 0x0057,0x0003 03ca 005a 0004 | Z | .CONST 0x005a,0x0004 03cc 005e 0005 | ^ | .CONST 0x005e,0x0005 03ce ; -------------------------------------------------------------------------------------- 03ce ; Debug3 Subtable 0x3 03ce ; -------------------------------------------------------------------------------------- 03ce 0003 0011 | | .DBG3TAB 0x0003,0x0011 03d0 006b ffff | k | .CONST 0x006b,0xffff 03d2 006e fffe | n | .CONST 0x006e,0xfffe 03d4 0070 fffd | p | .CONST 0x0070,0xfffd 03d6 0073 0001 | s | .CONST 0x0073,0x0001 03d8 0078 0002 | x | .CONST 0x0078,0x0002 03da 007c 0003 | | | .CONST 0x007c,0x0003 03dc 0080 0004 | | .CONST 0x0080,0x0004 03de 0084 0005 | | .CONST 0x0084,0x0005 03e0 0088 0006 | | .CONST 0x0088,0x0006 03e2 0090 0007 | | .CONST 0x0090,0x0007 03e4 0096 0008 | | .CONST 0x0096,0x0008 03e6 009d 000a | | .CONST 0x009d,0x000a 03e8 00a4 000b | | .CONST 0x00a4,0x000b 03ea 00a9 0009 | | .CONST 0x00a9,0x0009 03ec 00ae 000c | | .CONST 0x00ae,0x000c 03ee 00b3 000d | | .CONST 0x00b3,0x000d 03f0 00b6 000e | | .CONST 0x00b6,0x000e 03f2 00ba 000f | | .CONST 0x00ba,0x000f 03f4 00be 0010 | | .CONST 0x00be,0x0010 03f6 00c5 0011 | | .CONST 0x00c5,0x0011 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; Debug3 Subtable 0x4 03f8 ; -------------------------------------------------------------------------------------- 03f8 0001 0009 | | .DBG3TAB 0x0001,0x0009 03fa 00cb ffff | | .CONST 0x00cb,0xffff 03fc 00d0 0001 | | .CONST 0x00d0,0x0001 03fe 00d8 0002 | | .CONST 0x00d8,0x0002 0400 00e0 0003 | | .CONST 0x00e0,0x0003 0402 00e3 0004 | | .CONST 0x00e3,0x0004 0404 00e5 0005 | | .CONST 0x00e5,0x0005 0406 00ea 0006 | | .CONST 0x00ea,0x0006 0408 00ec 0007 | | .CONST 0x00ec,0x0007 040a 00f2 0008 | | .CONST 0x00f2,0x0008 040c 00f9 0009 | | .CONST 0x00f9,0x0009 040e ; -------------------------------------------------------------------------------------- 040e ; Debug3 Subtable 0x5 040e ; -------------------------------------------------------------------------------------- 040e 0003 0011 | | .DBG3TAB 0x0003,0x0011 0410 0103 ffff | | .CONST 0x0103,0xffff 0412 0106 fffe | | .CONST 0x0106,0xfffe 0414 0108 fffd | | .CONST 0x0108,0xfffd 0416 010b 0001 | | .CONST 0x010b,0x0001 0418 010e 0002 | | .CONST 0x010e,0x0002 041a 0112 0003 | | .CONST 0x0112,0x0003 041c 0116 0004 | | .CONST 0x0116,0x0004 041e 011a 0005 | | .CONST 0x011a,0x0005 0420 011e 0006 | | .CONST 0x011e,0x0006 0422 0126 0007 | & | .CONST 0x0126,0x0007 0424 012c 0008 | , | .CONST 0x012c,0x0008 0426 0133 000a | 3 | .CONST 0x0133,0x000a 0428 013a 000b | : | .CONST 0x013a,0x000b 042a 013f 0009 | ? | .CONST 0x013f,0x0009 042c 0144 000c | D | .CONST 0x0144,0x000c 042e 0149 000d | I | .CONST 0x0149,0x000d 0430 014c 000e | L | .CONST 0x014c,0x000e 0432 0150 000f | P | .CONST 0x0150,0x000f 0434 0154 0010 | T | .CONST 0x0154,0x0010 0436 015b 0011 | [ | .CONST 0x015b,0x0011 0438 ; -------------------------------------------------------------------------------------- 0438 ; Debug3 Subtable 0x6 0438 ; -------------------------------------------------------------------------------------- 0438 0005 0014 | | .DBG3TAB 0x0005,0x0014 043a 0163 ffff | c | .CONST 0x0163,0xffff 043c 0168 fffe | h | .CONST 0x0168,0xfffe 043e 016d fffd | m | .CONST 0x016d,0xfffd 0440 0170 fffc | p | .CONST 0x0170,0xfffc 0442 0173 fffb | s | .CONST 0x0173,0xfffb 0444 0176 0001 | v | .CONST 0x0176,0x0001 0446 017a 0002 | z | .CONST 0x017a,0x0002 0448 0180 0003 | | .CONST 0x0180,0x0003 044a 0185 0004 | | .CONST 0x0185,0x0004 044c 018c 0006 | | .CONST 0x018c,0x0006 044e 0193 0007 | | .CONST 0x0193,0x0007 0450 0198 0005 | | .CONST 0x0198,0x0005 0452 019e 0009 | | .CONST 0x019e,0x0009 0454 01a5 000a | | .CONST 0x01a5,0x000a 0456 01aa 0008 | | .CONST 0x01aa,0x0008 0458 01af 000b | | .CONST 0x01af,0x000b 045a 01b4 000c | | .CONST 0x01b4,0x000c 045c 01b7 000d | | .CONST 0x01b7,0x000d 045e 01b9 000e | | .CONST 0x01b9,0x000e 0460 01c3 000f | | .CONST 0x01c3,0x000f 0462 01c5 0010 | | .CONST 0x01c5,0x0010 0464 01cf 0011 | | .CONST 0x01cf,0x0011 0466 01d3 0012 | | .CONST 0x01d3,0x0012 0468 01d7 0013 | | .CONST 0x01d7,0x0013 046a 01de 0014 | | .CONST 0x01de,0x0014 046c ; -------------------------------------------------------------------------------------- 046c ; Debug3 Subtable 0x7 046c ; -------------------------------------------------------------------------------------- 046c 0002 0002 | | .DBG3TAB 0x0002,0x0002 046e 01eb ffff | | .CONST 0x01eb,0xffff 0470 01ed fffe | | .CONST 0x01ed,0xfffe 0472 0207 0001 | | .CONST 0x0207,0x0001 0474 020e 0002 | | .CONST 0x020e,0x0002 0476 ; -------------------------------------------------------------------------------------- 0476 ; Debug3 Subtable 0x8 0476 ; -------------------------------------------------------------------------------------- 0476 0001 0008 | | .DBG3TAB 0x0001,0x0008 0478 0223 ffff | # | .CONST 0x0223,0xffff 047a 0227 0001 | ' | .CONST 0x0227,0x0001 047c 022b 0002 | + | .CONST 0x022b,0x0002 047e 022f 0003 | / | .CONST 0x022f,0x0003 0480 0235 0004 | 5 | .CONST 0x0235,0x0004 0482 0238 0005 | 8 | .CONST 0x0238,0x0005 0484 0245 0006 | E | .CONST 0x0245,0x0006 0486 0248 0007 | H | .CONST 0x0248,0x0007 0488 024a 0008 | J | .CONST 0x024a,0x0008 048a ; -------------------------------------------------------------------------------------- 048a ; Debug3 Subtable 0x9 048a ; -------------------------------------------------------------------------------------- 048a 0007 0009 | | .DBG3TAB 0x0007,0x0009 048c 0253 ffff | S | .CONST 0x0253,0xffff 048e 0254 fffe | T | .CONST 0x0254,0xfffe 0490 0255 fffd | U | .CONST 0x0255,0xfffd 0492 0257 fffc | W | .CONST 0x0257,0xfffc 0494 025c fffb | \ | .CONST 0x025c,0xfffb 0496 025e fffa | ^ | .CONST 0x025e,0xfffa 0498 0262 fff9 | b | .CONST 0x0262,0xfff9 049a 0266 0001 | f | .CONST 0x0266,0x0001 049c 0278 0002 | x | .CONST 0x0278,0x0002 049e 027a 0003 | z | .CONST 0x027a,0x0003 04a0 027c 0004 | | | .CONST 0x027c,0x0004 04a2 0282 0005 | | .CONST 0x0282,0x0005 04a4 0289 0006 | | .CONST 0x0289,0x0006 04a6 028b 0007 | | .CONST 0x028b,0x0007 04a8 0290 0008 | | .CONST 0x0290,0x0008 04aa 0294 0009 | | .CONST 0x0294,0x0009 04ac ; -------------------------------------------------------------------------------------- 04ac ; Debug3 Subtable 0xa 04ac ; -------------------------------------------------------------------------------------- 04ac 0000 0002 | | .DBG3TAB 0x0000,0x0002 04ae 02a3 0001 | | .CONST 0x02a3,0x0001 04b0 02a6 0002 | | .CONST 0x02a6,0x0002 04b2 ; -------------------------------------------------------------------------------------- 04b2 ; Debug3 Subtable 0xb 04b2 ; -------------------------------------------------------------------------------------- 04b2 0000 0002 | | .DBG3TAB 0x0000,0x0002 04b4 02bb 0001 | | .CONST 0x02bb,0x0001 04b6 02be 0002 | | .CONST 0x02be,0x0002 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; Debug3 Subtable 0xc 04b8 ; -------------------------------------------------------------------------------------- 04b8 0001 0003 | | .DBG3TAB 0x0001,0x0003 04ba 02cb ffff | | .CONST 0x02cb,0xffff 04bc 02cf 0001 | | .CONST 0x02cf,0x0001 04be 02d6 0002 | | .CONST 0x02d6,0x0002 04c0 02dd 0003 | | .CONST 0x02dd,0x0003 04c2 0000 0000 | | .BLANK 0000[0x13e]