DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦bc7f47c0c⟧ SEG

    Length: 2048 (0x800)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »467987.SEG«

Derivation

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

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 02a8       |    |		.CONST	0x02a8								; 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 0019       |    |		.CONST	0x0019								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x02fa,0x0000,0x0000,0x0036,0x57f4,0x0000,0x00af
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 00bf       |    |		Action	Accept_Activation
0010 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1 = .DEBUG	0x0010,0x0300,0x0000,0x0000,0x0036,0x58b4,0x0000,0x000b
													; Debug Table 0x1.0x0 = 0x10,0xffff
													; Debug Table 0x1.0x1 = 0x10,0xfffe
0011 6262       |bb  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0x7fffffff}
0012 00e5       |    |		Load_Encached	Long_Integer_Cache
0013 03f8       |    |		Declare_Type	Discrete,Constrained
0014 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x1.0x2 = 0x14,0xfffd
0015 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x3 = 0x15,0xfffc
0016 00c7       |    |		Action	Elaborate_Subprogram
0017 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x4 = 0x17,0xfffb
0018 00c7       |    |		Action	Elaborate_Subprogram
0019			BODY_0008:
0019 00bc       |    |		Action	Signal_Activated
001a 00bb       |    |		Action	Signal_Completion
001b 0000 0000  |    |		.BLANK	0000[0x5]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0049       | I  |		.CONST	0x0049								; Address of begin
0021 0079       | y  |		.CONST	0x0079								; Address of exception handler
0022 000b       |    |		.CONST	0x000b								; Number of locals
0023			INIT_0020:
0023 4ffd       |O   |		Short_Literal	-0x3							; Debug Table 0x2 = .DEBUG	0x0023,0x030c,0x2801,0x0002,0x0036,0x57f4,0x0000,0x00b0
													; Debug Table 0x2.0x0 = 0x23,0xffff
0024 4802       |H   |		Short_Literal	0x2
0025 0099       |    |		Action	Reference_Dynamic
0026 4ffe       |O   |		Short_Literal	-0x2							; Debug Table 0x2.0x1 = 0x26,0xfffe
0027 4802       |H   |		Short_Literal	0x2
0028 0099       |    |		Action	Reference_Dynamic
0029 e20f       |    |		Load	0x1,0xf								; Debug Table 0x2.0x2 = 0x29,0xfffd
002a 6245       |bE  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x003658b4}		; Debug Table 0x2.0x3 = 0x2a,0xfffc
002b 483f       |H?  |		Short_Literal	0x3f
002c 480d       |H   |		Short_Literal	0xd
002d e001       |    |		Load	0x0,0x1
002e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002f e20f       |    |		Load	0x1,0xf
0030 e001       |    |		Load	0x0,0x1
0031 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
0032 e002       |    |		Load	0x0,0x2
0033 0387       |    |		Declare_Variable	Package
0034 00d8       |    |		Load_Top	At_Offset_0
0035 020f       |    |		Execute	Module,Activate
0036 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x4 = 0x36,0xfffb
0037 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0038 6237       |b7  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x003658b4}		; Debug Table 0x2.0x5 = 0x38,0xfffa
0039 4861       |Ha  |		Short_Literal	0x61
003a e001       |    |		Load	0x0,0x1
003b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003c e003       |    |		Load	0x0,0x3
003d 0387       |    |		Declare_Variable	Package
003e 00d8       |    |		Load_Top	At_Offset_0
003f 020f       |    |		Execute	Module,Activate
0040 e407       |    |		Load	0x2,0x7								; Debug Table 0x2.0x6 = 0x40,0xfff9
0041 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0042 0322       | "  |		Declare_Variable	Record
0043 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call				; Debug Table 0x2.0x7 = 0x43,0xfff8
0045 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call				; Debug Table 0x2.0x8 = 0x45,0xfff7
0047 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call				; Debug Table 0x2.0x9 = 0x47,0xfff6
0049			BODY_0020:
0049 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0xa = 0x49,0x1
004a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
004b 480d       |H   |		Short_Literal	0xd
004c e405       |    |		Load	0x2,0x5
004d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
004e c406       |    |		Store	0x2,0x6
004f e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0xb = 0x4f,0x2
0050 4800       |H   |		Short_Literal	0x0
0051 4800       |H   |		Short_Literal	0x0
0052 e001       |    |		Load	0x0,0x1
0053 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0054 e405       |    |		Load	0x2,0x5
0055 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0056 c406       |    |		Store	0x2,0x6
0057 e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0xc = 0x57,0x3
0058 4800       |H   |		Short_Literal	0x0
0059 4801       |H   |		Short_Literal	0x1
005a e5fc       |    |		Load	0x2,-0x4
005b e405       |    |		Load	0x2,0x5
005c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
005d c406       |    |		Store	0x2,0x6
005e 4802       |H   |		Short_Literal	0x2							; Debug Table 0x2.0xd = 0x5e,0x4
005f a404       |    |		Store_Unchecked	0x2,0x4
0060 e408       |    |		Load	0x2,0x8								; Debug Table 0x2.0xe = 0x60,0x5
0061 e407       |    |		Load	0x2,0x7
0062 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0063 00d1       |    |		Pop_Control	Pop_Count_1
0064 e408       |    |		Load	0x2,0x8								; Debug Table 0x2.0xf = 0x64,0x6
0065 e5fc       |    |		Load	0x2,-0x4
0066 e407       |    |		Load	0x2,0x7
0067 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0068 00d1       |    |		Pop_Control	Pop_Count_1
0069 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x10 = 0x69,0x7
006a 8403       |    |		Call	0x2,0x3
006b 7808       |x   |		Jump	0x74
006c e408       |    |		Load	0x2,0x8								; Debug Table 0x2.0x11 = 0x6c,0x9
006d e407       |    |		Load	0x2,0x7
006e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
006f 840b       |    |		Call	0x2,0xb
0070 e408       |    |		Load	0x2,0x8								; Debug Table 0x2.0x12 = 0x70,0xa
0071 e407       |    |		Load	0x2,0x7
0072 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0073 00d1       |    |		Pop_Control	Pop_Count_1
0074 e408       |    |		Load	0x2,0x8								; Debug Table 0x2.0x13 = 0x74,0x8
0075 e407       |    |		Load	0x2,0x7
0076 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0077 6ff4       |o   |		Jump_Zero	0x6c
0078 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0079			TRAP_0020:
0079 0007       |    |		Action	Break_Optional
007a e004       |    |		Load	0x0,0x4								; Debug Table 0x2.0x14 = 0x7a,0xb
007b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
007c 4803       |H   |		Short_Literal	0x3
007d 0092 0278  |   x|		Action	Push_String_Extended,0x278					; "Unhandled Exception"
007f e005       |    |		Load	0x0,0x5
0080 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0081 0092 0279  |   y|		Action	Push_String_Extended,0x279					; "Runtime_Type_Structure.Io.Put"
0083 e005       |    |		Load	0x0,0x5
0084 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0085 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 00bc       |    |		.CONST	0x00bc								; Address of begin
0089 0106       |    |		.CONST	0x0106								; Address of exception handler
008a 000f       |    |		.CONST	0x000f								; Number of locals
008b			INIT_0088:
008b 4ffd       |O   |		Short_Literal	-0x3							; Debug Table 0x3 = .DEBUG	0x008b,0x0338,0x2802,0x0002,0x0036,0x57f4,0x0000,0x00cb
													; Debug Table 0x3.0x0 = 0x8b,0xffff
