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

⟦f63bf13a8⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_e2acbc

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0208       |    |		.CONST	0x0208								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001e       |    |		.CONST	0x001e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0011 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0013 00bf       |    |		Action	Accept_Activation
0014 029d 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call
0016 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001b 00c7       |    |		Action	Elaborate_Subprogram
001c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001d 00c7       |    |		Action	Elaborate_Subprogram
001e			BODY_0008:
001e 00bc       |    |		Action	Signal_Activated
001f 00bb       |    |		Action	Signal_Completion
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0033       | 3  |		.CONST	0x0033								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0005       |    |		.CONST	0x0005								; Number of locals
0023			INIT_0020:
0023 e001       |    |		Load	0x0,0x1
0024 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0025 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0026 e001       |    |		Load	0x0,0x1
0027 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0028 02c7       |    |		Declare_Variable	Any
0029 e5ff       |    |		Load	0x2,-0x1
002a a403       |    |		Store_Unchecked	0x2,0x3
002b e001       |    |		Load	0x0,0x1
002c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002d e001       |    |		Load	0x0,0x1
002e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
002f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0030 02c7       |    |		Declare_Variable	Any
0031 00d8       |    |		Load_Top	At_Offset_0
0032 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0033			BODY_0020:
0033 00da       |    |		Load_Top	At_Offset_2
0034 8211       |    |		Call	0x1,0x11
0035 6802       |h   |		Jump_Zero	0x38
0036 00da       |    |		Load_Top	At_Offset_2
0037 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0038 e001       |    |		Load	0x0,0x1
0039 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003a 00d9       |    |		Load_Top	At_Offset_1
003b 0120       |    |		Execute	Any,Is_Value
003c 6804       |h   |		Jump_Zero	0x41
003d e001       |    |		Load	0x0,0x1
003e 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
003f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0040 7801       |x   |		Jump	0x42
0041 00d9       |    |		Load_Top	At_Offset_1
0042 e403       |    |		Load	0x2,0x3
0043 e001       |    |		Load	0x0,0x1
0044 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0045 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0046 c405       |    |		Store	0x2,0x5
0047 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0048 00d9       |    |		Load_Top	At_Offset_1
0049 6803       |h   |		Jump_Zero	0x4d
004a e001       |    |		Load	0x0,0x1
004b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
004c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
004d 00d8       |    |		Load_Top	At_Offset_0
004e e001       |    |		Load	0x0,0x1
004f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0050 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0051 c403       |    |		Store	0x2,0x3
0052 00da       |    |		Load_Top	At_Offset_2
0053 8211       |    |		Call	0x1,0x11
0054 6802       |h   |		Jump_Zero	0x57
0055 00da       |    |		Load_Top	At_Offset_2
0056 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0057 e001       |    |		Load	0x0,0x1
0058 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0059 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
005a 0000 0000  |    |		.BLANK	0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006b       | k  |		.CONST	0x006b								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0003       |    |		.CONST	0x0003								; Number of locals
0063			INIT_0060:
0063 e001       |    |		Load	0x0,0x1
0064 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0065 02c7       |    |		Declare_Variable	Any
0066 00d8       |    |		Load_Top	At_Offset_0
0067 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0068 e001       |    |		Load	0x0,0x1
0069 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
006b			BODY_0060:
006b e001       |    |		Load	0x0,0x1
006c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
006e 00da       |    |		Load_Top	At_Offset_2
006f 0120       |    |		Execute	Any,Is_Value
0070 6803       |h   |		Jump_Zero	0x74
0071 e001       |    |		Load	0x0,0x1
0072 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0073 7801       |x   |		Jump	0x75
0074 00da       |    |		Load_Top	At_Offset_2
0075 601e       |`   |		Indirect_Literal	Discrete,0x94,{0x00000000, 0x00004000}
0076 e002       |    |		Load	0x0,0x2
0077 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0078 e003       |    |		Load	0x0,0x3
0079 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
007a e001       |    |		Load	0x0,0x1
007b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
007c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
007d e5ff       |    |		Load	0x2,-0x1
007e e001       |    |		Load	0x0,0x1
007f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0080 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0081 c402       |    |		Store	0x2,0x2
0082 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0083 00d8       |    |		Load_Top	At_Offset_0
0084 680c       |h   |		Jump_Zero	0x91
0085 e004       |    |		Load	0x0,0x4
0086 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0087 4806       |H   |		Short_Literal	0x6
0088 e5ff       |    |		Load	0x2,-0x1
0089 0092 01f6  |    |		Action	Push_String_Extended,0x1f6					; " not found"
008b 01cc       |    |		Execute	Vector,Catenate
008c e005       |    |		Load	0x0,0x5
008d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
008e e001       |    |		Load	0x0,0x1
008f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0090 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0091 00d9       |    |		Load_Top	At_Offset_1
0092 820d       |    |		Call	0x1,0xd
0093 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0094 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a3       |    |		.CONST	0x00a3								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0003       |    |		.CONST	0x0003								; Number of locals
009b			INIT_0098:
009b e001       |    |		Load	0x0,0x1
009c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
009d 02c7       |    |		Declare_Variable	Any
009e 00d8       |    |		Load_Top	At_Offset_0
009f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a0 e001       |    |		Load	0x0,0x1
00a1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a3			BODY_0098:
00a3 e001       |    |		Load	0x0,0x1
00a4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 0120       |    |		Execute	Any,Is_Value
00a8 6803       |h   |		Jump_Zero	0xac
00a9 e001       |    |		Load	0x0,0x1
00aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ab 7801       |x   |		Jump	0xad
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 67e6       |g   |		Indirect_Literal	Discrete,0x94,{0x00000000, 0x00004000}
00ae e002       |    |		Load	0x0,0x2
00af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b0 e003       |    |		Load	0x0,0x3
00b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00b2 e001       |    |		Load	0x0,0x1
00b3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00b4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00b5 e5ff       |    |		Load	0x2,-0x1
00b6 e001       |    |		Load	0x0,0x1
00b7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00b8 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00b9 c402       |    |		Store	0x2,0x2
00ba 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc 6803       |h   |		Jump_Zero	0xc0
00bd e001       |    |		Load	0x0,0x1
00be 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00e5       |    |		.CONST	0x00e5								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0009       |    |		.CONST	0x0009								; Number of locals
00cb			INIT_00c8:
00cb e006       |    |		Load	0x0,0x6
00cc e007       |    |		Load	0x0,0x7
00cd e001       |    |		Load	0x0,0x1
00ce 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00cf e008       |    |		Load	0x0,0x8
00d0 0387       |    |		Declare_Variable	Package
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 020f       |    |		Execute	Module,Activate
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00d5 e001       |    |		Load	0x0,0x1
00d6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d7 02c7       |    |		Declare_Variable	Any
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 820d       |    |		Call	0x1,0xd
00da a404       |    |		Store_Unchecked	0x2,0x4
00db 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
00dd 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
00df 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
00e1 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
00e3 029f 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Call
00e5			BODY_00c8:
00e5 e402       |    |		Load	0x2,0x2
00e6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00e7 e402       |    |		Load	0x2,0x2
00e8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e9 c403       |    |		Store	0x2,0x3
00ea e5ff       |    |		Load	0x2,-0x1
00eb 8409       |    |		Call	0x2,0x9
00ec e403       |    |		Load	0x2,0x3
00ed 8405       |    |		Call	0x2,0x5
00ee e403       |    |		Load	0x2,0x3
00ef 8406       |    |		Call	0x2,0x6
00f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f1 0000 0000  |    |		.BLANK	0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0101       |    |		.CONST	0x0101								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0002       |    |		.CONST	0x0002								; Number of locals
00fb			INIT_00f8:
00fb 00da       |    |		Load_Top	At_Offset_2
00fc e001       |    |		Load	0x0,0x1
00fd 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00fe e001       |    |		Load	0x0,0x1
00ff 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0100 03f1       |    |		Declare_Variable	Discrete,With_Value
0101			BODY_00f8:
0101 00d8       |    |		Load_Top	At_Offset_0
0102 e009       |    |		Load	0x0,0x9
0103 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0104 027f       |    |		Execute	Discrete,Equal
0105 700c       |p   |		Jump_Nonzero	0x112
0106 00d8       |    |		Load_Top	At_Offset_0
0107 e009       |    |		Load	0x0,0x9
0108 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0109 027f       |    |		Execute	Discrete,Equal
010a 7005       |p   |		Jump_Nonzero	0x110
010b 00d8       |    |		Load_Top	At_Offset_0
010c e009       |    |		Load	0x0,0x9
010d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
010e 027f       |    |		Execute	Discrete,Equal
010f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0110 4801       |H   |		Short_Literal	0x1
0111 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0112 4801       |H   |		Short_Literal	0x1
0113 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011f       |    |		.CONST	0x011f								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0003       |    |		.CONST	0x0003								; Number of locals
011b			INIT_0118:
011b e402       |    |		Load	0x2,0x2
011c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
011d 00e2       |    |		Load_Encached	Integer_Cache
011e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
011f			BODY_0118:
011f e402       |    |		Load	0x2,0x2
0120 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0121 e7ff       |    |		Load	0x3,-0x1
0122 e402       |    |		Load	0x2,0x2
0123 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0124 003a       | :  |		Store_Top	Access,At_Offset_2
0125 00cf       |    |		Action	Mark_Auxiliary
0126 7808       |x   |		Jump	0x12f
0127 00d9       |    |		Load_Top	At_Offset_1
0128 0a01       |    |		Execute_Immediate	Plus,0x1
0129 005a       | Z  |		Store_Top	Discrete,At_Offset_2
012a 00da       |    |		Load_Top	At_Offset_2
012b e402       |    |		Load	0x2,0x2
012c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
012d 003b       | ;  |		Store_Top	Access,At_Offset_3
012e 00c9       |    |		Action	Pop_Auxiliary_Loop
012f 00da       |    |		Load_Top	At_Offset_2
0130 e402       |    |		Load	0x2,0x2
0131 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0132 6ff4       |o   |		Jump_Zero	0x127
0133 00ce       |    |		Action	Pop_Auxiliary
0134 00d8       |    |		Load_Top	At_Offset_0
0135 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0136 0000 0000  |    |		.XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0145       | E  |		.CONST	0x0145								; Address of begin
0139 016c       | l  |		.CONST	0x016c								; Address of exception handler
013a 0004       |    |		.CONST	0x0004								; Number of locals
013b			INIT_0138:
013b 00db       |    |		Load_Top	At_Offset_3
013c e00a       |    |		Load	0x0,0xa
013d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
013f 00d8       |    |		Load_Top	At_Offset_0
0140 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0141 e402       |    |		Load	0x2,0x2
0142 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0143 00e2       |    |		Load_Encached	Integer_Cache
0144 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0145			BODY_0138:
0145 e402       |    |		Load	0x2,0x2
0146 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0147 e7ff       |    |		Load	0x3,-0x1
0148 e402       |    |		Load	0x2,0x2
0149 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
014a 003a       | :  |		Store_Top	Access,At_Offset_2
014b 00cf       |    |		Action	Mark_Auxiliary
014c 780f       |x   |		Jump	0x15c
014d 00da       |    |		Load_Top	At_Offset_2
014e e402       |    |		Load	0x2,0x2
014f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0150 00da       |    |		Load_Top	At_Offset_2
0151 e602       |    |		Load	0x3,0x2
0152 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0153 01d6       |    |		Execute	Vector,Field_Write
0154 00d9       |    |		Load_Top	At_Offset_1
0155 0a01       |    |		Execute_Immediate	Plus,0x1
0156 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0157 00da       |    |		Load_Top	At_Offset_2
0158 e402       |    |		Load	0x2,0x2
0159 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
015a 003b       | ;  |		Store_Top	Access,At_Offset_3
015b 00c9       |    |		Action	Pop_Auxiliary_Loop
015c 00da       |    |		Load_Top	At_Offset_2
015d e402       |    |		Load	0x2,0x2
015e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
015f 6fed       |o   |		Jump_Zero	0x14d
0160 00ce       |    |		Action	Pop_Auxiliary
0161 00da       |    |		Load_Top	At_Offset_2
0162 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0163 4800       |H   |		Short_Literal	0x0
0164 00ea       |    |		Load_Encached	Null_String_Cache
0165 00ea       |    |		Load_Encached	Null_String_Cache
0166 e00b       |    |		Load	0x0,0xb
0167 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0168 00db       |    |		Load_Top	At_Offset_3
0169 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
016a 00da       |    |		Load_Top	At_Offset_2
016b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
016c			TRAP_0138:
016c 0007       |    |		Action	Break_Optional
016d 00db       |    |		Load_Top	At_Offset_3
016e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
016f 4802       |H   |		Short_Literal	0x2
0170 00ea       |    |		Load_Encached	Null_String_Cache
0171 00ea       |    |		Load_Encached	Null_String_Cache
0172 e00b       |    |		Load	0x0,0xb
0173 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0174 e602       |    |		Load	0x3,0x2
0175 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0176 00db       |    |		Load_Top	At_Offset_3
0177 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0187       |    |		.CONST	0x0187								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0004       |    |		.CONST	0x0004								; Number of locals
017b			INIT_0178:
017b e00c       |    |		Load	0x0,0xc
017c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
017d 02c7       |    |		Declare_Variable	Any
017e 00d8       |    |		Load_Top	At_Offset_0
017f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0180 e001       |    |		Load	0x0,0x1
0181 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0182 02c7       |    |		Declare_Variable	Any
0183 00d8       |    |		Load_Top	At_Offset_0
0184 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0185 e001       |    |		Load	0x0,0x1
0186 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0187			BODY_0178:
0187 e7ff       |    |		Load	0x3,-0x1
0188 820d       |    |		Call	0x1,0xd
0189 e001       |    |		Load	0x0,0x1
018a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
018b 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
018c 0092 01f7  |    |		Action	Push_String_Extended,0x1f7					; ".state.referencers"
018e 01cc       |    |		Execute	Vector,Catenate
018f 820f       |    |		Call	0x1,0xf
0190 c603       |    |		Store	0x3,0x3
0191 e001       |    |		Load	0x0,0x1
0192 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0193 00db       |    |		Load_Top	At_Offset_3
0194 0120       |    |		Execute	Any,Is_Value
0195 6803       |h   |		Jump_Zero	0x199
0196 e00c       |    |		Load	0x0,0xc
0197 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0198 7801       |x   |		Jump	0x19a
0199 00db       |    |		Load_Top	At_Offset_3
019a 4800       |H   |		Short_Literal	0x0
019b 4800       |H   |		Short_Literal	0x0
019c e002       |    |		Load	0x0,0x2
019d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019e e603       |    |		Load	0x3,0x3
019f e00c       |    |		Load	0x0,0xc
01a0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01a1 c602       |    |		Store	0x3,0x2
01a2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ad       |    |		.CONST	0x01ad								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab e001       |    |		Load	0x0,0x1
01ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ad			BODY_01a8:
01ad e001       |    |		Load	0x0,0x1
01ae 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01af e7ff       |    |		Load	0x3,-0x1
01b0 e00c       |    |		Load	0x0,0xc
01b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01b2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01b3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b4 0000 0000  |    |		.BLANK	0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01cb       |    |		.CONST	0x01cb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0004       |    |		.CONST	0x0004								; Number of locals
01bb			INIT_01b8:
01bb e001       |    |		Load	0x0,0x1
01bc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01bd 02c7       |    |		Declare_Variable	Any
01be 00d8       |    |		Load_Top	At_Offset_0
01bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c0 e00c       |    |		Load	0x0,0xc
01c1 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01c2 02c7       |    |		Declare_Variable	Any
01c3 00d8       |    |		Load_Top	At_Offset_0
01c4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c5 e00c       |    |		Load	0x0,0xc
01c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01c7 02c7       |    |		Declare_Variable	Any
01c8 e7ff       |    |		Load	0x3,-0x1
01c9 8407       |    |		Call	0x2,0x7
01ca a604       |    |		Store_Unchecked	0x3,0x4
01cb			BODY_01b8:
01cb 00be       |    |		Action	Activate_Tasks
01cc 00d9       |    |		Load_Top	At_Offset_1
01cd 0120       |    |		Execute	Any,Is_Value
01ce 6803       |h   |		Jump_Zero	0x1d2
01cf e00c       |    |		Load	0x0,0xc
01d0 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01d1 7801       |x   |		Jump	0x1d3
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 00d9       |    |		Load_Top	At_Offset_1
01d4 e00c       |    |		Load	0x0,0xc
01d5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d6 c603       |    |		Store	0x3,0x3
01d7 00cf       |    |		Action	Mark_Auxiliary
01d8 7815       |x   |		Jump	0x1ee
01d9 00da       |    |		Load_Top	At_Offset_2
01da e00c       |    |		Load	0x0,0xc
01db 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01dc c602       |    |		Store	0x3,0x2
01dd 00db       |    |		Load_Top	At_Offset_3
01de e403       |    |		Load	0x2,0x3
01df e402       |    |		Load	0x2,0x2
01e0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01e1 7007       |p   |		Jump_Nonzero	0x1e9
01e2 e403       |    |		Load	0x2,0x3
01e3 e602       |    |		Load	0x3,0x2
01e4 e402       |    |		Load	0x2,0x2
01e5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01e6 c403       |    |		Store	0x2,0x3
01e7 00db       |    |		Load_Top	At_Offset_3
01e8 8409       |    |		Call	0x2,0x9
01e9 00da       |    |		Load_Top	At_Offset_2
01ea e00c       |    |		Load	0x0,0xc
01eb 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01ec c603       |    |		Store	0x3,0x3
01ed 00c9       |    |		Action	Pop_Auxiliary_Loop
01ee 00da       |    |		Load_Top	At_Offset_2
01ef e00c       |    |		Load	0x0,0xc
01f0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01f1 6fe7       |o   |		Jump_Zero	0x1d9
01f2 00ce       |    |		Action	Pop_Auxiliary
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 8408       |    |		Call	0x2,0x8
01f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f6 ; --------------------------------------------------------------------------------------
01f6 ; STRING TABLE
01f6 ; --------------------------------------------------------------------------------------
01f6 0006       |    |		.STRTAB	0x0006->0x01f9							; " not found"
01f7 000e       |    |		.STRTAB	0x000e->0x01fe							; ".state.referencers"
01f8 001e       |    |		.STREND 0x001e->0x0207
01f9 206e 6f74  | not|		.STRTAB_STRINGS
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug Table
0208 ; --------------------------------------------------------------------------------------
0208 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x1523,0x0000,0x0001,0x0000
020e 007c c0c1  | |  |		.XXX[0x14]
0210 8f40 1298  | @  |
0212 6000 0000  |`   |
0214 0101 9d00  |    |
0216 40b8 8000  |@   |
0218 0000 0004  |    |
021a 6084 0100  |`   |
021c f900 40a3  |  @ |
021e 0036 0000  | 6  |
0220 102e 2000  | .  |
0222 0000 0000  |    |		.BLANK	0000[0x4]
0226 0008 0ce8  |    |		.XXX[0x4b]
0228 00e8 0800  |    |
022a e000 0000  |    |
022c 0000 34cc  |  4 |
022e 206f 4008  | o@ |
0230 07c8 0000  |    |
0232 0000 82ec  |    |
0234 0020 f8a0  |    |
0236 0000 0234  |   4|
0238 fc00 82ec  |    |
023a 0000 0000  |    |
023c 0828 1002  | (  |
023e 0ac2 0000  |    |
0240 0022 8460  | " `|
0242 0828 1000  | (  |
0244 0000 00d0  |    |
0246 0000 a38d  |    |
0248 8000 0000  |    |
024a 0004 1028  |   (|
024c 000c 0000  |    |
024e 0000 4102  |  A |
0250 a112 0008  |    |
0252 1bb0 0000  |    |
0254 0000 8266  |   f|
0256 cec5 c010  |    |
0258 3760 0000  |7`  |
025a 0000 8800  |    |
025c 00f4 1186  |    |
025e 4a00 205c  |J  \|
0260 4000 0000  |@   |
0262 0206 b600  |    |
0264 020c d000  |    |
0266 0000 0000  |    |
0268 0100 0106  |    |
026a a800 0000  |    |
026c 0000 0000  |    |
026e 0200 0107  |    |
0270 2800       |(   |
0271 0000 0000  |    |		.BLANK	0000[0x6]
0277 0107 8800  |    |		.XXX[0x22]
0279 0020 8140  |   @|
027b 0000 04ec  |    |
027d 5c01 02e2  |\   |
027f 0000 0000  |    |
0281 2400 800d  |$   |
0283 1008 021e  |    |
0285 1200 807c  |   ||
0287 c18f 4012  |  @ |
0289 9860 0000  | `  |
028b 0001 0915  |    |
028d 0042 9680  | B  |
028f 0000 0000  |    |
0291 0460 b001  | `  |
0293 0871 0042  | q B|
0295 8100 2100  |  ! |
0297 0010 a5a0  |    |
0299 0000 0000  |    |		.BLANK	0000[0x5]
029e 0848 a800  | H  |		.XXX[0x47]
02a0 f808 00e0  |    |
02a2 0000 0000  |    |
02a4 0034 cc20  | 4  |
02a6 2f60 0843  |/` C|
02a8 8800 0000  |    |
02aa 0086 8e00  |    |
02ac 0000 08d3  |    |
02ae f802 1a38  |   8|
02b0 0000 0000  |    |
02b2 2188 c008  |!   |
02b4 6528 0000  |e(  |
02b6 0091 1200  |    |
02b8 2188 c000  |!   |
02ba 0000 0340  |   @|
02bc 0002 8e36  |   6|
02be 0000 42da  |  B |
02c0 0000 c000  |    |
02c2 0000 042d  |   -|
02c4 a211 2000  |    |
02c6 856a 0000  | j  |
02c8 0000 0860  |   `|
02ca 8cec 5c01  |  \ |
02cc 0ad4 0000  |    |
02ce 0000 0880  |    |
02d0 000f 4118  |  A |
02d2 64a0 0214  |d   |
02d4 b400 0000  |    |
02d6 0021 5720  | !W |
02d8 0021 b580  | !  |
02da 0000 0000  |    |
02dc 0010 0010  |    |
02de dec0 0000  |    |
02e0 0000 0000  |    |
02e2 0020 0010  |    |
02e4 e6c0       |    |
02e5 0000 0000  |    |		.BLANK	0000[0x6]
02eb 0010 ecc0  |    |		.XXX[0x1b]
02ed 0002 16d0  |    |
02ef 0000 0040  |   @|
02f1 1191 0004  |    |
02f3 21c6 0c7a  |!  z|
02f5 0094 c300  |    |
02f7 0000 0008  |    |
02f9 7f10 0222  |   "|
02fb 4e00 0000  |N   |
02fd 0000 2305  |  # |
02ff 8008 79f0  |  y |
0301 0221 a200  | !  |
0303 9800 0088  |    |
0305 9380       |    |
0306 0000 0000  |    |		.BLANK	0000[0x5]
030b 43f8 8008  |C   |		.XXX[0x71]
030d 4040 0700  |@@  |
030f 0000 0000  |    |
0311 01a6 6101  |  a |
0313 7b00 43cf  |{ C |
0315 8000 0000  |    |
0317 0459 9800  | Y  |
0319 89f4 c69f  |    |
031b c011 6660  |  f`|
031d 0000 0001  |    |
031f 1313 0044  |   D|
0321 dc80 0000  |    |
0323 0488 9001  |    |
0325 1313 0000  |    |
0327 0000 1a00  |    |
0329 0014 71b0  |  q |
032b 0002 246a  |  $j|
032d 0006 0000  |    |
032f 0000 2246  |  "F|
0331 b089 0004  |    |
0333 4684 0000  |F   |
0335 0000 44b7  |  D |
0337 a762 e008  | b  |
0339 8d08 0000  |    |
033b 0000 4400  |  D |
033d 007a 0880  | z  |
033f 0000 08d3  |    |
0341 f002 2ccc  |  , |
0343 0000 0000  |    |
0345 22b2 0008  |"   |
0347 af78 0000  | x  |
0349 008a 1180  |    |
034b 22b2 0000  |"   |
034d 0000 03b0  |    |
034f 0002 b7ae  |    |
0351 0000 0000  |    |
0353 0011 4980  |  I |
0355 0050 0000  | P  |
0357 0001 1498  |    |
0359 8448 0022  | H "|
035b 8080 0000  |    |
035d 0002 2ab7  |  * |
035f 3b17 0045  |;  E|
0361 0100 0000  |    |
0363 0002 0000  |    |
0365 056d 4619  | mF |
0367 2800 8893  |(   |
0369 8000 0000  |    |
036b 088c 3000  |  0 |
036d 08b7 b000  |    |
036f 0000 0000  |    |
0371 0800 045c  |   \|
0373 d800 0000  |    |
0375 0000 0000  |    |
0377 0c00 045f  |   _|
0379 5800 0461  |X  a|
037b cc00       |    |
037c 0000 0000  |    |		.BLANK	0000[0x6]
0382 0460 d800  | `  |		.XXX[0x4]
0384 008a 4c00  |  L |
0386 0000 0000  |    |		.BLANK	0000[0x6]
038c 231a 6000  |# ` |		.XXX[0x1a]
038e 0448 d400  | H  |
0390 0000 8025  |   %|
0392 2a20 0879  |*  y|
0394 f418 f401  |    |
0396 2986 0000  |)   |
0398 0000 119e  |    |
039a 9004 6cb8  |  l |
039c 0000 0000  |    |
039e 0046 0b00  | F  |
03a0 1194 5004  |  P |
03a2 6b60 0138  |k` 8|
03a4 0001 1b2e  |   .|
03a6 0000 0000  |    |		.BLANK	0000[0x5]
03ab 008c f480  |    |		.XXX[0x55]
03ad 1180 800e  |    |
03af 0000 0000  |    |
03b1 0003 4cc2  |  L |
03b3 02f6 008c  |    |
03b5 a280 0000  |    |
03b7 0009 2a68  |  *h|
03b9 011e 0a8d  |    |
03bb 3f00 24a9  |? $ |
03bd a000 0000  |    |
03bf 023a 6800  | :h |
03c1 8ec9 8000  |    |
03c3 0008 a118  |    |
03c5 023a 6800  | :h |
03c7 0000 0034  |   4|
03c9 0000 28e3  |  ( |
03cb 6000 0000  |`   |
03cd 0001 1c3c  |   <|
03cf 0003 0000  |    |
03d1 0000 11c3  |    |
03d3 c844 8002  | D  |
03d5 3750 0000  |7P  |
03d7 0000 239f  |  # |
03d9 f3b1 7004  |  p |
03db 6ea0 0000  |n   |
03dd 0000 2200  |  " |
03df 003d 0440  | = @|
03e1 0904 3c69  |  <i|
03e3 f801 254d  |  %M|
03e5 0000 0000  |    |
03e7 11fb 1004  |    |
03e9 8040 0000  | @  |
03eb 0045 08c0  | E  |
03ed 11fb 1000  |    |
03ef 0000 01d8  |    |
03f1 0001 5bd7  |  [ |
03f3 0000 0000  |    |
03f5 0008 f5c8  |    |
03f7 0028 0000  | (  |
03f9 0000 8f5c  |   \|
03fb c224 0011  | $  |
03fd e250 0000  | P  |
03ff 0001       |    |