|
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]