DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦e9928fff4⟧ SEG

    Length: 3072 (0xc00)
    Types: SEG
    Notes: 5805_R1K_CODE
    Names: »10943505.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »10943505.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »10943505.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »10943505.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »10943505.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »10943505.SEG« 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5805       |X   |		.CONST	0x5805								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02b0       |    |		.CONST	0x02b0								; 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 0074       | t  |		.CONST	0x0074								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0 = .DEBUG	0x000b,0x035a,0x8000,0x0000,0x000e,0x06e4,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4801       |H   |		Short_Literal	0x1
000d 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 e20d       |    |		Load	0x1,0xd
0012 4801       |H   |		Short_Literal	0x1
0013 4801       |H   |		Short_Literal	0x1
0014 4802       |H   |		Short_Literal	0x2
0015 4803       |H   |		Short_Literal	0x3
0016 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0017 e20e       |    |		Load	0x1,0xe								; Debug Table 0x0.0x2 = 0x17,0xfffd
0018 0129       | )  |		Execute	Any,Make_Visible
0019 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0.0x3 = 0x19,0xfffc
001a 0129       | )  |		Execute	Any,Make_Visible
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x4 = 0x1b,0xfffb
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x5 = 0x1c,0xfffa
001d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x1d,0xfff9
001f 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1f,0xfff8
0021 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x21,0xfff7
0023 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x23,0xfff6
0025 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x25,0xfff5
0027 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x27,0xfff4
0029 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x29,0xfff3
002b 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x2b,0xfff2
002d 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x2d,0xfff1
002f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x2f,0xfff0
0031 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x31,0xffef
0033 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x33,0xffee
0035 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x35,0xffed
0037 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x37,0xffec
0039 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x14 = 0x39,0xffeb
003a 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x15 = 0x3a,0xffea
003b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x16 = 0x3b,0xffe9
003c 4800       |H   |		Short_Literal	0x0
003d 4801       |H   |		Short_Literal	0x1
003e 4850       |HP  |		Short_Literal	0x50
003f 00e9       |    |		Load_Encached	String_Cache
0040 035b       | [  |		Declare_Type	Array,Constrained
0041 4801       |H   |		Short_Literal	0x1
0042 00e3       |    |		Load_Encached	Natural_Cache
0043 02a0       |    |		Declare_Subprogram	Null_Subprogram
0044 4801       |H   |		Short_Literal	0x1
0045 4801       |H   |		Short_Literal	0x1
0046 4801       |H   |		Short_Literal	0x1
0047 4800       |H   |		Short_Literal	0x0
0048 4800       |H   |		Short_Literal	0x0
0049 031d       |    |		Declare_Type	Variant_Record,Defined
004a 029f 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Call
004c 4801       |H   |		Short_Literal	0x1
004d 4800       |H   |		Short_Literal	0x0
004e 4800       |H   |		Short_Literal	0x0
004f e20e       |    |		Load	0x1,0xe
0050 0307       |    |		Complete_Type	Variant_Record,By_Defining
0051 00bf       |    |		Action	Accept_Activation
0052 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1 = .DEBUG	0x0052,0x038a,0x8000,0x0000,0x000e,0x2324,0x0000,0x0006
													; Debug Table 0x1.0x0 = 0x52,0xffff
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 029d 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call			; Debug Table 0x1.0x1 = 0x54,0xfffe
0056 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x2 = 0x56,0xfffd
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 029d 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call			; Debug Table 0x1.0x3 = 0x58,0xfffc
005a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x4 = 0x5a,0xfffb
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x5 = 0x5c,0xfffa
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x6 = 0x5e,0xfff9
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x7 = 0x60,0xfff8
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x8 = 0x62,0xfff7
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x9 = 0x64,0xfff6
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 029d 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call			; Debug Table 0x1.0xa = 0x66,0xfff5
0068 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0xb = 0x68,0xfff4
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0xc = 0x6a,0xfff3
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0xd = 0x6c,0xfff2
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0xe = 0x6e,0xfff1
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0xf = 0x70,0xfff0
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x10 = 0x72,0xffef
0073 00c7       |    |		Action	Elaborate_Subprogram
0074			BODY_0008:
0074 00bc       |    |		Action	Signal_Activated
0075 00bb       |    |		Action	Signal_Completion
0076 0000 0000  |    |		.XXX[0x2]
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 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x007b,0x03ae,0x0005,0x0000,0x000e,0x06e4,0x0000,0x0004
007c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
007d 7802       |x   |		Jump	0x80								; case 0x1
007e 7805       |x   |		Jump	0x84								; case 0x2
007f 7809       |x   |		Jump	0x89								; case 0x3
0080 e5ff       |    |		Load	0x2,-0x1
0081 0091 0294  |    |		Action	Push_String_Extended_Indexed,0x294				; "NONE"
0083 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0084 e5fe       |    |		Load	0x2,-0x2
0085 e5ff       |    |		Load	0x2,-0x1
0086 00e0       |    |		Load_Encached	Standard_Cache
0087 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0088 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0089 e5ff       |    |		Load	0x2,-0x1
008a 00e0       |    |		Load_Encached	Standard_Cache
008b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
008c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3 = .DEBUG	0x0093,0x03b0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x002c
													; Debug Table 0x3.0x0 = 0x93,0x1
0094 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0095 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0096 0000 0000  |    |		.XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4 = .DEBUG	0x009b,0x03b4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0035
													; Debug Table 0x4.0x0 = 0x9b,0x1
009c 4800       |H   |		Short_Literal	0x0
009d e20e       |    |		Load	0x1,0xe
009e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
009f e402       |    |		Load	0x2,0x2
00a0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00a1 e5ff       |    |		Load	0x2,-0x1
00a2 821f       |    |		Call	0x1,0x1f
00a3 e20e       |    |		Load	0x1,0xe
00a4 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
00a5 2301       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x1
00a6 0119       |    |		Execute	Any,Check_In_Formal_Type
00a7 e402       |    |		Load	0x2,0x2
00a8 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00a9 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
00aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ab 0000 0000  |    |		.BLANK	0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5 = .DEBUG	0x00b3,0x03b8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x003e
													; Debug Table 0x5.0x0 = 0xb3,0x1
00b4 4800       |H   |		Short_Literal	0x0
00b5 e20e       |    |		Load	0x1,0xe
00b6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b7 e402       |    |		Load	0x2,0x2
00b8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00b9 e5ff       |    |		Load	0x2,-0x1
00ba 8220       |    |		Call	0x1,0x20
00bb 821f       |    |		Call	0x1,0x1f
00bc e20e       |    |		Load	0x1,0xe
00bd 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
00be 2301       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x1
00bf 0119       |    |		Execute	Any,Check_In_Formal_Type
00c0 e402       |    |		Load	0x2,0x2
00c1 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00c2 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
00c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c4 0000 0000  |    |		.BLANK	0000[0x4]
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 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6 = .DEBUG	0x00cb,0x03bc,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0047
													; Debug Table 0x6.0x0 = 0xcb,0x1
00cc 4801       |H   |		Short_Literal	0x1
00cd e20e       |    |		Load	0x1,0xe
00ce 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00cf e402       |    |		Load	0x2,0x2
00d0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00d1 e5fe       |    |		Load	0x2,-0x2
00d2 e402       |    |		Load	0x2,0x2
00d3 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00d4 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00d5 e5ff       |    |		Load	0x2,-0x1
00d6 8220       |    |		Call	0x1,0x20
00d7 821f       |    |		Call	0x1,0x1f
00d8 e20e       |    |		Load	0x1,0xe
00d9 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
00da 2301       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x1
00db 0119       |    |		Execute	Any,Check_In_Formal_Type
00dc e402       |    |		Load	0x2,0x2
00dd 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00de 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
00df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7 = .DEBUG	0x00e3,0x03c0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0054
													; Debug Table 0x7.0x0 = 0xe3,0x1
00e4 4801       |H   |		Short_Literal	0x1
00e5 e20e       |    |		Load	0x1,0xe
00e6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00e7 e402       |    |		Load	0x2,0x2
00e8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00e9 e5fe       |    |		Load	0x2,-0x2
00ea e402       |    |		Load	0x2,0x2
00eb 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00ec 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00ed e5ff       |    |		Load	0x2,-0x1
00ee 821f       |    |		Call	0x1,0x1f
00ef e20e       |    |		Load	0x1,0xe
00f0 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
00f1 2301       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x1
00f2 0119       |    |		Execute	Any,Check_In_Formal_Type
00f3 e402       |    |		Load	0x2,0x2
00f4 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00f5 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
00f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f7 0000       |    |		.XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8 = .DEBUG	0x00fb,0x03c4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0061
													; Debug Table 0x8.0x0 = 0xfb,0x1
00fc 4800       |H   |		Short_Literal	0x0
00fd e20e       |    |		Load	0x1,0xe
00fe 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ff e402       |    |		Load	0x2,0x2
0100 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0101 00ca       |    |		Action	Exit_Nullary_Function
0102 0000 0000  |    |		.BLANK	0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9 = .DEBUG	0x010b,0x03c8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0066
													; Debug Table 0x9.0x0 = 0x10b,0x1
010c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa = .DEBUG	0x0113,0x03cc,0x0002,0x0000,0x000e,0x06e4,0x0000,0x006f
													; Debug Table 0xa.0x0 = 0x113,0x1
0114 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0115 2401       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x1
0116 8217       |    |		Call	0x1,0x17
0117 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb = .DEBUG	0x011b,0x03d0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0078
													; Debug Table 0xb.0x0 = 0x11b,0x1
011c 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
011d 2401       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x1
011e 8221       | !  |		Call	0x1,0x21
011f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc = .DEBUG	0x0123,0x03d4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0081
													; Debug Table 0xc.0x0 = 0x123,0x1
0124 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0125 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0126 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0127 0000       |    |		.XXX[0x1]
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 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd = .DEBUG	0x012b,0x03d8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x008a
													; Debug Table 0xd.0x0 = 0x12b,0x1
012c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012d 4601       |F   |		Jump_Case	0x2
012e 7801       |x   |		Jump	0x130								; case 0x0
012f 7803       |x   |		Jump	0x133								; case 0x1
0130 0092 0296  |    |		Action	Push_String_Extended,0x296					; "f"
													; Debug Table 0xd.0x1 = 0x130,0x2
0132 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0133 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0x2 = 0x133,0x3
0134 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0135 4601       |F   |		Jump_Case	0x2
0136 7801       |x   |		Jump	0x138								; case 0x0
0137 780a       |x   |		Jump	0x142								; case 0x1
0138 4822       |H"  |		Short_Literal	0x22							; Debug Table 0xd.0x3 = 0x138,0x4
0139 0092 0297  |    |		Action	Push_String_Extended,0x297					; "t \x22"
013b e5ff       |    |		Load	0x2,-0x1
013c 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
013d 2401       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x1
013e 8221       | !  |		Call	0x1,0x21
013f 01cc       |    |		Execute	Vector,Catenate
0140 01cb       |    |		Execute	Vector,Append
0141 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0142 4822       |H"  |		Short_Literal	0x22							; Debug Table 0xd.0x4 = 0x142,0x5
0143 0092 0297  |    |		Action	Push_String_Extended,0x297					; "t \x22"
0145 e5ff       |    |		Load	0x2,-0x1
0146 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0147 2401       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x1
0148 8221       | !  |		Call	0x1,0x21
0149 01cc       |    |		Execute	Vector,Catenate
014a 01cb       |    |		Execute	Vector,Append
014b e5ff       |    |		Load	0x2,-0x1
014c 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
014d 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
014e 00e0       |    |		Load_Encached	Standard_Cache
014f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0150 01cc       |    |		Execute	Vector,Catenate
0151 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0152 0000 0000  |    |		.BLANK	0000[0x6]
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 8216       |    |		Call	0x1,0x16							; Debug Table 0xe = .DEBUG	0x015b,0x03e4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0093
													; Debug Table 0xe.0x0 = 0x15b,0x1
015c 821b       |    |		Call	0x1,0x1b
015d 00ca       |    |		Action	Exit_Nullary_Function
015e 0000 0000  |    |		.XXX[0x2]
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 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xf = .DEBUG	0x0163,0x03e8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0098
													; Debug Table 0xf.0x0 = 0x163,0x1
0164 8212       |    |		Call	0x1,0x12
0165 821b       |    |		Call	0x1,0x1b
0166 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 017f       |    |		.CONST	0x017f								; Address of begin
0169 01d9       |    |		.CONST	0x01d9								; Address of exception handler
016a 0008       |    |		.CONST	0x0008								; Number of locals
016b			INIT_0168:
016b 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x10 = .DEBUG	0x016b,0x03ec,0x0002,0x0000,0x000e,0x06e4,0x0000,0x00a1
													; Debug Table 0x10.0x0 = 0x16b,0xffff
016c 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x10.0x1 = 0x16c,0xfffe
016d 4859       |HY  |		Short_Literal	0x59							; Debug Table 0x10.0x2 = 0x16d,0xfffd
016e e001       |    |		Load	0x0,0x1
016f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0170 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0171 e404       |    |		Load	0x2,0x4
0172 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0173 480f       |H   |		Short_Literal	0xf							; Debug Table 0x10.0x3 = 0x173,0xfffc
0174 e002       |    |		Load	0x0,0x2
0175 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0176 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0177 e405       |    |		Load	0x2,0x5
0178 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0179 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10.0x4 = 0x179,0xfffb
017a 4850       |HP  |		Short_Literal	0x50
017b 00e9       |    |		Load_Encached	String_Cache
017c 0334       | 4  |		Declare_Variable	Array,With_Constraint
017d 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x10.0x5 = 0x17d,0xfffa
017e 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x10.0x6 = 0x17e,0xfff9
017f			BODY_0168:
017f e404       |    |		Load	0x2,0x4								; Debug Table 0x10.0x7 = 0x17f,0x1
0180 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0181 e5ff       |    |		Load	0x2,-0x1
0182 e002       |    |		Load	0x0,0x2
0183 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0184 00d1       |    |		Pop_Control	Pop_Count_1
0185 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10.0x8 = 0x185,0x2
0186 e404       |    |		Load	0x2,0x4
0187 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0188 e405       |    |		Load	0x2,0x5								; Debug Table 0x10.0x9 = 0x188,0x3
0189 e404       |    |		Load	0x2,0x4
018a e001       |    |		Load	0x0,0x1
018b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
018c 00d2       |    |		Pop_Control	Pop_Count_2
018d 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10.0xa = 0x18d,0x4
018e e405       |    |		Load	0x2,0x5
018f e002       |    |		Load	0x0,0x2
0190 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0191 0f74       | t  |		Execute_Immediate	Equal,0x74
0192 7006       |p   |		Jump_Nonzero	0x199
0193 4801       |H   |		Short_Literal	0x1
0194 e405       |    |		Load	0x2,0x5
0195 e002       |    |		Load	0x0,0x2
0196 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0197 0f54       | T  |		Execute_Immediate	Equal,0x54
0198 7801       |x   |		Jump	0x19a
0199 4801       |H   |		Short_Literal	0x1
019a a408       |    |		Store_Unchecked	0x2,0x8
019b e408       |    |		Load	0x2,0x8								; Debug Table 0x10.0xb = 0x19b,0x5
019c 6835       |h5  |		Jump_Zero	0x1d2
019d e406       |    |		Load	0x2,0x6								; Debug Table 0x10.0xc = 0x19d,0x6
019e e404       |    |		Load	0x2,0x4
019f e001       |    |		Load	0x0,0x1
01a0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a1 00d2       |    |		Pop_Control	Pop_Count_2
01a2 e405       |    |		Load	0x2,0x5								; Debug Table 0x10.0xd = 0x1a2,0x7
01a3 e404       |    |		Load	0x2,0x4
01a4 e001       |    |		Load	0x0,0x1
01a5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01a6 00d2       |    |		Pop_Control	Pop_Count_2
01a7 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x10.0xe = 0x1a7,0x8
01a8 00e3       |    |		Load_Encached	Natural_Cache
01a9 e405       |    |		Load	0x2,0x5
01aa e001       |    |		Load	0x0,0x1
01ab 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01ac c403       |    |		Store	0x2,0x3
01ad c407       |    |		Store	0x2,0x7
01ae e407       |    |		Load	0x2,0x7								; Debug Table 0x10.0xf = 0x1ae,0x9
01af 6813       |h   |		Jump_Zero	0x1c3
01b0 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10.0x10 = 0x1b0,0xa
01b1 4801       |H   |		Short_Literal	0x1
01b2 e20e       |    |		Load	0x1,0xe
01b3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b4 e409       |    |		Load	0x2,0x9
01b5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01b6 e406       |    |		Load	0x2,0x6
01b7 e20e       |    |		Load	0x1,0xe
01b8 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
01b9 2301       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x1
01ba 0119       |    |		Execute	Any,Check_In_Formal_Type
01bb e409       |    |		Load	0x2,0x9
01bc 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01bd 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
01be e403       |    |		Load	0x2,0x3
01bf e409       |    |		Load	0x2,0x9
01c0 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01c1 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10.0x11 = 0x1c3,0xb
01c4 4800       |H   |		Short_Literal	0x0
01c5 e20e       |    |		Load	0x1,0xe
01c6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01c7 e409       |    |		Load	0x2,0x9
01c8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01c9 e406       |    |		Load	0x2,0x6
01ca e20e       |    |		Load	0x1,0xe
01cb 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
01cc 2301       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x1
01cd 0119       |    |		Execute	Any,Check_In_Formal_Type
01ce e409       |    |		Load	0x2,0x9
01cf 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01d0 2801       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
01d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d2 4800       |H   |		Short_Literal	0x0							; Debug Table 0x10.0x12 = 0x1d2,0xc
01d3 4800       |H   |		Short_Literal	0x0
01d4 e20e       |    |		Load	0x1,0xe
01d5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01d6 e409       |    |		Load	0x2,0x9
01d7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d9			TRAP_0168:
01d9 010e       |    |		Execute	Exception,Is_Constraint_Error
01da 6802       |h   |		Jump_Zero	0x1dd
01db 60b4       |`   |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x0e06e401}		; Debug Table 0x10.0x13 = 0x1db,0xd
01dc 0257       | W  |		Execute	Discrete,Raise
01dd 0100       |    |		Execute	Exception,Raise
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 4608       |F   |		Jump_Case	0x9							; Debug Table 0x11 = .DEBUG	0x01e3,0x0416,0x0005,0x0000,0x000e,0x06e4,0x0000,0x00b4
01e4 7808       |x   |		Jump	0x1ed								; case 0x0
01e5 7825       |x%  |		Jump	0x20b								; case 0x1
01e6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
01e7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01e8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01e9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
01ea 7828       |x(  |		Jump	0x213								; case 0x6
01eb 782f       |x/  |		Jump	0x21b								; case 0x7
01ec 7846       |xF  |		Jump	0x233								; case 0x8
01ed e5ff       |    |		Load	0x2,-0x1
01ee 016c       | l  |		Execute	Variant_Record,Is_Constrained
01ef 700a       |p   |		Jump_Nonzero	0x1fa
01f0 00cf       |    |		Action	Mark_Auxiliary
01f1 4800       |H   |		Short_Literal	0x0
01f2 4800       |H   |		Short_Literal	0x0
01f3 e5ff       |    |		Load	0x2,-0x1
01f4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01f5 00d8       |    |		Load_Top	At_Offset_0
01f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f7 c5ff       |    |		Store	0x2,-0x1
01f8 00ce       |    |		Action	Pop_Auxiliary
01f9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01fa e5ff       |    |		Load	0x2,-0x1
01fb 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01fc 4601       |F   |		Jump_Case	0x2
01fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01fe 7800       |x   |		Jump	0x1ff								; case 0x1
01ff e5ff       |    |		Load	0x2,-0x1
0200 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0201 e5ff       |    |		Load	0x2,-0x1
0202 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0203 e5ff       |    |		Load	0x2,-0x1
0204 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0205 4601       |F   |		Jump_Case	0x2
0206 7801       |x   |		Jump	0x208								; case 0x0
0207 7800       |x   |		Jump	0x208								; case 0x1
0208 e5ff       |    |		Load	0x2,-0x1
0209 2b03       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x3
020a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
020b e5ff       |    |		Load	0x2,-0x1
020c 016b       | k  |		Execute	Variant_Record,Read_Variant
020d 00d8       |    |		Load_Top	At_Offset_0
020e 0f01       |    |		Execute_Immediate	Equal,0x1
020f 6802       |h   |		Jump_Zero	0x212
0210 e5ff       |    |		Load	0x2,-0x1
0211 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0212 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0213 e5fd       |    |		Load	0x2,-0x3
0214 4601       |F   |		Jump_Case	0x2
0215 7801       |x   |		Jump	0x217								; case 0x0
0216 7802       |x   |		Jump	0x219								; case 0x1
0217 48ff       |H   |		Short_Literal	0xff
0218 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0219 4801       |H   |		Short_Literal	0x1
021a 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
021b e5fd       |    |		Load	0x2,-0x3
021c e5fe       |    |		Load	0x2,-0x2
021d e5fd       |    |		Load	0x2,-0x3
021e 4601       |F   |		Jump_Case	0x2
021f 7801       |x   |		Jump	0x221								; case 0x0
0220 7803       |x   |		Jump	0x224								; case 0x1
0221 4800       |H   |		Short_Literal	0x0
0222 48ff       |H   |		Short_Literal	0xff
0223 780c       |x   |		Jump	0x230
0224 e5fe       |    |		Load	0x2,-0x2
0225 4601       |F   |		Jump_Case	0x2
0226 7801       |x   |		Jump	0x228								; case 0x0
0227 7802       |x   |		Jump	0x22a								; case 0x1
0228 48ff       |H   |		Short_Literal	0xff
0229 7801       |x   |		Jump	0x22b
022a 4801       |H   |		Short_Literal	0x1
022b e20e       |    |		Load	0x1,0xe
022c 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
022d 031b       |    |		Declare_Type	Variant_Record,Constrained
022e 4801       |H   |		Short_Literal	0x1
022f 4801       |H   |		Short_Literal	0x1
0230 e5ff       |    |		Load	0x2,-0x1
0231 031b       |    |		Declare_Type	Variant_Record,Constrained
0232 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0233 e5fd       |    |		Load	0x2,-0x3
0234 e5fe       |    |		Load	0x2,-0x2
0235 e5fd       |    |		Load	0x2,-0x3
0236 e5fe       |    |		Load	0x2,-0x2
0237 e5ff       |    |		Load	0x2,-0x1
0238 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0239 e5ff       |    |		Load	0x2,-0x1
023a 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
023b e5fd       |    |		Load	0x2,-0x3
023c 4601       |F   |		Jump_Case	0x2
023d 7810       |x   |		Jump	0x24e								; case 0x0
023e 7800       |x   |		Jump	0x23f								; case 0x1
023f e5fe       |    |		Load	0x2,-0x2
0240 4601       |F   |		Jump_Case	0x2
0241 7801       |x   |		Jump	0x243								; case 0x0
0242 7802       |x   |		Jump	0x245								; case 0x1
0243 48ff       |H   |		Short_Literal	0xff
0244 7801       |x   |		Jump	0x246
0245 4801       |H   |		Short_Literal	0x1
0246 e20e       |    |		Load	0x1,0xe
0247 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
0248 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0249 e5fe       |    |		Load	0x2,-0x2
024a 4601       |F   |		Jump_Case	0x2
024b 7801       |x   |		Jump	0x24d								; case 0x0
024c 7800       |x   |		Jump	0x24d								; case 0x1
024d 2f03       |/   |		Execute	Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x3
024e 016a       | j  |		QQ_execute	Variant_Record,XXX
024f 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0257       | W  |		.CONST	0x0257								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0002       |    |		.CONST	0x0002								; Number of locals
0253			INIT_0250:
0253 4801       |H   |		Short_Literal	0x1							; Debug Table 0x12 = .DEBUG	0x0253,0x0418,0x0002,0x0000,0x000e,0x2324,0x0000,0x0018
													; Debug Table 0x12.0x0 = 0x253,0xffff
0254 4850       |HP  |		Short_Literal	0x50
0255 00e9       |    |		Load_Encached	String_Cache
0256 0334       | 4  |		Declare_Variable	Array,With_Constraint
0257			BODY_0250:
0257 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x12.0x1 = 0x257,0x1
0258 01db       |    |		Execute	Vector,Length
0259 0d50       | P  |		Execute_Immediate	Less,0x50
025a 6813       |h   |		Jump_Zero	0x26e
025b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x12.0x2 = 0x25b,0x2
025c 4801       |H   |		Short_Literal	0x1
025d e5ff       |    |		Load	0x2,-0x1
025e 01db       |    |		Execute	Vector,Length
025f e402       |    |		Load	0x2,0x2
0260 01ce       |    |		Execute	Vector,Slice_Write
0261 4850       |HP  |		Short_Literal	0x50							; Debug Table 0x12.0x3 = 0x261,0x3
0262 e5ff       |    |		Load	0x2,-0x1
0263 01db       |    |		Execute	Vector,Length
0264 0a01       |    |		Execute_Immediate	Plus,0x1
0265 0248       | H  |		Execute	Discrete,Check_In_Integer
0266 0263       | c  |		Execute	Discrete,Above_Bound
0267 7011       |p   |		Jump_Nonzero	0x279
0268 4820       |H   |		Short_Literal	0x20							; Debug Table 0x12.0x4 = 0x268,0x4
0269 e404       |    |		Load	0x2,0x4
026a e402       |    |		Load	0x2,0x2
026b 01d6       |    |		Execute	Vector,Field_Write
026c 3ffb       |?   |		Loop_Increasing	0x268
026d 780b       |x   |		Jump	0x279
026e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x12.0x5 = 0x26e,0x5
026f 01dd       |    |		Execute	Vector,First
0270 e5ff       |    |		Load	0x2,-0x1
0271 01dd       |    |		Execute	Vector,First
0272 0a50       | P  |		Execute_Immediate	Plus,0x50
0273 0aff       |    |		Execute_Immediate	Plus,-0x1
0274 0248       | H  |		Execute	Discrete,Check_In_Integer
0275 e5ff       |    |		Load	0x2,-0x1
0276 01cf       |    |		Execute	Vector,Slice_Read
0277 e402       |    |		Load	0x2,0x2
0278 01d4       |    |		Execute	Vector,Structure_Write
0279 e402       |    |		Load	0x2,0x2								; Debug Table 0x12.0x6 = 0x279,0x6
027a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027b 0000 0000  |    |		.BLANK	0000[0x5]
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 0092 0298  |    |		Action	Push_String_Extended,0x298					; "Error Message"
													; Debug Table 0x13 = .DEBUG	0x0283,0x0428,0x0002,0x0000,0x000e,0x2324,0x0000,0x008b
													; Debug Table 0x13.0x0 = 0x283,0x1
0285 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0286 0000 0000  |    |		.XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x14 = .DEBUG	0x028b,0x042c,0x0002,0x0000,0x000e,0x2324,0x0000,0x0148
													; Debug Table 0x14.0x0 = 0x28b,0x1
028c e001       |    |		Load	0x0,0x1
028d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
028e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028f 0000       |    |		.XXX[0x1]
0290 0000 0000  |    |		.LITERAL	{0x00000000, 0x0e06e401}
0294 ; --------------------------------------------------------------------------------------
0294 ; STRING TABLE
0294 ; --------------------------------------------------------------------------------------
0294 000c       |    |		.STRTAB	0x000c->0x029a							; "NONE"
0295 000e       |    |		.STRTAB	0x000e->0x029c							; "WITH_INDEX"
0296 0016       |    |		.STRTAB	0x0016->0x02a1							; "f"
0297 0015       |    |		.STRTAB	0x0015->0x02a1							; "t \x22"
0298 0016       |    |		.STRTAB	0x0016->0x02a3							; "Error Message"
0299 0021       | !  |		.STREND 0x0021->0x02a9
029a 4e4f 4e45  |NONE|		.STRTAB_STRINGS
02aa 0000 0000  |    |		.BLANK	0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug Table
02b0 ; --------------------------------------------------------------------------------------
02b0 0003 0015  |    |		.CONST	0x0003,0x0015
02b2 000b 035a  |   Z|		.DEBUG	0x000b,0x035a,0x8000,0x0000,0x000e,0x06e4,0x0000,0x0003
02ba 0052 038a  | R  |		.DEBUG	0x0052,0x038a,0x8000,0x0000,0x000e,0x2324,0x0000,0x0006
02c2 007b 03ae  | {  |		.DEBUG	0x007b,0x03ae,0x0005,0x0000,0x000e,0x06e4,0x0000,0x0004
02ca 0093 03b0  |    |		.DEBUG	0x0093,0x03b0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x002c
02d2 009b 03b4  |    |		.DEBUG	0x009b,0x03b4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0035
02da 00b3 03b8  |    |		.DEBUG	0x00b3,0x03b8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x003e
02e2 00cb 03bc  |    |		.DEBUG	0x00cb,0x03bc,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0047
02ea 00e3 03c0  |    |		.DEBUG	0x00e3,0x03c0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0054
02f2 00fb 03c4  |    |		.DEBUG	0x00fb,0x03c4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0061
02fa 010b 03c8  |    |		.DEBUG	0x010b,0x03c8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0066
0302 0113 03cc  |    |		.DEBUG	0x0113,0x03cc,0x0002,0x0000,0x000e,0x06e4,0x0000,0x006f
030a 011b 03d0  |    |		.DEBUG	0x011b,0x03d0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0078
0312 0123 03d4  | #  |		.DEBUG	0x0123,0x03d4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0081
031a 012b 03d8  | +  |		.DEBUG	0x012b,0x03d8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x008a
0322 015b 03e4  | [  |		.DEBUG	0x015b,0x03e4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0093
032a 0163 03e8  | c  |		.DEBUG	0x0163,0x03e8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0098
0332 016b 03ec  | k  |		.DEBUG	0x016b,0x03ec,0x0002,0x0000,0x000e,0x06e4,0x0000,0x00a1
033a 01e3 0416  |    |		.DEBUG	0x01e3,0x0416,0x0005,0x0000,0x000e,0x06e4,0x0000,0x00b4
0342 0253 0418  | S  |		.DEBUG	0x0253,0x0418,0x0002,0x0000,0x000e,0x2324,0x0000,0x0018
034a 0283 0428  |   (|		.DEBUG	0x0283,0x0428,0x0002,0x0000,0x000e,0x2324,0x0000,0x008b
0352 028b 042c  |   ,|		.DEBUG	0x028b,0x042c,0x0002,0x0000,0x000e,0x2324,0x0000,0x0148
035a ; --------------------------------------------------------------------------------------
035a ; Debug3 Subtable 0x0
035a ; --------------------------------------------------------------------------------------
035a 0017 0000  |    |		.DBG3TAB	0x0017,0x0000
035c 000b ffff  |    |		.CONST	0x000b,0xffff
035e 0010 fffe  |    |		.CONST	0x0010,0xfffe
0360 0017 fffd  |    |		.CONST	0x0017,0xfffd
0362 0019 fffc  |    |		.CONST	0x0019,0xfffc
0364 001b fffb  |    |		.CONST	0x001b,0xfffb
0366 001c fffa  |    |		.CONST	0x001c,0xfffa
0368 001d fff9  |    |		.CONST	0x001d,0xfff9
036a 001f fff8  |    |		.CONST	0x001f,0xfff8
036c 0021 fff7  | !  |		.CONST	0x0021,0xfff7
036e 0023 fff6  | #  |		.CONST	0x0023,0xfff6
0370 0025 fff5  | %  |		.CONST	0x0025,0xfff5
0372 0027 fff4  | '  |		.CONST	0x0027,0xfff4
0374 0029 fff3  | )  |		.CONST	0x0029,0xfff3
0376 002b fff2  | +  |		.CONST	0x002b,0xfff2
0378 002d fff1  | -  |		.CONST	0x002d,0xfff1
037a 002f fff0  | /  |		.CONST	0x002f,0xfff0
037c 0031 ffef  | 1  |		.CONST	0x0031,0xffef
037e 0033 ffee  | 3  |		.CONST	0x0033,0xffee
0380 0035 ffed  | 5  |		.CONST	0x0035,0xffed
0382 0037 ffec  | 7  |		.CONST	0x0037,0xffec
0384 0039 ffeb  | 9  |		.CONST	0x0039,0xffeb
0386 003a ffea  | :  |		.CONST	0x003a,0xffea
0388 003b ffe9  | ;  |		.CONST	0x003b,0xffe9
038a ; --------------------------------------------------------------------------------------
038a ; Debug3 Subtable 0x1
038a ; --------------------------------------------------------------------------------------
038a 0011 0000  |    |		.DBG3TAB	0x0011,0x0000
038c 0052 ffff  | R  |		.CONST	0x0052,0xffff
038e 0054 fffe  | T  |		.CONST	0x0054,0xfffe
0390 0056 fffd  | V  |		.CONST	0x0056,0xfffd
0392 0058 fffc  | X  |		.CONST	0x0058,0xfffc
0394 005a fffb  | Z  |		.CONST	0x005a,0xfffb
0396 005c fffa  | \  |		.CONST	0x005c,0xfffa
0398 005e fff9  | ^  |		.CONST	0x005e,0xfff9
039a 0060 fff8  | `  |		.CONST	0x0060,0xfff8
039c 0062 fff7  | b  |		.CONST	0x0062,0xfff7
039e 0064 fff6  | d  |		.CONST	0x0064,0xfff6
03a0 0066 fff5  | f  |		.CONST	0x0066,0xfff5
03a2 0068 fff4  | h  |		.CONST	0x0068,0xfff4
03a4 006a fff3  | j  |		.CONST	0x006a,0xfff3
03a6 006c fff2  | l  |		.CONST	0x006c,0xfff2
03a8 006e fff1  | n  |		.CONST	0x006e,0xfff1
03aa 0070 fff0  | p  |		.CONST	0x0070,0xfff0
03ac 0072 ffef  | r  |		.CONST	0x0072,0xffef
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug3 Subtable 0x2
03ae ; --------------------------------------------------------------------------------------
03ae 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug3 Subtable 0x3
03b0 ; --------------------------------------------------------------------------------------
03b0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03b2 0093 0001  |    |		.CONST	0x0093,0x0001
03b4 ; --------------------------------------------------------------------------------------
03b4 ; Debug3 Subtable 0x4
03b4 ; --------------------------------------------------------------------------------------
03b4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03b6 009b 0001  |    |		.CONST	0x009b,0x0001
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug3 Subtable 0x5
03b8 ; --------------------------------------------------------------------------------------
03b8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ba 00b3 0001  |    |		.CONST	0x00b3,0x0001
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug3 Subtable 0x6
03bc ; --------------------------------------------------------------------------------------
03bc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03be 00cb 0001  |    |		.CONST	0x00cb,0x0001
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug3 Subtable 0x7
03c0 ; --------------------------------------------------------------------------------------
03c0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03c2 00e3 0001  |    |		.CONST	0x00e3,0x0001
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug3 Subtable 0x8
03c4 ; --------------------------------------------------------------------------------------
03c4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03c6 00fb 0001  |    |		.CONST	0x00fb,0x0001
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug3 Subtable 0x9
03c8 ; --------------------------------------------------------------------------------------
03c8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ca 010b 0001  |    |		.CONST	0x010b,0x0001
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug3 Subtable 0xa
03cc ; --------------------------------------------------------------------------------------
03cc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ce 0113 0001  |    |		.CONST	0x0113,0x0001
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0xb
03d0 ; --------------------------------------------------------------------------------------
03d0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03d2 011b 0001  |    |		.CONST	0x011b,0x0001
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0xc
03d4 ; --------------------------------------------------------------------------------------
03d4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03d6 0123 0001  | #  |		.CONST	0x0123,0x0001
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0xd
03d8 ; --------------------------------------------------------------------------------------
03d8 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
03da 012b 0001  | +  |		.CONST	0x012b,0x0001
03dc 0130 0002  | 0  |		.CONST	0x0130,0x0002
03de 0133 0003  | 3  |		.CONST	0x0133,0x0003
03e0 0138 0004  | 8  |		.CONST	0x0138,0x0004
03e2 0142 0005  | B  |		.CONST	0x0142,0x0005
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0xe
03e4 ; --------------------------------------------------------------------------------------
03e4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03e6 015b 0001  | [  |		.CONST	0x015b,0x0001
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug3 Subtable 0xf
03e8 ; --------------------------------------------------------------------------------------
03e8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ea 0163 0001  | c  |		.CONST	0x0163,0x0001
03ec ; --------------------------------------------------------------------------------------
03ec ; Debug3 Subtable 0x10
03ec ; --------------------------------------------------------------------------------------
03ec 0007 000d  |    |		.DBG3TAB	0x0007,0x000d
03ee 016b ffff  | k  |		.CONST	0x016b,0xffff
03f0 016c fffe  | l  |		.CONST	0x016c,0xfffe
03f2 016d fffd  | m  |		.CONST	0x016d,0xfffd
03f4 0173 fffc  | s  |		.CONST	0x0173,0xfffc
03f6 0179 fffb  | y  |		.CONST	0x0179,0xfffb
03f8 017d fffa  | }  |		.CONST	0x017d,0xfffa
03fa 017e fff9  | ~  |		.CONST	0x017e,0xfff9
03fc 017f 0001  |    |		.CONST	0x017f,0x0001
03fe 0185 0002  |    |		.CONST	0x0185,0x0002
0400 0188 0003  |    |		.CONST	0x0188,0x0003
0402 018d 0004  |    |		.CONST	0x018d,0x0004
0404 019b 0005  |    |		.CONST	0x019b,0x0005
0406 019d 0006  |    |		.CONST	0x019d,0x0006
0408 01a2 0007  |    |		.CONST	0x01a2,0x0007
040a 01a7 0008  |    |		.CONST	0x01a7,0x0008
040c 01ae 0009  |    |		.CONST	0x01ae,0x0009
040e 01b0 000a  |    |		.CONST	0x01b0,0x000a
0410 01c3 000b  |    |		.CONST	0x01c3,0x000b
0412 01d2 000c  |    |		.CONST	0x01d2,0x000c
0414 01db 000d  |    |		.CONST	0x01db,0x000d
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0x11
0416 ; --------------------------------------------------------------------------------------
0416 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug3 Subtable 0x12
0418 ; --------------------------------------------------------------------------------------
0418 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
041a 0253 ffff  | S  |		.CONST	0x0253,0xffff
041c 0257 0001  | W  |		.CONST	0x0257,0x0001
041e 025b 0002  | [  |		.CONST	0x025b,0x0002
0420 0261 0003  | a  |		.CONST	0x0261,0x0003
0422 0268 0004  | h  |		.CONST	0x0268,0x0004
0424 026e 0005  | n  |		.CONST	0x026e,0x0005
0426 0279 0006  | y  |		.CONST	0x0279,0x0006
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug3 Subtable 0x13
0428 ; --------------------------------------------------------------------------------------
0428 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
042a 0283 0001  |    |		.CONST	0x0283,0x0001
042c ; --------------------------------------------------------------------------------------
042c ; Debug3 Subtable 0x14
042c ; --------------------------------------------------------------------------------------
042c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
042e 028b 0001  |    |		.CONST	0x028b,0x0001
0430 0000 0000  |    |		.BLANK	0000[0x1d0]