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

⟦3052f16cc⟧

    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 0288       |    |		.CONST	0x0288								; 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 0057       | W  |		.CONST	0x0057								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0 = .DEBUG	0x000b,0x02e2,0x8000,0x0000,0x0055,0xe7c5,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 480f       |H   |		Short_Literal	0xf
000d e001       |    |		Load	0x0,0x1
000e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
000f 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0011 4801       |H   |		Short_Literal	0x1
0012 035e       | ^  |		Declare_Type	Array,Defined,Visible
0013 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x1 = 0x13,0xfffe
0014 480f       |H   |		Short_Literal	0xf
0015 e001       |    |		Load	0x0,0x1
0016 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0017 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call
0019 4801       |H   |		Short_Literal	0x1
001a 035e       | ^  |		Declare_Type	Array,Defined,Visible
001b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x2 = 0x1b,0xfffd
001c 480f       |H   |		Short_Literal	0xf
001d 00e1       |    |		Load_Encached	Boolean_Cache
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 4801       |H   |		Short_Literal	0x1
0020 035e       | ^  |		Declare_Type	Array,Defined,Visible
0021 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0.0x3 = 0x21,0xfffc
													; Debug Table 0x0.0x4 = 0x21,0xfffb
													; Debug Table 0x0.0x5 = 0x21,0xfffa
													; Debug Table 0x0.0x6 = 0x21,0xfff9
													; Debug Table 0x0.0x7 = 0x21,0xfff8
													; Debug Table 0x0.0x8 = 0x21,0xfff7
													; Debug Table 0x0.0x9 = 0x21,0xfff6
													; Debug Table 0x0.0xa = 0x21,0xfff5
													; Debug Table 0x0.0xb = 0x21,0xfff4
0022 00db       |    |		Load_Top	At_Offset_3
0023 00db       |    |		Load_Top	At_Offset_3
0024 00db       |    |		Load_Top	At_Offset_3
0025 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call
0027 4804       |H   |		Short_Literal	0x4
0028 032e       | .  |		Declare_Type	Record,Defined,Visible
0029 e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0xc = 0x29,0xfff3
002a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002b 00d9       |    |		Load_Top	At_Offset_1
002c e003       |    |		Load	0x0,0x3
002d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
002e e001       |    |		Load	0x0,0x1
002f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0030 00e1       |    |		Load_Encached	Boolean_Cache
0031 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
0033 4805       |H   |		Short_Literal	0x5
0034 032e       | .  |		Declare_Type	Record,Defined,Visible
0035 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0xd = 0x35,0xfff2
0036 02a0       |    |		Declare_Subprogram	Null_Subprogram
0037 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0038 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x38,0xfff1
													; Debug Table 0x0.0xf = 0x38,0xfff0
003a 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x3a,0xffef
003c 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x3c,0xffee
003e 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x3e,0xffed
0040 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x40,0xffec
0042 00bf       |    |		Action	Accept_Activation
0043 623c       |b<  |		Indirect_Literal	Discrete,0x280,{0x00000000, 0x00577925}		; Debug Table 0x1 = .DEBUG	0x0043,0x030c,0x8000,0x0000,0x0057,0x7925,0x0000,0x0013
													; Debug Table 0x1.0x0 = 0x43,0xffff
													; Debug Table 0x1.0x1 = 0x43,0xfffe
													; Debug Table 0x1.0x2 = 0x43,0xfffd
													; Debug Table 0x1.0x3 = 0x43,0xfffc
