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

⟦a2dd2658c⟧ SEG

    Length: 3072 (0xc00)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »992275.SEG«

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0278       | x  |		.CONST	0x0278								; 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 0102       |    |		.CONST	0x0102								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0012       |    |		.CONST	0x0012								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000d       |    |		.CONST	0x000d								; Number of locals
000b			INIT_0008:
000b 4808       |H   |		Short_Literal	0x8							; Debug Table 0x0 = .DEBUG	0x000b,0x031a,0x8000,0x0000,0x0037,0x0674,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 6007       |`   |		Indirect_Literal	Discrete,0x14,{0x000f2413, 0x000001b0}		; 0xf2413 = ARRAY_LIST_MANAGER
000d 02a0       |    |		Declare_Subprogram	Null_Subprogram
000e 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
000f 00bf       |    |		Action	Accept_Activation
0010 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1 = .DEBUG	0x0010,0x031e,0x8000,0x0000,0x0037,0x1564,0x0000,0x0003
													; Debug Table 0x1.0x0 = 0x10,0xffff
0011 020d       |    |		Execute	Module,Elaborate
0012			BODY_0008:
0012 00bc       |    |		Action	Signal_Activated
0013 00bb       |    |		Action	Signal_Completion
0014 000f 2413  |  $ |		.LITERAL	{0x000f2413, 0x000001b0}
0018 0066 0004  | f  |		.XXX[0x3]
001a 0023       | #  |
001b 4803       |H   |		Short_Literal	0x3							; Debug Table 0x2 = .DEBUG	0x001b,0x0322,0x4000,0x0000,0x0037,0x0674,0x0000,0x0004
													; Debug Table 0x2.0x0 = 0x1b,0xffff
001c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
001d 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x1 = 0x1d,0xfffe
001f 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x2 = 0x1f,0xfffd
0021 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x3 = 0x21,0xfffc
0023 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x4 = 0x23,0xfffb
0025 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x5 = 0x25,0xfffa
0027 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x6 = 0x27,0xfff9
0029 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x7 = 0x29,0xfff8
002b 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x8 = 0x2b,0xfff7
002d 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x9 = 0x2d,0xfff6
002f 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0xa = 0x2f,0xfff5
0031 4804       |H   |		Short_Literal	0x4							; Debug Table 0x2.0xb = 0x31,0xfff4
0032 6195       |a   |		Indirect_Literal	Discrete,0x1c8,{0x000f2413, 0x00001d30}		; 0xf2413 = ARRAY_LIST_MANAGER
0033 02a0       |    |		Declare_Subprogram	Null_Subprogram
0034 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0035 e210       |    |		Load	0x1,0x10							; Debug Table 0x2.0xc = 0x35,0xfff3
0036 0269       | i  |		Execute	Discrete,Last
0037 e210       |    |		Load	0x1,0x10
0038 026a       | j  |		Execute	Discrete,First
0039 0272       | r  |		Execute	Discrete,Minus
003a 0248       | H  |		Execute	Discrete,Check_In_Integer
003b 0a01       |    |		Execute_Immediate	Plus,0x1
003c 00e3       |    |		Load_Encached	Natural_Cache
003d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
003e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0xd = 0x3e,0xfff2
003f 00d9       |    |		Load_Top	At_Offset_1
0040 00e3       |    |		Load_Encached	Natural_Cache
0041 03f8       |    |		Declare_Type	Discrete,Constrained
0042 e210       |    |		Load	0x1,0x10							; Debug Table 0x2.0xe = 0x42,0xfff1
0043 e210       |    |		Load	0x1,0x10
0044 00da       |    |		Load_Top	At_Offset_2
0045 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
0047 e215       |    |		Load	0x1,0x15
0048 0326       | &  |		Complete_Type	Record,By_Defining
0049 00bf       |    |		Action	Accept_Activation
004a 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x3 = .DEBUG	0x004a,0x0342,0x4000,0x0000,0x0037,0x1564,0x0000,0x0004
													; Debug Table 0x3.0x0 = 0x4a,0xffff
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x3.0x1 = 0x4c,0xfffe
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x3.0x2 = 0x4e,0xfffd
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x3.0x3 = 0x50,0xfffc
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 029d 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call			; Debug Table 0x3.0x4 = 0x52,0xfffb
0054 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x3.0x5 = 0x54,0xfffa
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x3.0x6 = 0x56,0xfff9
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x3.0x7 = 0x58,0xfff8
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x3.0x8 = 0x5a,0xfff7
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x3.0x9 = 0x5c,0xfff6
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x3.0xa = 0x5e,0xfff5
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 00b6       |    |		Action	Make_Scope							; Debug Table 0x3.0xb = 0x60,0xfff4
0061 4801       |H   |		Short_Literal	0x1
0062 e220       |    |		Load	0x1,0x20
0063 020e       |    |		Execute	Module,Augment_Imports
0064 00db       |    |		Load_Top	At_Offset_3
0065 020d       |    |		Execute	Module,Elaborate
0066 00bc       |    |		Action	Signal_Activated
0067 00bb       |    |		Action	Signal_Completion
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b e215       |    |		Load	0x1,0x15							; Debug Table 0x4 = .DEBUG	0x006b,0x035c,0x1001,0x0000,0x0037,0x0674,0x0000,0x0036
													; Debug Table 0x4.0x0 = 0x6b,0x1
006c 0322       | "  |		Declare_Variable	Record
006d e211       |    |		Load	0x1,0x11
006e 00d9       |    |		Load_Top	At_Offset_1
006f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0070 e211       |    |		Load	0x1,0x11
0071 00d9       |    |		Load_Top	At_Offset_1
0072 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0073 4800       |H   |		Short_Literal	0x0
0074 00d9       |    |		Load_Top	At_Offset_1
0075 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0076 00db       |    |		Load_Top	At_Offset_3
0077 017d       | }  |		Execute	Record,Structure_Write
0078 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0079 0000 0000  |    |		.BLANK	0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0087       |    |		.CONST	0x0087								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0002       |    |		.CONST	0x0002								; Number of locals
0083			INIT_0080:
0083 e215       |    |		Load	0x1,0x15							; Debug Table 0x5 = .DEBUG	0x0083,0x0360,0x1002,0x0000,0x0037,0x0674,0x0000,0x003e
													; Debug Table 0x5.0x0 = 0x83,0xffff
0084 0322       | "  |		Declare_Variable	Record
0085 00d8       |    |		Load_Top	At_Offset_0
0086 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0087			BODY_0080:
0087 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x1 = 0x87,0x1
0088 8216       |    |		Call	0x1,0x16
0089 00d1       |    |		Pop_Control	Pop_Count_1
008a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x2 = 0x8a,0x2
008b 00ca       |    |		Action	Exit_Nullary_Function
008c 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x0093,0x0368,0x1002,0x0000,0x0037,0x0674,0x0000,0x0043
													; Debug Table 0x6.0x0 = 0x93,0x1
0094 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0095 e211       |    |		Load	0x1,0x11
0096 027f       |    |		Execute	Discrete,Equal
0097 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x009b,0x036c,0x1002,0x0000,0x0037,0x0674,0x0000,0x004c
													; Debug Table 0x7.0x0 = 0x9b,0x1
009c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
009d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 0007       |    |		Action	Break_Optional							; Debug Table 0x8 = .DEBUG	0x00a3,0x0370,0x1001,0x0000,0x0037,0x0674,0x0000,0x0055
													; Debug Table 0x8.0x0 = 0xa3,0x1
00a4 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x8.0x1 = 0xa4,0x2
00a5 00db       |    |		Load_Top	At_Offset_3
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 01d7       |    |		Execute	Vector,Field_Read
00a9 e5fe       |    |		Load	0x2,-0x2
00aa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ab e210       |    |		Load	0x1,0x10
00ac 025b       | [  |		Execute	Discrete,Check_In_Type
00ad 8213       |    |		Call	0x1,0x13
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 00db       |    |		Load_Top	At_Offset_3
00b0 01d6       |    |		Execute	Vector,Field_Write
00b1 00d2       |    |		Pop_Control	Pop_Count_2
00b2 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x2 = 0xb2,0x3
00b3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00b4 e211       |    |		Load	0x1,0x11
00b5 027f       |    |		Execute	Discrete,Equal
00b6 680b       |h   |		Jump_Zero	0xc2
00b7 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x3 = 0xb7,0x4
00b8 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x4 = 0xb8,0x5
00b9 e5fe       |    |		Load	0x2,-0x2
00ba 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00bb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x5 = 0xbb,0x6
00bc e5fe       |    |		Load	0x2,-0x2
00bd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00be 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x6 = 0xbe,0x7
00bf e5fe       |    |		Load	0x2,-0x2
00c0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c2 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x7 = 0xc2,0x8
00c3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x8 = 0xc3,0x9
00c4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c5 0a01       |    |		Execute_Immediate	Plus,0x1
00c6 e5fe       |    |		Load	0x2,-0x2
00c7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x9 = 0xc8,0xa
00c9 e5fe       |    |		Load	0x2,-0x2
00ca 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00cc 0000 0000  |    |		.BLANK	0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 0007       |    |		Action	Break_Optional							; Debug Table 0x9 = .DEBUG	0x00d3,0x0386,0x1001,0x0000,0x0037,0x0674,0x0000,0x0065
													; Debug Table 0x9.0x0 = 0xd3,0x1
00d4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x1 = 0xd4,0x2
00d5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d6 e211       |    |		Load	0x1,0x11
00d7 027f       |    |		Execute	Discrete,Equal
00d8 6808       |h   |		Jump_Zero	0xe1
00d9 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x2 = 0xd9,0x3
00da 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x3 = 0xda,0x4
00db e5fe       |    |		Load	0x2,-0x2
00dc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00dd 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x4 = 0xdd,0x5
00de e5fe       |    |		Load	0x2,-0x2
00df 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e0 7814       |x   |		Jump	0xf5
00e1 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x5 = 0xe1,0x6
00e2 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x6 = 0xe2,0x7
00e3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00e4 0a01       |    |		Execute_Immediate	Plus,0x1
00e5 e5fe       |    |		Load	0x2,-0x2
00e6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00e7 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x7 = 0xe7,0x8
00e8 e5fe       |    |		Load	0x2,-0x2
00e9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 01d7       |    |		Execute	Vector,Field_Read
00ed e5ff       |    |		Load	0x2,-0x1
00ee e210       |    |		Load	0x1,0x10
00ef 025b       | [  |		Execute	Discrete,Check_In_Type
00f0 8213       |    |		Call	0x1,0x13
00f1 00d9       |    |		Load_Top	At_Offset_1
00f2 00db       |    |		Load_Top	At_Offset_3
00f3 01d6       |    |		Execute	Vector,Field_Write
00f4 00d2       |    |		Pop_Control	Pop_Count_2
00f5 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x8 = 0xf5,0x9
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f8 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x9 = 0xf8,0xa
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb 00da       |    |		Load_Top	At_Offset_2
00fc 01d7       |    |		Execute	Vector,Field_Read
00fd e211       |    |		Load	0x1,0x11
00fe e210       |    |		Load	0x1,0x10
00ff 025b       | [  |		Execute	Discrete,Check_In_Type
0100 8213       |    |		Call	0x1,0x13
0101 00d9       |    |		Load_Top	At_Offset_1
0102 00db       |    |		Load_Top	At_Offset_3
0103 01d6       |    |		Execute	Vector,Field_Write
0104 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
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 0007       |    |		Action	Break_Optional							; Debug Table 0xa = .DEBUG	0x010b,0x039c,0x1001,0x0000,0x0037,0x0674,0x0000,0x0075
													; Debug Table 0xa.0x0 = 0x10b,0x1
010c 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x1 = 0x10c,0x2
010d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x2 = 0x10d,0x3
010e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
010f 0aff       |    |		Execute_Immediate	Plus,-0x1
0110 00db       |    |		Load_Top	At_Offset_3
0111 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0112 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x3 = 0x112,0x4
0113 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0114 c5fe       |    |		Store	0x2,-0x2
0115 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x4 = 0x115,0x5
0116 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0117 e5fd       |    |		Load	0x2,-0x3
0118 01d7       |    |		Execute	Vector,Field_Read
0119 e20f       |    |		Load	0x1,0xf
011a 0119       |    |		Execute	Any,Check_In_Formal_Type
011b 8214       |    |		Call	0x1,0x14
011c 00db       |    |		Load_Top	At_Offset_3
011d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
011e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
011f 0000       |    |		.XXX[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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb = .DEBUG	0x0123,0x03a8,0x1002,0x0000,0x0037,0x0674,0x0000,0x0085
													; Debug Table 0xb.0x0 = 0x123,0x1
0124 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0125 e210       |    |		Load	0x1,0x10
0126 025b       | [  |		Execute	Discrete,Check_In_Type
0127 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d       | -  |		.CONST	0x012d								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e210       |    |		Load	0x1,0x10							; Debug Table 0xc = .DEBUG	0x012b,0x03ac,0x1001,0x0000,0x0037,0x0674,0x0000,0x008e
													; Debug Table 0xc.0x0 = 0x12b,0xffff
012c 0007       |    |		Action	Break_Optional
012d			BODY_0128:
012d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x1 = 0x12d,0x1
012e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0130 00cf       |    |		Action	Mark_Auxiliary
0131 0007       |    |		Action	Break_Optional							; Debug Table 0xc.0x2 = 0x131,0x2
0132 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x3 = 0x132,0x3
0133 e211       |    |		Load	0x1,0x11
0134 027f       |    |		Execute	Discrete,Equal
0135 6803       |h   |		Jump_Zero	0x139
0136 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x4 = 0x136,0x4
0137 a5fc       |    |		Store_Unchecked	0x2,-0x4
0138 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xc.0x5 = 0x138,0x5
0139 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x6 = 0x139,0x6
013a e5fe       |    |		Load	0x2,-0x2
013b 027f       |    |		Execute	Discrete,Equal
013c 6803       |h   |		Jump_Zero	0x140
013d 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0x7 = 0x13d,0x7
013e a5fc       |    |		Store_Unchecked	0x2,-0x4
013f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xc.0x8 = 0x13f,0x8
0140 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x9 = 0x140,0x9
0141 e5fd       |    |		Load	0x2,-0x3
0142 01d7       |    |		Execute	Vector,Field_Read
0143 e20f       |    |		Load	0x1,0xf
0144 0119       |    |		Execute	Any,Check_In_Formal_Type
0145 8214       |    |		Call	0x1,0x14
0146 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0147 00c9       |    |		Action	Pop_Auxiliary_Loop
0148 7fe9       |    |		Jump	0x132
0149 0000 0000  |    |		.BLANK	0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155       | U  |		.CONST	0x0155								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0003       |    |		.CONST	0x0003								; Number of locals
0153			INIT_0150:
0153 e210       |    |		Load	0x1,0x10							; Debug Table 0xd = .DEBUG	0x0153,0x03c2,0x1001,0x0000,0x0037,0x0674,0x0000,0x00a2
													; Debug Table 0xd.0x0 = 0x153,0xffff
0154 03e9       |    |		Declare_Variable	Discrete,Duplicate
0155			BODY_0150:
0155 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x1 = 0x155,0x1
0156 e211       |    |		Load	0x1,0x11							; Debug Table 0xd.0x2 = 0x156,0x2
0157 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0158 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x3 = 0x158,0x3
0159 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
015b 00cf       |    |		Action	Mark_Auxiliary
015c 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x4 = 0x15c,0x4
015d 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x5 = 0x15d,0x5
015e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x6 = 0x15e,0x6
015f e5ff       |    |		Load	0x2,-0x1
0160 027f       |    |		Execute	Discrete,Equal
0161 682d       |h-  |		Jump_Zero	0x18f
0162 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0x7 = 0x162,0x7
0163 e211       |    |		Load	0x1,0x11
0164 027f       |    |		Execute	Discrete,Equal
0165 6809       |h   |		Jump_Zero	0x16f
0166 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x8 = 0x166,0x8
0167 e5fd       |    |		Load	0x2,-0x3
0168 01d7       |    |		Execute	Vector,Field_Read
0169 e20f       |    |		Load	0x1,0xf
016a 0119       |    |		Execute	Any,Check_In_Formal_Type
016b 8214       |    |		Call	0x1,0x14
016c e5fe       |    |		Load	0x2,-0x2
016d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
016e 781a       |x   |		Jump	0x189
016f e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xd.0x9 = 0x16f,0x9
0170 00db       |    |		Load_Top	At_Offset_3
0171 00d8       |    |		Load_Top	At_Offset_0
0172 00da       |    |		Load_Top	At_Offset_2
0173 01d7       |    |		Execute	Vector,Field_Read
0174 e403       |    |		Load	0x2,0x3
0175 e5fd       |    |		Load	0x2,-0x3
0176 01d7       |    |		Execute	Vector,Field_Read
0177 e20f       |    |		Load	0x1,0xf
0178 0119       |    |		Execute	Any,Check_In_Formal_Type
0179 8214       |    |		Call	0x1,0x14
017a e210       |    |		Load	0x1,0x10
017b 025b       | [  |		Execute	Discrete,Check_In_Type
017c 8213       |    |		Call	0x1,0x13
017d 00d9       |    |		Load_Top	At_Offset_1
017e 00db       |    |		Load_Top	At_Offset_3
017f 01d6       |    |		Execute	Vector,Field_Write
0180 00d2       |    |		Pop_Control	Pop_Count_2
0181 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0xa = 0x181,0xa
0182 e5fe       |    |		Load	0x2,-0x2
0183 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0184 027f       |    |		Execute	Discrete,Equal
0185 6803       |h   |		Jump_Zero	0x189
0186 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0xb = 0x186,0xb
0187 e5fe       |    |		Load	0x2,-0x2
0188 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0189 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0xc = 0x189,0xc
018a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
018b 0aff       |    |		Execute_Immediate	Plus,-0x1
018c e5fe       |    |		Load	0x2,-0x2
018d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
018e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xd.0xd = 0x18e,0xd
018f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0xe = 0x18f,0xe
0190 005b       | [  |		Store_Top	Discrete,At_Offset_3
0191 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0xf = 0x191,0xf
0192 e5fd       |    |		Load	0x2,-0x3
0193 01d7       |    |		Execute	Vector,Field_Read
0194 e20f       |    |		Load	0x1,0xf
0195 0119       |    |		Execute	Any,Check_In_Formal_Type
0196 8214       |    |		Call	0x1,0x14
0197 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0198 00c9       |    |		Action	Pop_Auxiliary_Loop
0199 7fc3       |    |		Jump	0x15d
019a 0000 0000  |    |		.BLANK	0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 4608       |F   |		Jump_Case	0x9							; Debug Table 0xe = .DEBUG	0x01a3,0x03e4,0x1005,0x0000,0x0037,0x0674,0x0000,0x0114
01a4 7808       |x   |		Jump	0x1ad								; case 0x0
01a5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01a6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
01a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01a8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01a9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
01aa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
01ab 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
01ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
01ad e211       |    |		Load	0x1,0x11
01ae 00db       |    |		Load_Top	At_Offset_3
01af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b0 e211       |    |		Load	0x1,0x11
01b1 00db       |    |		Load_Top	At_Offset_3
01b2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b3 4800       |H   |		Short_Literal	0x0
01b4 00db       |    |		Load_Top	At_Offset_3
01b5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01b7 0000       |    |		.XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bc       |    |		.CONST	0x01bc								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0002       |    |		.CONST	0x0002								; Number of locals
01bb			INIT_01b8:
01bb 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xf = .DEBUG	0x01bb,0x03e6,0x1002,0x0000,0x0037,0x1564,0x0000,0x005a
													; Debug Table 0xf.0x0 = 0x1bb,0xffff
01bc			BODY_01b8:
01bc 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xf.0x1 = 0x1bc,0x1
01bd e5fd       |    |		Load	0x2,-0x3
01be e5fe       |    |		Load	0x2,-0x2
01bf e210       |    |		Load	0x1,0x10
01c0 025b       | [  |		Execute	Discrete,Check_In_Type
01c1 e5ff       |    |		Load	0x2,-0x1
01c2 821e       |    |		Call	0x1,0x1e
01c3 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01c4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x2 = 0x1c4,0x2
01c5 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01c6 0000 0000  |    |		.XXX[0x2]
01c8 000f 2413  |  $ |		.LITERAL	{0x000f2413, 0x00001d30}
01cc 0000 0000  |    |		.BLANK	0000[0x4]
01d0 01dc 0004  |    |		.XXX[0x3]
01d2 0012       |    |
01d3 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x10 = .DEBUG	0x01d3,0x03ee,0x4000,0x0000,0x0037,0x0674,0x0000,0x00b2
													; Debug Table 0x10.0x0 = 0x1d3,0xffff
01d5 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x10.0x1 = 0x1d5,0xfffe
01d7 00bf       |    |		Action	Accept_Activation
01d8 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x11 = .DEBUG	0x01d8,0x03f4,0x4000,0x0000,0x0037,0x1564,0x0000,0x0293
													; Debug Table 0x11.0x0 = 0x1d8,0xffff
01d9 00c7       |    |		Action	Elaborate_Subprogram
01da 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x11.0x1 = 0x1da,0xfffe
01db 00c7       |    |		Action	Elaborate_Subprogram
01dc 00bc       |    |		Action	Signal_Activated
01dd 00bb       |    |		Action	Signal_Completion
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5       |    |		.CONST	0x01e5								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0002       |    |		.CONST	0x0002								; Number of locals
01e3			INIT_01e0:
01e3 e001       |    |		Load	0x0,0x1								; Debug Table 0x12 = .DEBUG	0x01e3,0x03fa,0x1001,0x0000,0x0037,0x0674,0x0000,0x00c2
													; Debug Table 0x12.0x0 = 0x1e3,0xffff
01e4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01e5			BODY_01e0:
01e5 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x12.0x1 = 0x1e5,0x1
01e6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e7 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01e8 00cf       |    |		Action	Mark_Auxiliary
01e9 0007       |    |		Action	Break_Optional							; Debug Table 0x12.0x2 = 0x1e9,0x2
01ea 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x12.0x3 = 0x1ea,0x3
01eb e001       |    |		Load	0x0,0x1
01ec 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01ed 027f       |    |		Execute	Discrete,Equal
01ee 6806       |h   |		Jump_Zero	0x1f5
01ef 4800       |H   |		Short_Literal	0x0							; Debug Table 0x12.0x4 = 0x1ef,0x4
01f0 a5fc       |    |		Store_Unchecked	0x2,-0x4
01f1 e001       |    |		Load	0x0,0x1								; Debug Table 0x12.0x5 = 0x1f1,0x5
01f2 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01f3 c5fb       |    |		Store	0x2,-0x5
01f4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x12.0x6 = 0x1f4,0x6
01f5 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x12.0x7 = 0x1f5,0x7
01f6 00da       |    |		Load_Top	At_Offset_2
01f7 e5fd       |    |		Load	0x2,-0x3
01f8 01d7       |    |		Execute	Vector,Field_Read
01f9 e001       |    |		Load	0x0,0x1
01fa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fb 0119       |    |		Execute	Any,Check_In_Formal_Type
01fc 8210       |    |		Call	0x1,0x10
01fd 012f       | /  |		Execute	Any,Equal
01fe 6805       |h   |		Jump_Zero	0x204
01ff 4801       |H   |		Short_Literal	0x1							; Debug Table 0x12.0x8 = 0x1ff,0x8
0200 a5fc       |    |		Store_Unchecked	0x2,-0x4
0201 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x12.0x9 = 0x201,0x9
0202 c5fb       |    |		Store	0x2,-0x5
0203 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x12.0xa = 0x203,0xa
0204 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x12.0xb = 0x204,0xb
0205 e5fd       |    |		Load	0x2,-0x3
0206 01d7       |    |		Execute	Vector,Field_Read
0207 e001       |    |		Load	0x0,0x1
0208 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0209 0119       |    |		Execute	Any,Check_In_Formal_Type
020a e001       |    |		Load	0x0,0x1
020b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
020c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
020d 00c9       |    |		Action	Pop_Auxiliary_Loop
020e 7fdb       |    |		Jump	0x1ea
020f 0000       |    |		.XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0216       |    |		.CONST	0x0216								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0003       |    |		.CONST	0x0003								; Number of locals
0213			INIT_0210:
0213 e001       |    |		Load	0x0,0x1								; Debug Table 0x13 = .DEBUG	0x0213,0x0414,0x1001,0x0000,0x0037,0x0674,0x0000,0x00da
													; Debug Table 0x13.0x0 = 0x213,0xffff
0214 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0215 03e9       |    |		Declare_Variable	Discrete,Duplicate
0216			BODY_0210:
0216 e001       |    |		Load	0x0,0x1								; Debug Table 0x13.0x1 = 0x216,0x1
0217 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0218 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0219 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x13.0x2 = 0x219,0x2
021a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
021c 00cf       |    |		Action	Mark_Auxiliary
021d 0007       |    |		Action	Break_Optional							; Debug Table 0x13.0x3 = 0x21d,0x3
021e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x4 = 0x21e,0x4
021f e001       |    |		Load	0x0,0x1
0220 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0221 027f       |    |		Execute	Discrete,Equal
0222 6803       |h   |		Jump_Zero	0x226
0223 4800       |H   |		Short_Literal	0x0							; Debug Table 0x13.0x5 = 0x223,0x5
0224 a5fd       |    |		Store_Unchecked	0x2,-0x3
0225 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x13.0x6 = 0x225,0x6
0226 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13.0x7 = 0x226,0x7
0227 00da       |    |		Load_Top	At_Offset_2
0228 e5fc       |    |		Load	0x2,-0x4
0229 01d7       |    |		Execute	Vector,Field_Read
022a e001       |    |		Load	0x0,0x1
022b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
022c 0119       |    |		Execute	Any,Check_In_Formal_Type
022d 8210       |    |		Call	0x1,0x10
022e 012f       | /  |		Execute	Any,Equal
022f 6836       |h6  |		Jump_Zero	0x266
0230 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13.0x8 = 0x230,0x8
0231 e001       |    |		Load	0x0,0x1
0232 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0233 027f       |    |		Execute	Discrete,Equal
0234 680b       |h   |		Jump_Zero	0x240
0235 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x9 = 0x235,0x9
0236 e5fc       |    |		Load	0x2,-0x4
0237 01d7       |    |		Execute	Vector,Field_Read
0238 e001       |    |		Load	0x0,0x1
0239 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
023a 0119       |    |		Execute	Any,Check_In_Formal_Type
023b e001       |    |		Load	0x0,0x1
023c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
023d e5fe       |    |		Load	0x2,-0x2
023e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
023f 781e       |x   |		Jump	0x25e
0240 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x13.0xa = 0x240,0xa
0241 00db       |    |		Load_Top	At_Offset_3
0242 00d8       |    |		Load_Top	At_Offset_0
0243 00da       |    |		Load_Top	At_Offset_2
0244 01d7       |    |		Execute	Vector,Field_Read
0245 e403       |    |		Load	0x2,0x3
0246 e5fc       |    |		Load	0x2,-0x4
0247 01d7       |    |		Execute	Vector,Field_Read
0248 e001       |    |		Load	0x0,0x1
0249 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
024a 0119       |    |		Execute	Any,Check_In_Formal_Type
024b e001       |    |		Load	0x0,0x1
024c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
024d e001       |    |		Load	0x0,0x1
024e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
024f 025b       | [  |		Execute	Discrete,Check_In_Type
0250 e001       |    |		Load	0x0,0x1
0251 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0252 00d9       |    |		Load_Top	At_Offset_1
0253 00db       |    |		Load_Top	At_Offset_3
0254 01d6       |    |		Execute	Vector,Field_Write
0255 00d2       |    |		Pop_Control	Pop_Count_2
0256 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0xb = 0x256,0xb
0257 e5fe       |    |		Load	0x2,-0x2
0258 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0259 027f       |    |		Execute	Discrete,Equal
025a 6803       |h   |		Jump_Zero	0x25e
025b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13.0xc = 0x25b,0xc
025c e5fe       |    |		Load	0x2,-0x2
025d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
025e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x13.0xd = 0x25e,0xd
025f a5fd       |    |		Store_Unchecked	0x2,-0x3
0260 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x13.0xe = 0x260,0xe
0261 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0262 0aff       |    |		Execute_Immediate	Plus,-0x1
0263 e5fe       |    |		Load	0x2,-0x2
0264 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0265 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x13.0xf = 0x265,0xf
0266 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x10 = 0x266,0x10
0267 005b       | [  |		Store_Top	Discrete,At_Offset_3
0268 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x11 = 0x268,0x11
0269 e5fc       |    |		Load	0x2,-0x4
026a 01d7       |    |		Execute	Vector,Field_Read
026b e001       |    |		Load	0x0,0x1
026c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
026d 0119       |    |		Execute	Any,Check_In_Formal_Type
026e e001       |    |		Load	0x0,0x1
026f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0270 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0271 00c9       |    |		Action	Pop_Auxiliary_Loop
0272 7fab       |    |		Jump	0x21e
0273 0000 0000  |    |		.BLANK	0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug Table
0278 ; --------------------------------------------------------------------------------------
0278 0003 0014  |    |		.CONST	0x0003,0x0014
027a 000b 031a  |    |		.DEBUG	0x000b,0x031a,0x8000,0x0000,0x0037,0x0674,0x0000,0x0003
0282 0010 031e  |    |		.DEBUG	0x0010,0x031e,0x8000,0x0000,0x0037,0x1564,0x0000,0x0003
028a 001b 0322  |   "|		.DEBUG	0x001b,0x0322,0x4000,0x0000,0x0037,0x0674,0x0000,0x0004
0292 004a 0342  | J B|		.DEBUG	0x004a,0x0342,0x4000,0x0000,0x0037,0x1564,0x0000,0x0004
029a 006b 035c  | k \|		.DEBUG	0x006b,0x035c,0x1001,0x0000,0x0037,0x0674,0x0000,0x0036
02a2 0083 0360  |   `|		.DEBUG	0x0083,0x0360,0x1002,0x0000,0x0037,0x0674,0x0000,0x003e
02aa 0093 0368  |   h|		.DEBUG	0x0093,0x0368,0x1002,0x0000,0x0037,0x0674,0x0000,0x0043
02b2 009b 036c  |   l|		.DEBUG	0x009b,0x036c,0x1002,0x0000,0x0037,0x0674,0x0000,0x004c
02ba 00a3 0370  |   p|		.DEBUG	0x00a3,0x0370,0x1001,0x0000,0x0037,0x0674,0x0000,0x0055
02c2 00d3 0386  |    |		.DEBUG	0x00d3,0x0386,0x1001,0x0000,0x0037,0x0674,0x0000,0x0065
02ca 010b 039c  |    |		.DEBUG	0x010b,0x039c,0x1001,0x0000,0x0037,0x0674,0x0000,0x0075
02d2 0123 03a8  | #  |		.DEBUG	0x0123,0x03a8,0x1002,0x0000,0x0037,0x0674,0x0000,0x0085
02da 012b 03ac  | +  |		.DEBUG	0x012b,0x03ac,0x1001,0x0000,0x0037,0x0674,0x0000,0x008e
02e2 0153 03c2  | S  |		.DEBUG	0x0153,0x03c2,0x1001,0x0000,0x0037,0x0674,0x0000,0x00a2
02ea 01a3 03e4  |    |		.DEBUG	0x01a3,0x03e4,0x1005,0x0000,0x0037,0x0674,0x0000,0x0114
02f2 01bb 03e6  |    |		.DEBUG	0x01bb,0x03e6,0x1002,0x0000,0x0037,0x1564,0x0000,0x005a
02fa 01d3 03ee  |    |		.DEBUG	0x01d3,0x03ee,0x4000,0x0000,0x0037,0x0674,0x0000,0x00b2
0302 01d8 03f4  |    |		.DEBUG	0x01d8,0x03f4,0x4000,0x0000,0x0037,0x1564,0x0000,0x0293
030a 01e3 03fa  |    |		.DEBUG	0x01e3,0x03fa,0x1001,0x0000,0x0037,0x0674,0x0000,0x00c2
0312 0213 0414  |    |		.DEBUG	0x0213,0x0414,0x1001,0x0000,0x0037,0x0674,0x0000,0x00da
031a ; --------------------------------------------------------------------------------------
031a ; Debug3 Subtable 0x0
031a ; --------------------------------------------------------------------------------------
031a 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
031c 000b ffff  |    |		.CONST	0x000b,0xffff
031e ; --------------------------------------------------------------------------------------
031e ; Debug3 Subtable 0x1
031e ; --------------------------------------------------------------------------------------
031e 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
0320 0010 ffff  |    |		.CONST	0x0010,0xffff
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug3 Subtable 0x2
0322 ; --------------------------------------------------------------------------------------
0322 000f 0000  |    |		.DBG3TAB	0x000f,0x0000
0324 001b ffff  |    |		.CONST	0x001b,0xffff
0326 001d fffe  |    |		.CONST	0x001d,0xfffe
0328 001f fffd  |    |		.CONST	0x001f,0xfffd
032a 0021 fffc  | !  |		.CONST	0x0021,0xfffc
032c 0023 fffb  | #  |		.CONST	0x0023,0xfffb
032e 0025 fffa  | %  |		.CONST	0x0025,0xfffa
0330 0027 fff9  | '  |		.CONST	0x0027,0xfff9
0332 0029 fff8  | )  |		.CONST	0x0029,0xfff8
0334 002b fff7  | +  |		.CONST	0x002b,0xfff7
0336 002d fff6  | -  |		.CONST	0x002d,0xfff6
0338 002f fff5  | /  |		.CONST	0x002f,0xfff5
033a 0031 fff4  | 1  |		.CONST	0x0031,0xfff4
033c 0035 fff3  | 5  |		.CONST	0x0035,0xfff3
033e 003e fff2  | >  |		.CONST	0x003e,0xfff2
0340 0042 fff1  | B  |		.CONST	0x0042,0xfff1
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug3 Subtable 0x3
0342 ; --------------------------------------------------------------------------------------
0342 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
0344 004a ffff  | J  |		.CONST	0x004a,0xffff
0346 004c fffe  | L  |		.CONST	0x004c,0xfffe
0348 004e fffd  | N  |		.CONST	0x004e,0xfffd
034a 0050 fffc  | P  |		.CONST	0x0050,0xfffc
034c 0052 fffb  | R  |		.CONST	0x0052,0xfffb
034e 0054 fffa  | T  |		.CONST	0x0054,0xfffa
0350 0056 fff9  | V  |		.CONST	0x0056,0xfff9
0352 0058 fff8  | X  |		.CONST	0x0058,0xfff8
0354 005a fff7  | Z  |		.CONST	0x005a,0xfff7
0356 005c fff6  | \  |		.CONST	0x005c,0xfff6
0358 005e fff5  | ^  |		.CONST	0x005e,0xfff5
035a 0060 fff4  | `  |		.CONST	0x0060,0xfff4
035c ; --------------------------------------------------------------------------------------
035c ; Debug3 Subtable 0x4
035c ; --------------------------------------------------------------------------------------
035c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
035e 006b 0001  | k  |		.CONST	0x006b,0x0001
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug3 Subtable 0x5
0360 ; --------------------------------------------------------------------------------------
0360 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0362 0083 ffff  |    |		.CONST	0x0083,0xffff
0364 0087 0001  |    |		.CONST	0x0087,0x0001
0366 008a 0002  |    |		.CONST	0x008a,0x0002
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug3 Subtable 0x6
0368 ; --------------------------------------------------------------------------------------
0368 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
036a 0093 0001  |    |		.CONST	0x0093,0x0001
036c ; --------------------------------------------------------------------------------------
036c ; Debug3 Subtable 0x7
036c ; --------------------------------------------------------------------------------------
036c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
036e 009b 0001  |    |		.CONST	0x009b,0x0001
0370 ; --------------------------------------------------------------------------------------
0370 ; Debug3 Subtable 0x8
0370 ; --------------------------------------------------------------------------------------
0370 0000 000a  |    |		.DBG3TAB	0x0000,0x000a
0372 00a3 0001  |    |		.CONST	0x00a3,0x0001
0374 00a4 0002  |    |		.CONST	0x00a4,0x0002
0376 00b2 0003  |    |		.CONST	0x00b2,0x0003
0378 00b7 0004  |    |		.CONST	0x00b7,0x0004
037a 00b8 0005  |    |		.CONST	0x00b8,0x0005
037c 00bb 0006  |    |		.CONST	0x00bb,0x0006
037e 00be 0007  |    |		.CONST	0x00be,0x0007
0380 00c2 0008  |    |		.CONST	0x00c2,0x0008
0382 00c3 0009  |    |		.CONST	0x00c3,0x0009
0384 00c8 000a  |    |		.CONST	0x00c8,0x000a
0386 ; --------------------------------------------------------------------------------------
0386 ; Debug3 Subtable 0x9
0386 ; --------------------------------------------------------------------------------------
0386 0000 000a  |    |		.DBG3TAB	0x0000,0x000a
0388 00d3 0001  |    |		.CONST	0x00d3,0x0001
038a 00d4 0002  |    |		.CONST	0x00d4,0x0002
038c 00d9 0003  |    |		.CONST	0x00d9,0x0003
038e 00da 0004  |    |		.CONST	0x00da,0x0004
0390 00dd 0005  |    |		.CONST	0x00dd,0x0005
0392 00e1 0006  |    |		.CONST	0x00e1,0x0006
0394 00e2 0007  |    |		.CONST	0x00e2,0x0007
0396 00e7 0008  |    |		.CONST	0x00e7,0x0008
0398 00f5 0009  |    |		.CONST	0x00f5,0x0009
039a 00f8 000a  |    |		.CONST	0x00f8,0x000a
039c ; --------------------------------------------------------------------------------------
039c ; Debug3 Subtable 0xa
039c ; --------------------------------------------------------------------------------------
039c 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
039e 010b 0001  |    |		.CONST	0x010b,0x0001
03a0 010c 0002  |    |		.CONST	0x010c,0x0002
03a2 010d 0003  |    |		.CONST	0x010d,0x0003
03a4 0112 0004  |    |		.CONST	0x0112,0x0004
03a6 0115 0005  |    |		.CONST	0x0115,0x0005
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug3 Subtable 0xb
03a8 ; --------------------------------------------------------------------------------------
03a8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03aa 0123 0001  | #  |		.CONST	0x0123,0x0001
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug3 Subtable 0xc
03ac ; --------------------------------------------------------------------------------------
03ac 0001 0009  |    |		.DBG3TAB	0x0001,0x0009
03ae 012b ffff  | +  |		.CONST	0x012b,0xffff
03b0 012d 0001  | -  |		.CONST	0x012d,0x0001
03b2 0131 0002  | 1  |		.CONST	0x0131,0x0002
03b4 0132 0003  | 2  |		.CONST	0x0132,0x0003
03b6 0136 0004  | 6  |		.CONST	0x0136,0x0004
03b8 0138 0005  | 8  |		.CONST	0x0138,0x0005
03ba 0139 0006  | 9  |		.CONST	0x0139,0x0006
03bc 013d 0007  | =  |		.CONST	0x013d,0x0007
03be 013f 0008  | ?  |		.CONST	0x013f,0x0008
03c0 0140 0009  | @  |		.CONST	0x0140,0x0009
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug3 Subtable 0xd
03c2 ; --------------------------------------------------------------------------------------
03c2 0001 000f  |    |		.DBG3TAB	0x0001,0x000f
03c4 0153 ffff  | S  |		.CONST	0x0153,0xffff
03c6 0155 0001  | U  |		.CONST	0x0155,0x0001
03c8 0156 0002  | V  |		.CONST	0x0156,0x0002
03ca 0158 0003  | X  |		.CONST	0x0158,0x0003
03cc 015c 0004  | \  |		.CONST	0x015c,0x0004
03ce 015d 0005  | ]  |		.CONST	0x015d,0x0005
03d0 015e 0006  | ^  |		.CONST	0x015e,0x0006
03d2 0162 0007  | b  |		.CONST	0x0162,0x0007
03d4 0166 0008  | f  |		.CONST	0x0166,0x0008
03d6 016f 0009  | o  |		.CONST	0x016f,0x0009
03d8 0181 000a  |    |		.CONST	0x0181,0x000a
03da 0186 000b  |    |		.CONST	0x0186,0x000b
03dc 0189 000c  |    |		.CONST	0x0189,0x000c
03de 018e 000d  |    |		.CONST	0x018e,0x000d
03e0 018f 000e  |    |		.CONST	0x018f,0x000e
03e2 0191 000f  |    |		.CONST	0x0191,0x000f
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0xe
03e4 ; --------------------------------------------------------------------------------------
03e4 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
03e6 ; --------------------------------------------------------------------------------------
03e6 ; Debug3 Subtable 0xf
03e6 ; --------------------------------------------------------------------------------------
03e6 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
03e8 01bb ffff  |    |		.CONST	0x01bb,0xffff
03ea 01bc 0001  |    |		.CONST	0x01bc,0x0001
03ec 01c4 0002  |    |		.CONST	0x01c4,0x0002
03ee ; --------------------------------------------------------------------------------------
03ee ; Debug3 Subtable 0x10
03ee ; --------------------------------------------------------------------------------------
03ee 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
03f0 01d3 ffff  |    |		.CONST	0x01d3,0xffff
03f2 01d5 fffe  |    |		.CONST	0x01d5,0xfffe
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0x11
03f4 ; --------------------------------------------------------------------------------------
03f4 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
03f6 01d8 ffff  |    |		.CONST	0x01d8,0xffff
03f8 01da fffe  |    |		.CONST	0x01da,0xfffe
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug3 Subtable 0x12
03fa ; --------------------------------------------------------------------------------------
03fa 0001 000b  |    |		.DBG3TAB	0x0001,0x000b
03fc 01e3 ffff  |    |		.CONST	0x01e3,0xffff
03fe 01e5 0001  |    |		.CONST	0x01e5,0x0001
0400 01e9 0002  |    |		.CONST	0x01e9,0x0002
0402 01ea 0003  |    |		.CONST	0x01ea,0x0003
0404 01ef 0004  |    |		.CONST	0x01ef,0x0004
0406 01f1 0005  |    |		.CONST	0x01f1,0x0005
0408 01f4 0006  |    |		.CONST	0x01f4,0x0006
040a 01f5 0007  |    |		.CONST	0x01f5,0x0007
040c 01ff 0008  |    |		.CONST	0x01ff,0x0008
040e 0201 0009  |    |		.CONST	0x0201,0x0009
0410 0203 000a  |    |		.CONST	0x0203,0x000a
0412 0204 000b  |    |		.CONST	0x0204,0x000b
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug3 Subtable 0x13
0414 ; --------------------------------------------------------------------------------------
0414 0001 0011  |    |		.DBG3TAB	0x0001,0x0011
0416 0213 ffff  |    |		.CONST	0x0213,0xffff
0418 0216 0001  |    |		.CONST	0x0216,0x0001
041a 0219 0002  |    |		.CONST	0x0219,0x0002
041c 021d 0003  |    |		.CONST	0x021d,0x0003
041e 021e 0004  |    |		.CONST	0x021e,0x0004
0420 0223 0005  | #  |		.CONST	0x0223,0x0005
0422 0225 0006  | %  |		.CONST	0x0225,0x0006
0424 0226 0007  | &  |		.CONST	0x0226,0x0007
0426 0230 0008  | 0  |		.CONST	0x0230,0x0008
0428 0235 0009  | 5  |		.CONST	0x0235,0x0009
042a 0240 000a  | @  |		.CONST	0x0240,0x000a
042c 0256 000b  | V  |		.CONST	0x0256,0x000b
042e 025b 000c  | [  |		.CONST	0x025b,0x000c
0430 025e 000d  | ^  |		.CONST	0x025e,0x000d
0432 0260 000e  | `  |		.CONST	0x0260,0x000e
0434 0265 000f  | e  |		.CONST	0x0265,0x000f
0436 0266 0010  | f  |		.CONST	0x0266,0x0010
0438 0268 0011  | h  |		.CONST	0x0268,0x0011
043a 0000 0000  |    |		.BLANK	0000[0x1c6]