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

⟦85242013b⟧ SEG

    Length: 3072 (0xc00)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »600083.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »600083.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »600083.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »600083.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »600083.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »600083.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 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a4       |    |		.CONST	0x00a4								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0031       | 1  |		.CONST	0x0031								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x0352,0x8000,0x0000,0x0036,0x5694,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 0129       | )  |		Execute	Any,Make_Visible
000e e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0010 0129       | )  |		Execute	Any,Make_Visible
0011 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x4 = 0x11,0xfffb
0012 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0013 0129       | )  |		Execute	Any,Make_Visible
0014 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x5 = 0x14,0xfffa
													; Debug Table 0x0.0x6 = 0x14,0xfff9
													; Debug Table 0x0.0x7 = 0x14,0xfff8
													; Debug Table 0x0.0x8 = 0x14,0xfff7
													; Debug Table 0x0.0x9 = 0x14,0xfff6
0015 1922       | "  |		Execute	Package,Field_Reference,Field_Number 0x22
0016 0129       | )  |		Execute	Any,Make_Visible
0017 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x17,0xfff5
0019 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x19,0xfff4
001b 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x1b,0xfff3
001d 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x1d,0xfff2
001f 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x1f,0xfff1
0021 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x21,0xfff0
0023 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x23,0xffef
0025 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x25,0xffee
0027 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x27,0xffed
0029 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x29,0xffec
002b 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x14 = 0x2b,0xffeb
002d 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x15 = 0x2d,0xffea
002f 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x16 = 0x2f,0xffe9
0031 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x17 = 0x31,0xffe8
0033 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x18 = 0x33,0xffe7
0035 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x19 = 0x35,0xffe6
0037 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1a = 0x37,0xffe5
0039 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1b = 0x39,0xffe4
003b 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1c = 0x3b,0xffe3
003d 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1d = 0x3d,0xffe2
003f 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1e = 0x3f,0xffe1
0041 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1f = 0x41,0xffe0
0043 00bf       |    |		Action	Accept_Activation
0044 e002       |    |		Load	0x0,0x2								; Debug Table 0x1 = .DEBUG	0x0044,0x0394,0x8000,0x0000,0x0036,0x56a4,0x0000,0x0013
													; Debug Table 0x1.0x0 = 0x44,0xffff
													; Debug Table 0x1.0x1 = 0x44,0xfffe
0045 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0046 02c7       |    |		Declare_Variable	Any
0047 e227       | '  |		Load	0x1,0x27
0048 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0049 0092 0244  |   D|		Action	Push_String_Extended,0x244					; "Action taken"
													; Debug Table 0x1.0x2 = 0x49,0xfffd
004b 0092 0245  |   E|		Action	Push_String_Extended,0x245					; "raise error"
													; Debug Table 0x1.0x3 = 0x4b,0xfffc
004d 0092 0246  |   F|		Action	Push_String_Extended,0x246					; "propagate error"
													; Debug Table 0x1.0x4 = 0x4d,0xfffb
004f 0092 0247  |   G|		Action	Push_String_Extended,0x247					; "handle error"
													; Debug Table 0x1.0x5 = 0x4f,0xfffa
0051 e20e       |    |		Load	0x1,0xe								; Debug Table 0x1.0x6 = 0x51,0xfff9
0052 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0053 e20e       |    |		Load	0x1,0xe								; Debug Table 0x1.0x7 = 0x53,0xfff8
0054 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0055 e20e       |    |		Load	0x1,0xe								; Debug Table 0x1.0x8 = 0x55,0xfff7
0056 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0057 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x1.0x9 = 0x57,0xfff6
													; Debug Table 0x1.0xa = 0x57,0xfff5
