|
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: 2048 (0x800)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0240 | @ | .CONST 0x0240 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0022 | " | .CONST 0x0022 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x028a,0x0000,0x0000,0x0056,0xb2b5,0x0000,0x1918
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 00bf | | Action Accept_Activation
0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0014,0x0294,0x0000,0x0000,0x0058,0x28c5,0x0000,0x0004
; Debug Table 0x1.0x0 = 0x14,0xffff
0015 00c7 | | Action Elaborate_Subprogram
0016 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call ; Debug Table 0x1.0x1 = 0x16,0xfffe
0018 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call ; Debug Table 0x1.0x2 = 0x18,0xfffd
001a 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call ; Debug Table 0x1.0x3 = 0x1a,0xfffc
001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x1c,0xfffb
001d 00c7 | | Action Elaborate_Subprogram
001e 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x5 = 0x1e,0xfffa
001f 00c7 | | Action Elaborate_Subprogram
0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x6 = 0x20,0xfff9
0021 00c7 | | Action Elaborate_Subprogram
0022 BODY_0008:
0022 00bc | | Action Signal_Activated
0023 00bb | | Action Signal_Completion
0024 0000 0000 | | .BLANK 0000[0x4]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b | + | .CONST 0x002b ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0001 | | .CONST 0x0001 ; Number of locals
002b BODY_0028:
002b INIT_0028:
002b 00db | | Load_Top At_Offset_3 ; Debug Table 0x2 = .DEBUG 0x002b,0x02a4,0x0001,0x0000,0x0056,0xb2b5,0x0000,0x1919
; Debug Table 0x2.0x0 = 0x2b,0x1
002c 00eb | | Load_Encached Diana_Cache
002d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
002e 0b34 | 4 | Execute_Immediate Case_Compare,0x34
002f 7005 |p | Jump_Nonzero 0x35
0030 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x1 = 0x30,0x3
0031 e5fe | | Load 0x2,-0x2
0032 e5ff | | Load 0x2,-0x1
0033 8001 | | Call 0x0,0x1
0034 c5fe | | Store 0x2,-0x2
0035 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 004a | J | .CONST 0x004a ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0004 | | .CONST 0x0004 ; Number of locals
003b INIT_0038:
003b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3 = .DEBUG 0x003b,0x02aa,0x0001,0x0000,0x0056,0xb2b5,0x0000,0x1929
; Debug Table 0x3.0x0 = 0x3b,0xffff
003c 00db | | Load_Top At_Offset_3
003d 00eb | | Load_Encached Diana_Cache
003e 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
003f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0040 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0x1 = 0x40,0xfffe
0041 e5ff | | Load 0x2,-0x1
0042 00eb | | Load_Encached Diana_Cache
0043 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0044 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0045 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0x2 = 0x45,0xfffd
0046 e5ff | | Load 0x2,-0x1
0047 00eb | | Load_Encached Diana_Cache
0048 18cd | | Execute Package,Field_Execute,Field_Number 0xcd
0049 0031 | 1 | Store_Top Heap_Access,At_Offset_1
004a BODY_0038:
004a 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0x4a,0x1
004b 00eb | | Load_Encached Diana_Cache
004c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004d 0f33 | 3 | Execute_Immediate Equal,0x33
004e 680a |h | Jump_Zero 0x59
004f 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "12.1 (4)"
; Debug Table 0x3.0x4 = 0x4f,0x2
0051 0092 01c3 | | Action Push_String_Extended,0x1c3 ; " must be an identifier"
0053 e402 | | Load 0x2,0x2
0054 8002 | | Call 0x0,0x2
0055 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x5 = 0x55,0x3
0056 4822 |H" | Short_Literal 0x22
0057 8003 | | Call 0x0,0x3
0058 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0059 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x6 = 0x59,0x4
005a 00db | | Load_Top At_Offset_3
005b 496a |Ij | Short_Literal 0x16a
005c 00eb | | Load_Encached Diana_Cache
005d 0096 | | Execute Package,Entry
005e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0x5e,0x5
005f 00eb | | Load_Encached Diana_Cache
0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0061 0f77 | w | Execute_Immediate Equal,0x77
0062 6809 |h | Jump_Zero 0x6c
0063 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x8 = 0x63,0x6
0064 e004 | | Load 0x0,0x4
0065 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0066 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x3.0x9 = 0x66,0x7
0067 0092 01c4 | | Action Push_String_Extended,0x1c4 ; " cannot have a separate visible part inside of an ada unit"
0069 e402 | | Load 0x2,0x2
006a 8002 | | Call 0x0,0x2
006b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x3.0xa = 0x6b,0x8
006c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xb = 0x6c,0x9
006d 00db | | Load_Top At_Offset_3
006e 4963 |Ic | Short_Literal 0x163
006f 00eb | | Load_Encached Diana_Cache
0070 0096 | | Execute Package,Entry
0071 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xc = 0x71,0xa
0072 00db | | Load_Top At_Offset_3
0073 495d |I] | Short_Literal 0x15d
0074 00eb | | Load_Encached Diana_Cache
0075 0096 | | Execute Package,Entry
0076 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xd = 0x76,0xb
0077 e004 | | Load 0x0,0x4
0078 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0079 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xe = 0x79,0xc
007a e004 | | Load 0x0,0x4
007b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
007c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xf = 0x7c,0xd
007d 820f | | Call 0x1,0xf
007e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x10 = 0x7e,0xe
007f 00eb | | Load_Encached Diana_Cache
0080 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0081 0b7c | | | Execute_Immediate Case_Compare,0x7c
0082 7007 |p | Jump_Nonzero 0x8a
0083 0b7a | z | Execute_Immediate Case_Compare,0x7a
0084 700d |p | Jump_Nonzero 0x92
0085 0b7b | { | Execute_Immediate Case_Compare,0x7b
0086 700b |p | Jump_Nonzero 0x92
0087 0b77 | w | Execute_Immediate Case_Compare,0x77
0088 7012 |p | Jump_Nonzero 0x9b
0089 7816 |x | Jump 0xa0 ; Debug Table 0x3.0x11 = 0x89,0x16
008a e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x12 = 0x8a,0xf
008b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
008c 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x13 = 0x8c,0x10
008d e004 | | Load 0x0,0x4
008e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
008f 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x14 = 0x8f,0x11
0090 8005 | | Call 0x0,0x5
0091 780e |x | Jump 0xa0
0092 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x15 = 0x92,0x12
0093 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0094 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x16 = 0x94,0x13
0095 e006 | | Load 0x0,0x6
0096 180d | | Execute Package,Field_Execute,Field_Number 0xd
0097 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x17 = 0x97,0x14
0098 e004 | | Load 0x0,0x4
0099 181e | | Execute Package,Field_Execute,Field_Number 0x1e
009a 7805 |x | Jump 0xa0
009b 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x3.0x18 = 0x9b,0x15
009c 0092 01c4 | | Action Push_String_Extended,0x1c4 ; " cannot have a separate visible part inside of an ada unit"
009e e402 | | Load 0x2,0x2
009f 8002 | | Call 0x0,0x2
00a0 00d1 | | Pop_Control Pop_Count_1
00a1 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x19 = 0xa1,0x17
00a2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b1 | | .CONST 0x00b1 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x4 = .DEBUG 0x00ab,0x02e0,0x0001,0x0000,0x0056,0xb2b5,0x0000,0x1933
; Debug Table 0x4.0x0 = 0xab,0xffff
00ac 00db | | Load_Top At_Offset_3
00ad 00eb | | Load_Encached Diana_Cache
00ae 1888 | | Execute Package,Field_Execute,Field_Number 0x88
00af 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00b0 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x1 = 0xb0,0xfffe
00b1 BODY_00a8:
00b1 00cf | | Action Mark_Auxiliary
00b2 780b |x | Jump 0xbe
00b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0xb3,0x2
00b4 00eb | | Load_Encached Diana_Cache
00b5 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
00b6 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00b7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x3 = 0xb7,0x3
00b8 8210 | | Call 0x1,0x10
00b9 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x4 = 0xb9,0x4
00ba 00eb | | Load_Encached Diana_Cache
00bb 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
00bc 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00bd 00c9 | | Action Pop_Auxiliary_Loop
00be 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x5 = 0xbe,0x1
00bf 00eb | | Load_Encached Diana_Cache
00c0 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
00c1 6ff1 |o | Jump_Zero 0xb3
00c2 00ce | | Action Pop_Auxiliary
00c3 e004 | | Load 0x0,0x4 ; Debug Table 0x4.0x6 = 0xc3,0x5
00c4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c6 0000 0000 | | .XXX[0x2]
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 0x5 = .DEBUG 0x00cb,0x02f0,0x0001,0x0000,0x0056,0xb2b5,0x0000,0x193d
; Debug Table 0x5.0x0 = 0xcb,0x1
00cc 00eb | | Load_Encached Diana_Cache
00cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ce 0b3b | ; | Execute_Immediate Case_Compare,0x3b
00cf 7013 |p | Jump_Nonzero 0xe3
00d0 0b7f | | Execute_Immediate Case_Compare,0x7f
00d1 7016 |p | Jump_Nonzero 0xe8
00d2 0b7e | ~ | Execute_Immediate Case_Compare,0x7e
00d3 701a |p | Jump_Nonzero 0xee
00d4 0b3d | = | Execute_Immediate Case_Compare,0x3d
00d5 7020 |p | Jump_Nonzero 0xf6
00d6 0b40 | @ | Execute_Immediate Case_Compare,0x40
00d7 7023 |p# | Jump_Nonzero 0xfb
00d8 0bab | | Execute_Immediate Case_Compare,0xab
00d9 7025 |p% | Jump_Nonzero 0xff
00da 0b7d | } | Execute_Immediate Case_Compare,0x7d
00db 702e |p. | Jump_Nonzero 0x10a
00dc 0092 01c5 | | Action Push_String_Extended,0x1c5 ; "12.1 (2)"
; Debug Table 0x5.0x1 = 0xdc,0xe
00de 0092 01c6 | | Action Push_String_Extended,0x1c6 ; "0250**SMGEN "
00e0 e5ff | | Load 0x2,-0x1
00e1 8002 | | Call 0x0,0x2
00e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e3 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x2 = 0xe3,0x2
00e4 8007 | | Call 0x0,0x7
00e5 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x3 = 0xe5,0x3
00e6 8212 | | Call 0x1,0x12
00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e8 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x4 = 0xe8,0x4
00e9 e008 | | Load 0x0,0x8
00ea 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00eb e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x5 = 0xeb,0x5
00ec 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ee 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x6 = 0xee,0x6
00ef e008 | | Load 0x0,0x8
00f0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f1 e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x7 = 0xf1,0x7
00f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f3 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x8 = 0xf3,0x8
00f4 8213 | | Call 0x1,0x13
00f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f6 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x9 = 0xf6,0x9
00f7 e5ff | | Load 0x2,-0x1
00f8 e006 | | Load 0x0,0x6
00f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fb 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0xa = 0xfb,0xa
00fc e009 | | Load 0x0,0x9
00fd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ff 4817 |H | Short_Literal 0x17 ; Debug Table 0x5.0xb = 0xff,0xb
0100 e00a | | Load 0x0,0xa
0101 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0102 6806 |h | Jump_Zero 0x109
0103 0092 01c5 | | Action Push_String_Extended,0x1c5 ; "12.1 (2)"
; Debug Table 0x5.0xc = 0x103,0xc
0105 0092 01c6 | | Action Push_String_Extended,0x1c6 ; "0250**SMGEN "
0107 e5ff | | Load 0x2,-0x1
0108 8002 | | Call 0x0,0x2
0109 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010a 0092 01c7 | | Action Push_String_Extended,0x1c7 ; "12.1.1 (2)"
; Debug Table 0x5.0xd = 0x10a,0xd
010c 0092 01c8 | | Action Push_String_Extended,0x1c8 ; " must have mode IN or IN OUT"
010e e5ff | | Load 0x2,-0x1
010f 8002 | | Call 0x0,0x2
0110 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x011b,0x030e,0x0001,0x0000,0x0058,0x28c5,0x0000,0x0034
; Debug Table 0x6.0x0 = 0x11b,0x1
011c 00eb | | Load_Encached Diana_Cache
011d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011e 0b66 | f | Execute_Immediate Case_Compare,0x66
011f 7007 |p | Jump_Nonzero 0x127
0120 0b61 | a | Execute_Immediate Case_Compare,0x61
0121 7014 |p | Jump_Nonzero 0x136
0122 0b0e | | Execute_Immediate Case_Compare,0xe
0123 7012 |p | Jump_Nonzero 0x136
0124 0b0f | | Execute_Immediate Case_Compare,0xf
0125 7010 |p | Jump_Nonzero 0x136
0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x6.0x1 = 0x126,0x5
0127 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x2 = 0x127,0x2
0128 00eb | | Load_Encached Diana_Cache
0129 18ba | | Execute Package,Field_Execute,Field_Number 0xba
012a 00eb | | Load_Encached Diana_Cache
012b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012c 700f |p | Jump_Nonzero 0x13c
012d 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "12.1 (4)"
; Debug Table 0x6.0x3 = 0x12d,0x3
012f 0092 01c9 | | Action Push_String_Extended,0x1c9 ; "0246**SMGEN "
0131 e5ff | | Load 0x2,-0x1
0132 00eb | | Load_Encached Diana_Cache
0133 18ba | | Execute Package,Field_Execute,Field_Number 0xba
0134 8002 | | Call 0x0,0x2
0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0136 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "12.1 (4)"
; Debug Table 0x6.0x4 = 0x136,0x4
0138 0092 01ca | | Action Push_String_Extended,0x1ca ; "0247**SMGEN "
013a e5ff | | Load 0x2,-0x1
013b 8002 | | Call 0x0,0x2
013c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014a | J | .CONST 0x014a ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0004 | | .CONST 0x0004 ; Number of locals
0143 INIT_0140:
0143 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7 = .DEBUG 0x0143,0x031a,0x0001,0x0000,0x0058,0x28c5,0x0000,0x008b
; Debug Table 0x7.0x0 = 0x143,0xffff
0144 00db | | Load_Top At_Offset_3
0145 00eb | | Load_Encached Diana_Cache
0146 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0147 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0148 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x7.0x1 = 0x148,0xfffe
0149 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x7.0x2 = 0x149,0xfffd
014a BODY_0140:
014a 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x3 = 0x14a,0x1
014b 00eb | | Load_Encached Diana_Cache
014c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014d 0b6c | l | Execute_Immediate Case_Compare,0x6c
014e 7007 |p | Jump_Nonzero 0x156
014f 0b6b | k | Execute_Immediate Case_Compare,0x6b
0150 7020 |p | Jump_Nonzero 0x171
0151 0b71 | q | Execute_Immediate Case_Compare,0x71
0152 7023 |p# | Jump_Nonzero 0x176
0153 0b70 | p | Execute_Immediate Case_Compare,0x70
0154 7021 |p! | Jump_Nonzero 0x176
0155 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x7.0x4 = 0x155,0xd
0156 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x5 = 0x156,0x2
0157 00eb | | Load_Encached Diana_Cache
0158 18c2 | | Execute Package,Field_Execute,Field_Number 0xc2
0159 00eb | | Load_Encached Diana_Cache
015a 1888 | | Execute Package,Field_Execute,Field_Number 0x88
015b 0033 | 3 | Store_Top Heap_Access,At_Offset_3
015c 00cf | | Action Mark_Auxiliary
015d 7809 |x | Jump 0x167
015e 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x6 = 0x15e,0x4
015f 00eb | | Load_Encached Diana_Cache
0160 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0161 8211 | | Call 0x1,0x11
0162 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x7 = 0x162,0x5
0163 00eb | | Load_Encached Diana_Cache
0164 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0165 a403 | | Store_Unchecked 0x2,0x3
0166 00c9 | | Action Pop_Auxiliary_Loop
0167 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x8 = 0x167,0x3
0168 00eb | | Load_Encached Diana_Cache
0169 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
016a 6ff3 |o | Jump_Zero 0x15e
016b 00ce | | Action Pop_Auxiliary
016c 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x9 = 0x16c,0x6
016d 00eb | | Load_Encached Diana_Cache
016e 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
016f 8211 | | Call 0x1,0x11
0170 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0171 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0xa = 0x171,0x7
0172 00eb | | Load_Encached Diana_Cache
0173 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
0174 8211 | | Call 0x1,0x11
0175 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0176 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0xb = 0x176,0x8
0177 00eb | | Load_Encached Diana_Cache
0178 18eb | | Execute Package,Field_Execute,Field_Number 0xeb
0179 00eb | | Load_Encached Diana_Cache
017a 1888 | | Execute Package,Field_Execute,Field_Number 0x88
017b 0032 | 2 | Store_Top Heap_Access,At_Offset_2
017c 00cf | | Action Mark_Auxiliary
017d 7815 |x | Jump 0x193
017e 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xc = 0x17e,0xa
017f 00eb | | Load_Encached Diana_Cache
0180 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0181 00eb | | Load_Encached Diana_Cache
0182 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
0183 00eb | | Load_Encached Diana_Cache
0184 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0185 7008 |p | Jump_Nonzero 0x18e
0186 0092 01cb | | Action Push_String_Extended,0x1cb ; "12.1.2 (3)"
; Debug Table 0x7.0xd = 0x186,0xb
0188 0092 01cc | | Action Push_String_Extended,0x1cc ; "0248**SMGEN "
018a e404 | | Load 0x2,0x4
018b 00eb | | Load_Encached Diana_Cache
018c 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
018d 8002 | | Call 0x0,0x2
018e 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xe = 0x18e,0xc
018f 00eb | | Load_Encached Diana_Cache
0190 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0191 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0192 00c9 | | Action Pop_Auxiliary_Loop
0193 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xf = 0x193,0x9
0194 00eb | | Load_Encached Diana_Cache
0195 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0196 6fe7 |o | Jump_Zero 0x17e
0197 00ce | | Action Pop_Auxiliary
0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01af | | .CONST 0x01af ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8 = .DEBUG 0x01a3,0x033c,0x0001,0x0000,0x0058,0x28c5,0x0000,0x0158
; Debug Table 0x8.0x0 = 0x1a3,0xffff
01a4 00db | | Load_Top At_Offset_3
01a5 00eb | | Load_Encached Diana_Cache
01a6 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
01a7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01a8 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8.0x1 = 0x1a8,0xfffe
01a9 00d9 | | Load_Top At_Offset_1
01aa 00eb | | Load_Encached Diana_Cache
01ab 1888 | | Execute Package,Field_Execute,Field_Number 0x88
01ac 00eb | | Load_Encached Diana_Cache
01ad 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
01ae 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01af BODY_01a0:
01af 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x2 = 0x1af,0x1
01b0 00eb | | Load_Encached Diana_Cache
01b1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b2 0fab | | Execute_Immediate Equal,-0x55
01b3 700d |p | Jump_Nonzero 0x1c1
01b4 00d8 | | Load_Top At_Offset_0
01b5 800b | | Call 0x0,0xb
01b6 e00c | | Load 0x0,0xc
01b7 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
01b8 7008 |p | Jump_Nonzero 0x1c1
01b9 0092 01cd | | Action Push_String_Extended,0x1cd ; "12.1.1 (3)"
; Debug Table 0x8.0x3 = 0x1b9,0x2
01bb 0092 01ce | | Action Push_String_Extended,0x1ce ; "0249**SMGEN "
01bd e5ff | | Load 0x2,-0x1
01be 00eb | | Load_Encached Diana_Cache
01bf 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
01c0 8002 | | Call 0x0,0x2
01c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c2 ; --------------------------------------------------------------------------------------
01c2 ; STRING TABLE
01c2 ; --------------------------------------------------------------------------------------
01c2 001c | | .STRTAB 0x001c->0x01d0 ; "12.1 (4)"
01c3 0022 | " | .STRTAB 0x0022->0x01d4 ; " must be an identifier"
01c4 0036 | 6 | .STRTAB 0x0036->0x01df ; " cannot have a separate visible part inside of an ada unit"
01c5 006e | n | .STRTAB 0x006e->0x01fc ; "12.1 (2)"
01c6 0074 | t | .STRTAB 0x0074->0x0200 ; "0250**SMGEN "
01c7 007e | ~ | .STRTAB 0x007e->0x0206 ; "12.1.1 (2)"
01c8 0086 | | .STRTAB 0x0086->0x020b ; " must have mode IN or IN OUT"
01c9 00a0 | | .STRTAB 0x00a0->0x0219 ; "0246**SMGEN "
01ca 00aa | | .STRTAB 0x00aa->0x021f ; "0247**SMGEN "
01cb 00b4 | | .STRTAB 0x00b4->0x0225 ; "12.1.2 (3)"
01cc 00bc | | .STRTAB 0x00bc->0x022a ; "0248**SMGEN "
01cd 00c6 | | .STRTAB 0x00c6->0x0230 ; "12.1.1 (3)"
01ce 00ce | | .STRTAB 0x00ce->0x0235 ; "0249**SMGEN "
01cf 00d8 | | .STREND 0x00d8->0x023b
01d0 3132 2e31 |12.1| .STRTAB_STRINGS
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug Table
0240 ; --------------------------------------------------------------------------------------
0240 0003 0009 | | .CONST 0x0003,0x0009
0242 000b 028a | | .DEBUG 0x000b,0x028a,0x0000,0x0000,0x0056,0xb2b5,0x0000,0x1918
024a 0014 0294 | | .DEBUG 0x0014,0x0294,0x0000,0x0000,0x0058,0x28c5,0x0000,0x0004
0252 002b 02a4 | + | .DEBUG 0x002b,0x02a4,0x0001,0x0000,0x0056,0xb2b5,0x0000,0x1919
025a 003b 02aa | ; | .DEBUG 0x003b,0x02aa,0x0001,0x0000,0x0056,0xb2b5,0x0000,0x1929
0262 00ab 02e0 | | .DEBUG 0x00ab,0x02e0,0x0001,0x0000,0x0056,0xb2b5,0x0000,0x1933
026a 00cb 02f0 | | .DEBUG 0x00cb,0x02f0,0x0001,0x0000,0x0056,0xb2b5,0x0000,0x193d
0272 011b 030e | | .DEBUG 0x011b,0x030e,0x0001,0x0000,0x0058,0x28c5,0x0000,0x0034
027a 0143 031a | C | .DEBUG 0x0143,0x031a,0x0001,0x0000,0x0058,0x28c5,0x0000,0x008b
0282 01a3 033c | <| .DEBUG 0x01a3,0x033c,0x0001,0x0000,0x0058,0x28c5,0x0000,0x0158
028a ; --------------------------------------------------------------------------------------
028a ; Debug3 Subtable 0x0
028a ; --------------------------------------------------------------------------------------
028a 0004 0000 | | .DBG3TAB 0x0004,0x0000
028c 000b ffff | | .CONST 0x000b,0xffff
028e 000d fffe | | .CONST 0x000d,0xfffe
0290 000f fffd | | .CONST 0x000f,0xfffd
0292 0011 fffc | | .CONST 0x0011,0xfffc
0294 ; --------------------------------------------------------------------------------------
0294 ; Debug3 Subtable 0x1
0294 ; --------------------------------------------------------------------------------------
0294 0007 0000 | | .DBG3TAB 0x0007,0x0000
0296 0014 ffff | | .CONST 0x0014,0xffff
0298 0016 fffe | | .CONST 0x0016,0xfffe
029a 0018 fffd | | .CONST 0x0018,0xfffd
029c 001a fffc | | .CONST 0x001a,0xfffc
029e 001c fffb | | .CONST 0x001c,0xfffb
02a0 001e fffa | | .CONST 0x001e,0xfffa
02a2 0020 fff9 | | .CONST 0x0020,0xfff9
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0x2
02a4 ; --------------------------------------------------------------------------------------
02a4 0000 0002 | | .DBG3TAB 0x0000,0x0002
02a6 002b 0001 | + | .CONST 0x002b,0x0001
02a8 0030 0003 | 0 | .CONST 0x0030,0x0003
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x3
02aa ; --------------------------------------------------------------------------------------
02aa 0003 0017 | | .DBG3TAB 0x0003,0x0017
02ac 003b ffff | ; | .CONST 0x003b,0xffff
02ae 0040 fffe | @ | .CONST 0x0040,0xfffe
02b0 0045 fffd | E | .CONST 0x0045,0xfffd
02b2 004a 0001 | J | .CONST 0x004a,0x0001
02b4 004f 0002 | O | .CONST 0x004f,0x0002
02b6 0055 0003 | U | .CONST 0x0055,0x0003
02b8 0059 0004 | Y | .CONST 0x0059,0x0004
02ba 005e 0005 | ^ | .CONST 0x005e,0x0005
02bc 0063 0006 | c | .CONST 0x0063,0x0006
02be 0066 0007 | f | .CONST 0x0066,0x0007
02c0 006b 0008 | k | .CONST 0x006b,0x0008
02c2 006c 0009 | l | .CONST 0x006c,0x0009
02c4 0071 000a | q | .CONST 0x0071,0x000a
02c6 0076 000b | v | .CONST 0x0076,0x000b
02c8 0079 000c | y | .CONST 0x0079,0x000c
02ca 007c 000d | | | .CONST 0x007c,0x000d
02cc 007e 000e | ~ | .CONST 0x007e,0x000e
02ce 0089 0016 | | .CONST 0x0089,0x0016
02d0 008a 000f | | .CONST 0x008a,0x000f
02d2 008c 0010 | | .CONST 0x008c,0x0010
02d4 008f 0011 | | .CONST 0x008f,0x0011
02d6 0092 0012 | | .CONST 0x0092,0x0012
02d8 0094 0013 | | .CONST 0x0094,0x0013
02da 0097 0014 | | .CONST 0x0097,0x0014
02dc 009b 0015 | | .CONST 0x009b,0x0015
02de 00a1 0017 | | .CONST 0x00a1,0x0017
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug3 Subtable 0x4
02e0 ; --------------------------------------------------------------------------------------
02e0 0002 0005 | | .DBG3TAB 0x0002,0x0005
02e2 00ab ffff | | .CONST 0x00ab,0xffff
02e4 00b0 fffe | | .CONST 0x00b0,0xfffe
02e6 00b3 0002 | | .CONST 0x00b3,0x0002
02e8 00b7 0003 | | .CONST 0x00b7,0x0003
02ea 00b9 0004 | | .CONST 0x00b9,0x0004
02ec 00be 0001 | | .CONST 0x00be,0x0001
02ee 00c3 0005 | | .CONST 0x00c3,0x0005
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug3 Subtable 0x5
02f0 ; --------------------------------------------------------------------------------------
02f0 0000 000e | | .DBG3TAB 0x0000,0x000e
02f2 00cb 0001 | | .CONST 0x00cb,0x0001
02f4 00dc 000e | | .CONST 0x00dc,0x000e
02f6 00e3 0002 | | .CONST 0x00e3,0x0002
02f8 00e5 0003 | | .CONST 0x00e5,0x0003
02fa 00e8 0004 | | .CONST 0x00e8,0x0004
02fc 00eb 0005 | | .CONST 0x00eb,0x0005
02fe 00ee 0006 | | .CONST 0x00ee,0x0006
0300 00f1 0007 | | .CONST 0x00f1,0x0007
0302 00f3 0008 | | .CONST 0x00f3,0x0008
0304 00f6 0009 | | .CONST 0x00f6,0x0009
0306 00fb 000a | | .CONST 0x00fb,0x000a
0308 00ff 000b | | .CONST 0x00ff,0x000b
030a 0103 000c | | .CONST 0x0103,0x000c
030c 010a 000d | | .CONST 0x010a,0x000d
030e ; --------------------------------------------------------------------------------------
030e ; Debug3 Subtable 0x6
030e ; --------------------------------------------------------------------------------------
030e 0000 0005 | | .DBG3TAB 0x0000,0x0005
0310 011b 0001 | | .CONST 0x011b,0x0001
0312 0126 0005 | & | .CONST 0x0126,0x0005
0314 0127 0002 | ' | .CONST 0x0127,0x0002
0316 012d 0003 | - | .CONST 0x012d,0x0003
0318 0136 0004 | 6 | .CONST 0x0136,0x0004
031a ; --------------------------------------------------------------------------------------
031a ; Debug3 Subtable 0x7
031a ; --------------------------------------------------------------------------------------
031a 0003 000d | | .DBG3TAB 0x0003,0x000d
031c 0143 ffff | C | .CONST 0x0143,0xffff
031e 0148 fffe | H | .CONST 0x0148,0xfffe
0320 0149 fffd | I | .CONST 0x0149,0xfffd
0322 014a 0001 | J | .CONST 0x014a,0x0001
0324 0155 000d | U | .CONST 0x0155,0x000d
0326 0156 0002 | V | .CONST 0x0156,0x0002
0328 015e 0004 | ^ | .CONST 0x015e,0x0004
032a 0162 0005 | b | .CONST 0x0162,0x0005
032c 0167 0003 | g | .CONST 0x0167,0x0003
032e 016c 0006 | l | .CONST 0x016c,0x0006
0330 0171 0007 | q | .CONST 0x0171,0x0007
0332 0176 0008 | v | .CONST 0x0176,0x0008
0334 017e 000a | ~ | .CONST 0x017e,0x000a
0336 0186 000b | | .CONST 0x0186,0x000b
0338 018e 000c | | .CONST 0x018e,0x000c
033a 0193 0009 | | .CONST 0x0193,0x0009
033c ; --------------------------------------------------------------------------------------
033c ; Debug3 Subtable 0x8
033c ; --------------------------------------------------------------------------------------
033c 0002 0002 | | .DBG3TAB 0x0002,0x0002
033e 01a3 ffff | | .CONST 0x01a3,0xffff
0340 01a8 fffe | | .CONST 0x01a8,0xfffe
0342 01af 0001 | | .CONST 0x01af,0x0001
0344 01b9 0002 | | .CONST 0x01b9,0x0002
0346 0000 0000 | | .BLANK 0000[0xba]