|
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 02d0 | | .CONST 0x02d0 ; 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 0065 | e | .CONST 0x0065 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x035a,0x8000,0x0000,0x0037,0xdb74,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
000d 0129 | ) | Execute Any,Make_Visible
000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0010 0129 | ) | Execute Any,Make_Visible
0011 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0x11,0xfffd
0012 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0013 0129 | ) | Execute Any,Make_Visible
0014 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x3 = 0x14,0xfffc
0015 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
0016 0129 | ) | Execute Any,Make_Visible
0017 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x17,0xfffb
0018 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0019 0129 | ) | Execute Any,Make_Visible
001a e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x5 = 0x1a,0xfffa
001b 1b48 | H | Execute Package,Field_Read,Field_Number 0x48
001c 0129 | ) | Execute Any,Make_Visible
001d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1d,0xfff9
001f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1f,0xfff8
0021 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x8 = 0x21,0xfff7
0022 4802 |H | Short_Literal 0x2
0023 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0025 03fe | | Declare_Type Discrete,Defined,Visible
0026 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x26,0xfff6
0028 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x28,0xfff5
002a 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x2a,0xfff4
002c 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x2c,0xfff3
002e 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x2e,0xfff2
0030 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x30,0xfff1
0032 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x32,0xfff0
0034 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x34,0xffef
0036 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x11 = 0x36,0xffee
0037 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0038 0129 | ) | Execute Any,Make_Visible
0039 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x39,0xffed
003b 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x3b,0xffec
003c 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x3c,0xffeb
003d 00bf | | Action Accept_Activation ; Debug Table 0x0.0x15 = 0x3d,0xffea
003e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x003e,0x0388,0x8000,0x0000,0x0037,0xdc64,0x0000,0x0011
; Debug Table 0x1.0x0 = 0x3e,0xffff
003f 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x3f,0xfffe
0040 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x40,0xfffd
0041 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0042 190f | | Execute Package,Field_Reference,Field_Number 0xf
0043 0007 | | Action Break_Optional
0044 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x44,0xfffc
0045 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0046 190e | | Execute Package,Field_Reference,Field_Number 0xe
0047 0007 | | Action Break_Optional
0048 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call ; Debug Table 0x1.0x4 = 0x48,0xfffb
004a 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call ; Debug Table 0x1.0x5 = 0x4a,0xfffa
004c 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call ; Debug Table 0x1.0x6 = 0x4c,0xfff9
004e 0007 | | Action Break_Optional ; Debug Table 0x1.0x7 = 0x4e,0xfff8
004f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x8 = 0x4f,0xfff7
0050 00c7 | | Action Elaborate_Subprogram
0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x9 = 0x51,0xfff6
0052 00c7 | | Action Elaborate_Subprogram
0053 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xa = 0x53,0xfff5
0054 00c7 | | Action Elaborate_Subprogram
0055 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xb = 0x55,0xfff4
0056 00c7 | | Action Elaborate_Subprogram
0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xc = 0x57,0xfff3
0058 00c7 | | Action Elaborate_Subprogram
0059 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xd = 0x59,0xfff2
005a 00c7 | | Action Elaborate_Subprogram
005b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xe = 0x5b,0xfff1
005c 00c7 | | Action Elaborate_Subprogram
005d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xf = 0x5d,0xfff0
005e 00c7 | | Action Elaborate_Subprogram
005f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x10 = 0x5f,0xffef
0060 00c7 | | Action Elaborate_Subprogram
0061 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x11 = 0x61,0xffee
0062 00c7 | | Action Elaborate_Subprogram
0063 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x12 = 0x63,0xffed
0064 00c7 | | Action Elaborate_Subprogram
0065 BODY_0008:
0065 00bc | | Action Signal_Activated
0066 00bb | | Action Signal_Completion
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006c | l | .CONST 0x006c ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2 = .DEBUG 0x006b,0x03b0,0x0002,0x0000,0x0037,0xdb74,0x0000,0x002a
; Debug Table 0x2.0x0 = 0x6b,0xffff
006c BODY_0068:
006c 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x6c,0x1
006d 8220 | | Call 0x1,0x20
006e 8222 | " | Call 0x1,0x22
006f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0070 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x70,0x2
0071 00eb | | Load_Encached Diana_Cache
0072 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
0073 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0074 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x74,0x3
0075 00eb | | Load_Encached Diana_Cache
0076 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0077 0f49 | I | Execute_Immediate Equal,0x49
0078 6804 |h | Jump_Zero 0x7d
0079 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x4 = 0x79,0x4
007a 00eb | | Load_Encached Diana_Cache
007b 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5
007c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
007d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x5 = 0x7d,0x5
007e 8221 | ! | Call 0x1,0x21
007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0084 | | .CONST 0x0084 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3 = .DEBUG 0x0083,0x03be,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0033
; Debug Table 0x3.0x0 = 0x83,0xffff
0084 BODY_0080:
0084 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x84,0x1
0085 8220 | | Call 0x1,0x20
0086 8222 | " | Call 0x1,0x22
0087 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0088 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x88,0x2
0089 00eb | | Load_Encached Diana_Cache
008a 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
008b 00eb | | Load_Encached Diana_Cache
008c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
008d e001 | | Load 0x0,0x1
008e 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
008f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x009b,0x03c6,0x0005,0x0000,0x0037,0xdb74,0x0000,0x003c
009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
009d 7802 |x | Jump 0xa0 ; case 0x1
009e 7805 |x | Jump 0xa4 ; case 0x2
009f 7809 |x | Jump 0xa9 ; case 0x3
00a0 00da | | Load_Top At_Offset_2
00a1 0091 0268 | h| Action Push_String_Extended_Indexed,0x268 ; "A_WITH_CLAUSE"
00a3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a4 00db | | Load_Top At_Offset_3
00a5 00db | | Load_Top At_Offset_3
00a6 00e0 | | Load_Encached Standard_Cache
00a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a9 00da | | Load_Top At_Offset_2
00aa 00e0 | | Load_Encached Standard_Cache
00ab 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ac 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00b3,0x03c8,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0043
; Debug Table 0x5.0x0 = 0xb3,0x1
00b4 8220 | | Call 0x1,0x20
00b5 00eb | | Load_Encached Diana_Cache
00b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b7 0b85 | | Execute_Immediate Case_Compare,0x85
00b8 7004 |p | Jump_Nonzero 0xbd
00b9 0b45 | E | Execute_Immediate Case_Compare,0x45
00ba 7004 |p | Jump_Nonzero 0xbf
00bb 4802 |H | Short_Literal 0x2 ; Debug Table 0x5.0x1 = 0xbb,0x4
00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bd 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x2 = 0xbd,0x2
00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bf 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x3 = 0xbf,0x3
00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00cb,0x03d2,0x0002,0x0000,0x0037,0xdb74,0x0000,0x004c
; Debug Table 0x6.0x0 = 0xcb,0x1
00cc 4801 |H | Short_Literal 0x1
00cd 8224 | $ | Call 0x1,0x24
00ce 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1 = 0xce,0x2
00cf 8220 | | Call 0x1,0x20
00d0 00eb | | Load_Encached Diana_Cache
00d1 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00d2 e001 | | Load 0x0,0x1
00d3 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
00d4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dc | | .CONST 0x00dc ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7 = .DEBUG 0x00db,0x03d8,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0055
; Debug Table 0x7.0x0 = 0xdb,0xffff
00dc BODY_00d8:
00dc 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0xdc,0x1
00dd 8220 | | Call 0x1,0x20
00de 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00df 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0xdf,0x2
00e0 00eb | | Load_Encached Diana_Cache
00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e2 6803 |h | Jump_Zero 0xe6
00e3 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x3 = 0xe3,0x3
00e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x4 = 0xe6,0x4
00e7 4974 |It | Short_Literal 0x174
00e8 00eb | | Load_Encached Diana_Cache
00e9 0098 | | Execute Package,Field_Read_Dynamic
00ea 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00eb 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00ec 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x5 = 0xec,0x5
00ed 00eb | | Load_Encached Diana_Cache
00ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ef 0fa8 | | Execute_Immediate Equal,-0x58
00f0 6803 |h | Jump_Zero 0xf4
00f1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x6 = 0xf1,0x6
00f2 8221 | ! | Call 0x1,0x21
00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f4 0092 026b | k| Action Push_String_Extended,0x26b ; "Element is not in a compilation unit"
; Debug Table 0x7.0x7 = 0xf4,0x7
00f6 e002 | | Load 0x0,0x2
00f7 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00f8 e003 | | Load 0x0,0x3
00f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fa e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x8 = 0xfa,0x8
00fb 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
00fc 0257 | W | Execute Discrete,Raise
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0104 | | .CONST 0x0104 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8 = .DEBUG 0x0103,0x03ec,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0060
; Debug Table 0x8.0x0 = 0x103,0xffff
0104 BODY_0100:
0104 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x1 = 0x104,0x1
0105 8220 | | Call 0x1,0x20
0106 8222 | " | Call 0x1,0x22
0107 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0108 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x2 = 0x108,0x2
0109 00eb | | Load_Encached Diana_Cache
010a 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
010b 00eb | | Load_Encached Diana_Cache
010c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
010d 0f49 | I | Execute_Immediate Equal,0x49
010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0115 | | .CONST 0x0115 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e20f | | Load 0x1,0xf ; Debug Table 0x9 = .DEBUG 0x0113,0x03f4,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0069
; Debug Table 0x9.0x0 = 0x113,0xffff
0114 0007 | | Action Break_Optional
0115 BODY_0110:
0115 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x115,0x1
0116 821b | | Call 0x1,0x1b
0117 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0118 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x118,0x2
0119 8220 | | Call 0x1,0x20
011a 4974 |It | Short_Literal 0x174
011b 00eb | | Load_Encached Diana_Cache
011c 0098 | | Execute Package,Field_Read_Dynamic
011d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011e 8221 | ! | Call 0x1,0x21
011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0132 | 2 | .CONST 0x0132 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0006 | | .CONST 0x0006 ; Number of locals
0123 INIT_0120:
0123 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xa = .DEBUG 0x0123,0x03fc,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0072
; Debug Table 0xa.0x0 = 0x123,0xffff
0124 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xa.0x1 = 0x124,0xfffe
0125 e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x2 = 0x125,0xfffd
0126 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0127 02c7 | | Declare_Variable Any
0128 00d8 | | Load_Top At_Offset_0
0129 1c00 | | Execute_Immediate Run_Utility,0x0
012a e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x3 = 0x12a,0xfffc
012b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012d 02c7 | | Declare_Variable Any
012e 00d8 | | Load_Top At_Offset_0
012f 1c00 | | Execute_Immediate Run_Utility,0x0
0130 e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x4 = 0x130,0xfffb
0131 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0132 BODY_0120:
0132 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x5 = 0x132,0x1
0133 8220 | | Call 0x1,0x20
0134 8222 | " | Call 0x1,0x22
0135 a402 | | Store_Unchecked 0x2,0x2
0136 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x6 = 0x136,0x2
0137 00eb | | Load_Encached Diana_Cache
0138 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
0139 00eb | | Load_Encached Diana_Cache
013a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013b 0f49 | I | Execute_Immediate Equal,0x49
013c 7009 |p | Jump_Nonzero 0x146
013d 0092 026c | l| Action Push_String_Extended,0x26c ; "Element is not in a subunit"
; Debug Table 0xa.0x7 = 0x13d,0x3
013f e002 | | Load 0x0,0x2
0140 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0141 e003 | | Load 0x0,0x3
0142 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0143 e001 | | Load 0x0,0x1 ; Debug Table 0xa.0x8 = 0x143,0x4
0144 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
0145 0257 | W | Execute Discrete,Raise
0146 e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x9 = 0x146,0x5
0147 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0148 00da | | Load_Top At_Offset_2
0149 0120 | | Execute Any,Is_Value
014a 6804 |h | Jump_Zero 0x14f
014b e004 | | Load 0x0,0x4
014c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014e 7801 |x | Jump 0x150
014f 00da | | Load_Top At_Offset_2
0150 e402 | | Load 0x2,0x2
0151 e004 | | Load 0x0,0x4
0152 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0153 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0154 c405 | | Store 0x2,0x5
0155 0059 | Y | Store_Top Discrete,At_Offset_1
0156 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xa = 0x156,0x6
0157 8223 | # | Call 0x1,0x23
0158 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0xb = 0x158,0x7
0159 e004 | | Load 0x0,0x4
015a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
015b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
015c c404 | | Store 0x2,0x4
015d e004 | | Load 0x0,0x4 ; Debug Table 0xa.0xc = 0x15d,0x8
015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015f e004 | | Load 0x0,0x4
0160 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0161 6102 |a | Indirect_Literal Discrete,0x264,{0x00000000, 0x00004000}
0162 e005 | | Load 0x0,0x5
0163 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0164 4800 |H | Short_Literal 0x0
0165 e404 | | Load 0x2,0x4
0166 e004 | | Load 0x0,0x4
0167 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0168 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0169 c403 | | Store 0x2,0x3
016a 0059 | Y | Store_Top Discrete,At_Offset_1
016b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xd = 0x16b,0x9
016c 8223 | # | Call 0x1,0x23
016d 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0xe = 0x16d,0xa
016e 8221 | ! | Call 0x1,0x21
016f e006 | | Load 0x0,0x6
0170 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0172 0000 0000 | | .BLANK 0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d | } | .CONST 0x017d ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xb = .DEBUG 0x017b,0x041c,0x0002,0x0000,0x0037,0xdb74,0x0000,0x007b
; Debug Table 0xb.0x0 = 0x17b,0xffff
017c 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0xb.0x1 = 0x17c,0xfffe
017d BODY_0178:
017d e5ff | | Load 0x2,-0x1 ; Debug Table 0xb.0x2 = 0x17d,0x1
017e 8220 | | Call 0x1,0x20
017f 8222 | " | Call 0x1,0x22
0180 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0181 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x3 = 0x181,0x2
0182 00eb | | Load_Encached Diana_Cache
0183 18db | | Execute Package,Field_Execute,Field_Number 0xdb
0184 00eb | | Load_Encached Diana_Cache
0185 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0186 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0187 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x4 = 0x187,0x3
0188 e001 | | Load 0x0,0x1
0189 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
018a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0196 | | .CONST 0x0196 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0004 | | .CONST 0x0004 ; Number of locals
0193 INIT_0190:
0193 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xc = .DEBUG 0x0193,0x0428,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0084
; Debug Table 0xc.0x0 = 0x193,0xffff
0194 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xc.0x1 = 0x194,0xfffe
0195 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0xc.0x2 = 0x195,0xfffd
0196 BODY_0190:
0196 e5ff | | Load 0x2,-0x1 ; Debug Table 0xc.0x3 = 0x196,0x1
0197 8220 | | Call 0x1,0x20
0198 8222 | " | Call 0x1,0x22
0199 0032 | 2 | Store_Top Heap_Access,At_Offset_2
019a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x4 = 0x19a,0x2
019b 00eb | | Load_Encached Diana_Cache
019c 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
019d 0033 | 3 | Store_Top Heap_Access,At_Offset_3
019e 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x5 = 0x19e,0x3
019f 00eb | | Load_Encached Diana_Cache
01a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a1 0f49 | I | Execute_Immediate Equal,0x49
01a2 6804 |h | Jump_Zero 0x1a7
01a3 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x6 = 0x1a3,0x4
01a4 00eb | | Load_Encached Diana_Cache
01a5 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5
01a6 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01a7 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x7 = 0x1a7,0x5
01a8 00eb | | Load_Encached Diana_Cache
01a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01aa 0b48 | H | Execute_Immediate Case_Compare,0x48
01ab 700b |p | Jump_Nonzero 0x1b7
01ac 0b3d | = | Execute_Immediate Case_Compare,0x3d
01ad 7009 |p | Jump_Nonzero 0x1b7
01ae 0092 026d | m| Action Push_String_Extended,0x26d ; "Element is not a procedure"
; Debug Table 0xc.0x8 = 0x1ae,0x7
01b0 e002 | | Load 0x0,0x2
01b1 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01b2 e003 | | Load 0x0,0x3
01b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b4 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x9 = 0x1b4,0x8
01b5 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
01b6 0257 | W | Execute Discrete,Raise
01b7 00d1 | | Pop_Control Pop_Count_1
01b8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xa = 0x1b8,0x9
01b9 00eb | | Load_Encached Diana_Cache
01ba 18db | | Execute Package,Field_Execute,Field_Number 0xdb
01bb 00eb | | Load_Encached Diana_Cache
01bc 1889 | | Execute Package,Field_Execute,Field_Number 0x89
01bd 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01be 00cf | | Action Mark_Auxiliary
01bf 7810 |x | Jump 0x1d0
01c0 0092 026e | n| Action Push_String_Extended,0x26e ; "MAIN"
; Debug Table 0xc.0xb = 0x1c0,0xb
01c2 00da | | Load_Top At_Offset_2
01c3 00eb | | Load_Encached Diana_Cache
01c4 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
01c5 e007 | | Load 0x0,0x7
01c6 180d | | Execute Package,Field_Execute,Field_Number 0xd
01c7 01df | | Execute Vector,Equal
01c8 6802 |h | Jump_Zero 0x1cb
01c9 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0xc = 0x1c9,0xc
01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cb 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xd = 0x1cb,0xd
01cc 00eb | | Load_Encached Diana_Cache
01cd 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
01ce 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01cf 00c9 | | Action Pop_Auxiliary_Loop
01d0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xe = 0x1d0,0xa
01d1 00eb | | Load_Encached Diana_Cache
01d2 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
01d3 6fec |o | Jump_Zero 0x1c0
01d4 00ce | | Action Pop_Auxiliary
01d5 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0xf = 0x1d5,0xe
01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e2 | | .CONST 0x01e2 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd = .DEBUG 0x01db,0x044a,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0093
; Debug Table 0xd.0x0 = 0x1db,0xffff
01dc 00db | | Load_Top At_Offset_3
01dd 8220 | | Call 0x1,0x20
01de 8222 | " | Call 0x1,0x22
01df 00eb | | Load_Encached Diana_Cache
01e0 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
01e1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01e2 BODY_01d8:
01e2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x1 = 0x1e2,0x1
01e3 00eb | | Load_Encached Diana_Cache
01e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e5 0b49 | I | Execute_Immediate Case_Compare,0x49
01e6 7009 |p | Jump_Nonzero 0x1f0
01e7 0092 026c | l| Action Push_String_Extended,0x26c ; "Element is not in a subunit"
; Debug Table 0xd.0x2 = 0x1e7,0x3
01e9 e002 | | Load 0x0,0x2
01ea 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01eb e003 | | Load 0x0,0x3
01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ed e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x3 = 0x1ed,0x4
01ee 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
01ef 0257 | W | Execute Discrete,Raise
01f0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x4 = 0x1f0,0x2
01f1 00eb | | Load_Encached Diana_Cache
01f2 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
01f3 8221 | ! | Call 0x1,0x21
01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fc | | .CONST 0x01fc ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe = .DEBUG 0x01fb,0x0456,0x0002,0x0000,0x0037,0xdc64,0x0000,0x0058
; Debug Table 0xe.0x0 = 0x1fb,0xffff
01fc BODY_01f8:
01fc 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x1 = 0x1fc,0x1
01fd 00eb | | Load_Encached Diana_Cache
01fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ff 6805 |h | Jump_Zero 0x205
0200 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x2 = 0x200,0x2
0201 00eb | | Load_Encached Diana_Cache
0202 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0203 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0204 7802 |x | Jump 0x207
0205 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x3 = 0x205,0x3
0206 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0207 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x4 = 0x207,0x4
0208 00eb | | Load_Encached Diana_Cache
0209 1814 | | Execute Package,Field_Execute,Field_Number 0x14
020a 0b3e | > | Execute_Immediate Case_Compare,0x3e
020b 7009 |p | Jump_Nonzero 0x215
020c 0b3d | = | Execute_Immediate Case_Compare,0x3d
020d 7007 |p | Jump_Nonzero 0x215
020e 0b47 | G | Execute_Immediate Case_Compare,0x47
020f 7005 |p | Jump_Nonzero 0x215
0210 0b46 | F | Execute_Immediate Case_Compare,0x46
0211 7003 |p | Jump_Nonzero 0x215
0212 0b48 | H | Execute_Immediate Case_Compare,0x48
0213 7001 |p | Jump_Nonzero 0x215
0214 7804 |x | Jump 0x219 ; Debug Table 0xe.0x5 = 0x214,0x6
0215 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xe.0x6 = 0x215,0x5
0216 00eb | | Load_Encached Diana_Cache
0217 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0218 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0219 00d1 | | Pop_Control Pop_Count_1
021a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x7 = 0x21a,0x7
021b 00eb | | Load_Encached Diana_Cache
021c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
021d 0f49 | I | Execute_Immediate Equal,0x49
021e 6804 |h | Jump_Zero 0x223
021f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x8 = 0x21f,0x8
0220 00eb | | Load_Encached Diana_Cache
0221 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0222 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0223 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x9 = 0x223,0x9
0224 8221 | ! | Call 0x1,0x21
0225 e001 | | Load 0x0,0x1
0226 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0227 7002 |p | Jump_Nonzero 0x22a
0228 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0xa = 0x228,0xa
0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022a 0092 026f | o| Action Push_String_Extended,0x26f ; "Element is not a compilation unit"
; Debug Table 0xe.0xb = 0x22a,0xb
022c e002 | | Load 0x0,0x2
022d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
022e e003 | | Load 0x0,0x3
022f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0230 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0xc = 0x230,0xc
0231 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
0232 0257 | W | Execute Discrete,Raise
0233 0000 0000 | | .BLANK 0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x023b,0x0472,0x0001,0x0000,0x0037,0xdc64,0x0000,0x00e7
; Debug Table 0xf.0x0 = 0x23b,0x1
023c 0b00 | | Execute_Immediate Case_Compare,0x0
023d 7009 |p | Jump_Nonzero 0x247
023e 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x1 = 0x23e,0x3
023f e004 | | Load 0x0,0x4
0240 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0241 025e | ^ | Execute Discrete,Convert
0242 1c01 | | Execute_Immediate Run_Utility,0x1
0243 e002 | | Load 0x0,0x2
0244 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0245 e003 | | Load 0x0,0x3
0246 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0247 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00db | | Load_Top At_Offset_3 ; Debug Table 0x10 = .DEBUG 0x024b,0x0478,0x0001,0x0000,0x0037,0xdc64,0x0000,0x0112
; Debug Table 0x10.0x0 = 0x24b,0x1
024c e001 | | Load 0x0,0x1
024d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
024e 00db | | Load_Top At_Offset_3
024f 027f | | Execute Discrete,Equal
0250 700f |p | Jump_Nonzero 0x260
0251 0092 0270 | p| Action Push_String_Extended,0x270 ; "Element is not "
; Debug Table 0x10.0x1 = 0x251,0x2
0253 00db | | Load_Top At_Offset_3
0254 e001 | | Load 0x0,0x1
0255 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0256 025e | ^ | Execute Discrete,Convert
0257 1c01 | | Execute_Immediate Run_Utility,0x1
0258 01cc | | Execute Vector,Catenate
0259 e002 | | Load 0x0,0x2
025a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
025b e003 | | Load 0x0,0x3
025c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025d e001 | | Load 0x0,0x1 ; Debug Table 0x10.0x2 = 0x25d,0x3
025e 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
025f 0257 | W | Execute Discrete,Raise
0260 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0261 0000 0000 | | .XXX[0x3]
0263 0000 | |
0264 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0268 ; --------------------------------------------------------------------------------------
0268 ; STRING TABLE
0268 ; --------------------------------------------------------------------------------------
0268 0014 | | .STRTAB 0x0014->0x0272 ; "A_WITH_CLAUSE"
0269 001f | | .STRTAB 0x001f->0x0278 ; "A_USE_CLAUSE"
026a 0029 | ) | .STRTAB 0x0029->0x027e ; "NOT_A_CONTEXT_CLAUSE"
026b 003b | ; | .STRTAB 0x003b->0x0288 ; "Element is not in a compilation unit"
026c 005d | ] | .STRTAB 0x005d->0x029a ; "Element is not in a subunit"
026d 0076 | v | .STRTAB 0x0076->0x02a8 ; "Element is not a procedure"
026e 008e | | .STRTAB 0x008e->0x02b5 ; "MAIN"
026f 0090 | | .STRTAB 0x0090->0x02b7 ; "Element is not a compilation unit"
0270 00af | | .STRTAB 0x00af->0x02c7 ; "Element is not "
0271 00bc | | .STREND 0x00bc->0x02cf
0272 415f 5749 |A_WI| .STRTAB_STRINGS
02cf 0000 | | .XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug Table
02d0 ; --------------------------------------------------------------------------------------
02d0 0003 0011 | | .CONST 0x0003,0x0011
02d2 000b 035a | Z| .DEBUG 0x000b,0x035a,0x8000,0x0000,0x0037,0xdb74,0x0000,0x0005
02da 003e 0388 | > | .DEBUG 0x003e,0x0388,0x8000,0x0000,0x0037,0xdc64,0x0000,0x0011
02e2 006b 03b0 | k | .DEBUG 0x006b,0x03b0,0x0002,0x0000,0x0037,0xdb74,0x0000,0x002a
02ea 0083 03be | | .DEBUG 0x0083,0x03be,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0033
02f2 009b 03c6 | | .DEBUG 0x009b,0x03c6,0x0005,0x0000,0x0037,0xdb74,0x0000,0x003c
02fa 00b3 03c8 | | .DEBUG 0x00b3,0x03c8,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0043
0302 00cb 03d2 | | .DEBUG 0x00cb,0x03d2,0x0002,0x0000,0x0037,0xdb74,0x0000,0x004c
030a 00db 03d8 | | .DEBUG 0x00db,0x03d8,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0055
0312 0103 03ec | | .DEBUG 0x0103,0x03ec,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0060
031a 0113 03f4 | | .DEBUG 0x0113,0x03f4,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0069
0322 0123 03fc | # | .DEBUG 0x0123,0x03fc,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0072
032a 017b 041c | { | .DEBUG 0x017b,0x041c,0x0002,0x0000,0x0037,0xdb74,0x0000,0x007b
0332 0193 0428 | (| .DEBUG 0x0193,0x0428,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0084
033a 01db 044a | J| .DEBUG 0x01db,0x044a,0x0002,0x0000,0x0037,0xdb74,0x0000,0x0093
0342 01fb 0456 | V| .DEBUG 0x01fb,0x0456,0x0002,0x0000,0x0037,0xdc64,0x0000,0x0058
034a 023b 0472 | ; r| .DEBUG 0x023b,0x0472,0x0001,0x0000,0x0037,0xdc64,0x0000,0x00e7
0352 024b 0478 | K x| .DEBUG 0x024b,0x0478,0x0001,0x0000,0x0037,0xdc64,0x0000,0x0112
035a ; --------------------------------------------------------------------------------------
035a ; Debug3 Subtable 0x0
035a ; --------------------------------------------------------------------------------------
035a 0016 0000 | | .DBG3TAB 0x0016,0x0000
035c 000b ffff | | .CONST 0x000b,0xffff
035e 000e fffe | | .CONST 0x000e,0xfffe
0360 0011 fffd | | .CONST 0x0011,0xfffd
0362 0014 fffc | | .CONST 0x0014,0xfffc
0364 0017 fffb | | .CONST 0x0017,0xfffb
0366 001a fffa | | .CONST 0x001a,0xfffa
0368 001d fff9 | | .CONST 0x001d,0xfff9
036a 001f fff8 | | .CONST 0x001f,0xfff8
036c 0021 fff7 | ! | .CONST 0x0021,0xfff7
036e 0026 fff6 | & | .CONST 0x0026,0xfff6
0370 0028 fff5 | ( | .CONST 0x0028,0xfff5
0372 002a fff4 | * | .CONST 0x002a,0xfff4
0374 002c fff3 | , | .CONST 0x002c,0xfff3
0376 002e fff2 | . | .CONST 0x002e,0xfff2
0378 0030 fff1 | 0 | .CONST 0x0030,0xfff1
037a 0032 fff0 | 2 | .CONST 0x0032,0xfff0
037c 0034 ffef | 4 | .CONST 0x0034,0xffef
037e 0036 ffee | 6 | .CONST 0x0036,0xffee
0380 0039 ffed | 9 | .CONST 0x0039,0xffed
0382 003b ffec | ; | .CONST 0x003b,0xffec
0384 003c ffeb | < | .CONST 0x003c,0xffeb
0386 003d ffea | = | .CONST 0x003d,0xffea
0388 ; --------------------------------------------------------------------------------------
0388 ; Debug3 Subtable 0x1
0388 ; --------------------------------------------------------------------------------------
0388 0013 0000 | | .DBG3TAB 0x0013,0x0000
038a 003e ffff | > | .CONST 0x003e,0xffff
038c 003f fffe | ? | .CONST 0x003f,0xfffe
038e 0040 fffd | @ | .CONST 0x0040,0xfffd
0390 0044 fffc | D | .CONST 0x0044,0xfffc
0392 0048 fffb | H | .CONST 0x0048,0xfffb
0394 004a fffa | J | .CONST 0x004a,0xfffa
0396 004c fff9 | L | .CONST 0x004c,0xfff9
0398 004e fff8 | N | .CONST 0x004e,0xfff8
039a 004f fff7 | O | .CONST 0x004f,0xfff7
039c 0051 fff6 | Q | .CONST 0x0051,0xfff6
039e 0053 fff5 | S | .CONST 0x0053,0xfff5
03a0 0055 fff4 | U | .CONST 0x0055,0xfff4
03a2 0057 fff3 | W | .CONST 0x0057,0xfff3
03a4 0059 fff2 | Y | .CONST 0x0059,0xfff2
03a6 005b fff1 | [ | .CONST 0x005b,0xfff1
03a8 005d fff0 | ] | .CONST 0x005d,0xfff0
03aa 005f ffef | _ | .CONST 0x005f,0xffef
03ac 0061 ffee | a | .CONST 0x0061,0xffee
03ae 0063 ffed | c | .CONST 0x0063,0xffed
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug3 Subtable 0x2
03b0 ; --------------------------------------------------------------------------------------
03b0 0001 0005 | | .DBG3TAB 0x0001,0x0005
03b2 006b ffff | k | .CONST 0x006b,0xffff
03b4 006c 0001 | l | .CONST 0x006c,0x0001
03b6 0070 0002 | p | .CONST 0x0070,0x0002
03b8 0074 0003 | t | .CONST 0x0074,0x0003
03ba 0079 0004 | y | .CONST 0x0079,0x0004
03bc 007d 0005 | } | .CONST 0x007d,0x0005
03be ; --------------------------------------------------------------------------------------
03be ; Debug3 Subtable 0x3
03be ; --------------------------------------------------------------------------------------
03be 0001 0002 | | .DBG3TAB 0x0001,0x0002
03c0 0083 ffff | | .CONST 0x0083,0xffff
03c2 0084 0001 | | .CONST 0x0084,0x0001
03c4 0088 0002 | | .CONST 0x0088,0x0002
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug3 Subtable 0x4
03c6 ; --------------------------------------------------------------------------------------
03c6 0000 0000 | | .DBG3TAB 0x0000,0x0000
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug3 Subtable 0x5
03c8 ; --------------------------------------------------------------------------------------
03c8 0000 0004 | | .DBG3TAB 0x0000,0x0004
03ca 00b3 0001 | | .CONST 0x00b3,0x0001
03cc 00bb 0004 | | .CONST 0x00bb,0x0004
03ce 00bd 0002 | | .CONST 0x00bd,0x0002
03d0 00bf 0003 | | .CONST 0x00bf,0x0003
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug3 Subtable 0x6
03d2 ; --------------------------------------------------------------------------------------
03d2 0000 0002 | | .DBG3TAB 0x0000,0x0002
03d4 00cb 0001 | | .CONST 0x00cb,0x0001
03d6 00ce 0002 | | .CONST 0x00ce,0x0002
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0x7
03d8 ; --------------------------------------------------------------------------------------
03d8 0001 0008 | | .DBG3TAB 0x0001,0x0008
03da 00db ffff | | .CONST 0x00db,0xffff
03dc 00dc 0001 | | .CONST 0x00dc,0x0001
03de 00df 0002 | | .CONST 0x00df,0x0002
03e0 00e3 0003 | | .CONST 0x00e3,0x0003
03e2 00e6 0004 | | .CONST 0x00e6,0x0004
03e4 00ec 0005 | | .CONST 0x00ec,0x0005
03e6 00f1 0006 | | .CONST 0x00f1,0x0006
03e8 00f4 0007 | | .CONST 0x00f4,0x0007
03ea 00fa 0008 | | .CONST 0x00fa,0x0008
03ec ; --------------------------------------------------------------------------------------
03ec ; Debug3 Subtable 0x8
03ec ; --------------------------------------------------------------------------------------
03ec 0001 0002 | | .DBG3TAB 0x0001,0x0002
03ee 0103 ffff | | .CONST 0x0103,0xffff
03f0 0104 0001 | | .CONST 0x0104,0x0001
03f2 0108 0002 | | .CONST 0x0108,0x0002
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0x9
03f4 ; --------------------------------------------------------------------------------------
03f4 0001 0002 | | .DBG3TAB 0x0001,0x0002
03f6 0113 ffff | | .CONST 0x0113,0xffff
03f8 0115 0001 | | .CONST 0x0115,0x0001
03fa 0118 0002 | | .CONST 0x0118,0x0002
03fc ; --------------------------------------------------------------------------------------
03fc ; Debug3 Subtable 0xa
03fc ; --------------------------------------------------------------------------------------
03fc 0005 000a | | .DBG3TAB 0x0005,0x000a
03fe 0123 ffff | # | .CONST 0x0123,0xffff
0400 0124 fffe | $ | .CONST 0x0124,0xfffe
0402 0125 fffd | % | .CONST 0x0125,0xfffd
0404 012a fffc | * | .CONST 0x012a,0xfffc
0406 0130 fffb | 0 | .CONST 0x0130,0xfffb
0408 0132 0001 | 2 | .CONST 0x0132,0x0001
040a 0136 0002 | 6 | .CONST 0x0136,0x0002
040c 013d 0003 | = | .CONST 0x013d,0x0003
040e 0143 0004 | C | .CONST 0x0143,0x0004
0410 0146 0005 | F | .CONST 0x0146,0x0005
0412 0156 0006 | V | .CONST 0x0156,0x0006
0414 0158 0007 | X | .CONST 0x0158,0x0007
0416 015d 0008 | ] | .CONST 0x015d,0x0008
0418 016b 0009 | k | .CONST 0x016b,0x0009
041a 016d 000a | m | .CONST 0x016d,0x000a
041c ; --------------------------------------------------------------------------------------
041c ; Debug3 Subtable 0xb
041c ; --------------------------------------------------------------------------------------
041c 0002 0003 | | .DBG3TAB 0x0002,0x0003
041e 017b ffff | { | .CONST 0x017b,0xffff
0420 017c fffe | | | .CONST 0x017c,0xfffe
0422 017d 0001 | } | .CONST 0x017d,0x0001
0424 0181 0002 | | .CONST 0x0181,0x0002
0426 0187 0003 | | .CONST 0x0187,0x0003
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug3 Subtable 0xc
0428 ; --------------------------------------------------------------------------------------
0428 0003 000d | | .DBG3TAB 0x0003,0x000d
042a 0193 ffff | | .CONST 0x0193,0xffff
042c 0194 fffe | | .CONST 0x0194,0xfffe
042e 0195 fffd | | .CONST 0x0195,0xfffd
0430 0196 0001 | | .CONST 0x0196,0x0001
0432 019a 0002 | | .CONST 0x019a,0x0002
0434 019e 0003 | | .CONST 0x019e,0x0003
0436 01a3 0004 | | .CONST 0x01a3,0x0004
0438 01a7 0005 | | .CONST 0x01a7,0x0005
043a 01ae 0007 | | .CONST 0x01ae,0x0007
043c 01b4 0008 | | .CONST 0x01b4,0x0008
043e 01b8 0009 | | .CONST 0x01b8,0x0009
0440 01c0 000b | | .CONST 0x01c0,0x000b
0442 01c9 000c | | .CONST 0x01c9,0x000c
0444 01cb 000d | | .CONST 0x01cb,0x000d
0446 01d0 000a | | .CONST 0x01d0,0x000a
0448 01d5 000e | | .CONST 0x01d5,0x000e
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0xd
044a ; --------------------------------------------------------------------------------------
044a 0001 0004 | | .DBG3TAB 0x0001,0x0004
044c 01db ffff | | .CONST 0x01db,0xffff
044e 01e2 0001 | | .CONST 0x01e2,0x0001
0450 01e7 0003 | | .CONST 0x01e7,0x0003
0452 01ed 0004 | | .CONST 0x01ed,0x0004
0454 01f0 0002 | | .CONST 0x01f0,0x0002
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug3 Subtable 0xe
0456 ; --------------------------------------------------------------------------------------
0456 0001 000c | | .DBG3TAB 0x0001,0x000c
0458 01fb ffff | | .CONST 0x01fb,0xffff
045a 01fc 0001 | | .CONST 0x01fc,0x0001
045c 0200 0002 | | .CONST 0x0200,0x0002
045e 0205 0003 | | .CONST 0x0205,0x0003
0460 0207 0004 | | .CONST 0x0207,0x0004
0462 0214 0006 | | .CONST 0x0214,0x0006
0464 0215 0005 | | .CONST 0x0215,0x0005
0466 021a 0007 | | .CONST 0x021a,0x0007
0468 021f 0008 | | .CONST 0x021f,0x0008
046a 0223 0009 | # | .CONST 0x0223,0x0009
046c 0228 000a | ( | .CONST 0x0228,0x000a
046e 022a 000b | * | .CONST 0x022a,0x000b
0470 0230 000c | 0 | .CONST 0x0230,0x000c
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug3 Subtable 0xf
0472 ; --------------------------------------------------------------------------------------
0472 0000 0002 | | .DBG3TAB 0x0000,0x0002
0474 023b 0001 | ; | .CONST 0x023b,0x0001
0476 023e 0003 | > | .CONST 0x023e,0x0003
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug3 Subtable 0x10
0478 ; --------------------------------------------------------------------------------------
0478 0000 0003 | | .DBG3TAB 0x0000,0x0003
047a 024b 0001 | K | .CONST 0x024b,0x0001
047c 0251 0002 | Q | .CONST 0x0251,0x0002
047e 025d 0003 | ] | .CONST 0x025d,0x0003
0480 0000 0000 | | .BLANK 0000[0x180]