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

⟦3ae1fc7c3⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0400       |    |		.CONST	0x0400								; 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 0032       | 2  |		.CONST	0x0032								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 6062       |`b  |		Indirect_Literal	Discrete,0x70,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f e002       |    |		Load	0x0,0x2
0010 0273       | s  |		Execute	Discrete,Plus
0011 e003       |    |		Load	0x0,0x3
0012 0273       | s  |		Execute	Discrete,Plus
0013 e004       |    |		Load	0x0,0x4
0014 49fb       |I   |		Short_Literal	0x1fb
0015 4800       |H   |		Short_Literal	0x0
0016 e005       |    |		Load	0x0,0x5
0017 0386       |    |		Declare_Variable	Package,Visible
0018 00d8       |    |		Load_Top	At_Offset_0
0019 020f       |    |		Execute	Module,Activate
001a e006       |    |		Load	0x0,0x6
001b 00d9       |    |		Load_Top	At_Offset_1
001c 0098       |    |		Execute	Package,Field_Read_Dynamic
001d 0129       | )  |		Execute	Any,Make_Visible
001e 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
0020 00bf       |    |		Action	Accept_Activation
0021 0007       |    |		Action	Break_Optional
0022 029b 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Unelaborated
0024 029d 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call
0026 4802       |H   |		Short_Literal	0x2
0027 e001       |    |		Load	0x0,0x1
0028 01d7       |    |		Execute	Vector,Field_Read
0029 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
002a 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call
002c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 029d 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call
0030 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0031 00c7       |    |		Action	Elaborate_Subprogram
0032			BODY_0008:
0032 e006       |    |		Load	0x0,0x6
0033 e20d       |    |		Load	0x1,0xd
0034 0098       |    |		Execute	Package,Field_Read_Dynamic
0035 e007       |    |		Load	0x0,0x7
0036 e20d       |    |		Load	0x1,0xd
0037 0096       |    |		Execute	Package,Entry
0038 c20e       |    |		Store	0x1,0xe
0039 00bc       |    |		Action	Signal_Activated
003a 00bb       |    |		Action	Signal_Completion
003b 0000 0000  |    |		.BLANK	0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0045       | E  |		.CONST	0x0045								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0002       |    |		.CONST	0x0002								; Number of locals
0043			INIT_0040:
0043 e008       |    |		Load	0x0,0x8
0044 0007       |    |		Action	Break_Optional
0045			BODY_0040:
0045 8211       |    |		Call	0x1,0x11
0046 8212       |    |		Call	0x1,0x12
0047 e008       |    |		Load	0x0,0x8
0048 e5ff       |    |		Load	0x2,-0x1
0049 00d8       |    |		Load_Top	At_Offset_0
004a 01da       |    |		Execute	Vector,Bounds
004b e009       |    |		Load	0x0,0x9
004c 0334       | 4  |		Declare_Variable	Array,With_Constraint
004d 00d0       |    |		Action	Swap_Control
004e 00d8       |    |		Load_Top	At_Offset_0
004f 01dd       |    |		Execute	Vector,First
0050 00da       |    |		Load_Top	At_Offset_2
0051 01dd       |    |		Execute	Vector,First
0052 0272       | r  |		Execute	Discrete,Minus
0053 00da       |    |		Load_Top	At_Offset_2
0054 01d9       |    |		Execute	Vector,Reverse_Bounds
0055 0263       | c  |		Execute	Discrete,Above_Bound
0056 700a       |p   |		Jump_Nonzero	0x61
0057 00d8       |    |		Load_Top	At_Offset_0
0058 00db       |    |		Load_Top	At_Offset_3
0059 0273       | s  |		Execute	Discrete,Plus
005a e405       |    |		Load	0x2,0x5
005b 01d7       |    |		Execute	Vector,Field_Read
005c 00d9       |    |		Load_Top	At_Offset_1
005d e404       |    |		Load	0x2,0x4
005e 01d5       |    |		Execute	Vector,Field_Reference
005f 0118       |    |		Execute	Any,Write_Unchecked
0060 3ff6       |?   |		Loop_Increasing	0x57
0061 00d2       |    |		Pop_Control	Pop_Count_2
0062 800a       |    |		Call	0x0,0xa
0063 0039       | 9  |		Store_Top	Access,At_Offset_1
0064 00d8       |    |		Load_Top	At_Offset_0
0065 8214       |    |		Call	0x1,0x14
0066 00d8       |    |		Load_Top	At_Offset_0
0067 800b       |    |		Call	0x0,0xb
0068 0039       | 9  |		Store_Top	Access,At_Offset_1
0069 800c       |    |		Call	0x0,0xc
006a 6802       |h   |		Jump_Zero	0x6d
006b e00d       |    |		Load	0x0,0xd
006c 0257       | W  |		Execute	Discrete,Raise
006d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
006e 0000 0000  |    |		.XXX[0x2]
0070 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0074 0000 0000  |    |		.BLANK	0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0087       |    |		.CONST	0x0087								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0005       |    |		.CONST	0x0005								; Number of locals
007b			INIT_0078:
007b e00e       |    |		Load	0x0,0xe
007c 0007       |    |		Action	Break_Optional
007d e008       |    |		Load	0x0,0x8
007e 4840       |H@  |		Short_Literal	0x40
007f 800f       |    |		Call	0x0,0xf
0080 0039       | 9  |		Store_Top	Access,At_Offset_1
0081 e004       |    |		Load	0x0,0x4
0082 02ff       |    |		Declare_Variable	Variant_Record
0083 00d8       |    |		Load_Top	At_Offset_0
0084 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0085 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
0087			BODY_0078:
0087 00da       |    |		Load_Top	At_Offset_2
0088 8010       |    |		Call	0x0,0x10
0089 00d9       |    |		Load_Top	At_Offset_1
008a 00db       |    |		Load_Top	At_Offset_3
008b e402       |    |		Load	0x2,0x2
008c e5ff       |    |		Load	0x2,-0x1
008d 8011       |    |		Call	0x0,0x11
008e c402       |    |		Store	0x2,0x2
008f c403       |    |		Store	0x2,0x3
0090 00d1       |    |		Pop_Control	Pop_Count_1
0091 00db       |    |		Load_Top	At_Offset_3
0092 0f14       |    |		Execute_Immediate	Equal,0x14
0093 7003       |p   |		Jump_Nonzero	0x97
0094 00db       |    |		Load_Top	At_Offset_3
0095 0f0f       |    |		Execute_Immediate	Equal,0xf
0096 6811       |h   |		Jump_Zero	0xa8
0097 e5fe       |    |		Load	0x2,-0x2
0098 6803       |h   |		Jump_Zero	0x9c
0099 0092 0374  |   t|		Action	Push_String_Extended,0x374					; "Expected another parameter name at end of Additonal_Parameters string."
009b 8012       |    |		Call	0x0,0x12
009c 4801       |H   |		Short_Literal	0x1
009d e004       |    |		Load	0x0,0x4
009e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
009f 4800       |H   |		Short_Literal	0x0
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a2 4801       |H   |		Short_Literal	0x1
00a3 00d9       |    |		Load_Top	At_Offset_1
00a4 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00a5 e5fd       |    |		Load	0x2,-0x3
00a6 016d       | m  |		Execute	Variant_Record,Structure_Write
00a7 783e       |x>  |		Jump	0xe6
00a8 00db       |    |		Load_Top	At_Offset_3
00a9 0f05       |    |		Execute_Immediate	Equal,0x5
00aa 6824       |h$  |		Jump_Zero	0xcf
00ab 00d9       |    |		Load_Top	At_Offset_1
00ac 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ad 6821       |h!  |		Jump_Zero	0xcf
00ae 0092 0375  |   u|		Action	Push_String_Extended,0x375					; "Not allowed to change the value for symbol: "
00b0 4a00       |J   |		Short_Literal	0x200
00b1 4801       |H   |		Short_Literal	0x1
00b2 e403       |    |		Load	0x2,0x3
00b3 8013       |    |		Call	0x0,0x13
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 01da       |    |		Execute	Vector,Bounds
00b6 00e9       |    |		Load_Encached	String_Cache
00b7 0334       | 4  |		Declare_Variable	Array,With_Constraint
00b8 00d0       |    |		Action	Swap_Control
00b9 00d8       |    |		Load_Top	At_Offset_0
00ba 01dd       |    |		Execute	Vector,First
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 01dd       |    |		Execute	Vector,First
00bd 0272       | r  |		Execute	Discrete,Minus
00be 00da       |    |		Load_Top	At_Offset_2
00bf 01d9       |    |		Execute	Vector,Reverse_Bounds
00c0 0263       | c  |		Execute	Discrete,Above_Bound
00c1 700a       |p   |		Jump_Nonzero	0xcc
00c2 00d8       |    |		Load_Top	At_Offset_0
00c3 00db       |    |		Load_Top	At_Offset_3
00c4 0273       | s  |		Execute	Discrete,Plus
00c5 e408       |    |		Load	0x2,0x8
00c6 01d7       |    |		Execute	Vector,Field_Read
00c7 00d9       |    |		Load_Top	At_Offset_1
00c8 e407       |    |		Load	0x2,0x7
00c9 01d5       |    |		Execute	Vector,Field_Reference
00ca 0118       |    |		Execute	Any,Write_Unchecked
00cb 3ff6       |?   |		Loop_Increasing	0xc2
00cc 00d2       |    |		Pop_Control	Pop_Count_2
00cd 01cc       |    |		Execute	Vector,Catenate
00ce 8012       |    |		Call	0x0,0x12
00cf 00db       |    |		Load_Top	At_Offset_3
00d0 0f05       |    |		Execute_Immediate	Equal,0x5
00d1 7003       |p   |		Jump_Nonzero	0xd5
00d2 00db       |    |		Load_Top	At_Offset_3
00d3 0f06       |    |		Execute_Immediate	Equal,0x6
00d4 6810       |h   |		Jump_Zero	0xe5
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 e5ff       |    |		Load	0x2,-0x1
00d7 8213       |    |		Call	0x1,0x13
00d8 00d1       |    |		Pop_Control	Pop_Count_1
00d9 4801       |H   |		Short_Literal	0x1
00da 00da       |    |		Load_Top	At_Offset_2
00db e403       |    |		Load	0x2,0x3
00dc 8014       |    |		Call	0x0,0x14
00dd e20e       |    |		Load	0x1,0xe
00de e015       |    |		Load	0x0,0x15
00df e20d       |    |		Load	0x1,0xd
00e0 0096       |    |		Execute	Package,Entry
00e1 00d9       |    |		Load_Top	At_Offset_1
00e2 e5fd       |    |		Load	0x2,-0x3
00e3 016d       | m  |		Execute	Variant_Record,Structure_Write
00e4 7801       |x   |		Jump	0xe6
00e5 8405       |    |		Call	0x2,0x5
00e6 00da       |    |		Load_Top	At_Offset_2
00e7 800b       |    |		Call	0x0,0xb
00e8 003b       | ;  |		Store_Top	Access,At_Offset_3
00e9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ea 0000 0000  |    |		.BLANK	0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 4800       |H   |		Short_Literal	0x0
00f4 4800       |H   |		Short_Literal	0x0
00f5 e004       |    |		Load	0x0,0x4
00f6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00f7 4801       |H   |		Short_Literal	0x1
00f8 00d9       |    |		Load_Top	At_Offset_1
00f9 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00fa 4800       |H   |		Short_Literal	0x0
00fb 00d9       |    |		Load_Top	At_Offset_1
00fc 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00fd 4801       |H   |		Short_Literal	0x1
00fe 4802       |H   |		Short_Literal	0x2
00ff e009       |    |		Load	0x0,0x9
0100 0334       | 4  |		Declare_Variable	Array,With_Constraint
0101 50c6       |P   |		Indirect_Literal	Any,0x1c8,{0x49462020, 0x20202020}
0102 e20e       |    |		Load	0x1,0xe
0103 e015       |    |		Load	0x0,0x15
0104 e20d       |    |		Load	0x1,0xd
0105 0096       |    |		Execute	Package,Entry
0106 4800       |H   |		Short_Literal	0x0
0107 4800       |H   |		Short_Literal	0x0
0108 e004       |    |		Load	0x0,0x4
0109 1c08       |    |		Execute_Immediate	Run_Utility,0x8
010a 4801       |H   |		Short_Literal	0x1
010b 00d9       |    |		Load_Top	At_Offset_1
010c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
010d 4801       |H   |		Short_Literal	0x1
010e 00d9       |    |		Load_Top	At_Offset_1
010f 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0110 4801       |H   |		Short_Literal	0x1
0111 4804       |H   |		Short_Literal	0x4
0112 e009       |    |		Load	0x0,0x9
0113 0334       | 4  |		Declare_Variable	Array,With_Constraint
0114 50b7       |P   |		Indirect_Literal	Any,0x1cc,{0x5448454e, 0x20202020}
0115 e20e       |    |		Load	0x1,0xe
0116 e015       |    |		Load	0x0,0x15
0117 e20d       |    |		Load	0x1,0xd
0118 0096       |    |		Execute	Package,Entry
0119 4800       |H   |		Short_Literal	0x0
011a 4800       |H   |		Short_Literal	0x0
011b e004       |    |		Load	0x0,0x4
011c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
011d 4801       |H   |		Short_Literal	0x1
011e 00d9       |    |		Load_Top	At_Offset_1
011f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0120 4802       |H   |		Short_Literal	0x2
0121 00d9       |    |		Load_Top	At_Offset_1
0122 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0123 4801       |H   |		Short_Literal	0x1
0124 4805       |H   |		Short_Literal	0x5
0125 e009       |    |		Load	0x0,0x9
0126 0334       | 4  |		Declare_Variable	Array,With_Constraint
0127 50a8       |P   |		Indirect_Literal	Any,0x1d0,{0x454c5349, 0x46202020}
0128 e20e       |    |		Load	0x1,0xe
0129 e015       |    |		Load	0x0,0x15
012a e20d       |    |		Load	0x1,0xd
012b 0096       |    |		Execute	Package,Entry
012c 4800       |H   |		Short_Literal	0x0
012d 4800       |H   |		Short_Literal	0x0
012e e004       |    |		Load	0x0,0x4
012f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0130 4801       |H   |		Short_Literal	0x1
0131 00d9       |    |		Load_Top	At_Offset_1
0132 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0133 4803       |H   |		Short_Literal	0x3
0134 00d9       |    |		Load_Top	At_Offset_1
0135 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0136 4801       |H   |		Short_Literal	0x1
0137 4804       |H   |		Short_Literal	0x4
0138 e009       |    |		Load	0x0,0x9
0139 0334       | 4  |		Declare_Variable	Array,With_Constraint
013a 5099       |P   |		Indirect_Literal	Any,0x1d4,{0x454c5345, 0x20202020}
013b e20e       |    |		Load	0x1,0xe
013c e015       |    |		Load	0x0,0x15
013d e20d       |    |		Load	0x1,0xd
013e 0096       |    |		Execute	Package,Entry
013f 4800       |H   |		Short_Literal	0x0
0140 4800       |H   |		Short_Literal	0x0
0141 e004       |    |		Load	0x0,0x4
0142 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0143 4801       |H   |		Short_Literal	0x1
0144 00d9       |    |		Load_Top	At_Offset_1
0145 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0146 4804       |H   |		Short_Literal	0x4
0147 00d9       |    |		Load_Top	At_Offset_1
0148 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0149 4801       |H   |		Short_Literal	0x1
014a 4803       |H   |		Short_Literal	0x3
014b e009       |    |		Load	0x0,0x9
014c 0334       | 4  |		Declare_Variable	Array,With_Constraint
014d 508a       |P   |		Indirect_Literal	Any,0x1d8,{0x454e4420, 0x20202020}
014e e20e       |    |		Load	0x1,0xe
014f e015       |    |		Load	0x0,0x15
0150 e20d       |    |		Load	0x1,0xd
0151 0096       |    |		Execute	Package,Entry
0152 4800       |H   |		Short_Literal	0x0
0153 4800       |H   |		Short_Literal	0x0
0154 e004       |    |		Load	0x0,0x4
0155 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0156 4801       |H   |		Short_Literal	0x1
0157 00d9       |    |		Load_Top	At_Offset_1
0158 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0159 4807       |H   |		Short_Literal	0x7
015a 00d9       |    |		Load_Top	At_Offset_1
015b 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
015c 4801       |H   |		Short_Literal	0x1
015d 4803       |H   |		Short_Literal	0x3
015e e009       |    |		Load	0x0,0x9
015f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0160 507b       |P{  |		Indirect_Literal	Any,0x1dc,{0x4e4f5420, 0x20202020}
0161 e20e       |    |		Load	0x1,0xe
0162 e015       |    |		Load	0x0,0x15
0163 e20d       |    |		Load	0x1,0xd
0164 0096       |    |		Execute	Package,Entry
0165 4800       |H   |		Short_Literal	0x0
0166 4800       |H   |		Short_Literal	0x0
0167 e004       |    |		Load	0x0,0x4
0168 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0169 4801       |H   |		Short_Literal	0x1
016a 00d9       |    |		Load_Top	At_Offset_1
016b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
016c 4808       |H   |		Short_Literal	0x8
016d 00d9       |    |		Load_Top	At_Offset_1
016e 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
016f 4801       |H   |		Short_Literal	0x1
0170 4803       |H   |		Short_Literal	0x3
0171 e009       |    |		Load	0x0,0x9
0172 0334       | 4  |		Declare_Variable	Array,With_Constraint
0173 506c       |Pl  |		Indirect_Literal	Any,0x1e0,{0x414e4420, 0x20202020}
0174 e20e       |    |		Load	0x1,0xe
0175 e015       |    |		Load	0x0,0x15
0176 e20d       |    |		Load	0x1,0xd
0177 0096       |    |		Execute	Package,Entry
0178 4800       |H   |		Short_Literal	0x0
0179 4800       |H   |		Short_Literal	0x0
017a e004       |    |		Load	0x0,0x4
017b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
017c 4801       |H   |		Short_Literal	0x1
017d 00d9       |    |		Load_Top	At_Offset_1
017e 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
017f 4809       |H   |		Short_Literal	0x9
0180 00d9       |    |		Load_Top	At_Offset_1
0181 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0182 4801       |H   |		Short_Literal	0x1
0183 4802       |H   |		Short_Literal	0x2
0184 e009       |    |		Load	0x0,0x9
0185 0334       | 4  |		Declare_Variable	Array,With_Constraint
0186 505d       |P]  |		Indirect_Literal	Any,0x1e4,{0x4f522020, 0x20202020}
0187 e20e       |    |		Load	0x1,0xe
0188 e015       |    |		Load	0x0,0x15
0189 e20d       |    |		Load	0x1,0xd
018a 0096       |    |		Execute	Package,Entry
018b 4800       |H   |		Short_Literal	0x0
018c 4800       |H   |		Short_Literal	0x0
018d e004       |    |		Load	0x0,0x4
018e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
018f 4801       |H   |		Short_Literal	0x1
0190 00d9       |    |		Load_Top	At_Offset_1
0191 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0192 480a       |H   |		Short_Literal	0xa
0193 00d9       |    |		Load_Top	At_Offset_1
0194 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0195 4801       |H   |		Short_Literal	0x1
0196 4803       |H   |		Short_Literal	0x3
0197 e009       |    |		Load	0x0,0x9
0198 0334       | 4  |		Declare_Variable	Array,With_Constraint
0199 504e       |PN  |		Indirect_Literal	Any,0x1e8,{0x584f5220, 0x20202020}
019a e20e       |    |		Load	0x1,0xe
019b e015       |    |		Load	0x0,0x15
019c e20d       |    |		Load	0x1,0xd
019d 0096       |    |		Execute	Package,Entry
019e 4800       |H   |		Short_Literal	0x0
019f 4801       |H   |		Short_Literal	0x1
01a0 e004       |    |		Load	0x0,0x4
01a1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a2 4801       |H   |		Short_Literal	0x1
01a3 00d9       |    |		Load_Top	At_Offset_1
01a4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a5 4800       |H   |		Short_Literal	0x0
01a6 00d9       |    |		Load_Top	At_Offset_1
01a7 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01a8 4801       |H   |		Short_Literal	0x1
01a9 4805       |H   |		Short_Literal	0x5
01aa e009       |    |		Load	0x0,0x9
01ab 0334       | 4  |		Declare_Variable	Array,With_Constraint
01ac 503f       |P?  |		Indirect_Literal	Any,0x1ec,{0x46414c53, 0x45202020}
01ad e20e       |    |		Load	0x1,0xe
01ae e015       |    |		Load	0x0,0x15
01af e20d       |    |		Load	0x1,0xd
01b0 0096       |    |		Execute	Package,Entry
01b1 4800       |H   |		Short_Literal	0x0
01b2 4801       |H   |		Short_Literal	0x1
01b3 e004       |    |		Load	0x0,0x4
01b4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b5 4801       |H   |		Short_Literal	0x1
01b6 00d9       |    |		Load_Top	At_Offset_1
01b7 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01b8 4801       |H   |		Short_Literal	0x1
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01bb 4801       |H   |		Short_Literal	0x1
01bc 4804       |H   |		Short_Literal	0x4
01bd e009       |    |		Load	0x0,0x9
01be 0334       | 4  |		Declare_Variable	Array,With_Constraint
01bf 5030       |P0  |		Indirect_Literal	Any,0x1f0,{0x54525545, 0x20202020}
01c0 e20e       |    |		Load	0x1,0xe
01c1 e015       |    |		Load	0x0,0x15
01c2 e20d       |    |		Load	0x1,0xd
01c3 0096       |    |		Execute	Package,Entry
01c4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 4946 2020  |IF  |		.LITERAL	{0x49462020, 0x20202020}
01cc 5448 454e  |THEN|		.LITERAL	{0x5448454e, 0x20202020}
01d0 454c 5349  |ELSI|		.LITERAL	{0x454c5349, 0x46202020}
01d4 454c 5345  |ELSE|		.LITERAL	{0x454c5345, 0x20202020}
01d8 454e 4420  |END |		.LITERAL	{0x454e4420, 0x20202020}
01dc 4e4f 5420  |NOT |		.LITERAL	{0x4e4f5420, 0x20202020}
01e0 414e 4420  |AND |		.LITERAL	{0x414e4420, 0x20202020}
01e4 4f52 2020  |OR  |		.LITERAL	{0x4f522020, 0x20202020}
01e8 584f 5220  |XOR |		.LITERAL	{0x584f5220, 0x20202020}
01ec 4641 4c53  |FALS|		.LITERAL	{0x46414c53, 0x45202020}
01f0 5452 5545  |TRUE|		.LITERAL	{0x54525545, 0x20202020}
01f4 0000 0000  |    |		.BLANK	0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 020b       |    |		.CONST	0x020b								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0007       |    |		.CONST	0x0007								; Number of locals
01fb			INIT_01f8:
01fb e00e       |    |		Load	0x0,0xe
01fc 0007       |    |		Action	Break_Optional
01fd e008       |    |		Load	0x0,0x8
01fe 4840       |H@  |		Short_Literal	0x40
01ff 800f       |    |		Call	0x0,0xf
0200 0039       | 9  |		Store_Top	Access,At_Offset_1
0201 e008       |    |		Load	0x0,0x8
0202 0007       |    |		Action	Break_Optional
0203 e004       |    |		Load	0x0,0x4
0204 02ff       |    |		Declare_Variable	Variant_Record
0205 00d8       |    |		Load_Top	At_Offset_0
0206 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0207 029f 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Call
0209 029f 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Call
020b			BODY_01f8:
020b e403       |    |		Load	0x2,0x3
020c 8010       |    |		Call	0x0,0x10
020d 00da       |    |		Load_Top	At_Offset_2
020e e403       |    |		Load	0x2,0x3
020f e402       |    |		Load	0x2,0x2
0210 e5ff       |    |		Load	0x2,-0x1
0211 8011       |    |		Call	0x0,0x11
0212 c402       |    |		Store	0x2,0x2
0213 c403       |    |		Store	0x2,0x3
0214 00d1       |    |		Pop_Control	Pop_Count_1
0215 e402       |    |		Load	0x2,0x2
0216 0f14       |    |		Execute_Immediate	Equal,0x14
0217 7003       |p   |		Jump_Nonzero	0x21b
0218 e402       |    |		Load	0x2,0x2
0219 0f0f       |    |		Execute_Immediate	Equal,0xf
021a 680c       |h   |		Jump_Zero	0x227
021b 4801       |H   |		Short_Literal	0x1
021c e004       |    |		Load	0x0,0x4
021d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
021e 4800       |H   |		Short_Literal	0x0
021f 00d9       |    |		Load_Top	At_Offset_1
0220 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0221 4801       |H   |		Short_Literal	0x1
0222 00d9       |    |		Load_Top	At_Offset_1
0223 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0224 e5fe       |    |		Load	0x2,-0x2
0225 016d       | m  |		Execute	Variant_Record,Structure_Write
0226 786f       |xo  |		Jump	0x296
0227 e402       |    |		Load	0x2,0x2
0228 0f0d       |    |		Execute_Immediate	Equal,0xd
0229 6811       |h   |		Jump_Zero	0x23b
022a 00da       |    |		Load_Top	At_Offset_2
022b 4801       |H   |		Short_Literal	0x1
022c e5ff       |    |		Load	0x2,-0x1
022d 8210       |    |		Call	0x1,0x10
022e 00d1       |    |		Pop_Control	Pop_Count_1
022f 4801       |H   |		Short_Literal	0x1
0230 00db       |    |		Load_Top	At_Offset_3
0231 e403       |    |		Load	0x2,0x3
0232 8014       |    |		Call	0x0,0x14
0233 e20e       |    |		Load	0x1,0xe
0234 e015       |    |		Load	0x0,0x15
0235 e20d       |    |		Load	0x1,0xd
0236 0096       |    |		Execute	Package,Entry
0237 00da       |    |		Load_Top	At_Offset_2
0238 e5fe       |    |		Load	0x2,-0x2
0239 016d       | m  |		Execute	Variant_Record,Structure_Write
023a 785b       |x[  |		Jump	0x296
023b e402       |    |		Load	0x2,0x2
023c 0f0e       |    |		Execute_Immediate	Equal,0xe
023d 6857       |hW  |		Jump_Zero	0x295
023e 4840       |H@  |		Short_Literal	0x40
023f 800f       |    |		Call	0x0,0xf
0240 a404       |    |		Store_Unchecked	0x2,0x4
0241 00da       |    |		Load_Top	At_Offset_2
0242 e404       |    |		Load	0x2,0x4
0243 e402       |    |		Load	0x2,0x2
0244 e5ff       |    |		Load	0x2,-0x1
0245 8011       |    |		Call	0x0,0x11
0246 c402       |    |		Store	0x2,0x2
0247 c404       |    |		Store	0x2,0x4
0248 00d1       |    |		Pop_Control	Pop_Count_1
0249 00db       |    |		Load_Top	At_Offset_3
024a 800b       |    |		Call	0x0,0xb
024b c404       |    |		Store	0x2,0x4
024c e402       |    |		Load	0x2,0x2
024d 0f05       |    |		Execute_Immediate	Equal,0x5
024e 6836       |h6  |		Jump_Zero	0x285
024f 00da       |    |		Load_Top	At_Offset_2
0250 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0251 702f       |p/  |		Jump_Nonzero	0x281
0252 0092 0376  |   v|		Action	Push_String_Extended,0x376					; "The keyword "
0254 4a00       |J   |		Short_Literal	0x200
0255 4801       |H   |		Short_Literal	0x1
0256 e403       |    |		Load	0x2,0x3
0257 8013       |    |		Call	0x0,0x13
0258 00d8       |    |		Load_Top	At_Offset_0
0259 01da       |    |		Execute	Vector,Bounds
025a 00e9       |    |		Load_Encached	String_Cache
025b 0334       | 4  |		Declare_Variable	Array,With_Constraint
025c 00d0       |    |		Action	Swap_Control
025d 00d8       |    |		Load_Top	At_Offset_0
025e 01dd       |    |		Execute	Vector,First
025f 00da       |    |		Load_Top	At_Offset_2
0260 01dd       |    |		Execute	Vector,First
0261 0272       | r  |		Execute	Discrete,Minus
0262 00da       |    |		Load_Top	At_Offset_2
0263 01d9       |    |		Execute	Vector,Reverse_Bounds
0264 0263       | c  |		Execute	Discrete,Above_Bound
0265 700a       |p   |		Jump_Nonzero	0x270
0266 00d8       |    |		Load_Top	At_Offset_0
0267 00db       |    |		Load_Top	At_Offset_3
0268 0273       | s  |		Execute	Discrete,Plus
0269 e40a       |    |		Load	0x2,0xa
026a 01d7       |    |		Execute	Vector,Field_Read
026b 00d9       |    |		Load_Top	At_Offset_1
026c e409       |    |		Load	0x2,0x9
026d 01d5       |    |		Execute	Vector,Field_Reference
026e 0118       |    |		Execute	Any,Write_Unchecked
026f 3ff6       |?   |		Loop_Increasing	0x266
0270 00d2       |    |		Pop_Control	Pop_Count_2
0271 01cc       |    |		Execute	Vector,Catenate
0272 0092 0377  |   w|		Action	Push_String_Extended,0x377					; " is not the name of a parameter."
0274 01cc       |    |		Execute	Vector,Catenate
0275 8012       |    |		Call	0x0,0x12
0276 4801       |H   |		Short_Literal	0x1
0277 e004       |    |		Load	0x0,0x4
0278 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0279 4800       |H   |		Short_Literal	0x0
027a 00d9       |    |		Load_Top	At_Offset_1
027b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
027c 4800       |H   |		Short_Literal	0x0
027d 00d9       |    |		Load_Top	At_Offset_1
027e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
027f 00db       |    |		Load_Top	At_Offset_3
0280 016d       | m  |		Execute	Variant_Record,Structure_Write
0281 4800       |H   |		Short_Literal	0x0
0282 00db       |    |		Load_Top	At_Offset_3
0283 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0284 780c       |x   |		Jump	0x291
0285 8406       |    |		Call	0x2,0x6
0286 4801       |H   |		Short_Literal	0x1
0287 e004       |    |		Load	0x0,0x4
0288 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0289 4800       |H   |		Short_Literal	0x0
028a 00d9       |    |		Load_Top	At_Offset_1
028b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
028c 4800       |H   |		Short_Literal	0x0
028d 00d9       |    |		Load_Top	At_Offset_1
028e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
028f 00db       |    |		Load_Top	At_Offset_3
0290 016d       | m  |		Execute	Variant_Record,Structure_Write
0291 00da       |    |		Load_Top	At_Offset_2
0292 e5fe       |    |		Load	0x2,-0x2
0293 016d       | m  |		Execute	Variant_Record,Structure_Write
0294 7801       |x   |		Jump	0x296
0295 8407       |    |		Call	0x2,0x7
0296 e403       |    |		Load	0x2,0x3
0297 800b       |    |		Call	0x0,0xb
0298 c403       |    |		Store	0x2,0x3
0299 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029a 0000 0000  |    |		.BLANK	0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a7       |    |		.CONST	0x02a7								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 e004       |    |		Load	0x0,0x4
02a4 02ff       |    |		Declare_Variable	Variant_Record
02a5 00d8       |    |		Load_Top	At_Offset_0
02a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a7			BODY_02a0:
02a7 00cf       |    |		Action	Mark_Auxiliary
02a8 7806       |x   |		Jump	0x2af
02a9 00d9       |    |		Load_Top	At_Offset_1
02aa 4800       |H   |		Short_Literal	0x0
02ab e5ff       |    |		Load	0x2,-0x1
02ac 8210       |    |		Call	0x1,0x10
02ad 00d1       |    |		Pop_Control	Pop_Count_1
02ae 00c9       |    |		Action	Pop_Auxiliary_Loop
02af e5ff       |    |		Load	0x2,-0x1
02b0 8016       |    |		Call	0x0,0x16
02b1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02b2 77f6       |w   |		Jump_Nonzero	0x2a9
02b3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bf       |    |		.CONST	0x02bf								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e402       |    |		Load	0x2,0x2
02bc e00e       |    |		Load	0x0,0xe
02bd 011c       |    |		Execute	Any,Convert_Unchecked
02be 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02bf			BODY_02b8:
02bf 0092 0378  |   x|		Action	Push_String_Extended,0x378					; "Found a "
02c1 00d9       |    |		Load_Top	At_Offset_1
02c2 01dd       |    |		Execute	Vector,First
02c3 0a03       |    |		Execute_Immediate	Plus,0x3
02c4 00d8       |    |		Load_Top	At_Offset_0
02c5 00e2       |    |		Load_Encached	Integer_Cache
02c6 0260       | `  |		Execute	Discrete,In_Type
02c7 7001       |p   |		Jump_Nonzero	0x2c9
02c8 0801       |    |		Execute_Immediate	Raise,0x1
02c9 00da       |    |		Load_Top	At_Offset_2
02ca 01dc       |    |		Execute	Vector,Last
02cb 00db       |    |		Load_Top	At_Offset_3
02cc 01cf       |    |		Execute	Vector,Slice_Read
02cd 01cc       |    |		Execute	Vector,Catenate
02ce 0092 0379  |   y|		Action	Push_String_Extended,0x379					; " ("
02d0 01cc       |    |		Execute	Vector,Catenate
02d1 4a00       |J   |		Short_Literal	0x200
02d2 4801       |H   |		Short_Literal	0x1
02d3 e403       |    |		Load	0x2,0x3
02d4 8013       |    |		Call	0x0,0x13
02d5 00d8       |    |		Load_Top	At_Offset_0
02d6 01da       |    |		Execute	Vector,Bounds
02d7 00e9       |    |		Load_Encached	String_Cache
02d8 0334       | 4  |		Declare_Variable	Array,With_Constraint
02d9 00d0       |    |		Action	Swap_Control
02da 00d8       |    |		Load_Top	At_Offset_0
02db 01dd       |    |		Execute	Vector,First
02dc 00da       |    |		Load_Top	At_Offset_2
02dd 01dd       |    |		Execute	Vector,First
02de 0272       | r  |		Execute	Discrete,Minus
02df 00da       |    |		Load_Top	At_Offset_2
02e0 01d9       |    |		Execute	Vector,Reverse_Bounds
02e1 0263       | c  |		Execute	Discrete,Above_Bound
02e2 700a       |p   |		Jump_Nonzero	0x2ed
02e3 00d8       |    |		Load_Top	At_Offset_0
02e4 00db       |    |		Load_Top	At_Offset_3
02e5 0273       | s  |		Execute	Discrete,Plus
02e6 e605       |    |		Load	0x3,0x5
02e7 01d7       |    |		Execute	Vector,Field_Read
02e8 00d9       |    |		Load_Top	At_Offset_1
02e9 e604       |    |		Load	0x3,0x4
02ea 01d5       |    |		Execute	Vector,Field_Reference
02eb 0118       |    |		Execute	Any,Write_Unchecked
02ec 3ff6       |?   |		Loop_Increasing	0x2e3
02ed 00d2       |    |		Pop_Control	Pop_Count_2
02ee 01cc       |    |		Execute	Vector,Catenate
02ef 0092 037a  |   z|		Action	Push_String_Extended,0x37a					; ") in the Additional_Parameters argument?"
02f1 01cc       |    |		Execute	Vector,Catenate
02f2 8012       |    |		Call	0x0,0x12
02f3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02f4 0000 0000  |    |		.BLANK	0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02ff       |    |		.CONST	0x02ff								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0002       |    |		.CONST	0x0002								; Number of locals
02fb			INIT_02f8:
02fb e402       |    |		Load	0x2,0x2
02fc e00e       |    |		Load	0x0,0xe
02fd 011c       |    |		Execute	Any,Convert_Unchecked
02fe 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02ff			BODY_02f8:
02ff 0092 0378  |   x|		Action	Push_String_Extended,0x378					; "Found a "
0301 00d9       |    |		Load_Top	At_Offset_1
0302 01dd       |    |		Execute	Vector,First
0303 0a03       |    |		Execute_Immediate	Plus,0x3
0304 00d8       |    |		Load_Top	At_Offset_0
0305 00e2       |    |		Load_Encached	Integer_Cache
0306 0260       | `  |		Execute	Discrete,In_Type
0307 7001       |p   |		Jump_Nonzero	0x309
0308 0801       |    |		Execute_Immediate	Raise,0x1
0309 00da       |    |		Load_Top	At_Offset_2
030a 01dc       |    |		Execute	Vector,Last
030b 00db       |    |		Load_Top	At_Offset_3
030c 01cf       |    |		Execute	Vector,Slice_Read
030d 01cc       |    |		Execute	Vector,Catenate
030e 0092 037b  |   {|		Action	Push_String_Extended,0x37b					; " after "
0310 01cc       |    |		Execute	Vector,Catenate
0311 4a00       |J   |		Short_Literal	0x200
0312 4801       |H   |		Short_Literal	0x1
0313 e403       |    |		Load	0x2,0x3
0314 8013       |    |		Call	0x0,0x13
0315 00d8       |    |		Load_Top	At_Offset_0
0316 01da       |    |		Execute	Vector,Bounds
0317 00e9       |    |		Load_Encached	String_Cache
0318 0334       | 4  |		Declare_Variable	Array,With_Constraint
0319 00d0       |    |		Action	Swap_Control
031a 00d8       |    |		Load_Top	At_Offset_0
031b 01dd       |    |		Execute	Vector,First
031c 00da       |    |		Load_Top	At_Offset_2
031d 01dd       |    |		Execute	Vector,First
031e 0272       | r  |		Execute	Discrete,Minus
031f 00da       |    |		Load_Top	At_Offset_2
0320 01d9       |    |		Execute	Vector,Reverse_Bounds
0321 0263       | c  |		Execute	Discrete,Above_Bound
0322 700a       |p   |		Jump_Nonzero	0x32d
0323 00d8       |    |		Load_Top	At_Offset_0
0324 00db       |    |		Load_Top	At_Offset_3
0325 0273       | s  |		Execute	Discrete,Plus
0326 e605       |    |		Load	0x3,0x5
0327 01d7       |    |		Execute	Vector,Field_Read
0328 00d9       |    |		Load_Top	At_Offset_1
0329 e604       |    |		Load	0x3,0x4
032a 01d5       |    |		Execute	Vector,Field_Reference
032b 0118       |    |		Execute	Any,Write_Unchecked
032c 3ff6       |?   |		Loop_Increasing	0x323
032d 00d2       |    |		Pop_Control	Pop_Count_2
032e 01cc       |    |		Execute	Vector,Catenate
032f 0092 037c  |   ||		Action	Push_String_Extended,0x37c					; "=> in Additonal_Parameters argument?"
0331 01cc       |    |		Execute	Vector,Catenate
0332 8012       |    |		Call	0x0,0x12
0333 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0334 0000 0000  |    |		.BLANK	0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033f       | ?  |		.CONST	0x033f								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0002       |    |		.CONST	0x0002								; Number of locals
033b			INIT_0338:
033b e402       |    |		Load	0x2,0x2
033c e00e       |    |		Load	0x0,0xe
033d 011c       |    |		Execute	Any,Convert_Unchecked
033e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
033f			BODY_0338:
033f 0092 0378  |   x|		Action	Push_String_Extended,0x378					; "Found a "
0341 00d9       |    |		Load_Top	At_Offset_1
0342 01dd       |    |		Execute	Vector,First
0343 0a03       |    |		Execute_Immediate	Plus,0x3
0344 00d8       |    |		Load_Top	At_Offset_0
0345 00e2       |    |		Load_Encached	Integer_Cache
0346 0260       | `  |		Execute	Discrete,In_Type
0347 7001       |p   |		Jump_Nonzero	0x349
0348 0801       |    |		Execute_Immediate	Raise,0x1
0349 00da       |    |		Load_Top	At_Offset_2
034a 01dc       |    |		Execute	Vector,Last
034b 00db       |    |		Load_Top	At_Offset_3
034c 01cf       |    |		Execute	Vector,Slice_Read
034d 01cc       |    |		Execute	Vector,Catenate
034e 0092 0379  |   y|		Action	Push_String_Extended,0x379					; " ("
0350 01cc       |    |		Execute	Vector,Catenate
0351 4a00       |J   |		Short_Literal	0x200
0352 4801       |H   |		Short_Literal	0x1
0353 e403       |    |		Load	0x2,0x3
0354 8013       |    |		Call	0x0,0x13
0355 00d8       |    |		Load_Top	At_Offset_0
0356 01da       |    |		Execute	Vector,Bounds
0357 00e9       |    |		Load_Encached	String_Cache
0358 0334       | 4  |		Declare_Variable	Array,With_Constraint
0359 00d0       |    |		Action	Swap_Control
035a 00d8       |    |		Load_Top	At_Offset_0
035b 01dd       |    |		Execute	Vector,First
035c 00da       |    |		Load_Top	At_Offset_2
035d 01dd       |    |		Execute	Vector,First
035e 0272       | r  |		Execute	Discrete,Minus
035f 00da       |    |		Load_Top	At_Offset_2
0360 01d9       |    |		Execute	Vector,Reverse_Bounds
0361 0263       | c  |		Execute	Discrete,Above_Bound
0362 700a       |p   |		Jump_Nonzero	0x36d
0363 00d8       |    |		Load_Top	At_Offset_0
0364 00db       |    |		Load_Top	At_Offset_3
0365 0273       | s  |		Execute	Discrete,Plus
0366 e605       |    |		Load	0x3,0x5
0367 01d7       |    |		Execute	Vector,Field_Read
0368 00d9       |    |		Load_Top	At_Offset_1
0369 e604       |    |		Load	0x3,0x4
036a 01d5       |    |		Execute	Vector,Field_Reference
036b 0118       |    |		Execute	Any,Write_Unchecked
036c 3ff6       |?   |		Loop_Increasing	0x363
036d 00d2       |    |		Pop_Control	Pop_Count_2
036e 01cc       |    |		Execute	Vector,Catenate
036f 0092 037a  |   z|		Action	Push_String_Extended,0x37a					; ") in the Additional_Parameters argument?"
0371 01cc       |    |		Execute	Vector,Catenate
0372 8012       |    |		Call	0x0,0x12
0373 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0374 ; --------------------------------------------------------------------------------------
0374 ; STRING TABLE
0374 ; --------------------------------------------------------------------------------------
0374 0014       |    |		.STRTAB	0x0014->0x037e							; "Expected another parameter name at end of Additonal_Parameters string."
0375 0058       | X  |		.STRTAB	0x0058->0x03a1							; "Not allowed to change the value for symbol: "
0376 0082       |    |		.STRTAB	0x0082->0x03b7							; "The keyword "
0377 008c       |    |		.STRTAB	0x008c->0x03bd							; " is not the name of a parameter."
0378 00aa       |    |		.STRTAB	0x00aa->0x03cd							; "Found a "
0379 00b0       |    |		.STRTAB	0x00b0->0x03d1							; " ("
037a 00b0       |    |		.STRTAB	0x00b0->0x03d2							; ") in the Additional_Parameters argument?"
037b 00d6       |    |		.STRTAB	0x00d6->0x03e6							; " after "
037c 00db       |    |		.STRTAB	0x00db->0x03e9							; "=> in Additonal_Parameters argument?"
037d 00fd       |    |		.STREND 0x00fd->0x03fb
037e 4578 7065  |Expe|		.STRTAB_STRINGS
03fc 0000 0000  |    |		.BLANK	0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug Table
0400 ; --------------------------------------------------------------------------------------
0400 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x4d1d,0x0000,0x0001,0x000a
0406 000b 042e  |   .|		.DBG4T	0x000b,0x042e,0x8000,0x0000
040a 0021 0433  | ! 3|		.DBG4T	0x0021,0x0433,0x8000,0x0000
040e 0043 043e  | C >|		.DBG4T	0x0043,0x043e,0x0001,0x0000
0412 007b 0448  | { H|		.DBG4T	0x007b,0x0448,0x0001,0x0000
0416 00f3 045b  |   [|		.DBG4T	0x00f3,0x045b,0x0001,0x0000
041a 01fb 0468  |   h|		.DBG4T	0x01fb,0x0468,0x0001,0x0000
041e 02a3 0484  |    |		.DBG4T	0x02a3,0x0484,0x0001,0x4000
0422 02bb 048b  |    |		.DBG4T	0x02bb,0x048b,0x0004,0x0000
0426 02fb 048f  |    |		.DBG4T	0x02fb,0x048f,0x0004,0x0000
042a 033b 0493  | ;  |		.DBG4T	0x033b,0x0493,0x0004,0x0000
042e ; --------------------------------------------------------------------------------------
042e ; Debug chain
042e ; --------------------------------------------------------------------------------------
042e 0003 0000  |    |		.DBGLEN	0x0003,0x0000
0430 000b 001a  |    |		.DBGLNO	0x000b,0x001a,0x001e
0433 ; --------------------------------------------------------------------------------------
0433 ; Debug chain
0433 ; --------------------------------------------------------------------------------------
0433 0008 0001  |    |		.DBGLEN	0x0008,0x0001
0435 0021 0022  | ! "|		.DBGLNO	0x0021,0x0022,0x0024,0x0026,0x002a,0x002c,0x002e,0x0030,0x0032
043e ; --------------------------------------------------------------------------------------
043e ; Debug chain
043e ; --------------------------------------------------------------------------------------
043e 0001 0007  |    |		.DBGLEN	0x0001,0x0007
0440 0043 0045  | C E|		.DBGLNO	0x0043,0x0045,0x0046,0x0047,0x0064,0x0066,0x0069,0x006b
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug chain
0448 ; --------------------------------------------------------------------------------------
0448 0003 000e  |    |		.DBGLEN	0x0003,0x000e
044a 007b 007d  | { }|		.DBGLNO	0x007b,0x007d,0x0081,0x0087,0x0089,0x0091,0x0097,0x0099,0x009c,0x00a8,0x00ae,0x00cf,0x00d5,0x00d9,0x00e1,0x00e5,0x00e6
045b ; --------------------------------------------------------------------------------------
045b ; Debug chain
045b ; --------------------------------------------------------------------------------------
045b 0000 000b  |    |		.DBGLEN	0x0000,0x000b
045d 00f3 0106  |    |		.DBGLNO	0x00f3,0x0106,0x0119,0x012c,0x013f,0x0152,0x0165,0x0178,0x018b,0x019e,0x01b1
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug chain
0468 ; --------------------------------------------------------------------------------------
0468 0004 0016  |    |		.DBGLEN	0x0004,0x0016
046a 01fb 01fd  |    |		.DBGLNO	0x01fb,0x01fd,0x0201,0x0203,0x020b,0x020d,0x0215,0x021b,0x0227,0x022a,0x022f,0x0237,0x023b,0x023e,0x0241,0x0249,0x024c,0x024f,0x0252,0x0276,0x0281,0x0285,0x0286,0x0291,0x0295,0x0296
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug chain
0484 ; --------------------------------------------------------------------------------------
0484 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0486 02a3 02a9  |    |		.DBGLNO	0x02a3,0x02a9,0x02af
0489 0002 0001  |    |		.XXX[0x2]
048b ; --------------------------------------------------------------------------------------
048b ; Debug chain
048b ; --------------------------------------------------------------------------------------
048b 0001 0001  |    |		.DBGLEN	0x0001,0x0001
048d 02bb 02bf  |    |		.DBGLNO	0x02bb,0x02bf
048f ; --------------------------------------------------------------------------------------
048f ; Debug chain
048f ; --------------------------------------------------------------------------------------
048f 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0491 02fb 02ff  |    |		.DBGLNO	0x02fb,0x02ff
0493 ; --------------------------------------------------------------------------------------
0493 ; Debug chain
0493 ; --------------------------------------------------------------------------------------
0493 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0495 033b 033f  | ; ?|		.DBGLNO	0x033b,0x033f
0497 0000 0000  |    |		.BLANK	0000[0x169]