008c 4802       |H   |		Short_Literal	0x2
008d 0099       |    |		Action	Reference_Dynamic
008e 4ffe       |O   |		Short_Literal	-0x2							; Debug Table 0x3.0x1 = 0x8e,0xfffe
008f 4802       |H   |		Short_Literal	0x2
0090 0099       |    |		Action	Reference_Dynamic
0091 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x2 = 0x91,0xfffd
0092 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0093 e20f       |    |		Load	0x1,0xf								; Debug Table 0x3.0x3 = 0x93,0xfffc
0094 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0095 61da       |a   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x003658b4}		; Debug Table 0x3.0x4 = 0x95,0xfffb
0096 4a03       |J   |		Short_Literal	0x203
0097 4865       |He  |		Short_Literal	0x65
0098 e20f       |    |		Load	0x1,0xf
0099 e001       |    |		Load	0x0,0x1
009a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009b e001       |    |		Load	0x0,0x1
009c 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
009d e002       |    |		Load	0x0,0x2
009e 0387       |    |		Declare_Variable	Package
009f 00d8       |    |		Load_Top	At_Offset_0
00a0 020f       |    |		Execute	Module,Activate
00a1 e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0x5 = 0xa1,0xfffa
00a2 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00a3 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x6 = 0xa3,0xfff9
00a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a5 e20f       |    |		Load	0x1,0xf
00a6 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a7 4802       |H   |		Short_Literal	0x2
00a8 032d       | -  |		Declare_Type	Record,Defined
00a9 61c6       |a   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x003658b4}		; Debug Table 0x3.0x7 = 0xa9,0xfff8
00aa 4a29       |J)  |		Short_Literal	0x229
00ab e408       |    |		Load	0x2,0x8
00ac e006       |    |		Load	0x0,0x6
00ad 0387       |    |		Declare_Variable	Package
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 020f       |    |		Execute	Module,Activate
00b0 e409       |    |		Load	0x2,0x9								; Debug Table 0x3.0x8 = 0xb0,0xfff7
00b1 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00b2 e409       |    |		Load	0x2,0x9								; Debug Table 0x3.0x9 = 0xb2,0xfff6
00b3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00b4 e408       |    |		Load	0x2,0x8								; Debug Table 0x3.0xa = 0xb4,0xfff5
00b5 0322       | "  |		Declare_Variable	Record
00b6 029f 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Call				; Debug Table 0x3.0xb = 0xb6,0xfff4
00b8 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call				; Debug Table 0x3.0xc = 0xb8,0xfff3
00ba 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call				; Debug Table 0x3.0xd = 0xba,0xfff2
00bc			BODY_0088:
00bc e406       |    |		Load	0x2,0x6								; Debug Table 0x3.0xe = 0xbc,0x1
00bd 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00be 4865       |He  |		Short_Literal	0x65
00bf e406       |    |		Load	0x2,0x6
00c0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00c1 c407       |    |		Store	0x2,0x7
00c2 e407       |    |		Load	0x2,0x7								; Debug Table 0x3.0xf = 0xc2,0x2
00c3 4800       |H   |		Short_Literal	0x0
00c4 e001       |    |		Load	0x0,0x1
00c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c6 4800       |H   |		Short_Literal	0x0
00c7 e406       |    |		Load	0x2,0x6
00c8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c9 c407       |    |		Store	0x2,0x7
00ca e409       |    |		Load	0x2,0x9								; Debug Table 0x3.0x10 = 0xca,0x3
00cb 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00cc e409       |    |		Load	0x2,0x9
00cd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ce c40a       |    |		Store	0x2,0xa
00cf 8403       |    |		Call	0x2,0x3								; Debug Table 0x3.0x11 = 0xcf,0x4
00d0 0f01       |    |		Execute_Immediate	Equal,0x1
00d1 7002       |p   |		Jump_Nonzero	0xd4
00d2 4887       |H   |		Short_Literal	0x87
00d3 0257       | W  |		Execute	Discrete,Raise
00d4 619f       |a   |		Indirect_Literal	Discrete,0x274,{0x00000000, 0x7fffffff}		; Debug Table 0x3.0x12 = 0xd4,0x5
00d5 4801       |H   |		Short_Literal	0x1
00d6 e411       |    |		Load	0x2,0x11							; Debug Table 0x3.0x13 = 0xd6,0x6
00d7 e405       |    |		Load	0x2,0x5
00d8 027d       | }  |		Execute	Discrete,Greater
00d9 6802       |h   |		Jump_Zero	0xdc
00da 00d2       |    |		Pop_Control	Pop_Count_2
00db 7808       |x   |		Jump	0xe4
00dc e407       |    |		Load	0x2,0x7								; Debug Table 0x3.0x14 = 0xdc,0x7
00dd 4800       |H   |		Short_Literal	0x0
00de 840f       |    |		Call	0x2,0xf
00df e411       |    |		Load	0x2,0x11
00e0 e406       |    |		Load	0x2,0x6
00e1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00e2 c407       |    |		Store	0x2,0x7
00e3 3ff2       |?   |		Loop_Increasing	0xd6
00e4 e409       |    |		Load	0x2,0x9								; Debug Table 0x3.0x15 = 0xe4,0x8
00e5 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00e6 e40a       |    |		Load	0x2,0xa
00e7 e409       |    |		Load	0x2,0x9
00e8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00e9 c40b       |    |		Store	0x2,0xb
00ea 7812       |x   |		Jump	0xfd
00eb e40b       |    |		Load	0x2,0xb								; Debug Table 0x3.0x16 = 0xeb,0xa
00ec e409       |    |		Load	0x2,0x9
00ed 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ee e40c       |    |		Load	0x2,0xc
00ef 017d       | }  |		Execute	Record,Structure_Write
00f0 e40b       |    |		Load	0x2,0xb								; Debug Table 0x3.0x17 = 0xf0,0xb
00f1 e409       |    |		Load	0x2,0x9
00f2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00f3 c40b       |    |		Store	0x2,0xb
00f4 e40c       |    |		Load	0x2,0xc								; Debug Table 0x3.0x18 = 0xf4,0xc
00f5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f6 e407       |    |		Load	0x2,0x7
00f7 e406       |    |		Load	0x2,0x6
00f8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00f9 e40c       |    |		Load	0x2,0xc
00fa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00fb e001       |    |		Load	0x0,0x1
00fc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00fd e40b       |    |		Load	0x2,0xb								; Debug Table 0x3.0x19 = 0xfd,0x9
00fe e409       |    |		Load	0x2,0x9
00ff 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0100 6fea       |o   |		Jump_Zero	0xeb
0101 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x1a = 0x101,0xd
0102 e407       |    |		Load	0x2,0x7
0103 e406       |    |		Load	0x2,0x6
0104 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0105 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0106			TRAP_0088:
0106 0007       |    |		Action	Break_Optional
0107 e004       |    |		Load	0x0,0x4								; Debug Table 0x3.0x1b = 0x107,0xe
0108 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0109 4803       |H   |		Short_Literal	0x3
010a 0092 0278  |   x|		Action	Push_String_Extended,0x278					; "Unhandled Exception"
010c e005       |    |		Load	0x0,0x5
010d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
010e 0092 027a  |   z|		Action	Push_String_Extended,0x27a					; "Runtime_Type_Structure.Io.Get"
0110 e005       |    |		Load	0x0,0x5
0111 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0112 4831       |H1  |		Short_Literal	0x31
0113 0257       | W  |		Execute	Discrete,Raise
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011f       |    |		.CONST	0x011f								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0003       |    |		.CONST	0x0003								; Number of locals
011b			INIT_0118:
011b e404       |    |		Load	0x2,0x4								; Debug Table 0x4 = .DEBUG	0x011b,0x0372,0x0802,0x0002,0x0036,0x58b4,0x0000,0x006e
													; Debug Table 0x4.0x0 = 0x11b,0xffff
