DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦1d7349a66⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0270       | p  |		.CONST	0x0270								; 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 007e       | ~  |		.CONST	0x007e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0025       | %  |		.CONST	0x0025								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x0322,0x8000,0x0000,0x0059,0xebf5,0x0000,0x000d
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
000d 0129       | )  |		Execute	Any,Make_Visible
000e e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0010 0129       | )  |		Execute	Any,Make_Visible
0011 e003       |    |		Load	0x0,0x3								; Debug Table 0x0.0x2 = 0x11,0xfffd
0012 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0013 0129       | )  |		Execute	Any,Make_Visible
0014 4805       |H   |		Short_Literal	0x5							; Debug Table 0x0.0x3 = 0x14,0xfffc
0015 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0016 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x4 = 0x16,0xfffb
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0019 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x5 = 0x19,0xfffa
001a 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x1a,0xfff9
001c 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1c,0xfff8
001e 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1e,0xfff7
0020 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x9 = 0x20,0xfff6
0021 4802       |H   |		Short_Literal	0x2
0022 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call
0024 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0025 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x25,0xfff5
0027 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x27,0xfff4
0029 e20f       |    |		Load	0x1,0xf								; Debug Table 0x0.0xc = 0x29,0xfff3
002a e004       |    |		Load	0x0,0x4
002b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002c 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
002e 4802       |H   |		Short_Literal	0x2
002f 032e       | .  |		Declare_Type	Record,Defined,Visible
0030 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x30,0xfff2
0032 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x32,0xfff1
0034 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x34,0xfff0
0036 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x36,0xffef
0038 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x38,0xffee
003a 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x3a,0xffed
003c 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x3c,0xffec
003e 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x14 = 0x3e,0xffeb
0040 e20e       |    |		Load	0x1,0xe								; Debug Table 0x0.0x15 = 0x40,0xffea
0041 e215       |    |		Load	0x1,0x15
0042 e218       |    |		Load	0x1,0x18
0043 e218       |    |		Load	0x1,0x18
0044 e005       |    |		Load	0x0,0x5
0045 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0046 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
0048 e210       |    |		Load	0x1,0x10
0049 0326       | &  |		Complete_Type	Record,By_Defining
004a 00bf       |    |		Action	Accept_Activation
004b e218       |    |		Load	0x1,0x18							; Debug Table 0x1 = .DEBUG	0x004b,0x0350,0x8000,0x0000,0x0059,0xf775,0x0000,0x0013
													; Debug Table 0x1.0x0 = 0x4b,0xffff
004c 0322       | "  |		Declare_Variable	Record
004d 4800       |H   |		Short_Literal	0x0
004e 00d9       |    |		Load_Top	At_Offset_1
004f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0050 4800       |H   |		Short_Literal	0x0
0051 4801       |H   |		Short_Literal	0x1
0052 4801       |H   |		Short_Literal	0x1
0053 6208       |b   |		Indirect_Literal	Discrete,0x25c,{0x00000000, 0x0000076d}
0054 e004       |    |		Load	0x0,0x4
0055 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0056 e004       |    |		Load	0x0,0x4
0057 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0058 0119       |    |		Execute	Any,Check_In_Formal_Type
0059 00d9       |    |		Load_Top	At_Offset_1
005a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
005b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x5b,0xfffe
005c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x2 = 0x5c,0xfffd
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x3 = 0x5e,0xfffc
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x4 = 0x60,0xfffb
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x5 = 0x62,0xfffa
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x6 = 0x64,0xfff9
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 029d 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call			; Debug Table 0x1.0x7 = 0x66,0xfff8
0068 029d 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call			; Debug Table 0x1.0x8 = 0x68,0xfff7
006a 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call			; Debug Table 0x1.0x9 = 0x6a,0xfff6
006c 029d 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call			; Debug Table 0x1.0xa = 0x6c,0xfff5
006e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0xb = 0x6e,0xfff4
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0xc = 0x70,0xfff3
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0xd = 0x72,0xfff2
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0xe = 0x74,0xfff1
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0xf = 0x76,0xfff0
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x10 = 0x78,0xffef
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x1.0x11 = 0x7a,0xffee
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x1.0x12 = 0x7c,0xffed
007d 00c7       |    |		Action	Elaborate_Subprogram
007e			BODY_0008:
007e 00bc       |    |		Action	Signal_Activated
007f 00bb       |    |		Action	Signal_Completion
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 e002       |    |		Load	0x0,0x2								; Debug Table 0x2 = .DEBUG	0x0083,0x0378,0x0001,0x0000,0x0059,0xebf5,0x0000,0x002e
													; Debug Table 0x2.0x0 = 0x83,0x1
