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

⟦fddbf1f8c⟧

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

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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02c0       |    |		.CONST	0x02c0								; 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 0042       | B  |		.CONST	0x0042								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0020       |    |		.CONST	0x0020								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0 = .DEBUG	0x000b,0x031a,0xc000,0x0000,0x0037,0xafb4,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 00e3       |    |		Load_Encached	Natural_Cache
000d e211       |    |		Load	0x1,0x11
000e 02a0       |    |		Declare_Subprogram	Null_Subprogram
000f 4803       |H   |		Short_Literal	0x3
0010 032e       | .  |		Declare_Type	Record,Defined,Visible
0011 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0.0x1 = 0x11,0xfffe
0012 0266       | f  |		Execute	Discrete,Bounds
0013 00da       |    |		Load_Top	At_Offset_2
0014 02a0       |    |		Declare_Subprogram	Null_Subprogram
0015 4801       |H   |		Short_Literal	0x1
0016 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0017 62a0       |b   |		Indirect_Literal	Discrete,0x2b8,{0x00000000, 0x0037afb4}		; Debug Table 0x0.0x2 = 0x17,0xfffd
0018 484e       |HN  |		Short_Literal	0x4e
0019 e210       |    |		Load	0x1,0x10
001a e001       |    |		Load	0x0,0x1
001b 0386       |    |		Declare_Variable	Package,Visible
001c 00d8       |    |		Load_Top	At_Offset_0
001d 020f       |    |		Execute	Module,Activate
001e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x3 = 0x1e,0xfffc
001f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0020 4801       |H   |		Short_Literal	0x1
0021 e20f       |    |		Load	0x1,0xf
0022 e218       |    |		Load	0x1,0x18
0023 035c       | \  |		Declare_Type	Array,Constrained,Visible
0024 00e3       |    |		Load_Encached	Natural_Cache
0025 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0027 4803       |H   |		Short_Literal	0x3
0028 032e       | .  |		Declare_Type	Record,Defined,Visible
0029 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x29,0xfffb
002b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x2b,0xfffa
002d 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x2d,0xfff9
002f 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x2f,0xfff8
0031 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x31,0xfff7
0033 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x33,0xfff6
0035 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0xa = 0x35,0xfff5
0036 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1 = .DEBUG	0x0036,0x0332,0xc000,0x0000,0x0037,0xafc4,0x0000,0x0003
													; Debug Table 0x1.0x0 = 0x36,0xffff
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0x1 = 0x38,0xfffe
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x2 = 0x3a,0xfffd
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x3 = 0x3c,0xfffc
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x1.0x4 = 0x3e,0xfffb
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x1.0x5 = 0x40,0xfffa
0041 00c7       |    |		Action	Elaborate_Subprogram
0042			BODY_0008:
0042 00bc       |    |		Action	Signal_Activated
0043 00bb       |    |		Action	Signal_Completion
0044 0000 0000  |    |		.BLANK	0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x2 = .DEBUG	0x004b,0x0340,0x1005,0x0000,0x0037,0xafb4,0x0000,0x0056
004c 7808       |x   |		Jump	0x55								; case 0x0
004d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
004e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
004f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0050 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0051 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0052 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0053 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0054 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0055 00da       |    |		Load_Top	At_Offset_2
0056 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0057 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0058 4800       |H   |		Short_Literal	0x0
0059 00db       |    |		Load_Top	At_Offset_3
005a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
005b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
005c 0000 0000  |    |		.BLANK	0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x0063,0x0342,0x1001,0x0000,0x0037,0xafb4,0x0000,0x0070
													; Debug Table 0x3.0x0 = 0x63,0x1
0064 e219       |    |		Load	0x1,0x19
0065 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0066 e5fe       |    |		Load	0x2,-0x2
0067 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0068 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x1 = 0x68,0x2
0069 e5fe       |    |		Load	0x2,-0x2
006a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
006b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
006c 0000 0000  |    |		.BLANK	0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4 = .DEBUG	0x0073,0x0348,0x1001,0x0000,0x0037,0xafb4,0x0000,0x007c
													; Debug Table 0x4.0x0 = 0x73,0x1
0074 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0075 e219       |    |		Load	0x1,0x19
0076 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0077 00db       |    |		Load_Top	At_Offset_3
0078 01cc       |    |		Execute	Vector,Catenate
0079 e219       |    |		Load	0x1,0x19
007a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
007b e5fe       |    |		Load	0x2,-0x2
007c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
007e 0000 0000  |    |		.XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x0083,0x034c,0x1001,0x0000,0x0037,0xafb4,0x0000,0x0088
													; Debug Table 0x5.0x0 = 0x83,0x1