011c e20f       |    |		Load	0x1,0xf
011d 03f1       |    |		Declare_Variable	Discrete,With_Value
011e 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4.0x1 = 0x11e,0xfffe
011f			BODY_0118:
011f 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4.0x2 = 0x11f,0x1
0120 e602       |    |		Load	0x3,0x2
0121 e7ff       |    |		Load	0x3,-0x1
0122 e406       |    |		Load	0x2,0x6
0123 e405       |    |		Load	0x2,0x5
0124 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0125 c602       |    |		Store	0x3,0x2
0126 c603       |    |		Store	0x3,0x3
0127 e603       |    |		Load	0x3,0x3								; Debug Table 0x4.0x3 = 0x127,0x2
0128 700f       |p   |		Jump_Nonzero	0x138
0129 e406       |    |		Load	0x2,0x6								; Debug Table 0x4.0x4 = 0x129,0x3
012a 4801       |H   |		Short_Literal	0x1
012b e602       |    |		Load	0x3,0x2
012c e7ff       |    |		Load	0x3,-0x1
012d e405       |    |		Load	0x2,0x5
012e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
012f c406       |    |		Store	0x2,0x6
0130 e408       |    |		Load	0x2,0x8								; Debug Table 0x4.0x5 = 0x130,0x4
0131 e7ff       |    |		Load	0x3,-0x1
0132 e407       |    |		Load	0x2,0x7
0133 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0134 00d1       |    |		Pop_Control	Pop_Count_1
0135 e404       |    |		Load	0x2,0x4								; Debug Table 0x4.0x6 = 0x135,0x5
0136 0a01       |    |		Execute_Immediate	Plus,0x1
0137 c404       |    |		Store	0x2,0x4
0138 e602       |    |		Load	0x3,0x2								; Debug Table 0x4.0x7 = 0x138,0x6
0139 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5 = .DEBUG	0x0143,0x0384,0x0801,0x0002,0x0036,0x58b4,0x0000,0x00b1
													; Debug Table 0x5.0x0 = 0x143,0x1