0084 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0085 00db       |    |		Load_Top	At_Offset_3
0086 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0087 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x1 = 0x87,0x2
0088 00db       |    |		Load_Top	At_Offset_3
0089 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
008a e221       | !  |		Load	0x1,0x21							; Debug Table 0x2.0x2 = 0x8a,0x3
008b 00db       |    |		Load_Top	At_Offset_3
008c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
008d e221       | !  |		Load	0x1,0x21							; Debug Table 0x2.0x3 = 0x8d,0x4
008e 00db       |    |		Load_Top	At_Offset_3
008f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0090 e005       |    |		Load	0x0,0x5								; Debug Table 0x2.0x4 = 0x90,0x5
0091 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0092 00db       |    |		Load_Top	At_Offset_3
0093 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0094 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0095 0000 0000  |    |		.XXX[0x3]
0097 0000       |    |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x3 = .DEBUG	0x009b,0x0384,0x0001,0x0000,0x0059,0xebf5,0x0000,0x0036
													; Debug Table 0x3.0x0 = 0x9b,0x1
009c a5fd       |    |		Store_Unchecked	0x2,-0x3
009d e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x1 = 0x9d,0x2
009e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
009f c5fe       |    |		Store	0x2,-0x2
00a0 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x2 = 0xa0,0x3
00a1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00a2 c5fe       |    |		Store	0x2,-0x2
00a3 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x3 = 0xa3,0x4
00a4 a5fd       |    |		Store_Unchecked	0x2,-0x3
00a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 00b3       |    |		.CONST	0x00b3								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x4 = .DEBUG	0x00ab,0x038e,0x0001,0x0000,0x0059,0xebf5,0x0000,0x0046
													; Debug Table 0x4.0x0 = 0xab,0x1
