|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_10b28c5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01d8 | | .CONST 0x01d8 ; 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 0052 | R | .CONST 0x0052 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0015 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0017 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0019 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001d 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 001f 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0021 00bf | | Action Accept_Activation 0022 0093 0000 | | push_full_address 0x0 0024 6067 |`g | Indirect_Literal Discrete,0x8c,{0x80000000, 0x00010000} 0025 0273 | s | Execute Discrete,Plus 0026 e002 | | Load 0x0,0x2 0027 0273 | s | Execute Discrete,Plus 0028 e003 | | Load 0x0,0x3 0029 0273 | s | Execute Discrete,Plus 002a e004 | | Load 0x0,0x4 002b 48c8 |H | Short_Literal 0xc8 002c e005 | | Load 0x0,0x5 002d a006 | | Store_Unchecked 0x0,0x6 002e a007 | | Store_Unchecked 0x0,0x7 002f e008 | | Load 0x0,0x8 0030 0387 | | Declare_Variable Package 0031 00d8 | | Load_Top At_Offset_0 0032 020f | | Execute Module,Activate 0033 e009 | | Load 0x0,0x9 0034 00d9 | | Load_Top At_Offset_1 0035 0098 | | Execute Package,Field_Read_Dynamic 0036 0322 | " | Declare_Variable Record 0037 e00a | | Load 0x0,0xa 0038 00da | | Load_Top At_Offset_2 0039 0098 | | Execute Package,Field_Read_Dynamic 003a 00d9 | | Load_Top At_Offset_1 003b 017d | } | Execute Record,Structure_Write 003c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003d 00c7 | | Action Elaborate_Subprogram 003e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003f 00c7 | | Action Elaborate_Subprogram 0040 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0041 00c7 | | Action Elaborate_Subprogram 0042 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0043 00c7 | | Action Elaborate_Subprogram 0044 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0045 00c7 | | Action Elaborate_Subprogram 0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0047 00c7 | | Action Elaborate_Subprogram 0048 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0049 00c7 | | Action Elaborate_Subprogram 004a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004b 00c7 | | Action Elaborate_Subprogram 004c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004d 00c7 | | Action Elaborate_Subprogram 004e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004f 00c7 | | Action Elaborate_Subprogram 0050 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0051 00c7 | | Action Elaborate_Subprogram 0052 BODY_0008: 0052 00d8 | | Load_Top At_Offset_0 0053 e00b | | Load 0x0,0xb 0054 e00c | | Load 0x0,0xc 0055 e218 | | Load 0x1,0x18 0056 0096 | | Execute Package,Entry 0057 00d1 | | Pop_Control Pop_Count_1 0058 00d8 | | Load_Top At_Offset_0 0059 e00d | | Load 0x0,0xd 005a e00c | | Load 0x0,0xc 005b e218 | | Load 0x1,0x18 005c 0096 | | Execute Package,Entry 005d 00d1 | | Pop_Control Pop_Count_1 005e 00d8 | | Load_Top At_Offset_0 005f e00e | | Load 0x0,0xe 0060 e00c | | Load 0x0,0xc 0061 e218 | | Load 0x1,0x18 0062 0096 | | Execute Package,Entry 0063 00d1 | | Pop_Control Pop_Count_1 0064 00bc | | Action Signal_Activated 0065 00bb | | Action Signal_Completion 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0070 | p | .CONST 0x0070 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e004 | | Load 0x0,0x4 006c 0322 | " | Declare_Variable Record 006d 00d8 | | Load_Top At_Offset_0 006e 1c00 | | Execute_Immediate Run_Utility,0x0 006f 00e1 | | Load_Encached Boolean_Cache 0070 BODY_0068: 0070 00e1 | | Load_Encached Boolean_Cache 0071 00da | | Load_Top At_Offset_2 0072 e5ff | | Load 0x2,-0x1 0073 e219 | | Load 0x1,0x19 0074 e00f | | Load 0x0,0xf 0075 e218 | | Load 0x1,0x18 0076 0096 | | Execute Package,Entry 0077 00d1 | | Pop_Control Pop_Count_1 0078 0059 | Y | Store_Top Discrete,At_Offset_1 0079 00d8 | | Load_Top At_Offset_0 007a 680d |h | Jump_Zero 0x88 007b 00d9 | | Load_Top At_Offset_1 007c e5fe | | Load 0x2,-0x2 007d 8010 | | Call 0x0,0x10 007e 00d1 | | Pop_Control Pop_Count_1 007f 00e1 | | Load_Encached Boolean_Cache 0080 e219 | | Load 0x1,0x19 0081 00db | | Load_Top At_Offset_3 0082 e011 | | Load 0x0,0x11 0083 e218 | | Load 0x1,0x18 0084 0096 | | Execute Package,Entry 0085 00d1 | | Pop_Control Pop_Count_1 0086 c5fd | | Store 0x2,-0x3 0087 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0088 4800 |H | Short_Literal 0x0 0089 a5fd | | Store_Unchecked 0x2,-0x3 008a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 008b 0000 | | .XXX[0x1] 008c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0098 | | .CONST 0x0098 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 e004 | | Load 0x0,0x4 0094 0322 | " | Declare_Variable Record 0095 00d8 | | Load_Top At_Offset_0 0096 1c00 | | Execute_Immediate Run_Utility,0x0 0097 00e1 | | Load_Encached Boolean_Cache 0098 BODY_0090: 0098 4800 |H | Short_Literal 0x0 0099 a5fd | | Store_Unchecked 0x2,-0x3 009a 00e1 | | Load_Encached Boolean_Cache 009b 00da | | Load_Top At_Offset_2 009c e5ff | | Load 0x2,-0x1 009d 8012 | | Call 0x0,0x12 009e e219 | | Load 0x1,0x19 009f e00f | | Load 0x0,0xf 00a0 e218 | | Load 0x1,0x18 00a1 0096 | | Execute Package,Entry 00a2 00d1 | | Pop_Control Pop_Count_1 00a3 0059 | Y | Store_Top Discrete,At_Offset_1 00a4 00d8 | | Load_Top At_Offset_0 00a5 680c |h | Jump_Zero 0xb2 00a6 00e1 | | Load_Encached Boolean_Cache 00a7 00da | | Load_Top At_Offset_2 00a8 e5fe | | Load 0x2,-0x2 00a9 8013 | | Call 0x0,0x13 00aa 00d1 | | Pop_Control Pop_Count_1 00ab c5fd | | Store 0x2,-0x3 00ac e219 | | Load 0x1,0x19 00ad 00da | | Load_Top At_Offset_2 00ae e00c | | Load 0x0,0xc 00af e218 | | Load 0x1,0x18 00b0 0096 | | Execute Package,Entry 00b1 00d1 | | Pop_Control Pop_Count_1 00b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b3 0000 0000 | | .BLANK 0000[0x5] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c0 | | .CONST 0x00c0 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0003 | | .CONST 0x0003 ; Number of locals 00bb INIT_00b8: 00bb e004 | | Load 0x0,0x4 00bc 0322 | " | Declare_Variable Record 00bd 00d8 | | Load_Top At_Offset_0 00be 1c00 | | Execute_Immediate Run_Utility,0x0 00bf 00e1 | | Load_Encached Boolean_Cache 00c0 BODY_00b8: 00c0 4800 |H | Short_Literal 0x0 00c1 a5fd | | Store_Unchecked 0x2,-0x3 00c2 00e1 | | Load_Encached Boolean_Cache 00c3 00da | | Load_Top At_Offset_2 00c4 e5ff | | Load 0x2,-0x1 00c5 8012 | | Call 0x0,0x12 00c6 e219 | | Load 0x1,0x19 00c7 e00f | | Load 0x0,0xf 00c8 e218 | | Load 0x1,0x18 00c9 0096 | | Execute Package,Entry 00ca 00d1 | | Pop_Control Pop_Count_1 00cb 0059 | Y | Store_Top Discrete,At_Offset_1 00cc 00d8 | | Load_Top At_Offset_0 00cd 680c |h | Jump_Zero 0xda 00ce 00e1 | | Load_Encached Boolean_Cache 00cf 00da | | Load_Top At_Offset_2 00d0 e5fe | | Load 0x2,-0x2 00d1 8014 | | Call 0x0,0x14 00d2 00d1 | | Pop_Control Pop_Count_1 00d3 c5fd | | Store 0x2,-0x3 00d4 e219 | | Load 0x1,0x19 00d5 00da | | Load_Top At_Offset_2 00d6 e00c | | Load 0x0,0xc 00d7 e218 | | Load 0x1,0x18 00d8 0096 | | Execute Package,Entry 00d9 00d1 | | Pop_Control Pop_Count_1 00da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e8 | | .CONST 0x00e8 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 e004 | | Load 0x0,0x4 00e4 0322 | " | Declare_Variable Record 00e5 00d8 | | Load_Top At_Offset_0 00e6 1c00 | | Execute_Immediate Run_Utility,0x0 00e7 00e1 | | Load_Encached Boolean_Cache 00e8 BODY_00e0: 00e8 4800 |H | Short_Literal 0x0 00e9 a5fd | | Store_Unchecked 0x2,-0x3 00ea 00e1 | | Load_Encached Boolean_Cache 00eb 00da | | Load_Top At_Offset_2 00ec e5ff | | Load 0x2,-0x1 00ed 8012 | | Call 0x0,0x12 00ee e219 | | Load 0x1,0x19 00ef e00f | | Load 0x0,0xf 00f0 e218 | | Load 0x1,0x18 00f1 0096 | | Execute Package,Entry 00f2 00d1 | | Pop_Control Pop_Count_1 00f3 0059 | Y | Store_Top Discrete,At_Offset_1 00f4 00d8 | | Load_Top At_Offset_0 00f5 680c |h | Jump_Zero 0x102 00f6 00e1 | | Load_Encached Boolean_Cache 00f7 00da | | Load_Top At_Offset_2 00f8 e5fe | | Load 0x2,-0x2 00f9 8015 | | Call 0x0,0x15 00fa 00d1 | | Pop_Control Pop_Count_1 00fb c5fd | | Store 0x2,-0x3 00fc e219 | | Load 0x1,0x19 00fd 00da | | Load_Top At_Offset_2 00fe e00c | | Load 0x0,0xc 00ff e218 | | Load 0x1,0x18 0100 0096 | | Execute Package,Entry 0101 00d1 | | Pop_Control Pop_Count_1 0102 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0103 0000 0000 | | .BLANK 0000[0x5] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0110 | | .CONST 0x0110 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0003 | | .CONST 0x0003 ; Number of locals 010b INIT_0108: 010b e004 | | Load 0x0,0x4 010c 0322 | " | Declare_Variable Record 010d 00d8 | | Load_Top At_Offset_0 010e 1c00 | | Execute_Immediate Run_Utility,0x0 010f 00e1 | | Load_Encached Boolean_Cache 0110 BODY_0108: 0110 4800 |H | Short_Literal 0x0 0111 a5fc | | Store_Unchecked 0x2,-0x4 0112 00e1 | | Load_Encached Boolean_Cache 0113 00da | | Load_Top At_Offset_2 0114 e5ff | | Load 0x2,-0x1 0115 8012 | | Call 0x0,0x12 0116 e219 | | Load 0x1,0x19 0117 e00f | | Load 0x0,0xf 0118 e218 | | Load 0x1,0x18 0119 0096 | | Execute Package,Entry 011a 00d1 | | Pop_Control Pop_Count_1 011b 0059 | Y | Store_Top Discrete,At_Offset_1 011c 00d8 | | Load_Top At_Offset_0 011d 680d |h | Jump_Zero 0x12b 011e 00e1 | | Load_Encached Boolean_Cache 011f 00da | | Load_Top At_Offset_2 0120 e5fd | | Load 0x2,-0x3 0121 e5fe | | Load 0x2,-0x2 0122 8016 | | Call 0x0,0x16 0123 00d1 | | Pop_Control Pop_Count_1 0124 c5fc | | Store 0x2,-0x4 0125 e219 | | Load 0x1,0x19 0126 00da | | Load_Top At_Offset_2 0127 e00c | | Load 0x0,0xc 0128 e218 | | Load 0x1,0x18 0129 0096 | | Execute Package,Entry 012a 00d1 | | Pop_Control Pop_Count_1 012b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0138 | 8 | .CONST 0x0138 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0003 | | .CONST 0x0003 ; Number of locals 0133 INIT_0130: 0133 e004 | | Load 0x0,0x4 0134 0322 | " | Declare_Variable Record 0135 00d8 | | Load_Top At_Offset_0 0136 1c00 | | Execute_Immediate Run_Utility,0x0 0137 00e1 | | Load_Encached Boolean_Cache 0138 BODY_0130: 0138 4800 |H | Short_Literal 0x0 0139 a5fc | | Store_Unchecked 0x2,-0x4 013a 00e1 | | Load_Encached Boolean_Cache 013b 00da | | Load_Top At_Offset_2 013c e5ff | | Load 0x2,-0x1 013d 8012 | | Call 0x0,0x12 013e e219 | | Load 0x1,0x19 013f e00f | | Load 0x0,0xf 0140 e218 | | Load 0x1,0x18 0141 0096 | | Execute Package,Entry 0142 00d1 | | Pop_Control Pop_Count_1 0143 0059 | Y | Store_Top Discrete,At_Offset_1 0144 00d8 | | Load_Top At_Offset_0 0145 680d |h | Jump_Zero 0x153 0146 00e1 | | Load_Encached Boolean_Cache 0147 00da | | Load_Top At_Offset_2 0148 e5fd | | Load 0x2,-0x3 0149 e5fe | | Load 0x2,-0x2 014a 8017 | | Call 0x0,0x17 014b 00d1 | | Pop_Control Pop_Count_1 014c c5fc | | Store 0x2,-0x4 014d e219 | | Load 0x1,0x19 014e 00da | | Load_Top At_Offset_2 014f e00c | | Load 0x0,0xc 0150 e218 | | Load 0x1,0x18 0151 0096 | | Execute Package,Entry 0152 00d1 | | Pop_Control Pop_Count_1 0153 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0160 | ` | .CONST 0x0160 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0003 | | .CONST 0x0003 ; Number of locals 015b INIT_0158: 015b e004 | | Load 0x0,0x4 015c 0322 | " | Declare_Variable Record 015d 00d8 | | Load_Top At_Offset_0 015e 1c00 | | Execute_Immediate Run_Utility,0x0 015f 00e1 | | Load_Encached Boolean_Cache 0160 BODY_0158: 0160 4800 |H | Short_Literal 0x0 0161 a5fb | | Store_Unchecked 0x2,-0x5 0162 00e1 | | Load_Encached Boolean_Cache 0163 00da | | Load_Top At_Offset_2 0164 e5ff | | Load 0x2,-0x1 0165 8012 | | Call 0x0,0x12 0166 e219 | | Load 0x1,0x19 0167 e00f | | Load 0x0,0xf 0168 e218 | | Load 0x1,0x18 0169 0096 | | Execute Package,Entry 016a 00d1 | | Pop_Control Pop_Count_1 016b 0059 | Y | Store_Top Discrete,At_Offset_1 016c 00d8 | | Load_Top At_Offset_0 016d 680e |h | Jump_Zero 0x17c 016e 00e1 | | Load_Encached Boolean_Cache 016f 00da | | Load_Top At_Offset_2 0170 e5fc | | Load 0x2,-0x4 0171 e5fd | | Load 0x2,-0x3 0172 e5fe | | Load 0x2,-0x2 0173 8018 | | Call 0x0,0x18 0174 00d1 | | Pop_Control Pop_Count_1 0175 c5fb | | Store 0x2,-0x5 0176 e219 | | Load 0x1,0x19 0177 00da | | Load_Top At_Offset_2 0178 e00c | | Load 0x0,0xc 0179 e218 | | Load 0x1,0x18 017a 0096 | | Execute Package,Entry 017b 00d1 | | Pop_Control Pop_Count_1 017c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0187 | | .CONST 0x0187 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e004 | | Load 0x0,0x4 0184 0322 | " | Declare_Variable Record 0185 00d8 | | Load_Top At_Offset_0 0186 1c00 | | Execute_Immediate Run_Utility,0x0 0187 BODY_0180: 0187 00e1 | | Load_Encached Boolean_Cache 0188 00d9 | | Load_Top At_Offset_1 0189 e5ff | | Load 0x2,-0x1 018a e219 | | Load 0x1,0x19 018b e00f | | Load 0x0,0xf 018c e218 | | Load 0x1,0x18 018d 0096 | | Execute Package,Entry 018e 00d1 | | Pop_Control Pop_Count_1 018f c5fd | | Store 0x2,-0x3 0190 00d8 | | Load_Top At_Offset_0 0191 8019 | | Call 0x0,0x19 0192 e5fe | | Load 0x2,-0x2 0193 016d | m | Execute Variant_Record,Structure_Write 0194 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 0092 01c9 | | Action Push_String_Extended,0x1c9 ; "Structure Array :" 019d e01a | | Load 0x0,0x1a 019e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 019f e219 | | Load 0x1,0x19 01a0 e01b | | Load 0x0,0x1b 01a1 e218 | | Load 0x1,0x18 01a2 0096 | | Execute Package,Entry 01a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a4 0000 0000 | | .BLANK 0000[0x4] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b0 | | .CONST 0x01b0 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e004 | | Load 0x0,0x4 01ac 0322 | " | Declare_Variable Record 01ad 00d8 | | Load_Top At_Offset_0 01ae 1c00 | | Execute_Immediate Run_Utility,0x0 01af 00e1 | | Load_Encached Boolean_Cache 01b0 BODY_01a8: 01b0 00e1 | | Load_Encached Boolean_Cache 01b1 00da | | Load_Top At_Offset_2 01b2 e5ff | | Load 0x2,-0x1 01b3 e219 | | Load 0x1,0x19 01b4 e00f | | Load 0x0,0xf 01b5 e218 | | Load 0x1,0x18 01b6 0096 | | Execute Package,Entry 01b7 00d1 | | Pop_Control Pop_Count_1 01b8 0059 | Y | Store_Top Discrete,At_Offset_1 01b9 00d8 | | Load_Top At_Offset_0 01ba 6803 |h | Jump_Zero 0x1be 01bb 00d9 | | Load_Top At_Offset_1 01bc 8019 | | Call 0x0,0x19 01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01be e01c | | Load 0x0,0x1c 01bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 e219 | | Load 0x1,0x19 01c5 e01d | | Load 0x0,0x1d 01c6 e218 | | Load 0x1,0x18 01c7 0096 | | Execute Package,Entry 01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c9 ; -------------------------------------------------------------------------------------- 01c9 ; STRING TABLE 01c9 ; -------------------------------------------------------------------------------------- 01c9 0004 | | .STRTAB 0x0004->0x01cb ; "Structure Array :" 01ca 0013 | | .STREND 0x0013->0x01d3 01cb 5374 7275 |Stru| .STRTAB_STRINGS 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; Debug Table 01d8 ; -------------------------------------------------------------------------------------- 01d8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0399,0x0000,0x0001,0x000d 01de 000b 0212 | | .DBG4T 0x000b,0x0212,0x8000,0x8000 01e2 0022 022a | " *| .DBG4T 0x0022,0x022a,0x8000,0x0000 01e6 006b 023c | k <| .DBG4T 0x006b,0x023c,0x0001,0x0000 01ea 0093 0245 | E| .DBG4T 0x0093,0x0245,0x0001,0x0000 01ee 00bb 024e | N| .DBG4T 0x00bb,0x024e,0x0001,0x0000 01f2 00e3 0257 | W| .DBG4T 0x00e3,0x0257,0x0001,0x0000 01f6 010b 0260 | `| .DBG4T 0x010b,0x0260,0x0001,0x0000 01fa 0133 0269 | 3 i| .DBG4T 0x0133,0x0269,0x0001,0x0000 01fe 015b 0272 | [ r| .DBG4T 0x015b,0x0272,0x0001,0x0000 0202 0183 027b | {| .DBG4T 0x0183,0x027b,0x0001,0x0000 0206 019b 0280 | | .DBG4T 0x019b,0x0280,0x0001,0x0000 020a 01ab 0284 | | .DBG4T 0x01ab,0x0284,0x0002,0x0000 020e 01c3 028c | | .DBG4T 0x01c3,0x028c,0x0002,0x0000 0212 ; -------------------------------------------------------------------------------------- 0212 ; Debug chain 0212 ; -------------------------------------------------------------------------------------- 0212 000b 0000 | | .DBGLEN 0x000b,0x0000 0214 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f 021f 0002 0003 | | .XXX[0xb] 0221 0004 0005 | | 0223 0006 0007 | | 0225 0008 0009 | | 0227 000a 000b | | 0229 000c | | 022a ; -------------------------------------------------------------------------------------- 022a ; Debug chain 022a ; -------------------------------------------------------------------------------------- 022a 000d 0003 | | .DBGLEN 0x000d,0x0003 022c 0022 0033 | " 3| .DBGLNO 0x0022,0x0033,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0058,0x005e 023c ; -------------------------------------------------------------------------------------- 023c ; Debug chain 023c ; -------------------------------------------------------------------------------------- 023c 0002 0005 | | .DBGLEN 0x0002,0x0005 023e 006b 006f | k o| .DBGLNO 0x006b,0x006f,0x0070,0x0079,0x007b,0x007f,0x0088 0245 ; -------------------------------------------------------------------------------------- 0245 ; Debug chain 0245 ; -------------------------------------------------------------------------------------- 0245 0002 0005 | | .DBGLEN 0x0002,0x0005 0247 0093 0097 | | .DBGLNO 0x0093,0x0097,0x0098,0x009a,0x00a4,0x00a6,0x00ac 024e ; -------------------------------------------------------------------------------------- 024e ; Debug chain 024e ; -------------------------------------------------------------------------------------- 024e 0002 0005 | | .DBGLEN 0x0002,0x0005 0250 00bb 00bf | | .DBGLNO 0x00bb,0x00bf,0x00c0,0x00c2,0x00cc,0x00ce,0x00d4 0257 ; -------------------------------------------------------------------------------------- 0257 ; Debug chain 0257 ; -------------------------------------------------------------------------------------- 0257 0002 0005 | | .DBGLEN 0x0002,0x0005 0259 00e3 00e7 | | .DBGLNO 0x00e3,0x00e7,0x00e8,0x00ea,0x00f4,0x00f6,0x00fc 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug chain 0260 ; -------------------------------------------------------------------------------------- 0260 0002 0005 | | .DBGLEN 0x0002,0x0005 0262 010b 010f | | .DBGLNO 0x010b,0x010f,0x0110,0x0112,0x011c,0x011e,0x0125 0269 ; -------------------------------------------------------------------------------------- 0269 ; Debug chain 0269 ; -------------------------------------------------------------------------------------- 0269 0002 0005 | | .DBGLEN 0x0002,0x0005 026b 0133 0137 | 3 7| .DBGLNO 0x0133,0x0137,0x0138,0x013a,0x0144,0x0146,0x014d 0272 ; -------------------------------------------------------------------------------------- 0272 ; Debug chain 0272 ; -------------------------------------------------------------------------------------- 0272 0002 0005 | | .DBGLEN 0x0002,0x0005 0274 015b 015f | [ _| .DBGLNO 0x015b,0x015f,0x0160,0x0162,0x016c,0x016e,0x0176 027b ; -------------------------------------------------------------------------------------- 027b ; Debug chain 027b ; -------------------------------------------------------------------------------------- 027b 0001 0002 | | .DBGLEN 0x0001,0x0002 027d 0183 0187 | | .DBGLNO 0x0183,0x0187,0x0190 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug chain 0280 ; -------------------------------------------------------------------------------------- 0280 0000 0002 | | .DBGLEN 0x0000,0x0002 0282 019b 019f | | .DBGLNO 0x019b,0x019f 0284 ; -------------------------------------------------------------------------------------- 0284 ; Debug chain 0284 ; -------------------------------------------------------------------------------------- 0284 0002 0004 | | .DBGLEN 0x0002,0x0004 0286 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b0,0x01b9,0x01bb,0x01be 028c ; -------------------------------------------------------------------------------------- 028c ; Debug chain 028c ; -------------------------------------------------------------------------------------- 028c 0000 0001 | | .DBGLEN 0x0000,0x0001 028e 01c3 | | .DBGLNO 0x01c3 028f 0000 0000 | | .BLANK 0000[0x171]