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

⟦e0aebe3a9⟧

    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 0268       | h  |		.CONST	0x0268								; 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 0040       | @  |		.CONST	0x0040								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x02e2,0x0000,0x0000,0x0057,0x9795,0x0000,0x0504
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1d,0xfff6
001f 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x1f,0xfff5
0021 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x21,0xfff4
0023 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x23,0xfff3
0025 00bf       |    |		Action	Accept_Activation
0026 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1 = .DEBUG	0x0026,0x02fe,0x0000,0x0000,0x0057,0x98c5,0x0000,0x0004
													; Debug Table 0x1.0x0 = 0x26,0xffff
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x1 = 0x28,0xfffe
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x2 = 0x2a,0xfffd
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x3 = 0x2c,0xfffc
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x4 = 0x2e,0xfffb
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x5 = 0x30,0xfffa
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x6 = 0x32,0xfff9
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x7 = 0x34,0xfff8
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x8 = 0x36,0xfff7
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x9 = 0x38,0xfff6
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0xa = 0x3a,0xfff5
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0xb = 0x3c,0xfff4
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0xc = 0x3e,0xfff3
003f 00c7       |    |		Action	Elaborate_Subprogram
0040			BODY_0008:
0040 00bc       |    |		Action	Signal_Activated
0041 00bb       |    |		Action	Signal_Completion
0042 0000 0000  |    |		.BLANK	0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0052       | R  |		.CONST	0x0052								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0003       |    |		.CONST	0x0003								; Number of locals
004b			INIT_0048:
004b e001       |    |		Load	0x0,0x1								; Debug Table 0x2 = .DEBUG	0x004b,0x031a,0x0002,0x0000,0x0057,0x9795,0x0000,0x0505
													; Debug Table 0x2.0x0 = 0x4b,0xffff
004c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
004d 02ff       |    |		Declare_Variable	Variant_Record
004e 00d8       |    |		Load_Top	At_Offset_0
004f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0050 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x1 = 0x50,0xfffe
0051 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0052			BODY_0048:
0052 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x2 = 0x52,0x1
0053 e001       |    |		Load	0x0,0x1
0054 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0055 6802       |h   |		Jump_Zero	0x58
0056 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x3 = 0x56,0x2
0057 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0058 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x4 = 0x58,0x3
0059 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005a 00da       |    |		Load_Top	At_Offset_2
005b 6204       |b   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x00004000}
005c e002       |    |		Load	0x0,0x2
005d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
005e 4800       |H   |		Short_Literal	0x0
005f e5ff       |    |		Load	0x2,-0x1
0060 e001       |    |		Load	0x0,0x1
0061 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0062 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0063 00d1       |    |		Pop_Control	Pop_Count_1
0064 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0065 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x5 = 0x65,0x4
0066 0f00       |    |		Execute_Immediate	Equal,0x0
0067 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0076       | v  |		.CONST	0x0076								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0004       |    |		.CONST	0x0004								; Number of locals
006b			INIT_0068:
006b e001       |    |		Load	0x0,0x1								; Debug Table 0x3 = .DEBUG	0x006b,0x0328,0x0002,0x0000,0x0057,0x9795,0x0000,0x0510
													; Debug Table 0x3.0x0 = 0x6b,0xffff