00ac a5fd       |    |		Store_Unchecked	0x2,-0x3
00ad 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x1 = 0xad,0x2
00ae e5fe       |    |		Load	0x2,-0x2
00af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b0 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x2 = 0xb0,0x3
00b1 a5fd       |    |		Store_Unchecked	0x2,-0x3
00b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b3			TRAP_00a8:
00b3 4885       |H   |		Short_Literal	0x85
00b4 010f       |    |		Execute	Exception,Equal
00b5 6803       |h   |		Jump_Zero	0xb9
00b6 480b       |H   |		Short_Literal	0xb							; Debug Table 0x4.0x3 = 0xb6,0x4
00b7 a5fd       |    |		Store_Unchecked	0x2,-0x3
00b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b9 0100       |    |		Execute	Exception,Raise
00ba 0000 0000  |    |		.BLANK	0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 4603       |F   |		Jump_Case	0x4							; Debug Table 0x5 = .DEBUG	0x00c3,0x0398,0x0005,0x0000,0x0059,0xebf5,0x0000,0x0056
00c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00c5 7802       |x   |		Jump	0xc8								; case 0x1
00c6 7805       |x   |		Jump	0xcc								; case 0x2
00c7 7809       |x   |		Jump	0xd1								; case 0x3
00c8 00da       |    |		Load_Top	At_Offset_2
00c9 0091 0260  |   `|		Action	Push_String_Extended_Indexed,0x260				; "PENDING"
00cb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00cc 00db       |    |		Load_Top	At_Offset_3
00cd 00db       |    |		Load_Top	At_Offset_3
00ce 00e0       |    |		Load_Encached	Standard_Cache
00cf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d1 00da       |    |		Load_Top	At_Offset_2
00d2 00e0       |    |		Load_Encached	Standard_Cache
00d3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d5 0000 0000  |    |		.XXX[0x3]
00d7 0000       |    |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x6 = .DEBUG	0x00db,0x039a,0x0001,0x0000,0x0059,0xebf5,0x0000,0x005d
													; Debug Table 0x6.0x0 = 0xdb,0x1
00dc a5fd       |    |		Store_Unchecked	0x2,-0x3
00dd 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x1 = 0xdd,0x2
00de a5fe       |    |		Store_Unchecked	0x2,-0x2
00df 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x2 = 0xdf,0x3
00e0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e1 a5fe       |    |		Store_Unchecked	0x2,-0x2
00e2 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x3 = 0xe2,0x4
00e3 a5fd       |    |		Store_Unchecked	0x2,-0x3
00e4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 00f3       |    |		.CONST	0x00f3								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x7 = .DEBUG	0x00eb,0x03a4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x006d
													; Debug Table 0x7.0x0 = 0xeb,0x1
00ec a5fd       |    |		Store_Unchecked	0x2,-0x3
00ed 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x1 = 0xed,0x2
00ee e5fe       |    |		Load	0x2,-0x2
00ef 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f0 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x2 = 0xf0,0x3
00f1 a5fd       |    |		Store_Unchecked	0x2,-0x3
00f2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f3			TRAP_00e8:
00f3 4885       |H   |		Short_Literal	0x85
00f4 010f       |    |		Execute	Exception,Equal
00f5 6803       |h   |		Jump_Zero	0xf9
00f6 480b       |H   |		Short_Literal	0xb							; Debug Table 0x7.0x3 = 0xf6,0x4
00f7 a5fd       |    |		Store_Unchecked	0x2,-0x3
00f8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f9 0100       |    |		Execute	Exception,Raise
00fa 0000 0000  |    |		.BLANK	0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4608       |F   |		Jump_Case	0x9							; Debug Table 0x8 = .DEBUG	0x0103,0x03ae,0x0005,0x0000,0x0059,0xebf5,0x0000,0x007d
0104 7808       |x   |		Jump	0x10d								; case 0x0
0105 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0106 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0107 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0108 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0109 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
010a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
010b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
010d 00da       |    |		Load_Top	At_Offset_2
010e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
010f 0125       | %  |		Execute	Any,Set_Constraint
0110 00da       |    |		Load_Top	At_Offset_2
0111 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0112 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0113 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x9 = .DEBUG	0x011b,0x03b0,0x0001,0x0000,0x0059,0xebf5,0x0000,0x008d
													; Debug Table 0x9.0x0 = 0x11b,0x1
011c a5fd       |    |		Store_Unchecked	0x2,-0x3
011d e221       | !  |		Load	0x1,0x21							; Debug Table 0x9.0x1 = 0x11d,0x2
011e e5fe       |    |		Load	0x2,-0x2
011f 017d       | }  |		Execute	Record,Structure_Write
0120 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x2 = 0x120,0x3
0121 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0122 e5fe       |    |		Load	0x2,-0x2
0123 017d       | }  |		Execute	Record,Structure_Write
0124 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x3 = 0x124,0x4
0125 a5fd       |    |		Store_Unchecked	0x2,-0x3
0126 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0127 0000       |    |		.XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012e       | .  |		.CONST	0x012e								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa = .DEBUG	0x012b,0x03ba,0x0002,0x0000,0x0059,0xebf5,0x0000,0x009d
													; Debug Table 0xa.0x0 = 0x12b,0xffff
012c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
012d 8222       | "  |		Call	0x1,0x22
012e			BODY_0128:
012e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x1 = 0x12e,0x1
012f 01db       |    |		Execute	Vector,Length
0130 7006       |p   |		Jump_Nonzero	0x137
0131 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x2 = 0x131,0x2
0132 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0133 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0134 e006       |    |		Load	0x0,0x6
0135 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0136 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0137 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x3 = 0x137,0x3
0138 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0139 0000 0000  |    |		.BLANK	0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0151       | Q  |		.CONST	0x0151								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0xb = .DEBUG	0x0143,0x03c4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00a6
													; Debug Table 0xb.0x0 = 0x143,0x1
0144 a5fd       |    |		Store_Unchecked	0x2,-0x3
0145 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x1 = 0x145,0x2
0146 e5fe       |    |		Load	0x2,-0x2
0147 0217       |    |		Execute	Heap_Access,All_Reference
0148 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0149 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0xb.0x2 = 0x149,0x3
014a e221       | !  |		Load	0x1,0x21
014b e5ff       |    |		Load	0x2,-0x1
014c e5fe       |    |		Load	0x2,-0x2
014d 8225       | %  |		Call	0x1,0x25
014e 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x3 = 0x14e,0x4
014f a5fd       |    |		Store_Unchecked	0x2,-0x3
0150 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0151			TRAP_0140:
0151 4885       |H   |		Short_Literal	0x85
0152 010f       |    |		Execute	Exception,Equal
0153 6803       |h   |		Jump_Zero	0x157
0154 480b       |H   |		Short_Literal	0xb							; Debug Table 0xb.0x4 = 0x154,0x5
0155 a5fd       |    |		Store_Unchecked	0x2,-0x3
0156 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0157 0100       |    |		Execute	Exception,Raise
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0xc = .DEBUG	0x015b,0x03d0,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00b6
													; Debug Table 0xc.0x0 = 0x15b,0x1
015c a5fd       |    |		Store_Unchecked	0x2,-0x3
015d e221       | !  |		Load	0x1,0x21							; Debug Table 0xc.0x1 = 0x15d,0x2
015e e5fe       |    |		Load	0x2,-0x2
015f 017d       | }  |		Execute	Record,Structure_Write
0160 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x2 = 0x160,0x3
0161 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0162 e5fe       |    |		Load	0x2,-0x2
0163 017d       | }  |		Execute	Record,Structure_Write
0164 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x3 = 0x164,0x4
0165 a5fd       |    |		Store_Unchecked	0x2,-0x3
0166 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016e       | n  |		.CONST	0x016e								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0002       |    |		.CONST	0x0002								; Number of locals
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd = .DEBUG	0x016b,0x03da,0x0002,0x0000,0x0059,0xebf5,0x0000,0x00c6
													; Debug Table 0xd.0x0 = 0x16b,0xffff
016c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
016d 8223       | #  |		Call	0x1,0x23
016e			BODY_0168:
016e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x1 = 0x16e,0x1
016f 01db       |    |		Execute	Vector,Length
0170 7006       |p   |		Jump_Nonzero	0x177
0171 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x2 = 0x171,0x2
0172 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0173 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0174 e006       |    |		Load	0x0,0x6
0175 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0176 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0177 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x3 = 0x177,0x3
0178 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0191       |    |		.CONST	0x0191								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0xe = .DEBUG	0x0183,0x03e4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00cf
													; Debug Table 0xe.0x0 = 0x183,0x1
0184 a5fd       |    |		Store_Unchecked	0x2,-0x3
0185 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x1 = 0x185,0x2
0186 e5fe       |    |		Load	0x2,-0x2
0187 0217       |    |		Execute	Heap_Access,All_Reference
0188 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0189 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0xe.0x2 = 0x189,0x3
018a 00db       |    |		Load_Top	At_Offset_3
018b e221       | !  |		Load	0x1,0x21
018c e5fe       |    |		Load	0x2,-0x2
018d 8225       | %  |		Call	0x1,0x25
018e 4800       |H   |		Short_Literal	0x0							; Debug Table 0xe.0x3 = 0x18e,0x4
018f a5fd       |    |		Store_Unchecked	0x2,-0x3
0190 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0191			TRAP_0180:
0191 4885       |H   |		Short_Literal	0x85
0192 010f       |    |		Execute	Exception,Equal
0193 6803       |h   |		Jump_Zero	0x197
0194 480b       |H   |		Short_Literal	0xb							; Debug Table 0xe.0x4 = 0x194,0x5
0195 a5fd       |    |		Store_Unchecked	0x2,-0x3
0196 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0197 0100       |    |		Execute	Exception,Raise
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf = .DEBUG	0x019b,0x03f0,0x0002,0x0000,0x0059,0xebf5,0x0000,0x00df
													; Debug Table 0xf.0x0 = 0x19b,0x1
019c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
019d 8224       | $  |		Call	0x1,0x24
019e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019f 0000       |    |		.XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 01b4       |    |		.CONST	0x01b4								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x10 = .DEBUG	0x01a3,0x03f4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00e8
													; Debug Table 0x10.0x0 = 0x1a3,0x1
01a4 a5fd       |    |		Store_Unchecked	0x2,-0x3
01a5 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x10.0x1 = 0x1a5,0x2
01a6 7005       |p   |		Jump_Nonzero	0x1ac
01a7 4812       |H   |		Short_Literal	0x12							; Debug Table 0x10.0x2 = 0x1a7,0x3
01a8 a5fd       |    |		Store_Unchecked	0x2,-0x3
01a9 e001       |    |		Load	0x0,0x1								; Debug Table 0x10.0x3 = 0x1a9,0x4
01aa 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01ab 0257       | W  |		Execute	Discrete,Raise
01ac 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0x4 = 0x1ac,0x5
01ad e221       | !  |		Load	0x1,0x21
01ae e221       | !  |		Load	0x1,0x21
01af e5fe       |    |		Load	0x2,-0x2
01b0 8225       | %  |		Call	0x1,0x25
01b1 4800       |H   |		Short_Literal	0x0							; Debug Table 0x10.0x5 = 0x1b1,0x6
01b2 a5fd       |    |		Store_Unchecked	0x2,-0x3
01b3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b4			TRAP_01a0:
01b4 e001       |    |		Load	0x0,0x1
01b5 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01b6 010f       |    |		Execute	Exception,Equal
01b7 6801       |h   |		Jump_Zero	0x1b9
01b8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x10.0x6 = 0x1b8,0x7
01b9 4885       |H   |		Short_Literal	0x85
01ba 010f       |    |		Execute	Exception,Equal
01bb 6803       |h   |		Jump_Zero	0x1bf
01bc 480b       |H   |		Short_Literal	0xb							; Debug Table 0x10.0x7 = 0x1bc,0x8
01bd a5fd       |    |		Store_Unchecked	0x2,-0x3
01be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01bf 0100       |    |		Execute	Exception,Raise
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 4608       |F   |		Jump_Case	0x9							; Debug Table 0x11 = .DEBUG	0x01c3,0x0406,0x0005,0x0000,0x0059,0xebf5,0x0000,0x00f9
01c4 7808       |x   |		Jump	0x1cd								; case 0x0
01c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01c6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
01c7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01c8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
01c9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
01ca 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
01cb 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
01cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
01cd 00da       |    |		Load_Top	At_Offset_2
01ce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01cf 0125       | %  |		Execute	Any,Set_Constraint
01d0 00da       |    |		Load_Top	At_Offset_2
01d1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01d2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
01d5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d6 00da       |    |		Load_Top	At_Offset_2
01d7 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
01d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01da 0000 0000  |    |		.BLANK	0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x12 = .DEBUG	0x01e3,0x0408,0x0002,0x0000,0x0059,0xf775,0x0000,0x010a
													; Debug Table 0x12.0x0 = 0x1e3,0x1
01e4 7002       |p   |		Jump_Nonzero	0x1e7
01e5 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x12.0x1 = 0x1e5,0x2
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x12.0x2 = 0x1e7,0x3
01e8 0217       |    |		Execute	Heap_Access,All_Reference
01e9 e007       |    |		Load	0x0,0x7
01ea 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ec 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13 = .DEBUG	0x01f3,0x0410,0x0002,0x0000,0x0059,0xf775,0x0000,0x012d
													; Debug Table 0x13.0x0 = 0x1f3,0x1
01f4 7002       |p   |		Jump_Nonzero	0x1f7
01f5 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x13.0x1 = 0x1f5,0x2
01f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f7 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13.0x2 = 0x1f7,0x3
01f8 0217       |    |		Execute	Heap_Access,All_Reference
01f9 e007       |    |		Load	0x0,0x7
01fa 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fc 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14 = .DEBUG	0x0203,0x0418,0x0002,0x0000,0x0059,0xf775,0x0000,0x0150
													; Debug Table 0x14.0x0 = 0x203,0x1
0204 7002       |p   |		Jump_Nonzero	0x207
0205 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x14.0x1 = 0x205,0x2
0206 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0207 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14.0x2 = 0x207,0x3
0208 0217       |    |		Execute	Heap_Access,All_Reference
0209 e007       |    |		Load	0x0,0x7
020a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
020b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020c 0000 0000  |    |		.BLANK	0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021f       |    |		.CONST	0x021f								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0004       |    |		.CONST	0x0004								; Number of locals
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x15 = .DEBUG	0x0213,0x0420,0x0001,0x0000,0x0059,0xf775,0x0000,0x0173
													; Debug Table 0x15.0x0 = 0x213,0xffff
0214 0217       |    |		Execute	Heap_Access,All_Reference
0215 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0216 8222       | "  |		Call	0x1,0x22
0217 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x15.0x1 = 0x217,0xfffe
0218 0217       |    |		Execute	Heap_Access,All_Reference
0219 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
021a 8223       | #  |		Call	0x1,0x23
021b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x15.0x2 = 0x21b,0xfffd
021c 0217       |    |		Execute	Heap_Access,All_Reference
021d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
021e 8224       | $  |		Call	0x1,0x24
021f			BODY_0210:
021f e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x15.0x3 = 0x21f,0x1
0220 e221       | !  |		Load	0x1,0x21
0221 017e       | ~  |		Execute	Record,Not_Equal
0222 6810       |h   |		Jump_Zero	0x233
0223 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x4 = 0x223,0x2
0224 00da       |    |		Load_Top	At_Offset_2
0225 e007       |    |		Load	0x0,0x7
0226 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0227 e5fe       |    |		Load	0x2,-0x2
0228 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0229 e007       |    |		Load	0x0,0x7
022a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
022b e005       |    |		Load	0x0,0x5
022c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
022d e5ff       |    |		Load	0x2,-0x1
022e 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
022f e5ff       |    |		Load	0x2,-0x1
0230 0217       |    |		Execute	Heap_Access,All_Reference
0231 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0232 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x15.0x5 = 0x232,0x3
0233 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x15.0x6 = 0x233,0x4
0234 e221       | !  |		Load	0x1,0x21
0235 017e       | ~  |		Execute	Record,Not_Equal
0236 6810       |h   |		Jump_Zero	0x247
0237 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x7 = 0x237,0x5
0238 e5fd       |    |		Load	0x2,-0x3
0239 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
023a e007       |    |		Load	0x0,0x7
023b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
023c 00db       |    |		Load_Top	At_Offset_3
023d e007       |    |		Load	0x0,0x7
023e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
023f e005       |    |		Load	0x0,0x5
0240 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0241 e5ff       |    |		Load	0x2,-0x1
0242 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0243 e5ff       |    |		Load	0x2,-0x1
0244 0217       |    |		Execute	Heap_Access,All_Reference
0245 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0246 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x15.0x8 = 0x246,0x6
0247 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x15.0x9 = 0x247,0x7
0248 01db       |    |		Execute	Vector,Length
0249 680e       |h   |		Jump_Zero	0x258
024a e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x15.0xa = 0x24a,0x8
024b 00da       |    |		Load_Top	At_Offset_2
024c e007       |    |		Load	0x0,0x7
024d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
024e 00db       |    |		Load_Top	At_Offset_3
024f e007       |    |		Load	0x0,0x7
0250 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0251 e005       |    |		Load	0x0,0x5
0252 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0253 e5ff       |    |		Load	0x2,-0x1
0254 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0255 e5ff       |    |		Load	0x2,-0x1
0256 0217       |    |		Execute	Heap_Access,All_Reference
0257 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0258 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x15.0xb = 0x258,0x9
0259 0000 0000  |    |		.XXX[0x3]
025b 0000       |    |
025c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000076d}
0260 ; --------------------------------------------------------------------------------------
0260 ; STRING TABLE
0260 ; --------------------------------------------------------------------------------------
0260 0008       |    |		.STRTAB	0x0008->0x0264							; "PENDING"
0261 000d       |    |		.STRTAB	0x000d->0x0267							; "IN_PROGRESS"
0262 0016       |    |		.STRTAB	0x0016->0x026d							; "CLOSED"
0263 001a       |    |		.STREND 0x001a->0x0270
0264 5045 4e44  |PEND|		.STRTAB_STRINGS
0270 ; --------------------------------------------------------------------------------------
0270 ; Debug Table
0270 ; --------------------------------------------------------------------------------------
0270 0003 0016  |    |		.CONST	0x0003,0x0016
0272 000b 0322  |   "|		.DEBUG	0x000b,0x0322,0x8000,0x0000,0x0059,0xebf5,0x0000,0x000d
027a 004b 0350  | K P|		.DEBUG	0x004b,0x0350,0x8000,0x0000,0x0059,0xf775,0x0000,0x0013
0282 0083 0378  |   x|		.DEBUG	0x0083,0x0378,0x0001,0x0000,0x0059,0xebf5,0x0000,0x002e
028a 009b 0384  |    |		.DEBUG	0x009b,0x0384,0x0001,0x0000,0x0059,0xebf5,0x0000,0x0036
0292 00ab 038e  |    |		.DEBUG	0x00ab,0x038e,0x0001,0x0000,0x0059,0xebf5,0x0000,0x0046
029a 00c3 0398  |    |		.DEBUG	0x00c3,0x0398,0x0005,0x0000,0x0059,0xebf5,0x0000,0x0056
02a2 00db 039a  |    |		.DEBUG	0x00db,0x039a,0x0001,0x0000,0x0059,0xebf5,0x0000,0x005d
02aa 00eb 03a4  |    |		.DEBUG	0x00eb,0x03a4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x006d
02b2 0103 03ae  |    |		.DEBUG	0x0103,0x03ae,0x0005,0x0000,0x0059,0xebf5,0x0000,0x007d
02ba 011b 03b0  |    |		.DEBUG	0x011b,0x03b0,0x0001,0x0000,0x0059,0xebf5,0x0000,0x008d
02c2 012b 03ba  | +  |		.DEBUG	0x012b,0x03ba,0x0002,0x0000,0x0059,0xebf5,0x0000,0x009d
02ca 0143 03c4  | C  |		.DEBUG	0x0143,0x03c4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00a6
02d2 015b 03d0  | [  |		.DEBUG	0x015b,0x03d0,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00b6
02da 016b 03da  | k  |		.DEBUG	0x016b,0x03da,0x0002,0x0000,0x0059,0xebf5,0x0000,0x00c6
02e2 0183 03e4  |    |		.DEBUG	0x0183,0x03e4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00cf
02ea 019b 03f0  |    |		.DEBUG	0x019b,0x03f0,0x0002,0x0000,0x0059,0xebf5,0x0000,0x00df
02f2 01a3 03f4  |    |		.DEBUG	0x01a3,0x03f4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00e8
02fa 01c3 0406  |    |		.DEBUG	0x01c3,0x0406,0x0005,0x0000,0x0059,0xebf5,0x0000,0x00f9
0302 01e3 0408  |    |		.DEBUG	0x01e3,0x0408,0x0002,0x0000,0x0059,0xf775,0x0000,0x010a
030a 01f3 0410  |    |		.DEBUG	0x01f3,0x0410,0x0002,0x0000,0x0059,0xf775,0x0000,0x012d
0312 0203 0418  |    |		.DEBUG	0x0203,0x0418,0x0002,0x0000,0x0059,0xf775,0x0000,0x0150
031a 0213 0420  |    |		.DEBUG	0x0213,0x0420,0x0001,0x0000,0x0059,0xf775,0x0000,0x0173
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug3 Subtable 0x0
0322 ; --------------------------------------------------------------------------------------
0322 0016 0000  |    |		.DBG3TAB	0x0016,0x0000
0324 000b ffff  |    |		.CONST	0x000b,0xffff
0326 000e fffe  |    |		.CONST	0x000e,0xfffe
0328 0011 fffd  |    |		.CONST	0x0011,0xfffd
032a 0014 fffc  |    |		.CONST	0x0014,0xfffc
032c 0016 fffb  |    |		.CONST	0x0016,0xfffb
032e 0019 fffa  |    |		.CONST	0x0019,0xfffa
0330 001a fff9  |    |		.CONST	0x001a,0xfff9
0332 001c fff8  |    |		.CONST	0x001c,0xfff8
0334 001e fff7  |    |		.CONST	0x001e,0xfff7
0336 0020 fff6  |    |		.CONST	0x0020,0xfff6
0338 0025 fff5  | %  |		.CONST	0x0025,0xfff5
033a 0027 fff4  | '  |		.CONST	0x0027,0xfff4
033c 0029 fff3  | )  |		.CONST	0x0029,0xfff3
033e 0030 fff2  | 0  |		.CONST	0x0030,0xfff2
0340 0032 fff1  | 2  |		.CONST	0x0032,0xfff1
0342 0034 fff0  | 4  |		.CONST	0x0034,0xfff0
0344 0036 ffef  | 6  |		.CONST	0x0036,0xffef
0346 0038 ffee  | 8  |		.CONST	0x0038,0xffee
0348 003a ffed  | :  |		.CONST	0x003a,0xffed
034a 003c ffec  | <  |		.CONST	0x003c,0xffec
034c 003e ffeb  | >  |		.CONST	0x003e,0xffeb
034e 0040 ffea  | @  |		.CONST	0x0040,0xffea
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug3 Subtable 0x1
0350 ; --------------------------------------------------------------------------------------
0350 0013 0000  |    |		.DBG3TAB	0x0013,0x0000
0352 004b ffff  | K  |		.CONST	0x004b,0xffff
0354 005b fffe  | [  |		.CONST	0x005b,0xfffe
0356 005c fffd  | \  |		.CONST	0x005c,0xfffd
0358 005e fffc  | ^  |		.CONST	0x005e,0xfffc
035a 0060 fffb  | `  |		.CONST	0x0060,0xfffb
035c 0062 fffa  | b  |		.CONST	0x0062,0xfffa
035e 0064 fff9  | d  |		.CONST	0x0064,0xfff9
0360 0066 fff8  | f  |		.CONST	0x0066,0xfff8
0362 0068 fff7  | h  |		.CONST	0x0068,0xfff7
0364 006a fff6  | j  |		.CONST	0x006a,0xfff6
0366 006c fff5  | l  |		.CONST	0x006c,0xfff5
0368 006e fff4  | n  |		.CONST	0x006e,0xfff4
036a 0070 fff3  | p  |		.CONST	0x0070,0xfff3
036c 0072 fff2  | r  |		.CONST	0x0072,0xfff2
036e 0074 fff1  | t  |		.CONST	0x0074,0xfff1
0370 0076 fff0  | v  |		.CONST	0x0076,0xfff0
0372 0078 ffef  | x  |		.CONST	0x0078,0xffef
0374 007a ffee  | z  |		.CONST	0x007a,0xffee
0376 007c ffed  | |  |		.CONST	0x007c,0xffed
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug3 Subtable 0x2
0378 ; --------------------------------------------------------------------------------------
0378 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
037a 0083 0001  |    |		.CONST	0x0083,0x0001
037c 0087 0002  |    |		.CONST	0x0087,0x0002
037e 008a 0003  |    |		.CONST	0x008a,0x0003
0380 008d 0004  |    |		.CONST	0x008d,0x0004
0382 0090 0005  |    |		.CONST	0x0090,0x0005
0384 ; --------------------------------------------------------------------------------------
0384 ; Debug3 Subtable 0x3
0384 ; --------------------------------------------------------------------------------------
0384 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0386 009b 0001  |    |		.CONST	0x009b,0x0001
0388 009d 0002  |    |		.CONST	0x009d,0x0002
038a 00a0 0003  |    |		.CONST	0x00a0,0x0003
038c 00a3 0004  |    |		.CONST	0x00a3,0x0004
038e ; --------------------------------------------------------------------------------------
038e ; Debug3 Subtable 0x4
038e ; --------------------------------------------------------------------------------------
038e 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0390 00ab 0001  |    |		.CONST	0x00ab,0x0001
0392 00ad 0002  |    |		.CONST	0x00ad,0x0002
0394 00b0 0003  |    |		.CONST	0x00b0,0x0003
0396 00b6 0004  |    |		.CONST	0x00b6,0x0004
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug3 Subtable 0x5
0398 ; --------------------------------------------------------------------------------------
0398 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
039a ; --------------------------------------------------------------------------------------
039a ; Debug3 Subtable 0x6
039a ; --------------------------------------------------------------------------------------
039a 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
039c 00db 0001  |    |		.CONST	0x00db,0x0001
039e 00dd 0002  |    |		.CONST	0x00dd,0x0002
03a0 00df 0003  |    |		.CONST	0x00df,0x0003
03a2 00e2 0004  |    |		.CONST	0x00e2,0x0004
03a4 ; --------------------------------------------------------------------------------------
03a4 ; Debug3 Subtable 0x7
03a4 ; --------------------------------------------------------------------------------------
03a4 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
03a6 00eb 0001  |    |		.CONST	0x00eb,0x0001
03a8 00ed 0002  |    |		.CONST	0x00ed,0x0002
03aa 00f0 0003  |    |		.CONST	0x00f0,0x0003
03ac 00f6 0004  |    |		.CONST	0x00f6,0x0004
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug3 Subtable 0x8
03ae ; --------------------------------------------------------------------------------------
03ae 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug3 Subtable 0x9
03b0 ; --------------------------------------------------------------------------------------
03b0 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
03b2 011b 0001  |    |		.CONST	0x011b,0x0001
03b4 011d 0002  |    |		.CONST	0x011d,0x0002
03b6 0120 0003  |    |		.CONST	0x0120,0x0003
03b8 0124 0004  | $  |		.CONST	0x0124,0x0004
03ba ; --------------------------------------------------------------------------------------
03ba ; Debug3 Subtable 0xa
03ba ; --------------------------------------------------------------------------------------
03ba 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
03bc 012b ffff  | +  |		.CONST	0x012b,0xffff
03be 012e 0001  | .  |		.CONST	0x012e,0x0001
03c0 0131 0002  | 1  |		.CONST	0x0131,0x0002
03c2 0137 0003  | 7  |		.CONST	0x0137,0x0003
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug3 Subtable 0xb
03c4 ; --------------------------------------------------------------------------------------
03c4 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
03c6 0143 0001  | C  |		.CONST	0x0143,0x0001
03c8 0145 0002  | E  |		.CONST	0x0145,0x0002
03ca 0149 0003  | I  |		.CONST	0x0149,0x0003
03cc 014e 0004  | N  |		.CONST	0x014e,0x0004
03ce 0154 0005  | T  |		.CONST	0x0154,0x0005
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0xc
03d0 ; --------------------------------------------------------------------------------------
03d0 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
03d2 015b 0001  | [  |		.CONST	0x015b,0x0001
03d4 015d 0002  | ]  |		.CONST	0x015d,0x0002
03d6 0160 0003  | `  |		.CONST	0x0160,0x0003
03d8 0164 0004  | d  |		.CONST	0x0164,0x0004
03da ; --------------------------------------------------------------------------------------
03da ; Debug3 Subtable 0xd
03da ; --------------------------------------------------------------------------------------
03da 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
03dc 016b ffff  | k  |		.CONST	0x016b,0xffff
03de 016e 0001  | n  |		.CONST	0x016e,0x0001
03e0 0171 0002  | q  |		.CONST	0x0171,0x0002
03e2 0177 0003  | w  |		.CONST	0x0177,0x0003
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0xe
03e4 ; --------------------------------------------------------------------------------------
03e4 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
03e6 0183 0001  |    |		.CONST	0x0183,0x0001
03e8 0185 0002  |    |		.CONST	0x0185,0x0002
03ea 0189 0003  |    |		.CONST	0x0189,0x0003
03ec 018e 0004  |    |		.CONST	0x018e,0x0004
03ee 0194 0005  |    |		.CONST	0x0194,0x0005
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug3 Subtable 0xf
03f0 ; --------------------------------------------------------------------------------------
03f0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03f2 019b 0001  |    |		.CONST	0x019b,0x0001
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0x10
03f4 ; --------------------------------------------------------------------------------------
03f4 0000 0008  |    |		.DBG3TAB	0x0000,0x0008
03f6 01a3 0001  |    |		.CONST	0x01a3,0x0001
03f8 01a5 0002  |    |		.CONST	0x01a5,0x0002
03fa 01a7 0003  |    |		.CONST	0x01a7,0x0003
03fc 01a9 0004  |    |		.CONST	0x01a9,0x0004
03fe 01ac 0005  |    |		.CONST	0x01ac,0x0005
0400 01b1 0006  |    |		.CONST	0x01b1,0x0006
0402 01b8 0007  |    |		.CONST	0x01b8,0x0007
0404 01bc 0008  |    |		.CONST	0x01bc,0x0008
0406 ; --------------------------------------------------------------------------------------
0406 ; Debug3 Subtable 0x11
0406 ; --------------------------------------------------------------------------------------
0406 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug3 Subtable 0x12
0408 ; --------------------------------------------------------------------------------------
0408 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
040a 01e3 0001  |    |		.CONST	0x01e3,0x0001
040c 01e5 0002  |    |		.CONST	0x01e5,0x0002
040e 01e7 0003  |    |		.CONST	0x01e7,0x0003
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug3 Subtable 0x13
0410 ; --------------------------------------------------------------------------------------
0410 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0412 01f3 0001  |    |		.CONST	0x01f3,0x0001
0414 01f5 0002  |    |		.CONST	0x01f5,0x0002
0416 01f7 0003  |    |		.CONST	0x01f7,0x0003
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug3 Subtable 0x14
0418 ; --------------------------------------------------------------------------------------
0418 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
041a 0203 0001  |    |		.CONST	0x0203,0x0001
041c 0205 0002  |    |		.CONST	0x0205,0x0002
041e 0207 0003  |    |		.CONST	0x0207,0x0003
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug3 Subtable 0x15
0420 ; --------------------------------------------------------------------------------------
0420 0003 0009  |    |		.DBG3TAB	0x0003,0x0009
0422 0213 ffff  |    |		.CONST	0x0213,0xffff
0424 0217 fffe  |    |		.CONST	0x0217,0xfffe
0426 021b fffd  |    |		.CONST	0x021b,0xfffd
0428 021f 0001  |    |		.CONST	0x021f,0x0001
042a 0223 0002  | #  |		.CONST	0x0223,0x0002
042c 0232 0003  | 2  |		.CONST	0x0232,0x0003
042e 0233 0004  | 3  |		.CONST	0x0233,0x0004
0430 0237 0005  | 7  |		.CONST	0x0237,0x0005
0432 0246 0006  | F  |		.CONST	0x0246,0x0006
0434 0247 0007  | G  |		.CONST	0x0247,0x0007
0436 024a 0008  | J  |		.CONST	0x024a,0x0008
0438 0258 0009  | X  |		.CONST	0x0258,0x0009
043a 0000 0000  |    |		.BLANK	0000[0x1c6]