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

⟦3c6d0b363⟧

    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 0218       |    |		.CONST	0x0218								; 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 0061       | a  |		.CONST	0x0061								; Address of begin
0019 013a       | :  |		.CONST	0x013a								; Address of exception handler
001a 0011       |    |		.CONST	0x0011								; 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 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0029 02c7       |    |		Declare_Variable	Any
002a 4801       |H   |		Short_Literal	0x1
002b e002       |    |		Load	0x0,0x2
002c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
002e e5ff       |    |		Load	0x2,-0x1
002f e002       |    |		Load	0x0,0x2
0030 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0031 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0032 a404       |    |		Store_Unchecked	0x2,0x4
0033 e002       |    |		Load	0x0,0x2
0034 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0035 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0036 02c7       |    |		Declare_Variable	Any
0037 00d8       |    |		Load_Top	At_Offset_0
0038 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0039 e003       |    |		Load	0x0,0x3
003a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
003b 02c7       |    |		Declare_Variable	Any
003c 00d8       |    |		Load_Top	At_Offset_0
003d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003e e004       |    |		Load	0x0,0x4
003f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0040 0322       | "  |		Declare_Variable	Record
0041 00e4       |    |		Load_Encached	Positive_Cache
0042 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0043 e005       |    |		Load	0x0,0x5
0044 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0045 02c7       |    |		Declare_Variable	Any
0046 00d8       |    |		Load_Top	At_Offset_0
0047 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0048 e002       |    |		Load	0x0,0x2
0049 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
004b e002       |    |		Load	0x0,0x2
004c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004d 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
004e 02c7       |    |		Declare_Variable	Any
004f 00d8       |    |		Load_Top	At_Offset_0
0050 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0051 e006       |    |		Load	0x0,0x6
0052 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0053 02c7       |    |		Declare_Variable	Any
0054 00d8       |    |		Load_Top	At_Offset_0
0055 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0056 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
0058 a007       |    |		Store_Unchecked	0x0,0x7
0059 00c6       |    |		Action	Check_Subprogram_Elaborated
005a 480d       |H   |		Short_Literal	0xd
005b 4802       |H   |		Short_Literal	0x2
005c 0099       |    |		Action	Reference_Dynamic
005d e008       |    |		Load	0x0,0x8
005e e009       |    |		Load	0x0,0x9
005f 4811       |H   |		Short_Literal	0x11
0060 0007       |    |		Action	Break_Optional
0061			BODY_0018:
0061 e404       |    |		Load	0x2,0x4
0062 e002       |    |		Load	0x0,0x2
0063 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0064 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0065 6802       |h   |		Jump_Zero	0x68
0066 e00a       |    |		Load	0x0,0xa
0067 0257       | W  |		Execute	Discrete,Raise
0068 e5f8       |    |		Load	0x2,-0x8
0069 e001       |    |		Load	0x0,0x1
006a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
006b c403       |    |		Store	0x2,0x3
006c e403       |    |		Load	0x2,0x3
006d e001       |    |		Load	0x0,0x1
006e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
006f e40c       |    |		Load	0x2,0xc
0070 e409       |    |		Load	0x2,0x9
0071 4801       |H   |		Short_Literal	0x1
0072 4801       |H   |		Short_Literal	0x1
0073 e5fe       |    |		Load	0x2,-0x2
0074 e005       |    |		Load	0x0,0x5
0075 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0076 c409       |    |		Store	0x2,0x9
0077 c40c       |    |		Store	0x2,0xc
0078 e40b       |    |		Load	0x2,0xb
0079 0120       |    |		Execute	Any,Is_Value
007a 6804       |h   |		Jump_Zero	0x7f
007b e002       |    |		Load	0x0,0x2
007c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
007d 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
007e 7801       |x   |		Jump	0x80
007f e40b       |    |		Load	0x2,0xb
0080 e40a       |    |		Load	0x2,0xa
0081 e002       |    |		Load	0x0,0x2
0082 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0083 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0084 c40b       |    |		Store	0x2,0xb
0085 e40c       |    |		Load	0x2,0xc
0086 e006       |    |		Load	0x0,0x6
0087 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0088 4800       |H   |		Short_Literal	0x0
0089 4801       |H   |		Short_Literal	0x1
008a 0262       | b  |		Execute	Discrete,In_Range
008b 7012       |p   |		Jump_Nonzero	0x9e
008c 7800       |x   |		Jump	0x8d
008d e001       |    |		Load	0x0,0x1
008e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
008f 4807       |H   |		Short_Literal	0x7
0090 0092 01a1  |    |		Action	Push_String_Extended,0x1a1					; "Problem creating object "
0092 e5fe       |    |		Load	0x2,-0x2
0093 01cc       |    |		Execute	Vector,Catenate
0094 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; ".  "
0096 01cc       |    |		Execute	Vector,Catenate
0097 e40c       |    |		Load	0x2,0xc
0098 e006       |    |		Load	0x0,0x6
0099 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
009a 01cc       |    |		Execute	Vector,Catenate
009b e00b       |    |		Load	0x0,0xb
009c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009d 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
009e e407       |    |		Load	0x2,0x7
009f e004       |    |		Load	0x0,0x4
00a0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00a1 00d1       |    |		Pop_Control	Pop_Count_1
00a2 e404       |    |		Load	0x2,0x4
00a3 480e       |H   |		Short_Literal	0xe
00a4 4802       |H   |		Short_Literal	0x2
00a5 0099       |    |		Action	Reference_Dynamic
00a6 480f       |H   |		Short_Literal	0xf
00a7 4802       |H   |		Short_Literal	0x2
00a8 0099       |    |		Action	Reference_Dynamic
00a9 8007       |    |		Call	0x0,0x7
00aa c404       |    |		Store	0x2,0x4
00ab e005       |    |		Load	0x0,0x5
00ac 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00ad e005       |    |		Load	0x0,0x5
00ae 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00af 0092 01a3  |    |		Action	Push_String_Extended,0x1a3					; "TYPE INFORMATION"
00b1 e409       |    |		Load	0x2,0x9
00b2 e005       |    |		Load	0x0,0x5
00b3 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00b4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00b5 e005       |    |		Load	0x0,0x5
00b6 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00b7 e005       |    |		Load	0x0,0x5
00b8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00b9 4802       |H   |		Short_Literal	0x2
00ba 00ea       |    |		Load_Encached	Null_String_Cache
00bb e409       |    |		Load	0x2,0x9
00bc e005       |    |		Load	0x0,0x5
00bd 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00be 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bf e5fd       |    |		Load	0x2,-0x3
00c0 6814       |h   |		Jump_Zero	0xd5
00c1 e005       |    |		Load	0x0,0x5
00c2 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00c3 e005       |    |		Load	0x0,0x5
00c4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00c5 0092 01a4  |    |		Action	Push_String_Extended,0x1a4					; "SORTED BY KIND OF TYPE"
00c7 e408       |    |		Load	0x2,0x8
00c8 e409       |    |		Load	0x2,0x9
00c9 e005       |    |		Load	0x0,0x5
00ca 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00cb 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00cc e408       |    |		Load	0x2,0x8
00cd 0a01       |    |		Execute_Immediate	Plus,0x1
00ce c408       |    |		Store	0x2,0x8
00cf e409       |    |		Load	0x2,0x9
00d0 4801       |H   |		Short_Literal	0x1
00d1 e407       |    |		Load	0x2,0x7
00d2 e004       |    |		Load	0x0,0x4
00d3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00d4 c409       |    |		Store	0x2,0x9
00d5 e5fc       |    |		Load	0x2,-0x4
00d6 6814       |h   |		Jump_Zero	0xeb
00d7 e005       |    |		Load	0x0,0x5
00d8 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00d9 e005       |    |		Load	0x0,0x5
00da 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00db 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; "SORTED BY NAME OF TYPE"
00dd e408       |    |		Load	0x2,0x8
00de e409       |    |		Load	0x2,0x9
00df e005       |    |		Load	0x0,0x5
00e0 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00e1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00e2 e408       |    |		Load	0x2,0x8
00e3 0a01       |    |		Execute_Immediate	Plus,0x1
00e4 c408       |    |		Store	0x2,0x8
00e5 e409       |    |		Load	0x2,0x9
00e6 4802       |H   |		Short_Literal	0x2
00e7 e407       |    |		Load	0x2,0x7
00e8 e004       |    |		Load	0x0,0x4
00e9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ea c409       |    |		Store	0x2,0x9
00eb e5fb       |    |		Load	0x2,-0x5
00ec 6814       |h   |		Jump_Zero	0x101
00ed e005       |    |		Load	0x0,0x5
00ee 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00ef e005       |    |		Load	0x0,0x5
00f0 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00f1 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; "SCALAR TYPES SORTED BY BOUNDS"
00f3 e408       |    |		Load	0x2,0x8
00f4 e409       |    |		Load	0x2,0x9
00f5 e005       |    |		Load	0x0,0x5
00f6 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
00f7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00f8 e408       |    |		Load	0x2,0x8
00f9 0a01       |    |		Execute_Immediate	Plus,0x1
00fa c408       |    |		Store	0x2,0x8
00fb e409       |    |		Load	0x2,0x9
00fc 4803       |H   |		Short_Literal	0x3
00fd e407       |    |		Load	0x2,0x7
00fe e004       |    |		Load	0x0,0x4
00ff 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0100 c409       |    |		Store	0x2,0x9
0101 e5fa       |    |		Load	0x2,-0x6
0102 6814       |h   |		Jump_Zero	0x117
0103 e005       |    |		Load	0x0,0x5
0104 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0105 e005       |    |		Load	0x0,0x5
0106 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0107 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "SUBTYPES SORTED BY NAME OF CONSTRAINED TYPE"
0109 e408       |    |		Load	0x2,0x8
010a e409       |    |		Load	0x2,0x9
010b e005       |    |		Load	0x0,0x5
010c 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
010d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
010e e408       |    |		Load	0x2,0x8
010f 0a01       |    |		Execute_Immediate	Plus,0x1
0110 c408       |    |		Store	0x2,0x8
0111 e409       |    |		Load	0x2,0x9
0112 4804       |H   |		Short_Literal	0x4
0113 e407       |    |		Load	0x2,0x7
0114 e004       |    |		Load	0x0,0x4
0115 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0116 c409       |    |		Store	0x2,0x9
0117 e5f9       |    |		Load	0x2,-0x7
0118 6814       |h   |		Jump_Zero	0x12d
0119 e005       |    |		Load	0x0,0x5
011a 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
011b e005       |    |		Load	0x0,0x5
011c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
011d 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; "RECORD TYPES SORTED to PRESERVE COMPONENT STRUCTURE"
011f e408       |    |		Load	0x2,0x8
0120 e409       |    |		Load	0x2,0x9
0121 e005       |    |		Load	0x0,0x5
0122 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
0123 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0124 e408       |    |		Load	0x2,0x8
0125 0a01       |    |		Execute_Immediate	Plus,0x1
0126 c408       |    |		Store	0x2,0x8
0127 e409       |    |		Load	0x2,0x9
0128 4800       |H   |		Short_Literal	0x0
0129 e407       |    |		Load	0x2,0x7
012a e004       |    |		Load	0x0,0x4
012b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
012c c409       |    |		Store	0x2,0x9
012d e409       |    |		Load	0x2,0x9
012e e005       |    |		Load	0x0,0x5
012f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0130 c409       |    |		Store	0x2,0x9
0131 4801       |H   |		Short_Literal	0x1
0132 4800       |H   |		Short_Literal	0x0
0133 e5fe       |    |		Load	0x2,-0x2
0134 e00c       |    |		Load	0x0,0xc
0135 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0136 e402       |    |		Load	0x2,0x2
0137 e001       |    |		Load	0x0,0x1
0138 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0139 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
013a			TRAP_0018:
013a e00a       |    |		Load	0x0,0xa
013b 010f       |    |		Execute	Exception,Equal
013c 6808       |h   |		Jump_Zero	0x145
013d e409       |    |		Load	0x2,0x9
013e e005       |    |		Load	0x0,0x5
013f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0140 c409       |    |		Store	0x2,0x9
0141 e402       |    |		Load	0x2,0x2
0142 e001       |    |		Load	0x0,0x1
0143 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0144 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0145 0100       |    |		Execute	Exception,Raise
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0150       | P  |		.CONST	0x0150								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0002       |    |		.CONST	0x0002								; Number of locals
014b			INIT_0148:
014b e003       |    |		Load	0x0,0x3
014c 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
014d 02c7       |    |		Declare_Variable	Any
014e 00d8       |    |		Load_Top	At_Offset_0
014f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0150			BODY_0148:
0150 e00d       |    |		Load	0x0,0xd
0151 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0152 e7ff       |    |		Load	0x3,-0x1
0153 e003       |    |		Load	0x0,0x3
0154 1b58       | X  |		Execute	Package,Field_Read,Field_Number 0x58
0155 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0156 e00e       |    |		Load	0x0,0xe
0157 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0158 c602       |    |		Store	0x3,0x2
0159 00d8       |    |		Load_Top	At_Offset_0
015a e00f       |    |		Load	0x0,0xf
015b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
015c 0b08       |    |		Execute_Immediate	Case_Compare,0x8
015d 7003       |p   |		Jump_Nonzero	0x161
015e 0f13       |    |		Execute_Immediate	Equal,0x13
015f 7002       |p   |		Jump_Nonzero	0x162
0160 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0161 00d1       |    |		Pop_Control	Pop_Count_1
0162 00d8       |    |		Load_Top	At_Offset_0
0163 e00f       |    |		Load	0x0,0xf
0164 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0165 c406       |    |		Store	0x2,0x6
0166 00cf       |    |		Action	Mark_Auxiliary
0167 7833       |x3  |		Jump	0x19b
0168 e406       |    |		Load	0x2,0x6
0169 e003       |    |		Load	0x0,0x3
016a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
016b e00f       |    |		Load	0x0,0xf
016c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
016d 00d8       |    |		Load_Top	At_Offset_0
016e 0c1c       |    |		Execute_Immediate	Greater_Equal,0x1c
016f 7025       |p%  |		Jump_Nonzero	0x195
0170 461b       |F   |		Jump_Case	0x1c
0171 7824       |x$  |		Jump	0x196								; case 0x0
0172 7823       |x#  |		Jump	0x196								; case 0x1
0173 7822       |x"  |		Jump	0x196								; case 0x2
0174 7821       |x!  |		Jump	0x196								; case 0x3
0175 7820       |x   |		Jump	0x196								; case 0x4
0176 7816       |x   |		Jump	0x18d								; case 0x5
0177 781e       |x   |		Jump	0x196								; case 0x6
0178 7814       |x   |		Jump	0x18d								; case 0x7
0179 781c       |x   |		Jump	0x196								; case 0x8
017a 781b       |x   |		Jump	0x196								; case 0x9
017b 781a       |x   |		Jump	0x196								; case 0xa
017c 7819       |x   |		Jump	0x196								; case 0xb
017d 7818       |x   |		Jump	0x196								; case 0xc
017e 7817       |x   |		Jump	0x196								; case 0xd
017f 7816       |x   |		Jump	0x196								; case 0xe
0180 7815       |x   |		Jump	0x196								; case 0xf
0181 7814       |x   |		Jump	0x196								; case 0x10
0182 7813       |x   |		Jump	0x196								; case 0x11
0183 7812       |x   |		Jump	0x196								; case 0x12
0184 7811       |x   |		Jump	0x196								; case 0x13
0185 7810       |x   |		Jump	0x196								; case 0x14
0186 780f       |x   |		Jump	0x196								; case 0x15
0187 780e       |x   |		Jump	0x196								; case 0x16
0188 780d       |x   |		Jump	0x196								; case 0x17
0189 780c       |x   |		Jump	0x196								; case 0x18
018a 780b       |x   |		Jump	0x196								; case 0x19
018b 780a       |x   |		Jump	0x196								; case 0x1a
018c 7800       |x   |		Jump	0x18d								; case 0x1b
018d e407       |    |		Load	0x2,0x7
018e e406       |    |		Load	0x2,0x6
018f e003       |    |		Load	0x0,0x3
0190 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0191 e004       |    |		Load	0x0,0x4
0192 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0193 00d1       |    |		Pop_Control	Pop_Count_1
0194 7801       |x   |		Jump	0x196
0195 00d1       |    |		Pop_Control	Pop_Count_1
0196 e406       |    |		Load	0x2,0x6
0197 e003       |    |		Load	0x0,0x3
0198 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0199 c406       |    |		Store	0x2,0x6
019a 00c9       |    |		Action	Pop_Auxiliary_Loop
019b e406       |    |		Load	0x2,0x6
019c e003       |    |		Load	0x0,0x3
019d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
019e 6fc9       |o   |		Jump_Zero	0x168
019f 00ce       |    |		Action	Pop_Auxiliary
01a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a1 ; --------------------------------------------------------------------------------------
01a1 ; STRING TABLE
01a1 ; --------------------------------------------------------------------------------------
01a1 0012       |    |		.STRTAB	0x0012->0x01aa							; "Problem creating object "
01a2 0028       | (  |		.STRTAB	0x0028->0x01b6							; ".  "
01a3 0029       | )  |		.STRTAB	0x0029->0x01b7							; "TYPE INFORMATION"
01a4 0037       | 7  |		.STRTAB	0x0037->0x01bf							; "SORTED BY KIND OF TYPE"
01a5 004b       | K  |		.STRTAB	0x004b->0x01ca							; "SORTED BY NAME OF TYPE"
01a6 005f       | _  |		.STRTAB	0x005f->0x01d5							; "SCALAR TYPES SORTED BY BOUNDS"
01a7 007a       | z  |		.STRTAB	0x007a->0x01e4							; "SUBTYPES SORTED BY NAME OF CONSTRAINED TYPE"
01a8 00a3       |    |		.STRTAB	0x00a3->0x01f9							; "RECORD TYPES SORTED to PRESERVE COMPONENT STRUCTURE"
01a9 00d4       |    |		.STREND 0x00d4->0x0213
01aa 5072 6f62  |Prob|		.STRTAB_STRINGS
0213 0000 0000  |    |		.BLANK	0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug Table
0218 ; --------------------------------------------------------------------------------------
0218 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2f3a,0x0000,0x0001,0x0003
021e 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
0222 001b 022a  |   *|		.DBG4T	0x001b,0x022a,0x8001,0xc000
0226 014b 0292  | K  |		.DBG4T	0x014b,0x0292,0x0001,0x4000
022a ; --------------------------------------------------------------------------------------
022a ; Debug chain
022a ; --------------------------------------------------------------------------------------
022a 000d 0026  |   &|		.DBGLEN	0x000d,0x0026
022c 001b 0021  |   !|		.DBGLNO	0x001b,0x0021,0x0026,0x0033,0x0039,0x003e,0x0041,0x0043,0x0048,0x004b,0x0051,0x0056,0x0058,0x0061,0x0066,0x0068,0x006c,0x006f,0x0078,0x0085,0x008d,0x009d,0x009e,0x00a2,0x00ab,0x00b5,0x00bf,0x00c1,0x00cc,0x00cf,0x00d5,0x00d7,0x00e2,0x00e5,0x00eb,0x00ed,0x00f8,0x00fb,0x0101,0x0103,0x010e,0x0111,0x0117,0x0119,0x0124,0x0127,0x012d,0x0131,0x0136,0x013d,0x0141
025f 0004 0005  |    |		.XXX[0x33]
0261 0006 0007  |    |
0263 0008 0009  |    |
0265 000a 000b  |    |
0267 000c 000d  |    |
0269 000e 000f  |    |
026b 0010 0001  |    |
026d 0002 0003  |    |
026f 0004 0005  |    |
0271 0006 0007  |    |
0273 0008 0009  |    |
0275 000b 000c  |    |
0277 000d 000e  |    |
0279 000f 0010  |    |
027b 0011 0012  |    |
027d 0013 0014  |    |
027f 0015 0016  |    |
0281 0017 0018  |    |
0283 0019 001a  |    |
0285 001b 001c  |    |
0287 001d 001e  |    |
0289 001f 0020  |    |
028b 0021 0022  | ! "|
028d 0023 0024  | # $|
028f 0025 0026  | % &|
0291 0027       | '  |
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug chain
0292 ; --------------------------------------------------------------------------------------
0292 0001 0007  |    |		.DBGLEN	0x0001,0x0007
0294 014b 0150  | K P|		.DBGLNO	0x014b,0x0150,0x0159,0x0162,0x0168,0x018d,0x0196,0x019b
029c 0001 0002  |    |		.XXX[0x7]
029e 0003 0005  |    |
02a0 0006 0008  |    |
02a2 0004       |    |
02a3 0000 0000  |    |		.BLANK	0000[0x15d]