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

⟦61e4e64f0⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0398       |    |		.CONST	0x0398								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0071       | q  |		.CONST	0x0071								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4802       |H   |		Short_Literal	0x2
000d 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4803       |H   |		Short_Literal	0x3
0012 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
0014 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0015 00d9       |    |		Load_Top	At_Offset_1
0016 00d9       |    |		Load_Top	At_Offset_1
0017 4801       |H   |		Short_Literal	0x1
0018 4801       |H   |		Short_Literal	0x1
0019 e002       |    |		Load	0x0,0x2
001a 4801       |H   |		Short_Literal	0x1
001b 4800       |H   |		Short_Literal	0x0
001c 4802       |H   |		Short_Literal	0x2
001d 00e7       |    |		Load_Encached	Duration_Cache
001e 00e7       |    |		Load_Encached	Duration_Cache
001f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0020 4802       |H   |		Short_Literal	0x2
0021 4800       |H   |		Short_Literal	0x0
0022 4801       |H   |		Short_Literal	0x1
0023 4800       |H   |		Short_Literal	0x0
0024 4800       |H   |		Short_Literal	0x0
0025 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0026 029f 0293  |    |		Declare_Subprogram	INIT_0290,For_Call
0028 4802       |H   |		Short_Literal	0x2
0029 4800       |H   |		Short_Literal	0x0
002a 4800       |H   |		Short_Literal	0x0
002b 4802       |H   |		Short_Literal	0x2
002c 4801       |H   |		Short_Literal	0x1
002d 4802       |H   |		Short_Literal	0x2
002e 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
002f 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0031 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0033 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0035 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0037 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0039 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
003b 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
003d 00bf       |    |		Action	Accept_Activation
003e 4800       |H   |		Short_Literal	0x0
003f 4805       |H   |		Short_Literal	0x5
0040 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
0042 03fd       |    |		Declare_Type	Discrete,Defined
0043 e003       |    |		Load	0x0,0x3
0044 e004       |    |		Load	0x0,0x4
0045 00da       |    |		Load_Top	At_Offset_2
0046 4800       |H   |		Short_Literal	0x0
0047 4801       |H   |		Short_Literal	0x1
0048 4805       |H   |		Short_Literal	0x5
0049 0092 0335  |   5|		Action	Push_String_Extended,0x335					; "others => Unspecified"
004b 00ea       |    |		Load_Encached	Null_String_Cache
004c 00ea       |    |		Load_Encached	Null_String_Cache
004d 4801       |H   |		Short_Literal	0x1
004e 4805       |H   |		Short_Literal	0x5
004f e005       |    |		Load	0x0,0x5
0050 0387       |    |		Declare_Variable	Package
0051 00d8       |    |		Load_Top	At_Offset_0
0052 020f       |    |		Execute	Module,Activate
0053 e006       |    |		Load	0x0,0x6
0054 e007       |    |		Load	0x0,0x7
0055 00e7       |    |		Load_Encached	Duration_Cache
0056 e008       |    |		Load	0x0,0x8
0057 1b52       | R  |		Execute	Package,Field_Read,Field_Number 0x52
0058 0387       |    |		Declare_Variable	Package
0059 00d8       |    |		Load_Top	At_Offset_0
005a 020f       |    |		Execute	Module,Activate
005b 029d 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call
005d 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call
005f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 029d 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call
0069 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call
006b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0070 00c7       |    |		Action	Elaborate_Subprogram
0071			BODY_0008:
0071 00bc       |    |		Action	Signal_Activated
0072 00bb       |    |		Action	Signal_Completion
0073 0000 0000  |    |		.BLANK	0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 4607       |F   |		Jump_Case	0x8
007c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
007d 7807       |x   |		Jump	0x85								; case 0x1
007e 780a       |x   |		Jump	0x89								; case 0x2
007f 780e       |x   |		Jump	0x8e								; case 0x3
0080 7811       |x   |		Jump	0x92								; case 0x4
0081 7812       |x   |		Jump	0x94								; case 0x5
0082 7813       |x   |		Jump	0x96								; case 0x6
0083 7816       |x   |		Jump	0x9a								; case 0x7
0084 4302       |C   |		.XXX[0x1]
0085 00da       |    |		Load_Top	At_Offset_2
0086 0091 0328  |   (|		Action	Push_String_Extended_Indexed,0x328				; "NONE"
0088 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0089 00db       |    |		Load_Top	At_Offset_3
008a 00db       |    |		Load_Top	At_Offset_3
008b 00e0       |    |		Load_Encached	Standard_Cache
008c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
008d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
008e 00da       |    |		Load_Top	At_Offset_2
008f 00e0       |    |		Load_Encached	Standard_Cache
0090 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0091 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0092 00db       |    |		Load_Top	At_Offset_3
0093 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0094 00db       |    |		Load_Top	At_Offset_3
0095 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0096 e20d       |    |		Load	0x1,0xd
0097 00dc       |    |		Load_Top	At_Offset_4
0098 0267       | g  |		Execute	Discrete,Predecessor
0099 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009a e20d       |    |		Load	0x1,0xd
009b 00dc       |    |		Load_Top	At_Offset_4
009c 0268       | h  |		Execute	Discrete,Successor
009d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4607       |F   |		Jump_Case	0x8
00a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00a5 7807       |x   |		Jump	0xad								; case 0x1
00a6 780a       |x   |		Jump	0xb1								; case 0x2
00a7 780e       |x   |		Jump	0xb6								; case 0x3
00a8 7811       |x   |		Jump	0xba								; case 0x4
00a9 7812       |x   |		Jump	0xbc								; case 0x5
00aa 7813       |x   |		Jump	0xbe								; case 0x6
00ab 7816       |x   |		Jump	0xc2								; case 0x7
00ac 4302       |C   |		.XXX[0x1]
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 0091 032b  |   +|		Action	Push_String_Extended_Indexed,0x32b				; "NO_DURATION"
00b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b1 00db       |    |		Load_Top	At_Offset_3
00b2 00db       |    |		Load_Top	At_Offset_3
00b3 00e0       |    |		Load_Encached	Standard_Cache
00b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 00e0       |    |		Load_Encached	Standard_Cache
00b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ba 00db       |    |		Load_Top	At_Offset_3
00bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00be e20e       |    |		Load	0x1,0xe
00bf 00dc       |    |		Load_Top	At_Offset_4
00c0 0267       | g  |		Execute	Discrete,Predecessor
00c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c2 e20e       |    |		Load	0x1,0xe
00c3 00dc       |    |		Load_Top	At_Offset_4
00c4 0268       | h  |		Execute	Discrete,Successor
00c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c6 0000 0000  |    |		.XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 4800       |H   |		Short_Literal	0x0
00cc 4800       |H   |		Short_Literal	0x0
00cd e20f       |    |		Load	0x1,0xf
00ce 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00cf 00d8       |    |		Load_Top	At_Offset_0
00d0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00d1 00ca       |    |		Action	Exit_Nullary_Function
00d2 0000 0000  |    |		.BLANK	0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e3       |    |		.CONST	0x00e3								; Address of begin
00d9 010e       |    |		.CONST	0x010e								; Address of exception handler
00da 0005       |    |		.CONST	0x0005								; Number of locals
00db			INIT_00d8:
00db e20d       |    |		Load	0x1,0xd
00dc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00dd e20e       |    |		Load	0x1,0xe
00de 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00df e218       |    |		Load	0x1,0x18
00e0 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
00e1 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call
00e3			BODY_00d8:
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 01db       |    |		Execute	Vector,Length
00e5 7002       |p   |		Jump_Nonzero	0xe8
00e6 8210       |    |		Call	0x1,0x10
00e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e8 e5ff       |    |		Load	0x2,-0x1
00e9 e218       |    |		Load	0x1,0x18
00ea 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00eb 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
00ec 00d9       |    |		Load_Top	At_Offset_1
00ed e218       |    |		Load	0x1,0x18
00ee 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00ef 7002       |p   |		Jump_Nonzero	0xf2
00f0 e009       |    |		Load	0x0,0x9
00f1 0257       | W  |		Execute	Discrete,Raise
00f2 4801       |H   |		Short_Literal	0x1
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 e218       |    |		Load	0x1,0x18
00f5 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00f6 6808       |h   |		Jump_Zero	0xff
00f7 00ea       |    |		Load_Encached	Null_String_Cache
00f8 4801       |H   |		Short_Literal	0x1
00f9 00db       |    |		Load_Top	At_Offset_3
00fa e218       |    |		Load	0x1,0x18
00fb 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00fc e20d       |    |		Load	0x1,0xd
00fd 1c02       |    |		Execute_Immediate	Run_Utility,0x2
00fe a402       |    |		Store_Unchecked	0x2,0x2
00ff 4802       |H   |		Short_Literal	0x2
0100 00da       |    |		Load_Top	At_Offset_2
0101 e218       |    |		Load	0x1,0x18
0102 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0103 6808       |h   |		Jump_Zero	0x10c
0104 00ea       |    |		Load_Encached	Null_String_Cache
0105 4802       |H   |		Short_Literal	0x2
0106 00db       |    |		Load_Top	At_Offset_3
0107 e218       |    |		Load	0x1,0x18
0108 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0109 e20e       |    |		Load	0x1,0xe
010a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
010b 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
010c 8405       |    |		Call	0x2,0x5
010d 0831       | 1  |		Execute_Immediate	Raise,0x31
010e			TRAP_00d8:
010e 010e       |    |		Execute	Exception,Is_Constraint_Error
010f 6802       |h   |		Jump_Zero	0x112
0110 e009       |    |		Load	0x0,0x9
0111 0257       | W  |		Execute	Discrete,Raise
0112 0100       |    |		Execute	Exception,Raise
0113 0000 0000  |    |		.BLANK	0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011f       |    |		.CONST	0x011f								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b e20f       |    |		Load	0x1,0xf
011c 02ff       |    |		Declare_Variable	Variant_Record
011d 00d8       |    |		Load_Top	At_Offset_0
011e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011f			BODY_0118:
011f 00d8       |    |		Load_Top	At_Offset_0
0120 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 0833       | 3  |		Execute_Immediate	Raise,0x33
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4829       |H)  |		Short_Literal	0x29
0134 4800       |H   |		Short_Literal	0x0
0135 4805       |H   |		Short_Literal	0x5
0136 e5ff       |    |		Load	0x2,-0x1
0137 821d       |    |		Call	0x1,0x1d
0138 4805       |H   |		Short_Literal	0x5
0139 4801       |H   |		Short_Literal	0x1
013a 4804       |H   |		Short_Literal	0x4
013b e5ff       |    |		Load	0x2,-0x1
013c 821d       |    |		Call	0x1,0x1d
013d 4804       |H   |		Short_Literal	0x4
013e 4801       |H   |		Short_Literal	0x1
013f 4803       |H   |		Short_Literal	0x3
0140 e5ff       |    |		Load	0x2,-0x1
0141 821d       |    |		Call	0x1,0x1d
0142 4803       |H   |		Short_Literal	0x3
0143 4801       |H   |		Short_Literal	0x1
0144 4802       |H   |		Short_Literal	0x2
0145 e5ff       |    |		Load	0x2,-0x1
0146 821d       |    |		Call	0x1,0x1d
0147 4802       |H   |		Short_Literal	0x2
0148 4801       |H   |		Short_Literal	0x1
0149 4801       |H   |		Short_Literal	0x1
014a e5ff       |    |		Load	0x2,-0x1
014b 821d       |    |		Call	0x1,0x1d
014c 4801       |H   |		Short_Literal	0x1
014d 0092 0336  |   6|		Action	Push_String_Extended,0x336					; "(\x0a"
014f 821c       |    |		Call	0x1,0x1c
0150 821c       |    |		Call	0x1,0x1c
0151 821c       |    |		Call	0x1,0x1c
0152 821c       |    |		Call	0x1,0x1c
0153 821c       |    |		Call	0x1,0x1c
0154 01cb       |    |		Execute	Vector,Append
0155 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0156 0000 0000  |    |		.XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 0833       | 3  |		Execute_Immediate	Raise,0x33
015c 0000 0000  |    |		.BLANK	0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 0833       | 3  |		Execute_Immediate	Raise,0x33
0164 0000 0000  |    |		.BLANK	0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 4607       |F   |		Jump_Case	0x8
016c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
016d 7807       |x   |		Jump	0x175								; case 0x1
016e 780a       |x   |		Jump	0x179								; case 0x2
016f 780e       |x   |		Jump	0x17e								; case 0x3
0170 7811       |x   |		Jump	0x182								; case 0x4
0171 7812       |x   |		Jump	0x184								; case 0x5
0172 7813       |x   |		Jump	0x186								; case 0x6
0173 7816       |x   |		Jump	0x18a								; case 0x7
0174 4302       |C   |		.XXX[0x1]
0175 00da       |    |		Load_Top	At_Offset_2
0176 0091 032f  |   /|		Action	Push_String_Extended_Indexed,0x32f				; "NONE"
0178 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0179 00db       |    |		Load_Top	At_Offset_3
017a 00db       |    |		Load_Top	At_Offset_3
017b 00e0       |    |		Load_Encached	Standard_Cache
017c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
017d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017e 00da       |    |		Load_Top	At_Offset_2
017f 00e0       |    |		Load_Encached	Standard_Cache
0180 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0181 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0182 00db       |    |		Load_Top	At_Offset_3
0183 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0184 00db       |    |		Load_Top	At_Offset_3
0185 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0186 e217       |    |		Load	0x1,0x17
0187 00dc       |    |		Load_Top	At_Offset_4
0188 0267       | g  |		Execute	Discrete,Predecessor
0189 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018a e217       |    |		Load	0x1,0x17
018b 00dc       |    |		Load_Top	At_Offset_4
018c 0268       | h  |		Execute	Discrete,Successor
018d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018e 0000 0000  |    |		.XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195       |    |		.CONST	0x0195								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0003       |    |		.CONST	0x0003								; Number of locals
0193			INIT_0190:
0193 00e7       |    |		Load_Encached	Duration_Cache
0194 00e4       |    |		Load_Encached	Positive_Cache
0195			BODY_0190:
0195 00e4       |    |		Load_Encached	Positive_Cache
0196 e219       |    |		Load	0x1,0x19
0197 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0198 e5ff       |    |		Load	0x2,-0x1
0199 e219       |    |		Load	0x1,0x19
019a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
019b 005b       | [  |		Store_Top	Discrete,At_Offset_3
019c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
019d 00d9       |    |		Load_Top	At_Offset_1
019e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019f 0000       |    |		.XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b6       |    |		.CONST	0x01b6								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0003       |    |		.CONST	0x0003								; Number of locals
01a3			INIT_01a0:
01a3 4801       |H   |		Short_Literal	0x1
01a4 4820       |H   |		Short_Literal	0x20
01a5 00e9       |    |		Load_Encached	String_Cache
01a6 035b       | [  |		Declare_Type	Array,Constrained
01a7 0337       | 7  |		Declare_Variable	Array
01a8 00d8       |    |		Load_Top	At_Offset_0
01a9 0335       | 5  |		Declare_Variable	Array,Duplicate
01aa 00cd       |    |		Action	Spare6_Action
01ab 4820       |H   |		Short_Literal	0x20
01ac 4801       |H   |		Short_Literal	0x1
01ad 4820       |H   |		Short_Literal	0x20
01ae 00d9       |    |		Load_Top	At_Offset_1
01af e403       |    |		Load	0x2,0x3
01b0 01d6       |    |		Execute	Vector,Field_Write
01b1 3ffb       |?   |		Loop_Increasing	0x1ad
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 01d4       |    |		Execute	Vector,Structure_Write
01b4 00e3       |    |		Load_Encached	Natural_Cache
01b5 0620       |    |		Execute_Immediate	Set_Value_Unchecked,0x20
01b6			BODY_01a0:
01b6 e5ff       |    |		Load	0x2,-0x1
01b7 0d01       |    |		Execute_Immediate	Less,0x1
01b8 6803       |h   |		Jump_Zero	0x1bc
01b9 0092 0337  |   7|		Action	Push_String_Extended,0x337					; "0.00000"
01bb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bc 00d9       |    |		Load_Top	At_Offset_1
01bd e219       |    |		Load	0x1,0x19
01be 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01bf e219       |    |		Load	0x1,0x19
01c0 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01c1 e5ff       |    |		Load	0x2,-0x1
01c2 e219       |    |		Load	0x1,0x19
01c3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01c4 00d1       |    |		Pop_Control	Pop_Count_1
01c5 00cf       |    |		Action	Mark_Auxiliary
01c6 7804       |x   |		Jump	0x1cb
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 0aff       |    |		Execute_Immediate	Plus,-0x1
01c9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ca 00c9       |    |		Action	Pop_Auxiliary_Loop
01cb 00d9       |    |		Load_Top	At_Offset_1
01cc 00db       |    |		Load_Top	At_Offset_3
01cd 01d7       |    |		Execute	Vector,Field_Read
01ce 0e20       |    |		Execute_Immediate	Not_Equal,0x20
01cf 77f7       |w   |		Jump_Nonzero	0x1c7
01d0 00ce       |    |		Action	Pop_Auxiliary
01d1 00d8       |    |		Load_Top	At_Offset_0
01d2 4820       |H   |		Short_Literal	0x20
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 01cf       |    |		Execute	Vector,Slice_Read
01d5 00e9       |    |		Load_Encached	String_Cache
01d6 01c6       |    |		Execute	Vector,Convert_To_Formal
01d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd       |    |		.CONST	0x01dd								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0002       |    |		.CONST	0x0002								; Number of locals
01db			INIT_01d8:
01db 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
01dd			BODY_01d8:
01dd e5fd       |    |		Load	0x2,-0x3
01de 01db       |    |		Execute	Vector,Length
01df 6810       |h   |		Jump_Zero	0x1f0
01e0 480a       |H   |		Short_Literal	0xa
01e1 e5ff       |    |		Load	0x2,-0x1
01e2 e5fe       |    |		Load	0x2,-0x2
01e3 e217       |    |		Load	0x1,0x17
01e4 011c       |    |		Execute	Any,Convert_Unchecked
01e5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01e6 01cc       |    |		Execute	Vector,Catenate
01e7 0092 0338  |   8|		Action	Push_String_Extended,0x338					; "=>"
01e9 01cc       |    |		Execute	Vector,Catenate
01ea e5fd       |    |		Load	0x2,-0x3
01eb 01cc       |    |		Execute	Vector,Catenate
01ec 8402       |    |		Call	0x2,0x2
01ed 01cc       |    |		Execute	Vector,Catenate
01ee 01cb       |    |		Execute	Vector,Append
01ef 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01f0 00db       |    |		Load_Top	At_Offset_3
01f1 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01f2 0000 0000  |    |		.BLANK	0000[0x6]
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 00db       |    |		Load_Top	At_Offset_3
01fc 4605       |F   |		Jump_Case	0x6
01fd 7810       |x   |		Jump	0x20e								; case 0x0
01fe 7811       |x   |		Jump	0x210								; case 0x1
01ff 7816       |x   |		Jump	0x216								; case 0x2
0200 781b       |x   |		Jump	0x21c								; case 0x3
0201 7824       |x$  |		Jump	0x226								; case 0x4
0202 7800       |x   |		Jump	0x203								; case 0x5
0203 00da       |    |		Load_Top	At_Offset_2
0204 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0205 0f02       |    |		Execute_Immediate	Equal,0x2
0206 6805       |h   |		Jump_Zero	0x20c
0207 00da       |    |		Load_Top	At_Offset_2
0208 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0209 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
020a 821b       |    |		Call	0x1,0x1b
020b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
020c 00ea       |    |		Load_Encached	Null_String_Cache
020d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
020e 00ea       |    |		Load_Encached	Null_String_Cache
020f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0210 00da       |    |		Load_Top	At_Offset_2
0211 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0212 e20d       |    |		Load	0x1,0xd
0213 011c       |    |		Execute	Any,Convert_Unchecked
0214 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0215 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0216 00da       |    |		Load_Top	At_Offset_2
0217 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0218 e20e       |    |		Load	0x1,0xe
0219 011c       |    |		Execute	Any,Convert_Unchecked
021a 1c01       |    |		Execute_Immediate	Run_Utility,0x1
021b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021c 00da       |    |		Load_Top	At_Offset_2
021d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021e 0f01       |    |		Execute_Immediate	Equal,0x1
021f 6804       |h   |		Jump_Zero	0x224
0220 00da       |    |		Load_Top	At_Offset_2
0221 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0222 800a       |    |		Call	0x0,0xa
0223 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0224 00ea       |    |		Load_Encached	Null_String_Cache
0225 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0226 00da       |    |		Load_Top	At_Offset_2
0227 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0228 0f02       |    |		Execute_Immediate	Equal,0x2
0229 6805       |h   |		Jump_Zero	0x22f
022a 00da       |    |		Load_Top	At_Offset_2
022b 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
022c 2e01       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x1
022d 821b       |    |		Call	0x1,0x1b
022e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
022f 00ea       |    |		Load_Encached	Null_String_Cache
0230 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0231 0000 0000  |    |		.BLANK	0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0241       | A  |		.CONST	0x0241								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0002       |    |		.CONST	0x0002								; Number of locals
023b			INIT_0238:
023b e402       |    |		Load	0x2,0x2
023c e403       |    |		Load	0x2,0x3
023d e20f       |    |		Load	0x1,0xf
023e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
023f 00d8       |    |		Load_Top	At_Offset_0
0240 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0241			BODY_0238:
0241 e402       |    |		Load	0x2,0x2
0242 0f01       |    |		Execute_Immediate	Equal,0x1
0243 680f       |h   |		Jump_Zero	0x253
0244 4803       |H   |		Short_Literal	0x3
0245 e404       |    |		Load	0x2,0x4
0246 e218       |    |		Load	0x1,0x18
0247 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0248 682d       |h-  |		Jump_Zero	0x276
0249 e5fe       |    |		Load	0x2,-0x2
024a 00ea       |    |		Load_Encached	Null_String_Cache
024b 4803       |H   |		Short_Literal	0x3
024c e404       |    |		Load	0x2,0x4
024d e218       |    |		Load	0x1,0x18
024e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
024f 800b       |    |		Call	0x0,0xb
0250 00d9       |    |		Load_Top	At_Offset_1
0251 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0252 7823       |x#  |		Jump	0x276
0253 e402       |    |		Load	0x2,0x2
0254 0f02       |    |		Execute_Immediate	Equal,0x2
0255 6820       |h   |		Jump_Zero	0x276
0256 4804       |H   |		Short_Literal	0x4
0257 e404       |    |		Load	0x2,0x4
0258 e218       |    |		Load	0x1,0x18
0259 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
025a 680b       |h   |		Jump_Zero	0x266
025b 00d8       |    |		Load_Top	At_Offset_0
025c 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
025d 00ea       |    |		Load_Encached	Null_String_Cache
025e 4804       |H   |		Short_Literal	0x4
025f e404       |    |		Load	0x2,0x4
0260 e218       |    |		Load	0x1,0x18
0261 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0262 821a       |    |		Call	0x1,0x1a
0263 00d9       |    |		Load_Top	At_Offset_1
0264 2a01       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x1
0265 00d1       |    |		Pop_Control	Pop_Count_1
0266 4805       |H   |		Short_Literal	0x5
0267 e404       |    |		Load	0x2,0x4
0268 e218       |    |		Load	0x1,0x18
0269 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
026a 680b       |h   |		Jump_Zero	0x276
026b 00d8       |    |		Load_Top	At_Offset_0
026c 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
026d 00ea       |    |		Load_Encached	Null_String_Cache
026e 4805       |H   |		Short_Literal	0x5
026f e404       |    |		Load	0x2,0x4
0270 e218       |    |		Load	0x1,0x18
0271 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0272 821a       |    |		Call	0x1,0x1a
0273 00d9       |    |		Load_Top	At_Offset_1
0274 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0275 00d1       |    |		Pop_Control	Pop_Count_1
0276 00d8       |    |		Load_Top	At_Offset_0
0277 00cb       |    |		Action	Pop_Block_With_Result
0278 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0279 0000 0000  |    |		.BLANK	0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 e5fc       |    |		Load	0x2,-0x4
0284 6803       |h   |		Jump_Zero	0x288
0285 0092 0339  |   9|		Action	Push_String_Extended,0x339					; ","
0287 00ca       |    |		Action	Exit_Nullary_Function
0288 00ea       |    |		Load_Encached	Null_String_Cache
0289 00ca       |    |		Action	Exit_Nullary_Function
028a 0000 0000  |    |		.BLANK	0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 4609       |F   |		Jump_Case	0xa
0294 7809       |x   |		Jump	0x29e								; case 0x0
0295 782f       |x/  |		Jump	0x2c5								; case 0x1
0296 7836       |x6  |		Jump	0x2cd								; case 0x2
0297 7839       |x9  |		Jump	0x2d1								; case 0x3
0298 7887       |x   |		Jump	0x320								; case 0x4
0299 7886       |x   |		Jump	0x320								; case 0x5
029a 783d       |x=  |		Jump	0x2d8								; case 0x6
029b 7847       |xG  |		Jump	0x2e3								; case 0x7
029c 7863       |xc  |		Jump	0x300								; case 0x8
029d 787d       |x}  |		Jump	0x31b								; case 0x9
029e 00da       |    |		Load_Top	At_Offset_2
029f 016c       | l  |		Execute	Variant_Record,Is_Constrained
02a0 700a       |p   |		Jump_Nonzero	0x2ab
02a1 00cf       |    |		Action	Mark_Auxiliary
02a2 4800       |H   |		Short_Literal	0x0
02a3 4800       |H   |		Short_Literal	0x0
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a8 c5ff       |    |		Store	0x2,-0x1
02a9 00ce       |    |		Action	Pop_Auxiliary
02aa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02ad 4602       |F   |		Jump_Case	0x3
02ae 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02af 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02b0 7800       |x   |		Jump	0x2b1								; case 0x2
02b1 00da       |    |		Load_Top	At_Offset_2
02b2 2204       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x4
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 2704       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
02b5 00db       |    |		Load_Top	At_Offset_3
02b6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02b7 4801       |H   |		Short_Literal	0x1
02b8 4803       |H   |		Short_Literal	0x3
02b9 0262       | b  |		Execute	Discrete,In_Range
02ba 7001       |p   |		Jump_Nonzero	0x2bc
02bb 7806       |x   |		Jump	0x2c2
02bc 6067       |`g  |		Indirect_Literal	Discrete,0x324,{0x00007fff, 0xffffffff}
02bd 00d9       |    |		Load_Top	At_Offset_1
02be 2a01       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x1
02bf 6064       |`d  |		Indirect_Literal	Discrete,0x324,{0x00007fff, 0xffffffff}
02c0 00d9       |    |		Load_Top	At_Offset_1
02c1 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 2b04       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
02c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02c5 00da       |    |		Load_Top	At_Offset_2
02c6 016b       | k  |		Execute	Variant_Record,Read_Variant
02c7 00d8       |    |		Load_Top	At_Offset_0
02c8 0f02       |    |		Execute_Immediate	Equal,0x2
02c9 6802       |h   |		Jump_Zero	0x2cc
02ca 00db       |    |		Load_Top	At_Offset_3
02cb 2204       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x4
02cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02cd 4802       |H   |		Short_Literal	0x2
02ce 4804       |H   |		Short_Literal	0x4
02cf 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
02d0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02d1 e5fc       |    |		Load	0x2,-0x4
02d2 e5fd       |    |		Load	0x2,-0x3
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 1c07       |    |		Execute_Immediate	Run_Utility,0x7
02d5 e5fe       |    |		Load	0x2,-0x2
02d6 0306       |    |		Complete_Type	Variant_Record,By_Renaming
02d7 4305       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x5
02d8 e5fd       |    |		Load	0x2,-0x3
02d9 4602       |F   |		Jump_Case	0x3
02da 7806       |x   |		Jump	0x2e1								; case 0x0
02db 7803       |x   |		Jump	0x2df								; case 0x1
02dc 7800       |x   |		Jump	0x2dd								; case 0x2
02dd 4802       |H   |		Short_Literal	0x2
02de 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
02df 4801       |H   |		Short_Literal	0x1
02e0 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
02e1 48ff       |H   |		Short_Literal	0xff
02e2 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
02e3 e5fd       |    |		Load	0x2,-0x3
02e4 e5fe       |    |		Load	0x2,-0x2
02e5 e5fd       |    |		Load	0x2,-0x3
02e6 4602       |F   |		Jump_Case	0x3
02e7 7813       |x   |		Jump	0x2fb								; case 0x0
02e8 780f       |x   |		Jump	0x2f8								; case 0x1
02e9 7800       |x   |		Jump	0x2ea								; case 0x2
02ea e5fe       |    |		Load	0x2,-0x2
02eb 4801       |H   |		Short_Literal	0x1
02ec 4803       |H   |		Short_Literal	0x3
02ed 0262       | b  |		Execute	Discrete,In_Range
02ee 7002       |p   |		Jump_Nonzero	0x2f1
02ef 48ff       |H   |		Short_Literal	0xff
02f0 7801       |x   |		Jump	0x2f2
02f1 4801       |H   |		Short_Literal	0x1
02f2 e20f       |    |		Load	0x1,0xf
02f3 2304       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x4
02f4 031b       |    |		Declare_Type	Variant_Record,Constrained
02f5 4801       |H   |		Short_Literal	0x1
02f6 4802       |H   |		Short_Literal	0x2
02f7 7805       |x   |		Jump	0x2fd
02f8 4800       |H   |		Short_Literal	0x0
02f9 4801       |H   |		Short_Literal	0x1
02fa 7802       |x   |		Jump	0x2fd
02fb 4800       |H   |		Short_Literal	0x0
02fc 48ff       |H   |		Short_Literal	0xff
02fd e5ff       |    |		Load	0x2,-0x1
02fe 031b       |    |		Declare_Type	Variant_Record,Constrained
02ff 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0300 e5fd       |    |		Load	0x2,-0x3
0301 e5fe       |    |		Load	0x2,-0x2
0302 e5fd       |    |		Load	0x2,-0x3
0303 e5fe       |    |		Load	0x2,-0x2
0304 e5ff       |    |		Load	0x2,-0x1
0305 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0306 e5ff       |    |		Load	0x2,-0x1
0307 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0308 e5fd       |    |		Load	0x2,-0x3
0309 4602       |F   |		Jump_Case	0x3
030a 780e       |x   |		Jump	0x319								; case 0x0
030b 780d       |x   |		Jump	0x319								; case 0x1
030c 7800       |x   |		Jump	0x30d								; case 0x2
030d e5fe       |    |		Load	0x2,-0x2
030e 4801       |H   |		Short_Literal	0x1
030f 4803       |H   |		Short_Literal	0x3
0310 0262       | b  |		Execute	Discrete,In_Range
0311 7002       |p   |		Jump_Nonzero	0x314
0312 48ff       |H   |		Short_Literal	0xff
0313 7801       |x   |		Jump	0x315
0314 4801       |H   |		Short_Literal	0x1
0315 e20f       |    |		Load	0x1,0xf
0316 2304       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x4
0317 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0318 2f04       |/   |		Execute	Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x4
0319 016a       | j  |		QQ_execute	Variant_Record,XXX
031a 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
031b 4800       |H   |		Short_Literal	0x0
031c 4800       |H   |		Short_Literal	0x0
031d e5ff       |    |		Load	0x2,-0x1
031e 1c07       |    |		Execute_Immediate	Run_Utility,0x7
031f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0320 0869       | i  |		Execute_Immediate	Raise,0x69
0321 0000 0000  |    |		.XXX[0x3]
0323 0000       |    |
0324 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0328 ; --------------------------------------------------------------------------------------
0328 ; STRING TABLE
0328 ; --------------------------------------------------------------------------------------
0328 0026       | &  |		.STRTAB	0x0026->0x033b							; "NONE"
0329 0028       | (  |		.STRTAB	0x0028->0x033d							; "CLAUSE"
032a 002c       | ,  |		.STRTAB	0x002c->0x0340							; "DURATION_LIMIT"
032b 0038       | 8  |		.STRTAB	0x0038->0x0347							; "NO_DURATION"
032c 0041       | A  |		.STRTAB	0x0041->0x034c							; "MAX_CPU"
032d 0046       | F  |		.STRTAB	0x0046->0x0350							; "MAX_ELAPSED"
032e 004f       | O  |		.STRTAB	0x004f->0x0355							; "DURATION_AND_ELAPSED"
032f 0061       | a  |		.STRTAB	0x0061->0x035f							; "NONE"
0330 0063       | c  |		.STRTAB	0x0063->0x0361							; "CONTROL"
0331 0068       | h  |		.STRTAB	0x0068->0x0365							; "TIME_CONTROL"
0332 0072       | r  |		.STRTAB	0x0072->0x036b							; "TERMINATION_CLAUSE"
0333 0082       |    |		.STRTAB	0x0082->0x0374							; "MAX_CPU_LIMIT"
0334 008d       |    |		.STRTAB	0x008d->0x037a							; "MAX_ELAPSED_LIMIT"
0335 009c       |    |		.STRTAB	0x009c->0x0383							; "others => Unspecified"
0336 00af       |    |		.STRTAB	0x00af->0x038d							; "(\x0a"
0337 00af       |    |		.STRTAB	0x00af->0x038e							; "0.00000"
0338 00b4       |    |		.STRTAB	0x00b4->0x0392							; "=>"
0339 00b4       |    |		.STRTAB	0x00b4->0x0393							; ","
033a 00b3       |    |		.STREND 0x00b3->0x0393
033b 4e4f 4e45  |NONE|		.STRTAB_STRINGS
0394 0000 0000  |    |		.BLANK	0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug Table
0398 ; --------------------------------------------------------------------------------------
0398 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x5d75,0x0000,0x0001,0x0000
039e 0000 0000  |    |		.BLANK	0000[0x62]