DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦127b4bea9⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0250       | P  |		.CONST	0x0250								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0097       |    |		.CONST	0x0097								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0031       | 1  |		.CONST	0x0031								; Number of locals
000b			INIT_0008:
000b 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x02fa,0xc000,0x0000,0x0056,0xf235,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000d e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x3 = 0xd,0xfffc
000e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000f 0129       | )  |		Execute	Any,Make_Visible
0010 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x4 = 0x10,0xfffb
0011 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0012 0129       | )  |		Execute	Any,Make_Visible
0013 e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0x5 = 0x13,0xfffa
0014 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0015 0129       | )  |		Execute	Any,Make_Visible
0016 e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0x6 = 0x16,0xfff9
0017 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0018 0129       | )  |		Execute	Any,Make_Visible
0019 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1d,0xfff6
001f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x1f,0xfff5
0021 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x21,0xfff4
0023 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x23,0xfff3
0025 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x25,0xfff2
0027 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x27,0xfff1
0029 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x29,0xfff0
002b 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x2b,0xffef
002d 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x2d,0xffee
002f 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x2f,0xffed
0031 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x31,0xffec
0033 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x14 = 0x33,0xffeb
0035 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x15 = 0x35,0xffea
0037 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x16 = 0x37,0xffe9
0039 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x17 = 0x39,0xffe8
003b 00bf       |    |		Action	Accept_Activation
003c e003       |    |		Load	0x0,0x3								; Debug Table 0x1 = .DEBUG	0x003c,0x032c,0xc000,0x0000,0x0056,0xf245,0x0000,0x0005
													; Debug Table 0x1.0x0 = 0x3c,0xffff
													; Debug Table 0x1.0x1 = 0x3c,0xfffe
													; Debug Table 0x1.0x2 = 0x3c,0xfffd
003d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003e e001       |    |		Load	0x0,0x1
003f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0040 e20f       |    |		Load	0x1,0xf
0041 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
0043 4803       |H   |		Short_Literal	0x3
0044 032d       | -  |		Declare_Type	Record,Defined
0045 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0x3 = 0x45,0xfffc
0046 02a0       |    |		Declare_Subprogram	Null_Subprogram
0047 03ad       |    |		Declare_Type	Heap_Access,Defined
0048 6203       |b   |		Indirect_Literal	Discrete,0x24c,{0x00000000, 0x0056f245}		; Debug Table 0x1.0x4 = 0x48,0xfffb
													; Debug Table 0x1.0x5 = 0x48,0xfffa
													; Debug Table 0x1.0x6 = 0x48,0xfff9
0049 483f       |H?  |		Short_Literal	0x3f
004a 00db       |    |		Load_Top	At_Offset_3
004b 00db       |    |		Load_Top	At_Offset_3
004c e001       |    |		Load	0x0,0x1
004d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
004e 0387       |    |		Declare_Variable	Package
004f 00d8       |    |		Load_Top	At_Offset_0
0050 020f       |    |		Execute	Module,Activate
0051 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x7 = 0x51,0xfff8
0052 1937       | 7  |		Execute	Package,Field_Reference,Field_Number 0x37
0053 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0x8 = 0x53,0xfff7
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x9 = 0x55,0xfff6
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0xa = 0x57,0xfff5
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x1.0xb = 0x59,0xfff4
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x1.0xc = 0x5b,0xfff3
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21				; Debug Table 0x1.0xd = 0x5d,0xfff2
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22				; Debug Table 0x1.0xe = 0x5f,0xfff1
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23				; Debug Table 0x1.0xf = 0x61,0xfff0
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24				; Debug Table 0x1.0x10 = 0x63,0xffef
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25				; Debug Table 0x1.0x11 = 0x65,0xffee
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26				; Debug Table 0x1.0x12 = 0x67,0xffed
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27				; Debug Table 0x1.0x13 = 0x69,0xffec
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28				; Debug Table 0x1.0x14 = 0x6b,0xffeb
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29				; Debug Table 0x1.0x15 = 0x6d,0xffea
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a				; Debug Table 0x1.0x16 = 0x6f,0xffe9
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b				; Debug Table 0x1.0x17 = 0x71,0xffe8
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c				; Debug Table 0x1.0x18 = 0x73,0xffe7
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x19 = 0x75,0xffe6
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 61d4       |a   |		Indirect_Literal	Discrete,0x24c,{0x00000000, 0x0056f245}		; Debug Table 0x1.0x1a = 0x77,0xffe5
0078 4b3f       |K?  |		Short_Literal	0x33f
0079 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
007a 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
007b 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
007c 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
007d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
007e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
007f 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0080 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0081 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0082 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0083 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0084 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0085 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0086 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0087 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0088 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0089 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
008a 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
008b e214       |    |		Load	0x1,0x14
008c 0335       | 5  |		Declare_Variable	Array,Duplicate
008d 00d0       |    |		Action	Swap_Control
008e 00d1       |    |		Pop_Control	Pop_Count_1
008f e215       |    |		Load	0x1,0x15
0090 e216       |    |		Load	0x1,0x16
0091 e001       |    |		Load	0x0,0x1
0092 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0093 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0094 0387       |    |		Declare_Variable	Package
0095 00d8       |    |		Load_Top	At_Offset_0
0096 020f       |    |		Execute	Module,Activate
0097			BODY_0008:
0097 00bc       |    |		Action	Signal_Activated
0098 00bb       |    |		Action	Signal_Completion
0099 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2 = .DEBUG	0x00a3,0x0364,0x1002,0x0000,0x0056,0xf235,0x0000,0x0089
													; Debug Table 0x2.0x0 = 0xa3,0x1
