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

⟦a9bc20728⟧

    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 0001       |    |		.CONST	0x0001								; 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 0003  |    |		.DEBUG4	0x0004,0x0003,0x4667,0x0000,0x0001,0x000c
020e 000b 023e  |   >|		.DBG4T	0x000b,0x023e,0x8000,0x8000
0212 0014 0248  |   H|		.DBG4T	0x0014,0x0248,0x8000,0x8000
0216 0023 0254  | # T|		.DBG4T	0x0023,0x0254,0x0002,0x0000
021a 0063 0263  | c c|		.DBG4T	0x0063,0x0263,0x0002,0x0000
021e 009b 026c  |   l|		.DBG4T	0x009b,0x026c,0x0002,0x0000
0222 00cb 0274  |   t|		.DBG4T	0x00cb,0x0274,0x0002,0x0000
0226 00fb 0281  |    |		.DBG4T	0x00fb,0x0281,0x0002,0x0000
022a 011b 0285  |    |		.DBG4T	0x011b,0x0285,0x0002,0x4000
022e 013b 0293  | ;  |		.DBG4T	0x013b,0x0293,0x0002,0x4000
0232 017b 02aa  | {  |		.DBG4T	0x017b,0x02aa,0x0002,0x0000
0236 01ab 02b2  |    |		.DBG4T	0x01ab,0x02b2,0x0001,0x0000
023a 01bb 02b6  |    |		.DBG4T	0x01bb,0x02b6,0x0001,0x4000
023e ; --------------------------------------------------------------------------------------
023e ; Debug chain
023e ; --------------------------------------------------------------------------------------
023e 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0240 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011
0244 0003 0004  |    |		.XXX[0x4]
0246 0005 0006  |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug chain
0248 ; --------------------------------------------------------------------------------------
0248 0005 0000  |    |		.DBGLEN	0x0005,0x0000
024a 0014 0016  |    |		.DBGLNO	0x0014,0x0016,0x0018,0x001a,0x001c
024f 0002 0003  |    |		.XXX[0x5]
0251 0004 0005  |    |
0253 0006       |    |
0254 ; --------------------------------------------------------------------------------------
0254 ; Debug chain
0254 ; --------------------------------------------------------------------------------------
0254 0004 0009  |    |		.DBGLEN	0x0004,0x0009
0256 0023 0026  | # &|		.DBGLNO	0x0023,0x0026,0x002b,0x002d,0x0033,0x0036,0x0038,0x0048,0x004a,0x004d,0x0052,0x0055,0x0057
0263 ; --------------------------------------------------------------------------------------
0263 ; Debug chain
0263 ; --------------------------------------------------------------------------------------
0263 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0265 0063 0068  | c h|		.DBGLNO	0x0063,0x0068,0x006b,0x0083,0x0085,0x008e,0x0091
026c ; --------------------------------------------------------------------------------------
026c ; Debug chain
026c ; --------------------------------------------------------------------------------------
026c 0002 0004  |    |		.DBGLEN	0x0002,0x0004
026e 009b 00a0  |    |		.DBGLNO	0x009b,0x00a0,0x00a3,0x00bb,0x00bd,0x00c0
0274 ; --------------------------------------------------------------------------------------
0274 ; Debug chain
0274 ; --------------------------------------------------------------------------------------
0274 0008 0003  |    |		.DBGLEN	0x0008,0x0003
0276 00cb 00d3  |    |		.DBGLNO	0x00cb,0x00d3,0x00d5,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00ea,0x00ec
0281 ; --------------------------------------------------------------------------------------
0281 ; Debug chain
0281 ; --------------------------------------------------------------------------------------
0281 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0283 00fb 0101  |    |		.DBGLNO	0x00fb,0x0101
0285 ; --------------------------------------------------------------------------------------
0285 ; Debug chain
0285 ; --------------------------------------------------------------------------------------
0285 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0287 011b 011d  |    |		.DBGLNO	0x011b,0x011d,0x011f,0x0127,0x012a,0x012f,0x0134
028e 0001 0003  |    |		.XXX[0x5]
0290 0004 0002  |    |
0292 0005       |    |
0293 ; --------------------------------------------------------------------------------------
0293 ; Debug chain
0293 ; --------------------------------------------------------------------------------------
0293 0003 0009  |    |		.DBGLEN	0x0003,0x0009
0295 013b 0141  | ; A|		.DBGLNO	0x013b,0x0141,0x0143,0x0145,0x014d,0x0154,0x0157,0x015c,0x0161,0x016a,0x016d,0x0176
02a1 0001 0003  |    |		.XXX[0x9]
02a3 0004 0005  |    |
02a5 0002 0006  |    |
02a7 0007 0008  |    |
02a9 0009       |    |
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug chain
02aa ; --------------------------------------------------------------------------------------
02aa 0003 0003  |    |		.DBGLEN	0x0003,0x0003
02ac 017b 0180  | {  |		.DBGLNO	0x017b,0x0180,0x0185,0x0187,0x0191,0x01a3
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug chain
02b2 ; --------------------------------------------------------------------------------------
02b2 0001 0001  |    |		.DBGLEN	0x0001,0x0001
02b4 01ab 01ad  |    |		.DBGLNO	0x01ab,0x01ad
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug chain
02b6 ; --------------------------------------------------------------------------------------
02b6 0003 0008  |    |		.DBGLEN	0x0003,0x0008
02b8 01bb 01c0  |    |		.DBGLNO	0x01bb,0x01c0,0x01c5,0x01cc,0x01d9,0x01dd,0x01e2,0x01e7,0x01e9,0x01ee,0x01f3
02c3 0001 0003  |    |		.XXX[0x8]
02c5 0004 0005  |    |
02c7 0006 0007  |    |
02c9 0002 0008  |    |
02cb 0000 0000  |    |		.BLANK	0000[0x135]