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

⟦e216ea449⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 0230       | 0  |		.CONST	0x0230								; 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 0014       |    |		.CONST	0x0014								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0011 00c7       |    |		Action	Elaborate_Subprogram
0012 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0013 00c7       |    |		Action	Elaborate_Subprogram
0014			BODY_0008:
0014 00bc       |    |		Action	Signal_Activated
0015 00bb       |    |		Action	Signal_Completion
0016 0000 0000  |    |		.XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 005b       | [  |		.CONST	0x005b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0015       |    |		.CONST	0x0015								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
001e 02c7       |    |		Declare_Variable	Any
001f 4801       |H   |		Short_Literal	0x1
0020 e001       |    |		Load	0x0,0x1
0021 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0022 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0023 e5ff       |    |		Load	0x2,-0x1
0024 e001       |    |		Load	0x0,0x1
0025 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0026 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0027 a402       |    |		Store_Unchecked	0x2,0x2
0028 4800       |H   |		Short_Literal	0x0
0029 4803       |H   |		Short_Literal	0x3
002a 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
002c 03fd       |    |		Declare_Type	Discrete,Defined
002d e002       |    |		Load	0x0,0x2
002e 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
002f e003       |    |		Load	0x0,0x3
0030 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0031 02c7       |    |		Declare_Variable	Any
0032 00d8       |    |		Load_Top	At_Offset_0
0033 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0034 e003       |    |		Load	0x0,0x3
0035 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0036 02c7       |    |		Declare_Variable	Any
0037 00d8       |    |		Load_Top	At_Offset_0
0038 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0039 029f 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Call
003b 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
003d 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
003f 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0041 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
0043 a004       |    |		Store_Unchecked	0x0,0x4
0044 00c6       |    |		Action	Check_Subprogram_Elaborated
0045 4808       |H   |		Short_Literal	0x8
0046 4802       |H   |		Short_Literal	0x2
0047 0099       |    |		Action	Reference_Dynamic
0048 e403       |    |		Load	0x2,0x3
0049 4807       |H   |		Short_Literal	0x7
004a 4802       |H   |		Short_Literal	0x2
004b 0099       |    |		Action	Reference_Dynamic
004c 4809       |H   |		Short_Literal	0x9
004d 4802       |H   |		Short_Literal	0x2
004e 0099       |    |		Action	Reference_Dynamic
004f 480a       |H   |		Short_Literal	0xa
0050 4802       |H   |		Short_Literal	0x2
0051 0099       |    |		Action	Reference_Dynamic
0052 480b       |H   |		Short_Literal	0xb
0053 4802       |H   |		Short_Literal	0x2
0054 0099       |    |		Action	Reference_Dynamic
0055 0092 0187  |    |		Action	Push_String_Extended,0x187					; "Non-private type declarations in the visible part of packages"
0057 e005       |    |		Load	0x0,0x5
0058 e006       |    |		Load	0x0,0x6
0059 4815       |H   |		Short_Literal	0x15
005a 0007       |    |		Action	Break_Optional
005b			BODY_0018:
005b e402       |    |		Load	0x2,0x2
005c e001       |    |		Load	0x0,0x1
005d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005e 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
005f 680a       |h   |		Jump_Zero	0x6a
0060 e007       |    |		Load	0x0,0x7
0061 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0062 4807       |H   |		Short_Literal	0x7
0063 e5ff       |    |		Load	0x2,-0x1
0064 0092 0188  |    |		Action	Push_String_Extended,0x188					; " is not a valid pathname"
0066 01cc       |    |		Execute	Vector,Catenate
0067 e008       |    |		Load	0x0,0x8
0068 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0069 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
006a e5fd       |    |		Load	0x2,-0x3
006b e402       |    |		Load	0x2,0x2
006c e5fe       |    |		Load	0x2,-0x2
006d 480c       |H   |		Short_Literal	0xc
006e 4802       |H   |		Short_Literal	0x2
006f 0099       |    |		Action	Reference_Dynamic
0070 e40d       |    |		Load	0x2,0xd
0071 480e       |H   |		Short_Literal	0xe
0072 4802       |H   |		Short_Literal	0x2
0073 0099       |    |		Action	Reference_Dynamic
0074 480f       |H   |		Short_Literal	0xf
0075 4802       |H   |		Short_Literal	0x2
0076 0099       |    |		Action	Reference_Dynamic
0077 4810       |H   |		Short_Literal	0x10
0078 4802       |H   |		Short_Literal	0x2
0079 0099       |    |		Action	Reference_Dynamic
007a 4811       |H   |		Short_Literal	0x11
007b 4802       |H   |		Short_Literal	0x2
007c 0099       |    |		Action	Reference_Dynamic
007d e412       |    |		Load	0x2,0x12
007e 4813       |H   |		Short_Literal	0x13
007f 4802       |H   |		Short_Literal	0x2
0080 0099       |    |		Action	Reference_Dynamic
0081 8004       |    |		Call	0x0,0x4
0082 c402       |    |		Store	0x2,0x2
0083 c5fd       |    |		Store	0x2,-0x3
0084 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0085 0000 0000  |    |		.XXX[0x3]
0087 0000       |    |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0095       |    |		.CONST	0x0095								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0003       |    |		.CONST	0x0003								; Number of locals
008b			INIT_0088:
008b e009       |    |		Load	0x0,0x9
008c 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
008d 02c7       |    |		Declare_Variable	Any
008e 00d8       |    |		Load_Top	At_Offset_0
008f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0090 e00a       |    |		Load	0x0,0xa
0091 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0092 02c7       |    |		Declare_Variable	Any
0093 00d8       |    |		Load_Top	At_Offset_0
0094 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0095			BODY_0088:
0095 00d9       |    |		Load_Top	At_Offset_1
0096 00d9       |    |		Load_Top	At_Offset_1
0097 e5fe       |    |		Load	0x2,-0x2
0098 800b       |    |		Call	0x0,0xb
0099 c403       |    |		Store	0x2,0x3
009a c402       |    |		Store	0x2,0x2
009b 00d8       |    |		Load_Top	At_Offset_0
009c e00a       |    |		Load	0x0,0xa
009d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
009e 4802       |H   |		Short_Literal	0x2
009f 4803       |H   |		Short_Literal	0x3
00a0 0262       | b  |		Execute	Discrete,In_Range
00a1 700f       |p   |		Jump_Nonzero	0xb1
00a2 00d9       |    |		Load_Top	At_Offset_1
00a3 e5fd       |    |		Load	0x2,-0x3
00a4 e5ff       |    |		Load	0x2,-0x1
00a5 820d       |    |		Call	0x1,0xd
00a6 c402       |    |		Store	0x2,0x2
00a7 00d9       |    |		Load_Top	At_Offset_1
00a8 e009       |    |		Load	0x0,0x9
00a9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00aa c402       |    |		Store	0x2,0x2
00ab 4801       |H   |		Short_Literal	0x1
00ac 4800       |H   |		Short_Literal	0x0
00ad e5fe       |    |		Load	0x2,-0x2
00ae e00c       |    |		Load	0x0,0xc
00af 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00b0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00b1 e007       |    |		Load	0x0,0x7
00b2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00b3 4807       |H   |		Short_Literal	0x7
00b4 0092 0189  |    |		Action	Push_String_Extended,0x189					; "Problem creating object "
00b6 e5fe       |    |		Load	0x2,-0x2
00b7 01cc       |    |		Execute	Vector,Catenate
00b8 0092 018a  |    |		Action	Push_String_Extended,0x18a					; ".  "
00ba 01cc       |    |		Execute	Vector,Catenate
00bb 00db       |    |		Load_Top	At_Offset_3
00bc e00a       |    |		Load	0x0,0xa
00bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00be 01cc       |    |		Execute	Vector,Catenate
00bf e008       |    |		Load	0x0,0x8
00c0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00c1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 4607       |F   |		Jump_Case	0x8
00cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00cd 7806       |x   |		Jump	0xd4								; case 0x1
00ce 7809       |x   |		Jump	0xd8								; case 0x2
00cf 780d       |x   |		Jump	0xdd								; case 0x3
00d0 7810       |x   |		Jump	0xe1								; case 0x4
00d1 7811       |x   |		Jump	0xe3								; case 0x5
00d2 7812       |x   |		Jump	0xe5								; case 0x6
00d3 7815       |x   |		Jump	0xe9								; case 0x7
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 0091 0183  |    |		Action	Push_String_Extended_Indexed,0x183				; "PARENT_PACKAGE"
00d7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d8 00db       |    |		Load_Top	At_Offset_3
00d9 00db       |    |		Load_Top	At_Offset_3
00da 00e0       |    |		Load_Encached	Standard_Cache
00db 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00dd 00da       |    |		Load_Top	At_Offset_2
00de 00e0       |    |		Load_Encached	Standard_Cache
00df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e3 00db       |    |		Load_Top	At_Offset_3
00e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e5 e403       |    |		Load	0x2,0x3
00e6 00dc       |    |		Load_Top	At_Offset_4
00e7 0267       | g  |		Execute	Discrete,Predecessor
00e8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e9 e403       |    |		Load	0x2,0x3
00ea 00dc       |    |		Load_Top	At_Offset_4
00eb 0268       | h  |		Execute	Discrete,Successor
00ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ed 0000 0000  |    |		.XXX[0x3]
00ef 0000       |    |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 4800       |H   |		Short_Literal	0x0
00f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00da       |    |		Load_Top	At_Offset_2
00fc e00d       |    |		Load	0x0,0xd
00fd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00fe 0f05       |    |		Execute_Immediate	Equal,0x5
00ff 7002       |p   |		Jump_Nonzero	0x102
0100 4800       |H   |		Short_Literal	0x0
0101 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0102 00da       |    |		Load_Top	At_Offset_2
0103 e00d       |    |		Load	0x0,0xd
0104 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0105 681f       |h   |		Jump_Zero	0x125
0106 00da       |    |		Load_Top	At_Offset_2
0107 e00e       |    |		Load	0x0,0xe
0108 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0109 681b       |h   |		Jump_Zero	0x125
010a 00da       |    |		Load_Top	At_Offset_2
010b e00d       |    |		Load	0x0,0xd
010c 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
010d e002       |    |		Load	0x0,0x2
010e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
010f a404       |    |		Store_Unchecked	0x2,0x4
0110 e404       |    |		Load	0x2,0x4
0111 480a       |H   |		Short_Literal	0xa
0112 480b       |H   |		Short_Literal	0xb
0113 0262       | b  |		Execute	Discrete,In_Range
0114 700e       |p   |		Jump_Nonzero	0x123
0115 00da       |    |		Load_Top	At_Offset_2
0116 e00e       |    |		Load	0x0,0xe
0117 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0118 c405       |    |		Store	0x2,0x5
0119 4800       |H   |		Short_Literal	0x0
011a 0092 018b  |    |		Action	Push_String_Extended,0x18b					; "<ALL_WORLDS>"
011c 4801       |H   |		Short_Literal	0x1
011d e7ff       |    |		Load	0x3,-0x1
011e e003       |    |		Load	0x0,0x3
011f 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0120 c406       |    |		Store	0x2,0x6
0121 4801       |H   |		Short_Literal	0x1
0122 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0123 4800       |H   |		Short_Literal	0x0
0124 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0125 4800       |H   |		Short_Literal	0x0
0126 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0127 0000       |    |		.XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c 4603       |F   |		Jump_Case	0x4
012d 7809       |x   |		Jump	0x137								; case 0x0
012e 780c       |x   |		Jump	0x13b								; case 0x1
012f 780f       |x   |		Jump	0x13f								; case 0x2
0130 7800       |x   |		Jump	0x131								; case 0x3
0131 e406       |    |		Load	0x2,0x6
0132 e00e       |    |		Load	0x0,0xe
0133 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0134 00e0       |    |		Load_Encached	Standard_Cache
0135 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0136 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0137 e405       |    |		Load	0x2,0x5
0138 e00d       |    |		Load	0x0,0xd
0139 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
013a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013b 00db       |    |		Load_Top	At_Offset_3
013c e00d       |    |		Load	0x0,0xd
013d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
013e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013f 4800       |H   |		Short_Literal	0x0
0140 4820       |H   |		Short_Literal	0x20
0141 485f       |H_  |		Short_Literal	0x5f
0142 e404       |    |		Load	0x2,0x4
0143 e002       |    |		Load	0x0,0x2
0144 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0145 011c       |    |		Execute	Any,Convert_Unchecked
0146 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0147 e00f       |    |		Load	0x0,0xf
0148 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0149 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
014a 0000 0000  |    |		.BLANK	0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 4603       |F   |		Jump_Case	0x4
0155 7806       |x   |		Jump	0x15c								; case 0x0
0156 7808       |x   |		Jump	0x15f								; case 0x1
0157 780a       |x   |		Jump	0x162								; case 0x2
0158 7800       |x   |		Jump	0x159								; case 0x3
0159 0092 018c  |    |		Action	Push_String_Extended,0x18c					; "Number of references to the type declaration"
015b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
015c 0092 018d  |    |		Action	Push_String_Extended,0x18d					; "Parent unit contatining the type declartion"
015e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
015f 0092 018e  |    |		Action	Push_String_Extended,0x18e					; "Name of the visible type declaration"
0161 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0162 0092 018f  |    |		Action	Push_String_Extended,0x18f					; "Kind of the type declaration"
0164 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0165 0000 0000  |    |		.XXX[0x3]
0167 0000       |    |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b e003       |    |		Load	0x0,0x3
016c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
016d c7fd       |    |		Store	0x3,-0x3
016e e003       |    |		Load	0x0,0x3
016f 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0170 c7fc       |    |		Store	0x3,-0x4
0171 00da       |    |		Load_Top	At_Offset_2
0172 4603       |F   |		Jump_Case	0x4
0173 7806       |x   |		Jump	0x17a								; case 0x0
0174 7808       |x   |		Jump	0x17d								; case 0x1
0175 780a       |x   |		Jump	0x180								; case 0x2
0176 7800       |x   |		Jump	0x177								; case 0x3
0177 e406       |    |		Load	0x2,0x6
0178 c7fc       |    |		Store	0x3,-0x4
0179 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
017a e405       |    |		Load	0x2,0x5
017b c7fd       |    |		Store	0x3,-0x3
017c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
017d 00db       |    |		Load_Top	At_Offset_3
017e c7fd       |    |		Store	0x3,-0x3
017f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0180 00db       |    |		Load_Top	At_Offset_3
0181 c7fd       |    |		Store	0x3,-0x3
0182 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0183 ; --------------------------------------------------------------------------------------
0183 ; STRING TABLE
0183 ; --------------------------------------------------------------------------------------
0183 001c       |    |		.STRTAB	0x001c->0x0191							; "PARENT_PACKAGE"
0184 0028       | (  |		.STRTAB	0x0028->0x0198							; "TYPE_DECL"
0185 002f       | /  |		.STRTAB	0x002f->0x019c							; "KIND"
0186 0031       | 1  |		.STRTAB	0x0031->0x019e							; "REFERENCES"
0187 0039       | 9  |		.STRTAB	0x0039->0x01a3							; "Non-private type declarations in the visible part of packages"
0188 0074       | t  |		.STRTAB	0x0074->0x01c2							; " is not a valid pathname"
0189 008a       |    |		.STRTAB	0x008a->0x01ce							; "Problem creating object "
018a 00a0       |    |		.STRTAB	0x00a0->0x01da							; ".  "
018b 00a1       |    |		.STRTAB	0x00a1->0x01db							; "<ALL_WORLDS>"
018c 00ab       |    |		.STRTAB	0x00ab->0x01e1							; "Number of references to the type declaration"
018d 00d5       |    |		.STRTAB	0x00d5->0x01f7							; "Parent unit contatining the type declartion"
018e 00fe       |    |		.STRTAB	0x00fe->0x020d							; "Name of the visible type declaration"
018f 0120       |    |		.STRTAB	0x0120->0x021f							; "Kind of the type declaration"
0190 013a       | :  |		.STREND 0x013a->0x022d
0191 5041 5245  |PARE|		.STRTAB_STRINGS
022d 0000 0000  |    |		.XXX[0x3]
022f 0000       |    |
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2f89,0x0000,0x0001,0x000a
0236 000b 025e  |   ^|		.DBG4T	0x000b,0x025e,0x8000,0x0000
023a 0010 0262  |   b|		.DBG4T	0x0010,0x0262,0x8000,0x0000
023e 001b 0266  |   f|		.DBG4T	0x001b,0x0266,0x0001,0x0000
0242 008b 0276  |   v|		.DBG4T	0x008b,0x0276,0x0001,0x4000
0246 00cb 0000  |    |		.DBG4T	0x00cb,0x0000,0x0005,0x0000
024a 00f3 0286  |    |		.DBG4T	0x00f3,0x0286,0x0002,0x0000
024e 00fb 0289  |    |		.DBG4T	0x00fb,0x0289,0x0002,0x4000
0252 012b 029f  | +  |		.DBG4T	0x012b,0x029f,0x0002,0x4000
0256 0153 02ab  | S  |		.DBG4T	0x0153,0x02ab,0x0002,0x4000
025a 016b 02b7  | k  |		.DBG4T	0x016b,0x02b7,0x0001,0x4000
025e ; --------------------------------------------------------------------------------------
025e ; Debug chain
025e ; --------------------------------------------------------------------------------------
025e 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0260 000b 000d  |    |		.DBGLNO	0x000b,0x000d
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0264 0010 0012  |    |		.DBGLNO	0x0010,0x0012
0266 ; --------------------------------------------------------------------------------------
0266 ; Debug chain
0266 ; --------------------------------------------------------------------------------------
0266 000b 0003  |    |		.DBGLEN	0x000b,0x0003
0268 001b 0028  |   (|		.DBGLNO	0x001b,0x0028,0x002d,0x002f,0x0034,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x005b,0x0060,0x006a
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug chain
0276 ; --------------------------------------------------------------------------------------
0276 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0278 008b 0090  |    |		.DBGLNO	0x008b,0x0090,0x0095,0x009b,0x00a2,0x00a7,0x00ab,0x00b1
0280 0001 0002  |    |		.XXX[0x6]
0282 0004 0005  |    |
0284 0006 0003  |    |
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug chain
0286 ; --------------------------------------------------------------------------------------
0286 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0288 00f3       |    |		.DBGLNO	0x00f3
0289 ; --------------------------------------------------------------------------------------
0289 ; Debug chain
0289 ; --------------------------------------------------------------------------------------
0289 0000 000a  |    |		.DBGLEN	0x0000,0x000a
028b 00fb 0100  |    |		.DBGLNO	0x00fb,0x0100,0x0102,0x010a,0x0110,0x0115,0x0119,0x0121,0x0123,0x0125
0295 0001 000a  |    |		.XXX[0xa]
0297 0002 0003  |    |
0299 0004 0006  |    |
029b 0007 0008  |    |
029d 0005 0009  |    |
029f ; --------------------------------------------------------------------------------------
029f ; Debug chain
029f ; --------------------------------------------------------------------------------------
029f 0000 0005  |    |		.DBGLEN	0x0000,0x0005
02a1 012b 0131  | + 1|		.DBGLNO	0x012b,0x0131,0x0137,0x013b,0x013f
02a6 0001 0005  |    |		.XXX[0x5]
02a8 0002 0003  |    |
02aa 0004       |    |
02ab ; --------------------------------------------------------------------------------------
02ab ; Debug chain
02ab ; --------------------------------------------------------------------------------------
02ab 0000 0005  |    |		.DBGLEN	0x0000,0x0005
02ad 0153 0159  | S Y|		.DBGLNO	0x0153,0x0159,0x015c,0x015f,0x0162
02b2 0001 0005  |    |		.XXX[0x5]
02b4 0002 0003  |    |
02b6 0004       |    |
02b7 ; --------------------------------------------------------------------------------------
02b7 ; Debug chain
02b7 ; --------------------------------------------------------------------------------------
02b7 0000 0007  |    |		.DBGLEN	0x0000,0x0007
02b9 016b 016e  | k n|		.DBGLNO	0x016b,0x016e,0x0171,0x0177,0x017a,0x017d,0x0180
02c0 0001 0002  |    |		.XXX[0x7]
02c2 0003 0007  |    |
02c4 0004 0005  |    |
02c6 0006       |    |
02c7 0000 0000  |    |		.BLANK	0000[0x139]