0044 482c       |H,  |		Short_Literal	0x2c
0045 e210       |    |		Load	0x1,0x10
0046 e001       |    |		Load	0x0,0x1
0047 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0048 0387       |    |		Declare_Variable	Package
0049 00d8       |    |		Load_Top	At_Offset_0
004a 020f       |    |		Execute	Module,Activate
004b e004       |    |		Load	0x0,0x4								; Debug Table 0x1.0x4 = 0x4b,0xfffb
004c 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
004d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x5 = 0x4d,0xfffa
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x6 = 0x4f,0xfff9
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x7 = 0x51,0xfff8
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x8 = 0x53,0xfff7
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x9 = 0x55,0xfff6
0056 00c7       |    |		Action	Elaborate_Subprogram
0057			BODY_0008:
0057 00bc       |    |		Action	Signal_Activated
0058 00bb       |    |		Action	Signal_Completion
0059 0000 0000  |    |		.BLANK	0000[0x7]
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 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x2 = .DEBUG	0x0063,0x0322,0x0005,0x0000,0x0055,0xe7c5,0x0000,0x000c
0064 00da       |    |		Load_Top	At_Offset_2
0065 01dc       |    |		Execute	Vector,Last
0066 00db       |    |		Load_Top	At_Offset_3
0067 01dd       |    |		Execute	Vector,First
0068 0263       | c  |		Execute	Discrete,Above_Bound
0069 700a       |p   |		Jump_Nonzero	0x74
006a 00d8       |    |		Load_Top	At_Offset_0
006b e5ff       |    |		Load	0x2,-0x1
006c 01d5       |    |		Execute	Vector,Field_Reference
006d 0125       | %  |		Execute	Any,Set_Constraint
006e 00d8       |    |		Load_Top	At_Offset_0
006f e5ff       |    |		Load	0x2,-0x1
0070 01d5       |    |		Execute	Vector,Field_Reference
0071 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0072 0a01       |    |		Execute_Immediate	Plus,0x1
0073 7ff4       |    |		Jump	0x68
0074 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x3 = .DEBUG	0x007b,0x0324,0x0005,0x0000,0x0055,0xe7c5,0x0000,0x0018
007c 00da       |    |		Load_Top	At_Offset_2
007d 01dc       |    |		Execute	Vector,Last
007e 00db       |    |		Load_Top	At_Offset_3
007f 01dd       |    |		Execute	Vector,First
0080 0263       | c  |		Execute	Discrete,Above_Bound
0081 700a       |p   |		Jump_Nonzero	0x8c
0082 00d8       |    |		Load_Top	At_Offset_0
0083 e5ff       |    |		Load	0x2,-0x1
0084 01d5       |    |		Execute	Vector,Field_Reference
0085 0125       | %  |		Execute	Any,Set_Constraint
0086 00d8       |    |		Load_Top	At_Offset_0
0087 e5ff       |    |		Load	0x2,-0x1
0088 01d5       |    |		Execute	Vector,Field_Reference
0089 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008a 0a01       |    |		Execute_Immediate	Plus,0x1
008b 7ff4       |    |		Jump	0x80
008c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 4608       |F   |		Jump_Case	0x9							; Debug Table 0x4 = .DEBUG	0x0093,0x0326,0x0005,0x0000,0x0055,0xe7c5,0x0000,0x005e
0094 7808       |x   |		Jump	0x9d								; case 0x0
0095 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0096 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0097 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0098 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0099 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
009a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
009b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
009c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
009d 00da       |    |		Load_Top	At_Offset_2
009e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
009f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
00a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00a4 0000 0000  |    |		.BLANK	0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 4608       |F   |		Jump_Case	0x9							; Debug Table 0x5 = .DEBUG	0x00ab,0x0328,0x0005,0x0000,0x0055,0xe7c5,0x0000,0x0076
00ac 7808       |x   |		Jump	0xb5								; case 0x0
00ad 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
00ae 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
00af 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
00b0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
00b1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
00b2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
00b3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
00b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
00b5 00da       |    |		Load_Top	At_Offset_2
00b6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00b7 0125       | %  |		Execute	Any,Set_Constraint
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00ba 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00bd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00be 00da       |    |		Load_Top	At_Offset_2
00bf 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
00c0 0125       | %  |		Execute	Any,Set_Constraint
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
00c3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x00cb,0x032a,0x0002,0x0000,0x0055,0xe7c5,0x0000,0x00a3
													; Debug Table 0x6.0x0 = 0xcb,0x1
00cc 021d       |    |		Execute	Heap_Access,Is_Null
00cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ce 0000 0000  |    |		.XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e1       |    |		.CONST	0x00e1								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0006       |    |		.CONST	0x0006								; Number of locals
00d3			INIT_00d0:
00d3 e004       |    |		Load	0x0,0x4								; Debug Table 0x7 = .DEBUG	0x00d3,0x032e,0x0001,0x0000,0x0055,0xe7c5,0x0000,0x00ac
													; Debug Table 0x7.0x0 = 0xd3,0xffff
