|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 01f0 | | .CONST 0x01f0 ; 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 0056 | V | .CONST 0x0056 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x0222,0x8000,0x0000,0x0032,0xc854,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
000d 0129 | ) | Execute Any,Make_Visible
000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x11,0xfffd
0013 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x3 = 0x13,0xfffc
0014 0129 | ) | Execute Any,Make_Visible
0015 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x15,0xfffb
0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x16,0xfffa
0017 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x17,0xfff9
0018 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x18,0xfff8
0019 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x19,0xfff7
001a 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x1a,0xfff6
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x1b,0xfff5
001c 0007 | | Action Break_Optional ; Debug Table 0x0.0xb = 0x1c,0xfff4
001d 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x1d,0xfff3
001e 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x1e,0xfff2
001f 0007 | | Action Break_Optional ; Debug Table 0x0.0xe = 0x1f,0xfff1
0020 0007 | | Action Break_Optional ; Debug Table 0x0.0xf = 0x20,0xfff0
0021 0007 | | Action Break_Optional ; Debug Table 0x0.0x10 = 0x21,0xffef
0022 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x22,0xffee
0023 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x23,0xffed
0024 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x24,0xffec
0025 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x25,0xffeb
0026 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x26,0xffea
0027 0007 | | Action Break_Optional ; Debug Table 0x0.0x16 = 0x27,0xffe9
0028 0007 | | Action Break_Optional ; Debug Table 0x0.0x17 = 0x28,0xffe8
0029 0007 | | Action Break_Optional ; Debug Table 0x0.0x18 = 0x29,0xffe7
002a 0007 | | Action Break_Optional ; Debug Table 0x0.0x19 = 0x2a,0xffe6
002b 0007 | | Action Break_Optional ; Debug Table 0x0.0x1a = 0x2b,0xffe5
002c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1b = 0x2c,0xffe4
002d 0007 | | Action Break_Optional ; Debug Table 0x0.0x1c = 0x2d,0xffe3
002e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1d = 0x2e,0xffe2
002f 0007 | | Action Break_Optional ; Debug Table 0x0.0x1e = 0x2f,0xffe1
0030 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1f = 0x30,0xffe0
0032 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x20 = 0x32,0xffdf
0034 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x21 = 0x34,0xffde
0036 0007 | | Action Break_Optional ; Debug Table 0x0.0x22 = 0x36,0xffdd
0037 0007 | | Action Break_Optional ; Debug Table 0x0.0x23 = 0x37,0xffdc
0038 00bf | | Action Accept_Activation ; Debug Table 0x0.0x24 = 0x38,0xffdb
0039 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0039,0x026e,0x8000,0x0000,0x0033,0xd6c4,0x0000,0x000f
; Debug Table 0x1.0x0 = 0x39,0xffff
003a e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x3a,0xfffe
003b 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
003c 190f | | Execute Package,Field_Reference,Field_Number 0xf
003d 0007 | | Action Break_Optional
003e e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x3e,0xfffd
003f 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
0040 190e | | Execute Package,Field_Reference,Field_Number 0xe
0041 0007 | | Action Break_Optional
0042 6125 |a% | Indirect_Literal Discrete,0x168,{0x00000000, 0x0033d6c4} ; Debug Table 0x1.0x3 = 0x42,0xfffc
0043 4846 |HF | Short_Literal 0x46
0044 4820 |H | Short_Literal 0x20
0045 e210 | | Load 0x1,0x10
0046 4801 |H | Short_Literal 0x1
0047 e002 | | Load 0x0,0x2
0048 0387 | | Declare_Variable Package
0049 00d8 | | Load_Top At_Offset_0
004a 020f | | Execute Module,Activate
004b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x4 = 0x4b,0xfffb
004c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004d 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x4d,0xfffa
004e 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x6 = 0x4e,0xfff9
004f 00c7 | | Action Elaborate_Subprogram
0050 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0x50,0xfff8
0051 00c7 | | Action Elaborate_Subprogram
0052 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x8 = 0x52,0xfff7
0053 00c7 | | Action Elaborate_Subprogram
0054 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x9 = 0x54,0xfff6
0055 00c7 | | Action Elaborate_Subprogram
0056 BODY_0008:
0056 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1.0xa = 0x56,0x1
0057 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0058 00da | | Load_Top At_Offset_2
0059 1817 | | Execute Package,Field_Execute,Field_Number 0x17
005a 0039 | 9 | Store_Top Access,At_Offset_1
005b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xb = 0x5b,0x2
005c 4800 |H | Short_Literal 0x0
005d 4801 |H | Short_Literal 0x1
005e 0092 016c | l| Action Push_String_Extended,0x16c ; "CONTROLLED"
0060 e216 | | Load 0x1,0x16
0061 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0062 0039 | 9 | Store_Top Access,At_Offset_1
0063 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xc = 0x63,0x3
0064 4800 |H | Short_Literal 0x0
0065 4802 |H | Short_Literal 0x2
0066 0092 016d | m| Action Push_String_Extended,0x16d ; "ELABORATE"
0068 e216 | | Load 0x1,0x16
0069 1815 | | Execute Package,Field_Execute,Field_Number 0x15
006a 0039 | 9 | Store_Top Access,At_Offset_1
006b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xd = 0x6b,0x4
006c 4800 |H | Short_Literal 0x0
006d 4803 |H | Short_Literal 0x3
006e 0092 016e | n| Action Push_String_Extended,0x16e ; "INLINE"
0070 e216 | | Load 0x1,0x16
0071 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0072 0039 | 9 | Store_Top Access,At_Offset_1
0073 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xe = 0x73,0x5
0074 4800 |H | Short_Literal 0x0
0075 4804 |H | Short_Literal 0x4
0076 0092 016f | o| Action Push_String_Extended,0x16f ; "INTERFACE"
0078 e216 | | Load 0x1,0x16
0079 1815 | | Execute Package,Field_Execute,Field_Number 0x15
007a 0039 | 9 | Store_Top Access,At_Offset_1
007b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xf = 0x7b,0x6
007c 4800 |H | Short_Literal 0x0
007d 4805 |H | Short_Literal 0x5
007e 0092 0170 | p| Action Push_String_Extended,0x170 ; "LIST"
0080 e216 | | Load 0x1,0x16
0081 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0082 0039 | 9 | Store_Top Access,At_Offset_1
0083 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x10 = 0x83,0x7
0084 4800 |H | Short_Literal 0x0
0085 4806 |H | Short_Literal 0x6
0086 0092 0171 | q| Action Push_String_Extended,0x171 ; "MEMORY_SIZE"
0088 e216 | | Load 0x1,0x16
0089 1815 | | Execute Package,Field_Execute,Field_Number 0x15
008a 0039 | 9 | Store_Top Access,At_Offset_1
008b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x11 = 0x8b,0x8
008c 4800 |H | Short_Literal 0x0
008d 4807 |H | Short_Literal 0x7
008e 0092 0172 | r| Action Push_String_Extended,0x172 ; "OPTIMIZE"
0090 e216 | | Load 0x1,0x16
0091 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0092 0039 | 9 | Store_Top Access,At_Offset_1
0093 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x12 = 0x93,0x9
0094 4800 |H | Short_Literal 0x0
0095 4808 |H | Short_Literal 0x8
0096 0092 0173 | s| Action Push_String_Extended,0x173 ; "PACK"
0098 e216 | | Load 0x1,0x16
0099 1815 | | Execute Package,Field_Execute,Field_Number 0x15
009a 0039 | 9 | Store_Top Access,At_Offset_1
009b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x13 = 0x9b,0xa
009c 4800 |H | Short_Literal 0x0
009d 4809 |H | Short_Literal 0x9
009e 0092 0174 | t| Action Push_String_Extended,0x174 ; "PAGE"
00a0 e216 | | Load 0x1,0x16
00a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a2 0039 | 9 | Store_Top Access,At_Offset_1
00a3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x14 = 0xa3,0xb
00a4 4800 |H | Short_Literal 0x0
00a5 480a |H | Short_Literal 0xa
00a6 0092 0175 | u| Action Push_String_Extended,0x175 ; "PRIORITY"
00a8 e216 | | Load 0x1,0x16
00a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00aa 0039 | 9 | Store_Top Access,At_Offset_1
00ab 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x15 = 0xab,0xc
00ac 4800 |H | Short_Literal 0x0
00ad 480b |H | Short_Literal 0xb
00ae 0092 0176 | v| Action Push_String_Extended,0x176 ; "SHARED"
00b0 e216 | | Load 0x1,0x16
00b1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b2 0039 | 9 | Store_Top Access,At_Offset_1
00b3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x16 = 0xb3,0xd
00b4 4800 |H | Short_Literal 0x0
00b5 480c |H | Short_Literal 0xc
00b6 0092 0177 | w| Action Push_String_Extended,0x177 ; "STORAGE_UNIT"
00b8 e216 | | Load 0x1,0x16
00b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ba 0039 | 9 | Store_Top Access,At_Offset_1
00bb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x17 = 0xbb,0xe
00bc 4800 |H | Short_Literal 0x0
00bd 480d |H | Short_Literal 0xd
00be 0092 0178 | x| Action Push_String_Extended,0x178 ; "SUPPRESS"
00c0 e216 | | Load 0x1,0x16
00c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c2 0039 | 9 | Store_Top Access,At_Offset_1
00c3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x18 = 0xc3,0xf
00c4 4800 |H | Short_Literal 0x0
00c5 480e |H | Short_Literal 0xe
00c6 0092 0179 | y| Action Push_String_Extended,0x179 ; "SYSTEM_NAME"
00c8 e216 | | Load 0x1,0x16
00c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ca 0039 | 9 | Store_Top Access,At_Offset_1
00cb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x19 = 0xcb,0x10
00cc 4800 |H | Short_Literal 0x0
00cd 480f |H | Short_Literal 0xf
00ce 0092 017a | z| Action Push_String_Extended,0x17a ; "PRIVATE_EYES_ONLY"
00d0 e216 | | Load 0x1,0x16
00d1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d2 0039 | 9 | Store_Top Access,At_Offset_1
00d3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1a = 0xd3,0x11
00d4 4800 |H | Short_Literal 0x0
00d5 4810 |H | Short_Literal 0x10
00d6 0092 017b | {| Action Push_String_Extended,0x17b ; "OPEN_PRIVATE_PART"
00d8 e216 | | Load 0x1,0x16
00d9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00da 0039 | 9 | Store_Top Access,At_Offset_1
00db 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1b = 0xdb,0x12
00dc 4800 |H | Short_Literal 0x0
00dd 4811 |H | Short_Literal 0x11
00de 0092 017c | || Action Push_String_Extended,0x17c ; "CLOSED_PRIVATE_PART"
00e0 e216 | | Load 0x1,0x16
00e1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00e2 0039 | 9 | Store_Top Access,At_Offset_1
00e3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1c = 0xe3,0x13
00e4 4800 |H | Short_Literal 0x0
00e5 4812 |H | Short_Literal 0x12
00e6 0092 017d | }| Action Push_String_Extended,0x17d ; "MUST_BE_CONSTRAINED"
00e8 e216 | | Load 0x1,0x16
00e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ea 0039 | 9 | Store_Top Access,At_Offset_1
00eb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1d = 0xeb,0x14
00ec 4800 |H | Short_Literal 0x0
00ed 4813 |H | Short_Literal 0x13
00ee 0092 017e | ~| Action Push_String_Extended,0x17e ; "SUBSYSTEM"
00f0 e216 | | Load 0x1,0x16
00f1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f2 0039 | 9 | Store_Top Access,At_Offset_1
00f3 00bc | | Action Signal_Activated
00f4 00bb | | Action Signal_Completion
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff | | .CONST 0x00ff ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x00fb,0x02ac,0x0002,0x0000,0x0032,0xc854,0x0000,0x0012
; Debug Table 0x2.0x0 = 0xfb,0xffff
00fc 8211 | | Call 0x1,0x11
00fd e210 | | Load 0x1,0x10
00fe 03f1 | | Declare_Variable Discrete,With_Value
00ff BODY_00f8:
00ff 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0xff,0x1
0100 0c6e | n | Execute_Immediate Greater_Equal,0x6e
0101 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0110 | | .CONST 0x0110 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0004 | | .CONST 0x0004 ; Number of locals
010b INIT_0108:
010b e210 | | Load 0x1,0x10 ; Debug Table 0x3 = .DEBUG 0x010b,0x02b2,0x0002,0x0000,0x0032,0xc854,0x0000,0x00c3
; Debug Table 0x3.0x0 = 0x10b,0xffff
010c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
010d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x1 = 0x10d,0xfffe
010e e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x10e,0xfffd
010f 8212 | | Call 0x1,0x12
0110 BODY_0108:
0110 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x110,0x1
0111 0092 017f | | Action Push_String_Extended,0x17f ; "MAIN"
0113 01df | | Execute Vector,Equal
0114 6802 |h | Jump_Zero 0x117
0115 4869 |Hi | Short_Literal 0x69 ; Debug Table 0x3.0x4 = 0x115,0x2
0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0117 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x5 = 0x117,0x3
0118 00db | | Load_Top At_Offset_3
0119 00da | | Load_Top At_Offset_2
011a e217 | | Load 0x1,0x17
011b e216 | | Load 0x1,0x16
011c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011d c402 | | Store 0x2,0x2
011e 005a | Z | Store_Top Discrete,At_Offset_2
011f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0x11f,0x4
0120 6802 |h | Jump_Zero 0x123
0121 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x7 = 0x121,0x5
0122 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0123 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x8 = 0x123,0x6
0124 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012f | / | .CONST 0x012f ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4 = .DEBUG 0x012b,0x02c6,0x0002,0x0000,0x0032,0xc854,0x0000,0x00cc
; Debug Table 0x4.0x0 = 0x12b,0xffff
012c 00db | | Load_Top At_Offset_3
012d 8214 | | Call 0x1,0x14
012e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
012f BODY_0128:
012f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0x12f,0x1
0130 00eb | | Load_Encached Diana_Cache
0131 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0132 0f40 | @ | Execute_Immediate Equal,0x40
0133 6804 |h | Jump_Zero 0x138
0134 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0x134,0x2
0135 e003 | | Load 0x0,0x3
0136 180d | | Execute Package,Field_Execute,Field_Number 0xd
0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0138 0092 0180 | | Action Push_String_Extended,0x180 ; "Element is not a Pragma"
; Debug Table 0x4.0x3 = 0x138,0x3
013a e004 | | Load 0x0,0x4
013b 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
013c e005 | | Load 0x0,0x5
013d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013e e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x4 = 0x13e,0x4
013f 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0140 0257 | W | Execute Discrete,Raise
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014f | O | .CONST 0x014f ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5 = .DEBUG 0x014b,0x02d2,0x0002,0x0000,0x0032,0xc854,0x0000,0x00d5
; Debug Table 0x5.0x0 = 0x14b,0xffff
014c 00db | | Load_Top At_Offset_3
014d 8214 | | Call 0x1,0x14
014e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
014f BODY_0148:
014f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x14f,0x1
0150 00eb | | Load_Encached Diana_Cache
0151 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0152 0f40 | @ | Execute_Immediate Equal,0x40
0153 6809 |h | Jump_Zero 0x15d
0154 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x154,0x2
0155 00eb | | Load_Encached Diana_Cache
0156 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9
0157 00eb | | Load_Encached Diana_Cache
0158 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0159 e001 | | Load 0x0,0x1
015a 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
015b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
015c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015d 0092 0180 | | Action Push_String_Extended,0x180 ; "Element is not a Pragma"
; Debug Table 0x5.0x3 = 0x15d,0x3
015f e004 | | Load 0x0,0x4
0160 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0161 e005 | | Load 0x0,0x5
0162 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0163 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x4 = 0x163,0x4
0164 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0165 0257 | W | Execute Discrete,Raise
0166 0000 0000 | | .XXX[0x2]
0168 0000 0000 | | .LITERAL {0x00000000, 0x0033d6c4}
016c ; --------------------------------------------------------------------------------------
016c ; STRING TABLE
016c ; --------------------------------------------------------------------------------------
016c 002c | , | .STRTAB 0x002c->0x0182 ; "CONTROLLED"
016d 0034 | 4 | .STRTAB 0x0034->0x0187 ; "ELABORATE"
016e 003b | ; | .STRTAB 0x003b->0x018b ; "INLINE"
016f 003f | ? | .STRTAB 0x003f->0x018e ; "INTERFACE"
0170 0046 | F | .STRTAB 0x0046->0x0193 ; "LIST"
0171 0048 | H | .STRTAB 0x0048->0x0195 ; "MEMORY_SIZE"
0172 0051 | Q | .STRTAB 0x0051->0x019a ; "OPTIMIZE"
0173 0057 | W | .STRTAB 0x0057->0x019e ; "PACK"
0174 0059 | Y | .STRTAB 0x0059->0x01a0 ; "PAGE"
0175 005b | [ | .STRTAB 0x005b->0x01a2 ; "PRIORITY"
0176 0061 | a | .STRTAB 0x0061->0x01a6 ; "SHARED"
0177 0065 | e | .STRTAB 0x0065->0x01a9 ; "STORAGE_UNIT"
0178 006f | o | .STRTAB 0x006f->0x01af ; "SUPPRESS"
0179 0075 | u | .STRTAB 0x0075->0x01b3 ; "SYSTEM_NAME"
017a 007e | ~ | .STRTAB 0x007e->0x01b9 ; "PRIVATE_EYES_ONLY"
017b 008d | | .STRTAB 0x008d->0x01c1 ; "OPEN_PRIVATE_PART"
017c 009c | | .STRTAB 0x009c->0x01ca ; "CLOSED_PRIVATE_PART"
017d 00ad | | .STRTAB 0x00ad->0x01d3 ; "MUST_BE_CONSTRAINED"
017e 00be | | .STRTAB 0x00be->0x01dd ; "SUBSYSTEM"
017f 00c5 | | .STRTAB 0x00c5->0x01e1 ; "MAIN"
0180 00c7 | | .STRTAB 0x00c7->0x01e3 ; "Element is not a Pragma"
0181 00dc | | .STREND 0x00dc->0x01ef
0182 434f 4e54 |CONT| .STRTAB_STRINGS
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug Table
01f0 ; --------------------------------------------------------------------------------------
01f0 0003 0006 | | .CONST 0x0003,0x0006
01f2 000b 0222 | "| .DEBUG 0x000b,0x0222,0x8000,0x0000,0x0032,0xc854,0x0000,0x0005
01fa 0039 026e | 9 n| .DEBUG 0x0039,0x026e,0x8000,0x0000,0x0033,0xd6c4,0x0000,0x000f
0202 00fb 02ac | | .DEBUG 0x00fb,0x02ac,0x0002,0x0000,0x0032,0xc854,0x0000,0x0012
020a 010b 02b2 | | .DEBUG 0x010b,0x02b2,0x0002,0x0000,0x0032,0xc854,0x0000,0x00c3
0212 012b 02c6 | + | .DEBUG 0x012b,0x02c6,0x0002,0x0000,0x0032,0xc854,0x0000,0x00cc
021a 014b 02d2 | K | .DEBUG 0x014b,0x02d2,0x0002,0x0000,0x0032,0xc854,0x0000,0x00d5
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x0
0222 ; --------------------------------------------------------------------------------------
0222 0025 0000 | % | .DBG3TAB 0x0025,0x0000
0224 000b ffff | | .CONST 0x000b,0xffff
0226 000e fffe | | .CONST 0x000e,0xfffe
0228 0011 fffd | | .CONST 0x0011,0xfffd
022a 0013 fffc | | .CONST 0x0013,0xfffc
022c 0015 fffb | | .CONST 0x0015,0xfffb
022e 0016 fffa | | .CONST 0x0016,0xfffa
0230 0017 fff9 | | .CONST 0x0017,0xfff9
0232 0018 fff8 | | .CONST 0x0018,0xfff8
0234 0019 fff7 | | .CONST 0x0019,0xfff7
0236 001a fff6 | | .CONST 0x001a,0xfff6
0238 001b fff5 | | .CONST 0x001b,0xfff5
023a 001c fff4 | | .CONST 0x001c,0xfff4
023c 001d fff3 | | .CONST 0x001d,0xfff3
023e 001e fff2 | | .CONST 0x001e,0xfff2
0240 001f fff1 | | .CONST 0x001f,0xfff1
0242 0020 fff0 | | .CONST 0x0020,0xfff0
0244 0021 ffef | ! | .CONST 0x0021,0xffef
0246 0022 ffee | " | .CONST 0x0022,0xffee
0248 0023 ffed | # | .CONST 0x0023,0xffed
024a 0024 ffec | $ | .CONST 0x0024,0xffec
024c 0025 ffeb | % | .CONST 0x0025,0xffeb
024e 0026 ffea | & | .CONST 0x0026,0xffea
0250 0027 ffe9 | ' | .CONST 0x0027,0xffe9
0252 0028 ffe8 | ( | .CONST 0x0028,0xffe8
0254 0029 ffe7 | ) | .CONST 0x0029,0xffe7
0256 002a ffe6 | * | .CONST 0x002a,0xffe6
0258 002b ffe5 | + | .CONST 0x002b,0xffe5
025a 002c ffe4 | , | .CONST 0x002c,0xffe4
025c 002d ffe3 | - | .CONST 0x002d,0xffe3
025e 002e ffe2 | . | .CONST 0x002e,0xffe2
0260 002f ffe1 | / | .CONST 0x002f,0xffe1
0262 0030 ffe0 | 0 | .CONST 0x0030,0xffe0
0264 0032 ffdf | 2 | .CONST 0x0032,0xffdf
0266 0034 ffde | 4 | .CONST 0x0034,0xffde
0268 0036 ffdd | 6 | .CONST 0x0036,0xffdd
026a 0037 ffdc | 7 | .CONST 0x0037,0xffdc
026c 0038 ffdb | 8 | .CONST 0x0038,0xffdb
026e ; --------------------------------------------------------------------------------------
026e ; Debug3 Subtable 0x1
026e ; --------------------------------------------------------------------------------------
026e 000a 0014 | | .DBG3TAB 0x000a,0x0014
0270 0039 ffff | 9 | .CONST 0x0039,0xffff
0272 003a fffe | : | .CONST 0x003a,0xfffe
0274 003e fffd | > | .CONST 0x003e,0xfffd
0276 0042 fffc | B | .CONST 0x0042,0xfffc
0278 004b fffb | K | .CONST 0x004b,0xfffb
027a 004d fffa | M | .CONST 0x004d,0xfffa
027c 004e fff9 | N | .CONST 0x004e,0xfff9
027e 0050 fff8 | P | .CONST 0x0050,0xfff8
0280 0052 fff7 | R | .CONST 0x0052,0xfff7
0282 0054 fff6 | T | .CONST 0x0054,0xfff6
0284 0056 0001 | V | .CONST 0x0056,0x0001
0286 005b 0002 | [ | .CONST 0x005b,0x0002
0288 0063 0003 | c | .CONST 0x0063,0x0003
028a 006b 0004 | k | .CONST 0x006b,0x0004
028c 0073 0005 | s | .CONST 0x0073,0x0005
028e 007b 0006 | { | .CONST 0x007b,0x0006
0290 0083 0007 | | .CONST 0x0083,0x0007
0292 008b 0008 | | .CONST 0x008b,0x0008
0294 0093 0009 | | .CONST 0x0093,0x0009
0296 009b 000a | | .CONST 0x009b,0x000a
0298 00a3 000b | | .CONST 0x00a3,0x000b
029a 00ab 000c | | .CONST 0x00ab,0x000c
029c 00b3 000d | | .CONST 0x00b3,0x000d
029e 00bb 000e | | .CONST 0x00bb,0x000e
02a0 00c3 000f | | .CONST 0x00c3,0x000f
02a2 00cb 0010 | | .CONST 0x00cb,0x0010
02a4 00d3 0011 | | .CONST 0x00d3,0x0011
02a6 00db 0012 | | .CONST 0x00db,0x0012
02a8 00e3 0013 | | .CONST 0x00e3,0x0013
02aa 00eb 0014 | | .CONST 0x00eb,0x0014
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug3 Subtable 0x2
02ac ; --------------------------------------------------------------------------------------
02ac 0001 0001 | | .DBG3TAB 0x0001,0x0001
02ae 00fb ffff | | .CONST 0x00fb,0xffff
02b0 00ff 0001 | | .CONST 0x00ff,0x0001
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug3 Subtable 0x3
02b2 ; --------------------------------------------------------------------------------------
02b2 0003 0006 | | .DBG3TAB 0x0003,0x0006
02b4 010b ffff | | .CONST 0x010b,0xffff
02b6 010d fffe | | .CONST 0x010d,0xfffe
02b8 010e fffd | | .CONST 0x010e,0xfffd
02ba 0110 0001 | | .CONST 0x0110,0x0001
02bc 0115 0002 | | .CONST 0x0115,0x0002
02be 0117 0003 | | .CONST 0x0117,0x0003
02c0 011f 0004 | | .CONST 0x011f,0x0004
02c2 0121 0005 | ! | .CONST 0x0121,0x0005
02c4 0123 0006 | # | .CONST 0x0123,0x0006
02c6 ; --------------------------------------------------------------------------------------
02c6 ; Debug3 Subtable 0x4
02c6 ; --------------------------------------------------------------------------------------
02c6 0001 0004 | | .DBG3TAB 0x0001,0x0004
02c8 012b ffff | + | .CONST 0x012b,0xffff
02ca 012f 0001 | / | .CONST 0x012f,0x0001
02cc 0134 0002 | 4 | .CONST 0x0134,0x0002
02ce 0138 0003 | 8 | .CONST 0x0138,0x0003
02d0 013e 0004 | > | .CONST 0x013e,0x0004
02d2 ; --------------------------------------------------------------------------------------
02d2 ; Debug3 Subtable 0x5
02d2 ; --------------------------------------------------------------------------------------
02d2 0001 0004 | | .DBG3TAB 0x0001,0x0004
02d4 014b ffff | K | .CONST 0x014b,0xffff
02d6 014f 0001 | O | .CONST 0x014f,0x0001
02d8 0154 0002 | T | .CONST 0x0154,0x0002
02da 015d 0003 | ] | .CONST 0x015d,0x0003
02dc 0163 0004 | c | .CONST 0x0163,0x0004
02de 0000 0000 | | .BLANK 0000[0x122]