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

⟦f15e34c80⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1b488b

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 0348       | H  |		.CONST	0x0348								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b1       |    |		.CONST	0x00b1								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 60ca       |`   |		Indirect_Literal	Discrete,0xd8,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 0129       | )  |		Execute	Any,Make_Visible
0010 0093 0000  |    |		push_full_address	0x0
0012 60c1       |`   |		Indirect_Literal	Discrete,0xd4,{0x80000000, 0x00020000}
0013 0273       | s  |		Execute	Discrete,Plus
0014 0129       | )  |		Execute	Any,Make_Visible
0015 0093 0000  |    |		push_full_address	0x0
0017 60b8       |`   |		Indirect_Literal	Discrete,0xd0,{0x80000000, 0x00030000}
0018 0273       | s  |		Execute	Discrete,Plus
0019 0129       | )  |		Execute	Any,Make_Visible
001a 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
001c 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
001e 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0020 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0022 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0024 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0026 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0028 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
002a 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
002c 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
002e 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0030 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0032 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0034 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0036 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0038 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
003a 4820       |H   |		Short_Literal	0x20
003b e002       |    |		Load	0x0,0x2
003c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003d 1c07       |    |		Execute_Immediate	Run_Utility,0x7
003e 0129       | )  |		Execute	Any,Make_Visible
003f 4820       |H   |		Short_Literal	0x20
0040 e002       |    |		Load	0x0,0x2
0041 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0042 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0043 0129       | )  |		Execute	Any,Make_Visible
0044 e003       |    |		Load	0x0,0x3
0045 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
0047 4803       |H   |		Short_Literal	0x3
0048 032e       | .  |		Declare_Type	Record,Defined,Visible
0049 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
004b 0093 0000  |    |		push_full_address	0x0
004d 607e       |`~  |		Indirect_Literal	Discrete,0xcc,{0x80000000, 0x00010000}
004e 0273       | s  |		Execute	Discrete,Plus
004f e004       |    |		Load	0x0,0x4
0050 0273       | s  |		Execute	Discrete,Plus
0051 e005       |    |		Load	0x0,0x5
0052 0273       | s  |		Execute	Discrete,Plus
0053 00da       |    |		Load_Top	At_Offset_2
0054 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0055 e006       |    |		Load	0x0,0x6
0056 0386       |    |		Declare_Variable	Package,Visible
0057 00d8       |    |		Load_Top	At_Offset_0
0058 020f       |    |		Execute	Module,Activate
0059 e007       |    |		Load	0x0,0x7
005a 00d9       |    |		Load_Top	At_Offset_1
005b 0098       |    |		Execute	Package,Field_Read_Dynamic
005c 02a0       |    |		Declare_Subprogram	Null_Subprogram
005d 4801       |H   |		Short_Literal	0x1
005e 032e       | .  |		Declare_Type	Record,Defined,Visible
005f e008       |    |		Load	0x0,0x8
0060 00da       |    |		Load_Top	At_Offset_2
0061 0098       |    |		Execute	Package,Field_Read_Dynamic
0062 02a0       |    |		Declare_Subprogram	Null_Subprogram
0063 4801       |H   |		Short_Literal	0x1
0064 032e       | .  |		Declare_Type	Record,Defined,Visible
0065 00bf       |    |		Action	Accept_Activation
0066 e220       |    |		Load	0x1,0x20
0067 0322       | "  |		Declare_Variable	Record
0068 00d8       |    |		Load_Top	At_Offset_0
0069 1c00       |    |		Execute_Immediate	Run_Utility,0x0
006a 00e1       |    |		Load_Encached	Boolean_Cache
006b 029d 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call
006d 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 029d 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call
0071 e009       |    |		Load	0x0,0x9
0072 e222       | "  |		Load	0x1,0x22
0073 0095       |    |		Execute	Package,Field_Reference_Dynamic
0074 00c6       |    |		Action	Check_Subprogram_Elaborated
0075 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0076 0093 0000  |    |		push_full_address	0x0
0078 604f       |`O  |		Indirect_Literal	Discrete,0xc8,{0x80000000, 0x00030000}
0079 0273       | s  |		Execute	Discrete,Plus
007a e004       |    |		Load	0x0,0x4
007b 0273       | s  |		Execute	Discrete,Plus
007c e00a       |    |		Load	0x0,0xa
007d 0273       | s  |		Execute	Discrete,Plus
007e 4800       |H   |		Short_Literal	0x0
007f 0007       |    |		Action	Break_Optional
0080 029d 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call
0082 e00b       |    |		Load	0x0,0xb
0083 e222       | "  |		Load	0x1,0x22
0084 0095       |    |		Execute	Package,Field_Reference_Dynamic
0085 00c6       |    |		Action	Check_Subprogram_Elaborated
0086 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0087 0093 0000  |    |		push_full_address	0x0
0089 603a       |`:  |		Indirect_Literal	Discrete,0xc4,{0x80000000, 0x00020000}
008a 0273       | s  |		Execute	Discrete,Plus
008b e004       |    |		Load	0x0,0x4
008c 0273       | s  |		Execute	Discrete,Plus
008d e00c       |    |		Load	0x0,0xc
008e 0273       | s  |		Execute	Discrete,Plus
008f 4800       |H   |		Short_Literal	0x0
0090 0007       |    |		Action	Break_Optional
0091 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1			BODY_0008:
00b1 00bc       |    |		Action	Signal_Activated
00b2 00bb       |    |		Action	Signal_Completion
00b3 0000 0000  |    |		.BLANK	0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb e00d       |    |		Load	0x0,0xd
00bc e222       | "  |		Load	0x1,0x22
00bd 0096       |    |		Execute	Package,Entry
00be 00db       |    |		Load_Top	At_Offset_3
00bf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c1 0000 0000  |    |		.XXX[0x3]
00c3 0000       |    |
00c4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00c8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00cc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00d0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00d4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00d8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00dc 0000 0000  |    |		.BLANK	0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e9       |    |		.CONST	0x00e9								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0003       |    |		.CONST	0x0003								; Number of locals
00e3			INIT_00e0:
00e3 e220       |    |		Load	0x1,0x20
00e4 0322       | "  |		Declare_Variable	Record
00e5 00d8       |    |		Load_Top	At_Offset_0
00e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e7 e003       |    |		Load	0x0,0x3
00e8 0322       | "  |		Declare_Variable	Record
00e9			BODY_00e0:
00e9 00d8       |    |		Load_Top	At_Offset_0
00ea 800e       |    |		Call	0x0,0xe
00eb 00d1       |    |		Pop_Control	Pop_Count_1
00ec 00d8       |    |		Load_Top	At_Offset_0
00ed e5fe       |    |		Load	0x2,-0x2
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 8227       | '  |		Call	0x1,0x27
00f0 00da       |    |		Load_Top	At_Offset_2
00f1 017d       | }  |		Execute	Record,Structure_Write
00f2 e5ff       |    |		Load	0x2,-0x1
00f3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 e00f       |    |		Load	0x0,0xf
00f6 e222       | "  |		Load	0x1,0x22
00f7 0096       |    |		Execute	Package,Entry
00f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f9 0000 0000  |    |		.BLANK	0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0106       |    |		.CONST	0x0106								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0003       |    |		.CONST	0x0003								; Number of locals
0103			INIT_0100:
0103 e003       |    |		Load	0x0,0x3
0104 0322       | "  |		Declare_Variable	Record
0105 00e1       |    |		Load_Encached	Boolean_Cache
0106			BODY_0100:
0106 00d9       |    |		Load_Top	At_Offset_1
0107 800e       |    |		Call	0x0,0xe
0108 00d1       |    |		Pop_Control	Pop_Count_1
0109 00d9       |    |		Load_Top	At_Offset_1
010a e5fe       |    |		Load	0x2,-0x2
010b e5ff       |    |		Load	0x2,-0x1
010c 8215       |    |		Call	0x1,0x15
010d 00d1       |    |		Pop_Control	Pop_Count_1
010e e5fd       |    |		Load	0x2,-0x3
010f 00da       |    |		Load_Top	At_Offset_2
0110 8010       |    |		Call	0x0,0x10
0111 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0112 00d9       |    |		Load_Top	At_Offset_1
0113 8011       |    |		Call	0x0,0x11
0114 00d1       |    |		Pop_Control	Pop_Count_1
0115 00d8       |    |		Load_Top	At_Offset_0
0116 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0117 0000       |    |		.XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0123       | #  |		.CONST	0x0123								; Address of begin
0119 013f       | ?  |		.CONST	0x013f								; Address of exception handler
011a 0004       |    |		.CONST	0x0004								; Number of locals
011b			INIT_0118:
011b 00e1       |    |		Load_Encached	Boolean_Cache
011c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
011d e220       |    |		Load	0x1,0x20
011e 0322       | "  |		Declare_Variable	Record
011f 00d8       |    |		Load_Top	At_Offset_0
0120 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0121 e003       |    |		Load	0x0,0x3
0122 0322       | "  |		Declare_Variable	Record
0123			BODY_0118:
0123 00d8       |    |		Load_Top	At_Offset_0
0124 800e       |    |		Call	0x0,0xe
0125 00d1       |    |		Pop_Control	Pop_Count_1
0126 00d8       |    |		Load_Top	At_Offset_0
0127 e5fe       |    |		Load	0x2,-0x2
0128 00d8       |    |		Load_Top	At_Offset_0
0129 8227       | '  |		Call	0x1,0x27
012a 00da       |    |		Load_Top	At_Offset_2
012b 017d       | }  |		Execute	Record,Structure_Write
012c 00d9       |    |		Load_Top	At_Offset_1
012d 00e1       |    |		Load_Encached	Boolean_Cache
012e e5ff       |    |		Load	0x2,-0x1
012f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0130 e403       |    |		Load	0x2,0x3
0131 e012       |    |		Load	0x0,0x12
0132 e222       | "  |		Load	0x1,0x22
0133 0096       |    |		Execute	Package,Entry
0134 c402       |    |		Store	0x2,0x2
0135 00d1       |    |		Pop_Control	Pop_Count_1
0136 00da       |    |		Load_Top	At_Offset_2
0137 6805       |h   |		Jump_Zero	0x13d
0138 00d9       |    |		Load_Top	At_Offset_1
0139 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
013a e002       |    |		Load	0x0,0x2
013b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
013c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013d 00ea       |    |		Load_Encached	Null_String_Cache
013e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013f			TRAP_0118:
013f 0007       |    |		Action	Break_Optional
0140 e20f       |    |		Load	0x1,0xf
0141 0257       | W  |		Execute	Discrete,Raise
0142 0000 0000  |    |		.BLANK	0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0153       | S  |		.CONST	0x0153								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0003       |    |		.CONST	0x0003								; Number of locals
014b			INIT_0148:
014b e003       |    |		Load	0x0,0x3
014c 0322       | "  |		Declare_Variable	Record
014d 4820       |H   |		Short_Literal	0x20
014e e002       |    |		Load	0x0,0x2
014f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0150 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0151 00d8       |    |		Load_Top	At_Offset_0
0152 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0153			BODY_0148:
0153 00d8       |    |		Load_Top	At_Offset_0
0154 e002       |    |		Load	0x0,0x2
0155 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0156 00d1       |    |		Pop_Control	Pop_Count_1
0157 00d9       |    |		Load_Top	At_Offset_1
0158 800e       |    |		Call	0x0,0xe
0159 00d1       |    |		Pop_Control	Pop_Count_1
015a 00d9       |    |		Load_Top	At_Offset_1
015b e5fe       |    |		Load	0x2,-0x2
015c e5ff       |    |		Load	0x2,-0x1
015d 8215       |    |		Call	0x1,0x15
015e 00d1       |    |		Pop_Control	Pop_Count_1
015f 00d8       |    |		Load_Top	At_Offset_0
0160 e5fd       |    |		Load	0x2,-0x3
0161 00db       |    |		Load_Top	At_Offset_3
0162 8013       |    |		Call	0x0,0x13
0163 e002       |    |		Load	0x0,0x2
0164 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0165 00d1       |    |		Pop_Control	Pop_Count_1
0166 00d9       |    |		Load_Top	At_Offset_1
0167 8011       |    |		Call	0x0,0x11
0168 00d1       |    |		Pop_Control	Pop_Count_1
0169 00d8       |    |		Load_Top	At_Offset_0
016a e002       |    |		Load	0x0,0x2
016b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
016c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017b       | {  |		.CONST	0x017b								; Address of begin
0171 0196       |    |		.CONST	0x0196								; Address of exception handler
0172 0004       |    |		.CONST	0x0004								; Number of locals
0173			INIT_0170:
0173 00e1       |    |		Load_Encached	Boolean_Cache
0174 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0175 e220       |    |		Load	0x1,0x20
0176 0322       | "  |		Declare_Variable	Record
0177 00d8       |    |		Load_Top	At_Offset_0
0178 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0179 e003       |    |		Load	0x0,0x3
017a 0322       | "  |		Declare_Variable	Record
017b			BODY_0170:
017b 00d8       |    |		Load_Top	At_Offset_0
017c 800e       |    |		Call	0x0,0xe
017d 00d1       |    |		Pop_Control	Pop_Count_1
017e 00d8       |    |		Load_Top	At_Offset_0
017f e5fe       |    |		Load	0x2,-0x2
0180 00d8       |    |		Load_Top	At_Offset_0
0181 8227       | '  |		Call	0x1,0x27
0182 00da       |    |		Load_Top	At_Offset_2
0183 017d       | }  |		Execute	Record,Structure_Write
0184 00d9       |    |		Load_Top	At_Offset_1
0185 00e1       |    |		Load_Encached	Boolean_Cache
0186 e5ff       |    |		Load	0x2,-0x1
0187 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0188 e403       |    |		Load	0x2,0x3
0189 e012       |    |		Load	0x0,0x12
018a e222       | "  |		Load	0x1,0x22
018b 0096       |    |		Execute	Package,Entry
018c c402       |    |		Store	0x2,0x2
018d 00d1       |    |		Pop_Control	Pop_Count_1
018e 00da       |    |		Load_Top	At_Offset_2
018f 6805       |h   |		Jump_Zero	0x195
0190 e5fd       |    |		Load	0x2,-0x3
0191 00da       |    |		Load_Top	At_Offset_2
0192 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0193 8014       |    |		Call	0x0,0x14
0194 00d1       |    |		Pop_Control	Pop_Count_1
0195 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0196			TRAP_0170:
0196 0007       |    |		Action	Break_Optional
0197 e20f       |    |		Load	0x1,0xf
0198 0257       | W  |		Execute	Discrete,Raise
0199 0000 0000  |    |		.BLANK	0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 4800       |H   |		Short_Literal	0x0
01a4 00db       |    |		Load_Top	At_Offset_3
01a5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a6 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
01a7 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
01a8 e00b       |    |		Load	0x0,0xb
01a9 e222       | "  |		Load	0x1,0x22
01aa 0096       |    |		Execute	Package,Entry
01ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01ac 0000 0000  |    |		.BLANK	0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 0092 031a  |    |		Action	Push_String_Extended,0x31a					; "Number of Model:"
01b5 00db       |    |		Load_Top	At_Offset_3
01b6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01b7 e015       |    |		Load	0x0,0x15
01b8 e222       | "  |		Load	0x1,0x22
01b9 0096       |    |		Execute	Package,Entry
01ba 00e0       |    |		Load_Encached	Standard_Cache
01bb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01bc 01cc       |    |		Execute	Vector,Catenate
01bd e016       |    |		Load	0x0,0x16
01be 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
01bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cb       |    |		.CONST	0x01cb								; Address of begin
01c1 01e5       |    |		.CONST	0x01e5								; Address of exception handler
01c2 0004       |    |		.CONST	0x0004								; Number of locals
01c3			INIT_01c0:
01c3 00e1       |    |		Load_Encached	Boolean_Cache
01c4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01c5 e220       |    |		Load	0x1,0x20
01c6 0322       | "  |		Declare_Variable	Record
01c7 00d8       |    |		Load_Top	At_Offset_0
01c8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c9 e003       |    |		Load	0x0,0x3
01ca 0322       | "  |		Declare_Variable	Record
01cb			BODY_01c0:
01cb 00d8       |    |		Load_Top	At_Offset_0
01cc 800e       |    |		Call	0x0,0xe
01cd 00d1       |    |		Pop_Control	Pop_Count_1
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf e5fd       |    |		Load	0x2,-0x3
01d0 8014       |    |		Call	0x0,0x14
01d1 00d1       |    |		Pop_Control	Pop_Count_1
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 00e1       |    |		Load_Encached	Boolean_Cache
01d4 e5fc       |    |		Load	0x2,-0x4
01d5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d6 00db       |    |		Load_Top	At_Offset_3
01d7 e5fe       |    |		Load	0x2,-0x2
01d8 e5ff       |    |		Load	0x2,-0x1
01d9 8227       | '  |		Call	0x1,0x27
01da e017       |    |		Load	0x0,0x17
01db e222       | "  |		Load	0x1,0x22
01dc 0096       |    |		Execute	Package,Entry
01dd c402       |    |		Store	0x2,0x2
01de 00d1       |    |		Pop_Control	Pop_Count_1
01df 00da       |    |		Load_Top	At_Offset_2
01e0 6803       |h   |		Jump_Zero	0x1e4
01e1 00d9       |    |		Load_Top	At_Offset_1
01e2 8228       | (  |		Call	0x1,0x28
01e3 00d1       |    |		Pop_Control	Pop_Count_1
01e4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01e5			TRAP_01c0:
01e5 0007       |    |		Action	Break_Optional
01e6 e20d       |    |		Load	0x1,0xd
01e7 0257       | W  |		Execute	Discrete,Raise
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2
01ec 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ed 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
01ee 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
01ef e009       |    |		Load	0x0,0x9
01f0 e222       | "  |		Load	0x1,0x22
01f1 0096       |    |		Execute	Package,Entry
01f2 00db       |    |		Load_Top	At_Offset_3
01f3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01f4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01fd e018       |    |		Load	0x0,0x18
01fe e222       | "  |		Load	0x1,0x22
01ff 0096       |    |		Execute	Package,Entry
0200 e5fe       |    |		Load	0x2,-0x2
0201 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0202 4800       |H   |		Short_Literal	0x0
0203 a226       | &  |		Store_Unchecked	0x1,0x26
0204 00db       |    |		Load_Top	At_Offset_3
0205 821b       |    |		Call	0x1,0x1b
0206 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b e226       | &  |		Load	0x1,0x26
020c 7012       |p   |		Jump_Nonzero	0x21f
020d 00da       |    |		Load_Top	At_Offset_2
020e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
020f e019       |    |		Load	0x0,0x19
0210 e222       | "  |		Load	0x1,0x22
0211 0096       |    |		Execute	Package,Entry
0212 680a       |h   |		Jump_Zero	0x21d
0213 e225       | %  |		Load	0x1,0x25
0214 00db       |    |		Load_Top	At_Offset_3
0215 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0216 e01a       |    |		Load	0x0,0x1a
0217 e222       | "  |		Load	0x1,0x22
0218 0096       |    |		Execute	Package,Entry
0219 e5ff       |    |		Load	0x2,-0x1
021a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
021b 00d1       |    |		Pop_Control	Pop_Count_1
021c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021d e20e       |    |		Load	0x1,0xe
021e 0257       | W  |		Execute	Discrete,Raise
021f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0228       | (  |		.CONST	0x0228								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e225       | %  |		Load	0x1,0x25
0224 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0225 e002       |    |		Load	0x0,0x2
0226 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0227 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0228			TRAP_0220:
0228 0007       |    |		Action	Break_Optional
0229 e20e       |    |		Load	0x1,0xe
022a 0257       | W  |		Execute	Discrete,Raise
022b 0000 0000  |    |		.BLANK	0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0238       | 8  |		.CONST	0x0238								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 e225       | %  |		Load	0x1,0x25
0234 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0235 e002       |    |		Load	0x0,0x2
0236 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0237 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0238			TRAP_0230:
0238 0007       |    |		Action	Break_Optional
0239 e20e       |    |		Load	0x1,0xe
023a 0257       | W  |		Execute	Discrete,Raise
023b 0000 0000  |    |		.BLANK	0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0248       | H  |		.CONST	0x0248								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00db       |    |		Load_Top	At_Offset_3
0244 e225       | %  |		Load	0x1,0x25
0245 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0246 8014       |    |		Call	0x0,0x14
0247 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0248			TRAP_0240:
0248 0007       |    |		Action	Break_Optional
0249 e20e       |    |		Load	0x1,0xe
024a 0257       | W  |		Execute	Discrete,Raise
024b 0000 0000  |    |		.BLANK	0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0255       | U  |		.CONST	0x0255								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0002       |    |		.CONST	0x0002								; Number of locals
0253			INIT_0250:
0253 00e1       |    |		Load_Encached	Boolean_Cache
0254 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0255			BODY_0250:
0255 00db       |    |		Load_Top	At_Offset_3
0256 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0257 e019       |    |		Load	0x0,0x19
0258 e222       | "  |		Load	0x1,0x22
0259 0096       |    |		Execute	Package,Entry
025a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
025b 00d8       |    |		Load_Top	At_Offset_0
025c 6802       |h   |		Jump_Zero	0x25f
025d 4800       |H   |		Short_Literal	0x0
025e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025f 00d8       |    |		Load_Top	At_Offset_0
0260 0f00       |    |		Execute_Immediate	Equal,0x0
0261 e226       | &  |		Load	0x1,0x26
0262 0f00       |    |		Execute_Immediate	Equal,0x0
0263 0279       | y  |		Execute	Discrete,And
0264 6804       |h   |		Jump_Zero	0x269
0265 4801       |H   |		Short_Literal	0x1
0266 a226       | &  |		Store_Unchecked	0x1,0x26
0267 4800       |H   |		Short_Literal	0x0
0268 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0269 00d8       |    |		Load_Top	At_Offset_0
026a 0f00       |    |		Execute_Immediate	Equal,0x0
026b e226       | &  |		Load	0x1,0x26
026c 0279       | y  |		Execute	Discrete,And
026d 6802       |h   |		Jump_Zero	0x270
026e 4801       |H   |		Short_Literal	0x1
026f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0270 0831       | 1  |		Execute_Immediate	Raise,0x31
0271 0000 0000  |    |		.BLANK	0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d       | }  |		.CONST	0x027d								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
027d			BODY_0278:
027d 8402       |    |		Call	0x2,0x2
027e 0831       | 1  |		Execute_Immediate	Raise,0x31
027f 0000       |    |		.XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0287       |    |		.CONST	0x0287								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 e220       |    |		Load	0x1,0x20
0284 0322       | "  |		Declare_Variable	Record
0285 00d8       |    |		Load_Top	At_Offset_0
0286 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0287			BODY_0280:
0287 00d8       |    |		Load_Top	At_Offset_0
0288 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0289 e002       |    |		Load	0x0,0x2
028a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
028b 00d1       |    |		Pop_Control	Pop_Count_1
028c 00d8       |    |		Load_Top	At_Offset_0
028d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
028e e5ff       |    |		Load	0x2,-0x1
028f e002       |    |		Load	0x0,0x2
0290 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0291 00d1       |    |		Pop_Control	Pop_Count_1
0292 00d8       |    |		Load_Top	At_Offset_0
0293 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0294 e002       |    |		Load	0x0,0x2
0295 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0296 00d1       |    |		Pop_Control	Pop_Count_1
0297 00d8       |    |		Load_Top	At_Offset_0
0298 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0299 e5fe       |    |		Load	0x2,-0x2
029a e002       |    |		Load	0x0,0x2
029b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
029c 00d1       |    |		Pop_Control	Pop_Count_1
029d 00d8       |    |		Load_Top	At_Offset_0
029e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
029f e5fd       |    |		Load	0x2,-0x3
02a0 801b       |    |		Call	0x0,0x1b
02a1 00d1       |    |		Pop_Control	Pop_Count_1
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02a4 0000 0000  |    |		.BLANK	0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02ad 8011       |    |		Call	0x0,0x11
02ae 00d1       |    |		Pop_Control	Pop_Count_1
02af 00da       |    |		Load_Top	At_Offset_2
02b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b1 e002       |    |		Load	0x0,0x2
02b2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02b3 00d1       |    |		Pop_Control	Pop_Count_1
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b6 e002       |    |		Load	0x0,0x2
02b7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02b8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02b9 0000 0000  |    |		.BLANK	0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 0092 031b  |    |		Action	Push_String_Extended,0x31b					; "........................................"
02c5 e016       |    |		Load	0x0,0x16
02c6 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02c9 e002       |    |		Load	0x0,0x2
02ca 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02cb 0092 031c  |    |		Action	Push_String_Extended,0x31c					; " "
02cd 01cc       |    |		Execute	Vector,Catenate
02ce 00db       |    |		Load_Top	At_Offset_3
02cf 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02d0 e002       |    |		Load	0x0,0x2
02d1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d2 01cc       |    |		Execute	Vector,Catenate
02d3 0092 031d  |    |		Action	Push_String_Extended,0x31d					; " With Fields: "
02d5 01cc       |    |		Execute	Vector,Catenate
02d6 e016       |    |		Load	0x0,0x16
02d7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
02d8 00da       |    |		Load_Top	At_Offset_2
02d9 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
02da 801c       |    |		Call	0x0,0x1c
02db 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02dc 0000 0000  |    |		.BLANK	0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 e5ff       |    |		Load	0x2,-0x1
02e4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02e5 e002       |    |		Load	0x0,0x2
02e6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e7 e5fe       |    |		Load	0x2,-0x2
02e8 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02e9 e002       |    |		Load	0x0,0x2
02ea 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02eb 01c1       |    |		Execute	Vector,Less
02ec 6803       |h   |		Jump_Zero	0x2f0
02ed 4fff       |O   |		Short_Literal	-0x1
02ee 00cb       |    |		Action	Pop_Block_With_Result
02ef 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f0 e5ff       |    |		Load	0x2,-0x1
02f1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02f2 e002       |    |		Load	0x0,0x2
02f3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f4 e5fe       |    |		Load	0x2,-0x2
02f5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02f6 e002       |    |		Load	0x0,0x2
02f7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f8 01df       |    |		Execute	Vector,Equal
02f9 6803       |h   |		Jump_Zero	0x2fd
02fa 4800       |H   |		Short_Literal	0x0
02fb 00cb       |    |		Action	Pop_Block_With_Result
02fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02fd 4801       |H   |		Short_Literal	0x1
02fe 00cb       |    |		Action	Pop_Block_With_Result
02ff 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 4601       |F   |		Jump_Case	0x2
0304 7801       |x   |		Jump	0x306								; case 0x0
0305 780d       |x   |		Jump	0x313								; case 0x1
0306 00da       |    |		Load_Top	At_Offset_2
0307 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0308 0125       | %  |		Execute	Any,Set_Constraint
0309 00da       |    |		Load_Top	At_Offset_2
030a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
030b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
030c 00da       |    |		Load_Top	At_Offset_2
030d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
030e 0125       | %  |		Execute	Any,Set_Constraint
030f 00da       |    |		Load_Top	At_Offset_2
0310 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0311 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0312 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0313 00da       |    |		Load_Top	At_Offset_2
0314 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0315 0125       | %  |		Execute	Any,Set_Constraint
0316 00da       |    |		Load_Top	At_Offset_2
0317 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0318 0125       | %  |		Execute	Any,Set_Constraint
0319 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
031a ; --------------------------------------------------------------------------------------
031a ; STRING TABLE
031a ; --------------------------------------------------------------------------------------
031a 000a       |    |		.STRTAB	0x000a->0x031f							; "Number of Model:"
031b 0018       |    |		.STRTAB	0x0018->0x0327							; "........................................"
031c 003e       | >  |		.STRTAB	0x003e->0x033b							; " "
031d 003d       | =  |		.STRTAB	0x003d->0x033b							; " With Fields: "
031e 0049       | I  |		.STREND 0x0049->0x0342
031f 4e75 6d62  |Numb|		.STRTAB_STRINGS
0343 0000 0000  |    |		.BLANK	0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug Table
0348 ; --------------------------------------------------------------------------------------
0348 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0x54e5,0x0000,0x0001,0x0018
034e 000b 03ae  |    |		.DBG4T	0x000b,0x03ae,0x8000,0x8000
0352 0066 03e0  | f  |		.DBG4T	0x0066,0x03e0,0x8000,0x8000
0356 00bb 0412  |    |		.DBG4T	0x00bb,0x0412,0x0001,0x0000
035a 00e3 0415  |    |		.DBG4T	0x00e3,0x0415,0x0002,0x0000
035e 0103 041c  |    |		.DBG4T	0x0103,0x041c,0x0002,0x0000
0362 011b 0425  |   %|		.DBG4T	0x011b,0x0425,0x0002,0x0000
0366 014b 0431  | K 1|		.DBG4T	0x014b,0x0431,0x0002,0x0000
036a 0173 043b  | s ;|		.DBG4T	0x0173,0x043b,0x0001,0x0000
036e 01a3 0446  |   F|		.DBG4T	0x01a3,0x0446,0x0001,0x0000
0372 01b3 0449  |   I|		.DBG4T	0x01b3,0x0449,0x0001,0x0000
0376 01c3 044c  |   L|		.DBG4T	0x01c3,0x044c,0x0001,0x0000
037a 01eb 0457  |   W|		.DBG4T	0x01eb,0x0457,0x0001,0x0000
037e 01fb 045a  |   Z|		.DBG4T	0x01fb,0x045a,0x0001,0x0000
0382 020b 045f  |   _|		.DBG4T	0x020b,0x045f,0x0001,0x0000
0386 0223 0465  | # e|		.DBG4T	0x0223,0x0465,0x0002,0x0000
038a 0233 0469  | 3 i|		.DBG4T	0x0233,0x0469,0x0002,0x0000
038e 0243 046d  | C m|		.DBG4T	0x0243,0x046d,0x0001,0x0000
0392 0253 0471  | S q|		.DBG4T	0x0253,0x0471,0x0002,0x0000
0396 027b 047c  | { ||		.DBG4T	0x027b,0x047c,0x0002,0x0000
039a 0283 047f  |    |		.DBG4T	0x0283,0x047f,0x0002,0x0000
039e 02ab 0488  |    |		.DBG4T	0x02ab,0x0488,0x0001,0x0000
03a2 02c3 048d  |    |		.DBG4T	0x02c3,0x048d,0x0001,0x0000
03a6 02e3 0492  |    |		.DBG4T	0x02e3,0x0492,0x0004,0x0000
03aa 0303 0000  |    |		.DBG4T	0x0303,0x0000,0x0005,0x0000
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug chain
03ae ; --------------------------------------------------------------------------------------
03ae 0018 0000  |    |		.DBGLEN	0x0018,0x0000
03b0 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0015,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x0049,0x004b,0x0059,0x005f
03c8 0001 0002  |    |		.XXX[0x18]
03ca 0003 0007  |    |
03cc 0008 0009  |    |
03ce 000a 000b  |    |
03d0 000c 000d  |    |
03d2 000e 000f  |    |
03d4 0010 0011  |    |
03d6 0012 0013  |    |
03d8 0014 0015  |    |
03da 0016 0017  |    |
03dc 0018 0019  |    |
03de 001a 001b  |    |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug chain
03e0 ; --------------------------------------------------------------------------------------
03e0 0018 0000  |    |		.DBGLEN	0x0018,0x0000
03e2 0066 006a  | f j|		.DBGLNO	0x0066,0x006a,0x006b,0x006d,0x006f,0x0071,0x0080,0x0082,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af
03fa 0004 0005  |    |		.XXX[0x18]
03fc 0006 0007  |    |
03fe 0008 0009  |    |
0400 000a 000b  |    |
0402 000c 000d  |    |
0404 000e 000f  |    |
0406 0010 0011  |    |
0408 0012 0013  |    |
040a 0014 0015  |    |
040c 0016 0017  |    |
040e 0018 0019  |    |
0410 001a 001b  |    |
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug chain
0412 ; --------------------------------------------------------------------------------------
0412 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0414 00bb       |    |		.DBGLNO	0x00bb
0415 ; --------------------------------------------------------------------------------------
0415 ; Debug chain
0415 ; --------------------------------------------------------------------------------------
0415 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0417 00e3 00e7  |    |		.DBGLNO	0x00e3,0x00e7,0x00e9,0x00ec,0x00f2
041c ; --------------------------------------------------------------------------------------
041c ; Debug chain
041c ; --------------------------------------------------------------------------------------
041c 0002 0005  |    |		.DBGLEN	0x0002,0x0005
041e 0103 0105  |    |		.DBGLNO	0x0103,0x0105,0x0106,0x0109,0x010e,0x0112,0x0115
0425 ; --------------------------------------------------------------------------------------
0425 ; Debug chain
0425 ; --------------------------------------------------------------------------------------
0425 0003 0007  |    |		.DBGLEN	0x0003,0x0007
0427 011b 011d  |    |		.DBGLNO	0x011b,0x011d,0x0121,0x0123,0x0126,0x012c,0x0136,0x0138,0x013d,0x0140
0431 ; --------------------------------------------------------------------------------------
0431 ; Debug chain
0431 ; --------------------------------------------------------------------------------------
0431 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0433 014b 014d  | K M|		.DBGLNO	0x014b,0x014d,0x0153,0x0157,0x015a,0x015f,0x0166,0x0169
043b ; --------------------------------------------------------------------------------------
043b ; Debug chain
043b ; --------------------------------------------------------------------------------------
043b 0003 0006  |    |		.DBGLEN	0x0003,0x0006
043d 0173 0175  | s u|		.DBGLNO	0x0173,0x0175,0x0179,0x017b,0x017e,0x0184,0x018e,0x0190,0x0197
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug chain
0446 ; --------------------------------------------------------------------------------------
0446 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0448 01a3       |    |		.DBGLNO	0x01a3
0449 ; --------------------------------------------------------------------------------------
0449 ; Debug chain
0449 ; --------------------------------------------------------------------------------------
0449 0000 0001  |    |		.DBGLEN	0x0000,0x0001
044b 01b3       |    |		.DBGLNO	0x01b3
044c ; --------------------------------------------------------------------------------------
044c ; Debug chain
044c ; --------------------------------------------------------------------------------------
044c 0003 0006  |    |		.DBGLEN	0x0003,0x0006
044e 01c3 01c5  |    |		.DBGLNO	0x01c3,0x01c5,0x01c9,0x01cb,0x01ce,0x01d2,0x01df,0x01e1,0x01e6
0457 ; --------------------------------------------------------------------------------------
0457 ; Debug chain
0457 ; --------------------------------------------------------------------------------------
0457 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0459 01eb       |    |		.DBGLNO	0x01eb
045a ; --------------------------------------------------------------------------------------
045a ; Debug chain
045a ; --------------------------------------------------------------------------------------
045a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
045c 01fb 0202  |    |		.DBGLNO	0x01fb,0x0202,0x0204
045f ; --------------------------------------------------------------------------------------
045f ; Debug chain
045f ; --------------------------------------------------------------------------------------
045f 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0461 020b 020d  |    |		.DBGLNO	0x020b,0x020d,0x0213,0x021d
0465 ; --------------------------------------------------------------------------------------
0465 ; Debug chain
0465 ; --------------------------------------------------------------------------------------
0465 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0467 0223 0229  | # )|		.DBGLNO	0x0223,0x0229
0469 ; --------------------------------------------------------------------------------------
0469 ; Debug chain
0469 ; --------------------------------------------------------------------------------------
0469 0000 0002  |    |		.DBGLEN	0x0000,0x0002
046b 0233 0239  | 3 9|		.DBGLNO	0x0233,0x0239
046d ; --------------------------------------------------------------------------------------
046d ; Debug chain
046d ; --------------------------------------------------------------------------------------
046d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
046f 0243 0249  | C I|		.DBGLNO	0x0243,0x0249
0471 ; --------------------------------------------------------------------------------------
0471 ; Debug chain
0471 ; --------------------------------------------------------------------------------------
0471 0001 0008  |    |		.DBGLEN	0x0001,0x0008
0473 0253 0255  | S U|		.DBGLNO	0x0253,0x0255,0x025b,0x025d,0x025f,0x0265,0x0267,0x0269,0x026e
047c ; --------------------------------------------------------------------------------------
047c ; Debug chain
047c ; --------------------------------------------------------------------------------------
047c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
047e 027d       | }  |		.DBGLNO	0x027d
047f ; --------------------------------------------------------------------------------------
047f ; Debug chain
047f ; --------------------------------------------------------------------------------------
047f 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0481 0283 0287  |    |		.DBGLNO	0x0283,0x0287,0x028c,0x0292,0x0297,0x029d,0x02a2
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug chain
0488 ; --------------------------------------------------------------------------------------
0488 0000 0003  |    |		.DBGLEN	0x0000,0x0003
048a 02ab 02af  |    |		.DBGLNO	0x02ab,0x02af,0x02b4
048d ; --------------------------------------------------------------------------------------
048d ; Debug chain
048d ; --------------------------------------------------------------------------------------
048d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
048f 02c3 02c7  |    |		.DBGLNO	0x02c3,0x02c7,0x02d8
0492 ; --------------------------------------------------------------------------------------
0492 ; Debug chain
0492 ; --------------------------------------------------------------------------------------
0492 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0494 02e3 02ed  |    |		.DBGLNO	0x02e3,0x02ed,0x02f0,0x02fa,0x02fd
0499 0000 0000  |    |		.BLANK	0000[0x167]