00d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d5 e212       |    |		Load	0x1,0x12							; Debug Table 0x7.0x1 = 0xd5,0xfffe
00d6 e210       |    |		Load	0x1,0x10							; Debug Table 0x7.0x2 = 0xd6,0xfffd
00d7 0322       | "  |		Declare_Variable	Record
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00da e003       |    |		Load	0x0,0x3								; Debug Table 0x7.0x3 = 0xda,0xfffc
00db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00dc 02c7       |    |		Declare_Variable	Any
00dd 00d8       |    |		Load_Top	At_Offset_0
00de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00df e003       |    |		Load	0x0,0x3								; Debug Table 0x7.0x4 = 0xdf,0xfffb
00e0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e1			BODY_00d0:
00e1 e212       |    |		Load	0x1,0x12							; Debug Table 0x7.0x5 = 0xe1,0x1
00e2 a5fc       |    |		Store_Unchecked	0x2,-0x4
00e3 e004       |    |		Load	0x0,0x4								; Debug Table 0x7.0x6 = 0xe3,0x2
00e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 0120       |    |		Execute	Any,Is_Value
00e7 6803       |h   |		Jump_Zero	0xeb
00e8 e003       |    |		Load	0x0,0x3
00e9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ea 7801       |x   |		Jump	0xec
00eb 00da       |    |		Load_Top	At_Offset_2
00ec e5fd       |    |		Load	0x2,-0x3
00ed e001       |    |		Load	0x0,0x1
00ee 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00ef e5ff       |    |		Load	0x2,-0x1
00f0 e005       |    |		Load	0x0,0x5
00f1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f2 c405       |    |		Store	0x2,0x5
00f3 c402       |    |		Store	0x2,0x2
00f4 e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0x7 = 0xf4,0x3
00f5 8219       |    |		Call	0x1,0x19
00f6 6803       |h   |		Jump_Zero	0xfa
00f7 4810       |H   |		Short_Literal	0x10							; Debug Table 0x7.0x8 = 0xf7,0x4
00f8 a5fb       |    |		Store_Unchecked	0x2,-0x5
00f9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x7.0x9 = 0xf9,0x5
00fa e003       |    |		Load	0x0,0x3								; Debug Table 0x7.0xa = 0xfa,0x6
00fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fc 617f       |a   |		Indirect_Literal	Discrete,0x27c,{0x00000000, 0x00004000}
00fd e5fd       |    |		Load	0x2,-0x3
00fe e006       |    |		Load	0x0,0x6
00ff 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0100 e405       |    |		Load	0x2,0x5
0101 e003       |    |		Load	0x0,0x3
0102 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0103 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0104 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0105 e211       |    |		Load	0x1,0x11							; Debug Table 0x7.0xb = 0x105,0x7
0106 0322       | "  |		Declare_Variable	Record
0107 e5fd       |    |		Load	0x2,-0x3
0108 e007       |    |		Load	0x0,0x7
0109 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010a 0119       |    |		Execute	Any,Check_In_Formal_Type
010b 00d9       |    |		Load_Top	At_Offset_1
010c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
010d 00db       |    |		Load_Top	At_Offset_3
010e 00d9       |    |		Load_Top	At_Offset_1
010f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0110 00da       |    |		Load_Top	At_Offset_2
0111 e003       |    |		Load	0x0,0x3
0112 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0113 0119       |    |		Execute	Any,Check_In_Formal_Type
0114 00d9       |    |		Load_Top	At_Offset_1
0115 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0116 e001       |    |		Load	0x0,0x1
0117 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0118 00d9       |    |		Load_Top	At_Offset_1
0119 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
011a 4801       |H   |		Short_Literal	0x1
011b 00d9       |    |		Load_Top	At_Offset_1
011c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
011d e212       |    |		Load	0x1,0x12
011e e008       |    |		Load	0x0,0x8
011f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0120 e009       |    |		Load	0x0,0x9
0121 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0122 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0123 a403       |    |		Store_Unchecked	0x2,0x3
0124 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0xc = 0x124,0x8
													; Debug Table 0x7.0xd = 0x124,0x9