006c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006d e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x1 = 0x6d,0xfffe
006e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
006f 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0070 02c7       |    |		Declare_Variable	Any
0071 00d8       |    |		Load_Top	At_Offset_0
0072 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0073 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x2 = 0x73,0xfffd
0074 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0075 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0076			BODY_0068:
0076 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x3 = 0x76,0x1
0077 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0078 00da       |    |		Load_Top	At_Offset_2
0079 0120       |    |		Execute	Any,Is_Value
007a 6804       |h   |		Jump_Zero	0x7f
007b e001       |    |		Load	0x0,0x1
007c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
007d 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
007e 7801       |x   |		Jump	0x80
007f 00da       |    |		Load_Top	At_Offset_2
0080 e001       |    |		Load	0x0,0x1
0081 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0082 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0083 61dc       |a   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x00004000}
0084 4801       |H   |		Short_Literal	0x1
0085 4800       |H   |		Short_Literal	0x0
0086 4800       |H   |		Short_Literal	0x0
0087 e002       |    |		Load	0x0,0x2
0088 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0089 4800       |H   |		Short_Literal	0x0
008a e5ff       |    |		Load	0x2,-0x1
008b e001       |    |		Load	0x0,0x1
008c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
008d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
008e e001       |    |		Load	0x0,0x1
008f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0090 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0091 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0092 c403       |    |		Store	0x2,0x3
0093 005b       | [  |		Store_Top	Discrete,At_Offset_3
0094 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x4 = 0x94,0x2
0095 6803       |h   |		Jump_Zero	0x99
0096 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x5 = 0x96,0x3
0097 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x6 = 0x97,0x401
0098 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1				; Debug Table 0x3.0x7 = 0x98,0x3
0099 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x8 = 0x99,0x4
009a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009b 0000 0000  |    |		.BLANK	0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a6       |    |		.CONST	0x00a6								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0003       |    |		.CONST	0x0003								; Number of locals
00a3			INIT_00a0:
00a3 e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x00a3,0x033c,0x0002,0x0000,0x0057,0x9795,0x0000,0x051d
													; Debug Table 0x4.0x0 = 0xa3,0xffff
00a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a5 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x1 = 0xa5,0xfffe
00a6			BODY_00a0:
00a6 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x2 = 0xa6,0x1
00a7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a8 e001       |    |		Load	0x0,0x1
00a9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00aa 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00ab e5ff       |    |		Load	0x2,-0x1
00ac e001       |    |		Load	0x0,0x1
00ad 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00ae 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00af 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
00b0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00b1 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x3 = 0xb1,0x2
00b2 7002       |p   |		Jump_Nonzero	0xb5
00b3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x4 = 0xb3,0x3
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x5 = 0xb5,0x4
00b6 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x6 = 0xb6,0x401
00b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1				; Debug Table 0x4.0x7 = 0xb7,0x4
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00be       |    |		.CONST	0x00be								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5 = .DEBUG	0x00bb,0x034e,0x0002,0x0000,0x0057,0x9795,0x0000,0x052a
													; Debug Table 0x5.0x0 = 0xbb,0xffff
00bc e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x1 = 0xbc,0xfffe
00bd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00be			BODY_00b8:
00be e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x2 = 0xbe,0x1
00bf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c0 e001       |    |		Load	0x0,0x1
00c1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c2 619d       |a   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x00004000}
00c3 e002       |    |		Load	0x0,0x2
00c4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c5 4800       |H   |		Short_Literal	0x0
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 e001       |    |		Load	0x0,0x1
00c8 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
00c9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00ca 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00cb 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00cc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x3 = 0xcc,0x2
00cd 7002       |p   |		Jump_Nonzero	0xd0
00ce 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x4 = 0xce,0x3
00cf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d0 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x5 = 0xd0,0x4
00d1 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5.0x6 = 0xd1,0x401
00d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1				; Debug Table 0x5.0x7 = 0xd2,0x4
00d3 0000 0000  |    |		.BLANK	0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e3       |    |		.CONST	0x00e3								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0003       |    |		.CONST	0x0003								; Number of locals
00db			INIT_00d8:
00db e001       |    |		Load	0x0,0x1								; Debug Table 0x6 = .DEBUG	0x00db,0x0360,0x0002,0x0000,0x0057,0x9795,0x0000,0x0537
													; Debug Table 0x6.0x0 = 0xdb,0xffff
00dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00dd e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x1 = 0xdd,0xfffe
00de 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e0 02c7       |    |		Declare_Variable	Any
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e3			BODY_00d8:
00e3 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x2 = 0xe3,0x1
00e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 0120       |    |		Execute	Any,Is_Value
00e7 6804       |h   |		Jump_Zero	0xec
00e8 e001       |    |		Load	0x0,0x1
00e9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00eb 7801       |x   |		Jump	0xed
00ec 00d9       |    |		Load_Top	At_Offset_1
00ed e5ff       |    |		Load	0x2,-0x1
00ee e001       |    |		Load	0x0,0x1
00ef 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00f0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f1 c403       |    |		Store	0x2,0x3
00f2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00f3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x3 = 0xf3,0x2
00f4 7005       |p   |		Jump_Nonzero	0xfa
00f5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x4 = 0xf5,0x3
00f6 e001       |    |		Load	0x0,0x1
00f7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00f8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fa e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x5 = 0xfa,0x4
00fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010a       |    |		.CONST	0x010a								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0003       |    |		.CONST	0x0003								; Number of locals
0103			INIT_0100:
0103 e001       |    |		Load	0x0,0x1								; Debug Table 0x7 = .DEBUG	0x0103,0x036e,0x0002,0x0000,0x0057,0x9795,0x0000,0x0544
													; Debug Table 0x7.0x0 = 0x103,0xffff