00a4 e22f       | /  |		Load	0x1,0x2f
00a5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00a6 0217       |    |		Execute	Heap_Access,All_Reference
00a7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 0120       |    |		Execute	Any,Is_Value
00aa 7002       |p   |		Jump_Nonzero	0xad
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 011e       |    |		Execute	Any,Convert
00ad e20f       |    |		Load	0x1,0xf
00ae 0119       |    |		Execute	Any,Check_In_Formal_Type
00af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5       |    |		.CONST	0x00b5								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0002       |    |		.CONST	0x0002								; Number of locals
00b3			INIT_00b0:
00b3 e001       |    |		Load	0x0,0x1								; Debug Table 0x3 = .DEBUG	0x00b3,0x0368,0x1001,0x0000,0x0056,0xf235,0x0000,0x00ac
													; Debug Table 0x3.0x0 = 0xb3,0xffff
00b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b5			BODY_00b0:
00b5 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x1 = 0xb5,0x1
00b6 7029       |p)  |		Jump_Nonzero	0xe0
00b7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x2 = 0xb7,0x2
00b8 e5fc       |    |		Load	0x2,-0x4
00b9 e5fd       |    |		Load	0x2,-0x3
00ba e5ff       |    |		Load	0x2,-0x1
00bb e001       |    |		Load	0x0,0x1
00bc 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00bd e5ff       |    |		Load	0x2,-0x1
00be e001       |    |		Load	0x0,0x1
00bf 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00c0 8210       |    |		Call	0x1,0x10
00c1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x3 = 0xc2,0x3
00c3 e001       |    |		Load	0x0,0x1
00c4 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00c5 6818       |h   |		Jump_Zero	0xde
00c6 e22d       | -  |		Load	0x1,0x2d							; Debug Table 0x3.0x4 = 0xc6,0x4
00c7 0322       | "  |		Declare_Variable	Record
00c8 e5fd       |    |		Load	0x2,-0x3
00c9 e004       |    |		Load	0x0,0x4
00ca 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00cb 0119       |    |		Execute	Any,Check_In_Formal_Type
00cc 00d9       |    |		Load_Top	At_Offset_1
00cd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ce 00d9       |    |		Load_Top	At_Offset_1
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00d1 e5fc       |    |		Load	0x2,-0x4
00d2 8212       |    |		Call	0x1,0x12
00d3 e20f       |    |		Load	0x1,0xf
00d4 0119       |    |		Execute	Any,Check_In_Formal_Type
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00d7 e22e       | .  |		Load	0x1,0x2e
00d8 00da       |    |		Load_Top	At_Offset_2
00d9 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
00da e5ff       |    |		Load	0x2,-0x1
00db e22f       | /  |		Load	0x1,0x2f
00dc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00dd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x3.0x5 = 0xdd,0x5
00de 4945       |IE  |		Short_Literal	0x145							; Debug Table 0x3.0x6 = 0xde,0x6
00df 0257       | W  |		Execute	Discrete,Raise
00e0 4939       |I9  |		Short_Literal	0x139							; Debug Table 0x3.0x7 = 0xe0,0x7
00e1 0257       | W  |		Execute	Discrete,Raise
00e2 0000 0000  |    |		.BLANK	0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed       |    |		.CONST	0x00ed								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x00eb,0x037a,0x1001,0x0000,0x0056,0xf235,0x0000,0x00c2
													; Debug Table 0x4.0x0 = 0xeb,0xffff
00ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ed			BODY_00e8:
00ed e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x1 = 0xed,0x1
00ee 4601       |F   |		Jump_Case	0x2
00ef 7801       |x   |		Jump	0xf1								; case 0x0
00f0 7802       |x   |		Jump	0xf3								; case 0x1
00f1 4911       |I   |		Short_Literal	0x111							; Debug Table 0x4.0x2 = 0xf1,0x2
00f2 0257       | W  |		Execute	Discrete,Raise
00f3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x3 = 0xf3,0x3
00f4 e5fd       |    |		Load	0x2,-0x3
00f5 e005       |    |		Load	0x0,0x5
00f6 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00f7 e005       |    |		Load	0x0,0x5
00f8 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00f9 e5fc       |    |		Load	0x2,-0x4
00fa 00ea       |    |		Load_Encached	Null_String_Cache
00fb 4801       |H   |		Short_Literal	0x1
00fc e001       |    |		Load	0x0,0x1
00fd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00fe 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00ff e22d       | -  |		Load	0x1,0x2d							; Debug Table 0x4.0x4 = 0xff,0x4
0100 0322       | "  |		Declare_Variable	Record
0101 e5fd       |    |		Load	0x2,-0x3
0102 e004       |    |		Load	0x0,0x4
0103 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0104 0119       |    |		Execute	Any,Check_In_Formal_Type
0105 00d9       |    |		Load_Top	At_Offset_1
0106 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0107 00d9       |    |		Load_Top	At_Offset_1
0108 00d9       |    |		Load_Top	At_Offset_1
0109 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
010a e5fc       |    |		Load	0x2,-0x4
010b 8212       |    |		Call	0x1,0x12
010c e20f       |    |		Load	0x1,0xf
010d 0119       |    |		Execute	Any,Check_In_Formal_Type
010e 00d9       |    |		Load_Top	At_Offset_1
010f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0110 e22e       | .  |		Load	0x1,0x2e
0111 00da       |    |		Load_Top	At_Offset_2
0112 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0113 e5ff       |    |		Load	0x2,-0x1
0114 e22f       | /  |		Load	0x1,0x2f
0115 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0116 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x4.0x5 = 0x116,0x5
0117 0000       |    |		.XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5 = .DEBUG	0x011b,0x0388,0x1002,0x0000,0x0056,0xf235,0x0000,0x00d8
													; Debug Table 0x5.0x0 = 0x11b,0x1