0144 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0145 e007       |    |		Load	0x0,0x7
0146 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0147 025e       | ^  |		Execute	Discrete,Convert
0148 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0149 8402       |    |		Call	0x2,0x2
014a e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x1 = 0x14a,0x2
014b e007       |    |		Load	0x0,0x7
014c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
014d 8403       |    |		Call	0x2,0x3
014e e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x2 = 0x14e,0x3
014f e007       |    |		Load	0x0,0x7
0150 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0151 8403       |    |		Call	0x2,0x3
0152 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x3 = 0x152,0x4
0153 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0154 460d       |F   |		Jump_Case	0xe
0155 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x0
0156 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x1
0157 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x2
0158 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x3
0159 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x4
015a 7808       |x   |		Jump	0x163								; case 0x5
015b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x6
015c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x7
015d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x8
015e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x9
015f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0xa
0160 7820       |x   |		Jump	0x181								; case 0xb
0161 7810       |x   |		Jump	0x172								; case 0xc
0162 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0xd
0163 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x4 = 0x163,0x5
0164 e007       |    |		Load	0x0,0x7
0165 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0166 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
0167 e007       |    |		Load	0x0,0x7
0168 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0169 8403       |    |		Call	0x2,0x3
016a e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x5 = 0x16a,0x6
016b e007       |    |		Load	0x0,0x7
016c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
016d 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
016e e007       |    |		Load	0x0,0x7
016f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0170 8403       |    |		Call	0x2,0x3
0171 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0172 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x6 = 0x172,0x7
0173 e007       |    |		Load	0x0,0x7
0174 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0175 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
0176 e007       |    |		Load	0x0,0x7
0177 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0178 8403       |    |		Call	0x2,0x3
0179 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x7 = 0x179,0x8
017a e007       |    |		Load	0x0,0x7
017b 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
017c 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
017d e007       |    |		Load	0x0,0x7
017e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
017f 8403       |    |		Call	0x2,0x3
0180 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0181 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x8 = 0x181,0x9
0182 e007       |    |		Load	0x0,0x7
0183 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0184 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
0185 e007       |    |		Load	0x0,0x7
0186 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0187 8403       |    |		Call	0x2,0x3
0188 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x9 = 0x188,0xa
0189 e007       |    |		Load	0x0,0x7
018a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
018b 0161       | a  |		Execute	Variant_Record,Check_In_Formal_Type
018c e007       |    |		Load	0x0,0x7
018d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
018e 8403       |    |		Call	0x2,0x3
018f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x6 = .DEBUG	0x0193,0x039a,0x0801,0x0002,0x0036,0x58b4,0x0000,0x0142
													; Debug Table 0x6.0x0 = 0x193,0x1
0194 7003       |p   |		Jump_Nonzero	0x198
0195 e210       |    |		Load	0x1,0x10							; Debug Table 0x6.0x1 = 0x195,0x2
0196 8402       |    |		Call	0x2,0x2
0197 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x6.0x2 = 0x197,0x3
0198 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x6.0x3 = 0x198,0x4
0199 e001       |    |		Load	0x0,0x1
019a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
019b 840a       |    |		Call	0x2,0xa
019c e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x6.0x4 = 0x19c,0x5
019d e001       |    |		Load	0x0,0x1
019e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
019f 840b       |    |		Call	0x2,0xb
01a0 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x6.0x5 = 0x1a0,0x6
01a1 e001       |    |		Load	0x0,0x1
01a2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a3 840b       |    |		Call	0x2,0xb
01a4 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x6.0x6 = 0x1a4,0x7
01a5 e001       |    |		Load	0x0,0x1
01a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a7 8409       |    |		Call	0x2,0x9
01a8 8403       |    |		Call	0x2,0x3
01a9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01aa 0000 0000  |    |		.BLANK	0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b6       |    |		.CONST	0x01b6								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0003       |    |		.CONST	0x0003								; Number of locals
01b3			INIT_01b0:
01b3 e001       |    |		Load	0x0,0x1								; Debug Table 0x7 = .DEBUG	0x01b3,0x03aa,0x0802,0x0002,0x0036,0x58b4,0x0000,0x0242
													; Debug Table 0x7.0x0 = 0x1b3,0xffff
01b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b5 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x1 = 0x1b5,0xfffe
01b6			BODY_01b0:
01b6 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x2 = 0x1b6,0x1
01b7 e602       |    |		Load	0x3,0x2
01b8 e7fe       |    |		Load	0x3,-0x2
01b9 e407       |    |		Load	0x2,0x7
01ba e406       |    |		Load	0x2,0x6
01bb 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01bc c602       |    |		Store	0x3,0x2
01bd c603       |    |		Store	0x3,0x3
01be e603       |    |		Load	0x3,0x3								; Debug Table 0x7.0x3 = 0x1be,0x2
01bf 7012       |p   |		Jump_Nonzero	0x1d2
01c0 e40a       |    |		Load	0x2,0xa								; Debug Table 0x7.0x4 = 0x1c0,0x3
01c1 e408       |    |		Load	0x2,0x8
01c2 0322       | "  |		Declare_Variable	Record
01c3 e7ff       |    |		Load	0x3,-0x1
01c4 e605       |    |		Load	0x3,0x5
01c5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01c6 e7fe       |    |		Load	0x3,-0x2
01c7 e605       |    |		Load	0x3,0x5
01c8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01c9 e409       |    |		Load	0x2,0x9
01ca 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01cb c40a       |    |		Store	0x2,0xa
01cc e7fe       |    |		Load	0x3,-0x2							; Debug Table 0x7.0x5 = 0x1cc,0x4
01cd e405       |    |		Load	0x2,0x5
01ce 027d       | }  |		Execute	Discrete,Greater
01cf 6802       |h   |		Jump_Zero	0x1d2
01d0 e7fe       |    |		Load	0x3,-0x2							; Debug Table 0x7.0x6 = 0x1d0,0x5
01d1 a405       |    |		Store_Unchecked	0x2,0x5
01d2 e602       |    |		Load	0x3,0x2								; Debug Table 0x7.0x7 = 0x1d2,0x6
01d3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01eb       |    |		.CONST	0x01eb								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0005       |    |		.CONST	0x0005								; Number of locals
01db			INIT_01d8:
01db 85fe       |    |		Call	0x2,-0x2							; Debug Table 0x8 = .DEBUG	0x01db,0x03bc,0x0802,0x0002,0x0036,0x58b4,0x0000,0x0285
													; Debug Table 0x8.0x0 = 0x1db,0xffff
