|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8c3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 0238 | 8 | .CONST 0x0238 ; 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 00db | | .CONST 0x00db ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 480e |H | Short_Literal 0xe
000d 029f 00e3 | | Declare_Subprogram For_Call,INIT_00e0
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0012 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
0014 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
0016 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0018 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
001a 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0
001c 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
001e 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
0020 e20d | | Load 0x1,0xd
0021 e002 | | Load 0x0,0x2
0022 00e2 | | Load_Encached Integer_Cache
0023 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8
0025 4803 |H | Short_Literal 0x3
0026 032e | . | Declare_Type Record,Defined,Visible
0027 00bf | | Action Accept_Activation
0028 4800 |H | Short_Literal 0x0
0029 480e |H | Short_Literal 0xe
002a e003 | | Load 0x0,0x3
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 035d | ] | Declare_Type Array,Defined
002e 00d8 | | Load_Top At_Offset_0
002f 0337 | 7 | Declare_Variable Array
0030 00d8 | | Load_Top At_Offset_0
0031 0335 | 5 | Declare_Variable Array,Duplicate
0032 00cd | | Action Spare6_Action
0033 4801 |H | Short_Literal 0x1
0034 4807 |H | Short_Literal 0x7
0035 0092 01d9 | | Action Push_String_Extended,0x1d9 ; "REGISTRATION"
0037 01cf | | Execute Vector,Slice_Read
0038 e003 | | Load 0x0,0x3
0039 0119 | | Execute Any,Check_In_Formal_Type
003a 4800 |H | Short_Literal 0x0
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 4801 |H | Short_Literal 0x1
003e 4807 |H | Short_Literal 0x7
003f 0092 01da | | Action Push_String_Extended,0x1da ; "UNREGISTRATION"
0041 01cf | | Execute Vector,Slice_Read
0042 e003 | | Load 0x0,0x3
0043 0119 | | Execute Any,Check_In_Formal_Type
0044 4801 |H | Short_Literal 0x1
0045 00da | | Load_Top At_Offset_2
0046 01d6 | | Execute Vector,Field_Write
0047 4801 |H | Short_Literal 0x1
0048 4807 |H | Short_Literal 0x7
0049 0092 01db | | Action Push_String_Extended,0x1db ; "QUERIES"
004b 01cf | | Execute Vector,Slice_Read
004c e003 | | Load 0x0,0x3
004d 0119 | | Execute Any,Check_In_Formal_Type
004e 4802 |H | Short_Literal 0x2
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 4801 |H | Short_Literal 0x1
0052 4807 |H | Short_Literal 0x7
0053 0092 01dc | | Action Push_String_Extended,0x1dc ; "REQUEST"
0055 01cf | | Execute Vector,Slice_Read
0056 e003 | | Load 0x0,0x3
0057 0119 | | Execute Any,Check_In_Formal_Type
0058 4803 |H | Short_Literal 0x3
0059 00da | | Load_Top At_Offset_2
005a 01d6 | | Execute Vector,Field_Write
005b 4801 |H | Short_Literal 0x1
005c 4807 |H | Short_Literal 0x7
005d 0092 01dd | | Action Push_String_Extended,0x1dd ; "NOTIFICATION"
005f 01cf | | Execute Vector,Slice_Read
0060 e003 | | Load 0x0,0x3
0061 0119 | | Execute Any,Check_In_Formal_Type
0062 4804 |H | Short_Literal 0x4
0063 00da | | Load_Top At_Offset_2
0064 01d6 | | Execute Vector,Field_Write
0065 4801 |H | Short_Literal 0x1
0066 4807 |H | Short_Literal 0x7
0067 0092 01de | | Action Push_String_Extended,0x1de ; "FORWARD"
0069 01cf | | Execute Vector,Slice_Read
006a e003 | | Load 0x0,0x3
006b 0119 | | Execute Any,Check_In_Formal_Type
006c 4805 |H | Short_Literal 0x5
006d 00da | | Load_Top At_Offset_2
006e 01d6 | | Execute Vector,Field_Write
006f 4801 |H | Short_Literal 0x1
0070 4807 |H | Short_Literal 0x7
0071 0092 01df | | Action Push_String_Extended,0x1df ; "PUBLICATION"
0073 01cf | | Execute Vector,Slice_Read
0074 e003 | | Load 0x0,0x3
0075 0119 | | Execute Any,Check_In_Formal_Type
0076 4806 |H | Short_Literal 0x6
0077 00da | | Load_Top At_Offset_2
0078 01d6 | | Execute Vector,Field_Write
0079 4801 |H | Short_Literal 0x1
007a 4807 |H | Short_Literal 0x7
007b 0092 01e0 | | Action Push_String_Extended,0x1e0 ; "UNPUBLICATION"
007d 01cf | | Execute Vector,Slice_Read
007e e003 | | Load 0x0,0x3
007f 0119 | | Execute Any,Check_In_Formal_Type
0080 4807 |H | Short_Literal 0x7
0081 00da | | Load_Top At_Offset_2
0082 01d6 | | Execute Vector,Field_Write
0083 4801 |H | Short_Literal 0x1
0084 4807 |H | Short_Literal 0x7
0085 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "SUBSCRIPTION"
0087 01cf | | Execute Vector,Slice_Read
0088 e003 | | Load 0x0,0x3
0089 0119 | | Execute Any,Check_In_Formal_Type
008a 4808 |H | Short_Literal 0x8
008b 00da | | Load_Top At_Offset_2
008c 01d6 | | Execute Vector,Field_Write
008d 4801 |H | Short_Literal 0x1
008e 4807 |H | Short_Literal 0x7
008f 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "UNSUBSCRIPTION"
0091 01cf | | Execute Vector,Slice_Read
0092 e003 | | Load 0x0,0x3
0093 0119 | | Execute Any,Check_In_Formal_Type
0094 4809 |H | Short_Literal 0x9
0095 00da | | Load_Top At_Offset_2
0096 01d6 | | Execute Vector,Field_Write
0097 4801 |H | Short_Literal 0x1
0098 4807 |H | Short_Literal 0x7
0099 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "FILTRATION"
009b 01cf | | Execute Vector,Slice_Read
009c e003 | | Load 0x0,0x3
009d 0119 | | Execute Any,Check_In_Formal_Type
009e 480a |H | Short_Literal 0xa
009f 00da | | Load_Top At_Offset_2
00a0 01d6 | | Execute Vector,Field_Write
00a1 4801 |H | Short_Literal 0x1
00a2 4807 |H | Short_Literal 0x7
00a3 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "UNFILTRATION"
00a5 01cf | | Execute Vector,Slice_Read
00a6 e003 | | Load 0x0,0x3
00a7 0119 | | Execute Any,Check_In_Formal_Type
00a8 480b |H | Short_Literal 0xb
00a9 00da | | Load_Top At_Offset_2
00aa 01d6 | | Execute Vector,Field_Write
00ab 4801 |H | Short_Literal 0x1
00ac 4807 |H | Short_Literal 0x7
00ad 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "IDENTIFY"
00af 01cf | | Execute Vector,Slice_Read
00b0 e003 | | Load 0x0,0x3
00b1 0119 | | Execute Any,Check_In_Formal_Type
00b2 480c |H | Short_Literal 0xc
00b3 00da | | Load_Top At_Offset_2
00b4 01d6 | | Execute Vector,Field_Write
00b5 4801 |H | Short_Literal 0x1
00b6 4807 |H | Short_Literal 0x7
00b7 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "IFAILED"
00b9 01cf | | Execute Vector,Slice_Read
00ba e003 | | Load 0x0,0x3
00bb 0119 | | Execute Any,Check_In_Formal_Type
00bc 480d |H | Short_Literal 0xd
00bd 00da | | Load_Top At_Offset_2
00be 01d6 | | Execute Vector,Field_Write
00bf 4801 |H | Short_Literal 0x1
00c0 4807 |H | Short_Literal 0x7
00c1 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "RFAILED"
00c3 01cf | | Execute Vector,Slice_Read
00c4 e003 | | Load 0x0,0x3
00c5 0119 | | Execute Any,Check_In_Formal_Type
00c6 480e |H | Short_Literal 0xe
00c7 00da | | Load_Top At_Offset_2
00c8 01d6 | | Execute Vector,Field_Write
00c9 00d9 | | Load_Top At_Offset_1
00ca 01d4 | | Execute Vector,Structure_Write
00cb 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00da 00c7 | | Action Elaborate_Subprogram
00db BODY_0008:
00db 00bc | | Action Signal_Activated
00dc 00bb | | Action Signal_Completion
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4607 |F | Jump_Case 0x7
00e4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00e5 7807 |x | Jump 0xed ; case 0x1
00e6 780a |x | Jump 0xf1 ; case 0x2
00e7 780e |x | Jump 0xf6 ; case 0x3
00e8 7811 |x | Jump 0xfa ; case 0x4
00e9 7812 |x | Jump 0xfc ; case 0x5
00ea 7813 |x | Jump 0xfe ; case 0x6
00eb 7816 |x | Jump 0x102 ; case 0x7
00ec 4302 |C | .XXX[0x1]
00ed 00da | | Load_Top At_Offset_2
00ee 0091 01d9 | | Action Push_String_Extended_Indexed,0x1d9 ; "REGISTRATION"
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00f1 00db | | Load_Top At_Offset_3
00f2 00db | | Load_Top At_Offset_3
00f3 00e0 | | Load_Encached Standard_Cache
00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00f6 00da | | Load_Top At_Offset_2
00f7 00e0 | | Load_Encached Standard_Cache
00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00fa 00db | | Load_Top At_Offset_3
00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00fc 00db | | Load_Top At_Offset_3
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00fe e20d | | Load 0x1,0xd
00ff 00dc | | Load_Top At_Offset_4
0100 0267 | g | Execute Discrete,Predecessor
0101 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0102 e20d | | Load 0x1,0xd
0103 00dc | | Load_Top At_Offset_4
0104 0268 | h | Execute Discrete,Successor
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00db | | Load_Top At_Offset_3
010c 00db | | Load_Top At_Offset_3
010d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
010e 00e0 | | Load_Encached Standard_Cache
010f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0110 8004 | | Call 0x0,0x4
0111 00d1 | | Pop_Control Pop_Count_1
0112 00db | | Load_Top At_Offset_3
0113 0092 01e8 | | Action Push_String_Extended,0x1e8 ; ":"
0115 8005 | | Call 0x0,0x5
0116 00d1 | | Pop_Control Pop_Count_1
0117 00db | | Load_Top At_Offset_3
0118 00db | | Load_Top At_Offset_3
0119 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011a e218 | | Load 0x1,0x18
011b 01d5 | | Execute Vector,Field_Reference
011c 8005 | | Call 0x0,0x5
011d 00d1 | | Pop_Control Pop_Count_1
011e 00db | | Load_Top At_Offset_3
011f 0092 01e8 | | Action Push_String_Extended,0x1e8 ; ":"
0121 8005 | | Call 0x0,0x5
0122 00d1 | | Pop_Control Pop_Count_1
0123 00db | | Load_Top At_Offset_3
0124 00db | | Load_Top At_Offset_3
0125 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0126 8006 | | Call 0x0,0x6
0127 4502 |E | Exit_Subprogram 0x2
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0135 | 5 | .CONST 0x0135 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0005 | | .CONST 0x0005 ; Number of locals
012b INIT_0128:
012b e003 | | Load 0x0,0x3
012c 0337 | 7 | Declare_Variable Array
012d 00e3 | | Load_Encached Natural_Cache
012e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
012f 03e9 | | Declare_Variable Discrete,Duplicate
0130 4801 |H | Short_Literal 0x1
0131 4801 |H | Short_Literal 0x1
0132 00e9 | | Load_Encached String_Cache
0133 035b | [ | Declare_Type Array,Constrained
0134 0337 | 7 | Declare_Variable Array
0135 BODY_0128:
0135 00cf | | Action Mark_Auxiliary
0136 00da | | Load_Top At_Offset_2
0137 00db | | Load_Top At_Offset_3
0138 00d8 | | Load_Top At_Offset_0
0139 00e4 | | Load_Encached Positive_Cache
013a 0260 | ` | Execute Discrete,In_Type
013b 7001 |p | Jump_Nonzero 0x13d
013c 0801 | | Execute_Immediate Raise,0x1
013d e5ff | | Load 0x2,-0x1
013e 8007 | | Call 0x0,0x7
013f 00da | | Load_Top At_Offset_2
0140 01d4 | | Execute Vector,Structure_Write
0141 00d9 | | Load_Top At_Offset_1
0142 0092 01e8 | | Action Push_String_Extended,0x1e8 ; ":"
0144 01df | | Execute Vector,Equal
0145 7005 |p | Jump_Nonzero 0x14b
0146 00da | | Load_Top At_Offset_2
0147 0a01 | | Execute_Immediate Plus,0x1
0148 005b | [ | Store_Top Discrete,At_Offset_3
0149 00c9 | | Action Pop_Auxiliary_Loop
014a 7feb | | Jump 0x136
014b 00ce | | Action Pop_Auxiliary
014c 00d9 | | Load_Top At_Offset_1
014d 0aff | | Execute_Immediate Plus,-0x1
014e 00d8 | | Load_Top At_Offset_0
014f 00e3 | | Load_Encached Natural_Cache
0150 0260 | ` | Execute Discrete,In_Type
0151 7001 |p | Jump_Nonzero 0x153
0152 0801 | | Execute_Immediate Raise,0x1
0153 00db | | Load_Top At_Offset_3
0154 00d8 | | Load_Top At_Offset_0
0155 00e4 | | Load_Encached Positive_Cache
0156 0260 | ` | Execute Discrete,In_Type
0157 7001 |p | Jump_Nonzero 0x159
0158 0801 | | Execute_Immediate Raise,0x1
0159 e5ff | | Load 0x2,-0x1
015a 8007 | | Call 0x0,0x7
015b 00e2 | | Load_Encached Integer_Cache
015c 00e0 | | Load_Encached Standard_Cache
015d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
015e e5fe | | Load 0x2,-0x2
015f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0160 00d9 | | Load_Top At_Offset_1
0161 0a01 | | Execute_Immediate Plus,0x1
0162 005b | [ | Store_Top Discrete,At_Offset_3
0163 00da | | Load_Top At_Offset_2
0164 0a06 | | Execute_Immediate Plus,0x6
0165 005a | Z | Store_Top Discrete,At_Offset_2
0166 00d9 | | Load_Top At_Offset_1
0167 00db | | Load_Top At_Offset_3
0168 00d8 | | Load_Top At_Offset_0
0169 00e4 | | Load_Encached Positive_Cache
016a 0260 | ` | Execute Discrete,In_Type
016b 7001 |p | Jump_Nonzero 0x16d
016c 0801 | | Execute_Immediate Raise,0x1
016d e5ff | | Load 0x2,-0x1
016e 8007 | | Call 0x0,0x7
016f e402 | | Load 0x2,0x2
0170 01d4 | | Execute Vector,Structure_Write
0171 00cf | | Action Mark_Auxiliary
0172 480e |H | Short_Literal 0xe
0173 4800 |H | Short_Literal 0x0
0174 0007 | | Action Break_Optional
0175 e402 | | Load 0x2,0x2
0176 00d9 | | Load_Top At_Offset_1
0177 e218 | | Load 0x1,0x18
0178 01d5 | | Execute Vector,Field_Reference
0179 01df | | Execute Vector,Equal
017a 6803 |h | Jump_Zero 0x17e
017b 00d8 | | Load_Top At_Offset_0
017c e5fe | | Load 0x2,-0x2
017d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
017e 00c8 | | Action Pop_Auxiliary_Range
017f 3ff5 |? | Loop_Increasing 0x175
0180 00ce | | Action Pop_Auxiliary
0181 00d9 | | Load_Top At_Offset_1
0182 0a02 | | Execute_Immediate Plus,0x2
0183 005b | [ | Store_Top Discrete,At_Offset_3
0184 e5ff | | Load 0x2,-0x1
0185 e008 | | Load 0x0,0x8
0186 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0187 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0188 e5fe | | Load 0x2,-0x2
0189 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018a 00da | | Load_Top At_Offset_2
018b e403 | | Load 0x2,0x3
018c 00d8 | | Load_Top At_Offset_0
018d 00e4 | | Load_Encached Positive_Cache
018e 0260 | ` | Execute Discrete,In_Type
018f 7001 |p | Jump_Nonzero 0x191
0190 0801 | | Execute_Immediate Raise,0x1
0191 e5ff | | Load 0x2,-0x1
0192 8007 | | Call 0x0,0x7
0193 8004 | | Call 0x0,0x4
0194 4502 |E | Exit_Subprogram 0x2
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e5fe | | Load 0x2,-0x2
019d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019e 4502 |E | Exit_Subprogram 0x2
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a5 a5fe | | Store_Unchecked 0x2,-0x2
01a6 4502 |E | Exit_Subprogram 0x2
01a7 0000 | | .XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac e5fe | | Load 0x2,-0x2
01ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ae 4502 |E | Exit_Subprogram 0x2
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 a5fe | | Store_Unchecked 0x2,-0x2
01b6 4502 |E | Exit_Subprogram 0x2
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc e5fe | | Load 0x2,-0x2
01bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01be 4502 |E | Exit_Subprogram 0x2
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01c5 e5fe | | Load 0x2,-0x2
01c6 016d | m | Execute Variant_Record,Structure_Write
01c7 4502 |E | Exit_Subprogram 0x2
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4601 |F | Jump_Case 0x1
01cc 7801 |x | Jump 0x1ce ; case 0x0
01cd 7807 |x | Jump 0x1d5 ; case 0x1
01ce 00da | | Load_Top At_Offset_2
01cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d0 0125 | % | Execute Any,Set_Constraint
01d1 00da | | Load_Top At_Offset_2
01d2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d3 1c00 | | Execute_Immediate Run_Utility,0x0
01d4 4302 |C | Exit_Subprogram From_Utility,0x2
01d5 00da | | Load_Top At_Offset_2
01d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d7 0125 | % | Execute Any,Set_Constraint
01d8 4302 |C | Exit_Subprogram From_Utility,0x2
01d9 ; --------------------------------------------------------------------------------------
01d9 ; STRING TABLE
01d9 ; --------------------------------------------------------------------------------------
01d9 0022 | " | .STRTAB 0x0022->0x01ea ; "REGISTRATION"
; "REGISTRATION"
01da 002c | , | .STRTAB 0x002c->0x01f0 ; "UNREGISTRATION"
01db 0038 | 8 | .STRTAB 0x0038->0x01f7 ; "QUERIES"
01dc 003d | = | .STRTAB 0x003d->0x01fa ; "REQUEST"
01dd 0042 | B | .STRTAB 0x0042->0x01fe ; "NOTIFICATION"
01de 004c | L | .STRTAB 0x004c->0x0204 ; "FORWARD"
01df 0051 | Q | .STRTAB 0x0051->0x0207 ; "PUBLICATION"
01e0 005a | Z | .STRTAB 0x005a->0x020d ; "UNPUBLICATION"
01e1 0065 | e | .STRTAB 0x0065->0x0213 ; "SUBSCRIPTION"
01e2 006f | o | .STRTAB 0x006f->0x0219 ; "UNSUBSCRIPTION"
01e3 007b | { | .STRTAB 0x007b->0x0220 ; "FILTRATION"
01e4 0083 | | .STRTAB 0x0083->0x0225 ; "UNFILTRATION"
01e5 008d | | .STRTAB 0x008d->0x022b ; "IDENTIFY"
01e6 0093 | | .STRTAB 0x0093->0x022f ; "IFAILED"
01e7 0098 | | .STRTAB 0x0098->0x0233 ; "RFAILED"
01e8 009d | | .STRTAB 0x009d->0x0236 ; ":"
; ":"
; ":"
01e9 009c | | .STREND 0x009c->0x0237
01ea 5245 4749 |REGI| .STRTAB_STRINGS
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug Table
0238 ; --------------------------------------------------------------------------------------
0238 0004 000a | | .DEBUG4 0x0004,0x000a,0x742c,0x0000,0x0001,0x000c
023e 000b 026e | n| .DBG4T 0x000b,0x026e,0x8000,0x8000
0242 0028 0284 | ( | .DBG4T 0x0028,0x0284,0x8000,0x0000
0246 00e3 0000 | | .DBG4T 0x00e3,0x0000,0x0005,0x0000
024a 010b 0290 | | .DBG4T 0x010b,0x0290,0x0001,0x0000
024e 012b 0297 | + | .DBG4T 0x012b,0x0297,0x0001,0x4000
0252 019b 02b6 | | .DBG4T 0x019b,0x02b6,0x0001,0x0000
0256 01a3 02b9 | | .DBG4T 0x01a3,0x02b9,0x0001,0x0000
025a 01ab 02bc | | .DBG4T 0x01ab,0x02bc,0x0001,0x0000
025e 01b3 02bf | | .DBG4T 0x01b3,0x02bf,0x0001,0x0000
0262 01bb 02c2 | | .DBG4T 0x01bb,0x02c2,0x0001,0x0000
0266 01c3 02c5 | | .DBG4T 0x01c3,0x02c5,0x0001,0x0000
026a 01cb 0000 | | .DBG4T 0x01cb,0x0000,0x0005,0x0000
026e ; --------------------------------------------------------------------------------------
026e ; Debug chain
026e ; --------------------------------------------------------------------------------------
026e 000a 0000 | | .DBGLEN 0x000a,0x0000
0270 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020
027a 0001 0003 | | .XXX[0xa]
027c 0004 0005 | |
027e 0006 0007 | |
0280 0008 0009 | |
0282 000a 000b | |
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug chain
0284 ; --------------------------------------------------------------------------------------
0284 000a 0000 | | .DBGLEN 0x000a,0x0000
0286 0028 002e | ( .| .DBGLNO 0x0028,0x002e,0x00cb,0x00cd,0x00cf,0x00d1,0x00d3,0x00d5,0x00d7,0x00d9
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug chain
0290 ; --------------------------------------------------------------------------------------
0290 0000 0005 | | .DBGLEN 0x0000,0x0005
0292 010b 0112 | | .DBGLNO 0x010b,0x0112,0x0117,0x011e,0x0123
0297 ; --------------------------------------------------------------------------------------
0297 ; Debug chain
0297 ; --------------------------------------------------------------------------------------
0297 0003 000d | | .DBGLEN 0x0003,0x000d
0299 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0130,0x0136,0x0141,0x0146,0x014c,0x0160,0x0163,0x0166,0x0172,0x0175,0x017b,0x0181,0x0184,0x0188
02a9 0002 0003 | | .XXX[0xd]
02ab 0004 0005 | |
02ad 0006 0007 | |
02af 0008 0009 | |
02b1 000a 000b | |
02b3 000c 000d | |
02b5 000e | |
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug chain
02b6 ; --------------------------------------------------------------------------------------
02b6 0000 0001 | | .DBGLEN 0x0000,0x0001
02b8 019b | | .DBGLNO 0x019b
02b9 ; --------------------------------------------------------------------------------------
02b9 ; Debug chain
02b9 ; --------------------------------------------------------------------------------------
02b9 0000 0001 | | .DBGLEN 0x0000,0x0001
02bb 01a3 | | .DBGLNO 0x01a3
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug chain
02bc ; --------------------------------------------------------------------------------------
02bc 0000 0001 | | .DBGLEN 0x0000,0x0001
02be 01ab | | .DBGLNO 0x01ab
02bf ; --------------------------------------------------------------------------------------
02bf ; Debug chain
02bf ; --------------------------------------------------------------------------------------
02bf 0000 0001 | | .DBGLEN 0x0000,0x0001
02c1 01b3 | | .DBGLNO 0x01b3
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug chain
02c2 ; --------------------------------------------------------------------------------------
02c2 0000 0001 | | .DBGLEN 0x0000,0x0001
02c4 01bb | | .DBGLNO 0x01bb
02c5 ; --------------------------------------------------------------------------------------
02c5 ; Debug chain
02c5 ; --------------------------------------------------------------------------------------
02c5 0000 0001 | | .DBGLEN 0x0000,0x0001
02c7 01c3 | | .DBGLNO 0x01c3
02c8 0000 0000 | | .BLANK 0000[0x138]