0104 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0105 e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x1 = 0x105,0xfffe
0106 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0107 02c7       |    |		Declare_Variable	Any
0108 00d8       |    |		Load_Top	At_Offset_0
0109 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010a			BODY_0100:
010a e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x2 = 0x10a,0x1
010b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010c 00d9       |    |		Load_Top	At_Offset_1
010d 0120       |    |		Execute	Any,Is_Value
010e 6803       |h   |		Jump_Zero	0x112
010f e001       |    |		Load	0x0,0x1
0110 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0111 7801       |x   |		Jump	0x113
0112 00d9       |    |		Load_Top	At_Offset_1
0113 614c       |aL  |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x00004000}
0114 e002       |    |		Load	0x0,0x2
0115 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0116 4800       |H   |		Short_Literal	0x0
0117 e001       |    |		Load	0x0,0x1
0118 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0119 e5ff       |    |		Load	0x2,-0x1
011a e001       |    |		Load	0x0,0x1
011b 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
011c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
011d c403       |    |		Store	0x2,0x3
011e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
011f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x3 = 0x11f,0x2
0120 7002       |p   |		Jump_Nonzero	0x123
0121 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x4 = 0x121,0x3
0122 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0123 e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x5 = 0x123,0x4
0124 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0125 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0126 0000 0000  |    |		.XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0132       | 2  |		.CONST	0x0132								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0003       |    |		.CONST	0x0003								; Number of locals
012b			INIT_0128:
012b e001       |    |		Load	0x0,0x1								; Debug Table 0x8 = .DEBUG	0x012b,0x037c,0x0002,0x0000,0x0057,0x9795,0x0000,0x0551
													; Debug Table 0x8.0x0 = 0x12b,0xffff
012c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012d e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x1 = 0x12d,0xfffe
012e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
012f 02ff       |    |		Declare_Variable	Variant_Record
0130 00d8       |    |		Load_Top	At_Offset_0
0131 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0132			BODY_0128:
0132 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x2 = 0x132,0x1
0133 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0134 00d9       |    |		Load_Top	At_Offset_1
0135 e5ff       |    |		Load	0x2,-0x1
0136 e001       |    |		Load	0x0,0x1
0137 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0138 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0139 00d1       |    |		Pop_Control	Pop_Count_1
013a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
013b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x3 = 0x13b,0x2
013c 7002       |p   |		Jump_Nonzero	0x13f
013d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x4 = 0x13d,0x3
013e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013f e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x5 = 0x13f,0x4
0140 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0141 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0142 0000 0000  |    |		.BLANK	0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0152       | R  |		.CONST	0x0152								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0003       |    |		.CONST	0x0003								; Number of locals
014b			INIT_0148:
014b e001       |    |		Load	0x0,0x1								; Debug Table 0x9 = .DEBUG	0x014b,0x038a,0x0002,0x0000,0x0057,0x9795,0x0000,0x055e
													; Debug Table 0x9.0x0 = 0x14b,0xffff
014c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014d e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x1 = 0x14d,0xfffe
014e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
014f 02ff       |    |		Declare_Variable	Variant_Record
0150 00d8       |    |		Load_Top	At_Offset_0
0151 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0152			BODY_0148:
0152 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x2 = 0x152,0x1
0153 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0154 00d9       |    |		Load_Top	At_Offset_1
0155 610a       |a   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x00004000}
0156 e002       |    |		Load	0x0,0x2
0157 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0158 4800       |H   |		Short_Literal	0x0
0159 e5ff       |    |		Load	0x2,-0x1
015a e001       |    |		Load	0x0,0x1
015b 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
015c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
015d 00d1       |    |		Pop_Control	Pop_Count_1
015e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
015f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x3 = 0x15f,0x2
0160 7002       |p   |		Jump_Nonzero	0x163
0161 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x4 = 0x161,0x3
0162 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0163 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x5 = 0x163,0x4
0164 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0165 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0166 0000 0000  |    |		.XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0170       | p  |		.CONST	0x0170								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0003       |    |		.CONST	0x0003								; Number of locals
016b			INIT_0168:
016b e001       |    |		Load	0x0,0x1								; Debug Table 0xa = .DEBUG	0x016b,0x0398,0x0002,0x0000,0x0057,0x9795,0x0000,0x056b
													; Debug Table 0xa.0x0 = 0x16b,0xffff