011c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0128       | (  |		.CONST	0x0128								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 e22e       | .  |		Load	0x1,0x2e							; Debug Table 0x6 = .DEBUG	0x0123,0x038c,0x1001,0x0000,0x0056,0xf235,0x0000,0x00e1
													; Debug Table 0x6.0x0 = 0x123,0xffff
0124 00db       |    |		Load_Top	At_Offset_3
0125 e22f       | /  |		Load	0x1,0x2f
0126 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0127 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0128			BODY_0120:
0128 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x1 = 0x128,0x1
0129 e001       |    |		Load	0x0,0x1
012a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
012b 4601       |F   |		Jump_Case	0x2
012c 782d       |x-  |		Jump	0x15a								; case 0x0
012d 7800       |x   |		Jump	0x12e								; case 0x1
012e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x2 = 0x12e,0x2
012f 0219       |    |		Execute	Heap_Access,All_Read
0130 00d8       |    |		Load_Top	At_Offset_0
0131 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0132 4800       |H   |		Short_Literal	0x0
0133 e001       |    |		Load	0x0,0x1
0134 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0135 00d9       |    |		Load_Top	At_Offset_1
0136 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0137 00d1       |    |		Pop_Control	Pop_Count_1
0138 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x3 = 0x138,0x3
0139 0219       |    |		Execute	Heap_Access,All_Read
013a 00d8       |    |		Load_Top	At_Offset_0
013b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
013c 00ea       |    |		Load_Encached	Null_String_Cache
013d 00db       |    |		Load_Top	At_Offset_3
013e 0217       |    |		Execute	Heap_Access,All_Reference
013f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0140 e5ff       |    |		Load	0x2,-0x1
0141 e001       |    |		Load	0x0,0x1
0142 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0143 e5ff       |    |		Load	0x2,-0x1
0144 e001       |    |		Load	0x0,0x1
0145 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0146 8211       |    |		Call	0x1,0x11
0147 00d9       |    |		Load_Top	At_Offset_1
0148 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0149 00d1       |    |		Pop_Control	Pop_Count_1
014a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x4 = 0x14a,0x4
014b 0217       |    |		Execute	Heap_Access,All_Reference
014c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
014d e001       |    |		Load	0x0,0x1
014e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
014f 6809       |h   |		Jump_Zero	0x159
0150 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x5 = 0x150,0x5
0151 0219       |    |		Execute	Heap_Access,All_Read
0152 00d8       |    |		Load_Top	At_Offset_0
0153 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0154 e001       |    |		Load	0x0,0x1
0155 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0156 00d9       |    |		Load_Top	At_Offset_1
0157 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0158 00d1       |    |		Pop_Control	Pop_Count_1
0159 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x6 = 0x15a,0x6
015b 0219       |    |		Execute	Heap_Access,All_Read
015c 00d8       |    |		Load_Top	At_Offset_0
015d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
015e e001       |    |		Load	0x0,0x1
015f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0160 00d9       |    |		Load_Top	At_Offset_1
0161 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0162 00d1       |    |		Pop_Control	Pop_Count_1
0163 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0164 0000 0000  |    |		.BLANK	0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 4939       |I9  |		Short_Literal	0x139							; Debug Table 0x7 = .DEBUG	0x016b,0x039c,0x1001,0x0000,0x0056,0xf235,0x0000,0x00e9
													; Debug Table 0x7.0x0 = 0x16b,0x1
016c 0257       | W  |		Execute	Discrete,Raise
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8 = .DEBUG	0x0173,0x03a0,0x1001,0x0000,0x0056,0xf235,0x0000,0x00f1
													; Debug Table 0x8.0x0 = 0x173,0x1
0174 700d       |p   |		Jump_Nonzero	0x182
0175 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x1 = 0x175,0x2
0176 e22f       | /  |		Load	0x1,0x2f
0177 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0178 0219       |    |		Execute	Heap_Access,All_Read
0179 00d8       |    |		Load_Top	At_Offset_0
017a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
017b e5fe       |    |		Load	0x2,-0x2
017c e001       |    |		Load	0x0,0x1
017d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
017e 00d9       |    |		Load_Top	At_Offset_1
017f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0180 00d1       |    |		Pop_Control	Pop_Count_1
0181 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0182 4939       |I9  |		Short_Literal	0x139							; Debug Table 0x8.0x2 = 0x182,0x3
0183 0257       | W  |		Execute	Discrete,Raise
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x9 = .DEBUG	0x018b,0x03a8,0x1001,0x0000,0x0056,0xf235,0x0000,0x00fd
													; Debug Table 0x9.0x0 = 0x18b,0x1
018c e5fe       |    |		Load	0x2,-0x2
018d e5ff       |    |		Load	0x2,-0x1
018e e22f       | /  |		Load	0x1,0x2f
018f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0190 0217       |    |		Execute	Heap_Access,All_Reference
0191 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0192 e001       |    |		Load	0x0,0x1
0193 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0194 00d1       |    |		Pop_Control	Pop_Count_1
0195 c5fd       |    |		Store	0x2,-0x3
0196 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0197 0000       |    |		.XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00e8       |    |		Load_Encached	Character_Cache						; Debug Table 0xa = .DEBUG	0x019b,0x03ac,0x1001,0x0000,0x0056,0xf235,0x0000,0x010d
													; Debug Table 0xa.0x0 = 0x19b,0x1
019c 00db       |    |		Load_Top	At_Offset_3
019d e22f       | /  |		Load	0x1,0x2f
019e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
019f 0217       |    |		Execute	Heap_Access,All_Reference
01a0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01a1 e001       |    |		Load	0x0,0x1
01a2 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
01a3 c5fe       |    |		Store	0x2,-0x2
01a4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab e001       |    |		Load	0x0,0x1								; Debug Table 0xb = .DEBUG	0x01ab,0x03b0,0x1001,0x0000,0x0056,0xf235,0x0000,0x0119
													; Debug Table 0xb.0x0 = 0x1ab,0x1
01ac 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01ad 00db       |    |		Load_Top	At_Offset_3
01ae e22f       | /  |		Load	0x1,0x2f
01af 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01b0 0217       |    |		Execute	Heap_Access,All_Reference
01b1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b2 e001       |    |		Load	0x0,0x1
01b3 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01b4 c5fe       |    |		Store	0x2,-0x2
01b5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b6 0000 0000  |    |		.XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xc = .DEBUG	0x01bb,0x03b4,0x1001,0x0000,0x0056,0xf235,0x0000,0x0125
													; Debug Table 0xc.0x0 = 0x1bb,0x1
01bc e5fe       |    |		Load	0x2,-0x2
01bd e5ff       |    |		Load	0x2,-0x1
01be e22f       | /  |		Load	0x1,0x2f
01bf 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01c0 0217       |    |		Execute	Heap_Access,All_Reference
01c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c2 e001       |    |		Load	0x0,0x1
01c3 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01c4 00d1       |    |		Pop_Control	Pop_Count_1
01c5 c5fd       |    |		Store	0x2,-0x3
01c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c7 0000       |    |		.XXX[0x1]
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 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd = .DEBUG	0x01cb,0x03b8,0x1001,0x0000,0x0056,0xf235,0x0000,0x0135
													; Debug Table 0xd.0x0 = 0x1cb,0x1
01cc 00db       |    |		Load_Top	At_Offset_3
01cd e22f       | /  |		Load	0x1,0x2f
01ce 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01cf 0217       |    |		Execute	Heap_Access,All_Reference
01d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d1 e001       |    |		Load	0x0,0x1
01d2 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01d3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xe = .DEBUG	0x01db,0x03bc,0x1001,0x0000,0x0056,0xf235,0x0000,0x0141
													; Debug Table 0xe.0x0 = 0x1db,0x1
01dc 00db       |    |		Load_Top	At_Offset_3
01dd e22f       | /  |		Load	0x1,0x2f
01de 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01df 0217       |    |		Execute	Heap_Access,All_Reference
01e0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01e1 e001       |    |		Load	0x0,0x1
01e2 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01e3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e4 0000 0000  |    |		.BLANK	0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xf = .DEBUG	0x01eb,0x03c0,0x1001,0x0000,0x0056,0xf235,0x0000,0x014d
													; Debug Table 0xf.0x0 = 0x1eb,0x1
01ec 00db       |    |		Load_Top	At_Offset_3
01ed e22f       | /  |		Load	0x1,0x2f
01ee 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01ef 0217       |    |		Execute	Heap_Access,All_Reference
01f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f1 e001       |    |		Load	0x0,0x1
01f2 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
01f3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f4 0000 0000  |    |		.BLANK	0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x10 = .DEBUG	0x01fb,0x03c4,0x1001,0x0000,0x0056,0xf235,0x0000,0x0159
													; Debug Table 0x10.0x0 = 0x1fb,0x1
01fc 00db       |    |		Load_Top	At_Offset_3
01fd e22f       | /  |		Load	0x1,0x2f
01fe 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01ff 0217       |    |		Execute	Heap_Access,All_Reference
0200 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0201 e001       |    |		Load	0x0,0x1
0202 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0203 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11 = .DEBUG	0x020b,0x03c8,0x1002,0x0000,0x0056,0xf235,0x0000,0x0165
													; Debug Table 0x11.0x0 = 0x20b,0x1
020c e22f       | /  |		Load	0x1,0x2f
020d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
020e 0217       |    |		Execute	Heap_Access,All_Reference
020f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0210 e001       |    |		Load	0x0,0x1
0211 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0212 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0213 0000 0000  |    |		.BLANK	0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x12 = .DEBUG	0x021b,0x03cc,0x1002,0x0000,0x0056,0xf235,0x0000,0x016e
													; Debug Table 0x12.0x0 = 0x21b,0x1
021c e22f       | /  |		Load	0x1,0x2f
021d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
021e 0217       |    |		Execute	Heap_Access,All_Reference
021f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0220 e001       |    |		Load	0x0,0x1
0221 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0222 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0223 0000 0000  |    |		.BLANK	0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13 = .DEBUG	0x022b,0x03d0,0x1002,0x0000,0x0056,0xf235,0x0000,0x0179
													; Debug Table 0x13.0x0 = 0x22b,0x1
022c 8213       |    |		Call	0x1,0x13
022d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 4608       |F   |		Jump_Case	0x9							; Debug Table 0x14 = .DEBUG	0x0233,0x03d4,0x1005,0x0000,0x0056,0xf245,0x0000,0x000e
0234 7808       |x   |		Jump	0x23d								; case 0x0
0235 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0236 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0237 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0238 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0239 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
023a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
023b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
023c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
023d 00da       |    |		Load_Top	At_Offset_2
023e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
023f 0125       | %  |		Execute	Any,Set_Constraint
0240 00da       |    |		Load_Top	At_Offset_2
0241 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0242 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0243 00da       |    |		Load_Top	At_Offset_2
0244 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0245 0125       | %  |		Execute	Any,Set_Constraint
0246 00da       |    |		Load_Top	At_Offset_2
0247 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0248 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0249 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
024a 0000 0000  |    |		.XXX[0x2]
024c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0056f245}
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0003 0015  |    |		.CONST	0x0003,0x0015
0252 000b 02fa  |    |		.DEBUG	0x000b,0x02fa,0xc000,0x0000,0x0056,0xf235,0x0000,0x000b
025a 003c 032c  | < ,|		.DEBUG	0x003c,0x032c,0xc000,0x0000,0x0056,0xf245,0x0000,0x0005
0262 00a3 0364  |   d|		.DEBUG	0x00a3,0x0364,0x1002,0x0000,0x0056,0xf235,0x0000,0x0089
026a 00b3 0368  |   h|		.DEBUG	0x00b3,0x0368,0x1001,0x0000,0x0056,0xf235,0x0000,0x00ac
0272 00eb 037a  |   z|		.DEBUG	0x00eb,0x037a,0x1001,0x0000,0x0056,0xf235,0x0000,0x00c2
027a 011b 0388  |    |		.DEBUG	0x011b,0x0388,0x1002,0x0000,0x0056,0xf235,0x0000,0x00d8
0282 0123 038c  | #  |		.DEBUG	0x0123,0x038c,0x1001,0x0000,0x0056,0xf235,0x0000,0x00e1
028a 016b 039c  | k  |		.DEBUG	0x016b,0x039c,0x1001,0x0000,0x0056,0xf235,0x0000,0x00e9
0292 0173 03a0  | s  |		.DEBUG	0x0173,0x03a0,0x1001,0x0000,0x0056,0xf235,0x0000,0x00f1
029a 018b 03a8  |    |		.DEBUG	0x018b,0x03a8,0x1001,0x0000,0x0056,0xf235,0x0000,0x00fd
02a2 019b 03ac  |    |		.DEBUG	0x019b,0x03ac,0x1001,0x0000,0x0056,0xf235,0x0000,0x010d
02aa 01ab 03b0  |    |		.DEBUG	0x01ab,0x03b0,0x1001,0x0000,0x0056,0xf235,0x0000,0x0119
02b2 01bb 03b4  |    |		.DEBUG	0x01bb,0x03b4,0x1001,0x0000,0x0056,0xf235,0x0000,0x0125
02ba 01cb 03b8  |    |		.DEBUG	0x01cb,0x03b8,0x1001,0x0000,0x0056,0xf235,0x0000,0x0135
02c2 01db 03bc  |    |		.DEBUG	0x01db,0x03bc,0x1001,0x0000,0x0056,0xf235,0x0000,0x0141
02ca 01eb 03c0  |    |		.DEBUG	0x01eb,0x03c0,0x1001,0x0000,0x0056,0xf235,0x0000,0x014d
02d2 01fb 03c4  |    |		.DEBUG	0x01fb,0x03c4,0x1001,0x0000,0x0056,0xf235,0x0000,0x0159
02da 020b 03c8  |    |		.DEBUG	0x020b,0x03c8,0x1002,0x0000,0x0056,0xf235,0x0000,0x0165
02e2 021b 03cc  |    |		.DEBUG	0x021b,0x03cc,0x1002,0x0000,0x0056,0xf235,0x0000,0x016e
02ea 022b 03d0  | +  |		.DEBUG	0x022b,0x03d0,0x1002,0x0000,0x0056,0xf235,0x0000,0x0179
02f2 0233 03d4  | 3  |		.DEBUG	0x0233,0x03d4,0x1005,0x0000,0x0056,0xf245,0x0000,0x000e
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0x0
02fa ; --------------------------------------------------------------------------------------
02fa 0018 0000  |    |		.DBG3TAB	0x0018,0x0000
02fc 000b ffff  |    |		.CONST	0x000b,0xffff
02fe 000b fffe  |    |		.CONST	0x000b,0xfffe
0300 000b fffd  |    |		.CONST	0x000b,0xfffd
0302 000d fffc  |    |		.CONST	0x000d,0xfffc
0304 0010 fffb  |    |		.CONST	0x0010,0xfffb
0306 0013 fffa  |    |		.CONST	0x0013,0xfffa
0308 0016 fff9  |    |		.CONST	0x0016,0xfff9
030a 0019 fff8  |    |		.CONST	0x0019,0xfff8
030c 001b fff7  |    |		.CONST	0x001b,0xfff7
030e 001d fff6  |    |		.CONST	0x001d,0xfff6
0310 001f fff5  |    |		.CONST	0x001f,0xfff5
0312 0021 fff4  | !  |		.CONST	0x0021,0xfff4
0314 0023 fff3  | #  |		.CONST	0x0023,0xfff3
0316 0025 fff2  | %  |		.CONST	0x0025,0xfff2
0318 0027 fff1  | '  |		.CONST	0x0027,0xfff1
031a 0029 fff0  | )  |		.CONST	0x0029,0xfff0
031c 002b ffef  | +  |		.CONST	0x002b,0xffef
031e 002d ffee  | -  |		.CONST	0x002d,0xffee
0320 002f ffed  | /  |		.CONST	0x002f,0xffed
0322 0031 ffec  | 1  |		.CONST	0x0031,0xffec
0324 0033 ffeb  | 3  |		.CONST	0x0033,0xffeb
0326 0035 ffea  | 5  |		.CONST	0x0035,0xffea
0328 0037 ffe9  | 7  |		.CONST	0x0037,0xffe9
032a 0039 ffe8  | 9  |		.CONST	0x0039,0xffe8
032c ; --------------------------------------------------------------------------------------
032c ; Debug3 Subtable 0x1
032c ; --------------------------------------------------------------------------------------
032c 001b 0000  |    |		.DBG3TAB	0x001b,0x0000
032e 003c ffff  | <  |		.CONST	0x003c,0xffff
0330 003c fffe  | <  |		.CONST	0x003c,0xfffe
0332 003c fffd  | <  |		.CONST	0x003c,0xfffd
0334 0045 fffc  | E  |		.CONST	0x0045,0xfffc
0336 0048 fffb  | H  |		.CONST	0x0048,0xfffb
0338 0048 fffa  | H  |		.CONST	0x0048,0xfffa
033a 0048 fff9  | H  |		.CONST	0x0048,0xfff9
033c 0051 fff8  | Q  |		.CONST	0x0051,0xfff8
033e 0053 fff7  | S  |		.CONST	0x0053,0xfff7
0340 0055 fff6  | U  |		.CONST	0x0055,0xfff6
0342 0057 fff5  | W  |		.CONST	0x0057,0xfff5
0344 0059 fff4  | Y  |		.CONST	0x0059,0xfff4
0346 005b fff3  | [  |		.CONST	0x005b,0xfff3
0348 005d fff2  | ]  |		.CONST	0x005d,0xfff2
034a 005f fff1  | _  |		.CONST	0x005f,0xfff1
034c 0061 fff0  | a  |		.CONST	0x0061,0xfff0
034e 0063 ffef  | c  |		.CONST	0x0063,0xffef
0350 0065 ffee  | e  |		.CONST	0x0065,0xffee
0352 0067 ffed  | g  |		.CONST	0x0067,0xffed
0354 0069 ffec  | i  |		.CONST	0x0069,0xffec
0356 006b ffeb  | k  |		.CONST	0x006b,0xffeb
0358 006d ffea  | m  |		.CONST	0x006d,0xffea
035a 006f ffe9  | o  |		.CONST	0x006f,0xffe9
035c 0071 ffe8  | q  |		.CONST	0x0071,0xffe8
035e 0073 ffe7  | s  |		.CONST	0x0073,0xffe7
0360 0075 ffe6  | u  |		.CONST	0x0075,0xffe6
0362 0077 ffe5  | w  |		.CONST	0x0077,0xffe5
0364 ; --------------------------------------------------------------------------------------
0364 ; Debug3 Subtable 0x2
0364 ; --------------------------------------------------------------------------------------
0364 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0366 00a3 0001  |    |		.CONST	0x00a3,0x0001
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug3 Subtable 0x3
0368 ; --------------------------------------------------------------------------------------
0368 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
036a 00b3 ffff  |    |		.CONST	0x00b3,0xffff
036c 00b5 0001  |    |		.CONST	0x00b5,0x0001
036e 00b7 0002  |    |		.CONST	0x00b7,0x0002
0370 00c2 0003  |    |		.CONST	0x00c2,0x0003
0372 00c6 0004  |    |		.CONST	0x00c6,0x0004
0374 00dd 0005  |    |		.CONST	0x00dd,0x0005
0376 00de 0006  |    |		.CONST	0x00de,0x0006
0378 00e0 0007  |    |		.CONST	0x00e0,0x0007
037a ; --------------------------------------------------------------------------------------
037a ; Debug3 Subtable 0x4
037a ; --------------------------------------------------------------------------------------
037a 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
037c 00eb ffff  |    |		.CONST	0x00eb,0xffff
037e 00ed 0001  |    |		.CONST	0x00ed,0x0001
0380 00f1 0002  |    |		.CONST	0x00f1,0x0002
0382 00f3 0003  |    |		.CONST	0x00f3,0x0003
0384 00ff 0004  |    |		.CONST	0x00ff,0x0004
0386 0116 0005  |    |		.CONST	0x0116,0x0005
0388 ; --------------------------------------------------------------------------------------
0388 ; Debug3 Subtable 0x5
0388 ; --------------------------------------------------------------------------------------
0388 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
038a 011b 0001  |    |		.CONST	0x011b,0x0001
038c ; --------------------------------------------------------------------------------------
038c ; Debug3 Subtable 0x6
038c ; --------------------------------------------------------------------------------------
038c 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
038e 0123 ffff  | #  |		.CONST	0x0123,0xffff
0390 0128 0001  | (  |		.CONST	0x0128,0x0001
0392 012e 0002  | .  |		.CONST	0x012e,0x0002
0394 0138 0003  | 8  |		.CONST	0x0138,0x0003
0396 014a 0004  | J  |		.CONST	0x014a,0x0004
0398 0150 0005  | P  |		.CONST	0x0150,0x0005
039a 015a 0006  | Z  |		.CONST	0x015a,0x0006
039c ; --------------------------------------------------------------------------------------
039c ; Debug3 Subtable 0x7
039c ; --------------------------------------------------------------------------------------
039c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
039e 016b 0001  | k  |		.CONST	0x016b,0x0001
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug3 Subtable 0x8
03a0 ; --------------------------------------------------------------------------------------
03a0 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
03a2 0173 0001  | s  |		.CONST	0x0173,0x0001
03a4 0175 0002  | u  |		.CONST	0x0175,0x0002
03a6 0182 0003  |    |		.CONST	0x0182,0x0003
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug3 Subtable 0x9
03a8 ; --------------------------------------------------------------------------------------
03a8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03aa 018b 0001  |    |		.CONST	0x018b,0x0001
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug3 Subtable 0xa
03ac ; --------------------------------------------------------------------------------------
03ac 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ae 019b 0001  |    |		.CONST	0x019b,0x0001
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug3 Subtable 0xb
03b0 ; --------------------------------------------------------------------------------------
03b0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03b2 01ab 0001  |    |		.CONST	0x01ab,0x0001
03b4 ; --------------------------------------------------------------------------------------
03b4 ; Debug3 Subtable 0xc
03b4 ; --------------------------------------------------------------------------------------
03b4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03b6 01bb 0001  |    |		.CONST	0x01bb,0x0001
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug3 Subtable 0xd
03b8 ; --------------------------------------------------------------------------------------
03b8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ba 01cb 0001  |    |		.CONST	0x01cb,0x0001
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug3 Subtable 0xe
03bc ; --------------------------------------------------------------------------------------
03bc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03be 01db 0001  |    |		.CONST	0x01db,0x0001
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug3 Subtable 0xf
03c0 ; --------------------------------------------------------------------------------------
03c0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03c2 01eb 0001  |    |		.CONST	0x01eb,0x0001
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug3 Subtable 0x10
03c4 ; --------------------------------------------------------------------------------------
03c4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03c6 01fb 0001  |    |		.CONST	0x01fb,0x0001
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug3 Subtable 0x11
03c8 ; --------------------------------------------------------------------------------------
03c8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ca 020b 0001  |    |		.CONST	0x020b,0x0001
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug3 Subtable 0x12
03cc ; --------------------------------------------------------------------------------------
03cc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ce 021b 0001  |    |		.CONST	0x021b,0x0001
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0x13
03d0 ; --------------------------------------------------------------------------------------
03d0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03d2 022b 0001  | +  |		.CONST	0x022b,0x0001
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0x14
03d4 ; --------------------------------------------------------------------------------------
03d4 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
03d6 0000 0000  |    |		.BLANK	0000[0x2a]