DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦174490b44⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_10b28c5

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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]