|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a70f4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0330 | 0 | .CONST 0x0330 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003d | = | .CONST 0x003d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0013 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0015 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0017 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0019 00bf | | Action Accept_Activation
001a 0007 | | Action Break_Optional
001b 0007 | | Action Break_Optional
001c 0007 | | Action Break_Optional
001d 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
001f 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
0021 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call
0023 e001 | | Load 0x0,0x1
0024 e002 | | Load 0x0,0x2
0025 e003 | | Load 0x0,0x3
0026 195f | _ | Execute Package,Field_Reference,Field_Number 0x5f
0027 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0028 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0029 4977 |Iw | Short_Literal 0x177
002a 00eb | | Load_Encached Diana_Cache
002b 0098 | | Execute Package,Field_Read_Dynamic
002c 0387 | | Declare_Variable Package
002d 00d8 | | Load_Top At_Offset_0
002e 020f | | Execute Module,Activate
002f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0030 00c7 | | Action Elaborate_Subprogram
0031 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0032 00c7 | | Action Elaborate_Subprogram
0033 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0034 00c7 | | Action Elaborate_Subprogram
0035 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0036 00c7 | | Action Elaborate_Subprogram
0037 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0038 00c7 | | Action Elaborate_Subprogram
0039 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003a 00c7 | | Action Elaborate_Subprogram
003b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003c 00c7 | | Action Elaborate_Subprogram
003d BODY_0008:
003d 00bc | | Action Signal_Activated
003e 00bb | | Action Signal_Completion
003f 0000 | | .XXX[0x1]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0048 | H | .CONST 0x0048 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0002 | | .CONST 0x0002 ; Number of locals
0043 INIT_0040:
0043 00da | | Load_Top At_Offset_2
0044 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0045 00eb | | Load_Encached Diana_Cache
0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0047 03f1 | | Declare_Variable Discrete,With_Value
0048 BODY_0040:
0048 7800 |x | Jump 0x49
0049 00d8 | | Load_Top At_Offset_0
004a e5fe | | Load 0x2,-0x2
004b 027e | ~ | Execute Discrete,Not_Equal
004c 6815 |h | Jump_Zero 0x62
004d 4807 |H | Short_Literal 0x7
004e e5fd | | Load 0x2,-0x3
004f 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "("
0051 01cc | | Execute Vector,Catenate
0052 00da | | Load_Top At_Offset_2
0053 00eb | | Load_Encached Diana_Cache
0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0055 011c | | Execute Any,Convert_Unchecked
0056 1c01 | | Execute_Immediate Run_Utility,0x1
0057 01cc | | Execute Vector,Catenate
0058 0092 02b1 | | Action Push_String_Extended,0x2b1 ; " /= "
005a 01cc | | Execute Vector,Catenate
005b e5fe | | Load 0x2,-0x2
005c 00eb | | Load_Encached Diana_Cache
005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005e 011c | | Execute Any,Convert_Unchecked
005f 1c01 | | Execute_Immediate Run_Utility,0x1
0060 01cc | | Execute Vector,Catenate
0061 8214 | | Call 0x1,0x14
0062 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0063 0000 0000 | | .BLANK 0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0082 | | .CONST 0x0082 ; Address of begin
0069 0084 | | .CONST 0x0084 ; Address of exception handler
006a 0005 | | .CONST 0x0005 ; Number of locals
006b INIT_0068:
006b e006 | | Load 0x0,0x6
006c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
006d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006e 02c7 | | Declare_Variable Any
006f 00db | | Load_Top At_Offset_3
0070 e006 | | Load 0x0,0x6
0071 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0072 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0073 a402 | | Store_Unchecked 0x2,0x2
0074 e006 | | Load 0x0,0x6
0075 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0076 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0077 02c7 | | Declare_Variable Any
0078 00d8 | | Load_Top At_Offset_0
0079 1c00 | | Execute_Immediate Run_Utility,0x0
007a e006 | | Load 0x0,0x6
007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007c e006 | | Load 0x0,0x6
007d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
007e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
007f 02c7 | | Declare_Variable Any
0080 00d8 | | Load_Top At_Offset_0
0081 1c00 | | Execute_Immediate Run_Utility,0x0
0082 BODY_0068:
0082 0007 | | Action Break_Optional
0083 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0084 TRAP_0068:
0084 0007 | | Action Break_Optional
0085 0008 | | Action Idle
0086 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0087 0000 | | .XXX[0x1]
0088 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009f | | .CONST 0x009f ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0004 | | .CONST 0x0004 ; Number of locals
0093 INIT_0090:
0093 e006 | | Load 0x0,0x6
0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0095 e006 | | Load 0x0,0x6
0096 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0097 02ff | | Declare_Variable Variant_Record
0098 00d8 | | Load_Top At_Offset_0
0099 1c00 | | Execute_Immediate Run_Utility,0x0
009a e006 | | Load 0x0,0x6
009b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009c 02c7 | | Declare_Variable Any
009d 00d8 | | Load_Top At_Offset_0
009e 1c00 | | Execute_Immediate Run_Utility,0x0
009f BODY_0090:
009f e006 | | Load 0x0,0x6
00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a1 00da | | Load_Top At_Offset_2
00a2 67e5 |g | Indirect_Literal Discrete,0x88,{0x00000000, 0x00004000}
00a3 e007 | | Load 0x0,0x7
00a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a5 e5ff | | Load 0x2,-0x1
00a6 e006 | | Load 0x0,0x6
00a7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
00a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a9 00d1 | | Pop_Control Pop_Count_1
00aa 005b | [ | Store_Top Discrete,At_Offset_3
00ab 00da | | Load_Top At_Offset_2
00ac 681b |h | Jump_Zero 0xc8
00ad 00da | | Load_Top At_Offset_2
00ae 0f07 | | Execute_Immediate Equal,0x7
00af 7015 |p | Jump_Nonzero 0xc5
00b0 4807 |H | Short_Literal 0x7
00b1 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "Get_Other_Part ("
00b3 e5ff | | Load 0x2,-0x1
00b4 e006 | | Load 0x0,0x6
00b5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00b7 01cc | | Execute Vector,Catenate
00b8 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ") failed with "
00ba 01cc | | Execute Vector,Catenate
00bb e402 | | Load 0x2,0x2
00bc e006 | | Load 0x0,0x6
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be 011c | | Execute Any,Convert_Unchecked
00bf 1c01 | | Execute_Immediate Run_Utility,0x1
00c0 01cc | | Execute Vector,Catenate
00c1 0092 02b4 | | Action Push_String_Extended,0x2b4 ; ": Other_Part_Of"
00c3 01cc | | Execute Vector,Catenate
00c4 8214 | | Call 0x1,0x14
00c5 e006 | | Load 0x0,0x6
00c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c8 e006 | | Load 0x0,0x6
00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ca 00d9 | | Load_Top At_Offset_1
00cb 0120 | | Execute Any,Is_Value
00cc 6803 |h | Jump_Zero 0xd0
00cd e006 | | Load 0x0,0x6
00ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00cf 7801 |x | Jump 0xd1
00d0 00d9 | | Load_Top At_Offset_1
00d1 67b6 |g | Indirect_Literal Discrete,0x88,{0x00000000, 0x00004000}
00d2 e007 | | Load 0x0,0x7
00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d4 e403 | | Load 0x2,0x3
00d5 e006 | | Load 0x0,0x6
00d6 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
00d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d8 c404 | | Store 0x2,0x4
00d9 005b | [ | Store_Top Discrete,At_Offset_3
00da 00da | | Load_Top At_Offset_2
00db 6818 |h | Jump_Zero 0xf4
00dc 4807 |H | Short_Literal 0x7
00dd 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "get_Object ("
00df e5ff | | Load 0x2,-0x1
00e0 e006 | | Load 0x0,0x6
00e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e2 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00e3 01cc | | Execute Vector,Catenate
00e4 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ") failed with "
00e6 01cc | | Execute Vector,Catenate
00e7 e402 | | Load 0x2,0x2
00e8 e006 | | Load 0x0,0x6
00e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ea 011c | | Execute Any,Convert_Unchecked
00eb 1c01 | | Execute_Immediate Run_Utility,0x1
00ec 01cc | | Execute Vector,Catenate
00ed 0092 02b4 | | Action Push_String_Extended,0x2b4 ; ": Other_Part_Of"
00ef 01cc | | Execute Vector,Catenate
00f0 8214 | | Call 0x1,0x14
00f1 e006 | | Load 0x0,0x6
00f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f4 00d8 | | Load_Top At_Offset_0
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0102 | | .CONST 0x0102 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb e006 | | Load 0x0,0x6
00fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00fd 02ff | | Declare_Variable Variant_Record
00fe 00d8 | | Load_Top At_Offset_0
00ff 1c00 | | Execute_Immediate Run_Utility,0x0
0100 e006 | | Load 0x0,0x6
0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0102 BODY_00f8:
0102 e5ff | | Load 0x2,-0x1
0103 e006 | | Load 0x0,0x6
0104 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0105 6807 |h | Jump_Zero 0x10d
0106 e5ff | | Load 0x2,-0x1
0107 00d8 | | Load_Top At_Offset_0
0108 0120 | | Execute Any,Is_Value
0109 7002 |p | Jump_Nonzero 0x10c
010a 00d8 | | Load_Top At_Offset_0
010b 011e | | Execute Any,Convert
010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010d e006 | | Load 0x0,0x6
010e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010f 00da | | Load_Top At_Offset_2
0110 602b |`+ | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00004000}
0111 e007 | | Load 0x0,0x7
0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0113 4800 |H | Short_Literal 0x0
0114 e5ff | | Load 0x2,-0x1
0115 e006 | | Load 0x0,0x6
0116 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0117 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0118 00d1 | | Pop_Control Pop_Count_1
0119 0059 | Y | Store_Top Discrete,At_Offset_1
011a 00d8 | | Load_Top At_Offset_0
011b 681c |h | Jump_Zero 0x138
011c 4807 |H | Short_Literal 0x7
011d 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "Get_Version ( "
011f e5ff | | Load 0x2,-0x1
0120 e006 | | Load 0x0,0x6
0121 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0122 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0123 01cc | | Execute Vector,Catenate
0124 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ") failed with "
0126 01cc | | Execute Vector,Catenate
0127 00da | | Load_Top At_Offset_2
0128 e006 | | Load 0x0,0x6
0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012a 011c | | Execute Any,Convert_Unchecked
012b 1c01 | | Execute_Immediate Run_Utility,0x1
012c 01cc | | Execute Vector,Catenate
012d 0092 02b7 | | Action Push_String_Extended,0x2b7 ; ": Body_Of"
012f 01cc | | Execute Vector,Catenate
0130 8214 | | Call 0x1,0x14
0131 e5ff | | Load 0x2,-0x1
0132 00d8 | | Load_Top At_Offset_0
0133 0120 | | Execute Any,Is_Value
0134 7002 |p | Jump_Nonzero 0x137
0135 00d8 | | Load_Top At_Offset_0
0136 011e | | Execute Any,Convert
0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0138 00d9 | | Load_Top At_Offset_1
0139 820f | | Call 0x1,0xf
013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013b 0000 | | .XXX[0x1]
013c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014a | J | .CONST 0x014a ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 e006 | | Load 0x0,0x6
0144 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0145 02ff | | Declare_Variable Variant_Record
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 e006 | | Load 0x0,0x6
0149 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014a BODY_0140:
014a e5ff | | Load 0x2,-0x1
014b e006 | | Load 0x0,0x6
014c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
014d 6807 |h | Jump_Zero 0x155
014e e5ff | | Load 0x2,-0x1
014f 00d8 | | Load_Top At_Offset_0
0150 0120 | | Execute Any,Is_Value
0151 7002 |p | Jump_Nonzero 0x154
0152 00d8 | | Load_Top At_Offset_0
0153 011e | | Execute Any,Convert
0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0155 e006 | | Load 0x0,0x6
0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0157 00da | | Load_Top At_Offset_2
0158 67e3 |g | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00004000}
0159 e007 | | Load 0x0,0x7
015a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015b 4800 |H | Short_Literal 0x0
015c e5ff | | Load 0x2,-0x1
015d e006 | | Load 0x0,0x6
015e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
015f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0160 00d1 | | Pop_Control Pop_Count_1
0161 0059 | Y | Store_Top Discrete,At_Offset_1
0162 00d8 | | Load_Top At_Offset_0
0163 681c |h | Jump_Zero 0x180
0164 4807 |H | Short_Literal 0x7
0165 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "Get_Version ("
0167 e5ff | | Load 0x2,-0x1
0168 e006 | | Load 0x0,0x6
0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
016b 01cc | | Execute Vector,Catenate
016c 0092 02b3 | | Action Push_String_Extended,0x2b3 ; ") failed with "
016e 01cc | | Execute Vector,Catenate
016f 00da | | Load_Top At_Offset_2
0170 e006 | | Load 0x0,0x6
0171 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0172 011c | | Execute Any,Convert_Unchecked
0173 1c01 | | Execute_Immediate Run_Utility,0x1
0174 01cc | | Execute Vector,Catenate
0175 0092 02b7 | | Action Push_String_Extended,0x2b7 ; ": Body_Of"
0177 01cc | | Execute Vector,Catenate
0178 8214 | | Call 0x1,0x14
0179 e5ff | | Load 0x2,-0x1
017a 00d8 | | Load_Top At_Offset_0
017b 0120 | | Execute Any,Is_Value
017c 7002 |p | Jump_Nonzero 0x17f
017d 00d8 | | Load_Top At_Offset_0
017e 011e | | Execute Any,Convert
017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0180 00d9 | | Load_Top At_Offset_1
0181 e006 | | Load 0x0,0x6
0182 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0183 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0184 6803 |h | Jump_Zero 0x188
0185 00d9 | | Load_Top At_Offset_1
0186 820f | | Call 0x1,0xf
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 e5ff | | Load 0x2,-0x1
0189 00d8 | | Load_Top At_Offset_0
018a 0120 | | Execute Any,Is_Value
018b 7002 |p | Jump_Nonzero 0x18e
018c 00d8 | | Load_Top At_Offset_0
018d 011e | | Execute Any,Convert
018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01ba | | .CONST 0x01ba ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 000a | | .CONST 0x000a ; Number of locals
0193 INIT_0190:
0193 e006 | | Load 0x0,0x6
0194 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0196 02c7 | | Declare_Variable Any
0197 00db | | Load_Top At_Offset_3
0198 e006 | | Load 0x0,0x6
0199 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
019a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
019b a402 | | Store_Unchecked 0x2,0x2
019c e006 | | Load 0x0,0x6
019d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
019e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
019f 02c7 | | Declare_Variable Any
01a0 00d8 | | Load_Top At_Offset_0
01a1 1c00 | | Execute_Immediate Run_Utility,0x0
01a2 00ec | | Load_Encached Diana_Tree_Cache
01a3 02c7 | | Declare_Variable Any
01a4 00d8 | | Load_Top At_Offset_0
01a5 1c00 | | Execute_Immediate Run_Utility,0x0
01a6 00ee | | Load_Encached Diana_Seq_Type_Cache
01a7 02c7 | | Declare_Variable Any
01a8 00d8 | | Load_Top At_Offset_0
01a9 1c00 | | Execute_Immediate Run_Utility,0x0
01aa 00ec | | Load_Encached Diana_Tree_Cache
01ab 02c7 | | Declare_Variable Any
01ac 00d8 | | Load_Top At_Offset_0
01ad 1c00 | | Execute_Immediate Run_Utility,0x0
01ae e006 | | Load 0x0,0x6
01af 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01b1 02c7 | | Declare_Variable Any
01b2 00d8 | | Load_Top At_Offset_0
01b3 1c00 | | Execute_Immediate Run_Utility,0x0
01b4 e006 | | Load 0x0,0x6
01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b6 00e1 | | Load_Encached Boolean_Cache
01b7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01b8 029f 029b | | Declare_Subprogram INIT_0298,For_Call
01ba BODY_0190:
01ba e006 | | Load 0x0,0x6
01bb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01bd e5ff | | Load 0x2,-0x1
01be e006 | | Load 0x0,0x6
01bf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01c0 012e | . | Execute Any,Not_Equal
01c1 6802 |h | Jump_Zero 0x1c4
01c2 4800 |H | Short_Literal 0x0
01c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c4 e5ff | | Load 0x2,-0x1
01c5 820e | | Call 0x1,0xe
01c6 e006 | | Load 0x0,0x6
01c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c8 e407 | | Load 0x2,0x7
01c9 0120 | | Execute Any,Is_Value
01ca 6804 |h | Jump_Zero 0x1cf
01cb e006 | | Load 0x0,0x6
01cc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01cd 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01ce 7801 |x | Jump 0x1d0
01cf e407 | | Load 0x2,0x7
01d0 e403 | | Load 0x2,0x3
01d1 0120 | | Execute Any,Is_Value
01d2 6804 |h | Jump_Zero 0x1d7
01d3 e006 | | Load 0x0,0x6
01d4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01d5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01d6 7801 |x | Jump 0x1d8
01d7 e403 | | Load 0x2,0x3
01d8 6067 |`g | Indirect_Literal Discrete,0x240,{0x00000000, 0x00004000}
01d9 4801 |H | Short_Literal 0x1
01da 4800 |H | Short_Literal 0x0
01db 4800 |H | Short_Literal 0x0
01dc e007 | | Load 0x0,0x7
01dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01de 4800 |H | Short_Literal 0x0
01df e402 | | Load 0x2,0x2
01e0 e006 | | Load 0x0,0x6
01e1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01e2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01e3 c403 | | Store 0x2,0x3
01e4 c407 | | Store 0x2,0x7
01e5 005b | [ | Store_Top Discrete,At_Offset_3
01e6 00da | | Load_Top At_Offset_2
01e7 0f0d | | Execute_Immediate Equal,0xd
01e8 6802 |h | Jump_Zero 0x1eb
01e9 4800 |H | Short_Literal 0x0
01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01eb 00da | | Load_Top At_Offset_2
01ec 680f |h | Jump_Zero 0x1fc
01ed 4807 |H | Short_Literal 0x7
01ee 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "Open for Comp_Unit failed ("
01f0 e408 | | Load 0x2,0x8
01f1 e006 | | Load 0x0,0x6
01f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f3 011c | | Execute Any,Convert_Unchecked
01f4 1c01 | | Execute_Immediate Run_Utility,0x1
01f5 01cc | | Execute Vector,Catenate
01f6 0092 02ba | | Action Push_String_Extended,0x2ba ; ")"
01f8 01cc | | Execute Vector,Catenate
01f9 8214 | | Call 0x1,0x14
01fa 4800 |H | Short_Literal 0x0
01fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fc 0092 02bb | | Action Push_String_Extended,0x2bb ; "Open => Unit_Root"
01fe 48a8 |H | Short_Literal 0xa8
01ff e403 | | Load 0x2,0x3
0200 820d | | Call 0x1,0xd
0201 e403 | | Load 0x2,0x3
0202 00eb | | Load_Encached Diana_Cache
0203 18db | | Execute Package,Field_Execute,Field_Number 0xdb
0204 c404 | | Store 0x2,0x4
0205 0092 02bc | | Action Push_String_Extended,0x2bc ; "As_Pragma_S => Pragma_S"
0207 4895 |H | Short_Literal 0x95
0208 e404 | | Load 0x2,0x4
0209 820d | | Call 0x1,0xd
020a e404 | | Load 0x2,0x4
020b 00eb | | Load_Encached Diana_Cache
020c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
020d c405 | | Store 0x2,0x5
020e 00cf | | Action Mark_Auxiliary
020f 780e |x | Jump 0x21e
0210 e405 | | Load 0x2,0x5
0211 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0212 c406 | | Store 0x2,0x6
0213 0092 02bd | | Action Push_String_Extended,0x2bd ; "Diana.Head => Next_Pragma"
0215 4840 |H@ | Short_Literal 0x40
0216 e406 | | Load 0x2,0x6
0217 820d | | Call 0x1,0xd
0218 840a | | Call 0x2,0xa
0219 e405 | | Load 0x2,0x5
021a 0217 | | Execute Heap_Access,All_Reference
021b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021c c405 | | Store 0x2,0x5
021d 00c9 | | Action Pop_Auxiliary_Loop
021e e405 | | Load 0x2,0x5
021f 77f0 |w | Jump_Nonzero 0x210
0220 00ce | | Action Pop_Auxiliary
0221 e006 | | Load 0x0,0x6
0222 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0223 4800 |H | Short_Literal 0x0
0224 4800 |H | Short_Literal 0x0
0225 e007 | | Load 0x0,0x7
0226 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0227 e403 | | Load 0x2,0x3
0228 e006 | | Load 0x0,0x6
0229 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
022a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
022b 005b | [ | Store_Top Discrete,At_Offset_3
022c 00da | | Load_Top At_Offset_2
022d 680d |h | Jump_Zero 0x23b
022e 4807 |H | Short_Literal 0x7
022f 0092 02be | | Action Push_String_Extended,0x2be ; "Close failed ("
0231 e408 | | Load 0x2,0x8
0232 e006 | | Load 0x0,0x6
0233 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0234 011c | | Execute Any,Convert_Unchecked
0235 1c01 | | Execute_Immediate Run_Utility,0x1
0236 01cc | | Execute Vector,Catenate
0237 0092 02ba | | Action Push_String_Extended,0x2ba ; ")"
0239 01cc | | Execute Vector,Catenate
023a 8214 | | Call 0x1,0x14
023b 00d9 | | Load_Top At_Offset_1
023c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0253 | S | .CONST 0x0253 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b e006 | | Load 0x0,0x6
024c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024d 02c7 | | Declare_Variable Any
024e 00d8 | | Load_Top At_Offset_0
024f 1c00 | | Execute_Immediate Run_Utility,0x0
0250 e006 | | Load 0x0,0x6
0251 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0252 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0253 BODY_0248:
0253 e006 | | Load 0x0,0x6
0254 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0255 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0256 00da | | Load_Top At_Offset_2
0257 0120 | | Execute Any,Is_Value
0258 6803 |h | Jump_Zero 0x25c
0259 e006 | | Load 0x0,0x6
025a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025b 7801 |x | Jump 0x25d
025c 00da | | Load_Top At_Offset_2
025d 67e2 |g | Indirect_Literal Discrete,0x240,{0x00000000, 0x00004000}
025e e007 | | Load 0x0,0x7
025f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0260 e008 | | Load 0x0,0x8
0261 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0262 e006 | | Load 0x0,0x6
0263 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0264 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0265 e5ff | | Load 0x2,-0x1
0266 e006 | | Load 0x0,0x6
0267 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0268 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0269 c402 | | Store 0x2,0x2
026a 0059 | Y | Store_Top Discrete,At_Offset_1
026b 00d8 | | Load_Top At_Offset_0
026c 6802 |h | Jump_Zero 0x26f
026d 4800 |H | Short_Literal 0x0
026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026f 00d9 | | Load_Top At_Offset_1
0270 8212 | | Call 0x1,0x12
0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0272 0000 0000 | | .BLANK 0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b e004 | | Load 0x0,0x4
027c 180e | | Execute Package,Field_Execute,Field_Number 0xe
027d e5fe | | Load 0x2,-0x2
027e e5ff | | Load 0x2,-0x1
027f e005 | | Load 0x0,0x5
0280 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0281 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 0008 | | Action Idle
028c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
028d 0000 0000 | | .XXX[0x3]
028f 0000 | |
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 4801 |H | Short_Literal 0x1
0294 e003 | | Load 0x0,0x3
0295 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0296 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0297 0000 | | .XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a2 | | .CONST 0x02a2 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b e406 | | Load 0x2,0x6
029c 00eb | | Load_Encached Diana_Cache
029d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
029e 00eb | | Load_Encached Diana_Cache
029f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02a0 00eb | | Load_Encached Diana_Cache
02a1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
02a2 BODY_0298:
02a2 00d8 | | Load_Top At_Offset_0
02a3 01db | | Execute Vector,Length
02a4 0f04 | | Execute_Immediate Equal,0x4
02a5 6809 |h | Jump_Zero 0x2af
02a6 00d8 | | Load_Top At_Offset_0
02a7 0092 02bf | | Action Push_String_Extended,0x2bf ; "MAIN"
02a9 01df | | Execute Vector,Equal
02aa 6804 |h | Jump_Zero 0x2af
02ab 4801 |H | Short_Literal 0x1
02ac a409 | | Store_Unchecked 0x2,0x9
02ad 00cc | | Action Pop_Block
02ae 7f71 | q | Jump 0x220
02af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b0 ; --------------------------------------------------------------------------------------
02b0 ; STRING TABLE
02b0 ; --------------------------------------------------------------------------------------
02b0 0022 | " | .STRTAB 0x0022->0x02c1 ; "("
02b1 0021 | ! | .STRTAB 0x0021->0x02c1 ; " /= "
02b2 0023 | # | .STRTAB 0x0023->0x02c3 ; "Get_Other_Part ("
02b3 0031 | 1 | .STRTAB 0x0031->0x02cb ; ") failed with "
02b4 003d | = | .STRTAB 0x003d->0x02d2 ; ": Other_Part_Of"
02b5 004a | J | .STRTAB 0x004a->0x02da ; "get_Object ("
02b6 0054 | T | .STRTAB 0x0054->0x02e0 ; "Get_Version ( "
02b7 0060 | ` | .STRTAB 0x0060->0x02e7 ; ": Body_Of"
02b8 0067 | g | .STRTAB 0x0067->0x02eb ; "Get_Version ("
02b9 0072 | r | .STRTAB 0x0072->0x02f2 ; "Open for Comp_Unit failed ("
02ba 008b | | .STRTAB 0x008b->0x02ff ; ")"
02bb 008a | | .STRTAB 0x008a->0x0300 ; "Open => Unit_Root"
02bc 0099 | | .STRTAB 0x0099->0x0308 ; "As_Pragma_S => Pragma_S"
02bd 00ae | | .STRTAB 0x00ae->0x0314 ; "Diana.Head => Next_Pragma"
02be 00c5 | | .STRTAB 0x00c5->0x0320 ; "Close failed ("
02bf 00d1 | | .STRTAB 0x00d1->0x0327 ; "MAIN"
02c0 00d3 | | .STREND 0x00d3->0x0329
02c1 2820 2f3d |( /=| .STRTAB_STRINGS
032a 0000 0000 | | .BLANK 0000[0x6]
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug Table
0330 ; --------------------------------------------------------------------------------------
0330 0004 0003 | | .DEBUG4 0x0004,0x0003,0x52e8,0x0000,0x0001,0x0000
0336 8dac 81bd | | .XXX[0x6]
0338 b994 81d5 | |
033a c0b8 28b4 | ( |
033c b4b4 b4b4 | | .BLANK b4b4[0x26]
0362 b428 8080 | ( | .XXX[0x4c]
0364 8080 8080 | |
0366 8081 5985 | Y |
0368 b080 8080 | |
036a 80e8 8125 | %|
036c b9d1 959d | |
036e 95c8 80e8 | |
0370 f481 25b9 | % |
0372 d195 9d95 | |
0374 c880 a151 | Q|
0376 a5b5 9480 | |
0378 a881 11d5 | |
037a c985 d1a5 | |
037c bdb8 80a0 | |
037e c4c0 c0c0 | |
0380 b8c0 a4a4 | |
0382 ec28 8080 | ( |
0384 8080 8080 | |
0386 8081 5985 | Y |
0388 b1cd d588 | |
038a 80e8 8139 | 9|
038c 85d1 d5c9 | |
038e 85b0 80e8 | |
0390 f480 a185 | |
0392 89cc 8159 | Y|
0394 85b0 a481 | |
0396 c995 b480 | |
0398 c4c0 c0c0 | |
039a ec28 8080 | ( |
039c 8081 8995 | |
039e 9da5 b828 | (|
03a0 8080 8080 | |
03a2 8080 8081 | |
03a4 a598 8159 | Y|
03a6 85b1 cdd5 | |
03a8 8880 f080 | |
03aa c4c0 81d1 | |
03ac a195 b828 | (|
03ae 8080 8080 | | .BLANK 8080[0x5]
03b3 8081 c995 | | .XXX[0x33]
03b5 d1d5 c9b8 | |
03b7 8139 85d1 | 9 |
03b9 d5c9 85b1 | |
03bb 7d25 b585 |}% |
03bd 9d94 80a1 | |
03bf 5985 b080 |Y |
03c1 bc80 c4c0 | |
03c3 c0c0 a480 | |
03c5 9880 88b8 | |
03c7 c0c0 8880 | |
03c9 9881 3985 | 9 |
03cb d1d5 c985 | |
03cd b17d 25b5 | }% |
03cf 859d 9480 | |
03d1 a159 85b1 | Y |
03d3 cdd5 88a4 | |
03d5 ec28 8080 | ( |
03d7 8080 8080 | |
03d9 8081 95b1 | |
03db cda5 9881 | |
03dd 5985 b1cd |Y |
03df d588 80f0 | |
03e1 80c4 c0c0 | |
03e3 81d1 a195 | |
03e5 b828 | ( |
03e6 8080 8080 | | .BLANK 8080[0x5]
03eb 8081 c995 | | .XXX[0x15]
03ed d1d5 c9b8 | |
03ef 8139 85d1 | 9 |
03f1 d5c9 85b1 | |
03f3 7d25 b585 |}% |
03f5 9d94 80a1 | |
03f7 5985 b080 |Y |
03f9 bc80 c4c0 | |
03fb c0c0 a480 | |
03fd 9880 88b8 | |
03ff c088 | |