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

⟦3bf016cfb⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01c8       |    |		.CONST	0x01c8								; 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 0045       | E  |		.CONST	0x0045								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 480b       |H   |		Short_Literal	0xb
000d 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0012 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0014 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0016 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0018 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
001a 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
001c 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
001e 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0020 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0022 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0024 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0026 e20d       |    |		Load	0x1,0xd
0027 e002       |    |		Load	0x0,0x2
0028 00d8       |    |		Load_Top	At_Offset_0
0029 e003       |    |		Load	0x0,0x3
002a 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
002c 4804       |H   |		Short_Literal	0x4
002d 032e       | .  |		Declare_Type	Record,Defined,Visible
002e 00bf       |    |		Action	Accept_Activation
002f 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0032 00c7       |    |		Action	Elaborate_Subprogram
0033 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0034 00c7       |    |		Action	Elaborate_Subprogram
0035 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0036 00c7       |    |		Action	Elaborate_Subprogram
0037 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0044 00c7       |    |		Action	Elaborate_Subprogram
0045			BODY_0008:
0045 00bc       |    |		Action	Signal_Activated
0046 00bb       |    |		Action	Signal_Completion
0047 0000       |    |		.XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4607       |F   |		Jump_Case	0x8
004c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
004d 7807       |x   |		Jump	0x55								; case 0x1
004e 780a       |x   |		Jump	0x59								; case 0x2
004f 780e       |x   |		Jump	0x5e								; case 0x3
0050 7811       |x   |		Jump	0x62								; case 0x4
0051 7812       |x   |		Jump	0x64								; case 0x5
0052 7813       |x   |		Jump	0x66								; case 0x6
0053 7816       |x   |		Jump	0x6a								; case 0x7
0054 4302       |C   |		.XXX[0x1]
0055 00da       |    |		Load_Top	At_Offset_2
0056 0091 0179  |   y|		Action	Push_String_Extended_Indexed,0x179				; "REGISTRATION"
0058 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0059 00db       |    |		Load_Top	At_Offset_3
005a 00db       |    |		Load_Top	At_Offset_3
005b 00e0       |    |		Load_Encached	Standard_Cache
005c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
005d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
005e 00da       |    |		Load_Top	At_Offset_2
005f 00e0       |    |		Load_Encached	Standard_Cache
0060 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0061 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0062 00db       |    |		Load_Top	At_Offset_3
0063 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0064 00db       |    |		Load_Top	At_Offset_3
0065 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0066 e20d       |    |		Load	0x1,0xd
0067 00dc       |    |		Load_Top	At_Offset_4
0068 0267       | g  |		Execute	Discrete,Predecessor
0069 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006a e20d       |    |		Load	0x1,0xd
006b 00dc       |    |		Load_Top	At_Offset_4
006c 0268       | h  |		Execute	Discrete,Successor
006d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006e 0000 0000  |    |		.XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 e219       |    |		Load	0x1,0x19
0074 0322       | "  |		Declare_Variable	Record
0075 00d8       |    |		Load_Top	At_Offset_0
0076 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0077 00db       |    |		Load_Top	At_Offset_3
0078 00d9       |    |		Load_Top	At_Offset_1
0079 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007a e5fe       |    |		Load	0x2,-0x2
007b 00d9       |    |		Load_Top	At_Offset_1
007c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007d e5fd       |    |		Load	0x2,-0x3
007e 00d9       |    |		Load_Top	At_Offset_1
007f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0080 e5fc       |    |		Load	0x2,-0x4
0081 00d9       |    |		Load_Top	At_Offset_1
0082 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0083 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2
008c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
008d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00da       |    |		Load_Top	At_Offset_2
0094 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0095 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0096 0000 0000  |    |		.XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00da       |    |		Load_Top	At_Offset_2
009c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
009d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00a5 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
00a6 00cd       |    |		Action	Spare6_Action
00a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac e5fe       |    |		Load	0x2,-0x2
00ad 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ae 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 e5fe       |    |		Load	0x2,-0x2
00b5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b7 0000       |    |		.XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc e5fe       |    |		Load	0x2,-0x2
00bd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00be 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 e5fe       |    |		Load	0x2,-0x2
00c5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c7 0000       |    |		.XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 4823       |H#  |		Short_Literal	0x23
00cc 4823       |H#  |		Short_Literal	0x23
00cd 4823       |H#  |		Short_Literal	0x23
00ce 4823       |H#  |		Short_Literal	0x23
00cf 4823       |H#  |		Short_Literal	0x23
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d2 e20d       |    |		Load	0x1,0xd
00d3 011c       |    |		Execute	Any,Convert_Unchecked
00d4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00d5 01ca       |    |		Execute	Vector,Prepend
00d6 01cb       |    |		Execute	Vector,Append
00d7 e5ff       |    |		Load	0x2,-0x1
00d8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d9 8004       |    |		Call	0x0,0x4
00da 8005       |    |		Call	0x0,0x5
00db 01cc       |    |		Execute	Vector,Catenate
00dc 01cb       |    |		Execute	Vector,Append
00dd e5ff       |    |		Load	0x2,-0x1
00de 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00df 8004       |    |		Call	0x0,0x4
00e0 8005       |    |		Call	0x0,0x5
00e1 01cc       |    |		Execute	Vector,Catenate
00e2 01cb       |    |		Execute	Vector,Append
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00e5 8005       |    |		Call	0x0,0x5
00e6 01cc       |    |		Execute	Vector,Catenate
00e7 01cb       |    |		Execute	Vector,Append
00e8 8006       |    |		Call	0x0,0x6
00e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ea 0000 0000  |    |		.BLANK	0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0103       |    |		.CONST	0x0103								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0007       |    |		.CONST	0x0007								; Number of locals
00f3			INIT_00f0:
00f3 4801       |H   |		Short_Literal	0x1
00f4 00db       |    |		Load_Top	At_Offset_3
00f5 8007       |    |		Call	0x0,0x7
00f6 00e9       |    |		Load_Encached	String_Cache
00f7 035b       | [  |		Declare_Type	Array,Constrained
00f8 0337       | 7  |		Declare_Variable	Array
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 8005       |    |		Call	0x0,0x5
00fb 00d9       |    |		Load_Top	At_Offset_1
00fc 01d4       |    |		Execute	Vector,Structure_Write
00fd 00e4       |    |		Load_Encached	Positive_Cache
00fe 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
00ff 00e4       |    |		Load_Encached	Positive_Cache
0100 00e4       |    |		Load_Encached	Positive_Cache
0101 00e4       |    |		Load_Encached	Positive_Cache
0102 00e4       |    |		Load_Encached	Positive_Cache
0103			BODY_00f0:
0103 00cf       |    |		Action	Mark_Auxiliary
0104 e403       |    |		Load	0x2,0x3
0105 e402       |    |		Load	0x2,0x2
0106 01d7       |    |		Execute	Vector,Field_Read
0107 0f23       | #  |		Execute_Immediate	Equal,0x23
0108 7005       |p   |		Jump_Nonzero	0x10e
0109 e403       |    |		Load	0x2,0x3
010a 0a01       |    |		Execute_Immediate	Plus,0x1
010b c403       |    |		Store	0x2,0x3
010c 00c9       |    |		Action	Pop_Auxiliary_Loop
010d 7ff6       |    |		Jump	0x104
010e 00ce       |    |		Action	Pop_Auxiliary
010f e403       |    |		Load	0x2,0x3
0110 0a01       |    |		Execute_Immediate	Plus,0x1
0111 005b       | [  |		Store_Top	Discrete,At_Offset_3
0112 e403       |    |		Load	0x2,0x3
0113 0a01       |    |		Execute_Immediate	Plus,0x1
0114 c403       |    |		Store	0x2,0x3
0115 00cf       |    |		Action	Mark_Auxiliary
0116 e403       |    |		Load	0x2,0x3
0117 e402       |    |		Load	0x2,0x2
0118 01d7       |    |		Execute	Vector,Field_Read
0119 0f23       | #  |		Execute_Immediate	Equal,0x23
011a 7005       |p   |		Jump_Nonzero	0x120
011b e403       |    |		Load	0x2,0x3
011c 0a01       |    |		Execute_Immediate	Plus,0x1
011d c403       |    |		Store	0x2,0x3
011e 00c9       |    |		Action	Pop_Auxiliary_Loop
011f 7ff6       |    |		Jump	0x116
0120 00ce       |    |		Action	Pop_Auxiliary
0121 e403       |    |		Load	0x2,0x3
0122 0a01       |    |		Execute_Immediate	Plus,0x1
0123 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0124 e403       |    |		Load	0x2,0x3
0125 0a01       |    |		Execute_Immediate	Plus,0x1
0126 c403       |    |		Store	0x2,0x3
0127 00cf       |    |		Action	Mark_Auxiliary
0128 e403       |    |		Load	0x2,0x3
0129 e402       |    |		Load	0x2,0x2
012a 01d7       |    |		Execute	Vector,Field_Read
012b 0f23       | #  |		Execute_Immediate	Equal,0x23
012c 7005       |p   |		Jump_Nonzero	0x132
012d e403       |    |		Load	0x2,0x3
012e 0a01       |    |		Execute_Immediate	Plus,0x1
012f c403       |    |		Store	0x2,0x3
0130 00c9       |    |		Action	Pop_Auxiliary_Loop
0131 7ff6       |    |		Jump	0x128
0132 00ce       |    |		Action	Pop_Auxiliary
0133 e403       |    |		Load	0x2,0x3
0134 0a01       |    |		Execute_Immediate	Plus,0x1
0135 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0136 e219       |    |		Load	0x1,0x19
0137 0322       | "  |		Declare_Variable	Record
0138 00d8       |    |		Load_Top	At_Offset_0
0139 1c01       |    |		Execute_Immediate	Run_Utility,0x1
013a 4802       |H   |		Short_Literal	0x2
013b e405       |    |		Load	0x2,0x5
013c 0afe       |    |		Execute_Immediate	Plus,-0x2
013d e402       |    |		Load	0x2,0x2
013e 01cf       |    |		Execute	Vector,Slice_Read
013f e20d       |    |		Load	0x1,0xd
0140 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0141 00d9       |    |		Load_Top	At_Offset_1
0142 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0143 00db       |    |		Load_Top	At_Offset_3
0144 00db       |    |		Load_Top	At_Offset_3
0145 0afe       |    |		Execute_Immediate	Plus,-0x2
0146 e402       |    |		Load	0x2,0x2
0147 01cf       |    |		Execute	Vector,Slice_Read
0148 8006       |    |		Call	0x0,0x6
0149 8008       |    |		Call	0x0,0x8
014a 00d9       |    |		Load_Top	At_Offset_1
014b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
014c 00da       |    |		Load_Top	At_Offset_2
014d 00da       |    |		Load_Top	At_Offset_2
014e 0afe       |    |		Execute_Immediate	Plus,-0x2
014f e402       |    |		Load	0x2,0x2
0150 01cf       |    |		Execute	Vector,Slice_Read
0151 8006       |    |		Call	0x0,0x6
0152 8008       |    |		Call	0x0,0x8
0153 00d9       |    |		Load_Top	At_Offset_1
0154 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0155 00d9       |    |		Load_Top	At_Offset_1
0156 e402       |    |		Load	0x2,0x2
0157 01dc       |    |		Execute	Vector,Last
0158 0aff       |    |		Execute_Immediate	Plus,-0x1
0159 00d8       |    |		Load_Top	At_Offset_0
015a 00e2       |    |		Load_Encached	Integer_Cache
015b 0260       | `  |		Execute	Discrete,In_Type
015c 7001       |p   |		Jump_Nonzero	0x15e
015d 0801       |    |		Execute_Immediate	Raise,0x1
015e e402       |    |		Load	0x2,0x2
015f 01cf       |    |		Execute	Vector,Slice_Read
0160 8006       |    |		Call	0x0,0x6
0161 00d9       |    |		Load_Top	At_Offset_1
0162 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0163 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0164 0000 0000  |    |		.BLANK	0000[0x4]
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 4601       |F   |		Jump_Case	0x2
016c 7801       |x   |		Jump	0x16e								; case 0x0
016d 7807       |x   |		Jump	0x175								; case 0x1
016e 00da       |    |		Load_Top	At_Offset_2
016f 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0170 0125       | %  |		Execute	Any,Set_Constraint
0171 00da       |    |		Load_Top	At_Offset_2
0172 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0173 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0174 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0175 00da       |    |		Load_Top	At_Offset_2
0176 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0177 0125       | %  |		Execute	Any,Set_Constraint
0178 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0179 ; --------------------------------------------------------------------------------------
0179 ; STRING TABLE
0179 ; --------------------------------------------------------------------------------------
0179 001a       |    |		.STRTAB	0x001a->0x0186							; "REGISTRATION"
017a 0024       | $  |		.STRTAB	0x0024->0x018c							; "UNREGISTRATION"
017b 0030       | 0  |		.STRTAB	0x0030->0x0193							; "REQUEST"
017c 0035       | 5  |		.STRTAB	0x0035->0x0196							; "FORWARD"
017d 003a       | :  |		.STRTAB	0x003a->0x019a							; "REPLAY"
017e 003e       | >  |		.STRTAB	0x003e->0x019d							; "PUBLICATION"
017f 0047       | G  |		.STRTAB	0x0047->0x01a2							; "UNPUBLICATION"
0180 0052       | R  |		.STRTAB	0x0052->0x01a9							; "SUBSCRIPTION"
0181 005c       | \  |		.STRTAB	0x005c->0x01af							; "UNSUBSCRIPTION"
0182 0068       | h  |		.STRTAB	0x0068->0x01b6							; "FILTRATION"
0183 0070       | p  |		.STRTAB	0x0070->0x01bb							; "UNFILTRATION"
0184 007a       | z  |		.STRTAB	0x007a->0x01c1							; "ERROR"
0185 007d       | }  |		.STREND 0x007d->0x01c3
0186 5245 4749  |REGI|		.STRTAB_STRINGS
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x8d7b,0x0000,0x0001,0x000f
01ce 000b 020a  |    |		.DBG4T	0x000b,0x020a,0x8000,0x8000
01d2 002f 0226  | / &|		.DBG4T	0x002f,0x0226,0x8000,0x8000
01d6 004b 0000  | K  |		.DBG4T	0x004b,0x0000,0x0005,0x0000
01da 0073 023e  | s >|		.DBG4T	0x0073,0x023e,0x0002,0x0000
01de 008b 0241  |   A|		.DBG4T	0x008b,0x0241,0x0002,0x0000
01e2 0093 0244  |   D|		.DBG4T	0x0093,0x0244,0x0002,0x0000
01e6 009b 0247  |   G|		.DBG4T	0x009b,0x0247,0x0002,0x0000
01ea 00a3 024a  |   J|		.DBG4T	0x00a3,0x024a,0x0002,0x0000
01ee 00ab 024d  |   M|		.DBG4T	0x00ab,0x024d,0x0001,0x0000
01f2 00b3 0250  |   P|		.DBG4T	0x00b3,0x0250,0x0001,0x0000
01f6 00bb 0253  |   S|		.DBG4T	0x00bb,0x0253,0x0001,0x0000
01fa 00c3 0256  |   V|		.DBG4T	0x00c3,0x0256,0x0001,0x0000
01fe 00cb 0259  |   Y|		.DBG4T	0x00cb,0x0259,0x0002,0x0000
0202 00f3 025c  |   \|		.DBG4T	0x00f3,0x025c,0x0002,0x4000
0206 016b 0000  | k  |		.DBG4T	0x016b,0x0000,0x0005,0x0000
020a ; --------------------------------------------------------------------------------------
020a ; Debug chain
020a ; --------------------------------------------------------------------------------------
020a 000d 0000  |    |		.DBGLEN	0x000d,0x0000
020c 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026
0219 0001 0003  |    |		.XXX[0xd]
021b 0004 0005  |    |
021d 0006 0007  |    |
021f 0008 0009  |    |
0221 000a 000b  |    |
0223 000c 000d  |    |
0225 000e       |    |
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug chain
0226 ; --------------------------------------------------------------------------------------
0226 000b 0000  |    |		.DBGLEN	0x000b,0x0000
0228 002f 0031  | / 1|		.DBGLNO	0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043
0233 0002 0003  |    |		.XXX[0xb]
0235 0004 0005  |    |
0237 0006 0007  |    |
0239 0008 0009  |    |
023b 000a 000b  |    |
023d 000c       |    |
023e ; --------------------------------------------------------------------------------------
023e ; Debug chain
023e ; --------------------------------------------------------------------------------------
023e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0240 0073       | s  |		.DBGLNO	0x0073
0241 ; --------------------------------------------------------------------------------------
0241 ; Debug chain
0241 ; --------------------------------------------------------------------------------------
0241 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0243 008b       |    |		.DBGLNO	0x008b
0244 ; --------------------------------------------------------------------------------------
0244 ; Debug chain
0244 ; --------------------------------------------------------------------------------------
0244 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0246 0093       |    |		.DBGLNO	0x0093
0247 ; --------------------------------------------------------------------------------------
0247 ; Debug chain
0247 ; --------------------------------------------------------------------------------------
0247 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0249 009b       |    |		.DBGLNO	0x009b
024a ; --------------------------------------------------------------------------------------
024a ; Debug chain
024a ; --------------------------------------------------------------------------------------
024a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024c 00a3       |    |		.DBGLNO	0x00a3
024d ; --------------------------------------------------------------------------------------
024d ; Debug chain
024d ; --------------------------------------------------------------------------------------
024d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024f 00ab       |    |		.DBGLNO	0x00ab
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug chain
0250 ; --------------------------------------------------------------------------------------
0250 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0252 00b3       |    |		.DBGLNO	0x00b3
0253 ; --------------------------------------------------------------------------------------
0253 ; Debug chain
0253 ; --------------------------------------------------------------------------------------
0253 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0255 00bb       |    |		.DBGLNO	0x00bb
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0258 00c3       |    |		.DBGLNO	0x00c3
0259 ; --------------------------------------------------------------------------------------
0259 ; Debug chain
0259 ; --------------------------------------------------------------------------------------
0259 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025b 00cb       |    |		.DBGLNO	0x00cb
025c ; --------------------------------------------------------------------------------------
025c ; Debug chain
025c ; --------------------------------------------------------------------------------------
025c 0006 000c  |    |		.DBGLEN	0x0006,0x000c
025e 00f3 00fd  |    |		.DBGLNO	0x00f3,0x00fd,0x00ff,0x0100,0x0101,0x0102,0x0104,0x0109,0x010f,0x0112,0x0116,0x011b,0x0121,0x0124,0x0128,0x012d,0x0133,0x0136
0270 0002 0003  |    |		.XXX[0xc]
0272 0004 0005  |    |
0274 0007 0008  |    |
0276 0009 000a  |    |
0278 000c 000d  |    |
027a 000e 000f  |    |
027c 0000 0000  |    |		.BLANK	0000[0x184]