016c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016d e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x1 = 0x16d,0xfffe
016e 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
016f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0170			BODY_0168:
0170 e001       |    |		Load	0x0,0x1								; Debug Table 0xa.0x2 = 0x170,0x1
0171 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0172 e001       |    |		Load	0x0,0x1
0173 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0174 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0175 60ea       |`   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x00004000}
0176 e5fe       |    |		Load	0x2,-0x2
0177 4800       |H   |		Short_Literal	0x0
0178 e5ff       |    |		Load	0x2,-0x1
0179 e001       |    |		Load	0x0,0x1
017a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
017b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
017c e001       |    |		Load	0x0,0x1
017d 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
017e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
017f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0180 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0181 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x3 = 0x181,0x2
0182 7002       |p   |		Jump_Nonzero	0x185
0183 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x4 = 0x183,0x3
0184 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0185 4802       |H   |		Short_Literal	0x2							; Debug Table 0xa.0x5 = 0x185,0x4
0186 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0187 0000       |    |		.XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0190       |    |		.CONST	0x0190								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0003       |    |		.CONST	0x0003								; Number of locals
018b			INIT_0188:
018b e001       |    |		Load	0x0,0x1								; Debug Table 0xb = .DEBUG	0x018b,0x03a6,0x0002,0x0000,0x0057,0x9795,0x0000,0x0581
													; Debug Table 0xb.0x0 = 0x18b,0xffff
018c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018d e001       |    |		Load	0x0,0x1								; Debug Table 0xb.0x1 = 0x18d,0xfffe
018e 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
018f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0190			BODY_0188:
0190 e001       |    |		Load	0x0,0x1								; Debug Table 0xb.0x2 = 0x190,0x1
0191 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0192 e001       |    |		Load	0x0,0x1
0193 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0194 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0195 60ca       |`   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x00004000}
0196 e002       |    |		Load	0x0,0x2
0197 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0198 e5ff       |    |		Load	0x2,-0x1
0199 e001       |    |		Load	0x0,0x1
019a 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
019b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
019c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
019d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
019e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x3 = 0x19e,0x2
019f 6802       |h   |		Jump_Zero	0x1a2
01a0 4802       |H   |		Short_Literal	0x2							; Debug Table 0xb.0x4 = 0x1a0,0x3
01a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x5 = 0x1a2,0x4
01a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a4 0000 0000  |    |		.BLANK	0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3       |    |		.CONST	0x01b3								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0003       |    |		.CONST	0x0003								; Number of locals
01ab			INIT_01a8:
01ab e001       |    |		Load	0x0,0x1								; Debug Table 0xc = .DEBUG	0x01ab,0x03b4,0x0002,0x0000,0x0057,0x9795,0x0000,0x058e
													; Debug Table 0xc.0x0 = 0x1ab,0xffff
01ac 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01ad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ae 02c7       |    |		Declare_Variable	Any
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b1 e001       |    |		Load	0x0,0x1								; Debug Table 0xc.0x1 = 0x1b1,0xfffe
01b2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b3			BODY_01a8:
01b3 e001       |    |		Load	0x0,0x1								; Debug Table 0xc.0x2 = 0x1b3,0x1
01b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b5 00da       |    |		Load_Top	At_Offset_2
01b6 0120       |    |		Execute	Any,Is_Value
01b7 6804       |h   |		Jump_Zero	0x1bc
01b8 e001       |    |		Load	0x0,0x1
01b9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01bb 7801       |x   |		Jump	0x1bd
01bc 00da       |    |		Load_Top	At_Offset_2
01bd e5ff       |    |		Load	0x2,-0x1
01be e001       |    |		Load	0x0,0x1
01bf 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
01c0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c1 c402       |    |		Store	0x2,0x2
01c2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01c3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x3 = 0x1c3,0x2
01c4 7005       |p   |		Jump_Nonzero	0x1ca
01c5 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x4 = 0x1c5,0x3
01c6 e001       |    |		Load	0x0,0x1
01c7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01c8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ca e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x5 = 0x1ca,0x4
01cb 00d8       |    |		Load_Top	At_Offset_0
01cc 0120       |    |		Execute	Any,Is_Value
01cd 7002       |p   |		Jump_Nonzero	0x1d0
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf 011e       |    |		Execute	Any,Convert
01d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d1 0000 0000  |    |		.BLANK	0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e8       |    |		.CONST	0x01e8								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0004       |    |		.CONST	0x0004								; Number of locals
01db			INIT_01d8:
01db e001       |    |		Load	0x0,0x1								; Debug Table 0xd = .DEBUG	0x01db,0x03c2,0x0002,0x0000,0x0057,0x9795,0x0000,0x059b
													; Debug Table 0xd.0x0 = 0x1db,0xffff
01dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01dd e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x1 = 0x1dd,0xfffe
01de 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01df 02c7       |    |		Declare_Variable	Any
01e0 00d8       |    |		Load_Top	At_Offset_0
01e1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e2 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x2 = 0x1e2,0xfffd
01e3 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e5 02c7       |    |		Declare_Variable	Any
01e6 00d8       |    |		Load_Top	At_Offset_0
01e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e8			BODY_01d8:
01e8 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0x3 = 0x1e8,0x1
01e9 e001       |    |		Load	0x0,0x1
01ea 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
01eb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ec 6816       |h   |		Jump_Zero	0x203
01ed e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x4 = 0x1ed,0x2
01ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ef 00da       |    |		Load_Top	At_Offset_2
01f0 0120       |    |		Execute	Any,Is_Value
01f1 6803       |h   |		Jump_Zero	0x1f5
01f2 e001       |    |		Load	0x0,0x1
01f3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f4 7801       |x   |		Jump	0x1f6
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 e5ff       |    |		Load	0x2,-0x1
01f7 e001       |    |		Load	0x0,0x1
01f8 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
01f9 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01fa c403       |    |		Store	0x2,0x3
01fb 005b       | [  |		Store_Top	Discrete,At_Offset_3
01fc 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0x5 = 0x1fc,0x3
01fd 7002       |p   |		Jump_Nonzero	0x200
01fe 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x6 = 0x1fe,0x4
01ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0200 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x7 = 0x200,0x5
0201 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0202 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0203 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x8 = 0x203,0x6
0204 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0205 00d9       |    |		Load_Top	At_Offset_1
0206 0120       |    |		Execute	Any,Is_Value
0207 6804       |h   |		Jump_Zero	0x20c
0208 e001       |    |		Load	0x0,0x1
0209 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
020a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
020b 7801       |x   |		Jump	0x20d
020c 00d9       |    |		Load_Top	At_Offset_1
020d e5ff       |    |		Load	0x2,-0x1
020e e001       |    |		Load	0x0,0x1
020f 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0210 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0211 c404       |    |		Store	0x2,0x4
0212 005b       | [  |		Store_Top	Discrete,At_Offset_3
0213 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0x9 = 0x213,0x7
0214 7005       |p   |		Jump_Nonzero	0x21a
0215 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0xa = 0x215,0x8
0216 e001       |    |		Load	0x0,0x1
0217 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0218 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0219 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021a e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0xb = 0x21a,0x9
021b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
021c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0231       | 1  |		.CONST	0x0231								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0004       |    |		.CONST	0x0004								; Number of locals
0223			INIT_0220:
0223 e001       |    |		Load	0x0,0x1								; Debug Table 0xe = .DEBUG	0x0223,0x03dc,0x0002,0x0000,0x0057,0x9795,0x0000,0x05a8
													; Debug Table 0xe.0x0 = 0x223,0xffff
0224 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0225 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0226 02c7       |    |		Declare_Variable	Any
0227 00d8       |    |		Load_Top	At_Offset_0
0228 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0229 e001       |    |		Load	0x0,0x1								; Debug Table 0xe.0x1 = 0x229,0xfffe
022a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
022b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
022c 02c7       |    |		Declare_Variable	Any
022d 00d8       |    |		Load_Top	At_Offset_0
022e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022f e001       |    |		Load	0x0,0x1								; Debug Table 0xe.0x2 = 0x22f,0xfffd
0230 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0231			BODY_0220:
0231 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x3 = 0x231,0x1
0232 0120       |    |		Execute	Any,Is_Value
0233 6804       |h   |		Jump_Zero	0x238
0234 e001       |    |		Load	0x0,0x1
0235 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0236 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0237 7801       |x   |		Jump	0x239
0238 00da       |    |		Load_Top	At_Offset_2
0239 e5fe       |    |		Load	0x2,-0x2
023a e001       |    |		Load	0x0,0x1
023b 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
023c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
023d c402       |    |		Store	0x2,0x2
023e e001       |    |		Load	0x0,0x1								; Debug Table 0xe.0x4 = 0x23e,0x2
023f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0240 00da       |    |		Load_Top	At_Offset_2
0241 0120       |    |		Execute	Any,Is_Value
0242 6804       |h   |		Jump_Zero	0x247
0243 e001       |    |		Load	0x0,0x1
0244 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0245 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0246 7801       |x   |		Jump	0x248
0247 00da       |    |		Load_Top	At_Offset_2
0248 e5ff       |    |		Load	0x2,-0x1
0249 e001       |    |		Load	0x0,0x1
024a 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
024b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
024c c403       |    |		Store	0x2,0x3
024d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
024e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x5 = 0x24e,0x3
024f 6805       |h   |		Jump_Zero	0x255
0250 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xe.0x6 = 0x250,0x4
0251 e001       |    |		Load	0x0,0x1
0252 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0253 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0254 c403       |    |		Store	0x2,0x3
0255 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xe.0x7 = 0x255,0x5
0256 e001       |    |		Load	0x0,0x1
0257 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0258 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0259 00db       |    |		Load_Top	At_Offset_3
025a e001       |    |		Load	0x0,0x1
025b 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
025c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
025d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x8 = 0x25d,0x6
025e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
025f 0000       |    |		.XXX[0x1]
0260 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0264 0000 0000  |    |		.BLANK	0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug Table
0268 ; --------------------------------------------------------------------------------------
0268 0003 000f  |    |		.CONST	0x0003,0x000f
026a 000b 02e2  |    |		.DEBUG	0x000b,0x02e2,0x0000,0x0000,0x0057,0x9795,0x0000,0x0504
0272 0026 02fe  | &  |		.DEBUG	0x0026,0x02fe,0x0000,0x0000,0x0057,0x98c5,0x0000,0x0004
027a 004b 031a  | K  |		.DEBUG	0x004b,0x031a,0x0002,0x0000,0x0057,0x9795,0x0000,0x0505
0282 006b 0328  | k (|		.DEBUG	0x006b,0x0328,0x0002,0x0000,0x0057,0x9795,0x0000,0x0510
028a 00a3 033c  |   <|		.DEBUG	0x00a3,0x033c,0x0002,0x0000,0x0057,0x9795,0x0000,0x051d
0292 00bb 034e  |   N|		.DEBUG	0x00bb,0x034e,0x0002,0x0000,0x0057,0x9795,0x0000,0x052a
029a 00db 0360  |   `|		.DEBUG	0x00db,0x0360,0x0002,0x0000,0x0057,0x9795,0x0000,0x0537
02a2 0103 036e  |   n|		.DEBUG	0x0103,0x036e,0x0002,0x0000,0x0057,0x9795,0x0000,0x0544
02aa 012b 037c  | + ||		.DEBUG	0x012b,0x037c,0x0002,0x0000,0x0057,0x9795,0x0000,0x0551
02b2 014b 038a  | K  |		.DEBUG	0x014b,0x038a,0x0002,0x0000,0x0057,0x9795,0x0000,0x055e
02ba 016b 0398  | k  |		.DEBUG	0x016b,0x0398,0x0002,0x0000,0x0057,0x9795,0x0000,0x056b
02c2 018b 03a6  |    |		.DEBUG	0x018b,0x03a6,0x0002,0x0000,0x0057,0x9795,0x0000,0x0581
02ca 01ab 03b4  |    |		.DEBUG	0x01ab,0x03b4,0x0002,0x0000,0x0057,0x9795,0x0000,0x058e
02d2 01db 03c2  |    |		.DEBUG	0x01db,0x03c2,0x0002,0x0000,0x0057,0x9795,0x0000,0x059b
02da 0223 03dc  | #  |		.DEBUG	0x0223,0x03dc,0x0002,0x0000,0x0057,0x9795,0x0000,0x05a8
02e2 ; --------------------------------------------------------------------------------------
02e2 ; Debug3 Subtable 0x0
02e2 ; --------------------------------------------------------------------------------------
02e2 000d 0000  |    |		.DBG3TAB	0x000d,0x0000
02e4 000b ffff  |    |		.CONST	0x000b,0xffff
02e6 000d fffe  |    |		.CONST	0x000d,0xfffe
02e8 000f fffd  |    |		.CONST	0x000f,0xfffd
02ea 0011 fffc  |    |		.CONST	0x0011,0xfffc
02ec 0013 fffb  |    |		.CONST	0x0013,0xfffb
02ee 0015 fffa  |    |		.CONST	0x0015,0xfffa
02f0 0017 fff9  |    |		.CONST	0x0017,0xfff9
02f2 0019 fff8  |    |		.CONST	0x0019,0xfff8
02f4 001b fff7  |    |		.CONST	0x001b,0xfff7
02f6 001d fff6  |    |		.CONST	0x001d,0xfff6
02f8 001f fff5  |    |		.CONST	0x001f,0xfff5
02fa 0021 fff4  | !  |		.CONST	0x0021,0xfff4
02fc 0023 fff3  | #  |		.CONST	0x0023,0xfff3
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug3 Subtable 0x1
02fe ; --------------------------------------------------------------------------------------
02fe 000d 0000  |    |		.DBG3TAB	0x000d,0x0000
0300 0026 ffff  | &  |		.CONST	0x0026,0xffff
0302 0028 fffe  | (  |		.CONST	0x0028,0xfffe
0304 002a fffd  | *  |		.CONST	0x002a,0xfffd
0306 002c fffc  | ,  |		.CONST	0x002c,0xfffc
0308 002e fffb  | .  |		.CONST	0x002e,0xfffb
030a 0030 fffa  | 0  |		.CONST	0x0030,0xfffa
030c 0032 fff9  | 2  |		.CONST	0x0032,0xfff9
030e 0034 fff8  | 4  |		.CONST	0x0034,0xfff8
0310 0036 fff7  | 6  |		.CONST	0x0036,0xfff7
0312 0038 fff6  | 8  |		.CONST	0x0038,0xfff6
0314 003a fff5  | :  |		.CONST	0x003a,0xfff5
0316 003c fff4  | <  |		.CONST	0x003c,0xfff4
0318 003e fff3  | >  |		.CONST	0x003e,0xfff3
031a ; --------------------------------------------------------------------------------------
031a ; Debug3 Subtable 0x2
031a ; --------------------------------------------------------------------------------------
031a 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
031c 004b ffff  | K  |		.CONST	0x004b,0xffff
031e 0050 fffe  | P  |		.CONST	0x0050,0xfffe
0320 0052 0001  | R  |		.CONST	0x0052,0x0001
0322 0056 0002  | V  |		.CONST	0x0056,0x0002
0324 0058 0003  | X  |		.CONST	0x0058,0x0003
0326 0065 0004  | e  |		.CONST	0x0065,0x0004
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug3 Subtable 0x3
0328 ; --------------------------------------------------------------------------------------
0328 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
032a 006b ffff  | k  |		.CONST	0x006b,0xffff
032c 006d fffe  | m  |		.CONST	0x006d,0xfffe
032e 0073 fffd  | s  |		.CONST	0x0073,0xfffd
0330 0076 0001  | v  |		.CONST	0x0076,0x0001
0332 0094 0002  |    |		.CONST	0x0094,0x0002
0334 0096 0003  |    |		.CONST	0x0096,0x0003
0336 0097 0401  |    |		.CONST	0x0097,0x0401
0338 0098 0003  |    |		.CONST	0x0098,0x0003
033a 0099 0004  |    |		.CONST	0x0099,0x0004
033c ; --------------------------------------------------------------------------------------
033c ; Debug3 Subtable 0x4
033c ; --------------------------------------------------------------------------------------
033c 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
033e 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0340 00a5 fffe  |    |		.CONST	0x00a5,0xfffe
0342 00a6 0001  |    |		.CONST	0x00a6,0x0001
0344 00b1 0002  |    |		.CONST	0x00b1,0x0002
0346 00b3 0003  |    |		.CONST	0x00b3,0x0003
0348 00b5 0004  |    |		.CONST	0x00b5,0x0004
034a 00b6 0401  |    |		.CONST	0x00b6,0x0401
034c 00b7 0004  |    |		.CONST	0x00b7,0x0004
034e ; --------------------------------------------------------------------------------------
034e ; Debug3 Subtable 0x5
034e ; --------------------------------------------------------------------------------------
034e 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0350 00bb ffff  |    |		.CONST	0x00bb,0xffff
0352 00bc fffe  |    |		.CONST	0x00bc,0xfffe
0354 00be 0001  |    |		.CONST	0x00be,0x0001
0356 00cc 0002  |    |		.CONST	0x00cc,0x0002
0358 00ce 0003  |    |		.CONST	0x00ce,0x0003
035a 00d0 0004  |    |		.CONST	0x00d0,0x0004
035c 00d1 0401  |    |		.CONST	0x00d1,0x0401
035e 00d2 0004  |    |		.CONST	0x00d2,0x0004
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug3 Subtable 0x6
0360 ; --------------------------------------------------------------------------------------
0360 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
0362 00db ffff  |    |		.CONST	0x00db,0xffff
0364 00dd fffe  |    |		.CONST	0x00dd,0xfffe
0366 00e3 0001  |    |		.CONST	0x00e3,0x0001
0368 00f3 0002  |    |		.CONST	0x00f3,0x0002
036a 00f5 0003  |    |		.CONST	0x00f5,0x0003
036c 00fa 0004  |    |		.CONST	0x00fa,0x0004
036e ; --------------------------------------------------------------------------------------
036e ; Debug3 Subtable 0x7
036e ; --------------------------------------------------------------------------------------
036e 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
0370 0103 ffff  |    |		.CONST	0x0103,0xffff
0372 0105 fffe  |    |		.CONST	0x0105,0xfffe
0374 010a 0001  |    |		.CONST	0x010a,0x0001
0376 011f 0002  |    |		.CONST	0x011f,0x0002
0378 0121 0003  | !  |		.CONST	0x0121,0x0003
037a 0123 0004  | #  |		.CONST	0x0123,0x0004
037c ; --------------------------------------------------------------------------------------
037c ; Debug3 Subtable 0x8
037c ; --------------------------------------------------------------------------------------
037c 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
037e 012b ffff  | +  |		.CONST	0x012b,0xffff
0380 012d fffe  | -  |		.CONST	0x012d,0xfffe
0382 0132 0001  | 2  |		.CONST	0x0132,0x0001
0384 013b 0002  | ;  |		.CONST	0x013b,0x0002
0386 013d 0003  | =  |		.CONST	0x013d,0x0003
0388 013f 0004  | ?  |		.CONST	0x013f,0x0004
038a ; --------------------------------------------------------------------------------------
038a ; Debug3 Subtable 0x9
038a ; --------------------------------------------------------------------------------------
038a 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
038c 014b ffff  | K  |		.CONST	0x014b,0xffff
038e 014d fffe  | M  |		.CONST	0x014d,0xfffe
0390 0152 0001  | R  |		.CONST	0x0152,0x0001
0392 015f 0002  | _  |		.CONST	0x015f,0x0002
0394 0161 0003  | a  |		.CONST	0x0161,0x0003
0396 0163 0004  | c  |		.CONST	0x0163,0x0004
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug3 Subtable 0xa
0398 ; --------------------------------------------------------------------------------------
0398 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
039a 016b ffff  | k  |		.CONST	0x016b,0xffff
039c 016d fffe  | m  |		.CONST	0x016d,0xfffe
039e 0170 0001  | p  |		.CONST	0x0170,0x0001
03a0 0181 0002  |    |		.CONST	0x0181,0x0002
03a2 0183 0003  |    |		.CONST	0x0183,0x0003
03a4 0185 0004  |    |		.CONST	0x0185,0x0004
03a6 ; --------------------------------------------------------------------------------------
03a6 ; Debug3 Subtable 0xb
03a6 ; --------------------------------------------------------------------------------------
03a6 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
03a8 018b ffff  |    |		.CONST	0x018b,0xffff
03aa 018d fffe  |    |		.CONST	0x018d,0xfffe
03ac 0190 0001  |    |		.CONST	0x0190,0x0001
03ae 019e 0002  |    |		.CONST	0x019e,0x0002
03b0 01a0 0003  |    |		.CONST	0x01a0,0x0003
03b2 01a2 0004  |    |		.CONST	0x01a2,0x0004
03b4 ; --------------------------------------------------------------------------------------
03b4 ; Debug3 Subtable 0xc
03b4 ; --------------------------------------------------------------------------------------
03b4 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
03b6 01ab ffff  |    |		.CONST	0x01ab,0xffff
03b8 01b1 fffe  |    |		.CONST	0x01b1,0xfffe
03ba 01b3 0001  |    |		.CONST	0x01b3,0x0001
03bc 01c3 0002  |    |		.CONST	0x01c3,0x0002
03be 01c5 0003  |    |		.CONST	0x01c5,0x0003
03c0 01ca 0004  |    |		.CONST	0x01ca,0x0004
03c2 ; --------------------------------------------------------------------------------------
03c2 ; Debug3 Subtable 0xd
03c2 ; --------------------------------------------------------------------------------------
03c2 0003 0009  |    |		.DBG3TAB	0x0003,0x0009
03c4 01db ffff  |    |		.CONST	0x01db,0xffff
03c6 01dd fffe  |    |		.CONST	0x01dd,0xfffe
03c8 01e2 fffd  |    |		.CONST	0x01e2,0xfffd
03ca 01e8 0001  |    |		.CONST	0x01e8,0x0001
03cc 01ed 0002  |    |		.CONST	0x01ed,0x0002
03ce 01fc 0003  |    |		.CONST	0x01fc,0x0003
03d0 01fe 0004  |    |		.CONST	0x01fe,0x0004
03d2 0200 0005  |    |		.CONST	0x0200,0x0005
03d4 0203 0006  |    |		.CONST	0x0203,0x0006
03d6 0213 0007  |    |		.CONST	0x0213,0x0007
03d8 0215 0008  |    |		.CONST	0x0215,0x0008
03da 021a 0009  |    |		.CONST	0x021a,0x0009
03dc ; --------------------------------------------------------------------------------------
03dc ; Debug3 Subtable 0xe
03dc ; --------------------------------------------------------------------------------------
03dc 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
03de 0223 ffff  | #  |		.CONST	0x0223,0xffff
03e0 0229 fffe  | )  |		.CONST	0x0229,0xfffe
03e2 022f fffd  | /  |		.CONST	0x022f,0xfffd
03e4 0231 0001  | 1  |		.CONST	0x0231,0x0001
03e6 023e 0002  | >  |		.CONST	0x023e,0x0002
03e8 024e 0003  | N  |		.CONST	0x024e,0x0003
03ea 0250 0004  | P  |		.CONST	0x0250,0x0004
03ec 0255 0005  | U  |		.CONST	0x0255,0x0005
03ee 025d 0006  | ]  |		.CONST	0x025d,0x0006
03f0 0000 0000  |    |		.BLANK	0000[0x10]