0084 0d01       |    |		Execute_Immediate	Less,0x1
0085 e5fe       |    |		Load	0x2,-0x2
0086 e5fc       |    |		Load	0x2,-0x4
0087 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0088 e219       |    |		Load	0x1,0x19
0089 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
008a 027d       | }  |		Execute	Discrete,Greater
008b 0278       | x  |		Execute	Discrete,Or
008c 6802       |h   |		Jump_Zero	0x8f
008d 48e0       |H   |		Short_Literal	0xe0							; Debug Table 0x5.0x1 = 0x8d,0x2
008e 0257       | W  |		Execute	Discrete,Raise
008f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x2 = 0x8f,0x3
0090 e5fe       |    |		Load	0x2,-0x2
0091 027d       | }  |		Execute	Discrete,Greater
0092 6801       |h   |		Jump_Zero	0x94
0093 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x5.0x3 = 0x93,0x4
0094 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x5.0x4 = 0x94,0x5
0095 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0096 7013       |p   |		Jump_Nonzero	0xaa
0097 e217       |    |		Load	0x1,0x17							; Debug Table 0x5.0x5 = 0x97,0x6
0098 0322       | "  |		Declare_Variable	Record
0099 00db       |    |		Load_Top	At_Offset_3
009a 00d9       |    |		Load_Top	At_Offset_1
009b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009c e5fe       |    |		Load	0x2,-0x2
009d 00d9       |    |		Load_Top	At_Offset_1
009e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
009f e5fd       |    |		Load	0x2,-0x3
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a2 4801       |H   |		Short_Literal	0x1
00a3 e5fc       |    |		Load	0x2,-0x4
00a4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00a5 01d6       |    |		Execute	Vector,Field_Write
00a6 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x6 = 0xa6,0x7
00a7 e5fc       |    |		Load	0x2,-0x4
00a8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00aa 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x7 = 0xaa,0x8
00ab e5fc       |    |		Load	0x2,-0x4
00ac 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ad e5fc       |    |		Load	0x2,-0x4
00ae 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00af 01d5       |    |		Execute	Vector,Field_Reference
00b0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00b1 027a       | z  |		Execute	Discrete,Less_Equal
00b2 6802       |h   |		Jump_Zero	0xb5
00b3 48e0       |H   |		Short_Literal	0xe0							; Debug Table 0x5.0x8 = 0xb3,0x9
00b4 0257       | W  |		Execute	Discrete,Raise
00b5 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x5.0x9 = 0xb5,0xa
00b6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00b7 e5fc       |    |		Load	0x2,-0x4
00b8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00b9 01d5       |    |		Execute	Vector,Field_Reference
00ba 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00bb e5fd       |    |		Load	0x2,-0x3
00bc 027f       |    |		Execute	Discrete,Equal
00bd 6808       |h   |		Jump_Zero	0xc6
00be 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xa = 0xbe,0xb
00bf e5fc       |    |		Load	0x2,-0x4
00c0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c1 e5fc       |    |		Load	0x2,-0x4
00c2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00c3 01d5       |    |		Execute	Vector,Field_Reference
00c4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00c6 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x5.0xb = 0xc6,0xc
00c7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c8 e5fc       |    |		Load	0x2,-0x4
00c9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00ca 01d5       |    |		Execute	Vector,Field_Reference
00cb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00cc e215       |    |		Load	0x1,0x15
00cd 01d7       |    |		Execute	Vector,Field_Read
00ce 682a       |h*  |		Jump_Zero	0xf9
00cf e219       |    |		Load	0x1,0x19
00d0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00d1 0337       | 7  |		Declare_Variable	Array
00d2 00db       |    |		Load_Top	At_Offset_3
00d3 4801       |H   |		Short_Literal	0x1
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 01d6       |    |		Execute	Vector,Field_Write
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 4802       |H   |		Short_Literal	0x2
00d8 00da       |    |		Load_Top	At_Offset_2
00d9 01d6       |    |		Execute	Vector,Field_Write
00da e219       |    |		Load	0x1,0x19
00db 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00dc 01c3       |    |		Execute	Vector,Check_In_Type
00dd e5fc       |    |		Load	0x2,-0x4
00de 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00df e219       |    |		Load	0x1,0x19
00e0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 00e9       |    |		Load_Encached	String_Cache
00e4 035b       | [  |		Declare_Type	Array,Constrained
00e5 0337       | 7  |		Declare_Variable	Array
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 01d9       |    |		Execute	Vector,Reverse_Bounds
00e8 0263       | c  |		Execute	Discrete,Above_Bound
00e9 7005       |p   |		Jump_Nonzero	0xef
00ea 4820       |H   |		Short_Literal	0x20
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec e403       |    |		Load	0x2,0x3
00ed 01d6       |    |		Execute	Vector,Field_Write
00ee 3ffb       |?   |		Loop_Increasing	0xea
00ef 01df       |    |		Execute	Vector,Equal
00f0 6808       |h   |		Jump_Zero	0xf9
00f1 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xc = 0xf1,0xd
00f2 e5fc       |    |		Load	0x2,-0x4
00f3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00f4 e5fc       |    |		Load	0x2,-0x4
00f5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f6 01d5       |    |		Execute	Vector,Field_Reference
00f7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00f9 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0xd = 0xf9,0xe
00fa e215       |    |		Load	0x1,0x15
00fb 01d7       |    |		Execute	Vector,Field_Read
00fc 6821       |h!  |		Jump_Zero	0x11e
00fd e5fc       |    |		Load	0x2,-0x4
00fe 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ff 0f01       |    |		Execute_Immediate	Equal,0x1
0100 681d       |h   |		Jump_Zero	0x11e
0101 4801       |H   |		Short_Literal	0x1
0102 e5fc       |    |		Load	0x2,-0x4
0103 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0104 01d5       |    |		Execute	Vector,Field_Reference
0105 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0106 e212       |    |		Load	0x1,0x12
0107 027f       |    |		Execute	Discrete,Equal
0108 6815       |h   |		Jump_Zero	0x11e
0109 4801       |H   |		Short_Literal	0x1
010a e5fc       |    |		Load	0x2,-0x4
010b 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
010c 01d5       |    |		Execute	Vector,Field_Reference
010d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
010e e213       |    |		Load	0x1,0x13
010f 027c       | |  |		Execute	Discrete,Less
0110 680d       |h   |		Jump_Zero	0x11e
0111 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xe = 0x111,0xf
0112 4801       |H   |		Short_Literal	0x1
0113 e5fc       |    |		Load	0x2,-0x4
0114 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0115 01d5       |    |		Execute	Vector,Field_Reference
0116 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0117 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0xf = 0x117,0x10
0118 4801       |H   |		Short_Literal	0x1
0119 e5fc       |    |		Load	0x2,-0x4
011a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
011b 01d5       |    |		Execute	Vector,Field_Reference
011c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
011d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
011e e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x5.0x10 = 0x11e,0x11
011f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0120 e20f       |    |		Load	0x1,0xf
0121 027f       |    |		Execute	Discrete,Equal
0122 6802       |h   |		Jump_Zero	0x125
0123 6190       |a   |		Indirect_Literal	Discrete,0x2b4,{0x00000000, 0x37afb401}		; Debug Table 0x5.0x11 = 0x123,0x12
0124 0257       | W  |		Execute	Discrete,Raise
0125 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x5.0x12 = 0x125,0x13
0126 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0127 0a01       |    |		Execute_Immediate	Plus,0x1
0128 e5fc       |    |		Load	0x2,-0x4
0129 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
012a e217       |    |		Load	0x1,0x17							; Debug Table 0x5.0x13 = 0x12a,0x14
012b 0322       | "  |		Declare_Variable	Record
012c 00db       |    |		Load_Top	At_Offset_3
012d 00d9       |    |		Load_Top	At_Offset_1
012e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012f e5fe       |    |		Load	0x2,-0x2
0130 00d9       |    |		Load_Top	At_Offset_1
0131 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0132 e5fd       |    |		Load	0x2,-0x3
0133 00d9       |    |		Load_Top	At_Offset_1
0134 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0135 e5fc       |    |		Load	0x2,-0x4
0136 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0137 e5fc       |    |		Load	0x2,-0x4
0138 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0139 01d6       |    |		Execute	Vector,Field_Write
013a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
013b 0000 0000  |    |		.BLANK	0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x0143,0x0376,0x1002,0x0000,0x0037,0xafb4,0x0000,0x0099
													; Debug Table 0x6.0x0 = 0x143,0x1
0144 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0145 e219       |    |		Load	0x1,0x19
0146 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0147 00e3       |    |		Load_Encached	Natural_Cache
0148 025b       | [  |		Execute	Discrete,Check_In_Type
0149 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014a 0000 0000  |    |		.BLANK	0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0154       | T  |		.CONST	0x0154								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x7 = .DEBUG	0x0153,0x037a,0x1001,0x0000,0x0037,0xafb4,0x0000,0x00a2
													; Debug Table 0x7.0x0 = 0x153,0xffff
0154			BODY_0150:
0154 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x1 = 0x154,0x1
0155 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0156 e219       |    |		Load	0x1,0x19
0157 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0158 e5ff       |    |		Load	0x2,-0x1
0159 027a       | z  |		Execute	Discrete,Less_Equal
015a 680c       |h   |		Jump_Zero	0x167
015b e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x2 = 0x15b,0x2
015c e5fd       |    |		Load	0x2,-0x3
015d 017d       | }  |		Execute	Record,Structure_Write
015e 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x7.0x3 = 0x15e,0x3
015f e219       |    |		Load	0x1,0x19
0160 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0161 e5fe       |    |		Load	0x2,-0x2
0162 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0163 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x4 = 0x163,0x4
0164 e5fe       |    |		Load	0x2,-0x2
0165 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0166 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0167 00cf       |    |		Action	Mark_Auxiliary
0168 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0x5 = 0x168,0x5
0169 e5fe       |    |		Load	0x2,-0x2
016a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
016b 0264       | d  |		Execute	Discrete,Below_Bound
016c 70af       |p   |		Jump_Nonzero	0x21c
016d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x6 = 0x16d,0x6
016e e5fe       |    |		Load	0x2,-0x2
016f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0170 01d5       |    |		Execute	Vector,Field_Reference
0171 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0172 e5ff       |    |		Load	0x2,-0x1
0173 027a       | z  |		Execute	Discrete,Less_Equal
0174 68a5       |h   |		Jump_Zero	0x21a
0175 e219       |    |		Load	0x1,0x19							; Debug Table 0x7.0x7 = 0x175,0x7
0176 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0177 0337       | 7  |		Declare_Variable	Array
0178 4801       |H   |		Short_Literal	0x1
0179 4801       |H   |		Short_Literal	0x1
017a 00da       |    |		Load_Top	At_Offset_2
017b 01d6       |    |		Execute	Vector,Field_Write
017c e5ff       |    |		Load	0x2,-0x1
017d 4802       |H   |		Short_Literal	0x2
017e 00da       |    |		Load_Top	At_Offset_2
017f 01d6       |    |		Execute	Vector,Field_Write
0180 e219       |    |		Load	0x1,0x19
0181 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0182 01c3       |    |		Execute	Vector,Check_In_Type
0183 e5fe       |    |		Load	0x2,-0x2
0184 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0185 e219       |    |		Load	0x1,0x19
0186 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0187 e219       |    |		Load	0x1,0x19
0188 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0189 e5fd       |    |		Load	0x2,-0x3
018a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
018b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0x8 = 0x18b,0x8
018c 00d9       |    |		Load_Top	At_Offset_1
018d e5fe       |    |		Load	0x2,-0x2
018e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
018f 01cf       |    |		Execute	Vector,Slice_Read
0190 4801       |H   |		Short_Literal	0x1
0191 00da       |    |		Load_Top	At_Offset_2
0192 e5fd       |    |		Load	0x2,-0x3
0193 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0194 01ce       |    |		Execute	Vector,Slice_Write
0195 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x9 = 0x195,0x9
0196 00d9       |    |		Load_Top	At_Offset_1
0197 e5fd       |    |		Load	0x2,-0x3
0198 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0199 01d5       |    |		Execute	Vector,Field_Reference
019a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0xa = 0x19b,0xa
019c e5fd       |    |		Load	0x2,-0x3
019d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
019e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0xb = 0x19e,0xb
019f 0a01       |    |		Execute_Immediate	Plus,0x1
01a0 00e3       |    |		Load_Encached	Natural_Cache
01a1 025b       | [  |		Execute	Discrete,Check_In_Type
01a2 e5fe       |    |		Load	0x2,-0x2
01a3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01a4 e219       |    |		Load	0x1,0x19
01a5 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01a6 e219       |    |		Load	0x1,0x19
01a7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01a8 e5fe       |    |		Load	0x2,-0x2
01a9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01aa 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0xc = 0x1aa,0xc
01ab e5fe       |    |		Load	0x2,-0x2
01ac 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01ad 01d5       |    |		Execute	Vector,Field_Reference
01ae 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01af e5ff       |    |		Load	0x2,-0x1
01b0 027f       |    |		Execute	Discrete,Equal
01b1 681a       |h   |		Jump_Zero	0x1cc
01b2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0xd = 0x1b2,0xd
01b3 0a01       |    |		Execute_Immediate	Plus,0x1
01b4 0248       | H  |		Execute	Discrete,Check_In_Integer
01b5 e5fe       |    |		Load	0x2,-0x2
01b6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b7 e5fe       |    |		Load	0x2,-0x2
01b8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01b9 01cf       |    |		Execute	Vector,Slice_Read
01ba 4801       |H   |		Short_Literal	0x1
01bb e5fe       |    |		Load	0x2,-0x2
01bc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01bd 00db       |    |		Load_Top	At_Offset_3
01be 0272       | r  |		Execute	Discrete,Minus
01bf 0248       | H  |		Execute	Discrete,Check_In_Integer
01c0 e5fe       |    |		Load	0x2,-0x2
01c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01c2 01ce       |    |		Execute	Vector,Slice_Write
01c3 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0xe = 0x1c3,0xe
01c4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01c5 00d9       |    |		Load_Top	At_Offset_1
01c6 0272       | r  |		Execute	Discrete,Minus
01c7 e5fe       |    |		Load	0x2,-0x2
01c8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01c9 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0xf = 0x1c9,0xf
01ca a402       |    |		Store_Unchecked	0x2,0x2
01cb 782c       |x,  |		Jump	0x1f8
01cc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x10 = 0x1cc,0x10
01cd e5fe       |    |		Load	0x2,-0x2
01ce 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01cf e5fe       |    |		Load	0x2,-0x2
01d0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01d1 01cf       |    |		Execute	Vector,Slice_Read
01d2 4801       |H   |		Short_Literal	0x1
01d3 e5fe       |    |		Load	0x2,-0x2
01d4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01d5 00db       |    |		Load_Top	At_Offset_3
01d6 0272       | r  |		Execute	Discrete,Minus
01d7 0a01       |    |		Execute_Immediate	Plus,0x1
01d8 0248       | H  |		Execute	Discrete,Check_In_Integer
01d9 e5fe       |    |		Load	0x2,-0x2
01da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01db 01ce       |    |		Execute	Vector,Slice_Write
01dc e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x11 = 0x1dc,0x11
01dd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01de 00d9       |    |		Load_Top	At_Offset_1
01df 0272       | r  |		Execute	Discrete,Minus
01e0 0248       | H  |		Execute	Discrete,Check_In_Integer
01e1 0a01       |    |		Execute_Immediate	Plus,0x1
01e2 e5fe       |    |		Load	0x2,-0x2
01e3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01e4 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0x12 = 0x1e4,0x12
01e5 4801       |H   |		Short_Literal	0x1
01e6 e5fe       |    |		Load	0x2,-0x2
01e7 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01e8 01d5       |    |		Execute	Vector,Field_Reference
01e9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ea 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0x13 = 0x1ea,0x13
01eb e5fe       |    |		Load	0x2,-0x2
01ec 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01ed 01d5       |    |		Execute	Vector,Field_Reference
01ee 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01ef e5ff       |    |		Load	0x2,-0x1
01f0 0272       | r  |		Execute	Discrete,Minus
01f1 4801       |H   |		Short_Literal	0x1
01f2 e5fe       |    |		Load	0x2,-0x2
01f3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01f4 01d5       |    |		Execute	Vector,Field_Reference
01f5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f6 4802       |H   |		Short_Literal	0x2							; Debug Table 0x7.0x14 = 0x1f6,0x14
01f7 a402       |    |		Store_Unchecked	0x2,0x2
01f8 00cf       |    |		Action	Mark_Auxiliary
01f9 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x15 = 0x1f9,0x15
01fa 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01fb e402       |    |		Load	0x2,0x2
01fc 0263       | c  |		Execute	Discrete,Above_Bound
01fd 701a       |p   |		Jump_Nonzero	0x218
01fe 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x16 = 0x1fe,0x16
01ff e5fe       |    |		Load	0x2,-0x2
0200 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0201 01d5       |    |		Execute	Vector,Field_Reference
0202 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0203 e5ff       |    |		Load	0x2,-0x1
0204 0272       | r  |		Execute	Discrete,Minus
0205 00d9       |    |		Load_Top	At_Offset_1
0206 e5fe       |    |		Load	0x2,-0x2
0207 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0208 01d5       |    |		Execute	Vector,Field_Reference
0209 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
020a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x17 = 0x20a,0x17
020b e5fe       |    |		Load	0x2,-0x2
020c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
020d 01d5       |    |		Execute	Vector,Field_Reference
020e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
020f e5ff       |    |		Load	0x2,-0x1
0210 0272       | r  |		Execute	Discrete,Minus
0211 00d9       |    |		Load_Top	At_Offset_1
0212 e5fe       |    |		Load	0x2,-0x2
0213 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0214 01d5       |    |		Execute	Vector,Field_Reference
0215 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0216 00c8       |    |		Action	Pop_Auxiliary_Range
0217 3fe6       |?   |		Loop_Increasing	0x1fe
0218 00ce       |    |		Action	Pop_Auxiliary
0219 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x7.0x18 = 0x219,0x18
021a 00c8       |    |		Action	Pop_Auxiliary_Range
021b 3751       |7Q  |		Loop_Decreasing	0x16d
021c 00ce       |    |		Action	Pop_Auxiliary
021d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021e 0000 0000  |    |		.XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022b       | +  |		.CONST	0x022b								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0004       |    |		.CONST	0x0004								; Number of locals
0223			INIT_0220:
0223 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8 = .DEBUG	0x0223,0x03ae,0x1002,0x0000,0x0037,0xafb4,0x0000,0x00b2
													; Debug Table 0x8.0x0 = 0x223,0xffff
0224 e210       |    |		Load	0x1,0x10
0225 00e9       |    |		Load_Encached	String_Cache
0226 0334       | 4  |		Declare_Variable	Array,With_Constraint
0227 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x8.0x1 = 0x227,0xfffe
0228 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0229 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
022b			BODY_0220:
022b 00cf       |    |		Action	Mark_Auxiliary
022c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8.0x2 = 0x22c,0x1
022d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
022e 4801       |H   |		Short_Literal	0x1
022f 0263       | c  |		Execute	Discrete,Above_Bound
0230 7003       |p   |		Jump_Nonzero	0x234
0231 8404       |    |		Call	0x2,0x4								; Debug Table 0x8.0x3 = 0x231,0x2
0232 00c8       |    |		Action	Pop_Auxiliary_Range
0233 3ffd       |?   |		Loop_Increasing	0x231
0234 00ce       |    |		Action	Pop_Auxiliary
0235 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x4 = 0x235,0x3
0236 00da       |    |		Load_Top	At_Offset_2
0237 e402       |    |		Load	0x2,0x2
0238 01cf       |    |		Execute	Vector,Slice_Read
0239 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023a 0000 0000  |    |		.BLANK	0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0267       | g  |		.CONST	0x0267								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0003       |    |		.CONST	0x0003								; Number of locals
0243			INIT_0240:
0243 e219       |    |		Load	0x1,0x19							; Debug Table 0x9 = .DEBUG	0x0243,0x03ba,0x1004,0x0000,0x0037,0xafc4,0x0000,0x036b
													; Debug Table 0x9.0x0 = 0x243,0xffff
0244 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0245 0337       | 7  |		Declare_Variable	Array
0246 e407       |    |		Load	0x2,0x7
0247 e5ff       |    |		Load	0x2,-0x1
0248 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0249 01d5       |    |		Execute	Vector,Field_Reference
024a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
024b 4801       |H   |		Short_Literal	0x1
024c 00da       |    |		Load_Top	At_Offset_2
024d 01d6       |    |		Execute	Vector,Field_Write
024e e407       |    |		Load	0x2,0x7
024f e5ff       |    |		Load	0x2,-0x1
0250 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0251 01d5       |    |		Execute	Vector,Field_Reference
0252 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0253 4802       |H   |		Short_Literal	0x2
0254 00da       |    |		Load_Top	At_Offset_2
0255 01d6       |    |		Execute	Vector,Field_Write
0256 e219       |    |		Load	0x1,0x19
0257 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0258 01c3       |    |		Execute	Vector,Check_In_Type
0259 e5ff       |    |		Load	0x2,-0x1
025a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
025b e219       |    |		Load	0x1,0x19
025c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
025d e407       |    |		Load	0x2,0x7
025e e5ff       |    |		Load	0x2,-0x1
025f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0260 01d5       |    |		Execute	Vector,Field_Reference
0261 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0262 e211       |    |		Load	0x1,0x11
0263 025b       | [  |		Execute	Discrete,Check_In_Type
0264 8216       |    |		Call	0x1,0x16
0265 029f 0293  |    |		Declare_Subprogram	INIT_0290,For_Call
0267			BODY_0240:
0267 e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0x1 = 0x267,0x1
0268 00da       |    |		Load_Top	At_Offset_2
0269 01db       |    |		Execute	Vector,Length
026a 0273       | s  |		Execute	Discrete,Plus
026b e210       |    |		Load	0x1,0x10
026c 027a       | z  |		Execute	Discrete,Less_Equal
026d 6811       |h   |		Jump_Zero	0x27f
026e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x2 = 0x26e,0x2
026f e403       |    |		Load	0x2,0x3
0270 0a01       |    |		Execute_Immediate	Plus,0x1
0271 0248       | H  |		Execute	Discrete,Check_In_Integer
0272 e403       |    |		Load	0x2,0x3
0273 e602       |    |		Load	0x3,0x2
0274 01db       |    |		Execute	Vector,Length
0275 0273       | s  |		Execute	Discrete,Plus
0276 0248       | H  |		Execute	Discrete,Check_In_Integer
0277 e402       |    |		Load	0x2,0x2
0278 01ce       |    |		Execute	Vector,Slice_Write
0279 e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0x3 = 0x279,0x3
027a 00da       |    |		Load_Top	At_Offset_2
027b 01db       |    |		Execute	Vector,Length
027c 0273       | s  |		Execute	Discrete,Plus
027d c403       |    |		Store	0x2,0x3
027e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
027f e407       |    |		Load	0x2,0x7								; Debug Table 0x9.0x4 = 0x27f,0x4
0280 e5ff       |    |		Load	0x2,-0x1
0281 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0282 027f       |    |		Execute	Discrete,Equal
0283 6808       |h   |		Jump_Zero	0x28c
0284 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x5 = 0x284,0x5
0285 e403       |    |		Load	0x2,0x3
0286 e402       |    |		Load	0x2,0x2
0287 01cf       |    |		Execute	Vector,Slice_Read
0288 00da       |    |		Load_Top	At_Offset_2
0289 01cc       |    |		Execute	Vector,Catenate
028a 00cb       |    |		Action	Pop_Block_With_Result
028b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028c 8603       |    |		Call	0x3,0x3								; Debug Table 0x9.0x6 = 0x28c,0x6
028d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
028e 0000 0000  |    |		.XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029c       |    |		.CONST	0x029c								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0003       |    |		.CONST	0x0003								; Number of locals
0293			INIT_0290:
0293 e21a       |    |		Load	0x1,0x1a							; Debug Table 0xa = .DEBUG	0x0293,0x03ca,0x1004,0x0000,0x0037,0xafc4,0x0000,0x0365
													; Debug Table 0xa.0x0 = 0x293,0xffff
0294 0322       | "  |		Declare_Variable	Record
0295 e5ff       |    |		Load	0x2,-0x1
0296 00d9       |    |		Load_Top	At_Offset_1
0297 017d       | }  |		Execute	Record,Structure_Write
0298 e21a       |    |		Load	0x1,0x1a							; Debug Table 0xa.0x1 = 0x298,0xfffe
0299 0322       | "  |		Declare_Variable	Record
029a 00d8       |    |		Load_Top	At_Offset_0
029b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
029c			BODY_0290:
029c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x2 = 0x29c,0x1
029d 00da       |    |		Load_Top	At_Offset_2
029e e407       |    |		Load	0x2,0x7
029f 0aff       |    |		Execute_Immediate	Plus,-0x1
02a0 0248       | H  |		Execute	Discrete,Check_In_Integer
02a1 e5ff       |    |		Load	0x2,-0x1
02a2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02a3 01d5       |    |		Execute	Vector,Field_Reference
02a4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a5 821f       |    |		Call	0x1,0x1f
02a6 00d2       |    |		Pop_Control	Pop_Count_2
02a7 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0x3 = 0x2a7,0x2
02a8 e403       |    |		Load	0x2,0x3
02a9 e402       |    |		Load	0x2,0x2
02aa 01cf       |    |		Execute	Vector,Slice_Read
02ab 00d9       |    |		Load_Top	At_Offset_1
02ac 8220       |    |		Call	0x1,0x20
02ad 01cc       |    |		Execute	Vector,Catenate
02ae 00cb       |    |		Action	Pop_Block_With_Result
02af 00cb       |    |		Action	Pop_Block_With_Result
02b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b1 0000 0000  |    |		.XXX[0x3]
02b3 0000       |    |
02b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x37afb401}
02b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0037afb4}
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug Table
02c0 ; --------------------------------------------------------------------------------------
02c0 0003 000b  |    |		.CONST	0x0003,0x000b
02c2 000b 031a  |    |		.DEBUG	0x000b,0x031a,0xc000,0x0000,0x0037,0xafb4,0x0000,0x0005
02ca 0036 0332  | 6 2|		.DEBUG	0x0036,0x0332,0xc000,0x0000,0x0037,0xafc4,0x0000,0x0003
02d2 004b 0340  | K @|		.DEBUG	0x004b,0x0340,0x1005,0x0000,0x0037,0xafb4,0x0000,0x0056
02da 0063 0342  | c B|		.DEBUG	0x0063,0x0342,0x1001,0x0000,0x0037,0xafb4,0x0000,0x0070
02e2 0073 0348  | s H|		.DEBUG	0x0073,0x0348,0x1001,0x0000,0x0037,0xafb4,0x0000,0x007c
02ea 0083 034c  |   L|		.DEBUG	0x0083,0x034c,0x1001,0x0000,0x0037,0xafb4,0x0000,0x0088
02f2 0143 0376  | C v|		.DEBUG	0x0143,0x0376,0x1002,0x0000,0x0037,0xafb4,0x0000,0x0099
02fa 0153 037a  | S z|		.DEBUG	0x0153,0x037a,0x1001,0x0000,0x0037,0xafb4,0x0000,0x00a2
0302 0223 03ae  | #  |		.DEBUG	0x0223,0x03ae,0x1002,0x0000,0x0037,0xafb4,0x0000,0x00b2
030a 0243 03ba  | C  |		.DEBUG	0x0243,0x03ba,0x1004,0x0000,0x0037,0xafc4,0x0000,0x036b
0312 0293 03ca  |    |		.DEBUG	0x0293,0x03ca,0x1004,0x0000,0x0037,0xafc4,0x0000,0x0365
031a ; --------------------------------------------------------------------------------------
031a ; Debug3 Subtable 0x0
031a ; --------------------------------------------------------------------------------------
031a 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
031c 000b ffff  |    |		.CONST	0x000b,0xffff
031e 0011 fffe  |    |		.CONST	0x0011,0xfffe
0320 0017 fffd  |    |		.CONST	0x0017,0xfffd
0322 001e fffc  |    |		.CONST	0x001e,0xfffc
0324 0029 fffb  | )  |		.CONST	0x0029,0xfffb
0326 002b fffa  | +  |		.CONST	0x002b,0xfffa
0328 002d fff9  | -  |		.CONST	0x002d,0xfff9
032a 002f fff8  | /  |		.CONST	0x002f,0xfff8
032c 0031 fff7  | 1  |		.CONST	0x0031,0xfff7
032e 0033 fff6  | 3  |		.CONST	0x0033,0xfff6
0330 0035 fff5  | 5  |		.CONST	0x0035,0xfff5
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug3 Subtable 0x1
0332 ; --------------------------------------------------------------------------------------
0332 0006 0000  |    |		.DBG3TAB	0x0006,0x0000
0334 0036 ffff  | 6  |		.CONST	0x0036,0xffff
0336 0038 fffe  | 8  |		.CONST	0x0038,0xfffe
0338 003a fffd  | :  |		.CONST	0x003a,0xfffd
033a 003c fffc  | <  |		.CONST	0x003c,0xfffc
033c 003e fffb  | >  |		.CONST	0x003e,0xfffb
033e 0040 fffa  | @  |		.CONST	0x0040,0xfffa
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug3 Subtable 0x2
0340 ; --------------------------------------------------------------------------------------
0340 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug3 Subtable 0x3
0342 ; --------------------------------------------------------------------------------------
0342 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0344 0063 0001  | c  |		.CONST	0x0063,0x0001
0346 0068 0002  | h  |		.CONST	0x0068,0x0002
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug3 Subtable 0x4
0348 ; --------------------------------------------------------------------------------------
0348 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
034a 0073 0001  | s  |		.CONST	0x0073,0x0001
034c ; --------------------------------------------------------------------------------------
034c ; Debug3 Subtable 0x5
034c ; --------------------------------------------------------------------------------------
034c 0000 0014  |    |		.DBG3TAB	0x0000,0x0014
034e 0083 0001  |    |		.CONST	0x0083,0x0001
0350 008d 0002  |    |		.CONST	0x008d,0x0002
0352 008f 0003  |    |		.CONST	0x008f,0x0003
0354 0093 0004  |    |		.CONST	0x0093,0x0004
0356 0094 0005  |    |		.CONST	0x0094,0x0005
0358 0097 0006  |    |		.CONST	0x0097,0x0006
035a 00a6 0007  |    |		.CONST	0x00a6,0x0007
035c 00aa 0008  |    |		.CONST	0x00aa,0x0008
035e 00b3 0009  |    |		.CONST	0x00b3,0x0009
0360 00b5 000a  |    |		.CONST	0x00b5,0x000a
0362 00be 000b  |    |		.CONST	0x00be,0x000b
0364 00c6 000c  |    |		.CONST	0x00c6,0x000c
0366 00f1 000d  |    |		.CONST	0x00f1,0x000d
0368 00f9 000e  |    |		.CONST	0x00f9,0x000e
036a 0111 000f  |    |		.CONST	0x0111,0x000f
036c 0117 0010  |    |		.CONST	0x0117,0x0010
036e 011e 0011  |    |		.CONST	0x011e,0x0011
0370 0123 0012  | #  |		.CONST	0x0123,0x0012
0372 0125 0013  | %  |		.CONST	0x0125,0x0013
0374 012a 0014  | *  |		.CONST	0x012a,0x0014
0376 ; --------------------------------------------------------------------------------------
0376 ; Debug3 Subtable 0x6
0376 ; --------------------------------------------------------------------------------------
0376 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0378 0143 0001  | C  |		.CONST	0x0143,0x0001
037a ; --------------------------------------------------------------------------------------
037a ; Debug3 Subtable 0x7
037a ; --------------------------------------------------------------------------------------
037a 0001 0018  |    |		.DBG3TAB	0x0001,0x0018
037c 0153 ffff  | S  |		.CONST	0x0153,0xffff
037e 0154 0001  | T  |		.CONST	0x0154,0x0001
0380 015b 0002  | [  |		.CONST	0x015b,0x0002
0382 015e 0003  | ^  |		.CONST	0x015e,0x0003
0384 0163 0004  | c  |		.CONST	0x0163,0x0004
0386 0168 0005  | h  |		.CONST	0x0168,0x0005
0388 016d 0006  | m  |		.CONST	0x016d,0x0006
038a 0175 0007  | u  |		.CONST	0x0175,0x0007
038c 018b 0008  |    |		.CONST	0x018b,0x0008
038e 0195 0009  |    |		.CONST	0x0195,0x0009
0390 019b 000a  |    |		.CONST	0x019b,0x000a
0392 019e 000b  |    |		.CONST	0x019e,0x000b
0394 01aa 000c  |    |		.CONST	0x01aa,0x000c
0396 01b2 000d  |    |		.CONST	0x01b2,0x000d
0398 01c3 000e  |    |		.CONST	0x01c3,0x000e
039a 01c9 000f  |    |		.CONST	0x01c9,0x000f
039c 01cc 0010  |    |		.CONST	0x01cc,0x0010
039e 01dc 0011  |    |		.CONST	0x01dc,0x0011
03a0 01e4 0012  |    |		.CONST	0x01e4,0x0012
03a2 01ea 0013  |    |		.CONST	0x01ea,0x0013
03a4 01f6 0014  |    |		.CONST	0x01f6,0x0014
03a6 01f9 0015  |    |		.CONST	0x01f9,0x0015
03a8 01fe 0016  |    |		.CONST	0x01fe,0x0016
03aa 020a 0017  |    |		.CONST	0x020a,0x0017
03ac 0219 0018  |    |		.CONST	0x0219,0x0018
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug3 Subtable 0x8
03ae ; --------------------------------------------------------------------------------------
03ae 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
03b0 0223 ffff  | #  |		.CONST	0x0223,0xffff
03b2 0227 fffe  | '  |		.CONST	0x0227,0xfffe
03b4 022c 0001  | ,  |		.CONST	0x022c,0x0001
03b6 0231 0002  | 1  |		.CONST	0x0231,0x0002
03b8 0235 0003  | 5  |		.CONST	0x0235,0x0003
03ba ; --------------------------------------------------------------------------------------
03ba ; Debug3 Subtable 0x9
03ba ; --------------------------------------------------------------------------------------
03ba 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
03bc 0243 ffff  | C  |		.CONST	0x0243,0xffff
03be 0267 0001  | g  |		.CONST	0x0267,0x0001
03c0 026e 0002  | n  |		.CONST	0x026e,0x0002
03c2 0279 0003  | y  |		.CONST	0x0279,0x0003
03c4 027f 0004  |    |		.CONST	0x027f,0x0004
03c6 0284 0005  |    |		.CONST	0x0284,0x0005
03c8 028c 0006  |    |		.CONST	0x028c,0x0006
03ca ; --------------------------------------------------------------------------------------
03ca ; Debug3 Subtable 0xa
03ca ; --------------------------------------------------------------------------------------
03ca 0002 0002  |    |		.DBG3TAB	0x0002,0x0002
03cc 0293 ffff  |    |		.CONST	0x0293,0xffff
03ce 0298 fffe  |    |		.CONST	0x0298,0xfffe
03d0 029c 0001  |    |		.CONST	0x029c,0x0001
03d2 02a7 0002  |    |		.CONST	0x02a7,0x0002
03d4 0000 0000  |    |		.BLANK	0000[0x2c]