0125 0219       |    |		Execute	Heap_Access,All_Read
0126 e004       |    |		Load	0x0,0x4
0127 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0128 00d9       |    |		Load_Top	At_Offset_1
0129 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
012a e5fd       |    |		Load	0x2,-0x3
012b e405       |    |		Load	0x2,0x5
012c e001       |    |		Load	0x0,0x1
012d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
012e 00da       |    |		Load_Top	At_Offset_2
012f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0130 c402       |    |		Store	0x2,0x2
0131 00d1       |    |		Pop_Control	Pop_Count_1
0132 e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0xe = 0x132,0xa
0133 8219       |    |		Call	0x1,0x19
0134 680c       |h   |		Jump_Zero	0x141
0135 e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0xf = 0x135,0xb
0136 a5fb       |    |		Store_Unchecked	0x2,-0x5
0137 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x10 = 0x137,0xc
0138 0217       |    |		Execute	Heap_Access,All_Reference
0139 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013a e002       |    |		Load	0x0,0x2
013b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
013c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x11 = 0x13c,0xd
013d e403       |    |		Load	0x2,0x3
013e 0217       |    |		Execute	Heap_Access,All_Reference
013f 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0140 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x7.0x12 = 0x140,0xe
0141 6136       |a6  |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x1736dc18}		; Debug Table 0x7.0x13 = 0x141,0xf
0142 e403       |    |		Load	0x2,0x3
0143 0217       |    |		Execute	Heap_Access,All_Reference
0144 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0145 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0146 e20f       |    |		Load	0x1,0xf								; Debug Table 0x7.0x14 = 0x146,0x10
0147 0337       | 7  |		Declare_Variable	Array
0148 e5fe       |    |		Load	0x2,-0x2
0149 4801       |H   |		Short_Literal	0x1
014a 00da       |    |		Load_Top	At_Offset_2
014b 01d6       |    |		Execute	Vector,Field_Write
014c 480f       |H   |		Short_Literal	0xf
014d 4802       |H   |		Short_Literal	0x2
014e 4800       |H   |		Short_Literal	0x0
014f 00d9       |    |		Load_Top	At_Offset_1
0150 e407       |    |		Load	0x2,0x7
0151 01d6       |    |		Execute	Vector,Field_Write
0152 3ffb       |?   |		Loop_Increasing	0x14e
0153 e20f       |    |		Load	0x1,0xf
0154 01c3       |    |		Execute	Vector,Check_In_Type
0155 e403       |    |		Load	0x2,0x3
0156 0217       |    |		Execute	Heap_Access,All_Reference
0157 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0158 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0159 e20e       |    |		Load	0x1,0xe								; Debug Table 0x7.0x15 = 0x159,0x11
015a 0337       | 7  |		Declare_Variable	Array
015b 480f       |H   |		Short_Literal	0xf
015c 4801       |H   |		Short_Literal	0x1
015d e001       |    |		Load	0x0,0x1
015e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
015f e001       |    |		Load	0x0,0x1
0160 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0161 0119       |    |		Execute	Any,Check_In_Formal_Type
0162 00d9       |    |		Load_Top	At_Offset_1
0163 e407       |    |		Load	0x2,0x7
0164 01d6       |    |		Execute	Vector,Field_Write
0165 3ff7       |?   |		Loop_Increasing	0x15d
0166 e20e       |    |		Load	0x1,0xe
0167 01c3       |    |		Execute	Vector,Check_In_Type
0168 e403       |    |		Load	0x2,0x3
0169 0217       |    |		Execute	Heap_Access,All_Reference
016a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
016b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
016c e20d       |    |		Load	0x1,0xd								; Debug Table 0x7.0x16 = 0x16c,0x12
016d 0337       | 7  |		Declare_Variable	Array
016e 480f       |H   |		Short_Literal	0xf
016f 4801       |H   |		Short_Literal	0x1
0170 e001       |    |		Load	0x0,0x1
0171 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0172 e00a       |    |		Load	0x0,0xa
0173 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0174 0119       |    |		Execute	Any,Check_In_Formal_Type
0175 00d9       |    |		Load_Top	At_Offset_1
0176 e407       |    |		Load	0x2,0x7
0177 01d6       |    |		Execute	Vector,Field_Write
0178 3ff7       |?   |		Loop_Increasing	0x170
0179 e20d       |    |		Load	0x1,0xd
017a 01c3       |    |		Execute	Vector,Check_In_Type
017b e403       |    |		Load	0x2,0x3
017c 0217       |    |		Execute	Heap_Access,All_Reference
017d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
017e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
017f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x17 = 0x17f,0x13
0180 0217       |    |		Execute	Heap_Access,All_Reference
0181 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0182 e403       |    |		Load	0x2,0x3
0183 0217       |    |		Execute	Heap_Access,All_Reference
0184 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0185 e001       |    |		Load	0x0,0x1
0186 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0187 e403       |    |		Load	0x2,0x3
0188 0217       |    |		Execute	Heap_Access,All_Reference
0189 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
018a e218       |    |		Load	0x1,0x18
018b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
018c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x18 = 0x18c,0x14
018d a5fc       |    |		Store_Unchecked	0x2,-0x4
018e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x19 = 0x18e,0x15
018f a5fb       |    |		Store_Unchecked	0x2,-0x5
0190 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a2       |    |		.CONST	0x01a2								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0003       |    |		.CONST	0x0003								; Number of locals
019b			INIT_0198:
019b e003       |    |		Load	0x0,0x3								; Debug Table 0x8 = .DEBUG	0x019b,0x0364,0x0001,0x0000,0x0055,0xe7c5,0x0000,0x00c8
													; Debug Table 0x8.0x0 = 0x19b,0xffff
019c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
019d 02c7       |    |		Declare_Variable	Any
019e 00d8       |    |		Load_Top	At_Offset_0
019f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a0 e004       |    |		Load	0x0,0x4								; Debug Table 0x8.0x1 = 0x1a0,0xfffe
01a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a2			BODY_0198:
01a2 e212       |    |		Load	0x1,0x12							; Debug Table 0x8.0x2 = 0x1a2,0x1
01a3 a5fd       |    |		Store_Unchecked	0x2,-0x3
01a4 e004       |    |		Load	0x0,0x4								; Debug Table 0x8.0x3 = 0x1a4,0x2
01a5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a6 00da       |    |		Load_Top	At_Offset_2
01a7 0120       |    |		Execute	Any,Is_Value
01a8 6803       |h   |		Jump_Zero	0x1ac
01a9 e003       |    |		Load	0x0,0x3
01aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ab 7801       |x   |		Jump	0x1ad
01ac 00da       |    |		Load_Top	At_Offset_2
01ad e5fe       |    |		Load	0x2,-0x2
01ae e5ff       |    |		Load	0x2,-0x1
01af e005       |    |		Load	0x0,0x5
01b0 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01b1 c402       |    |		Store	0x2,0x2
01b2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01b3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x4 = 0x1b3,0x3
01b4 8219       |    |		Call	0x1,0x19
01b5 6803       |h   |		Jump_Zero	0x1b9
01b6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x5 = 0x1b6,0x4
01b7 a5fc       |    |		Store_Unchecked	0x2,-0x4
01b8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x8.0x6 = 0x1b8,0x5
01b9 e004       |    |		Load	0x0,0x4								; Debug Table 0x8.0x7 = 0x1b9,0x6
01ba 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01bb e212       |    |		Load	0x1,0x12
01bc e5fe       |    |		Load	0x2,-0x2
01bd e402       |    |		Load	0x2,0x2
01be 8216       |    |		Call	0x1,0x16
01bf c5fd       |    |		Store	0x2,-0x3
01c0 c5fc       |    |		Store	0x2,-0x4
01c1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d2       |    |		.CONST	0x01d2								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0004       |    |		.CONST	0x0004								; Number of locals
01cb			INIT_01c8:
01cb e212       |    |		Load	0x1,0x12							; Debug Table 0x9 = .DEBUG	0x01cb,0x0376,0x0001,0x0000,0x0055,0xe7c5,0x0000,0x00e0
													; Debug Table 0x9.0x0 = 0x1cb,0xffff