0058 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0xb = 0x58,0xfff4
0059 61e6       |a   |		Indirect_Literal	Discrete,0x240,{0x00092413, 0x000000b0}		; 0x92413 = LOG
005a 02a0       |    |		Declare_Subprogram	Null_Subprogram
005b 038e       |    |		Declare_Type	Package,Defined
005c e003       |    |		Load	0x0,0x3
005d 4801       |H   |		Short_Literal	0x1
005e e230       | 0  |		Load	0x1,0x30
005f 020e       |    |		Execute	Module,Augment_Imports
0060 0387       |    |		Declare_Variable	Package
0061 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0xc = 0x61,0xfff3
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 029d 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call			; Debug Table 0x1.0xd = 0x63,0xfff2
0065 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0xe = 0x65,0xfff1
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26				; Debug Table 0x1.0xf = 0x67,0xfff0
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x10 = 0x69,0xffef
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x11 = 0x6b,0xffee
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x12 = 0x6d,0xffed
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x13 = 0x6f,0xffec
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x14 = 0x71,0xffeb
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x15 = 0x73,0xffea
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x16 = 0x75,0xffe9
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x17 = 0x77,0xffe8
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0x18 = 0x79,0xffe7
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0x19 = 0x7b,0xffe6
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x1a = 0x7d,0xffe5
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x1b = 0x7f,0xffe4
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x1.0x1c = 0x81,0xffe3
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x1.0x1d = 0x83,0xffe2
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21				; Debug Table 0x1.0x1e = 0x85,0xffe1
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22				; Debug Table 0x1.0x1f = 0x87,0xffe0
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23				; Debug Table 0x1.0x20 = 0x89,0xffdf
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24				; Debug Table 0x1.0x21 = 0x8b,0xffde
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25				; Debug Table 0x1.0x22 = 0x8d,0xffdd
008e 00c7       |    |		Action	Elaborate_Subprogram
008f e004       |    |		Load	0x0,0x4								; Debug Table 0x1.0x23 = 0x8f,0xffdc
0090 e005       |    |		Load	0x0,0x5
0091 e006       |    |		Load	0x0,0x6
0092 e007       |    |		Load	0x0,0x7
0093 a008       |    |		Store_Unchecked	0x0,0x8
0094 e009       |    |		Load	0x0,0x9
0095 00b6       |    |		Action	Make_Scope
0096 e00a       |    |		Load	0x0,0xa
0097 e001       |    |		Load	0x0,0x1
0098 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0099 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
009a e00b       |    |		Load	0x0,0xb
009b e00c       |    |		Load	0x0,0xc
009c e00d       |    |		Load	0x0,0xd
009d 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
009e e002       |    |		Load	0x0,0x2
009f 4810       |H   |		Short_Literal	0x10
00a0 e230       | 0  |		Load	0x1,0x30
00a1 020e       |    |		Execute	Module,Augment_Imports
00a2 e230       | 0  |		Load	0x1,0x30
00a3 020f       |    |		Execute	Module,Activate
00a4			BODY_0008:
00a4 e227       | '  |		Load	0x1,0x27							; Debug Table 0x1.0x24 = 0xa4,0x1
00a5 0120       |    |		Execute	Any,Is_Value
00a6 6803       |h   |		Jump_Zero	0xaa
00a7 e002       |    |		Load	0x0,0x2
00a8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a9 7801       |x   |		Jump	0xab
00aa e227       | '  |		Load	0x1,0x27
00ab 0092 0248  |   H|		Action	Push_String_Extended,0x248					; "Environment Log"
00ad e002       |    |		Load	0x0,0x2
00ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00af c227       | '  |		Store	0x1,0x27
00b0 00bc       |    |		Action	Signal_Activated
00b1 00bb       |    |		Action	Signal_Completion
00b2 0000 0000  |    |		.BLANK	0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bf       |    |		.CONST	0x00bf								; Address of begin
00b9 00c9       |    |		.CONST	0x00c9								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e20f       |    |		Load	0x1,0xf								; Debug Table 0x2 = .DEBUG	0x00bb,0x03e0,0x0001,0x0000,0x0036,0x5694,0x0000,0x005a
													; Debug Table 0x2.0x0 = 0xbb,0xffff
00bc 0322       | "  |		Declare_Variable	Record
00bd e402       |    |		Load	0x2,0x2
00be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bf			BODY_00b8:
00bf e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x1 = 0xbf,0x1
00c0 e5fd       |    |		Load	0x2,-0x3
00c1 e5fe       |    |		Load	0x2,-0x2
00c2 e5ff       |    |		Load	0x2,-0x1
00c3 e001       |    |		Load	0x0,0x1
00c4 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00c5 00d1       |    |		Pop_Control	Pop_Count_1
00c6 e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x2 = 0xc6,0x2
00c7 8212       |    |		Call	0x1,0x12
00c8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00c9			TRAP_00b8:
00c9 0007       |    |		Action	Break_Optional
00ca 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x2.0x3 = 0xca,0x3
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3 = .DEBUG	0x00d3,0x03ea,0x0001,0x0000,0x0036,0x5694,0x0000,0x006a
													; Debug Table 0x3.0x0 = 0xd3,0x1
00d4 e230       | 0  |		Load	0x1,0x30
00d5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00df       |    |		.CONST	0x00df								; Address of begin
00d9 00ef       |    |		.CONST	0x00ef								; Address of exception handler
00da 0002       |    |		.CONST	0x0002								; Number of locals
00db			INIT_00d8:
00db e20f       |    |		Load	0x1,0xf								; Debug Table 0x4 = .DEBUG	0x00db,0x03ee,0x0001,0x0000,0x0036,0x5694,0x0000,0x0072
													; Debug Table 0x4.0x0 = 0xdb,0xffff
