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

⟦26ae737e4⟧ SEG

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

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »465939.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »465939.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »465939.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »465939.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »465939.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 0150       | P  |		.CONST	0x0150								; 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 001c       |    |		.CONST	0x001c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0 = .DEBUG	0x000b,0x018a,0x8000,0x0000,0x0036,0x5734,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
													; Debug Table 0x0.0x3 = 0xb,0xfffc
000c 48fb       |H   |		Short_Literal	0xfb
000d e001       |    |		Load	0x0,0x1
000e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
000f 035c       | \  |		Declare_Type	Array,Constrained,Visible
0010 4812       |H   |		Short_Literal	0x12							; Debug Table 0x0.0x4 = 0x10,0xfffb
0011 600e       |`   |		Indirect_Literal	Discrete,0x20,{0x00071c13, 0x000002b0}		; 0x71c13 = COMM_FILE
0012 02a0       |    |		Declare_Subprogram	Null_Subprogram
0013 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0014 00bf       |    |		Action	Accept_Activation
0015 e002       |    |		Load	0x0,0x2								; Debug Table 0x1 = .DEBUG	0x0015,0x0196,0x8000,0x0000,0x0036,0x5744,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x15,0xffff
0016 00b6       |    |		Action	Make_Scope
0017 4802       |H   |		Short_Literal	0x2
0018 e20e       |    |		Load	0x1,0xe
0019 020e       |    |		Execute	Module,Augment_Imports
001a e20e       |    |		Load	0x1,0xe
001b 020d       |    |		Execute	Module,Elaborate
001c			BODY_0008:
001c 00bc       |    |		Action	Signal_Activated
001d 00bb       |    |		Action	Signal_Completion
001e 0000 0000  |    |		.XXX[0x2]
0020 0007 1c13  |    |		.LITERAL	{0x00071c13, 0x000002b0}
0024 0000 0000  |    |		.BLANK	0000[0x4]
0028 0046 0004  | F  |		.XXX[0x3]
002a 0022       | "  |
002b 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2 = .DEBUG	0x002b,0x019a,0x4000,0x0000,0x0036,0x5734,0x0000,0x0027
													; Debug Table 0x2.0x0 = 0x2b,0xffff
002d 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x1 = 0x2d,0xfffe
002f 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x2 = 0x2f,0xfffd
0031 00bf       |    |		Action	Accept_Activation
0032 6115       |a   |		Indirect_Literal	Discrete,0x148,{0x00000000, 0x00365744}		; Debug Table 0x3 = .DEBUG	0x0032,0x01a2,0x4000,0x0000,0x0036,0x5744,0x0000,0x0008
													; Debug Table 0x3.0x0 = 0x32,0xffff
0033 4809       |H   |		Short_Literal	0x9
0034 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0035 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0036 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0037 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0038 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0039 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
003a 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
003b e001       |    |		Load	0x0,0x1
003c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
003d 0387       |    |		Declare_Variable	Package
003e 00d8       |    |		Load_Top	At_Offset_0
003f 020f       |    |		Execute	Module,Activate
0040 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x3.0x1 = 0x40,0xfffe
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x3.0x2 = 0x42,0xfffd
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21				; Debug Table 0x3.0x3 = 0x44,0xfffc
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 00bc       |    |		Action	Signal_Activated
0047 00bb       |    |		Action	Signal_Completion
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0056       | V  |		.CONST	0x0056								; Address of begin
0049 00c6       |    |		.CONST	0x00c6								; Address of exception handler
004a 0006       |    |		.CONST	0x0006								; Number of locals
004b			INIT_0048:
004b e20f       |    |		Load	0x1,0xf								; Debug Table 0x4 = .DEBUG	0x004b,0x01ac,0x1001,0x0000,0x0036,0x5734,0x0000,0x00e9
													; Debug Table 0x4.0x0 = 0x4b,0xffff
004c 02c7       |    |		Declare_Variable	Any
004d e402       |    |		Load	0x2,0x2
004e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004f e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x1 = 0x4f,0xfffe
0050 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0051 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x2 = 0x51,0xfffd
0052 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0053 0337       | 7  |		Declare_Variable	Array
0054 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x4.0x3 = 0x54,0xfffc
0055 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x4.0x4 = 0x55,0xfffb
0056			BODY_0048:
0056 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x5 = 0x56,0x1
0057 0120       |    |		Execute	Any,Is_Value
0058 6802       |h   |		Jump_Zero	0x5b
0059 e20f       |    |		Load	0x1,0xf
005a 7803       |x   |		Jump	0x5e
005b e402       |    |		Load	0x2,0x2
005c e20f       |    |		Load	0x1,0xf
005d 0119       |    |		Execute	Any,Check_In_Formal_Type
005e e5fd       |    |		Load	0x2,-0x3
005f e210       |    |		Load	0x1,0x10
0060 0119       |    |		Execute	Any,Check_In_Formal_Type
0061 4801       |H   |		Short_Literal	0x1
0062 e5ff       |    |		Load	0x2,-0x1
0063 8211       |    |		Call	0x1,0x11
0064 c402       |    |		Store	0x2,0x2
0065 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x6 = 0x65,0x2
0066 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0067 4801       |H   |		Short_Literal	0x1
0068 e5fe       |    |		Load	0x2,-0x2
0069 e222       | "  |		Load	0x1,0x22
006a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
006b c403       |    |		Store	0x2,0x3
006c e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x7 = 0x6c,0x3
006d a5fc       |    |		Store_Unchecked	0x2,-0x4
006e e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x8 = 0x6e,0x4
006f 0f03       |    |		Execute_Immediate	Equal,0x3
0070 e402       |    |		Load	0x2,0x2
0071 e20f       |    |		Load	0x1,0xf
0072 0119       |    |		Execute	Any,Check_In_Formal_Type
0073 8213       |    |		Call	0x1,0x13
0074 0f00       |    |		Execute_Immediate	Equal,0x0
0075 0279       | y  |		Execute	Discrete,And
0076 6849       |hI  |		Jump_Zero	0xc0
0077 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x9 = 0x77,0x5
0078 e20f       |    |		Load	0x1,0xf
0079 0119       |    |		Execute	Any,Check_In_Formal_Type
007a 8215       |    |		Call	0x1,0x15
007b 48fb       |H   |		Short_Literal	0xfb
007c 0270       | p  |		Execute	Discrete,Divide
007d c405       |    |		Store	0x2,0x5
007e e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0xa = 0x7e,0x6
007f e20f       |    |		Load	0x1,0xf
0080 0119       |    |		Execute	Any,Check_In_Formal_Type
0081 8215       |    |		Call	0x1,0x15
0082 48fb       |H   |		Short_Literal	0xfb
0083 026e       | n  |		Execute	Discrete,Modulo
0084 c406       |    |		Store	0x2,0x6
0085 e406       |    |		Load	0x2,0x6								; Debug Table 0x4.0xb = 0x85,0x7
0086 7005       |p   |		Jump_Nonzero	0x8c
0087 e405       |    |		Load	0x2,0x5								; Debug Table 0x4.0xc = 0x87,0x8
0088 0aff       |    |		Execute_Immediate	Plus,-0x1
0089 c405       |    |		Store	0x2,0x5
008a 48fb       |H   |		Short_Literal	0xfb							; Debug Table 0x4.0xd = 0x8a,0x9
008b a406       |    |		Store_Unchecked	0x2,0x6
008c e405       |    |		Load	0x2,0x5								; Debug Table 0x4.0xe = 0x8c,0xa
008d 4801       |H   |		Short_Literal	0x1
008e 0263       | c  |		Execute	Discrete,Above_Bound
008f 7018       |p   |		Jump_Nonzero	0xa8
0090 e404       |    |		Load	0x2,0x4								; Debug Table 0x4.0xf = 0x90,0xb
0091 e402       |    |		Load	0x2,0x2
0092 8216       |    |		Call	0x1,0x16
0093 c402       |    |		Store	0x2,0x2
0094 00d1       |    |		Pop_Control	Pop_Count_1
0095 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x10 = 0x95,0xc
0096 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0097 4800       |H   |		Short_Literal	0x0
0098 e404       |    |		Load	0x2,0x4
0099 e222       | "  |		Load	0x1,0x22
009a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
009b c403       |    |		Store	0x2,0x3
009c e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x11 = 0x9c,0xd
009d 0f03       |    |		Execute_Immediate	Equal,0x3
009e 7008       |p   |		Jump_Nonzero	0xa7
009f e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x12 = 0x9f,0xe
00a0 8212       |    |		Call	0x1,0x12
00a1 c402       |    |		Store	0x2,0x2
00a2 e222       | "  |		Load	0x1,0x22							; Debug Table 0x4.0x13 = 0xa2,0xf
00a3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00a4 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x14 = 0xa4,0x10
00a5 a5fc       |    |		Store_Unchecked	0x2,-0x4
00a6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x4.0x15 = 0xa6,0x11
00a7 3fe8       |?   |		Loop_Increasing	0x90
00a8 e404       |    |		Load	0x2,0x4								; Debug Table 0x4.0x16 = 0xa8,0x12
00a9 4801       |H   |		Short_Literal	0x1
00aa e406       |    |		Load	0x2,0x6
00ab e407       |    |		Load	0x2,0x7
00ac 035b       | [  |		Declare_Type	Array,Constrained
00ad 00d0       |    |		Action	Swap_Control
00ae 01cd       |    |		Execute	Vector,Slice_Reference
00af e407       |    |		Load	0x2,0x7
00b0 e402       |    |		Load	0x2,0x2
00b1 8216       |    |		Call	0x1,0x16
00b2 c402       |    |		Store	0x2,0x2
00b3 00d2       |    |		Pop_Control	Pop_Count_2
00b4 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x17 = 0xb4,0x13
00b5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00b6 4801       |H   |		Short_Literal	0x1
00b7 4801       |H   |		Short_Literal	0x1
00b8 e406       |    |		Load	0x2,0x6
00b9 e404       |    |		Load	0x2,0x4
00ba 01cf       |    |		Execute	Vector,Slice_Read
00bb e222       | "  |		Load	0x1,0x22
00bc 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00bd c403       |    |		Store	0x2,0x3
00be e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x18 = 0xbe,0x14
00bf a5fc       |    |		Store_Unchecked	0x2,-0x4
00c0 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x19 = 0xc0,0x15
00c1 8212       |    |		Call	0x1,0x12
00c2 c402       |    |		Store	0x2,0x2
00c3 e222       | "  |		Load	0x1,0x22							; Debug Table 0x4.0x1a = 0xc3,0x16
00c4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00c5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00c6			TRAP_0048:
00c6 00d8       |    |		Load_Top	At_Offset_0
00c7 0107       |    |		Execute	Exception,Get_Name
00c8 4920       |I   |		Short_Literal	0x120
00c9 492f       |I/  |		Short_Literal	0x12f
00ca 0262       | b  |		Execute	Discrete,In_Range
00cb 6802       |h   |		Jump_Zero	0xce
00cc e407       |    |		Load	0x2,0x7								; Debug Table 0x4.0x1b = 0xcc,0x17
00cd 0101       |    |		Execute	Exception,Reraise
00ce e222       | "  |		Load	0x1,0x22							; Debug Table 0x4.0x1c = 0xce,0x18
00cf 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00d0 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x1d = 0xd0,0x19
00d1 8212       |    |		Call	0x1,0x12
00d2 c402       |    |		Store	0x2,0x2
00d3 e407       |    |		Load	0x2,0x7								; Debug Table 0x4.0x1e = 0xd3,0x1a
00d4 0101       |    |		Execute	Exception,Reraise
00d5 0000 0000  |    |		.XXX[0x3]
00d7 0000       |    |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e6       |    |		.CONST	0x00e6								; Address of begin
00d9 0133       | 3  |		.CONST	0x0133								; Address of exception handler
00da 0006       |    |		.CONST	0x0006								; Number of locals
00db			INIT_00d8:
00db e20f       |    |		Load	0x1,0xf								; Debug Table 0x5 = .DEBUG	0x00db,0x01ec,0x1001,0x0000,0x0036,0x5734,0x0000,0x00ff
													; Debug Table 0x5.0x0 = 0xdb,0xffff
00dc 02c7       |    |		Declare_Variable	Any
00dd e402       |    |		Load	0x2,0x2
00de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00df e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x1 = 0xdf,0xfffe
00e0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e1 e002       |    |		Load	0x0,0x2								; Debug Table 0x5.0x2 = 0xe1,0xfffd
00e2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e3 0337       | 7  |		Declare_Variable	Array
00e4 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x5.0x3 = 0xe4,0xfffc
00e5 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x5.0x4 = 0xe5,0xfffb
00e6			BODY_00d8:
00e6 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x5 = 0xe6,0x1
00e7 8214       |    |		Call	0x1,0x14
00e8 7003       |p   |		Jump_Nonzero	0xec
00e9 4803       |H   |		Short_Literal	0x3							; Debug Table 0x5.0x6 = 0xe9,0x2
00ea a5fc       |    |		Store_Unchecked	0x2,-0x4
00eb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x5.0x7 = 0xeb,0x3
00ec e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x8 = 0xec,0x4
00ed 0120       |    |		Execute	Any,Is_Value
00ee 6802       |h   |		Jump_Zero	0xf1
00ef e20f       |    |		Load	0x1,0xf
00f0 7803       |x   |		Jump	0xf4
00f1 e402       |    |		Load	0x2,0x2
00f2 e20f       |    |		Load	0x1,0xf
00f3 0119       |    |		Execute	Any,Check_In_Formal_Type
00f4 e5fd       |    |		Load	0x2,-0x3
00f5 e210       |    |		Load	0x1,0x10
00f6 0119       |    |		Execute	Any,Check_In_Formal_Type
00f7 4800       |H   |		Short_Literal	0x0
00f8 e5ff       |    |		Load	0x2,-0x1
00f9 8211       |    |		Call	0x1,0x11
00fa c402       |    |		Store	0x2,0x2
00fb e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x9 = 0xfb,0x5
00fc 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00fd 4800       |H   |		Short_Literal	0x0
00fe e5fe       |    |		Load	0x2,-0x2
00ff e222       | "  |		Load	0x1,0x22
0100 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0101 c403       |    |		Store	0x2,0x3
0102 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0xa = 0x102,0x6
0103 a5fc       |    |		Store_Unchecked	0x2,-0x4
0104 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0xb = 0x104,0x7
0105 0f03       |    |		Execute_Immediate	Equal,0x3
0106 6823       |h#  |		Jump_Zero	0x12a
0107 7800       |x   |		Jump	0x108
0108 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0xc = 0x108,0x9
0109 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
010a 00e1       |    |		Load_Encached	Boolean_Cache
010b 00e3       |    |		Load_Encached	Natural_Cache
010c e404       |    |		Load	0x2,0x4
010d e222       | "  |		Load	0x1,0x22
010e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010f 00d1       |    |		Pop_Control	Pop_Count_1
0110 c405       |    |		Store	0x2,0x5
0111 c406       |    |		Store	0x2,0x6
0112 c403       |    |		Store	0x2,0x3
0113 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0xd = 0x113,0xa
0114 a5fc       |    |		Store_Unchecked	0x2,-0x4
0115 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0xe = 0x115,0xb
0116 0f03       |    |		Execute_Immediate	Equal,0x3
0117 6812       |h   |		Jump_Zero	0x12a
0118 e405       |    |		Load	0x2,0x5								; Debug Table 0x5.0xf = 0x118,0xc
0119 0ffb       |    |		Execute_Immediate	Equal,-0x5
011a 6805       |h   |		Jump_Zero	0x120
011b e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x10 = 0x11b,0xd
011c e404       |    |		Load	0x2,0x4
011d 8217       |    |		Call	0x1,0x17
011e c402       |    |		Store	0x2,0x2
011f 7807       |x   |		Jump	0x127
0120 e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x11 = 0x120,0xe
0121 4801       |H   |		Short_Literal	0x1
0122 e405       |    |		Load	0x2,0x5
0123 e404       |    |		Load	0x2,0x4
0124 01cf       |    |		Execute	Vector,Slice_Read
0125 8217       |    |		Call	0x1,0x17
0126 c402       |    |		Store	0x2,0x2
0127 e406       |    |		Load	0x2,0x6								; Debug Table 0x5.0x12 = 0x127,0xf
0128 7001       |p   |		Jump_Nonzero	0x12a
0129 7fde       |    |		Jump	0x108								; Debug Table 0x5.0x13 = 0x129,0x8
012a e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x14 = 0x12a,0x10
012b 0f03       |    |		Execute_Immediate	Equal,0x3
012c 6803       |h   |		Jump_Zero	0x130
012d e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x15 = 0x12d,0x11
012e 8212       |    |		Call	0x1,0x12
012f c402       |    |		Store	0x2,0x2
0130 e222       | "  |		Load	0x1,0x22							; Debug Table 0x5.0x16 = 0x130,0x12
0131 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0132 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0133			TRAP_00d8:
0133 00d8       |    |		Load_Top	At_Offset_0
0134 0107       |    |		Execute	Exception,Get_Name
0135 4920       |I   |		Short_Literal	0x120
0136 492f       |I/  |		Short_Literal	0x12f
0137 0262       | b  |		Execute	Discrete,In_Range
0138 6802       |h   |		Jump_Zero	0x13b
0139 e407       |    |		Load	0x2,0x7								; Debug Table 0x5.0x17 = 0x139,0x13
013a 0101       |    |		Execute	Exception,Reraise
013b e222       | "  |		Load	0x1,0x22							; Debug Table 0x5.0x18 = 0x13b,0x14
013c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
013d e407       |    |		Load	0x2,0x7								; Debug Table 0x5.0x19 = 0x13d,0x15
013e 0101       |    |		Execute	Exception,Reraise
013f 0000       |    |		.XXX[0x1]
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 e222       | "  |		Load	0x1,0x22							; Debug Table 0x6 = .DEBUG	0x0143,0x0222,0x1002,0x0000,0x0036,0x5734,0x0000,0x0115
													; Debug Table 0x6.0x0 = 0x143,0x1
0144 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0145 00ca       |    |		Action	Exit_Nullary_Function
0146 0000 0000  |    |		.XXX[0x2]
0148 0000 0000  |    |		.LITERAL	{0x00000000, 0x00365744}
014c 0000 0000  |    |		.BLANK	0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug Table
0150 ; --------------------------------------------------------------------------------------
0150 0003 0007  |    |		.CONST	0x0003,0x0007
0152 000b 018a  |    |		.DEBUG	0x000b,0x018a,0x8000,0x0000,0x0036,0x5734,0x0000,0x0009
015a 0015 0196  |    |		.DEBUG	0x0015,0x0196,0x8000,0x0000,0x0036,0x5744,0x0000,0x0007
0162 002b 019a  | +  |		.DEBUG	0x002b,0x019a,0x4000,0x0000,0x0036,0x5734,0x0000,0x0027
016a 0032 01a2  | 2  |		.DEBUG	0x0032,0x01a2,0x4000,0x0000,0x0036,0x5744,0x0000,0x0008
0172 004b 01ac  | K  |		.DEBUG	0x004b,0x01ac,0x1001,0x0000,0x0036,0x5734,0x0000,0x00e9
017a 00db 01ec  |    |		.DEBUG	0x00db,0x01ec,0x1001,0x0000,0x0036,0x5734,0x0000,0x00ff
0182 0143 0222  | C "|		.DEBUG	0x0143,0x0222,0x1002,0x0000,0x0036,0x5734,0x0000,0x0115
018a ; --------------------------------------------------------------------------------------
018a ; Debug3 Subtable 0x0
018a ; --------------------------------------------------------------------------------------
018a 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
018c 000b ffff  |    |		.CONST	0x000b,0xffff
018e 000b fffe  |    |		.CONST	0x000b,0xfffe
0190 000b fffd  |    |		.CONST	0x000b,0xfffd
0192 000b fffc  |    |		.CONST	0x000b,0xfffc
0194 0010 fffb  |    |		.CONST	0x0010,0xfffb
0196 ; --------------------------------------------------------------------------------------
0196 ; Debug3 Subtable 0x1
0196 ; --------------------------------------------------------------------------------------
0196 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
0198 0015 ffff  |    |		.CONST	0x0015,0xffff
019a ; --------------------------------------------------------------------------------------
019a ; Debug3 Subtable 0x2
019a ; --------------------------------------------------------------------------------------
019a 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
019c 002b ffff  | +  |		.CONST	0x002b,0xffff
019e 002d fffe  | -  |		.CONST	0x002d,0xfffe
01a0 002f fffd  | /  |		.CONST	0x002f,0xfffd
01a2 ; --------------------------------------------------------------------------------------
01a2 ; Debug3 Subtable 0x3
01a2 ; --------------------------------------------------------------------------------------
01a2 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
01a4 0032 ffff  | 2  |		.CONST	0x0032,0xffff
01a6 0040 fffe  | @  |		.CONST	0x0040,0xfffe
01a8 0042 fffd  | B  |		.CONST	0x0042,0xfffd
01aa 0044 fffc  | D  |		.CONST	0x0044,0xfffc
01ac ; --------------------------------------------------------------------------------------
01ac ; Debug3 Subtable 0x4
01ac ; --------------------------------------------------------------------------------------
01ac 0005 001a  |    |		.DBG3TAB	0x0005,0x001a
01ae 004b ffff  | K  |		.CONST	0x004b,0xffff
01b0 004f fffe  | O  |		.CONST	0x004f,0xfffe
01b2 0051 fffd  | Q  |		.CONST	0x0051,0xfffd
01b4 0054 fffc  | T  |		.CONST	0x0054,0xfffc
01b6 0055 fffb  | U  |		.CONST	0x0055,0xfffb
01b8 0056 0001  | V  |		.CONST	0x0056,0x0001
01ba 0065 0002  | e  |		.CONST	0x0065,0x0002
01bc 006c 0003  | l  |		.CONST	0x006c,0x0003
01be 006e 0004  | n  |		.CONST	0x006e,0x0004
01c0 0077 0005  | w  |		.CONST	0x0077,0x0005
01c2 007e 0006  | ~  |		.CONST	0x007e,0x0006
01c4 0085 0007  |    |		.CONST	0x0085,0x0007
01c6 0087 0008  |    |		.CONST	0x0087,0x0008
01c8 008a 0009  |    |		.CONST	0x008a,0x0009
01ca 008c 000a  |    |		.CONST	0x008c,0x000a
01cc 0090 000b  |    |		.CONST	0x0090,0x000b
01ce 0095 000c  |    |		.CONST	0x0095,0x000c
01d0 009c 000d  |    |		.CONST	0x009c,0x000d
01d2 009f 000e  |    |		.CONST	0x009f,0x000e
01d4 00a2 000f  |    |		.CONST	0x00a2,0x000f
01d6 00a4 0010  |    |		.CONST	0x00a4,0x0010
01d8 00a6 0011  |    |		.CONST	0x00a6,0x0011
01da 00a8 0012  |    |		.CONST	0x00a8,0x0012
01dc 00b4 0013  |    |		.CONST	0x00b4,0x0013
01de 00be 0014  |    |		.CONST	0x00be,0x0014
01e0 00c0 0015  |    |		.CONST	0x00c0,0x0015
01e2 00c3 0016  |    |		.CONST	0x00c3,0x0016
01e4 00cc 0017  |    |		.CONST	0x00cc,0x0017
01e6 00ce 0018  |    |		.CONST	0x00ce,0x0018
01e8 00d0 0019  |    |		.CONST	0x00d0,0x0019
01ea 00d3 001a  |    |		.CONST	0x00d3,0x001a
01ec ; --------------------------------------------------------------------------------------
01ec ; Debug3 Subtable 0x5
01ec ; --------------------------------------------------------------------------------------
01ec 0005 0015  |    |		.DBG3TAB	0x0005,0x0015
01ee 00db ffff  |    |		.CONST	0x00db,0xffff
01f0 00df fffe  |    |		.CONST	0x00df,0xfffe
01f2 00e1 fffd  |    |		.CONST	0x00e1,0xfffd
01f4 00e4 fffc  |    |		.CONST	0x00e4,0xfffc
01f6 00e5 fffb  |    |		.CONST	0x00e5,0xfffb
01f8 00e6 0001  |    |		.CONST	0x00e6,0x0001
01fa 00e9 0002  |    |		.CONST	0x00e9,0x0002
01fc 00eb 0003  |    |		.CONST	0x00eb,0x0003
01fe 00ec 0004  |    |		.CONST	0x00ec,0x0004
0200 00fb 0005  |    |		.CONST	0x00fb,0x0005
0202 0102 0006  |    |		.CONST	0x0102,0x0006
0204 0104 0007  |    |		.CONST	0x0104,0x0007
0206 0108 0009  |    |		.CONST	0x0108,0x0009
0208 0113 000a  |    |		.CONST	0x0113,0x000a
020a 0115 000b  |    |		.CONST	0x0115,0x000b
020c 0118 000c  |    |		.CONST	0x0118,0x000c
020e 011b 000d  |    |		.CONST	0x011b,0x000d
0210 0120 000e  |    |		.CONST	0x0120,0x000e
0212 0127 000f  | '  |		.CONST	0x0127,0x000f
0214 0129 0008  | )  |		.CONST	0x0129,0x0008
0216 012a 0010  | *  |		.CONST	0x012a,0x0010
0218 012d 0011  | -  |		.CONST	0x012d,0x0011
021a 0130 0012  | 0  |		.CONST	0x0130,0x0012
021c 0139 0013  | 9  |		.CONST	0x0139,0x0013
021e 013b 0014  | ;  |		.CONST	0x013b,0x0014
0220 013d 0015  | =  |		.CONST	0x013d,0x0015
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x6
0222 ; --------------------------------------------------------------------------------------
0222 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0224 0143 0001  | C  |		.CONST	0x0143,0x0001
0226 0000 0000  |    |		.BLANK	0000[0x1da]