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

⟦a3eb3e3c6⟧

    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 0248       | H  |		.CONST	0x0248								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 006b       | k  |		.CONST	0x006b								; Address of begin
0019 0144       | D  |		.CONST	0x0144								; Address of exception handler
001a 0017       |    |		.CONST	0x0017								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e e001       |    |		Load	0x0,0x1
001f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0020 a402       |    |		Store_Unchecked	0x2,0x2
0021 e001       |    |		Load	0x0,0x1
0022 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0023 02c7       |    |		Declare_Variable	Any
0024 00d8       |    |		Load_Top	At_Offset_0
0025 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0026 e002       |    |		Load	0x0,0x2
0027 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0028 0322       | "  |		Declare_Variable	Record
0029 00d8       |    |		Load_Top	At_Offset_0
002a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002b e003       |    |		Load	0x0,0x3
002c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
002e 02c7       |    |		Declare_Variable	Any
002f 4801       |H   |		Short_Literal	0x1
0030 e003       |    |		Load	0x0,0x3
0031 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0032 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0033 e5ff       |    |		Load	0x2,-0x1
0034 e003       |    |		Load	0x0,0x3
0035 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0036 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0037 a405       |    |		Store_Unchecked	0x2,0x5
0038 00e4       |    |		Load_Encached	Positive_Cache
0039 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
003a e004       |    |		Load	0x0,0x4
003b 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
003c 02c7       |    |		Declare_Variable	Any
003d 00d8       |    |		Load_Top	At_Offset_0
003e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003f e003       |    |		Load	0x0,0x3
0040 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0041 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0042 e003       |    |		Load	0x0,0x3
0043 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0044 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0045 02c7       |    |		Declare_Variable	Any
0046 00d8       |    |		Load_Top	At_Offset_0
0047 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0048 e005       |    |		Load	0x0,0x5
0049 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004a 02c7       |    |		Declare_Variable	Any
004b 00d8       |    |		Load_Top	At_Offset_0
004c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004d 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
004f 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0051 e006       |    |		Load	0x0,0x6
0052 1928       | (  |		Execute	Package,Field_Reference,Field_Number 0x28
0053 00c6       |    |		Action	Check_Subprogram_Elaborated
0054 e002       |    |		Load	0x0,0x2
0055 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0056 480b       |H   |		Short_Literal	0xb
0057 4802       |H   |		Short_Literal	0x2
0058 0099       |    |		Action	Reference_Dynamic
0059 480c       |H   |		Short_Literal	0xc
005a 4802       |H   |		Short_Literal	0x2
005b 0099       |    |		Action	Reference_Dynamic
005c e007       |    |		Load	0x0,0x7
005d e008       |    |		Load	0x0,0x8
005e 4812       |H   |		Short_Literal	0x12
005f 0007       |    |		Action	Break_Optional
0060 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
0062 a009       |    |		Store_Unchecked	0x0,0x9
0063 00c6       |    |		Action	Check_Subprogram_Elaborated
0064 4813       |H   |		Short_Literal	0x13
0065 4802       |H   |		Short_Literal	0x2
0066 0099       |    |		Action	Reference_Dynamic
0067 e00a       |    |		Load	0x0,0xa
0068 e00b       |    |		Load	0x0,0xb
0069 4817       |H   |		Short_Literal	0x17
006a 0007       |    |		Action	Break_Optional
006b			BODY_0018:
006b e405       |    |		Load	0x2,0x5
006c e003       |    |		Load	0x0,0x3
006d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006e 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
006f 6802       |h   |		Jump_Zero	0x72
0070 e00c       |    |		Load	0x0,0xc
0071 0257       | W  |		Execute	Discrete,Raise
0072 e5fd       |    |		Load	0x2,-0x3
0073 e001       |    |		Load	0x0,0x1
0074 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0075 c403       |    |		Store	0x2,0x3
0076 e403       |    |		Load	0x2,0x3
0077 e001       |    |		Load	0x0,0x1
0078 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0079 e40a       |    |		Load	0x2,0xa
007a e407       |    |		Load	0x2,0x7
007b 4801       |H   |		Short_Literal	0x1
007c 4801       |H   |		Short_Literal	0x1
007d e5fe       |    |		Load	0x2,-0x2
007e e004       |    |		Load	0x0,0x4
007f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0080 c407       |    |		Store	0x2,0x7
0081 c40a       |    |		Store	0x2,0xa
0082 e409       |    |		Load	0x2,0x9
0083 0120       |    |		Execute	Any,Is_Value
0084 6804       |h   |		Jump_Zero	0x89
0085 e003       |    |		Load	0x0,0x3
0086 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0087 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0088 7801       |x   |		Jump	0x8a
0089 e409       |    |		Load	0x2,0x9
008a e408       |    |		Load	0x2,0x8
008b e003       |    |		Load	0x0,0x3
008c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
008e c409       |    |		Store	0x2,0x9
008f e40a       |    |		Load	0x2,0xa
0090 e005       |    |		Load	0x0,0x5
0091 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0092 4800       |H   |		Short_Literal	0x0
0093 4801       |H   |		Short_Literal	0x1
0094 0262       | b  |		Execute	Discrete,In_Range
0095 7012       |p   |		Jump_Nonzero	0xa8
0096 7800       |x   |		Jump	0x97
0097 e001       |    |		Load	0x0,0x1
0098 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0099 4807       |H   |		Short_Literal	0x7
009a 0092 0190  |    |		Action	Push_String_Extended,0x190					; "Problem creating object "
009c e5fe       |    |		Load	0x2,-0x2
009d 01cc       |    |		Execute	Vector,Catenate
009e 0092 0191  |    |		Action	Push_String_Extended,0x191					; ".  "
00a0 01cc       |    |		Execute	Vector,Catenate
00a1 e40a       |    |		Load	0x2,0xa
00a2 e005       |    |		Load	0x0,0x5
00a3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00a4 01cc       |    |		Execute	Vector,Catenate
00a5 e00d       |    |		Load	0x0,0xd
00a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00a8 e404       |    |		Load	0x2,0x4
00a9 e002       |    |		Load	0x0,0x2
00aa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ab 00d1       |    |		Pop_Control	Pop_Count_1
00ac e405       |    |		Load	0x2,0x5
00ad 4814       |H   |		Short_Literal	0x14
00ae 4802       |H   |		Short_Literal	0x2
00af 0099       |    |		Action	Reference_Dynamic
00b0 4815       |H   |		Short_Literal	0x15
00b1 4802       |H   |		Short_Literal	0x2
00b2 0099       |    |		Action	Reference_Dynamic
00b3 8009       |    |		Call	0x0,0x9
00b4 c405       |    |		Store	0x2,0x5
00b5 e004       |    |		Load	0x0,0x4
00b6 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00b7 e004       |    |		Load	0x0,0x4
00b8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00b9 0092 0192  |    |		Action	Push_String_Extended,0x192					; "RECORD TYPE INFORMATION"
00bb e407       |    |		Load	0x2,0x7
00bc e004       |    |		Load	0x0,0x4
00bd 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00be 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00bf e004       |    |		Load	0x0,0x4
00c0 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00c1 e004       |    |		Load	0x0,0x4
00c2 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00c3 4802       |H   |		Short_Literal	0x2
00c4 00ea       |    |		Load_Encached	Null_String_Cache
00c5 e407       |    |		Load	0x2,0x7
00c6 e004       |    |		Load	0x0,0x4
00c7 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00c8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c9 e004       |    |		Load	0x0,0x4
00ca 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00cb e004       |    |		Load	0x0,0x4
00cc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00cd 0092 0193  |    |		Action	Push_String_Extended,0x193					; "SORTED BY RECORD NAME; COMPONENTS IN ORDER"
00cf e406       |    |		Load	0x2,0x6
00d0 e407       |    |		Load	0x2,0x7
00d1 e004       |    |		Load	0x0,0x4
00d2 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00d3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00d4 e406       |    |		Load	0x2,0x6
00d5 0a01       |    |		Execute_Immediate	Plus,0x1
00d6 c406       |    |		Store	0x2,0x6
00d7 e407       |    |		Load	0x2,0x7
00d8 e404       |    |		Load	0x2,0x4
00d9 4800       |H   |		Short_Literal	0x0
00da 4801       |H   |		Short_Literal	0x1
00db e002       |    |		Load	0x0,0x2
00dc 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00dd 00d1       |    |		Pop_Control	Pop_Count_1
00de c407       |    |		Store	0x2,0x7
00df e004       |    |		Load	0x0,0x4
00e0 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00e1 e004       |    |		Load	0x0,0x4
00e2 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00e3 0092 0194  |    |		Action	Push_String_Extended,0x194					; "SORTED BY NUMBER OF COMPONENTS; COMPONENTS SORTED BY NUMBER REFERENCE"
00e5 e406       |    |		Load	0x2,0x6
00e6 e407       |    |		Load	0x2,0x7
00e7 e004       |    |		Load	0x0,0x4
00e8 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00e9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00ea e406       |    |		Load	0x2,0x6
00eb 0a01       |    |		Execute_Immediate	Plus,0x1
00ec c406       |    |		Store	0x2,0x6
00ed e407       |    |		Load	0x2,0x7
00ee e404       |    |		Load	0x2,0x4
00ef 4801       |H   |		Short_Literal	0x1
00f0 4800       |H   |		Short_Literal	0x0
00f1 e002       |    |		Load	0x0,0x2
00f2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00f3 00d1       |    |		Pop_Control	Pop_Count_1
00f4 c407       |    |		Store	0x2,0x7
00f5 e004       |    |		Load	0x0,0x4
00f6 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00f7 e004       |    |		Load	0x0,0x4
00f8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00f9 0092 0195  |    |		Action	Push_String_Extended,0x195					; "SORTED BY NUMBER OF COMPONENTS; COMPONENTS SORTED BY FREQUENCY OF OCCURRENCE"
00fb e406       |    |		Load	0x2,0x6
00fc e407       |    |		Load	0x2,0x7
00fd e004       |    |		Load	0x0,0x4
00fe 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00ff 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0100 e406       |    |		Load	0x2,0x6
0101 0a01       |    |		Execute_Immediate	Plus,0x1
0102 c406       |    |		Store	0x2,0x6
0103 e407       |    |		Load	0x2,0x7
0104 e404       |    |		Load	0x2,0x4
0105 4802       |H   |		Short_Literal	0x2
0106 4800       |H   |		Short_Literal	0x0
0107 e002       |    |		Load	0x0,0x2
0108 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0109 00d1       |    |		Pop_Control	Pop_Count_1
010a c407       |    |		Store	0x2,0x7
010b e004       |    |		Load	0x0,0x4
010c 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
010d e004       |    |		Load	0x0,0x4
010e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
010f 0092 0196  |    |		Action	Push_String_Extended,0x196					; "SORTED BY COMPONENT NAME; COMPONENTS BY NAME"
0111 e406       |    |		Load	0x2,0x6
0112 e407       |    |		Load	0x2,0x7
0113 e004       |    |		Load	0x0,0x4
0114 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
0115 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0116 e406       |    |		Load	0x2,0x6
0117 0a01       |    |		Execute_Immediate	Plus,0x1
0118 c406       |    |		Store	0x2,0x6
0119 e407       |    |		Load	0x2,0x7
011a e404       |    |		Load	0x2,0x4
011b 4801       |H   |		Short_Literal	0x1
011c 4802       |H   |		Short_Literal	0x2
011d e002       |    |		Load	0x0,0x2
011e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
011f 00d1       |    |		Pop_Control	Pop_Count_1
0120 c407       |    |		Store	0x2,0x7
0121 e004       |    |		Load	0x0,0x4
0122 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0123 e004       |    |		Load	0x0,0x4
0124 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0125 0092 0197  |    |		Action	Push_String_Extended,0x197					; "SORTED BY COMPONENT NAME; COMPONENTS BY FREQUENCY OF OCCURRENCE"
0127 e406       |    |		Load	0x2,0x6
0128 e407       |    |		Load	0x2,0x7
0129 e004       |    |		Load	0x0,0x4
012a 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
012b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
012c e406       |    |		Load	0x2,0x6
012d 0a01       |    |		Execute_Immediate	Plus,0x1
012e c406       |    |		Store	0x2,0x6
012f e407       |    |		Load	0x2,0x7
0130 e404       |    |		Load	0x2,0x4
0131 4802       |H   |		Short_Literal	0x2
0132 4802       |H   |		Short_Literal	0x2
0133 e002       |    |		Load	0x0,0x2
0134 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0135 00d1       |    |		Pop_Control	Pop_Count_1
0136 c407       |    |		Store	0x2,0x7
0137 e407       |    |		Load	0x2,0x7
0138 e004       |    |		Load	0x0,0x4
0139 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
013a c407       |    |		Store	0x2,0x7
013b 4801       |H   |		Short_Literal	0x1
013c 4800       |H   |		Short_Literal	0x0
013d e5fe       |    |		Load	0x2,-0x2
013e e00e       |    |		Load	0x0,0xe
013f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0140 e402       |    |		Load	0x2,0x2
0141 e001       |    |		Load	0x0,0x1
0142 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0143 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0144			TRAP_0018:
0144 e00c       |    |		Load	0x0,0xc
0145 010f       |    |		Execute	Exception,Equal
0146 6808       |h   |		Jump_Zero	0x14f
0147 e402       |    |		Load	0x2,0x2
0148 e001       |    |		Load	0x0,0x1
0149 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
014a e407       |    |		Load	0x2,0x7
014b e004       |    |		Load	0x0,0x4
014c 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
014d c407       |    |		Store	0x2,0x7
014e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
014f 0100       |    |		Execute	Exception,Raise
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 e00f       |    |		Load	0x0,0xf
0155 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0156 0f05       |    |		Execute_Immediate	Equal,0x5
0157 7001       |p   |		Jump_Nonzero	0x159
0158 780d       |x   |		Jump	0x166
0159 00da       |    |		Load_Top	At_Offset_2
015a e00f       |    |		Load	0x0,0xf
015b 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
015c e010       |    |		Load	0x0,0x10
015d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
015e 0f06       |    |		Execute_Immediate	Equal,0x6
015f 7001       |p   |		Jump_Nonzero	0x161
0160 7805       |x   |		Jump	0x166
0161 00db       |    |		Load_Top	At_Offset_3
0162 00db       |    |		Load_Top	At_Offset_3
0163 e002       |    |		Load	0x0,0x2
0164 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0165 00d1       |    |		Pop_Control	Pop_Count_1
0166 4800       |H   |		Short_Literal	0x0
0167 a7fd       |    |		Store_Unchecked	0x3,-0x3
0168 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0169 0000 0000  |    |		.BLANK	0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 4800       |H   |		Short_Literal	0x0
0174 a7fd       |    |		Store_Unchecked	0x3,-0x3
0175 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b e404       |    |		Load	0x2,0x4
017c 4800       |H   |		Short_Literal	0x0
017d e011       |    |		Load	0x0,0x11
017e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
017f e7ff       |    |		Load	0x3,-0x1
0180 e006       |    |		Load	0x0,0x6
0181 1b58       | X  |		Execute	Package,Field_Read,Field_Number 0x58
0182 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0183 e40d       |    |		Load	0x2,0xd
0184 480e       |H   |		Short_Literal	0xe
0185 4802       |H   |		Short_Literal	0x2
0186 0099       |    |		Action	Reference_Dynamic
0187 480f       |H   |		Short_Literal	0xf
0188 4802       |H   |		Short_Literal	0x2
0189 0099       |    |		Action	Reference_Dynamic
018a 4810       |H   |		Short_Literal	0x10
018b 4802       |H   |		Short_Literal	0x2
018c 0099       |    |		Action	Reference_Dynamic
018d e006       |    |		Load	0x0,0x6
018e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
018f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0190 ; --------------------------------------------------------------------------------------
0190 ; STRING TABLE
0190 ; --------------------------------------------------------------------------------------
0190 0012       |    |		.STRTAB	0x0012->0x0199							; "Problem creating object "
0191 0028       | (  |		.STRTAB	0x0028->0x01a5							; ".  "
0192 0029       | )  |		.STRTAB	0x0029->0x01a6							; "RECORD TYPE INFORMATION"
0193 003e       | >  |		.STRTAB	0x003e->0x01b2							; "SORTED BY RECORD NAME; COMPONENTS IN ORDER"
0194 0066       | f  |		.STRTAB	0x0066->0x01c7							; "SORTED BY NUMBER OF COMPONENTS; COMPONENTS SORTED BY NUMBER REFERENCE"
0195 00a9       |    |		.STRTAB	0x00a9->0x01e9							; "SORTED BY NUMBER OF COMPONENTS; COMPONENTS SORTED BY FREQUENCY OF OCCURRENCE"
0196 00f3       |    |		.STRTAB	0x00f3->0x020f							; "SORTED BY COMPONENT NAME; COMPONENTS BY NAME"
0197 011d       |    |		.STRTAB	0x011d->0x0225							; "SORTED BY COMPONENT NAME; COMPONENTS BY FREQUENCY OF OCCURRENCE"
0198 015a       | Z  |		.STREND 0x015a->0x0245
0199 5072 6f62  |Prob|		.STRTAB_STRINGS
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2f34,0x0000,0x0001,0x0005
024e 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
0252 001b 0262  |   b|		.DBG4T	0x001b,0x0262,0x8001,0xc000
0256 0153 02c2  | S  |		.DBG4T	0x0153,0x02c2,0x0001,0x4000
025a 0173 02cc  | s  |		.DBG4T	0x0173,0x02cc,0x0001,0x0000
025e 017b 02cf  | {  |		.DBG4T	0x017b,0x02cf,0x0001,0x0000
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 000e 0021  |   !|		.DBGLEN	0x000e,0x0021
0264 001b 0021  |   !|		.DBGLNO	0x001b,0x0021,0x0026,0x002b,0x0038,0x003a,0x003f,0x0042,0x0048,0x004d,0x004f,0x0051,0x0060,0x0062,0x006b,0x0070,0x0072,0x0076,0x0079,0x0082,0x008f,0x0097,0x00a7,0x00a8,0x00ac,0x00b5,0x00bf,0x00c9,0x00d4,0x00d7,0x00df,0x00ea,0x00ed,0x00f5,0x0100,0x0103,0x010b,0x0116,0x0119,0x0121,0x012c,0x012f,0x0137,0x013b,0x0140,0x0147,0x014a
0293 0006 0007  |    |		.XXX[0x2f]
0295 0008 0009  |    |
0297 000a 000b  |    |
0299 000c 000d  |    |
029b 000e 000f  |    |
029d 0010 0011  |    |
029f 0012 0013  |    |
02a1 0001 0002  |    |
02a3 0003 0004  |    |
02a5 0005 0006  |    |
02a7 0007 0008  |    |
02a9 0009 000b  |    |
02ab 000c 000d  |    |
02ad 000e 000f  |    |
02af 0010 0011  |    |
02b1 0012 0013  |    |
02b3 0014 0015  |    |
02b5 0016 0017  |    |
02b7 0018 0019  |    |
02b9 001a 001b  |    |
02bb 001c 001d  |    |
02bd 001e 001f  |    |
02bf 0020 0021  |   !|
02c1 0022       | "  |
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug chain
02c2 ; --------------------------------------------------------------------------------------
02c2 0000 0004  |    |		.DBGLEN	0x0000,0x0004
02c4 0153 0159  | S Y|		.DBGLNO	0x0153,0x0159,0x0161,0x0166
02c8 0001 0002  |    |		.XXX[0x4]
02ca 0003 0006  |    |
02cc ; --------------------------------------------------------------------------------------
02cc ; Debug chain
02cc ; --------------------------------------------------------------------------------------
02cc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
02ce 0173       | s  |		.DBGLNO	0x0173
02cf ; --------------------------------------------------------------------------------------
02cf ; Debug chain
02cf ; --------------------------------------------------------------------------------------
02cf 0000 0001  |    |		.DBGLEN	0x0000,0x0001
02d1 017b       | {  |		.DBGLNO	0x017b
02d2 0000 0000  |    |		.BLANK	0000[0x12e]