01cc e210       |    |		Load	0x1,0x10							; Debug Table 0x9.0x1 = 0x1cc,0xfffe
01cd 0322       | "  |		Declare_Variable	Record
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d0 e004       |    |		Load	0x0,0x4								; Debug Table 0x9.0x2 = 0x1d0,0xfffd
01d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d2			BODY_01c8:
01d2 e211       |    |		Load	0x1,0x11							; Debug Table 0x9.0x3 = 0x1d2,0x1
01d3 0322       | "  |		Declare_Variable	Record
01d4 e5fe       |    |		Load	0x2,-0x2
01d5 e007       |    |		Load	0x0,0x7
01d6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d7 0119       |    |		Execute	Any,Check_In_Formal_Type
01d8 00d9       |    |		Load_Top	At_Offset_1
01d9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01da 00da       |    |		Load_Top	At_Offset_2
01db 00d9       |    |		Load_Top	At_Offset_1
01dc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01dd e5ff       |    |		Load	0x2,-0x1
01de e003       |    |		Load	0x0,0x3
01df 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01e0 0119       |    |		Execute	Any,Check_In_Formal_Type
01e1 00d9       |    |		Load_Top	At_Offset_1
01e2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01e3 e001       |    |		Load	0x0,0x1
01e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e5 00d9       |    |		Load_Top	At_Offset_1
01e6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01e7 4801       |H   |		Short_Literal	0x1
01e8 00d9       |    |		Load_Top	At_Offset_1
01e9 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01ea e212       |    |		Load	0x1,0x12
01eb e008       |    |		Load	0x0,0x8
01ec 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ed e009       |    |		Load	0x0,0x9
01ee 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ef 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
01f0 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01f1 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x4 = 0x1f1,0x2
													; Debug Table 0x9.0x5 = 0x1f1,0x3
