|
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 - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_206cf0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0228 | ( | .CONST 0x0228 ; 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 00cb | | .CONST 0x00cb ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4807 |H | Short_Literal 0x7 000d 00e9 | | Load_Encached String_Cache 000e 035c | \ | Declare_Type Array,Constrained,Visible 000f 48f6 |H | Short_Literal 0xf6 0010 e002 | | Load 0x0,0x2 0011 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0012 1c07 | | Execute_Immediate Run_Utility,0x7 0013 0129 | ) | Execute Any,Make_Visible 0014 4900 |I | Short_Literal 0x100 0015 e002 | | Load 0x0,0x2 0016 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0017 1c07 | | Execute_Immediate Run_Utility,0x7 0018 0129 | ) | Execute Any,Make_Visible 0019 4800 |H | Short_Literal 0x0 001a 480b |H | Short_Literal 0xb 001b 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 001d 03fe | | Declare_Type Discrete,Defined,Visible 001e 00d8 | | Load_Top At_Offset_0 001f 00db | | Load_Top At_Offset_3 0020 00e2 | | Load_Encached Integer_Cache 0021 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0023 4803 |H | Short_Literal 0x3 0024 032e | . | Declare_Type Record,Defined,Visible 0025 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0027 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0029 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 002b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 002d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 002f 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0031 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0033 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0035 00bf | | Action Accept_Activation 0036 4800 |H | Short_Literal 0x0 0037 480b |H | Short_Literal 0xb 0038 e20d | | Load 0x1,0xd 0039 02a0 | | Declare_Subprogram Null_Subprogram 003a 4801 |H | Short_Literal 0x1 003b 035d | ] | Declare_Type Array,Defined 003c 00d8 | | Load_Top At_Offset_0 003d 0337 | 7 | Declare_Variable Array 003e 00d8 | | Load_Top At_Offset_0 003f 0335 | 5 | Declare_Variable Array,Duplicate 0040 00cd | | Action Spare6_Action 0041 4801 |H | Short_Literal 0x1 0042 4807 |H | Short_Literal 0x7 0043 0092 01d1 | | Action Push_String_Extended,0x1d1 ; "REGISTRATION" 0045 01cf | | Execute Vector,Slice_Read 0046 e20d | | Load 0x1,0xd 0047 0119 | | Execute Any,Check_In_Formal_Type 0048 4800 |H | Short_Literal 0x0 0049 00da | | Load_Top At_Offset_2 004a 01d6 | | Execute Vector,Field_Write 004b 4801 |H | Short_Literal 0x1 004c 4807 |H | Short_Literal 0x7 004d 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "UNREGISTRATION" 004f 01cf | | Execute Vector,Slice_Read 0050 e20d | | Load 0x1,0xd 0051 0119 | | Execute Any,Check_In_Formal_Type 0052 4801 |H | Short_Literal 0x1 0053 00da | | Load_Top At_Offset_2 0054 01d6 | | Execute Vector,Field_Write 0055 4801 |H | Short_Literal 0x1 0056 4807 |H | Short_Literal 0x7 0057 0092 01d3 | | Action Push_String_Extended,0x1d3 ; "QUERIES" 0059 01cf | | Execute Vector,Slice_Read 005a e20d | | Load 0x1,0xd 005b 0119 | | Execute Any,Check_In_Formal_Type 005c 4802 |H | Short_Literal 0x2 005d 00da | | Load_Top At_Offset_2 005e 01d6 | | Execute Vector,Field_Write 005f 4801 |H | Short_Literal 0x1 0060 4807 |H | Short_Literal 0x7 0061 0092 01d4 | | Action Push_String_Extended,0x1d4 ; "REQUEST" 0063 01cf | | Execute Vector,Slice_Read 0064 e20d | | Load 0x1,0xd 0065 0119 | | Execute Any,Check_In_Formal_Type 0066 4803 |H | Short_Literal 0x3 0067 00da | | Load_Top At_Offset_2 0068 01d6 | | Execute Vector,Field_Write 0069 4801 |H | Short_Literal 0x1 006a 4807 |H | Short_Literal 0x7 006b 0092 01d5 | | Action Push_String_Extended,0x1d5 ; "NOTIFICATION" 006d 01cf | | Execute Vector,Slice_Read 006e e20d | | Load 0x1,0xd 006f 0119 | | Execute Any,Check_In_Formal_Type 0070 4804 |H | Short_Literal 0x4 0071 00da | | Load_Top At_Offset_2 0072 01d6 | | Execute Vector,Field_Write 0073 4801 |H | Short_Literal 0x1 0074 4807 |H | Short_Literal 0x7 0075 0092 01d6 | | Action Push_String_Extended,0x1d6 ; "FORWARD" 0077 01cf | | Execute Vector,Slice_Read 0078 e20d | | Load 0x1,0xd 0079 0119 | | Execute Any,Check_In_Formal_Type 007a 4805 |H | Short_Literal 0x5 007b 00da | | Load_Top At_Offset_2 007c 01d6 | | Execute Vector,Field_Write 007d 4801 |H | Short_Literal 0x1 007e 4807 |H | Short_Literal 0x7 007f 0092 01d7 | | Action Push_String_Extended,0x1d7 ; "PUBLICATION" 0081 01cf | | Execute Vector,Slice_Read 0082 e20d | | Load 0x1,0xd 0083 0119 | | Execute Any,Check_In_Formal_Type 0084 4806 |H | Short_Literal 0x6 0085 00da | | Load_Top At_Offset_2 0086 01d6 | | Execute Vector,Field_Write 0087 4801 |H | Short_Literal 0x1 0088 4807 |H | Short_Literal 0x7 0089 0092 01d8 | | Action Push_String_Extended,0x1d8 ; "UNPUBLICATION" 008b 01cf | | Execute Vector,Slice_Read 008c e20d | | Load 0x1,0xd 008d 0119 | | Execute Any,Check_In_Formal_Type 008e 4807 |H | Short_Literal 0x7 008f 00da | | Load_Top At_Offset_2 0090 01d6 | | Execute Vector,Field_Write 0091 4801 |H | Short_Literal 0x1 0092 4807 |H | Short_Literal 0x7 0093 0092 01d9 | | Action Push_String_Extended,0x1d9 ; "SUBSCRIPTION" 0095 01cf | | Execute Vector,Slice_Read 0096 e20d | | Load 0x1,0xd 0097 0119 | | Execute Any,Check_In_Formal_Type 0098 4808 |H | Short_Literal 0x8 0099 00da | | Load_Top At_Offset_2 009a 01d6 | | Execute Vector,Field_Write 009b 4801 |H | Short_Literal 0x1 009c 4807 |H | Short_Literal 0x7 009d 0092 01da | | Action Push_String_Extended,0x1da ; "UNSUBSCRIPTION" 009f 01cf | | Execute Vector,Slice_Read 00a0 e20d | | Load 0x1,0xd 00a1 0119 | | Execute Any,Check_In_Formal_Type 00a2 4809 |H | Short_Literal 0x9 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 4801 |H | Short_Literal 0x1 00a6 4807 |H | Short_Literal 0x7 00a7 0092 01db | | Action Push_String_Extended,0x1db ; "FILTRATION" 00a9 01cf | | Execute Vector,Slice_Read 00aa e20d | | Load 0x1,0xd 00ab 0119 | | Execute Any,Check_In_Formal_Type 00ac 480a |H | Short_Literal 0xa 00ad 00da | | Load_Top At_Offset_2 00ae 01d6 | | Execute Vector,Field_Write 00af 4801 |H | Short_Literal 0x1 00b0 4807 |H | Short_Literal 0x7 00b1 0092 01dc | | Action Push_String_Extended,0x1dc ; "UNFILTRATION" 00b3 01cf | | Execute Vector,Slice_Read 00b4 e20d | | Load 0x1,0xd 00b5 0119 | | Execute Any,Check_In_Formal_Type 00b6 480b |H | Short_Literal 0xb 00b7 00da | | Load_Top At_Offset_2 00b8 01d6 | | Execute Vector,Field_Write 00b9 00d9 | | Load_Top At_Offset_1 00ba 01d4 | | Execute Vector,Structure_Write 00bb 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00ca 00c7 | | Action Elaborate_Subprogram 00cb BODY_0008: 00cb 00bc | | Action Signal_Activated 00cc 00bb | | Action Signal_Completion 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4607 |F | Jump_Case 0x8 00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00d5 7807 |x | Jump 0xdd ; case 0x1 00d6 780a |x | Jump 0xe1 ; case 0x2 00d7 780e |x | Jump 0xe6 ; case 0x3 00d8 7811 |x | Jump 0xea ; case 0x4 00d9 7812 |x | Jump 0xec ; case 0x5 00da 7813 |x | Jump 0xee ; case 0x6 00db 7816 |x | Jump 0xf2 ; case 0x7 00dc 4302 |C | .XXX[0x1] 00dd 00da | | Load_Top At_Offset_2 00de 0091 01d1 | | Action Push_String_Extended_Indexed,0x1d1 ; "REGISTRATION" 00e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e1 00db | | Load_Top At_Offset_3 00e2 00db | | Load_Top At_Offset_3 00e3 00e0 | | Load_Encached Standard_Cache 00e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e6 00da | | Load_Top At_Offset_2 00e7 00e0 | | Load_Encached Standard_Cache 00e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ea 00db | | Load_Top At_Offset_3 00eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ec 00db | | Load_Top At_Offset_3 00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ee e210 | | Load 0x1,0x10 00ef 00dc | | Load_Top At_Offset_4 00f0 0267 | g | Execute Discrete,Predecessor 00f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f2 e210 | | Load 0x1,0x10 00f3 00dc | | Load_Top At_Offset_4 00f4 0268 | h | Execute Discrete,Successor 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00db | | Load_Top At_Offset_3 00fc 00db | | Load_Top At_Offset_3 00fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00fe 00e0 | | Load_Encached Standard_Cache 00ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0100 0092 01dd | | Action Push_String_Extended,0x1dd ; ":" 0102 01cc | | Execute Vector,Catenate 0103 e5ff | | Load 0x2,-0x1 0104 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0105 e21b | | Load 0x1,0x1b 0106 01d5 | | Execute Vector,Field_Reference 0107 01cc | | Execute Vector,Catenate 0108 0092 01dd | | Action Push_String_Extended,0x1dd ; ":" 010a 01cc | | Execute Vector,Catenate 010b e5ff | | Load 0x2,-0x1 010c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 010d e002 | | Load 0x0,0x2 010e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010f 01cc | | Execute Vector,Catenate 0110 e002 | | Load 0x0,0x2 0111 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0112 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0125 | % | .CONST 0x0125 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0005 | | .CONST 0x0005 ; Number of locals 011b INIT_0118: 011b e20d | | Load 0x1,0xd 011c 0337 | 7 | Declare_Variable Array 011d 00e3 | | Load_Encached Natural_Cache 011e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 011f 03e9 | | Declare_Variable Discrete,Duplicate 0120 4801 |H | Short_Literal 0x1 0121 4801 |H | Short_Literal 0x1 0122 00e9 | | Load_Encached String_Cache 0123 035b | [ | Declare_Type Array,Constrained 0124 0337 | 7 | Declare_Variable Array 0125 BODY_0118: 0125 00cf | | Action Mark_Auxiliary 0126 00da | | Load_Top At_Offset_2 0127 00db | | Load_Top At_Offset_3 0128 00d8 | | Load_Top At_Offset_0 0129 00e4 | | Load_Encached Positive_Cache 012a 0260 | ` | Execute Discrete,In_Type 012b 7001 |p | Jump_Nonzero 0x12d 012c 0801 | | Execute_Immediate Raise,0x1 012d e5ff | | Load 0x2,-0x1 012e e002 | | Load 0x0,0x2 012f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0130 00da | | Load_Top At_Offset_2 0131 01d4 | | Execute Vector,Structure_Write 0132 00d9 | | Load_Top At_Offset_1 0133 0092 01dd | | Action Push_String_Extended,0x1dd ; ":" 0135 01df | | Execute Vector,Equal 0136 7005 |p | Jump_Nonzero 0x13c 0137 00da | | Load_Top At_Offset_2 0138 0a01 | | Execute_Immediate Plus,0x1 0139 005b | [ | Store_Top Discrete,At_Offset_3 013a 00c9 | | Action Pop_Auxiliary_Loop 013b 7fea | | Jump 0x126 013c 00ce | | Action Pop_Auxiliary 013d 00d9 | | Load_Top At_Offset_1 013e 0aff | | Execute_Immediate Plus,-0x1 013f 00d8 | | Load_Top At_Offset_0 0140 00e3 | | Load_Encached Natural_Cache 0141 0260 | ` | Execute Discrete,In_Type 0142 7001 |p | Jump_Nonzero 0x144 0143 0801 | | Execute_Immediate Raise,0x1 0144 00db | | Load_Top At_Offset_3 0145 00d8 | | Load_Top At_Offset_0 0146 00e4 | | Load_Encached Positive_Cache 0147 0260 | ` | Execute Discrete,In_Type 0148 7001 |p | Jump_Nonzero 0x14a 0149 0801 | | Execute_Immediate Raise,0x1 014a e5ff | | Load 0x2,-0x1 014b e002 | | Load 0x0,0x2 014c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 014d 00e2 | | Load_Encached Integer_Cache 014e 00e0 | | Load_Encached Standard_Cache 014f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0150 e5fe | | Load 0x2,-0x2 0151 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0152 00d9 | | Load_Top At_Offset_1 0153 0a01 | | Execute_Immediate Plus,0x1 0154 005b | [ | Store_Top Discrete,At_Offset_3 0155 00da | | Load_Top At_Offset_2 0156 0a06 | | Execute_Immediate Plus,0x6 0157 005a | Z | Store_Top Discrete,At_Offset_2 0158 00d9 | | Load_Top At_Offset_1 0159 00db | | Load_Top At_Offset_3 015a 00d8 | | Load_Top At_Offset_0 015b 00e4 | | Load_Encached Positive_Cache 015c 0260 | ` | Execute Discrete,In_Type 015d 7001 |p | Jump_Nonzero 0x15f 015e 0801 | | Execute_Immediate Raise,0x1 015f e5ff | | Load 0x2,-0x1 0160 e002 | | Load 0x0,0x2 0161 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0162 e402 | | Load 0x2,0x2 0163 01d4 | | Execute Vector,Structure_Write 0164 00cf | | Action Mark_Auxiliary 0165 480b |H | Short_Literal 0xb 0166 4800 |H | Short_Literal 0x0 0167 0007 | | Action Break_Optional 0168 e402 | | Load 0x2,0x2 0169 00d9 | | Load_Top At_Offset_1 016a e21b | | Load 0x1,0x1b 016b 01d5 | | Execute Vector,Field_Reference 016c 01df | | Execute Vector,Equal 016d 6803 |h | Jump_Zero 0x171 016e 00d8 | | Load_Top At_Offset_0 016f e5fe | | Load 0x2,-0x2 0170 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0171 00c8 | | Action Pop_Auxiliary_Range 0172 3ff5 |? | Loop_Increasing 0x168 0173 00ce | | Action Pop_Auxiliary 0174 00d9 | | Load_Top At_Offset_1 0175 0a02 | | Execute_Immediate Plus,0x2 0176 005b | [ | Store_Top Discrete,At_Offset_3 0177 e5ff | | Load 0x2,-0x1 0178 e002 | | Load 0x0,0x2 0179 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 017a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 017b e5fe | | Load 0x2,-0x2 017c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 017d 00da | | Load_Top At_Offset_2 017e e403 | | Load 0x2,0x3 017f 00d8 | | Load_Top At_Offset_0 0180 00e4 | | Load_Encached Positive_Cache 0181 0260 | ` | Execute Discrete,In_Type 0182 7001 |p | Jump_Nonzero 0x184 0183 0801 | | Execute_Immediate Raise,0x1 0184 e5ff | | Load 0x2,-0x1 0185 e002 | | Load 0x0,0x2 0186 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0187 e002 | | Load 0x0,0x2 0188 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 e5fe | | Load 0x2,-0x2 0195 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0197 0000 | | .XXX[0x1] 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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019d a5fe | | Store_Unchecked 0x2,-0x2 019e 4502 |E | Exit_Suprogram New_Top_Offset 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 e5fe | | Load 0x2,-0x2 01a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01a6 4502 |E | Exit_Suprogram New_Top_Offset 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 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ad a5fe | | Store_Unchecked 0x2,-0x2 01ae 4502 |E | Exit_Suprogram New_Top_Offset 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 e5fe | | Load 0x2,-0x2 01b5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01b6 4502 |E | Exit_Suprogram New_Top_Offset 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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01bd e5fe | | Load 0x2,-0x2 01be 016d | m | Execute Variant_Record,Structure_Write 01bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 4601 |F | Jump_Case 0x2 01c4 7801 |x | Jump 0x1c6 ; case 0x0 01c5 7807 |x | Jump 0x1cd ; case 0x1 01c6 00da | | Load_Top At_Offset_2 01c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01c8 0125 | % | Execute Any,Set_Constraint 01c9 00da | | Load_Top At_Offset_2 01ca 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01cb 1c00 | | Execute_Immediate Run_Utility,0x0 01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01cd 00da | | Load_Top At_Offset_2 01ce 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01cf 0125 | % | Execute Any,Set_Constraint 01d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01d1 ; -------------------------------------------------------------------------------------- 01d1 ; STRING TABLE 01d1 ; -------------------------------------------------------------------------------------- 01d1 001c | | .STRTAB 0x001c->0x01df ; "REGISTRATION" 01d2 0026 | & | .STRTAB 0x0026->0x01e5 ; "UNREGISTRATION" 01d3 0032 | 2 | .STRTAB 0x0032->0x01ec ; "QUERIES" 01d4 0037 | 7 | .STRTAB 0x0037->0x01ef ; "REQUEST" 01d5 003c | < | .STRTAB 0x003c->0x01f3 ; "NOTIFICATION" 01d6 0046 | F | .STRTAB 0x0046->0x01f9 ; "FORWARD" 01d7 004b | K | .STRTAB 0x004b->0x01fc ; "PUBLICATION" 01d8 0054 | T | .STRTAB 0x0054->0x0202 ; "UNPUBLICATION" 01d9 005f | _ | .STRTAB 0x005f->0x0208 ; "SUBSCRIPTION" 01da 0069 | i | .STRTAB 0x0069->0x020e ; "UNSUBSCRIPTION" 01db 0075 | u | .STRTAB 0x0075->0x0215 ; "FILTRATION" 01dc 007d | } | .STRTAB 0x007d->0x021a ; "UNFILTRATION" 01dd 0087 | | .STRTAB 0x0087->0x0220 ; ":" 01de 0086 | | .STREND 0x0086->0x0221 01df 5245 4749 |REGI| .STRTAB_STRINGS 0221 0000 0000 | | .BLANK 0000[0x7] 0228 ; -------------------------------------------------------------------------------------- 0228 ; Debug Table 0228 ; -------------------------------------------------------------------------------------- 0228 0004 000a | | .DEBUG4 0x0004,0x000a,0x223c,0x0000,0x0001,0x000c 022e 000b 025e | ^| .DBG4T 0x000b,0x025e,0x8000,0x8000 0232 0036 027a | 6 z| .DBG4T 0x0036,0x027a,0x8000,0x0000 0236 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000 023a 00fb 0286 | | .DBG4T 0x00fb,0x0286,0x0001,0x0000 023e 011b 0289 | | .DBG4T 0x011b,0x0289,0x0001,0x4000 0242 0193 02a8 | | .DBG4T 0x0193,0x02a8,0x0001,0x0000 0246 019b 02ab | | .DBG4T 0x019b,0x02ab,0x0001,0x0000 024a 01a3 02ae | | .DBG4T 0x01a3,0x02ae,0x0001,0x0000 024e 01ab 02b1 | | .DBG4T 0x01ab,0x02b1,0x0001,0x0000 0252 01b3 02b4 | | .DBG4T 0x01b3,0x02b4,0x0001,0x0000 0256 01bb 02b7 | | .DBG4T 0x01bb,0x02b7,0x0001,0x0000 025a 01c3 0000 | | .DBG4T 0x01c3,0x0000,0x0005,0x0000 025e ; -------------------------------------------------------------------------------------- 025e ; Debug chain 025e ; -------------------------------------------------------------------------------------- 025e 000d 0000 | | .DBGLEN 0x000d,0x0000 0260 000b 000f | | .DBGLNO 0x000b,0x000f,0x0014,0x0019,0x001e,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033 026d 0002 0003 | | .XXX[0xd] 026f 0004 0005 | | 0271 0006 0007 | | 0273 0008 0009 | | 0275 000a 000b | | 0277 000c 000d | | 0279 000e | | 027a ; -------------------------------------------------------------------------------------- 027a ; Debug chain 027a ; -------------------------------------------------------------------------------------- 027a 000a 0000 | | .DBGLEN 0x000a,0x0000 027c 0036 003c | 6 <| .DBGLNO 0x0036,0x003c,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9 0286 ; -------------------------------------------------------------------------------------- 0286 ; Debug chain 0286 ; -------------------------------------------------------------------------------------- 0286 0000 0001 | | .DBGLEN 0x0000,0x0001 0288 00fb | | .DBGLNO 0x00fb 0289 ; -------------------------------------------------------------------------------------- 0289 ; Debug chain 0289 ; -------------------------------------------------------------------------------------- 0289 0003 000d | | .DBGLEN 0x0003,0x000d 028b 011b 011d | | .DBGLNO 0x011b,0x011d,0x0120,0x0126,0x0132,0x0137,0x013d,0x0152,0x0155,0x0158,0x0165,0x0168,0x016e,0x0174,0x0177,0x017b 029b 0002 0003 | | .XXX[0xd] 029d 0004 0005 | | 029f 0006 0007 | | 02a1 0008 0009 | | 02a3 000a 000b | | 02a5 000c 000d | | 02a7 000e | | 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; Debug chain 02a8 ; -------------------------------------------------------------------------------------- 02a8 0000 0001 | | .DBGLEN 0x0000,0x0001 02aa 0193 | | .DBGLNO 0x0193 02ab ; -------------------------------------------------------------------------------------- 02ab ; Debug chain 02ab ; -------------------------------------------------------------------------------------- 02ab 0000 0001 | | .DBGLEN 0x0000,0x0001 02ad 019b | | .DBGLNO 0x019b 02ae ; -------------------------------------------------------------------------------------- 02ae ; Debug chain 02ae ; -------------------------------------------------------------------------------------- 02ae 0000 0001 | | .DBGLEN 0x0000,0x0001 02b0 01a3 | | .DBGLNO 0x01a3 02b1 ; -------------------------------------------------------------------------------------- 02b1 ; Debug chain 02b1 ; -------------------------------------------------------------------------------------- 02b1 0000 0001 | | .DBGLEN 0x0000,0x0001 02b3 01ab | | .DBGLNO 0x01ab 02b4 ; -------------------------------------------------------------------------------------- 02b4 ; Debug chain 02b4 ; -------------------------------------------------------------------------------------- 02b4 0000 0001 | | .DBGLEN 0x0000,0x0001 02b6 01b3 | | .DBGLNO 0x01b3 02b7 ; -------------------------------------------------------------------------------------- 02b7 ; Debug chain 02b7 ; -------------------------------------------------------------------------------------- 02b7 0000 0001 | | .DBGLEN 0x0000,0x0001 02b9 01bb | | .DBGLNO 0x01bb 02ba 0000 0000 | | .BLANK 0000[0x146]