00dc 0322       | "  |		Declare_Variable	Record
00dd e402       |    |		Load	0x2,0x2
00de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00df			BODY_00d8:
00df e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x1 = 0xdf,0x1
00e0 e5fd       |    |		Load	0x2,-0x3
00e1 e5fe       |    |		Load	0x2,-0x2
00e2 e5ff       |    |		Load	0x2,-0x1
00e3 e001       |    |		Load	0x0,0x1
00e4 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00e5 00d1       |    |		Pop_Control	Pop_Count_1
00e6 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x2 = 0xe6,0x2
00e7 e229       | )  |		Load	0x1,0x29
00e8 e228       | (  |		Load	0x1,0x28
00e9 e001       |    |		Load	0x0,0x1
00ea 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00eb 00d1       |    |		Pop_Control	Pop_Count_1
00ec e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x3 = 0xec,0x3
00ed 8212       |    |		Call	0x1,0x12
00ee 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00ef			TRAP_00d8:
00ef 0007       |    |		Action	Break_Optional
00f0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x4.0x4 = 0xf0,0x4
00f1 0000 0000  |    |		.BLANK	0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff       |    |		.CONST	0x00ff								; Address of begin
00f9 010f       |    |		.CONST	0x010f								; Address of exception handler
00fa 0002       |    |		.CONST	0x0002								; Number of locals
00fb			INIT_00f8:
00fb e20f       |    |		Load	0x1,0xf								; Debug Table 0x5 = .DEBUG	0x00fb,0x03fa,0x0001,0x0000,0x0036,0x5694,0x0000,0x0082
													; Debug Table 0x5.0x0 = 0xfb,0xffff
00fc 0322       | "  |		Declare_Variable	Record
00fd e402       |    |		Load	0x2,0x2
00fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ff			BODY_00f8:
00ff e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x1 = 0xff,0x1
0100 e5fd       |    |		Load	0x2,-0x3
0101 e5fe       |    |		Load	0x2,-0x2
0102 e5ff       |    |		Load	0x2,-0x1
0103 e001       |    |		Load	0x0,0x1
0104 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0105 00d1       |    |		Pop_Control	Pop_Count_1
0106 e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x2 = 0x106,0x2
0107 e229       | )  |		Load	0x1,0x29
0108 e228       | (  |		Load	0x1,0x28
0109 e001       |    |		Load	0x0,0x1
010a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
010b 00d1       |    |		Pop_Control	Pop_Count_1
010c e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x3 = 0x10c,0x3
010d 8212       |    |		Call	0x1,0x12
010e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
010f			TRAP_00f8:
010f 0007       |    |		Action	Break_Optional
0110 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x5.0x4 = 0x110,0x4
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011f       |    |		.CONST	0x011f								; Address of begin
0119 012f       | /  |		.CONST	0x012f								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b e20f       |    |		Load	0x1,0xf								; Debug Table 0x6 = .DEBUG	0x011b,0x0406,0x0001,0x0000,0x0036,0x5694,0x0000,0x0092
													; Debug Table 0x6.0x0 = 0x11b,0xffff
011c 0322       | "  |		Declare_Variable	Record
011d e402       |    |		Load	0x2,0x2
011e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011f			BODY_0118:
011f e402       |    |		Load	0x2,0x2								; Debug Table 0x6.0x1 = 0x11f,0x1
0120 e5fd       |    |		Load	0x2,-0x3
0121 e5fe       |    |		Load	0x2,-0x2
0122 e5ff       |    |		Load	0x2,-0x1
0123 e001       |    |		Load	0x0,0x1
0124 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0125 00d1       |    |		Pop_Control	Pop_Count_1
0126 e402       |    |		Load	0x2,0x2								; Debug Table 0x6.0x2 = 0x126,0x2
0127 e22b       | +  |		Load	0x1,0x2b
0128 e228       | (  |		Load	0x1,0x28
0129 e001       |    |		Load	0x0,0x1
012a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
012b 00d1       |    |		Pop_Control	Pop_Count_1
012c e402       |    |		Load	0x2,0x2								; Debug Table 0x6.0x3 = 0x12c,0x3
012d 8212       |    |		Call	0x1,0x12
012e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
012f			TRAP_0118:
012f 0007       |    |		Action	Break_Optional
0130 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0x4 = 0x130,0x4
0131 0000 0000  |    |		.BLANK	0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013f       | ?  |		.CONST	0x013f								; Address of begin
0139 0148       | H  |		.CONST	0x0148								; Address of exception handler
013a 0002       |    |		.CONST	0x0002								; Number of locals
013b			INIT_0138:
013b e20f       |    |		Load	0x1,0xf								; Debug Table 0x7 = .DEBUG	0x013b,0x0412,0x0001,0x0000,0x0036,0x5694,0x0000,0x00a2
													; Debug Table 0x7.0x0 = 0x13b,0xffff
013c 0322       | "  |		Declare_Variable	Record
013d e402       |    |		Load	0x2,0x2
013e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
013f			BODY_0138:
013f e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0x1 = 0x13f,0x1
0140 e229       | )  |		Load	0x1,0x29
0141 e228       | (  |		Load	0x1,0x28
0142 e001       |    |		Load	0x0,0x1
0143 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0144 00d1       |    |		Pop_Control	Pop_Count_1
0145 e402       |    |		Load	0x2,0x2								; Debug Table 0x7.0x2 = 0x145,0x2
0146 8212       |    |		Call	0x1,0x12
0147 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0148			TRAP_0138:
0148 0007       |    |		Action	Break_Optional
0149 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x7.0x3 = 0x149,0x3
014a 0000 0000  |    |		.BLANK	0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0157       | W  |		.CONST	0x0157								; Address of begin
0151 0160       | `  |		.CONST	0x0160								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 e20f       |    |		Load	0x1,0xf								; Debug Table 0x8 = .DEBUG	0x0153,0x041c,0x0001,0x0000,0x0036,0x5694,0x0000,0x00aa
													; Debug Table 0x8.0x0 = 0x153,0xffff
0154 0322       | "  |		Declare_Variable	Record
0155 e402       |    |		Load	0x2,0x2
0156 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0157			BODY_0150:
0157 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x1 = 0x157,0x1
0158 e22a       | *  |		Load	0x1,0x2a
0159 e228       | (  |		Load	0x1,0x28
015a e001       |    |		Load	0x0,0x1
015b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
015c 00d1       |    |		Pop_Control	Pop_Count_1
015d e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x2 = 0x15d,0x2
015e 8212       |    |		Call	0x1,0x12
015f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0160			TRAP_0150:
0160 0007       |    |		Action	Break_Optional
0161 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x8.0x3 = 0x161,0x3
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016f       | o  |		.CONST	0x016f								; Address of begin
0169 0178       | x  |		.CONST	0x0178								; Address of exception handler
016a 0002       |    |		.CONST	0x0002								; Number of locals
016b			INIT_0168:
016b e20f       |    |		Load	0x1,0xf								; Debug Table 0x9 = .DEBUG	0x016b,0x0426,0x0001,0x0000,0x0036,0x5694,0x0000,0x00b2
													; Debug Table 0x9.0x0 = 0x16b,0xffff
016c 0322       | "  |		Declare_Variable	Record
016d e402       |    |		Load	0x2,0x2
016e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
016f			BODY_0168:
016f e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0x1 = 0x16f,0x1
0170 e22b       | +  |		Load	0x1,0x2b
0171 e228       | (  |		Load	0x1,0x28
0172 e001       |    |		Load	0x0,0x1
0173 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0174 00d1       |    |		Pop_Control	Pop_Count_1
0175 e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0x2 = 0x175,0x2
0176 8212       |    |		Call	0x1,0x12
0177 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0178			TRAP_0168:
0178 0007       |    |		Action	Break_Optional
0179 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x9.0x3 = 0x179,0x3
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0186       |    |		.CONST	0x0186								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa = .DEBUG	0x0183,0x0430,0x0001,0x0000,0x0036,0x5694,0x0000,0x00ba
													; Debug Table 0xa.0x0 = 0x183,0x1
0184 a22c       | ,  |		Store_Unchecked	0x1,0x2c
0185 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0186			TRAP_0180:
0186 0007       |    |		Action	Break_Optional
0187 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xa.0x1 = 0x187,0x2
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 018e       |    |		.CONST	0x018e								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb = .DEBUG	0x018b,0x0436,0x0001,0x0000,0x0036,0x5694,0x0000,0x00c2
													; Debug Table 0xb.0x0 = 0x18b,0x1
018c a22d       | -  |		Store_Unchecked	0x1,0x2d
018d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
018e			TRAP_0188:
018e 0007       |    |		Action	Break_Optional
018f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xb.0x1 = 0x18f,0x2
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0196       |    |		.CONST	0x0196								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc = .DEBUG	0x0193,0x043c,0x0001,0x0000,0x0036,0x5694,0x0000,0x00ca
													; Debug Table 0xc.0x0 = 0x193,0x1
0194 a22e       | .  |		Store_Unchecked	0x1,0x2e
0195 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0196			TRAP_0190:
0196 0007       |    |		Action	Break_Optional
0197 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xc.0x1 = 0x197,0x2
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b e22c       | ,  |		Load	0x1,0x2c							; Debug Table 0xd = .DEBUG	0x019b,0x0442,0x0002,0x0000,0x0036,0x5694,0x0000,0x00d2
													; Debug Table 0xd.0x0 = 0x19b,0x1
019c 00ca       |    |		Action	Exit_Nullary_Function
019d 0000 0000  |    |		.XXX[0x3]
019f 0000       |    |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 e22d       | -  |		Load	0x1,0x2d							; Debug Table 0xe = .DEBUG	0x01a3,0x0446,0x0002,0x0000,0x0036,0x5694,0x0000,0x00d7
													; Debug Table 0xe.0x0 = 0x1a3,0x1
01a4 00ca       |    |		Action	Exit_Nullary_Function
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab e22e       | .  |		Load	0x1,0x2e							; Debug Table 0xf = .DEBUG	0x01ab,0x044a,0x0002,0x0000,0x0036,0x5694,0x0000,0x00dc
													; Debug Table 0xf.0x0 = 0x1ab,0x1
01ac 00ca       |    |		Action	Exit_Nullary_Function
01ad 0000 0000  |    |		.XXX[0x3]
01af 0000       |    |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 e230       | 0  |		Load	0x1,0x30							; Debug Table 0x10 = .DEBUG	0x01b3,0x044e,0x0001,0x0000,0x0036,0x5694,0x0000,0x00e1
													; Debug Table 0x10.0x0 = 0x1b3,0x1
01b4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01b5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b6 0000 0000  |    |		.XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb e230       | 0  |		Load	0x1,0x30							; Debug Table 0x11 = .DEBUG	0x01bb,0x0452,0x0001,0x0000,0x0036,0x5694,0x0000,0x00e5
													; Debug Table 0x11.0x0 = 0x1bb,0x1
01bc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01bd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01be 0000 0000  |    |		.XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x12 = .DEBUG	0x01c3,0x0456,0x0001,0x0000,0x0036,0x5694,0x0000,0x00e9
													; Debug Table 0x12.0x0 = 0x1c3,0x1
01c4 4800       |H   |		Short_Literal	0x0
01c5 0092 0249  |   I|		Action	Push_String_Extended,0x249					; "System Shutdown"
01c7 8210       |    |		Call	0x1,0x10
01c8 0092 024a  |   J|		Action	Push_String_Extended,0x24a					; "Error_Reporting"
01ca 8211       |    |		Call	0x1,0x11
01cb 821f       |    |		Call	0x1,0x1f							; Debug Table 0x12.0x1 = 0x1cb,0x2
01cc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01dd       |    |		.CONST	0x01dd								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0006       |    |		.CONST	0x0006								; Number of locals
01d3			INIT_01d0:
01d3 e230       | 0  |		Load	0x1,0x30							; Debug Table 0x13 = .DEBUG	0x01d3,0x045c,0x2801,0x0002,0x0036,0x5694,0x0000,0x00ed
													; Debug Table 0x13.0x0 = 0x1d3,0xffff
01d4 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
01d5 00c6       |    |		Action	Check_Subprogram_Elaborated
01d6 e5fd       |    |		Load	0x2,-0x3
01d7 4ffe       |O   |		Short_Literal	-0x2
01d8 4802       |H   |		Short_Literal	0x2
01d9 0099       |    |		Action	Reference_Dynamic
01da 6061       |`a  |		Indirect_Literal	Discrete,0x23c,{0x00000000, 0x003656a4}
01db 4abf       |J   |		Short_Literal	0x2bf
01dc 4806       |H   |		Short_Literal	0x6
01dd			BODY_01d0:
01dd e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x13.0x1 = 0x1dd,0x1
01de e5fd       |    |		Load	0x2,-0x3
01df 0119       |    |		Execute	Any,Check_In_Formal_Type
01e0 e402       |    |		Load	0x2,0x2
01e1 4803       |H   |		Short_Literal	0x3
01e2 4802       |H   |		Short_Literal	0x2
01e3 0099       |    |		Action	Reference_Dynamic
01e4 4804       |H   |		Short_Literal	0x4
01e5 4802       |H   |		Short_Literal	0x2
01e6 0099       |    |		Action	Reference_Dynamic
01e7 e230       | 0  |		Load	0x1,0x30
01e8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01e9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01ea 0000 0000  |    |		.BLANK	0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 e230       | 0  |		Load	0x1,0x30							; Debug Table 0x14 = .DEBUG	0x01f3,0x0462,0x0001,0x0000,0x0036,0x5694,0x0000,0x0107
													; Debug Table 0x14.0x0 = 0x1f3,0x1
01f4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb e230       | 0  |		Load	0x1,0x30							; Debug Table 0x15 = .DEBUG	0x01fb,0x0466,0x0001,0x0000,0x0036,0x5694,0x0000,0x010b
													; Debug Table 0x15.0x0 = 0x1fb,0x1
01fc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01fd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01fe 0000 0000  |    |		.XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 e230       | 0  |		Load	0x1,0x30							; Debug Table 0x16 = .DEBUG	0x0203,0x046a,0x0002,0x0000,0x0036,0x5694,0x0000,0x010f
													; Debug Table 0x16.0x0 = 0x203,0x1
0204 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0205 00d8       |    |		Load_Top	At_Offset_0
0206 0120       |    |		Execute	Any,Is_Value
0207 7002       |p   |		Jump_Nonzero	0x20a
0208 00d8       |    |		Load_Top	At_Offset_0
0209 011e       |    |		Execute	Any,Convert
020a 00ca       |    |		Action	Exit_Nullary_Function
020b 0000 0000  |    |		.BLANK	0000[0x5]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021c       |    |		.CONST	0x021c								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0002       |    |		.CONST	0x0002								; Number of locals
0213			INIT_0210:
0213 e20d       |    |		Load	0x1,0xd								; Debug Table 0x17 = .DEBUG	0x0213,0x046e,0x0001,0x0000,0x0036,0x5694,0x0000,0x0116
													; Debug Table 0x17.0x0 = 0x213,0xffff
0214 0322       | "  |		Declare_Variable	Record
0215 e402       |    |		Load	0x2,0x2
0216 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0217 e5fe       |    |		Load	0x2,-0x2
0218 e5fd       |    |		Load	0x2,-0x3
0219 8210       |    |		Call	0x1,0x10
021a e402       |    |		Load	0x2,0x2
021b 017d       | }  |		Execute	Record,Structure_Write
021c			BODY_0210:
021c e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x17.0x1 = 0x21c,0x1
021d e402       |    |		Load	0x2,0x2
021e e5ff       |    |		Load	0x2,-0x1
021f 8211       |    |		Call	0x1,0x11
0220 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0221 0000 0000  |    |		.BLANK	0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0232       | 2  |		.CONST	0x0232								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b e20f       |    |		Load	0x1,0xf								; Debug Table 0x18 = .DEBUG	0x022b,0x0474,0x0001,0x0000,0x0036,0x56a4,0x0000,0x00b2
													; Debug Table 0x18.0x0 = 0x22b,0xffff
022c 0322       | "  |		Declare_Variable	Record
022d e402       |    |		Load	0x2,0x2
022e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
022f e5fe       |    |		Load	0x2,-0x2
0230 e402       |    |		Load	0x2,0x2
0231 017d       | }  |		Execute	Record,Structure_Write
0232			BODY_0228:
0232 e402       |    |		Load	0x2,0x2								; Debug Table 0x18.0x1 = 0x232,0x1
0233 e5ff       |    |		Load	0x2,-0x1
0234 0092 024b  |   K|		Action	Push_String_Extended,0x24b					; "Error_Action"
0236 e001       |    |		Load	0x0,0x1
0237 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0238 00d1       |    |		Pop_Control	Pop_Count_1
0239 e402       |    |		Load	0x2,0x2								; Debug Table 0x18.0x2 = 0x239,0x2
023a 8212       |    |		Call	0x1,0x12
023b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
023c 0000 0000  |    |		.LITERAL	{0x00000000, 0x003656a4}
0240 0009 2413  |  $ |		.LITERAL	{0x00092413, 0x000000b0}
0244 ; --------------------------------------------------------------------------------------
0244 ; STRING TABLE
0244 ; --------------------------------------------------------------------------------------
0244 0012       |    |		.STRTAB	0x0012->0x024d							; "Action taken"
0245 001c       |    |		.STRTAB	0x001c->0x0253							; "raise error"
0246 0025       | %  |		.STRTAB	0x0025->0x0258							; "propagate error"
0247 0032       | 2  |		.STRTAB	0x0032->0x0260							; "handle error"
0248 003c       | <  |		.STRTAB	0x003c->0x0266							; "Environment Log"
0249 0049       | I  |		.STRTAB	0x0049->0x026d							; "System Shutdown"
024a 0056       | V  |		.STRTAB	0x0056->0x0275							; "Error_Reporting"
024b 0063       | c  |		.STRTAB	0x0063->0x027c							; "Error_Action"
024c 006d       | m  |		.STREND 0x006d->0x0282
024d 4163 7469  |Acti|		.STRTAB_STRINGS
0283 0000 0000  |    |		.BLANK	0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0003 0019  |    |		.CONST	0x0003,0x0019
028a 000b 0352  |   R|		.DEBUG	0x000b,0x0352,0x8000,0x0000,0x0036,0x5694,0x0000,0x0009
0292 0044 0394  | D  |		.DEBUG	0x0044,0x0394,0x8000,0x0000,0x0036,0x56a4,0x0000,0x0013
029a 00bb 03e0  |    |		.DEBUG	0x00bb,0x03e0,0x0001,0x0000,0x0036,0x5694,0x0000,0x005a
02a2 00d3 03ea  |    |		.DEBUG	0x00d3,0x03ea,0x0001,0x0000,0x0036,0x5694,0x0000,0x006a
02aa 00db 03ee  |    |		.DEBUG	0x00db,0x03ee,0x0001,0x0000,0x0036,0x5694,0x0000,0x0072
02b2 00fb 03fa  |    |		.DEBUG	0x00fb,0x03fa,0x0001,0x0000,0x0036,0x5694,0x0000,0x0082
02ba 011b 0406  |    |		.DEBUG	0x011b,0x0406,0x0001,0x0000,0x0036,0x5694,0x0000,0x0092
02c2 013b 0412  | ;  |		.DEBUG	0x013b,0x0412,0x0001,0x0000,0x0036,0x5694,0x0000,0x00a2
02ca 0153 041c  | S  |		.DEBUG	0x0153,0x041c,0x0001,0x0000,0x0036,0x5694,0x0000,0x00aa
02d2 016b 0426  | k &|		.DEBUG	0x016b,0x0426,0x0001,0x0000,0x0036,0x5694,0x0000,0x00b2
02da 0183 0430  |   0|		.DEBUG	0x0183,0x0430,0x0001,0x0000,0x0036,0x5694,0x0000,0x00ba
02e2 018b 0436  |   6|		.DEBUG	0x018b,0x0436,0x0001,0x0000,0x0036,0x5694,0x0000,0x00c2
02ea 0193 043c  |   <|		.DEBUG	0x0193,0x043c,0x0001,0x0000,0x0036,0x5694,0x0000,0x00ca
02f2 019b 0442  |   B|		.DEBUG	0x019b,0x0442,0x0002,0x0000,0x0036,0x5694,0x0000,0x00d2
02fa 01a3 0446  |   F|		.DEBUG	0x01a3,0x0446,0x0002,0x0000,0x0036,0x5694,0x0000,0x00d7
0302 01ab 044a  |   J|		.DEBUG	0x01ab,0x044a,0x0002,0x0000,0x0036,0x5694,0x0000,0x00dc
030a 01b3 044e  |   N|		.DEBUG	0x01b3,0x044e,0x0001,0x0000,0x0036,0x5694,0x0000,0x00e1
0312 01bb 0452  |   R|		.DEBUG	0x01bb,0x0452,0x0001,0x0000,0x0036,0x5694,0x0000,0x00e5
031a 01c3 0456  |   V|		.DEBUG	0x01c3,0x0456,0x0001,0x0000,0x0036,0x5694,0x0000,0x00e9
0322 01d3 045c  |   \|		.DEBUG	0x01d3,0x045c,0x2801,0x0002,0x0036,0x5694,0x0000,0x00ed
032a 01f3 0462  |   b|		.DEBUG	0x01f3,0x0462,0x0001,0x0000,0x0036,0x5694,0x0000,0x0107
0332 01fb 0466  |   f|		.DEBUG	0x01fb,0x0466,0x0001,0x0000,0x0036,0x5694,0x0000,0x010b
033a 0203 046a  |   j|		.DEBUG	0x0203,0x046a,0x0002,0x0000,0x0036,0x5694,0x0000,0x010f
0342 0213 046e  |   n|		.DEBUG	0x0213,0x046e,0x0001,0x0000,0x0036,0x5694,0x0000,0x0116
034a 022b 0474  | + t|		.DEBUG	0x022b,0x0474,0x0001,0x0000,0x0036,0x56a4,0x0000,0x00b2
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug3 Subtable 0x0
0352 ; --------------------------------------------------------------------------------------
0352 0020 0000  |    |		.DBG3TAB	0x0020,0x0000
0354 000b ffff  |    |		.CONST	0x000b,0xffff
0356 000b fffe  |    |		.CONST	0x000b,0xfffe
0358 000b fffd  |    |		.CONST	0x000b,0xfffd
035a 000e fffc  |    |		.CONST	0x000e,0xfffc
035c 0011 fffb  |    |		.CONST	0x0011,0xfffb
035e 0014 fffa  |    |		.CONST	0x0014,0xfffa
0360 0014 fff9  |    |		.CONST	0x0014,0xfff9
0362 0014 fff8  |    |		.CONST	0x0014,0xfff8
0364 0014 fff7  |    |		.CONST	0x0014,0xfff7
0366 0014 fff6  |    |		.CONST	0x0014,0xfff6
0368 0017 fff5  |    |		.CONST	0x0017,0xfff5
036a 0019 fff4  |    |		.CONST	0x0019,0xfff4
036c 001b fff3  |    |		.CONST	0x001b,0xfff3
036e 001d fff2  |    |		.CONST	0x001d,0xfff2
0370 001f fff1  |    |		.CONST	0x001f,0xfff1
0372 0021 fff0  | !  |		.CONST	0x0021,0xfff0
0374 0023 ffef  | #  |		.CONST	0x0023,0xffef
0376 0025 ffee  | %  |		.CONST	0x0025,0xffee
0378 0027 ffed  | '  |		.CONST	0x0027,0xffed
037a 0029 ffec  | )  |		.CONST	0x0029,0xffec
037c 002b ffeb  | +  |		.CONST	0x002b,0xffeb
037e 002d ffea  | -  |		.CONST	0x002d,0xffea
0380 002f ffe9  | /  |		.CONST	0x002f,0xffe9
0382 0031 ffe8  | 1  |		.CONST	0x0031,0xffe8
0384 0033 ffe7  | 3  |		.CONST	0x0033,0xffe7
0386 0035 ffe6  | 5  |		.CONST	0x0035,0xffe6
0388 0037 ffe5  | 7  |		.CONST	0x0037,0xffe5
038a 0039 ffe4  | 9  |		.CONST	0x0039,0xffe4
038c 003b ffe3  | ;  |		.CONST	0x003b,0xffe3
038e 003d ffe2  | =  |		.CONST	0x003d,0xffe2
0390 003f ffe1  | ?  |		.CONST	0x003f,0xffe1
0392 0041 ffe0  | A  |		.CONST	0x0041,0xffe0
0394 ; --------------------------------------------------------------------------------------
0394 ; Debug3 Subtable 0x1
0394 ; --------------------------------------------------------------------------------------
0394 0024 0001  | $  |		.DBG3TAB	0x0024,0x0001
0396 0044 ffff  | D  |		.CONST	0x0044,0xffff
0398 0044 fffe  | D  |		.CONST	0x0044,0xfffe
039a 0049 fffd  | I  |		.CONST	0x0049,0xfffd
039c 004b fffc  | K  |		.CONST	0x004b,0xfffc
039e 004d fffb  | M  |		.CONST	0x004d,0xfffb
03a0 004f fffa  | O  |		.CONST	0x004f,0xfffa
03a2 0051 fff9  | Q  |		.CONST	0x0051,0xfff9
03a4 0053 fff8  | S  |		.CONST	0x0053,0xfff8
03a6 0055 fff7  | U  |		.CONST	0x0055,0xfff7
03a8 0057 fff6  | W  |		.CONST	0x0057,0xfff6
03aa 0057 fff5  | W  |		.CONST	0x0057,0xfff5
03ac 0058 fff4  | X  |		.CONST	0x0058,0xfff4
03ae 0061 fff3  | a  |		.CONST	0x0061,0xfff3
03b0 0063 fff2  | c  |		.CONST	0x0063,0xfff2
03b2 0065 fff1  | e  |		.CONST	0x0065,0xfff1
03b4 0067 fff0  | g  |		.CONST	0x0067,0xfff0
03b6 0069 ffef  | i  |		.CONST	0x0069,0xffef
03b8 006b ffee  | k  |		.CONST	0x006b,0xffee
03ba 006d ffed  | m  |		.CONST	0x006d,0xffed
03bc 006f ffec  | o  |		.CONST	0x006f,0xffec
03be 0071 ffeb  | q  |		.CONST	0x0071,0xffeb
03c0 0073 ffea  | s  |		.CONST	0x0073,0xffea
03c2 0075 ffe9  | u  |		.CONST	0x0075,0xffe9
03c4 0077 ffe8  | w  |		.CONST	0x0077,0xffe8
03c6 0079 ffe7  | y  |		.CONST	0x0079,0xffe7
03c8 007b ffe6  | {  |		.CONST	0x007b,0xffe6
03ca 007d ffe5  | }  |		.CONST	0x007d,0xffe5
03cc 007f ffe4  |    |		.CONST	0x007f,0xffe4
03ce 0081 ffe3  |    |		.CONST	0x0081,0xffe3
03d0 0083 ffe2  |    |		.CONST	0x0083,0xffe2
03d2 0085 ffe1  |    |		.CONST	0x0085,0xffe1
03d4 0087 ffe0  |    |		.CONST	0x0087,0xffe0
03d6 0089 ffdf  |    |		.CONST	0x0089,0xffdf
03d8 008b ffde  |    |		.CONST	0x008b,0xffde
03da 008d ffdd  |    |		.CONST	0x008d,0xffdd
03dc 008f ffdc  |    |		.CONST	0x008f,0xffdc
03de 00a4 0001  |    |		.CONST	0x00a4,0x0001
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug3 Subtable 0x2
03e0 ; --------------------------------------------------------------------------------------
03e0 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
03e2 00bb ffff  |    |		.CONST	0x00bb,0xffff
03e4 00bf 0001  |    |		.CONST	0x00bf,0x0001
03e6 00c6 0002  |    |		.CONST	0x00c6,0x0002
03e8 00ca 0003  |    |		.CONST	0x00ca,0x0003
03ea ; --------------------------------------------------------------------------------------
03ea ; Debug3 Subtable 0x3
03ea ; --------------------------------------------------------------------------------------
03ea 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03ec 00d3 0001  |    |		.CONST	0x00d3,0x0001
03ee ; --------------------------------------------------------------------------------------
03ee ; Debug3 Subtable 0x4
03ee ; --------------------------------------------------------------------------------------
03ee 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
03f0 00db ffff  |    |		.CONST	0x00db,0xffff
03f2 00df 0001  |    |		.CONST	0x00df,0x0001
03f4 00e6 0002  |    |		.CONST	0x00e6,0x0002
03f6 00ec 0003  |    |		.CONST	0x00ec,0x0003
03f8 00f0 0004  |    |		.CONST	0x00f0,0x0004
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug3 Subtable 0x5
03fa ; --------------------------------------------------------------------------------------
03fa 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
03fc 00fb ffff  |    |		.CONST	0x00fb,0xffff
03fe 00ff 0001  |    |		.CONST	0x00ff,0x0001
0400 0106 0002  |    |		.CONST	0x0106,0x0002
0402 010c 0003  |    |		.CONST	0x010c,0x0003
0404 0110 0004  |    |		.CONST	0x0110,0x0004
0406 ; --------------------------------------------------------------------------------------
0406 ; Debug3 Subtable 0x6
0406 ; --------------------------------------------------------------------------------------
0406 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0408 011b ffff  |    |		.CONST	0x011b,0xffff
040a 011f 0001  |    |		.CONST	0x011f,0x0001
040c 0126 0002  | &  |		.CONST	0x0126,0x0002
040e 012c 0003  | ,  |		.CONST	0x012c,0x0003
0410 0130 0004  | 0  |		.CONST	0x0130,0x0004
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug3 Subtable 0x7
0412 ; --------------------------------------------------------------------------------------
0412 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0414 013b ffff  | ;  |		.CONST	0x013b,0xffff
0416 013f 0001  | ?  |		.CONST	0x013f,0x0001
0418 0145 0002  | E  |		.CONST	0x0145,0x0002
041a 0149 0003  | I  |		.CONST	0x0149,0x0003
041c ; --------------------------------------------------------------------------------------
041c ; Debug3 Subtable 0x8
041c ; --------------------------------------------------------------------------------------
041c 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
041e 0153 ffff  | S  |		.CONST	0x0153,0xffff
0420 0157 0001  | W  |		.CONST	0x0157,0x0001
0422 015d 0002  | ]  |		.CONST	0x015d,0x0002
0424 0161 0003  | a  |		.CONST	0x0161,0x0003
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug3 Subtable 0x9
0426 ; --------------------------------------------------------------------------------------
0426 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0428 016b ffff  | k  |		.CONST	0x016b,0xffff
042a 016f 0001  | o  |		.CONST	0x016f,0x0001
042c 0175 0002  | u  |		.CONST	0x0175,0x0002
042e 0179 0003  | y  |		.CONST	0x0179,0x0003
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug3 Subtable 0xa
0430 ; --------------------------------------------------------------------------------------
0430 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0432 0183 0001  |    |		.CONST	0x0183,0x0001
0434 0187 0002  |    |		.CONST	0x0187,0x0002
0436 ; --------------------------------------------------------------------------------------
0436 ; Debug3 Subtable 0xb
0436 ; --------------------------------------------------------------------------------------
0436 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0438 018b 0001  |    |		.CONST	0x018b,0x0001
043a 018f 0002  |    |		.CONST	0x018f,0x0002
043c ; --------------------------------------------------------------------------------------
043c ; Debug3 Subtable 0xc
043c ; --------------------------------------------------------------------------------------
043c 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
043e 0193 0001  |    |		.CONST	0x0193,0x0001
0440 0197 0002  |    |		.CONST	0x0197,0x0002
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug3 Subtable 0xd
0442 ; --------------------------------------------------------------------------------------
0442 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0444 019b 0001  |    |		.CONST	0x019b,0x0001
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug3 Subtable 0xe
0446 ; --------------------------------------------------------------------------------------
0446 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0448 01a3 0001  |    |		.CONST	0x01a3,0x0001
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0xf
044a ; --------------------------------------------------------------------------------------
044a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
044c 01ab 0001  |    |		.CONST	0x01ab,0x0001
044e ; --------------------------------------------------------------------------------------
044e ; Debug3 Subtable 0x10
044e ; --------------------------------------------------------------------------------------
044e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0450 01b3 0001  |    |		.CONST	0x01b3,0x0001
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug3 Subtable 0x11
0452 ; --------------------------------------------------------------------------------------
0452 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0454 01bb 0001  |    |		.CONST	0x01bb,0x0001
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug3 Subtable 0x12
0456 ; --------------------------------------------------------------------------------------
0456 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0458 01c3 0001  |    |		.CONST	0x01c3,0x0001
045a 01cb 0002  |    |		.CONST	0x01cb,0x0002
045c ; --------------------------------------------------------------------------------------
045c ; Debug3 Subtable 0x13
045c ; --------------------------------------------------------------------------------------
045c 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
045e 01d3 ffff  |    |		.CONST	0x01d3,0xffff
0460 01dd 0001  |    |		.CONST	0x01dd,0x0001
0462 ; --------------------------------------------------------------------------------------
0462 ; Debug3 Subtable 0x14
0462 ; --------------------------------------------------------------------------------------
0462 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0464 01f3 0001  |    |		.CONST	0x01f3,0x0001
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug3 Subtable 0x15
0466 ; --------------------------------------------------------------------------------------
0466 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0468 01fb 0001  |    |		.CONST	0x01fb,0x0001
046a ; --------------------------------------------------------------------------------------
046a ; Debug3 Subtable 0x16
046a ; --------------------------------------------------------------------------------------
046a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
046c 0203 0001  |    |		.CONST	0x0203,0x0001
046e ; --------------------------------------------------------------------------------------
046e ; Debug3 Subtable 0x17
046e ; --------------------------------------------------------------------------------------
046e 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0470 0213 ffff  |    |		.CONST	0x0213,0xffff
0472 021c 0001  |    |		.CONST	0x021c,0x0001
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug3 Subtable 0x18
0474 ; --------------------------------------------------------------------------------------
0474 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0476 022b ffff  | +  |		.CONST	0x022b,0xffff
0478 0232 0001  | 2  |		.CONST	0x0232,0x0001
047a 0239 0002  | 9  |		.CONST	0x0239,0x0002
047c 0000 0000  |    |		.BLANK	0000[0x184]