01f2 a5fd       |    |		Store_Unchecked	0x2,-0x3
01f3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x6 = 0x1f3,0x4
01f4 0219       |    |		Execute	Heap_Access,All_Read
01f5 e004       |    |		Load	0x0,0x4
01f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f7 00d9       |    |		Load_Top	At_Offset_1
01f8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01f9 4802       |H   |		Short_Literal	0x2
01fa e402       |    |		Load	0x2,0x2
01fb 0217       |    |		Execute	Heap_Access,All_Reference
01fc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01fd e402       |    |		Load	0x2,0x2
01fe 0217       |    |		Execute	Heap_Access,All_Reference
01ff 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0200 e001       |    |		Load	0x0,0x1
0201 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0202 00da       |    |		Load_Top	At_Offset_2
0203 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0204 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0205 00d1       |    |		Pop_Control	Pop_Count_1
0206 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x7 = 0x206,0x5
0207 8219       |    |		Call	0x1,0x19
0208 680c       |h   |		Jump_Zero	0x215
0209 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x8 = 0x209,0x6
020a a5fc       |    |		Store_Unchecked	0x2,-0x4
020b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x9 = 0x20b,0x7
020c 0217       |    |		Execute	Heap_Access,All_Reference
020d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
020e e002       |    |		Load	0x0,0x2
020f 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0210 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0xa = 0x210,0x8
0211 00db       |    |		Load_Top	At_Offset_3
0212 0217       |    |		Execute	Heap_Access,All_Reference
0213 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0214 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x9.0xb = 0x214,0x9
0215 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0xc = 0x215,0xa
0216 0217       |    |		Execute	Heap_Access,All_Reference
0217 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0218 e001       |    |		Load	0x0,0x1
0219 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
021a 00db       |    |		Load_Top	At_Offset_3
021b 0217       |    |		Execute	Heap_Access,All_Reference
021c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
021d e218       |    |		Load	0x1,0x18
021e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
021f 00db       |    |		Load_Top	At_Offset_3
0220 0217       |    |		Execute	Heap_Access,All_Reference
0221 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0222 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0xd = 0x222,0xb
0223 0217       |    |		Execute	Heap_Access,All_Reference
0224 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0225 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0226 6051       |`Q  |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x1736dc18}
0227 027e       | ~  |		Execute	Discrete,Not_Equal
0228 680d       |h   |		Jump_Zero	0x236
0229 4828       |H(  |		Short_Literal	0x28							; Debug Table 0x9.0xe = 0x229,0xc
022a a5fc       |    |		Store_Unchecked	0x2,-0x4
022b e004       |    |		Load	0x0,0x4								; Debug Table 0x9.0xf = 0x22b,0xd
022c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
022d 00db       |    |		Load_Top	At_Offset_3
022e 0217       |    |		Execute	Heap_Access,All_Reference
022f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0230 e001       |    |		Load	0x0,0x1
0231 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0232 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0233 e212       |    |		Load	0x1,0x12							; Debug Table 0x9.0x10 = 0x233,0xe
0234 a5fd       |    |		Store_Unchecked	0x2,-0x3
0235 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0236 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x11 = 0x236,0xf
0237 a5fc       |    |		Store_Unchecked	0x2,-0x4
0238 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245       | E  |		.CONST	0x0245								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 e004       |    |		Load	0x0,0x4								; Debug Table 0xa = .DEBUG	0x0243,0x039c,0x0001,0x0000,0x0055,0xe7c5,0x0000,0x00fa
													; Debug Table 0xa.0x0 = 0x243,0xffff
0244 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0245			BODY_0240:
0245 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x1 = 0x245,0x1
0246 a5fd       |    |		Store_Unchecked	0x2,-0x3
0247 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x2 = 0x247,0x2
0248 0217       |    |		Execute	Heap_Access,All_Reference
0249 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
024a 682c       |h,  |		Jump_Zero	0x277
024b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x3 = 0x24b,0x3
024c 0217       |    |		Execute	Heap_Access,All_Reference
024d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
024e 0219       |    |		Execute	Heap_Access,All_Read
024f e00a       |    |		Load	0x0,0xa
0250 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0251 680d       |h   |		Jump_Zero	0x25f
0252 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x4 = 0x252,0x4
0253 0217       |    |		Execute	Heap_Access,All_Reference
0254 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0255 e5ff       |    |		Load	0x2,-0x1
0256 0217       |    |		Execute	Heap_Access,All_Reference
0257 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0258 e001       |    |		Load	0x0,0x1
0259 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
025a e5ff       |    |		Load	0x2,-0x1
025b 0217       |    |		Execute	Heap_Access,All_Reference
025c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
025d e218       |    |		Load	0x1,0x18
025e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
025f e004       |    |		Load	0x0,0x4								; Debug Table 0xa.0x5 = 0x25f,0x5
0260 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0261 e5ff       |    |		Load	0x2,-0x1
0262 0217       |    |		Execute	Heap_Access,All_Reference
0263 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0264 e001       |    |		Load	0x0,0x1
0265 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0266 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0267 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x6 = 0x267,0x6
0268 a5fd       |    |		Store_Unchecked	0x2,-0x3
0269 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x7 = 0x269,0x7
026a 8219       |    |		Call	0x1,0x19
026b e5fe       |    |		Load	0x2,-0x2
026c 0278       | x  |		Execute	Discrete,Or
026d 6805       |h   |		Jump_Zero	0x273
026e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x8 = 0x26e,0x8
026f 0217       |    |		Execute	Heap_Access,All_Reference
0270 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0271 e002       |    |		Load	0x0,0x2
0272 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0273 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x9 = 0x273,0x9
0274 e5ff       |    |		Load	0x2,-0x1
0275 0217       |    |		Execute	Heap_Access,All_Reference
0276 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0277 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0278 0000 0000  |    |		.LITERAL	{0x00000000, 0x1736dc18}
027c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0280 0000 0000  |    |		.LITERAL	{0x00000000, 0x00577925}
0284 0000 0000  |    |		.BLANK	0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0003 000b  |    |		.CONST	0x0003,0x000b
028a 000b 02e2  |    |		.DEBUG	0x000b,0x02e2,0x8000,0x0000,0x0055,0xe7c5,0x0000,0x000b
0292 0043 030c  | C  |		.DEBUG	0x0043,0x030c,0x8000,0x0000,0x0057,0x7925,0x0000,0x0013
029a 0063 0322  | c "|		.DEBUG	0x0063,0x0322,0x0005,0x0000,0x0055,0xe7c5,0x0000,0x000c
02a2 007b 0324  | { $|		.DEBUG	0x007b,0x0324,0x0005,0x0000,0x0055,0xe7c5,0x0000,0x0018
02aa 0093 0326  |   &|		.DEBUG	0x0093,0x0326,0x0005,0x0000,0x0055,0xe7c5,0x0000,0x005e
02b2 00ab 0328  |   (|		.DEBUG	0x00ab,0x0328,0x0005,0x0000,0x0055,0xe7c5,0x0000,0x0076
02ba 00cb 032a  |   *|		.DEBUG	0x00cb,0x032a,0x0002,0x0000,0x0055,0xe7c5,0x0000,0x00a3
02c2 00d3 032e  |   .|		.DEBUG	0x00d3,0x032e,0x0001,0x0000,0x0055,0xe7c5,0x0000,0x00ac
02ca 019b 0364  |   d|		.DEBUG	0x019b,0x0364,0x0001,0x0000,0x0055,0xe7c5,0x0000,0x00c8
02d2 01cb 0376  |   v|		.DEBUG	0x01cb,0x0376,0x0001,0x0000,0x0055,0xe7c5,0x0000,0x00e0
02da 0243 039c  | C  |		.DEBUG	0x0243,0x039c,0x0001,0x0000,0x0055,0xe7c5,0x0000,0x00fa
02e2 ; --------------------------------------------------------------------------------------
02e2 ; Debug3 Subtable 0x0
02e2 ; --------------------------------------------------------------------------------------
02e2 0014 0000  |    |		.DBG3TAB	0x0014,0x0000
02e4 000b ffff  |    |		.CONST	0x000b,0xffff
02e6 0013 fffe  |    |		.CONST	0x0013,0xfffe
02e8 001b fffd  |    |		.CONST	0x001b,0xfffd
02ea 0021 fffc  | !  |		.CONST	0x0021,0xfffc
02ec 0021 fffb  | !  |		.CONST	0x0021,0xfffb
02ee 0021 fffa  | !  |		.CONST	0x0021,0xfffa
02f0 0021 fff9  | !  |		.CONST	0x0021,0xfff9
02f2 0021 fff8  | !  |		.CONST	0x0021,0xfff8
02f4 0021 fff7  | !  |		.CONST	0x0021,0xfff7
02f6 0021 fff6  | !  |		.CONST	0x0021,0xfff6
02f8 0021 fff5  | !  |		.CONST	0x0021,0xfff5
02fa 0021 fff4  | !  |		.CONST	0x0021,0xfff4
02fc 0029 fff3  | )  |		.CONST	0x0029,0xfff3
02fe 0035 fff2  | 5  |		.CONST	0x0035,0xfff2
0300 0038 fff1  | 8  |		.CONST	0x0038,0xfff1
0302 0038 fff0  | 8  |		.CONST	0x0038,0xfff0
0304 003a ffef  | :  |		.CONST	0x003a,0xffef
0306 003c ffee  | <  |		.CONST	0x003c,0xffee
0308 003e ffed  | >  |		.CONST	0x003e,0xffed
030a 0040 ffec  | @  |		.CONST	0x0040,0xffec
030c ; --------------------------------------------------------------------------------------
030c ; Debug3 Subtable 0x1
030c ; --------------------------------------------------------------------------------------
030c 000a 0000  |    |		.DBG3TAB	0x000a,0x0000
030e 0043 ffff  | C  |		.CONST	0x0043,0xffff
0310 0043 fffe  | C  |		.CONST	0x0043,0xfffe
0312 0043 fffd  | C  |		.CONST	0x0043,0xfffd
0314 0043 fffc  | C  |		.CONST	0x0043,0xfffc
0316 004b fffb  | K  |		.CONST	0x004b,0xfffb
0318 004d fffa  | M  |		.CONST	0x004d,0xfffa
031a 004f fff9  | O  |		.CONST	0x004f,0xfff9
031c 0051 fff8  | Q  |		.CONST	0x0051,0xfff8
031e 0053 fff7  | S  |		.CONST	0x0053,0xfff7
0320 0055 fff6  | U  |		.CONST	0x0055,0xfff6
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug3 Subtable 0x2
0322 ; --------------------------------------------------------------------------------------
0322 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0324 ; --------------------------------------------------------------------------------------
0324 ; Debug3 Subtable 0x3
0324 ; --------------------------------------------------------------------------------------
0324 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0326 ; --------------------------------------------------------------------------------------
0326 ; Debug3 Subtable 0x4
0326 ; --------------------------------------------------------------------------------------
0326 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug3 Subtable 0x5
0328 ; --------------------------------------------------------------------------------------
0328 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
032a ; --------------------------------------------------------------------------------------
032a ; Debug3 Subtable 0x6
032a ; --------------------------------------------------------------------------------------
032a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
032c 00cb 0001  |    |		.CONST	0x00cb,0x0001
032e ; --------------------------------------------------------------------------------------
032e ; Debug3 Subtable 0x7
032e ; --------------------------------------------------------------------------------------
032e 0005 0015  |    |		.DBG3TAB	0x0005,0x0015
0330 00d3 ffff  |    |		.CONST	0x00d3,0xffff
0332 00d5 fffe  |    |		.CONST	0x00d5,0xfffe
0334 00d6 fffd  |    |		.CONST	0x00d6,0xfffd
0336 00da fffc  |    |		.CONST	0x00da,0xfffc
0338 00df fffb  |    |		.CONST	0x00df,0xfffb
033a 00e1 0001  |    |		.CONST	0x00e1,0x0001
033c 00e3 0002  |    |		.CONST	0x00e3,0x0002
033e 00f4 0003  |    |		.CONST	0x00f4,0x0003
0340 00f7 0004  |    |		.CONST	0x00f7,0x0004
0342 00f9 0005  |    |		.CONST	0x00f9,0x0005
0344 00fa 0006  |    |		.CONST	0x00fa,0x0006
0346 0105 0007  |    |		.CONST	0x0105,0x0007
0348 0124 0008  | $  |		.CONST	0x0124,0x0008
034a 0124 0009  | $  |		.CONST	0x0124,0x0009
034c 0132 000a  | 2  |		.CONST	0x0132,0x000a
034e 0135 000b  | 5  |		.CONST	0x0135,0x000b
0350 0137 000c  | 7  |		.CONST	0x0137,0x000c
0352 013c 000d  | <  |		.CONST	0x013c,0x000d
0354 0140 000e  | @  |		.CONST	0x0140,0x000e
0356 0141 000f  | A  |		.CONST	0x0141,0x000f
0358 0146 0010  | F  |		.CONST	0x0146,0x0010
035a 0159 0011  | Y  |		.CONST	0x0159,0x0011
035c 016c 0012  | l  |		.CONST	0x016c,0x0012
035e 017f 0013  |    |		.CONST	0x017f,0x0013
0360 018c 0014  |    |		.CONST	0x018c,0x0014
0362 018e 0015  |    |		.CONST	0x018e,0x0015
0364 ; --------------------------------------------------------------------------------------
0364 ; Debug3 Subtable 0x8
0364 ; --------------------------------------------------------------------------------------
0364 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0366 019b ffff  |    |		.CONST	0x019b,0xffff
0368 01a0 fffe  |    |		.CONST	0x01a0,0xfffe
036a 01a2 0001  |    |		.CONST	0x01a2,0x0001
036c 01a4 0002  |    |		.CONST	0x01a4,0x0002
036e 01b3 0003  |    |		.CONST	0x01b3,0x0003
0370 01b6 0004  |    |		.CONST	0x01b6,0x0004
0372 01b8 0005  |    |		.CONST	0x01b8,0x0005
0374 01b9 0006  |    |		.CONST	0x01b9,0x0006
0376 ; --------------------------------------------------------------------------------------
0376 ; Debug3 Subtable 0x9
0376 ; --------------------------------------------------------------------------------------
0376 0003 000f  |    |		.DBG3TAB	0x0003,0x000f
0378 01cb ffff  |    |		.CONST	0x01cb,0xffff
037a 01cc fffe  |    |		.CONST	0x01cc,0xfffe
037c 01d0 fffd  |    |		.CONST	0x01d0,0xfffd
037e 01d2 0001  |    |		.CONST	0x01d2,0x0001
0380 01f1 0002  |    |		.CONST	0x01f1,0x0002
0382 01f1 0003  |    |		.CONST	0x01f1,0x0003
0384 01f3 0004  |    |		.CONST	0x01f3,0x0004
0386 0206 0005  |    |		.CONST	0x0206,0x0005
0388 0209 0006  |    |		.CONST	0x0209,0x0006
038a 020b 0007  |    |		.CONST	0x020b,0x0007
038c 0210 0008  |    |		.CONST	0x0210,0x0008
038e 0214 0009  |    |		.CONST	0x0214,0x0009
0390 0215 000a  |    |		.CONST	0x0215,0x000a
0392 0222 000b  | "  |		.CONST	0x0222,0x000b
0394 0229 000c  | )  |		.CONST	0x0229,0x000c
0396 022b 000d  | +  |		.CONST	0x022b,0x000d
0398 0233 000e  | 3  |		.CONST	0x0233,0x000e
039a 0236 000f  | 6  |		.CONST	0x0236,0x000f
039c ; --------------------------------------------------------------------------------------
039c ; Debug3 Subtable 0xa
039c ; --------------------------------------------------------------------------------------
039c 0001 0009  |    |		.DBG3TAB	0x0001,0x0009
039e 0243 ffff  | C  |		.CONST	0x0243,0xffff
03a0 0245 0001  | E  |		.CONST	0x0245,0x0001
03a2 0247 0002  | G  |		.CONST	0x0247,0x0002
03a4 024b 0003  | K  |		.CONST	0x024b,0x0003
03a6 0252 0004  | R  |		.CONST	0x0252,0x0004
03a8 025f 0005  | _  |		.CONST	0x025f,0x0005
03aa 0267 0006  | g  |		.CONST	0x0267,0x0006
03ac 0269 0007  | i  |		.CONST	0x0269,0x0007
03ae 026e 0008  | n  |		.CONST	0x026e,0x0008
03b0 0273 0009  | s  |		.CONST	0x0273,0x0009
03b2 0000 0000  |    |		.BLANK	0000[0x4e]