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

⟦d5f9bbd55⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0348       | H  |		.CONST	0x0348								; 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 00b1       |    |		.CONST	0x00b1								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0037       | 7  |		.CONST	0x0037								; Number of locals
000b			INIT_0008:
000b 4802       |H   |		Short_Literal	0x2
000c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
000d 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
000f 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0011 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0013 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0015 4802       |H   |		Short_Literal	0x2
0016 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0017 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0019 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001b 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
001d 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
001f 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0021 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0023 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0025 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0027 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0029 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
002b 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
002d 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
002f 00e4       |    |		Load_Encached	Positive_Cache
0030 0129       | )  |		Execute	Any,Make_Visible
0031 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0033 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0035 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0037 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0039 4800       |H   |		Short_Literal	0x0
003a 4801       |H   |		Short_Literal	0x1
003b 029f 022b  |   +|		Declare_Subprogram	INIT_0228,For_Call
003d 03fe       |    |		Declare_Type	Discrete,Defined,Visible
003e 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0040 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0042 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0044 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0046 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0048 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
004a e001       |    |		Load	0x0,0x1
004b 0129       | )  |		Execute	Any,Make_Visible
004c e002       |    |		Load	0x0,0x2
004d 0129       | )  |		Execute	Any,Make_Visible
004e e003       |    |		Load	0x0,0x3
004f 0129       | )  |		Execute	Any,Make_Visible
0050 e004       |    |		Load	0x0,0x4
0051 0129       | )  |		Execute	Any,Make_Visible
0052 e005       |    |		Load	0x0,0x5
0053 0129       | )  |		Execute	Any,Make_Visible
0054 e006       |    |		Load	0x0,0x6
0055 e007       |    |		Load	0x0,0x7
0056 4814       |H   |		Short_Literal	0x14
0057 e008       |    |		Load	0x0,0x8
0058 0387       |    |		Declare_Variable	Package
0059 00d8       |    |		Load_Top	At_Offset_0
005a 020f       |    |		Execute	Module,Activate
005b 00d8       |    |		Load_Top	At_Offset_0
005c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
005d 00e1       |    |		Load_Encached	Boolean_Cache
005e 029f 030b  |    |		Declare_Subprogram	INIT_0308,For_Call
0060 e20d       |    |		Load	0x1,0xd
0061 0326       | &  |		Complete_Type	Record,By_Defining
0062 e009       |    |		Load	0x0,0x9
0063 e00a       |    |		Load	0x0,0xa
0064 e20d       |    |		Load	0x1,0xd
0065 e00b       |    |		Load	0x0,0xb
0066 0387       |    |		Declare_Variable	Package
0067 00d8       |    |		Load_Top	At_Offset_0
0068 020f       |    |		Execute	Module,Activate
0069 00d8       |    |		Load_Top	At_Offset_0
006a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
006b 00e1       |    |		Load_Encached	Boolean_Cache
006c 029f 0323  |   #|		Declare_Subprogram	INIT_0320,For_Call
006e e212       |    |		Load	0x1,0x12
006f 0326       | &  |		Complete_Type	Record,By_Defining
0070 00bf       |    |		Action	Accept_Activation
0071 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
0073 029d 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call
0075 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 00da       |    |		Load_Top	At_Offset_2
0084 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
0085 00c6       |    |		Action	Check_Subprogram_Elaborated
0086 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0087 e00c       |    |		Load	0x0,0xc
0088 e00d       |    |		Load	0x0,0xd
0089 4800       |H   |		Short_Literal	0x0
008a 0007       |    |		Action	Break_Optional
008b 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1			BODY_0008:
00b1 00bc       |    |		Action	Signal_Activated
00b2 00bb       |    |		Action	Signal_Completion
00b3 0000 0000  |    |		.BLANK	0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bf       |    |		.CONST	0x00bf								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e20d       |    |		Load	0x1,0xd
00bc 0322       | "  |		Declare_Variable	Record
00bd 00d8       |    |		Load_Top	At_Offset_0
00be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bf			BODY_00b8:
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00c1 e5ff       |    |		Load	0x2,-0x1
00c2 e230       | 0  |		Load	0x1,0x30
00c3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00c4 00d9       |    |		Load_Top	At_Offset_1
00c5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c6 4801       |H   |		Short_Literal	0x1
00c7 00d9       |    |		Load_Top	At_Offset_1
00c8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00ea       |    |		Load_Encached	Null_String_Cache
00d4 820e       |    |		Call	0x1,0xe
00d5 00ca       |    |		Action	Exit_Nullary_Function
00d6 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
00dc 8211       |    |		Call	0x1,0x11
00dd 820e       |    |		Call	0x1,0xe
00de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00df 0000       |    |		.XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 8232       | 2  |		Call	0x1,0x32
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e7 e230       | 0  |		Load	0x1,0x30
00e8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ea 0000 0000  |    |		.BLANK	0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7       |    |		.CONST	0x00f7								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 e212       |    |		Load	0x1,0x12
00f4 0322       | "  |		Declare_Variable	Record
00f5 00d8       |    |		Load_Top	At_Offset_0
00f6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f7			BODY_00f0:
00f7 4801       |H   |		Short_Literal	0x1
00f8 00d9       |    |		Load_Top	At_Offset_1
00f9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb 00ca       |    |		Action	Exit_Nullary_Function
00fc 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
0104 8233       | 3  |		Call	0x1,0x33
0105 00da       |    |		Load_Top	At_Offset_2
0106 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0107 e231       | 1  |		Load	0x1,0x31
0108 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0109 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010a 0000 0000  |    |		.BLANK	0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 8233       | 3  |		Call	0x1,0x33
0115 00da       |    |		Load_Top	At_Offset_2
0116 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0117 e231       | 1  |		Load	0x1,0x31
0118 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0119 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011a 0000 0000  |    |		.BLANK	0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0127       | '  |		.CONST	0x0127								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 e212       |    |		Load	0x1,0x12
0124 0322       | "  |		Declare_Variable	Record
0125 00d8       |    |		Load_Top	At_Offset_0
0126 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0127			BODY_0120:
0127 00db       |    |		Load_Top	At_Offset_3
0128 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0129 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
012a 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
012b e231       | 1  |		Load	0x1,0x31
012c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
012d 00d9       |    |		Load_Top	At_Offset_1
012e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012f 4801       |H   |		Short_Literal	0x1
0130 00d9       |    |		Load_Top	At_Offset_1
0131 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0132 00d8       |    |		Load_Top	At_Offset_0
0133 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0134 0000 0000  |    |		.BLANK	0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c 8233       | 3  |		Call	0x1,0x33
013d 00da       |    |		Load_Top	At_Offset_2
013e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013f e231       | 1  |		Load	0x1,0x31
0140 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0141 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0142 0000 0000  |    |		.BLANK	0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c 8233       | 3  |		Call	0x1,0x33
014d 00da       |    |		Load_Top	At_Offset_2
014e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014f e231       | 1  |		Load	0x1,0x31
0150 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0151 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0152 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
015c 8233       | 3  |		Call	0x1,0x33
015d 00da       |    |		Load_Top	At_Offset_2
015e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
015f e231       | 1  |		Load	0x1,0x31
0160 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0161 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 8233       | 3  |		Call	0x1,0x33
016d 00da       |    |		Load_Top	At_Offset_2
016e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
016f e231       | 1  |		Load	0x1,0x31
0170 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0171 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0172 0000 0000  |    |		.BLANK	0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 8233       | 3  |		Call	0x1,0x33
017d 00da       |    |		Load_Top	At_Offset_2
017e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
017f e231       | 1  |		Load	0x1,0x31
0180 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0181 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0182 0000 0000  |    |		.BLANK	0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0192       |    |		.CONST	0x0192								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 8233       | 3  |		Call	0x1,0x33
018d 00da       |    |		Load_Top	At_Offset_2
018e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018f e231       | 1  |		Load	0x1,0x31
0190 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0191 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0192			TRAP_0188:
0192 e231       | 1  |		Load	0x1,0x31
0193 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
0194 010f       |    |		Execute	Exception,Equal
0195 6802       |h   |		Jump_Zero	0x198
0196 e22d       | -  |		Load	0x1,0x2d
0197 0257       | W  |		Execute	Discrete,Raise
0198 0100       |    |		Execute	Exception,Raise
0199 0000 0000  |    |		.BLANK	0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 01aa       |    |		.CONST	0x01aa								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 8233       | 3  |		Call	0x1,0x33
01a5 00da       |    |		Load_Top	At_Offset_2
01a6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a7 e231       | 1  |		Load	0x1,0x31
01a8 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01aa			TRAP_01a0:
01aa e231       | 1  |		Load	0x1,0x31
01ab 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
01ac 010f       |    |		Execute	Exception,Equal
01ad 6802       |h   |		Jump_Zero	0x1b0
01ae e22e       | .  |		Load	0x1,0x2e
01af 0257       | W  |		Execute	Discrete,Raise
01b0 0100       |    |		Execute	Exception,Raise
01b1 0000 0000  |    |		.BLANK	0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 01c2       |    |		.CONST	0x01c2								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 8233       | 3  |		Call	0x1,0x33
01bd 00da       |    |		Load_Top	At_Offset_2
01be 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01bf e231       | 1  |		Load	0x1,0x31
01c0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c2			TRAP_01b8:
01c2 e231       | 1  |		Load	0x1,0x31
01c3 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
01c4 010f       |    |		Execute	Exception,Equal
01c5 6802       |h   |		Jump_Zero	0x1c8
01c6 e22c       | ,  |		Load	0x1,0x2c
01c7 0257       | W  |		Execute	Discrete,Raise
01c8 0100       |    |		Execute	Exception,Raise
01c9 0000 0000  |    |		.BLANK	0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 01da       |    |		.CONST	0x01da								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 8233       | 3  |		Call	0x1,0x33
01d5 00da       |    |		Load_Top	At_Offset_2
01d6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01d7 e231       | 1  |		Load	0x1,0x31
01d8 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01da			TRAP_01d0:
01da e231       | 1  |		Load	0x1,0x31
01db 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
01dc 010f       |    |		Execute	Exception,Equal
01dd 6802       |h   |		Jump_Zero	0x1e0
01de e22c       | ,  |		Load	0x1,0x2c
01df 0257       | W  |		Execute	Discrete,Raise
01e0 0100       |    |		Execute	Exception,Raise
01e1 0000 0000  |    |		.BLANK	0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 01f3       |    |		.CONST	0x01f3								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00db       |    |		Load_Top	At_Offset_3
01ec 8233       | 3  |		Call	0x1,0x33
01ed 00db       |    |		Load_Top	At_Offset_3
01ee 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ef 00db       |    |		Load_Top	At_Offset_3
01f0 e231       | 1  |		Load	0x1,0x31
01f1 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01f2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f3			TRAP_01e8:
01f3 e231       | 1  |		Load	0x1,0x31
01f4 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
01f5 010f       |    |		Execute	Exception,Equal
01f6 6802       |h   |		Jump_Zero	0x1f9
01f7 e22f       | /  |		Load	0x1,0x2f
01f8 0257       | W  |		Execute	Discrete,Raise
01f9 0100       |    |		Execute	Exception,Raise
01fa 0000 0000  |    |		.BLANK	0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 020b       |    |		.CONST	0x020b								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00db       |    |		Load_Top	At_Offset_3
0204 8233       | 3  |		Call	0x1,0x33
0205 00db       |    |		Load_Top	At_Offset_3
0206 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0207 00db       |    |		Load_Top	At_Offset_3
0208 e231       | 1  |		Load	0x1,0x31
0209 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
020a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
020b			TRAP_0200:
020b e231       | 1  |		Load	0x1,0x31
020c 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
020d 010f       |    |		Execute	Exception,Equal
020e 6802       |h   |		Jump_Zero	0x211
020f e22f       | /  |		Load	0x1,0x2f
0210 0257       | W  |		Execute	Discrete,Raise
0211 0100       |    |		Execute	Exception,Raise
0212 0000 0000  |    |		.BLANK	0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00db       |    |		Load_Top	At_Offset_3
021c 8233       | 3  |		Call	0x1,0x33
021d 00da       |    |		Load_Top	At_Offset_2
021e 8232       | 2  |		Call	0x1,0x32
021f 00db       |    |		Load_Top	At_Offset_3
0220 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0221 00db       |    |		Load_Top	At_Offset_3
0222 e231       | 1  |		Load	0x1,0x31
0223 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0224 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0225 0000 0000  |    |		.XXX[0x3]
0227 0000       |    |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 4607       |F   |		Jump_Case	0x8
022c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
022d 7806       |x   |		Jump	0x234								; case 0x1
022e 7809       |x   |		Jump	0x238								; case 0x2
022f 780d       |x   |		Jump	0x23d								; case 0x3
0230 7810       |x   |		Jump	0x241								; case 0x4
0231 7811       |x   |		Jump	0x243								; case 0x5
0232 7812       |x   |		Jump	0x245								; case 0x6
0233 7815       |x   |		Jump	0x249								; case 0x7
0234 00da       |    |		Load_Top	At_Offset_2
0235 0091 0336  |   6|		Action	Push_String_Extended_Indexed,0x336				; "PRECEEDING"
0237 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0238 00db       |    |		Load_Top	At_Offset_3
0239 00db       |    |		Load_Top	At_Offset_3
023a 00e0       |    |		Load_Encached	Standard_Cache
023b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
023c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
023d 00da       |    |		Load_Top	At_Offset_2
023e 00e0       |    |		Load_Encached	Standard_Cache
023f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0240 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0241 00db       |    |		Load_Top	At_Offset_3
0242 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0243 00db       |    |		Load_Top	At_Offset_3
0244 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0245 e224       | $  |		Load	0x1,0x24
0246 00dc       |    |		Load_Top	At_Offset_4
0247 0267       | g  |		Execute	Discrete,Predecessor
0248 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0249 e224       | $  |		Load	0x1,0x24
024a 00dc       |    |		Load_Top	At_Offset_4
024b 0268       | h  |		Execute	Discrete,Successor
024c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024d 0000 0000  |    |		.XXX[0x3]
024f 0000       |    |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0269       | i  |		.CONST	0x0269								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 e5fd       |    |		Load	0x2,-0x3
0254 8233       | 3  |		Call	0x1,0x33
0255 00da       |    |		Load_Top	At_Offset_2
0256 8232       | 2  |		Call	0x1,0x32
0257 00db       |    |		Load_Top	At_Offset_3
0258 6808       |h   |		Jump_Zero	0x261
0259 e5fd       |    |		Load	0x2,-0x3
025a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
025b 4801       |H   |		Short_Literal	0x1
025c e5ff       |    |		Load	0x2,-0x1
025d e231       | 1  |		Load	0x1,0x31
025e 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
025f 00d1       |    |		Pop_Control	Pop_Count_1
0260 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0261 e5fd       |    |		Load	0x2,-0x3
0262 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0263 4800       |H   |		Short_Literal	0x0
0264 e5ff       |    |		Load	0x2,-0x1
0265 e231       | 1  |		Load	0x1,0x31
0266 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0267 00d1       |    |		Pop_Control	Pop_Count_1
0268 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0269			TRAP_0250:
0269 e231       | 1  |		Load	0x1,0x31
026a 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
026b 010f       |    |		Execute	Exception,Equal
026c 6802       |h   |		Jump_Zero	0x26f
026d e22c       | ,  |		Load	0x1,0x2c
026e 0257       | W  |		Execute	Discrete,Raise
026f 0100       |    |		Execute	Exception,Raise
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 028b       |    |		.CONST	0x028b								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 e5fc       |    |		Load	0x2,-0x4
0274 8233       | 3  |		Call	0x1,0x33
0275 00da       |    |		Load_Top	At_Offset_2
0276 8232       | 2  |		Call	0x1,0x32
0277 e5fd       |    |		Load	0x2,-0x3
0278 6809       |h   |		Jump_Zero	0x282
0279 e5fc       |    |		Load	0x2,-0x4
027a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027b 4801       |H   |		Short_Literal	0x1
027c e5fe       |    |		Load	0x2,-0x2
027d e5ff       |    |		Load	0x2,-0x1
027e e231       | 1  |		Load	0x1,0x31
027f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0280 00d1       |    |		Pop_Control	Pop_Count_1
0281 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0282 e5fc       |    |		Load	0x2,-0x4
0283 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0284 4800       |H   |		Short_Literal	0x0
0285 e5fe       |    |		Load	0x2,-0x2
0286 e5ff       |    |		Load	0x2,-0x1
0287 e231       | 1  |		Load	0x1,0x31
0288 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0289 00d1       |    |		Pop_Control	Pop_Count_1
028a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
028b			TRAP_0270:
028b e231       | 1  |		Load	0x1,0x31
028c 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
028d 010f       |    |		Execute	Exception,Equal
028e 6802       |h   |		Jump_Zero	0x291
028f e22f       | /  |		Load	0x1,0x2f
0290 0257       | W  |		Execute	Discrete,Raise
0291 0100       |    |		Execute	Exception,Raise
0292 0000 0000  |    |		.BLANK	0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 02a5       |    |		.CONST	0x02a5								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 00db       |    |		Load_Top	At_Offset_3
029c 8233       | 3  |		Call	0x1,0x33
029d 00da       |    |		Load_Top	At_Offset_2
029e 8232       | 2  |		Call	0x1,0x32
029f 00db       |    |		Load_Top	At_Offset_3
02a0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a1 00db       |    |		Load_Top	At_Offset_3
02a2 e231       | 1  |		Load	0x1,0x31
02a3 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02a4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a5			TRAP_0298:
02a5 e231       | 1  |		Load	0x1,0x31
02a6 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02a7 010f       |    |		Execute	Exception,Equal
02a8 6802       |h   |		Jump_Zero	0x2ab
02a9 e22c       | ,  |		Load	0x1,0x2c
02aa 0257       | W  |		Execute	Discrete,Raise
02ab 0100       |    |		Execute	Exception,Raise
02ac 0000 0000  |    |		.BLANK	0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 02ba       |    |		.CONST	0x02ba								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 8233       | 3  |		Call	0x1,0x33
02b5 00da       |    |		Load_Top	At_Offset_2
02b6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b7 e231       | 1  |		Load	0x1,0x31
02b8 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ba			TRAP_02b0:
02ba e231       | 1  |		Load	0x1,0x31
02bb 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02bc 010f       |    |		Execute	Exception,Equal
02bd 6802       |h   |		Jump_Zero	0x2c0
02be e22c       | ,  |		Load	0x1,0x2c
02bf 0257       | W  |		Execute	Discrete,Raise
02c0 0100       |    |		Execute	Exception,Raise
02c1 0000 0000  |    |		.BLANK	0000[0x7]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 02d3       |    |		.CONST	0x02d3								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00db       |    |		Load_Top	At_Offset_3
02cc 8233       | 3  |		Call	0x1,0x33
02cd 00db       |    |		Load_Top	At_Offset_3
02ce 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02cf 00db       |    |		Load_Top	At_Offset_3
02d0 e231       | 1  |		Load	0x1,0x31
02d1 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02d2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d3			TRAP_02c8:
02d3 e231       | 1  |		Load	0x1,0x31
02d4 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
02d5 010f       |    |		Execute	Exception,Equal
02d6 6802       |h   |		Jump_Zero	0x2d9
02d7 e22f       | /  |		Load	0x1,0x2f
02d8 0257       | W  |		Execute	Discrete,Raise
02d9 0100       |    |		Execute	Exception,Raise
02da 0000 0000  |    |		.BLANK	0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02e5 e231       | 1  |		Load	0x1,0x31
02e6 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
02e7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ed 7002       |p   |		Jump_Nonzero	0x2f0
02ee e22b       | +  |		Load	0x1,0x2b
02ef 0257       | W  |		Execute	Discrete,Raise
02f0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02f1 0000 0000  |    |		.BLANK	0000[0x7]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02fd 7002       |p   |		Jump_Nonzero	0x300
02fe e22b       | +  |		Load	0x1,0x2b
02ff 0257       | W  |		Execute	Discrete,Raise
0300 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0301 0000 0000  |    |		.BLANK	0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 4608       |F   |		Jump_Case	0x9
030c 7808       |x   |		Jump	0x315								; case 0x0
030d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
030e 780a       |x   |		Jump	0x319								; case 0x2
030f 7809       |x   |		Jump	0x319								; case 0x3
0310 7808       |x   |		Jump	0x319								; case 0x4
0311 7807       |x   |		Jump	0x319								; case 0x5
0312 7806       |x   |		Jump	0x319								; case 0x6
0313 7805       |x   |		Jump	0x319								; case 0x7
0314 7804       |x   |		Jump	0x319								; case 0x8
0315 4800       |H   |		Short_Literal	0x0
0316 00db       |    |		Load_Top	At_Offset_3
0317 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0318 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0319 0869       | i  |		Execute_Immediate	Raise,0x69
031a 0000 0000  |    |		.BLANK	0000[0x6]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 4608       |F   |		Jump_Case	0x9
0324 7808       |x   |		Jump	0x32d								; case 0x0
0325 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0326 780e       |x   |		Jump	0x335								; case 0x2
0327 780d       |x   |		Jump	0x335								; case 0x3
0328 780c       |x   |		Jump	0x335								; case 0x4
0329 780b       |x   |		Jump	0x335								; case 0x5
032a 780a       |x   |		Jump	0x335								; case 0x6
032b 7809       |x   |		Jump	0x335								; case 0x7
032c 7808       |x   |		Jump	0x335								; case 0x8
032d e231       | 1  |		Load	0x1,0x31
032e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
032f 00db       |    |		Load_Top	At_Offset_3
0330 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0331 4800       |H   |		Short_Literal	0x0
0332 00db       |    |		Load_Top	At_Offset_3
0333 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0334 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0335 0869       | i  |		Execute_Immediate	Raise,0x69
0336 ; --------------------------------------------------------------------------------------
0336 ; STRING TABLE
0336 ; --------------------------------------------------------------------------------------
0336 0006       |    |		.STRTAB	0x0006->0x0339							; "PRECEEDING"
0337 000e       |    |		.STRTAB	0x000e->0x033e							; "FOLLOWING"
0338 0015       |    |		.STREND 0x0015->0x0342
0339 5052 4543  |PREC|		.STRTAB_STRINGS
0343 0000 0000  |    |		.BLANK	0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug Table
0348 ; --------------------------------------------------------------------------------------
0348 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x7146,0x0000,0x0001,0x0021
034e 000b 03d2  |    |		.DBG4T	0x000b,0x03d2,0x8000,0x0000
0352 0071 03fb  | q  |		.DBG4T	0x0071,0x03fb,0x8000,0x0000
0356 00bb 041a  |    |		.DBG4T	0x00bb,0x041a,0x0002,0x0000
035a 00d3 0420  |    |		.DBG4T	0x00d3,0x0420,0x0002,0x0000
035e 00db 0423  |   #|		.DBG4T	0x00db,0x0423,0x0002,0x0000
0362 00e3 0426  |   &|		.DBG4T	0x00e3,0x0426,0x0002,0x0000
0366 00f3 042a  |   *|		.DBG4T	0x00f3,0x042a,0x0002,0x0000
036a 0103 042f  |   /|		.DBG4T	0x0103,0x042f,0x0002,0x0000
036e 0113 0433  |   3|		.DBG4T	0x0113,0x0433,0x0002,0x0000
0372 0123 0437  | # 7|		.DBG4T	0x0123,0x0437,0x0002,0x0000
0376 013b 043d  | ; =|		.DBG4T	0x013b,0x043d,0x0001,0x0000
037a 014b 0441  | K A|		.DBG4T	0x014b,0x0441,0x0001,0x0000
037e 015b 0445  | [ E|		.DBG4T	0x015b,0x0445,0x0002,0x0000
0382 016b 0449  | k I|		.DBG4T	0x016b,0x0449,0x0002,0x0000
0386 017b 044d  | { M|		.DBG4T	0x017b,0x044d,0x0002,0x0000
038a 018b 0451  |   Q|		.DBG4T	0x018b,0x0451,0x0001,0x0000
038e 01a3 0456  |   V|		.DBG4T	0x01a3,0x0456,0x0001,0x0000
0392 01bb 045b  |   [|		.DBG4T	0x01bb,0x045b,0x0002,0x0000
0396 01d3 0460  |   `|		.DBG4T	0x01d3,0x0460,0x0002,0x0000
039a 01eb 0465  |   e|		.DBG4T	0x01eb,0x0465,0x0001,0x0000
039e 0203 046a  |   j|		.DBG4T	0x0203,0x046a,0x0002,0x0000
03a2 021b 046f  |   o|		.DBG4T	0x021b,0x046f,0x0001,0x0000
03a6 022b 0000  | +  |		.DBG4T	0x022b,0x0000,0x0005,0x0000
03aa 0253 0474  | S t|		.DBG4T	0x0253,0x0474,0x0001,0x4000
03ae 0273 0482  | s  |		.DBG4T	0x0273,0x0482,0x0001,0x4000
03b2 029b 0490  |    |		.DBG4T	0x029b,0x0490,0x0001,0x0000
03b6 02b3 0496  |    |		.DBG4T	0x02b3,0x0496,0x0001,0x0000
03ba 02cb 049b  |    |		.DBG4T	0x02cb,0x049b,0x0001,0x0000
03be 02e3 04a0  |    |		.DBG4T	0x02e3,0x04a0,0x0001,0x0000
03c2 02eb 04a3  |    |		.DBG4T	0x02eb,0x04a3,0x0001,0x0000
03c6 02fb 04a7  |    |		.DBG4T	0x02fb,0x04a7,0x0001,0x0000
03ca 030b 0000  |    |		.DBG4T	0x030b,0x0000,0x0005,0x0000
03ce 0323 0000  | #  |		.DBG4T	0x0323,0x0000,0x0005,0x0000
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug chain
03d2 ; --------------------------------------------------------------------------------------
03d2 0027 0000  | '  |		.DBGLEN	0x0027,0x0000
03d4 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x005b,0x0062,0x0069
03fb ; --------------------------------------------------------------------------------------
03fb ; Debug chain
03fb ; --------------------------------------------------------------------------------------
03fb 001d 0000  |    |		.DBGLEN	0x001d,0x0000
03fd 0071 0073  | q s|		.DBGLNO	0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af
041a ; --------------------------------------------------------------------------------------
041a ; Debug chain
041a ; --------------------------------------------------------------------------------------
041a 0001 0003  |    |		.DBGLEN	0x0001,0x0003
041c 00bb 00bf  |    |		.DBGLNO	0x00bb,0x00bf,0x00c6,0x00c9
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug chain
0420 ; --------------------------------------------------------------------------------------
0420 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0422 00d3       |    |		.DBGLNO	0x00d3
0423 ; --------------------------------------------------------------------------------------
0423 ; Debug chain
0423 ; --------------------------------------------------------------------------------------
0423 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0425 00db       |    |		.DBGLNO	0x00db
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug chain
0426 ; --------------------------------------------------------------------------------------
0426 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0428 00e3 00e5  |    |		.DBGLNO	0x00e3,0x00e5
042a ; --------------------------------------------------------------------------------------
042a ; Debug chain
042a ; --------------------------------------------------------------------------------------
042a 0001 0002  |    |		.DBGLEN	0x0001,0x0002
042c 00f3 00f7  |    |		.DBGLNO	0x00f3,0x00f7,0x00fa
042f ; --------------------------------------------------------------------------------------
042f ; Debug chain
042f ; --------------------------------------------------------------------------------------
042f 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0431 0103 0105  |    |		.DBGLNO	0x0103,0x0105
0433 ; --------------------------------------------------------------------------------------
0433 ; Debug chain
0433 ; --------------------------------------------------------------------------------------
0433 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0435 0113 0115  |    |		.DBGLNO	0x0113,0x0115
0437 ; --------------------------------------------------------------------------------------
0437 ; Debug chain
0437 ; --------------------------------------------------------------------------------------
0437 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0439 0123 0127  | # '|		.DBGLNO	0x0123,0x0127,0x012f,0x0132
043d ; --------------------------------------------------------------------------------------
043d ; Debug chain
043d ; --------------------------------------------------------------------------------------
043d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
043f 013b 013d  | ; =|		.DBGLNO	0x013b,0x013d
0441 ; --------------------------------------------------------------------------------------
0441 ; Debug chain
0441 ; --------------------------------------------------------------------------------------
0441 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0443 014b 014d  | K M|		.DBGLNO	0x014b,0x014d
0445 ; --------------------------------------------------------------------------------------
0445 ; Debug chain
0445 ; --------------------------------------------------------------------------------------
0445 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0447 015b 015d  | [ ]|		.DBGLNO	0x015b,0x015d
0449 ; --------------------------------------------------------------------------------------
0449 ; Debug chain
0449 ; --------------------------------------------------------------------------------------
0449 0000 0002  |    |		.DBGLEN	0x0000,0x0002
044b 016b 016d  | k m|		.DBGLNO	0x016b,0x016d
044d ; --------------------------------------------------------------------------------------
044d ; Debug chain
044d ; --------------------------------------------------------------------------------------
044d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
044f 017b 017d  | { }|		.DBGLNO	0x017b,0x017d
0451 ; --------------------------------------------------------------------------------------
0451 ; Debug chain
0451 ; --------------------------------------------------------------------------------------
0451 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0453 018b 018d  |    |		.DBGLNO	0x018b,0x018d,0x0196
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug chain
0456 ; --------------------------------------------------------------------------------------
0456 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0458 01a3 01a5  |    |		.DBGLNO	0x01a3,0x01a5,0x01ae
045b ; --------------------------------------------------------------------------------------
045b ; Debug chain
045b ; --------------------------------------------------------------------------------------
045b 0000 0003  |    |		.DBGLEN	0x0000,0x0003
045d 01bb 01bd  |    |		.DBGLNO	0x01bb,0x01bd,0x01c6
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug chain
0460 ; --------------------------------------------------------------------------------------
0460 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0462 01d3 01d5  |    |		.DBGLNO	0x01d3,0x01d5,0x01de
0465 ; --------------------------------------------------------------------------------------
0465 ; Debug chain
0465 ; --------------------------------------------------------------------------------------
0465 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0467 01eb 01ed  |    |		.DBGLNO	0x01eb,0x01ed,0x01f7
046a ; --------------------------------------------------------------------------------------
046a ; Debug chain
046a ; --------------------------------------------------------------------------------------
046a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
046c 0203 0205  |    |		.DBGLNO	0x0203,0x0205,0x020f
046f ; --------------------------------------------------------------------------------------
046f ; Debug chain
046f ; --------------------------------------------------------------------------------------
046f 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0471 021b 021d  |    |		.DBGLNO	0x021b,0x021d,0x021f
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug chain
0474 ; --------------------------------------------------------------------------------------
0474 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0476 0253 0255  | S U|		.DBGLNO	0x0253,0x0255,0x0257,0x0259,0x0261,0x026d
047c 0001 0002  |    |		.XXX[0x6]
047e 0003 0005  |    |
0480 0004 0006  |    |
0482 ; --------------------------------------------------------------------------------------
0482 ; Debug chain
0482 ; --------------------------------------------------------------------------------------
0482 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0484 0273 0275  | s u|		.DBGLNO	0x0273,0x0275,0x0277,0x0279,0x0282,0x028f
048a 0001 0002  |    |		.XXX[0x6]
048c 0003 0005  |    |
048e 0004 0006  |    |
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug chain
0490 ; --------------------------------------------------------------------------------------
0490 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0492 029b 029d  |    |		.DBGLNO	0x029b,0x029d,0x029f,0x02a9
0496 ; --------------------------------------------------------------------------------------
0496 ; Debug chain
0496 ; --------------------------------------------------------------------------------------
0496 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0498 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02be
049b ; --------------------------------------------------------------------------------------
049b ; Debug chain
049b ; --------------------------------------------------------------------------------------
049b 0000 0003  |    |		.DBGLEN	0x0000,0x0003
049d 02cb 02cd  |    |		.DBGLNO	0x02cb,0x02cd,0x02d7
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug chain
04a0 ; --------------------------------------------------------------------------------------
04a0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04a2 02e3       |    |		.DBGLNO	0x02e3
04a3 ; --------------------------------------------------------------------------------------
04a3 ; Debug chain
04a3 ; --------------------------------------------------------------------------------------
04a3 0000 0002  |    |		.DBGLEN	0x0000,0x0002
04a5 02eb 02ee  |    |		.DBGLNO	0x02eb,0x02ee
04a7 ; --------------------------------------------------------------------------------------
04a7 ; Debug chain
04a7 ; --------------------------------------------------------------------------------------
04a7 0000 0002  |    |		.DBGLEN	0x0000,0x0002
04a9 02fb 02fe  |    |		.DBGLNO	0x02fb,0x02fe
04ab 0000 0000  |    |		.BLANK	0000[0x155]