01dc e007       |    |		Load	0x0,0x7
01dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01de 025b       | [  |		Execute	Discrete,Check_In_Type
01df e007       |    |		Load	0x0,0x7
01e0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e1 03f1       |    |		Declare_Variable	Discrete,With_Value
01e2 85fe       |    |		Call	0x2,-0x2							; Debug Table 0x8.0x1 = 0x1e2,0xfffe
01e3 e007       |    |		Load	0x0,0x7
01e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e5 025b       | [  |		Execute	Discrete,Check_In_Type
01e6 e007       |    |		Load	0x0,0x7
01e7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e8 03f1       |    |		Declare_Variable	Discrete,With_Value
01e9 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x8.0x2 = 0x1e9,0xfffd
01ea 03e9       |    |		Declare_Variable	Discrete,Duplicate
01eb			BODY_01d8:
01eb e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x8.0x3 = 0x1eb,0x1
01ec 460d       |F   |		Jump_Case	0xe
01ed 783d       |x=  |		Jump	0x22b								; case 0x0
01ee 783c       |x<  |		Jump	0x22b								; case 0x1
01ef 783b       |x;  |		Jump	0x22b								; case 0x2
01f0 783a       |x:  |		Jump	0x22b								; case 0x3
01f1 7839       |x9  |		Jump	0x22b								; case 0x4
01f2 7808       |x   |		Jump	0x1fb								; case 0x5
01f3 7837       |x7  |		Jump	0x22b								; case 0x6
01f4 7836       |x6  |		Jump	0x22b								; case 0x7
01f5 7835       |x5  |		Jump	0x22b								; case 0x8
01f6 7834       |x4  |		Jump	0x22b								; case 0x9
01f7 7833       |x3  |		Jump	0x22b								; case 0xa
01f8 781e       |x   |		Jump	0x217								; case 0xb
01f9 780c       |x   |		Jump	0x206								; case 0xc
01fa 7830       |x0  |		Jump	0x22b								; case 0xd
01fb 8403       |    |		Call	0x2,0x3								; Debug Table 0x8.0x4 = 0x1fb,0x2
01fc a604       |    |		Store_Unchecked	0x3,0x4
01fd 8403       |    |		Call	0x2,0x3								; Debug Table 0x8.0x5 = 0x1fd,0x3
01fe a605       |    |		Store_Unchecked	0x3,0x5
01ff e605       |    |		Load	0x3,0x5								; Debug Table 0x8.0x6 = 0x1ff,0x4
0200 e604       |    |		Load	0x3,0x4
0201 e603       |    |		Load	0x3,0x3
0202 e602       |    |		Load	0x3,0x2
0203 e007       |    |		Load	0x0,0x7
0204 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0205 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0206 8403       |    |		Call	0x2,0x3								; Debug Table 0x8.0x7 = 0x206,0x5
0207 a604       |    |		Store_Unchecked	0x3,0x4
0208 8403       |    |		Call	0x2,0x3								; Debug Table 0x8.0x8 = 0x208,0x6
0209 a605       |    |		Store_Unchecked	0x3,0x5
020a e605       |    |		Load	0x3,0x5								; Debug Table 0x8.0x9 = 0x20a,0x7
020b e007       |    |		Load	0x0,0x7
020c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
020d 025b       | [  |		Execute	Discrete,Check_In_Type
020e e604       |    |		Load	0x3,0x4
020f e007       |    |		Load	0x0,0x7
0210 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0211 025b       | [  |		Execute	Discrete,Check_In_Type
0212 e603       |    |		Load	0x3,0x3
0213 e602       |    |		Load	0x3,0x2
0214 e007       |    |		Load	0x0,0x7
0215 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0216 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0217 8403       |    |		Call	0x2,0x3								; Debug Table 0x8.0xa = 0x217,0x8
0218 a604       |    |		Store_Unchecked	0x3,0x4
0219 8403       |    |		Call	0x2,0x3								; Debug Table 0x8.0xb = 0x219,0x9
021a a605       |    |		Store_Unchecked	0x3,0x5
021b e605       |    |		Load	0x3,0x5								; Debug Table 0x8.0xc = 0x21b,0xa
021c e007       |    |		Load	0x0,0x7
021d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
021e 025b       | [  |		Execute	Discrete,Check_In_Type
021f e604       |    |		Load	0x3,0x4
0220 00d8       |    |		Load_Top	At_Offset_0
0221 00e1       |    |		Load_Encached	Boolean_Cache
0222 0260       | `  |		Execute	Discrete,In_Type
0223 7002       |p   |		Jump_Nonzero	0x226
0224 48e0       |H   |		Short_Literal	0xe0
0225 0257       | W  |		Execute	Discrete,Raise
0226 e603       |    |		Load	0x3,0x3
0227 e602       |    |		Load	0x3,0x2
0228 e007       |    |		Load	0x0,0x7
0229 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
022a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022b e603       |    |		Load	0x3,0x3								; Debug Table 0x8.0xd = 0x22b,0xb
022c e602       |    |		Load	0x3,0x2
022d e7ff       |    |		Load	0x3,-0x1
022e e007       |    |		Load	0x0,0x7
022f 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0230 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0231 0000 0000  |    |		.BLANK	0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0240       | @  |		.CONST	0x0240								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0004       |    |		.CONST	0x0004								; Number of locals
023b			INIT_0238:
023b 8402       |    |		Call	0x2,0x2								; Debug Table 0x9 = .DEBUG	0x023b,0x03da,0x0802,0x0002,0x0036,0x58b4,0x0000,0x0339
													; Debug Table 0x9.0x0 = 0x23b,0xffff
023c e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x1 = 0x23c,0xfffe
023d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023e e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x2 = 0x23e,0xfffd
023f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0240			BODY_0238:
0240 e602       |    |		Load	0x3,0x2								; Debug Table 0x9.0x3 = 0x240,0x1
0241 e210       |    |		Load	0x1,0x10
0242 01df       |    |		Execute	Vector,Equal
0243 6803       |h   |		Jump_Zero	0x247
0244 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x4 = 0x244,0x2
0245 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0246 00ca       |    |		Action	Exit_Nullary_Function
0247 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0x5 = 0x247,0x3
0248 e602       |    |		Load	0x3,0x2
0249 e007       |    |		Load	0x0,0x7
024a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
024b 00e0       |    |		Load_Encached	Standard_Cache
024c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
024d 840e       |    |		Call	0x2,0xe
024e e001       |    |		Load	0x0,0x1
024f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0250 a603       |    |		Store_Unchecked	0x3,0x3
0251 840f       |    |		Call	0x2,0xf								; Debug Table 0x9.0x6 = 0x251,0x4
0252 a604       |    |		Store_Unchecked	0x3,0x4
0253 e604       |    |		Load	0x3,0x4								; Debug Table 0x9.0x7 = 0x253,0x5
0254 6804       |h   |		Jump_Zero	0x259
0255 e604       |    |		Load	0x3,0x4								; Debug Table 0x9.0x8 = 0x255,0x6
0256 e603       |    |		Load	0x3,0x3
0257 e001       |    |		Load	0x0,0x1
0258 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0259 840f       |    |		Call	0x2,0xf								; Debug Table 0x9.0x9 = 0x259,0x7
025a a604       |    |		Store_Unchecked	0x3,0x4
025b e604       |    |		Load	0x3,0x4								; Debug Table 0x9.0xa = 0x25b,0x8
025c 6804       |h   |		Jump_Zero	0x261
025d e604       |    |		Load	0x3,0x4								; Debug Table 0x9.0xb = 0x25d,0x9
025e e603       |    |		Load	0x3,0x3
025f e001       |    |		Load	0x0,0x1
0260 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0261 8403       |    |		Call	0x2,0x3								; Debug Table 0x9.0xc = 0x261,0xa
0262 e20f       |    |		Load	0x1,0xf
0263 025b       | [  |		Execute	Discrete,Check_In_Type
0264 e603       |    |		Load	0x3,0x3
0265 840d       |    |		Call	0x2,0xd
0266 a604       |    |		Store_Unchecked	0x3,0x4
0267 e604       |    |		Load	0x3,0x4								; Debug Table 0x9.0xd = 0x267,0xb
0268 6804       |h   |		Jump_Zero	0x26d
0269 e604       |    |		Load	0x3,0x4								; Debug Table 0x9.0xe = 0x269,0xc
026a e603       |    |		Load	0x3,0x3
026b e001       |    |		Load	0x0,0x1
026c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
026d e603       |    |		Load	0x3,0x3								; Debug Table 0x9.0xf = 0x26d,0xd
026e 00ca       |    |		Action	Exit_Nullary_Function
026f 0000       |    |		.XXX[0x1]
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x003658b4}
0274 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0278 ; --------------------------------------------------------------------------------------
0278 ; STRING TABLE
0278 ; --------------------------------------------------------------------------------------
0278 0008       |    |		.STRTAB	0x0008->0x027c							; "Unhandled Exception"
0279 0019       |    |		.STRTAB	0x0019->0x0285							; "Runtime_Type_Structure.Io.Put"
027a 0034       | 4  |		.STRTAB	0x0034->0x0294							; "Runtime_Type_Structure.Io.Get"
027b 004f       | O  |		.STREND 0x004f->0x02a2
027c 556e 6861  |Unha|		.STRTAB_STRINGS
02a3 0000 0000  |    |		.BLANK	0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0003 000a  |    |		.CONST	0x0003,0x000a
02aa 000b 02fa  |    |		.DEBUG	0x000b,0x02fa,0x0000,0x0000,0x0036,0x57f4,0x0000,0x00af
02b2 0010 0300  |    |		.DEBUG	0x0010,0x0300,0x0000,0x0000,0x0036,0x58b4,0x0000,0x000b
02ba 0023 030c  | #  |		.DEBUG	0x0023,0x030c,0x2801,0x0002,0x0036,0x57f4,0x0000,0x00b0
02c2 008b 0338  |   8|		.DEBUG	0x008b,0x0338,0x2802,0x0002,0x0036,0x57f4,0x0000,0x00cb
02ca 011b 0372  |   r|		.DEBUG	0x011b,0x0372,0x0802,0x0002,0x0036,0x58b4,0x0000,0x006e
02d2 0143 0384  | C  |		.DEBUG	0x0143,0x0384,0x0801,0x0002,0x0036,0x58b4,0x0000,0x00b1
02da 0193 039a  |    |		.DEBUG	0x0193,0x039a,0x0801,0x0002,0x0036,0x58b4,0x0000,0x0142
02e2 01b3 03aa  |    |		.DEBUG	0x01b3,0x03aa,0x0802,0x0002,0x0036,0x58b4,0x0000,0x0242
02ea 01db 03bc  |    |		.DEBUG	0x01db,0x03bc,0x0802,0x0002,0x0036,0x58b4,0x0000,0x0285
02f2 023b 03da  | ;  |		.DEBUG	0x023b,0x03da,0x0802,0x0002,0x0036,0x58b4,0x0000,0x0339
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0x0
02fa ; --------------------------------------------------------------------------------------
02fa 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
02fc 000b ffff  |    |		.CONST	0x000b,0xffff
02fe 000d fffe  |    |		.CONST	0x000d,0xfffe
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug3 Subtable 0x1
0300 ; --------------------------------------------------------------------------------------
0300 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
0302 0010 ffff  |    |		.CONST	0x0010,0xffff
0304 0010 fffe  |    |		.CONST	0x0010,0xfffe
0306 0014 fffd  |    |		.CONST	0x0014,0xfffd
0308 0015 fffc  |    |		.CONST	0x0015,0xfffc
030a 0017 fffb  |    |		.CONST	0x0017,0xfffb
030c ; --------------------------------------------------------------------------------------
030c ; Debug3 Subtable 0x2
030c ; --------------------------------------------------------------------------------------
030c 000a 000b  |    |		.DBG3TAB	0x000a,0x000b
030e 0023 ffff  | #  |		.CONST	0x0023,0xffff
0310 0026 fffe  | &  |		.CONST	0x0026,0xfffe
0312 0029 fffd  | )  |		.CONST	0x0029,0xfffd
0314 002a fffc  | *  |		.CONST	0x002a,0xfffc
0316 0036 fffb  | 6  |		.CONST	0x0036,0xfffb
0318 0038 fffa  | 8  |		.CONST	0x0038,0xfffa
031a 0040 fff9  | @  |		.CONST	0x0040,0xfff9
031c 0043 fff8  | C  |		.CONST	0x0043,0xfff8
031e 0045 fff7  | E  |		.CONST	0x0045,0xfff7
0320 0047 fff6  | G  |		.CONST	0x0047,0xfff6
0322 0049 0001  | I  |		.CONST	0x0049,0x0001
0324 004f 0002  | O  |		.CONST	0x004f,0x0002
0326 0057 0003  | W  |		.CONST	0x0057,0x0003
0328 005e 0004  | ^  |		.CONST	0x005e,0x0004
032a 0060 0005  | `  |		.CONST	0x0060,0x0005
032c 0064 0006  | d  |		.CONST	0x0064,0x0006
032e 0069 0007  | i  |		.CONST	0x0069,0x0007
0330 006c 0009  | l  |		.CONST	0x006c,0x0009
0332 0070 000a  | p  |		.CONST	0x0070,0x000a
0334 0074 0008  | t  |		.CONST	0x0074,0x0008
0336 007a 000b  | z  |		.CONST	0x007a,0x000b
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug3 Subtable 0x3
0338 ; --------------------------------------------------------------------------------------
0338 000e 000e  |    |		.DBG3TAB	0x000e,0x000e
033a 008b ffff  |    |		.CONST	0x008b,0xffff
033c 008e fffe  |    |		.CONST	0x008e,0xfffe
033e 0091 fffd  |    |		.CONST	0x0091,0xfffd
0340 0093 fffc  |    |		.CONST	0x0093,0xfffc
0342 0095 fffb  |    |		.CONST	0x0095,0xfffb
0344 00a1 fffa  |    |		.CONST	0x00a1,0xfffa
0346 00a3 fff9  |    |		.CONST	0x00a3,0xfff9
0348 00a9 fff8  |    |		.CONST	0x00a9,0xfff8
034a 00b0 fff7  |    |		.CONST	0x00b0,0xfff7
034c 00b2 fff6  |    |		.CONST	0x00b2,0xfff6
034e 00b4 fff5  |    |		.CONST	0x00b4,0xfff5
0350 00b6 fff4  |    |		.CONST	0x00b6,0xfff4
0352 00b8 fff3  |    |		.CONST	0x00b8,0xfff3
0354 00ba fff2  |    |		.CONST	0x00ba,0xfff2
0356 00bc 0001  |    |		.CONST	0x00bc,0x0001
0358 00c2 0002  |    |		.CONST	0x00c2,0x0002
035a 00ca 0003  |    |		.CONST	0x00ca,0x0003
035c 00cf 0004  |    |		.CONST	0x00cf,0x0004
035e 00d4 0005  |    |		.CONST	0x00d4,0x0005
0360 00d6 0006  |    |		.CONST	0x00d6,0x0006
0362 00dc 0007  |    |		.CONST	0x00dc,0x0007
0364 00e4 0008  |    |		.CONST	0x00e4,0x0008
0366 00eb 000a  |    |		.CONST	0x00eb,0x000a
0368 00f0 000b  |    |		.CONST	0x00f0,0x000b
036a 00f4 000c  |    |		.CONST	0x00f4,0x000c
036c 00fd 0009  |    |		.CONST	0x00fd,0x0009
036e 0101 000d  |    |		.CONST	0x0101,0x000d
0370 0107 000e  |    |		.CONST	0x0107,0x000e
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug3 Subtable 0x4
0372 ; --------------------------------------------------------------------------------------
0372 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0374 011b ffff  |    |		.CONST	0x011b,0xffff
0376 011e fffe  |    |		.CONST	0x011e,0xfffe
0378 011f 0001  |    |		.CONST	0x011f,0x0001
037a 0127 0002  | '  |		.CONST	0x0127,0x0002
037c 0129 0003  | )  |		.CONST	0x0129,0x0003
037e 0130 0004  | 0  |		.CONST	0x0130,0x0004
0380 0135 0005  | 5  |		.CONST	0x0135,0x0005
0382 0138 0006  | 8  |		.CONST	0x0138,0x0006
0384 ; --------------------------------------------------------------------------------------
0384 ; Debug3 Subtable 0x5
0384 ; --------------------------------------------------------------------------------------
0384 0000 000a  |    |		.DBG3TAB	0x0000,0x000a
0386 0143 0001  | C  |		.CONST	0x0143,0x0001
0388 014a 0002  | J  |		.CONST	0x014a,0x0002
038a 014e 0003  | N  |		.CONST	0x014e,0x0003
038c 0152 0004  | R  |		.CONST	0x0152,0x0004
038e 0163 0005  | c  |		.CONST	0x0163,0x0005
0390 016a 0006  | j  |		.CONST	0x016a,0x0006
0392 0172 0007  | r  |		.CONST	0x0172,0x0007
0394 0179 0008  | y  |		.CONST	0x0179,0x0008
0396 0181 0009  |    |		.CONST	0x0181,0x0009
0398 0188 000a  |    |		.CONST	0x0188,0x000a
039a ; --------------------------------------------------------------------------------------
039a ; Debug3 Subtable 0x6
039a ; --------------------------------------------------------------------------------------
039a 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
039c 0193 0001  |    |		.CONST	0x0193,0x0001
039e 0195 0002  |    |		.CONST	0x0195,0x0002
03a0 0197 0003  |    |		.CONST	0x0197,0x0003
03a2 0198 0004  |    |		.CONST	0x0198,0x0004
03a4 019c 0005  |    |		.CONST	0x019c,0x0005
03a6 01a0 0006  |    |		.CONST	0x01a0,0x0006
03a8 01a4 0007  |    |		.CONST	0x01a4,0x0007
03aa ; --------------------------------------------------------------------------------------
03aa ; Debug3 Subtable 0x7
03aa ; --------------------------------------------------------------------------------------
03aa 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
03ac 01b3 ffff  |    |		.CONST	0x01b3,0xffff
03ae 01b5 fffe  |    |		.CONST	0x01b5,0xfffe
03b0 01b6 0001  |    |		.CONST	0x01b6,0x0001
03b2 01be 0002  |    |		.CONST	0x01be,0x0002
03b4 01c0 0003  |    |		.CONST	0x01c0,0x0003
03b6 01cc 0004  |    |		.CONST	0x01cc,0x0004
03b8 01d0 0005  |    |		.CONST	0x01d0,0x0005
03ba 01d2 0006  |    |		.CONST	0x01d2,0x0006
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug3 Subtable 0x8
03bc ; --------------------------------------------------------------------------------------
03bc 0003 000b  |    |		.DBG3TAB	0x0003,0x000b
03be 01db ffff  |    |		.CONST	0x01db,0xffff
03c0 01e2 fffe  |    |		.CONST	0x01e2,0xfffe
03c2 01e9 fffd  |    |		.CONST	0x01e9,0xfffd
03c4 01eb 0001  |    |		.CONST	0x01eb,0x0001
03c6 01fb 0002  |    |		.CONST	0x01fb,0x0002
03c8 01fd 0003  |    |		.CONST	0x01fd,0x0003
03ca 01ff 0004  |    |		.CONST	0x01ff,0x0004
03cc 0206 0005  |    |		.CONST	0x0206,0x0005
03ce 0208 0006  |    |		.CONST	0x0208,0x0006
03d0 020a 0007  |    |		.CONST	0x020a,0x0007
03d2 0217 0008  |    |		.CONST	0x0217,0x0008
03d4 0219 0009  |    |		.CONST	0x0219,0x0009
03d6 021b 000a  |    |		.CONST	0x021b,0x000a
03d8 022b 000b  | +  |		.CONST	0x022b,0x000b
03da ; --------------------------------------------------------------------------------------
03da ; Debug3 Subtable 0x9
03da ; --------------------------------------------------------------------------------------
03da 0003 000d  |    |		.DBG3TAB	0x0003,0x000d
03dc 023b ffff  | ;  |		.CONST	0x023b,0xffff
03de 023c fffe  | <  |		.CONST	0x023c,0xfffe
03e0 023e fffd  | >  |		.CONST	0x023e,0xfffd
03e2 0240 0001  | @  |		.CONST	0x0240,0x0001
03e4 0244 0002  | D  |		.CONST	0x0244,0x0002
03e6 0247 0003  | G  |		.CONST	0x0247,0x0003
03e8 0251 0004  | Q  |		.CONST	0x0251,0x0004
03ea 0253 0005  | S  |		.CONST	0x0253,0x0005
03ec 0255 0006  | U  |		.CONST	0x0255,0x0006
03ee 0259 0007  | Y  |		.CONST	0x0259,0x0007
03f0 025b 0008  | [  |		.CONST	0x025b,0x0008
03f2 025d 0009  | ]  |		.CONST	0x025d,0x0009
03f4 0261 000a  | a  |		.CONST	0x0261,0x000a
03f6 0267 000b  | g  |		.CONST	0x0267,0x000b
03f8 0269 000c  | i  |		.CONST	0x0269,0x000c
03fa 026d 000d  | m  |		.CONST	0x026d,0x000d
03fc 0000 0000  |    |		.BLANK	0000[0x4]