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

⟦723fc3fa4⟧ SEG

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5805       |X   |		.CONST	0x5805								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02a0       |    |		.CONST	0x02a0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 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,0x0342,0x8000,0x0000,0x000e,0x7d74,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 6007       |`   |		Indirect_Literal	Discrete,0x14,{0x00a86411, 0x000001b0}		; 0xa86411 = 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,0x0346,0x8000,0x0000,0x000e,0x8294,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 00a8 6411  |  d |		.LITERAL	{0x00a86411, 0x000001b0}
0018 0066 0004  | f  |		.XXX[0x3]
001a 0023       | #  |
001b 4803       |H   |		Short_Literal	0x3							; Debug Table 0x2 = .DEBUG	0x001b,0x034a,0x4000,0x0000,0x000e,0x7d74,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 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x6 = 0x27,0xfff9
0029 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x7 = 0x29,0xfff8
002b 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x8 = 0x2b,0xfff7
002d 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x9 = 0x2d,0xfff6
002f 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0xa = 0x2f,0xfff5
0031 4804       |H   |		Short_Literal	0x4							; Debug Table 0x2.0xb = 0x31,0xfff4
0032 61bd       |a   |		Indirect_Literal	Discrete,0x1f0,{0x00a86411, 0x00001fb0}		; 0xa86411 = 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 01cb  |    |		Declare_Subprogram	INIT_01c8,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,0x036a,0x4000,0x0000,0x000e,0x8294,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 01e3  |    |		Declare_Subprogram	INIT_01e0,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,0x0384,0x1001,0x0000,0x000e,0x7d74,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,0x0388,0x1002,0x0000,0x000e,0x7d74,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,0x0390,0x1002,0x0000,0x000e,0x7d74,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,0x0394,0x1002,0x0000,0x000e,0x7d74,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,0x0398,0x1001,0x0000,0x000e,0x7d74,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 680f       |h   |		Jump_Zero	0xc6
00b7 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x3 = 0xb7,0x4
00b8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00b9 6802       |h   |		Jump_Zero	0xbc
00ba 4887       |H   |		Short_Literal	0x87
00bb 0257       | W  |		Execute	Discrete,Raise
00bc 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x4 = 0xbc,0x5
00bd e5fe       |    |		Load	0x2,-0x2
00be 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00bf 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x5 = 0xbf,0x6
00c0 e5fe       |    |		Load	0x2,-0x2
00c1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c2 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x6 = 0xc2,0x7
00c3 e5fe       |    |		Load	0x2,-0x2
00c4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x7 = 0xc6,0x8
00c7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c8 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00c9 7002       |p   |		Jump_Nonzero	0xcc
00ca 4887       |H   |		Short_Literal	0x87
00cb 0257       | W  |		Execute	Discrete,Raise
00cc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x8 = 0xcc,0x9
00cd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ce 0a01       |    |		Execute_Immediate	Plus,0x1
00cf e5fe       |    |		Load	0x2,-0x2
00d0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00d1 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x9 = 0xd1,0xa
00d2 e5fe       |    |		Load	0x2,-0x2
00d3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d5 0000 0000  |    |		.XXX[0x3]
00d7 0000       |    |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 0007       |    |		Action	Break_Optional							; Debug Table 0x9 = .DEBUG	0x00db,0x03ae,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0065
													; Debug Table 0x9.0x0 = 0xdb,0x1
00dc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x1 = 0xdc,0x2
00dd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00de e211       |    |		Load	0x1,0x11
00df 027f       |    |		Execute	Discrete,Equal
00e0 680c       |h   |		Jump_Zero	0xed
00e1 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x2 = 0xe1,0x3
00e2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00e3 6802       |h   |		Jump_Zero	0xe6
00e4 4887       |H   |		Short_Literal	0x87
00e5 0257       | W  |		Execute	Discrete,Raise
00e6 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x3 = 0xe6,0x4
00e7 e5fe       |    |		Load	0x2,-0x2
00e8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00e9 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x4 = 0xe9,0x5
00ea e5fe       |    |		Load	0x2,-0x2
00eb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ec 7819       |x   |		Jump	0x106
00ed 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x5 = 0xed,0x6
00ee 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ef 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00f0 7002       |p   |		Jump_Nonzero	0xf3
00f1 4887       |H   |		Short_Literal	0x87
00f2 0257       | W  |		Execute	Discrete,Raise
00f3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x6 = 0xf3,0x7
00f4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00f5 0a01       |    |		Execute_Immediate	Plus,0x1
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00f8 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x7 = 0xf8,0x8
00f9 e5fe       |    |		Load	0x2,-0x2
00fa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc 00da       |    |		Load_Top	At_Offset_2
00fd 01d7       |    |		Execute	Vector,Field_Read
00fe e5ff       |    |		Load	0x2,-0x1
00ff e210       |    |		Load	0x1,0x10
0100 025b       | [  |		Execute	Discrete,Check_In_Type
0101 8213       |    |		Call	0x1,0x13
0102 00d9       |    |		Load_Top	At_Offset_1
0103 00db       |    |		Load_Top	At_Offset_3
0104 01d6       |    |		Execute	Vector,Field_Write
0105 00d2       |    |		Pop_Control	Pop_Count_2
0106 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x8 = 0x106,0x9
0107 e5fe       |    |		Load	0x2,-0x2
0108 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0109 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x9 = 0x109,0xa
010a 00db       |    |		Load_Top	At_Offset_3
010b 00d8       |    |		Load_Top	At_Offset_0
010c 00da       |    |		Load_Top	At_Offset_2
010d 01d7       |    |		Execute	Vector,Field_Read
010e e211       |    |		Load	0x1,0x11
010f e210       |    |		Load	0x1,0x10
0110 025b       | [  |		Execute	Discrete,Check_In_Type
0111 8213       |    |		Call	0x1,0x13
0112 00d9       |    |		Load_Top	At_Offset_1
0113 00db       |    |		Load_Top	At_Offset_3
0114 01d6       |    |		Execute	Vector,Field_Write
0115 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0116 0000 0000  |    |		.XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa = .DEBUG	0x011b,0x03c4,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0075
													; Debug Table 0xa.0x0 = 0x11b,0x1
011c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011d e211       |    |		Load	0x1,0x11
011e 027e       | ~  |		Execute	Discrete,Not_Equal
011f 7002       |p   |		Jump_Nonzero	0x122
0120 4887       |H   |		Short_Literal	0x87
0121 0257       | W  |		Execute	Discrete,Raise
0122 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x1 = 0x122,0x2
0123 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0124 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0125 7002       |p   |		Jump_Nonzero	0x128
0126 4887       |H   |		Short_Literal	0x87
0127 0257       | W  |		Execute	Discrete,Raise
0128 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x2 = 0x128,0x3
0129 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
012a 0aff       |    |		Execute_Immediate	Plus,-0x1
012b 00db       |    |		Load_Top	At_Offset_3
012c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
012d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x3 = 0x12d,0x4
012e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012f c5fe       |    |		Store	0x2,-0x2
0130 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x4 = 0x130,0x5
0131 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0132 e5fd       |    |		Load	0x2,-0x3
0133 01d7       |    |		Execute	Vector,Field_Read
0134 e20f       |    |		Load	0x1,0xf
0135 0119       |    |		Execute	Any,Check_In_Formal_Type
0136 8214       |    |		Call	0x1,0x14
0137 00db       |    |		Load_Top	At_Offset_3
0138 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0139 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb = .DEBUG	0x0143,0x03d0,0x1002,0x0000,0x000e,0x7d74,0x0000,0x0085
													; Debug Table 0xb.0x0 = 0x143,0x1
0144 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0145 e210       |    |		Load	0x1,0x10
0146 025b       | [  |		Execute	Discrete,Check_In_Type
0147 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d       | M  |		.CONST	0x014d								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0002       |    |		.CONST	0x0002								; Number of locals
014b			INIT_0148:
014b e210       |    |		Load	0x1,0x10							; Debug Table 0xc = .DEBUG	0x014b,0x03d4,0x1001,0x0000,0x000e,0x7d74,0x0000,0x008e
													; Debug Table 0xc.0x0 = 0x14b,0xffff
014c 0007       |    |		Action	Break_Optional
014d			BODY_0148:
014d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x1 = 0x14d,0x1
014e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0150 00cf       |    |		Action	Mark_Auxiliary
0151 0007       |    |		Action	Break_Optional							; Debug Table 0xc.0x2 = 0x151,0x2
0152 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x3 = 0x152,0x3
0153 e211       |    |		Load	0x1,0x11
0154 027f       |    |		Execute	Discrete,Equal
0155 6803       |h   |		Jump_Zero	0x159
0156 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x4 = 0x156,0x4
0157 a5fc       |    |		Store_Unchecked	0x2,-0x4
0158 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xc.0x5 = 0x158,0x5
0159 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x6 = 0x159,0x6
015a e5fe       |    |		Load	0x2,-0x2
015b 027f       |    |		Execute	Discrete,Equal
015c 6803       |h   |		Jump_Zero	0x160
015d 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0x7 = 0x15d,0x7
015e a5fc       |    |		Store_Unchecked	0x2,-0x4
015f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xc.0x8 = 0x15f,0x8
0160 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x9 = 0x160,0x9
0161 e5fd       |    |		Load	0x2,-0x3
0162 01d7       |    |		Execute	Vector,Field_Read
0163 e20f       |    |		Load	0x1,0xf
0164 0119       |    |		Execute	Any,Check_In_Formal_Type
0165 8214       |    |		Call	0x1,0x14
0166 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0167 00c9       |    |		Action	Pop_Auxiliary_Loop
0168 7fe9       |    |		Jump	0x152
0169 0000 0000  |    |		.BLANK	0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175       | u  |		.CONST	0x0175								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0003       |    |		.CONST	0x0003								; Number of locals
0173			INIT_0170:
0173 e210       |    |		Load	0x1,0x10							; Debug Table 0xd = .DEBUG	0x0173,0x03ea,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00a2
													; Debug Table 0xd.0x0 = 0x173,0xffff
0174 03e9       |    |		Declare_Variable	Discrete,Duplicate
0175			BODY_0170:
0175 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x1 = 0x175,0x1
0176 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0177 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0178 7002       |p   |		Jump_Nonzero	0x17b
0179 4887       |H   |		Short_Literal	0x87
017a 0257       | W  |		Execute	Discrete,Raise
017b e211       |    |		Load	0x1,0x11							; Debug Table 0xd.0x2 = 0x17b,0x2
017c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
017d e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x3 = 0x17d,0x3
017e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0180 00cf       |    |		Action	Mark_Auxiliary
0181 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x4 = 0x181,0x4
0182 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x5 = 0x182,0x5
0183 e211       |    |		Load	0x1,0x11
0184 027e       | ~  |		Execute	Discrete,Not_Equal
0185 7002       |p   |		Jump_Nonzero	0x188
0186 4887       |H   |		Short_Literal	0x87
0187 0257       | W  |		Execute	Discrete,Raise
0188 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x6 = 0x188,0x6
0189 e5ff       |    |		Load	0x2,-0x1
018a 027f       |    |		Execute	Discrete,Equal
018b 682d       |h-  |		Jump_Zero	0x1b9
018c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0x7 = 0x18c,0x7
018d e211       |    |		Load	0x1,0x11
018e 027f       |    |		Execute	Discrete,Equal
018f 6809       |h   |		Jump_Zero	0x199
0190 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x8 = 0x190,0x8
0191 e5fd       |    |		Load	0x2,-0x3
0192 01d7       |    |		Execute	Vector,Field_Read
0193 e20f       |    |		Load	0x1,0xf
0194 0119       |    |		Execute	Any,Check_In_Formal_Type
0195 8214       |    |		Call	0x1,0x14
0196 e5fe       |    |		Load	0x2,-0x2
0197 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0198 781a       |x   |		Jump	0x1b3
0199 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xd.0x9 = 0x199,0x9
019a 00db       |    |		Load_Top	At_Offset_3
019b 00d8       |    |		Load_Top	At_Offset_0
019c 00da       |    |		Load_Top	At_Offset_2
019d 01d7       |    |		Execute	Vector,Field_Read
019e e403       |    |		Load	0x2,0x3
019f e5fd       |    |		Load	0x2,-0x3
01a0 01d7       |    |		Execute	Vector,Field_Read
01a1 e20f       |    |		Load	0x1,0xf
01a2 0119       |    |		Execute	Any,Check_In_Formal_Type
01a3 8214       |    |		Call	0x1,0x14
01a4 e210       |    |		Load	0x1,0x10
01a5 025b       | [  |		Execute	Discrete,Check_In_Type
01a6 8213       |    |		Call	0x1,0x13
01a7 00d9       |    |		Load_Top	At_Offset_1
01a8 00db       |    |		Load_Top	At_Offset_3
01a9 01d6       |    |		Execute	Vector,Field_Write
01aa 00d2       |    |		Pop_Control	Pop_Count_2
01ab 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0xa = 0x1ab,0xa
01ac e5fe       |    |		Load	0x2,-0x2
01ad 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01ae 027f       |    |		Execute	Discrete,Equal
01af 6803       |h   |		Jump_Zero	0x1b3
01b0 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0xb = 0x1b0,0xb
01b1 e5fe       |    |		Load	0x2,-0x2
01b2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b3 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0xc = 0x1b3,0xc
01b4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b5 0aff       |    |		Execute_Immediate	Plus,-0x1
01b6 e5fe       |    |		Load	0x2,-0x2
01b7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xd.0xd = 0x1b8,0xd
01b9 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0xe = 0x1b9,0xe
01ba 005b       | [  |		Store_Top	Discrete,At_Offset_3
01bb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0xf = 0x1bb,0xf
01bc e5fd       |    |		Load	0x2,-0x3
01bd 01d7       |    |		Execute	Vector,Field_Read
01be e20f       |    |		Load	0x1,0xf
01bf 0119       |    |		Execute	Any,Check_In_Formal_Type
01c0 8214       |    |		Call	0x1,0x14
01c1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01c2 00c9       |    |		Action	Pop_Auxiliary_Loop
01c3 7fbe       |    |		Jump	0x182
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 4608       |F   |		Jump_Case	0x9							; Debug Table 0xe = .DEBUG	0x01cb,0x040c,0x1005,0x0000,0x000e,0x7d74,0x0000,0x0114
01cc 7808       |x   |		Jump	0x1d5								; case 0x0
01cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01ce 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
01cf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
01d2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
01d3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
01d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
01d5 e211       |    |		Load	0x1,0x11
01d6 00db       |    |		Load_Top	At_Offset_3
01d7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01d8 e211       |    |		Load	0x1,0x11
01d9 00db       |    |		Load_Top	At_Offset_3
01da 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01db 4800       |H   |		Short_Literal	0x0
01dc 00db       |    |		Load_Top	At_Offset_3
01dd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01de 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e4       |    |		.CONST	0x01e4								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0002       |    |		.CONST	0x0002								; Number of locals
01e3			INIT_01e0:
01e3 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xf = .DEBUG	0x01e3,0x040e,0x1002,0x0000,0x000e,0x8294,0x0000,0x005a
													; Debug Table 0xf.0x0 = 0x1e3,0xffff
01e4			BODY_01e0:
01e4 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xf.0x1 = 0x1e4,0x1
01e5 e5fd       |    |		Load	0x2,-0x3
01e6 e212       |    |		Load	0x1,0x12
01e7 01c3       |    |		Execute	Vector,Check_In_Type
01e8 e5fe       |    |		Load	0x2,-0x2
01e9 e210       |    |		Load	0x1,0x10
01ea 025b       | [  |		Execute	Discrete,Check_In_Type
01eb e5ff       |    |		Load	0x2,-0x1
01ec 821e       |    |		Call	0x1,0x1e
01ed 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01ee 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x2 = 0x1ee,0x2
01ef 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01f0 00a8 6411  |  d |		.LITERAL	{0x00a86411, 0x00001fb0}
01f4 0000 0000  |    |		.BLANK	0000[0x4]
01f8 0204 0004  |    |		.XXX[0x3]
01fa 0012       |    |
01fb 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x10 = .DEBUG	0x01fb,0x0416,0x4000,0x0000,0x000e,0x7d74,0x0000,0x00b2
													; Debug Table 0x10.0x0 = 0x1fb,0xffff
01fd 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x10.0x1 = 0x1fd,0xfffe
01ff 00bf       |    |		Action	Accept_Activation
0200 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x11 = .DEBUG	0x0200,0x041c,0x4000,0x0000,0x000e,0x8294,0x0000,0x0293
													; Debug Table 0x11.0x0 = 0x200,0xffff
0201 00c7       |    |		Action	Elaborate_Subprogram
0202 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x11.0x1 = 0x202,0xfffe
0203 00c7       |    |		Action	Elaborate_Subprogram
0204 00bc       |    |		Action	Signal_Activated
0205 00bb       |    |		Action	Signal_Completion
0206 0000 0000  |    |		.XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d       |    |		.CONST	0x020d								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b e001       |    |		Load	0x0,0x1								; Debug Table 0x12 = .DEBUG	0x020b,0x0422,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00c2
													; Debug Table 0x12.0x0 = 0x20b,0xffff
020c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
020d			BODY_0208:
020d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x12.0x1 = 0x20d,0x1
020e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
020f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0210 00cf       |    |		Action	Mark_Auxiliary
0211 0007       |    |		Action	Break_Optional							; Debug Table 0x12.0x2 = 0x211,0x2
0212 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x12.0x3 = 0x212,0x3
0213 e001       |    |		Load	0x0,0x1
0214 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0215 027f       |    |		Execute	Discrete,Equal
0216 6806       |h   |		Jump_Zero	0x21d
0217 4800       |H   |		Short_Literal	0x0							; Debug Table 0x12.0x4 = 0x217,0x4
0218 a5fc       |    |		Store_Unchecked	0x2,-0x4
0219 e001       |    |		Load	0x0,0x1								; Debug Table 0x12.0x5 = 0x219,0x5
021a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
021b c5fb       |    |		Store	0x2,-0x5
021c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x12.0x6 = 0x21c,0x6
021d e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x12.0x7 = 0x21d,0x7
021e 00da       |    |		Load_Top	At_Offset_2
021f e5fd       |    |		Load	0x2,-0x3
0220 01d7       |    |		Execute	Vector,Field_Read
0221 e001       |    |		Load	0x0,0x1
0222 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0223 0119       |    |		Execute	Any,Check_In_Formal_Type
0224 8210       |    |		Call	0x1,0x10
0225 012f       | /  |		Execute	Any,Equal
0226 6805       |h   |		Jump_Zero	0x22c
0227 4801       |H   |		Short_Literal	0x1							; Debug Table 0x12.0x8 = 0x227,0x8
0228 a5fc       |    |		Store_Unchecked	0x2,-0x4
0229 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x12.0x9 = 0x229,0x9
022a c5fb       |    |		Store	0x2,-0x5
022b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x12.0xa = 0x22b,0xa
022c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x12.0xb = 0x22c,0xb
022d e5fd       |    |		Load	0x2,-0x3
022e 01d7       |    |		Execute	Vector,Field_Read
022f e001       |    |		Load	0x0,0x1
0230 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0231 0119       |    |		Execute	Any,Check_In_Formal_Type
0232 e001       |    |		Load	0x0,0x1
0233 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0234 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0235 00c9       |    |		Action	Pop_Auxiliary_Loop
0236 7fdb       |    |		Jump	0x212
0237 0000       |    |		.XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023e       | >  |		.CONST	0x023e								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0003       |    |		.CONST	0x0003								; Number of locals
023b			INIT_0238:
023b e001       |    |		Load	0x0,0x1								; Debug Table 0x13 = .DEBUG	0x023b,0x043c,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00da
													; Debug Table 0x13.0x0 = 0x23b,0xffff
023c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
023d 03e9       |    |		Declare_Variable	Discrete,Duplicate
023e			BODY_0238:
023e e001       |    |		Load	0x0,0x1								; Debug Table 0x13.0x1 = 0x23e,0x1
023f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0240 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0241 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x13.0x2 = 0x241,0x2
0242 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0243 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0244 00cf       |    |		Action	Mark_Auxiliary
0245 0007       |    |		Action	Break_Optional							; Debug Table 0x13.0x3 = 0x245,0x3
0246 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x4 = 0x246,0x4
0247 e001       |    |		Load	0x0,0x1
0248 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0249 027f       |    |		Execute	Discrete,Equal
024a 6803       |h   |		Jump_Zero	0x24e
024b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x13.0x5 = 0x24b,0x5
024c a5fd       |    |		Store_Unchecked	0x2,-0x3
024d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x13.0x6 = 0x24d,0x6
024e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13.0x7 = 0x24e,0x7
024f 00da       |    |		Load_Top	At_Offset_2
0250 e5fc       |    |		Load	0x2,-0x4
0251 01d7       |    |		Execute	Vector,Field_Read
0252 e001       |    |		Load	0x0,0x1
0253 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0254 0119       |    |		Execute	Any,Check_In_Formal_Type
0255 8210       |    |		Call	0x1,0x10
0256 012f       | /  |		Execute	Any,Equal
0257 6836       |h6  |		Jump_Zero	0x28e
0258 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13.0x8 = 0x258,0x8
0259 e001       |    |		Load	0x0,0x1
025a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
025b 027f       |    |		Execute	Discrete,Equal
025c 680b       |h   |		Jump_Zero	0x268
025d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x9 = 0x25d,0x9
025e e5fc       |    |		Load	0x2,-0x4
025f 01d7       |    |		Execute	Vector,Field_Read
0260 e001       |    |		Load	0x0,0x1
0261 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0262 0119       |    |		Execute	Any,Check_In_Formal_Type
0263 e001       |    |		Load	0x0,0x1
0264 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0265 e5fe       |    |		Load	0x2,-0x2
0266 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0267 781e       |x   |		Jump	0x286
0268 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x13.0xa = 0x268,0xa
0269 00db       |    |		Load_Top	At_Offset_3
026a 00d8       |    |		Load_Top	At_Offset_0
026b 00da       |    |		Load_Top	At_Offset_2
026c 01d7       |    |		Execute	Vector,Field_Read
026d e403       |    |		Load	0x2,0x3
026e e5fc       |    |		Load	0x2,-0x4
026f 01d7       |    |		Execute	Vector,Field_Read
0270 e001       |    |		Load	0x0,0x1
0271 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0272 0119       |    |		Execute	Any,Check_In_Formal_Type
0273 e001       |    |		Load	0x0,0x1
0274 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0275 e001       |    |		Load	0x0,0x1
0276 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0277 025b       | [  |		Execute	Discrete,Check_In_Type
0278 e001       |    |		Load	0x0,0x1
0279 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
027a 00d9       |    |		Load_Top	At_Offset_1
027b 00db       |    |		Load_Top	At_Offset_3
027c 01d6       |    |		Execute	Vector,Field_Write
027d 00d2       |    |		Pop_Control	Pop_Count_2
027e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0xb = 0x27e,0xb
027f e5fe       |    |		Load	0x2,-0x2
0280 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0281 027f       |    |		Execute	Discrete,Equal
0282 6803       |h   |		Jump_Zero	0x286
0283 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13.0xc = 0x283,0xc
0284 e5fe       |    |		Load	0x2,-0x2
0285 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0286 4801       |H   |		Short_Literal	0x1							; Debug Table 0x13.0xd = 0x286,0xd
0287 a5fd       |    |		Store_Unchecked	0x2,-0x3
0288 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x13.0xe = 0x288,0xe
0289 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
028a 0aff       |    |		Execute_Immediate	Plus,-0x1
028b e5fe       |    |		Load	0x2,-0x2
028c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
028d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x13.0xf = 0x28d,0xf
028e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x10 = 0x28e,0x10
028f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0290 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x11 = 0x290,0x11
0291 e5fc       |    |		Load	0x2,-0x4
0292 01d7       |    |		Execute	Vector,Field_Read
0293 e001       |    |		Load	0x0,0x1
0294 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0295 0119       |    |		Execute	Any,Check_In_Formal_Type
0296 e001       |    |		Load	0x0,0x1
0297 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0298 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0299 00c9       |    |		Action	Pop_Auxiliary_Loop
029a 7fab       |    |		Jump	0x246
029b 0000 0000  |    |		.BLANK	0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug Table
02a0 ; --------------------------------------------------------------------------------------
02a0 0003 0014  |    |		.CONST	0x0003,0x0014
02a2 000b 0342  |   B|		.DEBUG	0x000b,0x0342,0x8000,0x0000,0x000e,0x7d74,0x0000,0x0003
02aa 0010 0346  |   F|		.DEBUG	0x0010,0x0346,0x8000,0x0000,0x000e,0x8294,0x0000,0x0003
02b2 001b 034a  |   J|		.DEBUG	0x001b,0x034a,0x4000,0x0000,0x000e,0x7d74,0x0000,0x0004
02ba 004a 036a  | J j|		.DEBUG	0x004a,0x036a,0x4000,0x0000,0x000e,0x8294,0x0000,0x0004
02c2 006b 0384  | k  |		.DEBUG	0x006b,0x0384,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0036
02ca 0083 0388  |    |		.DEBUG	0x0083,0x0388,0x1002,0x0000,0x000e,0x7d74,0x0000,0x003e
02d2 0093 0390  |    |		.DEBUG	0x0093,0x0390,0x1002,0x0000,0x000e,0x7d74,0x0000,0x0043
02da 009b 0394  |    |		.DEBUG	0x009b,0x0394,0x1002,0x0000,0x000e,0x7d74,0x0000,0x004c
02e2 00a3 0398  |    |		.DEBUG	0x00a3,0x0398,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0055
02ea 00db 03ae  |    |		.DEBUG	0x00db,0x03ae,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0065
02f2 011b 03c4  |    |		.DEBUG	0x011b,0x03c4,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0075
02fa 0143 03d0  | C  |		.DEBUG	0x0143,0x03d0,0x1002,0x0000,0x000e,0x7d74,0x0000,0x0085
0302 014b 03d4  | K  |		.DEBUG	0x014b,0x03d4,0x1001,0x0000,0x000e,0x7d74,0x0000,0x008e
030a 0173 03ea  | s  |		.DEBUG	0x0173,0x03ea,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00a2
0312 01cb 040c  |    |		.DEBUG	0x01cb,0x040c,0x1005,0x0000,0x000e,0x7d74,0x0000,0x0114
031a 01e3 040e  |    |		.DEBUG	0x01e3,0x040e,0x1002,0x0000,0x000e,0x8294,0x0000,0x005a
0322 01fb 0416  |    |		.DEBUG	0x01fb,0x0416,0x4000,0x0000,0x000e,0x7d74,0x0000,0x00b2
032a 0200 041c  |    |		.DEBUG	0x0200,0x041c,0x4000,0x0000,0x000e,0x8294,0x0000,0x0293
0332 020b 0422  |   "|		.DEBUG	0x020b,0x0422,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00c2
033a 023b 043c  | ; <|		.DEBUG	0x023b,0x043c,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00da
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug3 Subtable 0x0
0342 ; --------------------------------------------------------------------------------------
0342 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
0344 000b ffff  |    |		.CONST	0x000b,0xffff
0346 ; --------------------------------------------------------------------------------------
0346 ; Debug3 Subtable 0x1
0346 ; --------------------------------------------------------------------------------------
0346 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
0348 0010 ffff  |    |		.CONST	0x0010,0xffff
034a ; --------------------------------------------------------------------------------------
034a ; Debug3 Subtable 0x2
034a ; --------------------------------------------------------------------------------------
034a 000f 0000  |    |		.DBG3TAB	0x000f,0x0000
034c 001b ffff  |    |		.CONST	0x001b,0xffff
034e 001d fffe  |    |		.CONST	0x001d,0xfffe
0350 001f fffd  |    |		.CONST	0x001f,0xfffd
0352 0021 fffc  | !  |		.CONST	0x0021,0xfffc
0354 0023 fffb  | #  |		.CONST	0x0023,0xfffb
0356 0025 fffa  | %  |		.CONST	0x0025,0xfffa
0358 0027 fff9  | '  |		.CONST	0x0027,0xfff9
035a 0029 fff8  | )  |		.CONST	0x0029,0xfff8
035c 002b fff7  | +  |		.CONST	0x002b,0xfff7
035e 002d fff6  | -  |		.CONST	0x002d,0xfff6
0360 002f fff5  | /  |		.CONST	0x002f,0xfff5
0362 0031 fff4  | 1  |		.CONST	0x0031,0xfff4
0364 0035 fff3  | 5  |		.CONST	0x0035,0xfff3
0366 003e fff2  | >  |		.CONST	0x003e,0xfff2
0368 0042 fff1  | B  |		.CONST	0x0042,0xfff1
036a ; --------------------------------------------------------------------------------------
036a ; Debug3 Subtable 0x3
036a ; --------------------------------------------------------------------------------------
036a 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
036c 004a ffff  | J  |		.CONST	0x004a,0xffff
036e 004c fffe  | L  |		.CONST	0x004c,0xfffe
0370 004e fffd  | N  |		.CONST	0x004e,0xfffd
0372 0050 fffc  | P  |		.CONST	0x0050,0xfffc
0374 0052 fffb  | R  |		.CONST	0x0052,0xfffb
0376 0054 fffa  | T  |		.CONST	0x0054,0xfffa
0378 0056 fff9  | V  |		.CONST	0x0056,0xfff9
037a 0058 fff8  | X  |		.CONST	0x0058,0xfff8
037c 005a fff7  | Z  |		.CONST	0x005a,0xfff7
037e 005c fff6  | \  |		.CONST	0x005c,0xfff6
0380 005e fff5  | ^  |		.CONST	0x005e,0xfff5
0382 0060 fff4  | `  |		.CONST	0x0060,0xfff4
0384 ; --------------------------------------------------------------------------------------
0384 ; Debug3 Subtable 0x4
0384 ; --------------------------------------------------------------------------------------
0384 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0386 006b 0001  | k  |		.CONST	0x006b,0x0001
0388 ; --------------------------------------------------------------------------------------
0388 ; Debug3 Subtable 0x5
0388 ; --------------------------------------------------------------------------------------
0388 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
038a 0083 ffff  |    |		.CONST	0x0083,0xffff
038c 0087 0001  |    |		.CONST	0x0087,0x0001
038e 008a 0002  |    |		.CONST	0x008a,0x0002
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug3 Subtable 0x6
0390 ; --------------------------------------------------------------------------------------
0390 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0392 0093 0001  |    |		.CONST	0x0093,0x0001
0394 ; --------------------------------------------------------------------------------------
0394 ; Debug3 Subtable 0x7
0394 ; --------------------------------------------------------------------------------------
0394 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0396 009b 0001  |    |		.CONST	0x009b,0x0001
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug3 Subtable 0x8
0398 ; --------------------------------------------------------------------------------------
0398 0000 000a  |    |		.DBG3TAB	0x0000,0x000a
039a 00a3 0001  |    |		.CONST	0x00a3,0x0001
039c 00a4 0002  |    |		.CONST	0x00a4,0x0002
039e 00b2 0003  |    |		.CONST	0x00b2,0x0003
03a0 00b7 0004  |    |		.CONST	0x00b7,0x0004
03a2 00bc 0005  |    |		.CONST	0x00bc,0x0005
03a4 00bf 0006  |    |		.CONST	0x00bf,0x0006
03a6 00c2 0007  |    |		.CONST	0x00c2,0x0007
03a8 00c6 0008  |    |		.CONST	0x00c6,0x0008
03aa 00cc 0009  |    |		.CONST	0x00cc,0x0009
03ac 00d1 000a  |    |		.CONST	0x00d1,0x000a
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug3 Subtable 0x9
03ae ; --------------------------------------------------------------------------------------
03ae 0000 000a  |    |		.DBG3TAB	0x0000,0x000a
03b0 00db 0001  |    |		.CONST	0x00db,0x0001
03b2 00dc 0002  |    |		.CONST	0x00dc,0x0002
03b4 00e1 0003  |    |		.CONST	0x00e1,0x0003
03b6 00e6 0004  |    |		.CONST	0x00e6,0x0004
03b8 00e9 0005  |    |		.CONST	0x00e9,0x0005
03ba 00ed 0006  |    |		.CONST	0x00ed,0x0006
03bc 00f3 0007  |    |		.CONST	0x00f3,0x0007
03be 00f8 0008  |    |		.CONST	0x00f8,0x0008
03c0 0106 0009  |    |		.CONST	0x0106,0x0009
03c2 0109 000a  |    |		.CONST	0x0109,0x000a
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug3 Subtable 0xa
03c4 ; --------------------------------------------------------------------------------------
03c4 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
03c6 011b 0001  |    |		.CONST	0x011b,0x0001
03c8 0122 0002  | "  |		.CONST	0x0122,0x0002
03ca 0128 0003  | (  |		.CONST	0x0128,0x0003
03cc 012d 0004  | -  |		.CONST	0x012d,0x0004
03ce 0130 0005  | 0  |		.CONST	0x0130,0x0005
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0xb
03d0 ; --------------------------------------------------------------------------------------
03d0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03d2 0143 0001  | C  |		.CONST	0x0143,0x0001
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0xc
03d4 ; --------------------------------------------------------------------------------------
03d4 0001 0009  |    |		.DBG3TAB	0x0001,0x0009
03d6 014b ffff  | K  |		.CONST	0x014b,0xffff
03d8 014d 0001  | M  |		.CONST	0x014d,0x0001
03da 0151 0002  | Q  |		.CONST	0x0151,0x0002
03dc 0152 0003  | R  |		.CONST	0x0152,0x0003
03de 0156 0004  | V  |		.CONST	0x0156,0x0004
03e0 0158 0005  | X  |		.CONST	0x0158,0x0005
03e2 0159 0006  | Y  |		.CONST	0x0159,0x0006
03e4 015d 0007  | ]  |		.CONST	0x015d,0x0007
03e6 015f 0008  | _  |		.CONST	0x015f,0x0008
03e8 0160 0009  | `  |		.CONST	0x0160,0x0009
03ea ; --------------------------------------------------------------------------------------
03ea ; Debug3 Subtable 0xd
03ea ; --------------------------------------------------------------------------------------
03ea 0001 000f  |    |		.DBG3TAB	0x0001,0x000f
03ec 0173 ffff  | s  |		.CONST	0x0173,0xffff
03ee 0175 0001  | u  |		.CONST	0x0175,0x0001
03f0 017b 0002  | {  |		.CONST	0x017b,0x0002
03f2 017d 0003  | }  |		.CONST	0x017d,0x0003
03f4 0181 0004  |    |		.CONST	0x0181,0x0004
03f6 0182 0005  |    |		.CONST	0x0182,0x0005
03f8 0188 0006  |    |		.CONST	0x0188,0x0006
03fa 018c 0007  |    |		.CONST	0x018c,0x0007
03fc 0190 0008  |    |		.CONST	0x0190,0x0008
03fe 0199 0009  |    |		.CONST	0x0199,0x0009
0400 01ab 000a  |    |		.CONST	0x01ab,0x000a
0402 01b0 000b  |    |		.CONST	0x01b0,0x000b
0404 01b3 000c  |    |		.CONST	0x01b3,0x000c
0406 01b8 000d  |    |		.CONST	0x01b8,0x000d
0408 01b9 000e  |    |		.CONST	0x01b9,0x000e
040a 01bb 000f  |    |		.CONST	0x01bb,0x000f
040c ; --------------------------------------------------------------------------------------
040c ; Debug3 Subtable 0xe
040c ; --------------------------------------------------------------------------------------
040c 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
040e ; --------------------------------------------------------------------------------------
040e ; Debug3 Subtable 0xf
040e ; --------------------------------------------------------------------------------------
040e 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0410 01e3 ffff  |    |		.CONST	0x01e3,0xffff
0412 01e4 0001  |    |		.CONST	0x01e4,0x0001
0414 01ee 0002  |    |		.CONST	0x01ee,0x0002
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0x10
0416 ; --------------------------------------------------------------------------------------
0416 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
0418 01fb ffff  |    |		.CONST	0x01fb,0xffff
041a 01fd fffe  |    |		.CONST	0x01fd,0xfffe
041c ; --------------------------------------------------------------------------------------
041c ; Debug3 Subtable 0x11
041c ; --------------------------------------------------------------------------------------
041c 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
041e 0200 ffff  |    |		.CONST	0x0200,0xffff
0420 0202 fffe  |    |		.CONST	0x0202,0xfffe
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug3 Subtable 0x12
0422 ; --------------------------------------------------------------------------------------
0422 0001 000b  |    |		.DBG3TAB	0x0001,0x000b
0424 020b ffff  |    |		.CONST	0x020b,0xffff
0426 020d 0001  |    |		.CONST	0x020d,0x0001
0428 0211 0002  |    |		.CONST	0x0211,0x0002
042a 0212 0003  |    |		.CONST	0x0212,0x0003
042c 0217 0004  |    |		.CONST	0x0217,0x0004
042e 0219 0005  |    |		.CONST	0x0219,0x0005
0430 021c 0006  |    |		.CONST	0x021c,0x0006
0432 021d 0007  |    |		.CONST	0x021d,0x0007
0434 0227 0008  | '  |		.CONST	0x0227,0x0008
0436 0229 0009  | )  |		.CONST	0x0229,0x0009
0438 022b 000a  | +  |		.CONST	0x022b,0x000a
043a 022c 000b  | ,  |		.CONST	0x022c,0x000b
043c ; --------------------------------------------------------------------------------------
043c ; Debug3 Subtable 0x13
043c ; --------------------------------------------------------------------------------------
043c 0001 0011  |    |		.DBG3TAB	0x0001,0x0011
043e 023b ffff  | ;  |		.CONST	0x023b,0xffff
0440 023e 0001  | >  |		.CONST	0x023e,0x0001
0442 0241 0002  | A  |		.CONST	0x0241,0x0002
0444 0245 0003  | E  |		.CONST	0x0245,0x0003
0446 0246 0004  | F  |		.CONST	0x0246,0x0004
0448 024b 0005  | K  |		.CONST	0x024b,0x0005
044a 024d 0006  | M  |		.CONST	0x024d,0x0006
044c 024e 0007  | N  |		.CONST	0x024e,0x0007
044e 0258 0008  | X  |		.CONST	0x0258,0x0008
0450 025d 0009  | ]  |		.CONST	0x025d,0x0009
0452 0268 000a  | h  |		.CONST	0x0268,0x000a
0454 027e 000b  | ~  |		.CONST	0x027e,0x000b
0456 0283 000c  |    |		.CONST	0x0283,0x000c
0458 0286 000d  |    |		.CONST	0x0286,0x000d
045a 0288 000e  |    |		.CONST	0x0288,0x000e
045c 028d 000f  |    |		.CONST	0x028d,0x000f
045e 028e 0010  |    |		.CONST	0x028e,0x0010
0460 0290 0011  |    |		.CONST	0x0290,0x0011
0462 0000 0000  |    |		.BLANK	0000[0x19e]