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

⟦2389952af⟧

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

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 00e1       |    |		Load_Encached	Boolean_Cache
0099 00da       |    |		Load_Top	At_Offset_2
009a e5ff       |    |		Load	0x2,-0x1
009b 8012       |    |		Call	0x0,0x12
009c e219       |    |		Load	0x1,0x19
009d e00f       |    |		Load	0x0,0xf
009e e218       |    |		Load	0x1,0x18
009f 0096       |    |		Execute	Package,Entry
00a0 00d1       |    |		Pop_Control	Pop_Count_1
00a1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00a2 00d8       |    |		Load_Top	At_Offset_0
00a3 680c       |h   |		Jump_Zero	0xb0
00a4 00e1       |    |		Load_Encached	Boolean_Cache
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 e5fe       |    |		Load	0x2,-0x2
00a7 8013       |    |		Call	0x0,0x13
00a8 00d1       |    |		Pop_Control	Pop_Count_1
00a9 c5fd       |    |		Store	0x2,-0x3
00aa e219       |    |		Load	0x1,0x19
00ab 00da       |    |		Load_Top	At_Offset_2
00ac e00c       |    |		Load	0x0,0xc
00ad e218       |    |		Load	0x1,0x18
00ae 0096       |    |		Execute	Package,Entry
00af 00d1       |    |		Pop_Control	Pop_Count_1
00b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00b1 0000 0000  |    |		.BLANK	0000[0x7]
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 00e1       |    |		Load_Encached	Boolean_Cache
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 e5ff       |    |		Load	0x2,-0x1
00c3 8012       |    |		Call	0x0,0x12
00c4 e219       |    |		Load	0x1,0x19
00c5 e00f       |    |		Load	0x0,0xf
00c6 e218       |    |		Load	0x1,0x18
00c7 0096       |    |		Execute	Package,Entry
00c8 00d1       |    |		Pop_Control	Pop_Count_1
00c9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ca 00d8       |    |		Load_Top	At_Offset_0
00cb 680c       |h   |		Jump_Zero	0xd8
00cc 00e1       |    |		Load_Encached	Boolean_Cache
00cd 00da       |    |		Load_Top	At_Offset_2
00ce e5fe       |    |		Load	0x2,-0x2
00cf 8014       |    |		Call	0x0,0x14
00d0 00d1       |    |		Pop_Control	Pop_Count_1
00d1 c5fd       |    |		Store	0x2,-0x3
00d2 e219       |    |		Load	0x1,0x19
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e00c       |    |		Load	0x0,0xc
00d5 e218       |    |		Load	0x1,0x18
00d6 0096       |    |		Execute	Package,Entry
00d7 00d1       |    |		Pop_Control	Pop_Count_1
00d8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d9 0000 0000  |    |		.BLANK	0000[0x7]
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 00e1       |    |		Load_Encached	Boolean_Cache
00e9 00da       |    |		Load_Top	At_Offset_2
00ea e5ff       |    |		Load	0x2,-0x1
00eb 8012       |    |		Call	0x0,0x12
00ec e219       |    |		Load	0x1,0x19
00ed e00f       |    |		Load	0x0,0xf
00ee e218       |    |		Load	0x1,0x18
00ef 0096       |    |		Execute	Package,Entry
00f0 00d1       |    |		Pop_Control	Pop_Count_1
00f1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00f2 00d8       |    |		Load_Top	At_Offset_0
00f3 680c       |h   |		Jump_Zero	0x100
00f4 00e1       |    |		Load_Encached	Boolean_Cache
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 8015       |    |		Call	0x0,0x15
00f8 00d1       |    |		Pop_Control	Pop_Count_1
00f9 c5fd       |    |		Store	0x2,-0x3
00fa e219       |    |		Load	0x1,0x19
00fb 00da       |    |		Load_Top	At_Offset_2
00fc e00c       |    |		Load	0x0,0xc
00fd e218       |    |		Load	0x1,0x18
00fe 0096       |    |		Execute	Package,Entry
00ff 00d1       |    |		Pop_Control	Pop_Count_1
0100 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0101 0000 0000  |    |		.BLANK	0000[0x7]
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 00e1       |    |		Load_Encached	Boolean_Cache
0111 00da       |    |		Load_Top	At_Offset_2
0112 e5ff       |    |		Load	0x2,-0x1
0113 8012       |    |		Call	0x0,0x12
0114 e219       |    |		Load	0x1,0x19
0115 e00f       |    |		Load	0x0,0xf
0116 e218       |    |		Load	0x1,0x18
0117 0096       |    |		Execute	Package,Entry
0118 00d1       |    |		Pop_Control	Pop_Count_1
0119 0059       | Y  |		Store_Top	Discrete,At_Offset_1
011a 00d8       |    |		Load_Top	At_Offset_0
011b 680d       |h   |		Jump_Zero	0x129
011c 00e1       |    |		Load_Encached	Boolean_Cache
011d 00da       |    |		Load_Top	At_Offset_2
011e e5fd       |    |		Load	0x2,-0x3
011f e5fe       |    |		Load	0x2,-0x2
0120 8016       |    |		Call	0x0,0x16
0121 00d1       |    |		Pop_Control	Pop_Count_1
0122 c5fc       |    |		Store	0x2,-0x4
0123 e219       |    |		Load	0x1,0x19
0124 00da       |    |		Load_Top	At_Offset_2
0125 e00c       |    |		Load	0x0,0xc
0126 e218       |    |		Load	0x1,0x18
0127 0096       |    |		Execute	Package,Entry
0128 00d1       |    |		Pop_Control	Pop_Count_1
0129 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
012a 0000 0000  |    |		.BLANK	0000[0x6]
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 00e1       |    |		Load_Encached	Boolean_Cache
0139 00da       |    |		Load_Top	At_Offset_2
013a e5ff       |    |		Load	0x2,-0x1
013b 8012       |    |		Call	0x0,0x12
013c e219       |    |		Load	0x1,0x19
013d e00f       |    |		Load	0x0,0xf
013e e218       |    |		Load	0x1,0x18
013f 0096       |    |		Execute	Package,Entry
0140 00d1       |    |		Pop_Control	Pop_Count_1
0141 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0142 00d8       |    |		Load_Top	At_Offset_0
0143 680d       |h   |		Jump_Zero	0x151
0144 00e1       |    |		Load_Encached	Boolean_Cache
0145 00da       |    |		Load_Top	At_Offset_2
0146 e5fd       |    |		Load	0x2,-0x3
0147 e5fe       |    |		Load	0x2,-0x2
0148 8017       |    |		Call	0x0,0x17
0149 00d1       |    |		Pop_Control	Pop_Count_1
014a c5fc       |    |		Store	0x2,-0x4
014b e219       |    |		Load	0x1,0x19
014c 00da       |    |		Load_Top	At_Offset_2
014d e00c       |    |		Load	0x0,0xc
014e e218       |    |		Load	0x1,0x18
014f 0096       |    |		Execute	Package,Entry
0150 00d1       |    |		Pop_Control	Pop_Count_1
0151 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0152 0000 0000  |    |		.BLANK	0000[0x6]
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 00e1       |    |		Load_Encached	Boolean_Cache
0161 00da       |    |		Load_Top	At_Offset_2
0162 e5ff       |    |		Load	0x2,-0x1
0163 8012       |    |		Call	0x0,0x12
0164 e219       |    |		Load	0x1,0x19
0165 e00f       |    |		Load	0x0,0xf
0166 e218       |    |		Load	0x1,0x18
0167 0096       |    |		Execute	Package,Entry
0168 00d1       |    |		Pop_Control	Pop_Count_1
0169 0059       | Y  |		Store_Top	Discrete,At_Offset_1
016a 00d8       |    |		Load_Top	At_Offset_0
016b 680e       |h   |		Jump_Zero	0x17a
016c 00e1       |    |		Load_Encached	Boolean_Cache
016d 00da       |    |		Load_Top	At_Offset_2
016e e5fc       |    |		Load	0x2,-0x4
016f e5fd       |    |		Load	0x2,-0x3
0170 e5fe       |    |		Load	0x2,-0x2
0171 8018       |    |		Call	0x0,0x18
0172 00d1       |    |		Pop_Control	Pop_Count_1
0173 c5fb       |    |		Store	0x2,-0x5
0174 e219       |    |		Load	0x1,0x19
0175 00da       |    |		Load_Top	At_Offset_2
0176 e00c       |    |		Load	0x0,0xc
0177 e218       |    |		Load	0x1,0x18
0178 0096       |    |		Execute	Package,Entry
0179 00d1       |    |		Pop_Control	Pop_Count_1
017a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
017b 0000 0000  |    |		.BLANK	0000[0x5]
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 0008  |    |		.DEBUG4	0x0004,0x0008,0xe30e,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 024d  |   M|		.DBG4T	0x00bb,0x024d,0x0001,0x0000
01f2 00e3 0255  |   U|		.DBG4T	0x00e3,0x0255,0x0001,0x0000
01f6 010b 025d  |   ]|		.DBG4T	0x010b,0x025d,0x0001,0x0000
01fa 0133 0265  | 3 e|		.DBG4T	0x0133,0x0265,0x0001,0x0000
01fe 015b 026d  | [ m|		.DBG4T	0x015b,0x026d,0x0001,0x0000
0202 0183 0275  |   u|		.DBG4T	0x0183,0x0275,0x0001,0x0000
0206 019b 027a  |   z|		.DBG4T	0x019b,0x027a,0x0001,0x0000
020a 01ab 027e  |   ~|		.DBG4T	0x01ab,0x027e,0x0002,0x0000
020e 01c3 0286  |    |		.DBG4T	0x01c3,0x0286,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 0004  |    |		.DBGLEN	0x0002,0x0004
0247 0093 0097  |    |		.DBGLNO	0x0093,0x0097,0x0098,0x00a2,0x00a4,0x00aa
024d ; --------------------------------------------------------------------------------------
024d ; Debug chain
024d ; --------------------------------------------------------------------------------------
024d 0002 0004  |    |		.DBGLEN	0x0002,0x0004
024f 00bb 00bf  |    |		.DBGLNO	0x00bb,0x00bf,0x00c0,0x00ca,0x00cc,0x00d2
0255 ; --------------------------------------------------------------------------------------
0255 ; Debug chain
0255 ; --------------------------------------------------------------------------------------
0255 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0257 00e3 00e7  |    |		.DBGLNO	0x00e3,0x00e7,0x00e8,0x00f2,0x00f4,0x00fa
025d ; --------------------------------------------------------------------------------------
025d ; Debug chain
025d ; --------------------------------------------------------------------------------------
025d 0002 0004  |    |		.DBGLEN	0x0002,0x0004
025f 010b 010f  |    |		.DBGLNO	0x010b,0x010f,0x0110,0x011a,0x011c,0x0123
0265 ; --------------------------------------------------------------------------------------
0265 ; Debug chain
0265 ; --------------------------------------------------------------------------------------
0265 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0267 0133 0137  | 3 7|		.DBGLNO	0x0133,0x0137,0x0138,0x0142,0x0144,0x014b
026d ; --------------------------------------------------------------------------------------
026d ; Debug chain
026d ; --------------------------------------------------------------------------------------
026d 0002 0004  |    |		.DBGLEN	0x0002,0x0004
026f 015b 015f  | [ _|		.DBGLNO	0x015b,0x015f,0x0160,0x016a,0x016c,0x0174
0275 ; --------------------------------------------------------------------------------------
0275 ; Debug chain
0275 ; --------------------------------------------------------------------------------------
0275 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0277 0183 0187  |    |		.DBGLNO	0x0183,0x0187,0x0190
027a ; --------------------------------------------------------------------------------------
027a ; Debug chain
027a ; --------------------------------------------------------------------------------------
027a 0000 0002  |    |		.DBGLEN	0x0000,0x0002
027c 019b 019f  |    |		.DBGLNO	0x019b,0x019f
027e ; --------------------------------------------------------------------------------------
027e ; Debug chain
027e ; --------------------------------------------------------------------------------------
027e 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0280 01ab 01af  |    |		.DBGLNO	0x01ab,0x01af,0x01b0,0x01b9,0x01bb,0x01be
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug chain
0286 ; --------------------------------------------------------------------------------------
0286 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0288 01c3       |    |		.DBGLNO	0x01c3
0289 0000 0000  |    |		.BLANK	0000[0x177]