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

⟦723591509⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02f8       |    |		.CONST	0x02f8								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x2c0, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0072       | r  |		.CONST	0x0072								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1
000c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
000d 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
001c c21c       |    |		Store	0x1,0x1c
001d 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
001f c214       |    |		Store	0x1,0x14
0020 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0022 c21b       |    |		Store	0x1,0x1b
0023 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0025 c216       |    |		Store	0x1,0x16
0026 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0028 c21d       |    |		Store	0x1,0x1d
0029 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
002b c218       |    |		Store	0x1,0x18
002c 4800       |H   |		Short_Literal	0x0
002d 4805       |H   |		Short_Literal	0x5
002e 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
0030 03fd       |    |		Declare_Type	Discrete,Defined
0031 c219       |    |		Store	0x1,0x19
0032 e219       |    |		Load	0x1,0x19
0033 4801       |H   |		Short_Literal	0x1
0034 e001       |    |		Load	0x0,0x1
0035 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0036 4801       |H   |		Short_Literal	0x1
0037 e002       |    |		Load	0x0,0x2
0038 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0039 4801       |H   |		Short_Literal	0x1
003a e003       |    |		Load	0x0,0x3
003b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
003c 4801       |H   |		Short_Literal	0x1
003d e004       |    |		Load	0x0,0x4
003e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003f 4801       |H   |		Short_Literal	0x1
0040 00e1       |    |		Load_Encached	Boolean_Cache
0041 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call
0043 4805       |H   |		Short_Literal	0x5
0044 4800       |H   |		Short_Literal	0x0
0045 4805       |H   |		Short_Literal	0x5
0046 4800       |H   |		Short_Literal	0x0
0047 4801       |H   |		Short_Literal	0x1
0048 031d       |    |		Declare_Type	Variant_Record,Defined
0049 c21a       |    |		Store	0x1,0x1a
004a 00db       |    |		Load_Top	At_Offset_3
004b 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
004d e211       |    |		Load	0x1,0x11
004e 0326       | &  |		Complete_Type	Record,By_Defining
004f 00bf       |    |		Action	Accept_Activation
0050 4800       |H   |		Short_Literal	0x0
0051 0093 02bb  |    |		push_full_address	INIT_02b8
0053 00f5       |    |		Load_Encached	Unused21
0054 037d       | }  |		Declare_Type	Task,Defined
0055 036f       | o  |		Declare_Variable	Task
0056 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 029d 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call
0062 029d 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call
0064 029d 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call
0066 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call
0068 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0069 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
006a 4802       |H   |		Short_Literal	0x2
006b e21e       |    |		Load	0x1,0x1e
006c 020e       |    |		Execute	Module,Augment_Imports
006d 0007       |    |		Action	Break_Optional
006e 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0071 00c7       |    |		Action	Elaborate_Subprogram
0072			BODY_0008:
0072			BODY_0008:
0072 00be       |    |		Action	Activate_Tasks
0073 00bc       |    |		Action	Signal_Activated
0074 00bb       |    |		Action	Signal_Completion
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
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 4803       |H   |		Short_Literal	0x3
007c e21a       |    |		Load	0x1,0x1a
007d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
007e 00d8       |    |		Load_Top	At_Offset_0
007f 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0080 e5ff       |    |		Load	0x2,-0x1
0081 00d9       |    |		Load_Top	At_Offset_1
0082 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0083 e5fe       |    |		Load	0x2,-0x2
0084 e004       |    |		Load	0x0,0x4
0085 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0086 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0087 0119       |    |		Execute	Any,Check_In_Formal_Type
0088 00d0       |    |		Action	Swap_Control
0089 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
008a e5fd       |    |		Load	0x2,-0x3
008b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
008c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 4800       |H   |		Short_Literal	0x0
0094 e21a       |    |		Load	0x1,0x1a
0095 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0096 00db       |    |		Load_Top	At_Offset_3
0097 e21a       |    |		Load	0x1,0x1a
0098 2302       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x2
0099 0119       |    |		Execute	Any,Check_In_Formal_Type
009a 00d9       |    |		Load_Top	At_Offset_1
009b 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
009c e5fe       |    |		Load	0x2,-0x2
009d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009f 0000       |    |		.XXX[0x1]
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 4801       |H   |		Short_Literal	0x1
00a4 e21a       |    |		Load	0x1,0x1a
00a5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00a6 00db       |    |		Load_Top	At_Offset_3
00a7 e21a       |    |		Load	0x1,0x1a
00a8 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
00a9 0119       |    |		Execute	Any,Check_In_Formal_Type
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ac e5fe       |    |		Load	0x2,-0x2
00ad 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ae 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00af 0000       |    |		.XXX[0x1]
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 4802       |H   |		Short_Literal	0x2
00b4 e21a       |    |		Load	0x1,0x1a
00b5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b6 00d8       |    |		Load_Top	At_Offset_0
00b7 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 e003       |    |		Load	0x0,0x3
00ba 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00bb 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
00bc 0119       |    |		Execute	Any,Check_In_Formal_Type
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bf e5fe       |    |		Load	0x2,-0x2
00c0 00d0       |    |		Action	Swap_Control
00c1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c2 e5fd       |    |		Load	0x2,-0x3
00c3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd       |    |		.CONST	0x00cd								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0002       |    |		.CONST	0x0002								; Number of locals
00cb			INIT_00c8:
00cb e219       |    |		Load	0x1,0x19
00cc 0007       |    |		Action	Break_Optional
00cd			BODY_00c8:
00cd 00db       |    |		Load_Top	At_Offset_3
00ce 6809       |h   |		Jump_Zero	0xd8
00cf 4805       |H   |		Short_Literal	0x5
00d0 e21a       |    |		Load	0x1,0x1a
00d1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 00d9       |    |		Load_Top	At_Offset_1
00d4 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
00d5 e5fe       |    |		Load	0x2,-0x2
00d6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d8 4804       |H   |		Short_Literal	0x4
00d9 e21a       |    |		Load	0x1,0x1a
00da 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00db e5ff       |    |		Load	0x2,-0x1
00dc 00d9       |    |		Load_Top	At_Offset_1
00dd 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
00de e5fe       |    |		Load	0x2,-0x2
00df 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00db       |    |		Load_Top	At_Offset_3
00ec 00db       |    |		Load_Top	At_Offset_3
00ed 4802       |H   |		Short_Literal	0x2
00ee e21e       |    |		Load	0x1,0x1e
00ef 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00f0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f1 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
00fc 4801       |H   |		Short_Literal	0x1
00fd e21e       |    |		Load	0x1,0x1e
00fe 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
00ff 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4607       |F   |		Jump_Case	0x8
0104 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0105 7806       |x   |		Jump	0x10c								; case 0x1
0106 7809       |x   |		Jump	0x110								; case 0x2
0107 780d       |x   |		Jump	0x115								; case 0x3
0108 7810       |x   |		Jump	0x119								; case 0x4
0109 7811       |x   |		Jump	0x11b								; case 0x5
010a 7812       |x   |		Jump	0x11d								; case 0x6
010b 7815       |x   |		Jump	0x121								; case 0x7
010c 00da       |    |		Load_Top	At_Offset_2
010d 0091 02df  |    |		Action	Push_String_Extended_Indexed,0x2df				; "FILE"
010f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0110 00db       |    |		Load_Top	At_Offset_3
0111 00db       |    |		Load_Top	At_Offset_3
0112 00e0       |    |		Load_Encached	Standard_Cache
0113 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0114 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0115 00da       |    |		Load_Top	At_Offset_2
0116 00e0       |    |		Load_Encached	Standard_Cache
0117 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0118 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0119 00db       |    |		Load_Top	At_Offset_3
011a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011b 00db       |    |		Load_Top	At_Offset_3
011c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011d e219       |    |		Load	0x1,0x19
011e 00dc       |    |		Load_Top	At_Offset_4
011f 0267       | g  |		Execute	Discrete,Predecessor
0120 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0121 e219       |    |		Load	0x1,0x19
0122 00dc       |    |		Load_Top	At_Offset_4
0123 0268       | h  |		Execute	Discrete,Successor
0124 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
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 00db       |    |		Load_Top	At_Offset_3
012c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
012d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012e 4605       |F   |		Jump_Case	0x6
012f 780a       |x   |		Jump	0x13a								; case 0x0
0130 7814       |x   |		Jump	0x145								; case 0x1
0131 7820       |x   |		Jump	0x152								; case 0x2
0132 782e       |x.  |		Jump	0x161								; case 0x3
0133 783c       |x<  |		Jump	0x170								; case 0x4
0134 7800       |x   |		Jump	0x135								; case 0x5
0135 00da       |    |		Load_Top	At_Offset_2
0136 e005       |    |		Load	0x0,0x5
0137 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0138 8210       |    |		Call	0x1,0x10
0139 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
013a 00db       |    |		Load_Top	At_Offset_3
013b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013c 00d8       |    |		Load_Top	At_Offset_0
013d 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
013e e5ff       |    |		Load	0x2,-0x1
013f e001       |    |		Load	0x0,0x1
0140 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0141 00d9       |    |		Load_Top	At_Offset_1
0142 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0143 00d1       |    |		Pop_Control	Pop_Count_1
0144 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0145 00db       |    |		Load_Top	At_Offset_3
0146 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0147 00d8       |    |		Load_Top	At_Offset_0
0148 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0149 e5ff       |    |		Load	0x2,-0x1
014a e005       |    |		Load	0x0,0x5
014b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
014c e002       |    |		Load	0x0,0x2
014d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
014e 00d9       |    |		Load_Top	At_Offset_1
014f 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0150 00d1       |    |		Pop_Control	Pop_Count_1
0151 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0152 00db       |    |		Load_Top	At_Offset_3
0153 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0154 00d8       |    |		Load_Top	At_Offset_0
0155 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0156 00d8       |    |		Load_Top	At_Offset_0
0157 00d8       |    |		Load_Top	At_Offset_0
0158 e5ff       |    |		Load	0x2,-0x1
0159 e005       |    |		Load	0x0,0x5
015a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
015b e003       |    |		Load	0x0,0x3
015c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
015d 00d2       |    |		Pop_Control	Pop_Count_2
015e 00d0       |    |		Action	Swap_Control
015f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0160 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0161 00db       |    |		Load_Top	At_Offset_3
0162 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0163 00d8       |    |		Load_Top	At_Offset_0
0164 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0165 00d8       |    |		Load_Top	At_Offset_0
0166 00d8       |    |		Load_Top	At_Offset_0
0167 e5ff       |    |		Load	0x2,-0x1
0168 e005       |    |		Load	0x0,0x5
0169 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
016a e004       |    |		Load	0x0,0x4
016b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
016c 00d2       |    |		Pop_Control	Pop_Count_2
016d 00d0       |    |		Action	Swap_Control
016e 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
016f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0170 00da       |    |		Load_Top	At_Offset_2
0171 e005       |    |		Load	0x0,0x5
0172 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0173 820f       |    |		Call	0x1,0xf
0174 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0175 0000 0000  |    |		.XXX[0x3]
0177 0000       |    |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00db       |    |		Load_Top	At_Offset_3
017c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
017d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
017e 4605       |F   |		Jump_Case	0x6
017f 780a       |x   |		Jump	0x18a								; case 0x0
0180 7814       |x   |		Jump	0x195								; case 0x1
0181 7820       |x   |		Jump	0x1a2								; case 0x2
0182 782e       |x.  |		Jump	0x1b1								; case 0x3
0183 783c       |x<  |		Jump	0x1c0								; case 0x4
0184 7800       |x   |		Jump	0x185								; case 0x5
0185 00da       |    |		Load_Top	At_Offset_2
0186 e005       |    |		Load	0x0,0x5
0187 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0188 8210       |    |		Call	0x1,0x10
0189 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
018a 00db       |    |		Load_Top	At_Offset_3
018b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018c 00d8       |    |		Load_Top	At_Offset_0
018d 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
018e e5ff       |    |		Load	0x2,-0x1
018f e001       |    |		Load	0x0,0x1
0190 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0191 00d9       |    |		Load_Top	At_Offset_1
0192 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0193 00d1       |    |		Pop_Control	Pop_Count_1
0194 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0195 00db       |    |		Load_Top	At_Offset_3
0196 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0197 00d8       |    |		Load_Top	At_Offset_0
0198 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0199 e5ff       |    |		Load	0x2,-0x1
019a e005       |    |		Load	0x0,0x5
019b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
019c e002       |    |		Load	0x0,0x2
019d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
019e 00d9       |    |		Load_Top	At_Offset_1
019f 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01a0 00d1       |    |		Pop_Control	Pop_Count_1
01a1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a4 00d8       |    |		Load_Top	At_Offset_0
01a5 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 e005       |    |		Load	0x0,0x5
01aa 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ab e003       |    |		Load	0x0,0x3
01ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ad 00d2       |    |		Pop_Control	Pop_Count_2
01ae 00d0       |    |		Action	Swap_Control
01af 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01b0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b1 00db       |    |		Load_Top	At_Offset_3
01b2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01b3 00d8       |    |		Load_Top	At_Offset_0
01b4 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 00d8       |    |		Load_Top	At_Offset_0
01b7 e5ff       |    |		Load	0x2,-0x1
01b8 e005       |    |		Load	0x0,0x5
01b9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ba e004       |    |		Load	0x0,0x4
01bb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01bc 00d2       |    |		Pop_Control	Pop_Count_2
01bd 00d0       |    |		Action	Swap_Control
01be 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 e005       |    |		Load	0x0,0x5
01c2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c3 820f       |    |		Call	0x1,0xf
01c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cf       |    |		.CONST	0x01cf								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0002       |    |		.CONST	0x0002								; Number of locals
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 01dd       |    |		Execute	Vector,First
01cd 00e3       |    |		Load_Encached	Natural_Cache
01ce 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
01cf			BODY_01c8:
01cf 00cf       |    |		Action	Mark_Auxiliary
01d0 e5ff       |    |		Load	0x2,-0x1
01d1 01dc       |    |		Execute	Vector,Last
01d2 e5ff       |    |		Load	0x2,-0x1
01d3 01dd       |    |		Execute	Vector,First
01d4 0263       | c  |		Execute	Discrete,Above_Bound
01d5 7017       |p   |		Jump_Nonzero	0x1ed
01d6 00d8       |    |		Load_Top	At_Offset_0
01d7 e5ff       |    |		Load	0x2,-0x1
01d8 01d7       |    |		Execute	Vector,Field_Read
01d9 0f0a       |    |		Execute_Immediate	Equal,0xa
01da 6810       |h   |		Jump_Zero	0x1eb
01db e5fe       |    |		Load	0x2,-0x2
01dc e402       |    |		Load	0x2,0x2
01dd 00da       |    |		Load_Top	At_Offset_2
01de 0aff       |    |		Execute_Immediate	Plus,-0x1
01df 00d8       |    |		Load_Top	At_Offset_0
01e0 00e2       |    |		Load_Encached	Integer_Cache
01e1 0260       | `  |		Execute	Discrete,In_Type
01e2 7001       |p   |		Jump_Nonzero	0x1e4
01e3 0801       |    |		Execute_Immediate	Raise,0x1
01e4 e5ff       |    |		Load	0x2,-0x1
01e5 01cf       |    |		Execute	Vector,Slice_Read
01e6 8220       |    |		Call	0x1,0x20
01e7 00d1       |    |		Pop_Control	Pop_Count_1
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 0a01       |    |		Execute_Immediate	Plus,0x1
01ea c402       |    |		Store	0x2,0x2
01eb 00c8       |    |		Action	Pop_Auxiliary_Range
01ec 3fe9       |?   |		Loop_Increasing	0x1d6
01ed 00ce       |    |		Action	Pop_Auxiliary
01ee e5fe       |    |		Load	0x2,-0x2
01ef 00d9       |    |		Load_Top	At_Offset_1
01f0 e5ff       |    |		Load	0x2,-0x1
01f1 01dc       |    |		Execute	Vector,Last
01f2 e5ff       |    |		Load	0x2,-0x1
01f3 01cf       |    |		Execute	Vector,Slice_Read
01f4 821f       |    |		Call	0x1,0x1f
01f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01fd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01fe 4605       |F   |		Jump_Case	0x6
01ff 7827       |x'  |		Jump	0x227								; case 0x0
0200 7804       |x   |		Jump	0x205								; case 0x1
0201 7819       |x   |		Jump	0x21b								; case 0x2
0202 780c       |x   |		Jump	0x20f								; case 0x3
0203 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x4
0204 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x5
0205 00da       |    |		Load_Top	At_Offset_2
0206 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0207 00d8       |    |		Load_Top	At_Offset_0
0208 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0209 e002       |    |		Load	0x0,0x2
020a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
020b 00d9       |    |		Load_Top	At_Offset_1
020c 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
020d 00d1       |    |		Pop_Control	Pop_Count_1
020e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
020f 00da       |    |		Load_Top	At_Offset_2
0210 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0211 00d8       |    |		Load_Top	At_Offset_0
0212 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0213 00d8       |    |		Load_Top	At_Offset_0
0214 00d8       |    |		Load_Top	At_Offset_0
0215 e004       |    |		Load	0x0,0x4
0216 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0217 00d2       |    |		Pop_Control	Pop_Count_2
0218 00d0       |    |		Action	Swap_Control
0219 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
021a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021b 00da       |    |		Load_Top	At_Offset_2
021c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021d 00d8       |    |		Load_Top	At_Offset_0
021e 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
021f 00d8       |    |		Load_Top	At_Offset_0
0220 00d8       |    |		Load_Top	At_Offset_0
0221 e003       |    |		Load	0x0,0x3
0222 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0223 00d2       |    |		Pop_Control	Pop_Count_2
0224 00d0       |    |		Action	Swap_Control
0225 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0226 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0227 00da       |    |		Load_Top	At_Offset_2
0228 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0229 00d8       |    |		Load_Top	At_Offset_0
022a 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
022b e001       |    |		Load	0x0,0x1
022c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
022d 00d9       |    |		Load_Top	At_Offset_1
022e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
022f 00d1       |    |		Pop_Control	Pop_Count_1
0230 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0231 0000 0000  |    |		.BLANK	0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 4608       |F   |		Jump_Case	0x9
023c 7808       |x   |		Jump	0x245								; case 0x0
023d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
023e 785d       |x]  |		Jump	0x29c								; case 0x2
023f 785c       |x\  |		Jump	0x29c								; case 0x3
0240 785b       |x[  |		Jump	0x29c								; case 0x4
0241 785a       |xZ  |		Jump	0x29c								; case 0x5
0242 782b       |x+  |		Jump	0x26e								; case 0x6
0243 783c       |x<  |		Jump	0x280								; case 0x7
0244 7850       |xP  |		Jump	0x295								; case 0x8
0245 00da       |    |		Load_Top	At_Offset_2
0246 016c       | l  |		Execute	Variant_Record,Is_Constrained
0247 7009       |p   |		Jump_Nonzero	0x251
0248 00cf       |    |		Action	Mark_Auxiliary
0249 4800       |H   |		Short_Literal	0x0
024a e5ff       |    |		Load	0x2,-0x1
024b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
024c 00d8       |    |		Load_Top	At_Offset_0
024d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
024e c5ff       |    |		Store	0x2,-0x1
024f 00ce       |    |		Action	Pop_Auxiliary
0250 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0251 00da       |    |		Load_Top	At_Offset_2
0252 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0253 4605       |F   |		Jump_Case	0x6
0254 7805       |x   |		Jump	0x25a								; case 0x0
0255 780a       |x   |		Jump	0x260								; case 0x1
0256 780f       |x   |		Jump	0x266								; case 0x2
0257 7812       |x   |		Jump	0x26a								; case 0x3
0258 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0259 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
025a 00da       |    |		Load_Top	At_Offset_2
025b 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
025c 00da       |    |		Load_Top	At_Offset_2
025d 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
025e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
025f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0260 00da       |    |		Load_Top	At_Offset_2
0261 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0262 00da       |    |		Load_Top	At_Offset_2
0263 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0264 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0265 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0266 00da       |    |		Load_Top	At_Offset_2
0267 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0268 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0269 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
026a 00da       |    |		Load_Top	At_Offset_2
026b 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
026c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
026d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
026e 00db       |    |		Load_Top	At_Offset_3
026f 4605       |F   |		Jump_Case	0x6
0270 7807       |x   |		Jump	0x278								; case 0x0
0271 7808       |x   |		Jump	0x27a								; case 0x1
0272 7809       |x   |		Jump	0x27c								; case 0x2
0273 780a       |x   |		Jump	0x27e								; case 0x3
0274 7801       |x   |		Jump	0x276								; case 0x4
0275 7800       |x   |		Jump	0x276								; case 0x5
0276 4805       |H   |		Short_Literal	0x5
0277 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0278 4801       |H   |		Short_Literal	0x1
0279 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
027a 4802       |H   |		Short_Literal	0x2
027b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
027c 4803       |H   |		Short_Literal	0x3
027d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
027e 4804       |H   |		Short_Literal	0x4
027f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0280 00db       |    |		Load_Top	At_Offset_3
0281 e5fe       |    |		Load	0x2,-0x2
0282 4605       |F   |		Jump_Case	0x6
0283 7807       |x   |		Jump	0x28b								; case 0x0
0284 7808       |x   |		Jump	0x28d								; case 0x1
0285 7809       |x   |		Jump	0x28f								; case 0x2
0286 780a       |x   |		Jump	0x291								; case 0x3
0287 7801       |x   |		Jump	0x289								; case 0x4
0288 7800       |x   |		Jump	0x289								; case 0x5
0289 4805       |H   |		Short_Literal	0x5
028a 7807       |x   |		Jump	0x292
028b 4801       |H   |		Short_Literal	0x1
028c 7805       |x   |		Jump	0x292
028d 4802       |H   |		Short_Literal	0x2
028e 7803       |x   |		Jump	0x292
028f 4803       |H   |		Short_Literal	0x3
0290 7801       |x   |		Jump	0x292
0291 4804       |H   |		Short_Literal	0x4
0292 e5ff       |    |		Load	0x2,-0x1
0293 031b       |    |		Declare_Type	Variant_Record,Constrained
0294 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0295 00db       |    |		Load_Top	At_Offset_3
0296 e5fe       |    |		Load	0x2,-0x2
0297 e5ff       |    |		Load	0x2,-0x1
0298 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0299 e5ff       |    |		Load	0x2,-0x1
029a 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
029b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
029c 0869       | i  |		Execute_Immediate	Raise,0x69
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 4608       |F   |		Jump_Case	0x9
02a4 7808       |x   |		Jump	0x2ad								; case 0x0
02a5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02a6 780a       |x   |		Jump	0x2b1								; case 0x2
02a7 7809       |x   |		Jump	0x2b1								; case 0x3
02a8 7808       |x   |		Jump	0x2b1								; case 0x4
02a9 7807       |x   |		Jump	0x2b1								; case 0x5
02aa 7806       |x   |		Jump	0x2b1								; case 0x6
02ab 7805       |x   |		Jump	0x2b1								; case 0x7
02ac 7804       |x   |		Jump	0x2b1								; case 0x8
02ad 00da       |    |		Load_Top	At_Offset_2
02ae 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02b1 0869       | i  |		Execute_Immediate	Raise,0x69
02b2 0000 0000  |    |		.BLANK	0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02ca       |    |		.CONST	0x02ca								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 000f       |    |		.CONST	0x000f								; Number of locals
02bb			INIT_02b8:
02bb 4802       |H   |		Short_Literal	0x2
02bc 02cb       |    |		Declare_Variable	Entry
02bd 4801       |H   |		Short_Literal	0x1
02be 02cb       |    |		Declare_Variable	Entry
02bf 00bf       |    |		Action	Accept_Activation
02c0 480e 485a  |H HZ|		Declare_Variable	Select	0x000, 0x002,
02c2 480d 485b  |H H[|				[0x000]: 0x001 = 0x0008,
02c4 4800 4801  |H H |				[0x00d]: 0x05b = 0x02d8,
02c6 4800 4802  |H H |				[0x00e]: 0x05a = 0x02d0
02c8 02cf       |    |
02c9 00bc       |    |		Action	Signal_Activated
02ca			BODY_02b8:
02ca 00cf       |    |		Action	Mark_Auxiliary
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 013f       | ?  |		Execute	Select,Rendezvous
02cd 00d1       |    |		Pop_Control	Pop_Count_1
02ce 00c9       |    |		Action	Pop_Auxiliary_Loop
02cf 7ffb       |    |		Jump	0x2cb
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; See instruction 0x02cf at 0x2c0, index=0xe
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 00db       |    |		Load_Top	At_Offset_3
02d4 8001       |    |		Call	0x0,0x1
02d5 4101       |A   |		End_Rendezvous	0x1
02d6 0000 0000  |    |		.XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; See instruction 0x02cf at 0x2c0, index=0xd
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db e5fd       |    |		Load	0x2,-0x3
02dc e5fe       |    |		Load	0x2,-0x2
02dd 8002       |    |		Call	0x0,0x2
02de 4101       |A   |		End_Rendezvous	0x1
02df ; --------------------------------------------------------------------------------------
02df ; STRING TABLE
02df ; --------------------------------------------------------------------------------------
02df 000e       |    |		.STRTAB	0x000e->0x02e6							; "FILE"
02e0 0010       |    |		.STRTAB	0x0010->0x02e8							; "WINDOW"
02e1 0014       |    |		.STRTAB	0x0014->0x02eb							; "VT100"
02e2 0017       |    |		.STRTAB	0x0017->0x02ed							; "LOG"
02e3 0018       |    |		.STRTAB	0x0018->0x02ef							; "USER"
02e4 001a       |    |		.STRTAB	0x001a->0x02f1							; "USER_ERROR"
02e5 0022       | "  |		.STREND 0x0022->0x02f6
02e6 4649 4c45  |FILE|		.STRTAB_STRINGS
02f6 0000 0000  |    |		.XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug Table
02f8 ; --------------------------------------------------------------------------------------
02f8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0xf52a,0x0000,0x0001,0x0000
02fe 5e40 0885  |^@  |		.XXX[0x102]
0300 c340 1186  | @  |
0302 b248 4080  | H@ |
0304 0e40 0800  | @  |
0306 75ff fe7f  |u   |
0308 4a40 0885  |J@  |
030a c359 5482  | YT |
030c f260 1780  | `  |
030e 0658 0b80  | X  |
0310 0758 d482  | X  |
0312 f360 d482  | `  |
0314 fbe0 1186  |    |
0316 b280 1eff  |    |
0318 e2e0 1c00  |    |
031a 7640 1c85  |v@  |
031c 0350 0800  | P  |
031e 0340 0880  | @  |
0320 1350 9080  | P  |
0322 0340 9080  | @  |
0324 13d8 1c85  |    |
0326 8348 1eff  | H  |
0328 e250 1b82  | P  |
032a fa50 8a00  | P  |
032c 6e80 4000  |n @ |
032e 2a44 f080  |*D  |
0330 3644 c880  |6D  |
0332 4a5c ea80  |J\  |
0334 365c cb80  |6\  |
0336 4a80 0800  |J   |
0338 4258 0b00  |BX  |
033a 2a5c eb80  |*\  |
033c 3a84 f080  |:   |
033e 3a48 0900  |:H  |
0340 425c ab80  |B\  |
0342 3b48 9eff  |;H  |
0344 e250 8a00  | P  |
0346 2e60 4080  |.`@ |
0348 0b60 9eff  | `  |
034a c350 9eff  | P  |
034c b3e0 1c85  |    |
034e 8248 1eff  | H  |
0350 b2e0 1c82  |    |
0352 fbe0 9eff  |    |
0354 d100 003c  |   <|
0356 d240 1eff  | @  |
0358 e3e0 1186  |    |
035a b248 1eff  | H  |
035c e2e0 1c00  |    |
035e 7650 1c85  |vP  |
0360 0368 0a00  | h  |
0362 0350 0a80  | P  |
0364 1368 8980  | h  |
0366 0350 8980  | P  |
0368 13d8 1c85  |    |
036a 8358 1eff  | X  |
036c e260 1b82  | `  |
036e f260 8c00  | `  |
0370 6e48 4000  |nH@ |
0372 3254 e980  |2T  |
0374 366c ec80  |6l  |
0376 366c cd80  |6l  |
0378 4a54 ca80  |JT  |
037a 4a48 0a00  |JH  |
037c 2668 0d00  |&h  |
037e 326c ed80  |2l  |
0380 3a4c e980  |:L  |
0382 3a58 0b00  |:X  |
0384 266c ad80  |&l  |
0386 3a60 8c00  |:`  |
0388 3678 4080  |6x@ |
038a 0b60 9eff  | `  |
038c b358 9eff  | X  |
038e e378 9eff  | x  |
0390 c3e0 1c85  |    |
0392 8248 1eff  | H  |
0394 b2e0 1c82  |    |
0396 f3e0 9eff  |    |
0398 d100 003c  |   <|
039a 4a40 1eff  |J@  |
039c e388 1186  |    |
039e b248 4080  | H@ |
03a0 0288 1100  |    |
03a2 75ff fe7e  |u  ~|
03a4 1240 1185  | @  |
03a6 c2e8 4000  |  @ |
03a8 5e07 1f80  |^   |
03aa 2247 a000  |"G  |
03ac 7677 8efe  |vw  |
03ae 2244 b880  |"D  |
03b0 0a4c a880  | L  |
03b2 0a40 8800  | @  |
03b4 2660 4000  |&`@ |
03b6 666c ec80  |fl  |
03b8 2e4c a980  |.L  |
03ba 0e80 4000  |  @ |
03bc 668c f080  |f   |
03be 2e40 0800  |.@  |
03c0 266c cd80  |&l  |
03c2 5268 0d00  |Rh  |
03c4 324c a980  |2L  |
03c6 068c d180  |    |
03c8 5054 0025  |PT %|
03ca ef50 0a86  | P  |
03cc b280 1100  |    |
03ce 4240 0800  |B@  |
03d0 266c ed80  |&l  |
03d2 0000 0040  |   @|
03d4 0002 7dc0  |  } |
03d6 01d8 4d11  |  M |
03d8 150d 3105  |  1 |
03da 4905 5125  |I Q%|
03dc 3d39 7d39  |=9}9|
03de 5535 0915  |U5  |
03e0 494c 00a0  |IL  |
03e2 1119 2531  |  %1|
03e4 1400 0431  |   1|
03e6 0511 057d  |   }|
03e8 1125 4d0d  | %M |
03ea 3d59 1548  |=Y H|
03ec 0074 2d05  | t- |
03ee 1105 7d25  |  }%|
03f0 394d 251d  |9M% |
03f2 2150 00b8  |!P  |
03f4 4105 1105  |A   |
03f6 7d25 394d  |}%9M|
03f8 251d 2151  |% !Q|
03fa 7d35 0525  |}5 %|
03fc 3800 3c35  |8 <5|
03fe 0555 5121  | UQ!|