|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_05d8fd
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0270 | p | .CONST 0x0270 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0065 | e | .CONST 0x0065 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 000f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0010 0129 | ) | Execute Any,Make_Visible 0011 4801 |H | Short_Literal 0x1 0012 4800 |H | Short_Literal 0x0 0013 00da | | Load_Top At_Offset_2 0014 035b | [ | Declare_Type Array,Constrained 0015 0336 | 6 | Declare_Variable Array,Visible 0016 00d8 | | Load_Top At_Offset_0 0017 0335 | 5 | Declare_Variable Array,Duplicate 0018 00cd | | Action Spare6_Action 0019 00d9 | | Load_Top At_Offset_1 001a 01d4 | | Execute Vector,Structure_Write 001b 4800 |H | Short_Literal 0x0 001c 4807 |H | Short_Literal 0x7 001d 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 001f 03fe | | Declare_Type Discrete,Defined,Visible 0020 4800 |H | Short_Literal 0x0 0021 606e |`n | Indirect_Literal Discrete,0x90,{0x00000000, 0x00ffffff} 0022 00e5 | | Load_Encached Long_Integer_Cache 0023 03f9 | | Declare_Type Discrete,Constrained,Visible 0024 4804 |H | Short_Literal 0x4 0025 032b | + | Declare_Type Record,Incomplete,Visible 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0033 c219 | | Store 0x1,0x19 0034 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0036 c21a | | Store 0x1,0x1a 0037 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0039 c21b | | Store 0x1,0x1b 003a 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 003c c21c | | Store 0x1,0x1c 003d 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 003f c21d | | Store 0x1,0x1d 0040 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0042 c218 | | Store 0x1,0x18 0043 00e1 | | Load_Encached Boolean_Cache 0044 e002 | | Load 0x0,0x2 0045 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0046 00e1 | | Load_Encached Boolean_Cache 0047 e002 | | Load 0x0,0x2 0048 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0049 029f 021b | | Declare_Subprogram INIT_0218,For_Call 004b e212 | | Load 0x1,0x12 004c 0326 | & | Complete_Type Record,By_Defining 004d 00bf | | Action Accept_Activation 004e e003 | | Load 0x0,0x3 004f e004 | | Load 0x0,0x4 0050 e001 | | Load 0x0,0x1 0051 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0052 e002 | | Load 0x0,0x2 0053 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0054 0387 | | Declare_Variable Package 0055 00d8 | | Load_Top At_Offset_0 0056 020f | | Execute Module,Activate 0057 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0059 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005a 00c7 | | Action Elaborate_Subprogram 005b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0062 00c7 | | Action Elaborate_Subprogram 0063 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0064 00c7 | | Action Elaborate_Subprogram 0065 BODY_0008: 0065 00bc | | Action Signal_Activated 0066 00bb | | Action Signal_Completion 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4607 |F | Jump_Case 0x8 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7806 |x | Jump 0x74 ; case 0x1 006e 7809 |x | Jump 0x78 ; case 0x2 006f 780d |x | Jump 0x7d ; case 0x3 0070 7810 |x | Jump 0x81 ; case 0x4 0071 7811 |x | Jump 0x83 ; case 0x5 0072 7812 |x | Jump 0x85 ; case 0x6 0073 7815 |x | Jump 0x89 ; case 0x7 0074 00da | | Load_Top At_Offset_2 0075 0091 0239 | 9| Action Push_String_Extended_Indexed,0x239 ; "OK" 0077 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0078 00db | | Load_Top At_Offset_3 0079 00db | | Load_Top At_Offset_3 007a 00e0 | | Load_Encached Standard_Cache 007b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007d 00da | | Load_Top At_Offset_2 007e 00e0 | | Load_Encached Standard_Cache 007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0081 00db | | Load_Top At_Offset_3 0082 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0083 00db | | Load_Top At_Offset_3 0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0085 e210 | | Load 0x1,0x10 0086 00dc | | Load_Top At_Offset_4 0087 0267 | g | Execute Discrete,Predecessor 0088 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0089 e210 | | Load 0x1,0x10 008a 00dc | | Load_Top At_Offset_4 008b 0268 | h | Execute Discrete,Successor 008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 0000 0000 | | .LITERAL {0x00000000, 0x00ffffff} 0094 0000 0000 | | .BLANK 0000[0x4] 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 4800 |H | Short_Literal 0x0 009c a5fc | | Store_Unchecked 0x2,-0x4 009d 00da | | Load_Top At_Offset_2 009e 01db | | Execute Vector,Length 009f 6819 |h | Jump_Zero 0xb9 00a0 e002 | | Load 0x0,0x2 00a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a2 e5fd | | Load 0x2,-0x3 00a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00a4 4800 |H | Short_Literal 0x0 00a5 6036 |`6 | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00004000} 00a6 e005 | | Load 0x0,0x5 00a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a8 e006 | | Load 0x0,0x6 00a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00aa e002 | | Load 0x0,0x2 00ab 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00ac 4800 |H | Short_Literal 0x0 00ad e5ff | | Load 0x2,-0x1 00ae 4800 |H | Short_Literal 0x0 00af e002 | | Load 0x0,0x2 00b0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b1 e5fd | | Load 0x2,-0x3 00b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b3 c5fc | | Store 0x2,-0x4 00b4 e5fc | | Load 0x2,-0x4 00b5 0f00 | | Execute_Immediate Equal,0x0 00b6 e5fd | | Load 0x2,-0x3 00b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b8 7803 |x | Jump 0xbc 00b9 4800 |H | Short_Literal 0x0 00ba e5fd | | Load 0x2,-0x3 00bb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00bc 00db | | Load_Top At_Offset_3 00bd 01db | | Execute Vector,Length 00be 6819 |h | Jump_Zero 0xd8 00bf e002 | | Load 0x0,0x2 00c0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00c1 e5fd | | Load 0x2,-0x3 00c2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00c3 4800 |H | Short_Literal 0x0 00c4 6017 |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00004000} 00c5 e005 | | Load 0x0,0x5 00c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c7 e006 | | Load 0x0,0x6 00c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c9 e002 | | Load 0x0,0x2 00ca 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00cb 4800 |H | Short_Literal 0x0 00cc e5fe | | Load 0x2,-0x2 00cd 4800 |H | Short_Literal 0x0 00ce e002 | | Load 0x0,0x2 00cf 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00d0 e5fd | | Load 0x2,-0x3 00d1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00d2 c5fc | | Store 0x2,-0x4 00d3 e5fc | | Load 0x2,-0x4 00d4 0f00 | | Execute_Immediate Equal,0x0 00d5 e5fd | | Load 0x2,-0x3 00d6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d8 4800 |H | Short_Literal 0x0 00d9 e5fd | | Load 0x2,-0x3 00da 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00dc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 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 4800 |H | Short_Literal 0x0 00e4 a5fd | | Store_Unchecked 0x2,-0x3 00e5 00db | | Load_Top At_Offset_3 00e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e7 e002 | | Load 0x0,0x2 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 7009 |p | Jump_Nonzero 0xf3 00ea e002 | | Load 0x0,0x2 00eb 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ec e5fe | | Load 0x2,-0x2 00ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ee e002 | | Load 0x0,0x2 00ef 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00f0 e5fe | | Load 0x2,-0x2 00f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f2 c5fd | | Store 0x2,-0x3 00f3 00da | | Load_Top At_Offset_2 00f4 01db | | Execute Vector,Length 00f5 6819 |h | Jump_Zero 0x10f 00f6 e002 | | Load 0x0,0x2 00f7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00f8 e5fe | | Load 0x2,-0x2 00f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00fa 4800 |H | Short_Literal 0x0 00fb 67e0 |g | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00004000} 00fc e005 | | Load 0x0,0x5 00fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fe e006 | | Load 0x0,0x6 00ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0100 e002 | | Load 0x0,0x2 0101 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0102 4800 |H | Short_Literal 0x0 0103 e5ff | | Load 0x2,-0x1 0104 4800 |H | Short_Literal 0x0 0105 e002 | | Load 0x0,0x2 0106 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0107 e5fe | | Load 0x2,-0x2 0108 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0109 c5fd | | Store 0x2,-0x3 010a e5fd | | Load 0x2,-0x3 010b 0f00 | | Execute_Immediate Equal,0x0 010c e5fe | | Load 0x2,-0x2 010d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 010e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010f 4800 |H | Short_Literal 0x0 0110 e5fe | | Load 0x2,-0x2 0111 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0112 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4800 |H | Short_Literal 0x0 011c a5fd | | Store_Unchecked 0x2,-0x3 011d 00db | | Load_Top At_Offset_3 011e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 011f e002 | | Load 0x0,0x2 0120 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0121 7009 |p | Jump_Nonzero 0x12b 0122 e002 | | Load 0x0,0x2 0123 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0124 e5fe | | Load 0x2,-0x2 0125 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0126 e002 | | Load 0x0,0x2 0127 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0128 e5fe | | Load 0x2,-0x2 0129 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 012a c5fd | | Store 0x2,-0x3 012b 00da | | Load_Top At_Offset_2 012c 01db | | Execute Vector,Length 012d 6819 |h | Jump_Zero 0x147 012e e002 | | Load 0x0,0x2 012f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0130 e5fe | | Load 0x2,-0x2 0131 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0132 4800 |H | Short_Literal 0x0 0133 6018 |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00004000} 0134 e005 | | Load 0x0,0x5 0135 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0136 e006 | | Load 0x0,0x6 0137 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0138 e002 | | Load 0x0,0x2 0139 181f | | Execute Package,Field_Execute,Field_Number 0x1f 013a 4800 |H | Short_Literal 0x0 013b e5ff | | Load 0x2,-0x1 013c 4800 |H | Short_Literal 0x0 013d e002 | | Load 0x0,0x2 013e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 013f e5fe | | Load 0x2,-0x2 0140 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0141 c5fd | | Store 0x2,-0x3 0142 e5fd | | Load 0x2,-0x3 0143 0f00 | | Execute_Immediate Equal,0x0 0144 e5fe | | Load 0x2,-0x2 0145 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0146 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0147 4800 |H | Short_Literal 0x0 0148 e5fe | | Load 0x2,-0x2 0149 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 014a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014b 0000 | | .XXX[0x1] 014c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015a | Z | .CONST 0x015a ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 e002 | | Load 0x0,0x2 0154 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0155 02c7 | | Declare_Variable Any 0156 00d8 | | Load_Top At_Offset_0 0157 1c00 | | Execute_Immediate Run_Utility,0x0 0158 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 015a BODY_0150: 015a e5fe | | Load 0x2,-0x2 015b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 015c 6813 |h | Jump_Zero 0x170 015d e5ff | | Load 0x2,-0x1 015e e5fe | | Load 0x2,-0x2 015f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0160 821f | | Call 0x1,0x1f 0161 c402 | | Store 0x2,0x2 0162 00e3 | | Load_Encached Natural_Cache 0163 e5fc | | Load 0x2,-0x4 0164 00db | | Load_Top At_Offset_3 0165 e5fe | | Load 0x2,-0x2 0166 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0167 e002 | | Load 0x0,0x2 0168 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0169 180f | | Execute Package,Field_Execute,Field_Number 0xf 016a c402 | | Store 0x2,0x2 016b 00d1 | | Pop_Control Pop_Count_1 016c c5fb | | Store 0x2,-0x5 016d 4800 |H | Short_Literal 0x0 016e a5fd | | Store_Unchecked 0x2,-0x3 016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0170 8403 | | Call 0x2,0x3 0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0172 0000 0000 | | .BLANK 0000[0x6] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0180 | | .CONST 0x0180 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b e002 | | Load 0x0,0x2 017c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 017d 02c7 | | Declare_Variable Any 017e 00d8 | | Load_Top At_Offset_0 017f 1c00 | | Execute_Immediate Run_Utility,0x0 0180 BODY_0178: 0180 e5fe | | Load 0x2,-0x2 0181 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0182 6813 |h | Jump_Zero 0x196 0183 00db | | Load_Top At_Offset_3 0184 e5fe | | Load 0x2,-0x2 0185 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0186 821f | | Call 0x1,0x1f 0187 c402 | | Store 0x2,0x2 0188 00e3 | | Load_Encached Natural_Cache 0189 e5fc | | Load 0x2,-0x4 018a 00da | | Load_Top At_Offset_2 018b e5fe | | Load 0x2,-0x2 018c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018d e002 | | Load 0x0,0x2 018e 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 018f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0190 c402 | | Store 0x2,0x2 0191 00d1 | | Pop_Control Pop_Count_1 0192 c5fb | | Store 0x2,-0x5 0193 4800 |H | Short_Literal 0x0 0194 a5fd | | Store_Unchecked 0x2,-0x3 0195 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0196 0833 | 3 | Execute_Immediate Raise,0x33 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e002 | | Load 0x0,0x2 019c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 019d BODY_0198: 019d 00db | | Load_Top At_Offset_3 019e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019f e002 | | Load 0x0,0x2 01a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a1 7009 |p | Jump_Nonzero 0x1ab 01a2 e002 | | Load 0x0,0x2 01a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a4 e5ff | | Load 0x2,-0x1 01a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a6 e002 | | Load 0x0,0x2 01a7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01a8 e5ff | | Load 0x2,-0x1 01a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01aa 0059 | Y | Store_Top Discrete,At_Offset_1 01ab 00db | | Load_Top At_Offset_3 01ac 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01ad e002 | | Load 0x0,0x2 01ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01af 7009 |p | Jump_Nonzero 0x1b9 01b0 e002 | | Load 0x0,0x2 01b1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01b2 e5ff | | Load 0x2,-0x1 01b3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01b4 e002 | | Load 0x0,0x2 01b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01b6 e5ff | | Load 0x2,-0x1 01b7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01b8 0059 | Y | Store_Top Discrete,At_Offset_1 01b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ba 0000 0000 | | .BLANK 0000[0x6] 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 e002 | | Load 0x0,0x2 01c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01c5 e5fe | | Load 0x2,-0x2 01c6 0a01 | | Execute_Immediate Plus,0x1 01c7 00d8 | | Load_Top At_Offset_0 01c8 00e4 | | Load_Encached Positive_Cache 01c9 0260 | ` | Execute Discrete,In_Type 01ca 7001 |p | Jump_Nonzero 0x1cc 01cb 0801 | | Execute_Immediate Raise,0x1 01cc e5ff | | Load 0x2,-0x1 01cd e21e | | Load 0x1,0x1e 01ce 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 0203 | | .CONST 0x0203 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0004 | | .CONST 0x0004 ; Number of locals 01d3 INIT_01d0: 01d3 e007 | | Load 0x0,0x7 01d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d5 e007 | | Load 0x0,0x7 01d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d7 0266 | f | Execute Discrete,Bounds 01d8 e210 | | Load 0x1,0x10 01d9 02a0 | | Declare_Subprogram Null_Subprogram 01da 4801 |H | Short_Literal 0x1 01db 035d | ] | Declare_Type Array,Defined 01dc 00d8 | | Load_Top At_Offset_0 01dd 0337 | 7 | Declare_Variable Array 01de 00d8 | | Load_Top At_Offset_0 01df 0335 | 5 | Declare_Variable Array,Duplicate 01e0 00cd | | Action Spare6_Action 01e1 4800 |H | Short_Literal 0x0 01e2 4800 |H | Short_Literal 0x0 01e3 00da | | Load_Top At_Offset_2 01e4 01d6 | | Execute Vector,Field_Write 01e5 4801 |H | Short_Literal 0x1 01e6 4801 |H | Short_Literal 0x1 01e7 00da | | Load_Top At_Offset_2 01e8 01d6 | | Execute Vector,Field_Write 01e9 4802 |H | Short_Literal 0x2 01ea 4802 |H | Short_Literal 0x2 01eb 00da | | Load_Top At_Offset_2 01ec 01d6 | | Execute Vector,Field_Write 01ed 4803 |H | Short_Literal 0x3 01ee 4803 |H | Short_Literal 0x3 01ef 00da | | Load_Top At_Offset_2 01f0 01d6 | | Execute Vector,Field_Write 01f1 4804 |H | Short_Literal 0x4 01f2 4804 |H | Short_Literal 0x4 01f3 00da | | Load_Top At_Offset_2 01f4 01d6 | | Execute Vector,Field_Write 01f5 4805 |H | Short_Literal 0x5 01f6 4805 |H | Short_Literal 0x5 01f7 00da | | Load_Top At_Offset_2 01f8 01d6 | | Execute Vector,Field_Write 01f9 4806 |H | Short_Literal 0x6 01fa 4806 |H | Short_Literal 0x6 01fb 00da | | Load_Top At_Offset_2 01fc 01d6 | | Execute Vector,Field_Write 01fd 4807 |H | Short_Literal 0x7 01fe 4807 |H | Short_Literal 0x7 01ff 00da | | Load_Top At_Offset_2 0200 01d6 | | Execute Vector,Field_Write 0201 00d9 | | Load_Top At_Offset_1 0202 01d4 | | Execute Vector,Structure_Write 0203 BODY_01d0: 0203 00e3 | | Load_Encached Natural_Cache 0204 e5fc | | Load 0x2,-0x4 0205 e007 | | Load 0x0,0x7 0206 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0207 e5ff | | Load 0x2,-0x1 0208 e007 | | Load 0x0,0x7 0209 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020a c602 | | Store 0x3,0x2 020b 00d1 | | Pop_Control Pop_Count_1 020c c5fb | | Store 0x2,-0x5 020d 00da | | Load_Top At_Offset_2 020e 00d9 | | Load_Top At_Offset_1 020f 01d7 | | Execute Vector,Field_Read 0210 a5fd | | Store_Unchecked 0x2,-0x3 0211 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0212 0000 0000 | | .BLANK 0000[0x6] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 4608 |F | Jump_Case 0x9 021c 7808 |x | Jump 0x225 ; case 0x0 021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 021e 7819 |x | Jump 0x238 ; case 0x2 021f 7818 |x | Jump 0x238 ; case 0x3 0220 7817 |x | Jump 0x238 ; case 0x4 0221 7816 |x | Jump 0x238 ; case 0x5 0222 7815 |x | Jump 0x238 ; case 0x6 0223 7814 |x | Jump 0x238 ; case 0x7 0224 7813 |x | Jump 0x238 ; case 0x8 0225 4800 |H | Short_Literal 0x0 0226 00db | | Load_Top At_Offset_3 0227 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0228 00da | | Load_Top At_Offset_2 0229 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 022a 0125 | % | Execute Any,Set_Constraint 022b 00da | | Load_Top At_Offset_2 022c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 022d 1c00 | | Execute_Immediate Run_Utility,0x0 022e 4800 |H | Short_Literal 0x0 022f 00db | | Load_Top At_Offset_3 0230 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0231 00da | | Load_Top At_Offset_2 0232 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0233 0125 | % | Execute Any,Set_Constraint 0234 00da | | Load_Top At_Offset_2 0235 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0236 1c00 | | Execute_Immediate Run_Utility,0x0 0237 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0238 0869 | i | Execute_Immediate Raise,0x69 0239 ; -------------------------------------------------------------------------------------- 0239 ; STRING TABLE 0239 ; -------------------------------------------------------------------------------------- 0239 0012 | | .STRTAB 0x0012->0x0242 ; "OK" 023a 0012 | | .STRTAB 0x0012->0x0243 ; "NOT_INSTALLED" 023b 001d | | .STRTAB 0x001d->0x0249 ; "NOT_CONFIGURED" 023c 0029 | ) | .STRTAB 0x0029->0x0250 ; "ALREADY_OPEN" 023d 0033 | 3 | .STRTAB 0x0033->0x0256 ; "NOT_OPEN" 023e 0039 | 9 | .STRTAB 0x0039->0x025a ; "NOT_REGISTERED" 023f 0045 | E | .STRTAB 0x0045->0x0261 ; "TOO_MANY_CLIENTS" 0240 0053 | S | .STRTAB 0x0053->0x0269 ; "TIMED_OUT" 0241 005a | Z | .STREND 0x005a->0x026e 0242 4f4b 4e4f |OKNO| .STRTAB_STRINGS 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug Table 0270 ; -------------------------------------------------------------------------------------- 0270 0004 000c | | .DEBUG4 0x0004,0x000c,0xc7ea,0x0000,0x0001,0x0000 0276 e008 26d4 | & | .XXX[0x39] 0278 0000 0000 | | 027a 8237 c020 | 7 | 027c 93e0 0000 | | 027e 0114 2300 | # | 0280 8237 c000 | 7 | 0282 0000 03a0 | | 0284 0003 6da0 | m | 0286 0000 0000 | | 0288 0040 fce0 | @ | 028a 0060 0000 | ` | 028c 0004 0fcf | | 028e 0890 0081 | | 0290 d4c0 0000 | | 0292 0008 22aa | " | 0294 762e 0103 |v. | 0296 a980 0000 | | 0298 0004 c000 | | 029a 06d1 6c32 | l2| 029c 5002 06bf |P | 029e 0000 0000 | | 02a0 2073 8000 | s | 02a2 20a4 5000 | P | 02a4 0000 0000 | | 02a6 0800 1054 | T| 02a8 2800 0000 |( | 02aa 0000 0000 | | 02ac 1000 1058 | X| 02ae 2800 |( | 02af 0000 0000 | | .BLANK 0000[0x6] 02b5 105b 2800 | [( | .XXX[0x22] 02b7 0207 e700 | | 02b9 0000 2762 | 'b| 02bb e010 35f8 | 5 | 02bd 0000 0001 | | 02bf 8400 0070 | p| 02c1 8cc0 2139 | !9| 02c3 1008 135a | Z| 02c5 0c7a 011e | z | 02c7 d900 0000 | | 02c9 0010 6790 | g | 02cb 041c 6e00 | n | 02cd 0000 0000 | | 02cf 6304 2010 |c | 02d1 6270 041b |bp | 02d3 c202 1c00 | | 02d5 0107 1b80 | | 02d7 0000 0000 | | .BLANK 0000[0x5] 02dc 833c 801f | < | .XXX[0x4a] 02de 4040 0700 |@@ | 02e0 0000 0000 | | 02e2 01a4 0303 | | 02e4 7a00 8313 |z | 02e6 8000 0000 | | 02e8 0844 b402 | D | 02ea 131a 0000 | | 02ec 0011 a7e0 | | 02ee 0844 b400 | D | 02f0 0000 0084 | | 02f2 15c0 210b | ! | 02f4 6000 0001 |` | 02f6 1423 0084 | # | 02f8 15c0 0000 | | 02fa 0003 a000 | | 02fc 036d a000 | m | 02fe 0000 0000 | | 0300 41eb e000 |A | 0302 6000 0000 |` | 0304 041e bf08 | | 0306 9000 83b2 | | 0308 c000 0000 | | 030a 0840 8a76 | @ v| 030c 2e01 0765 |. e| 030e 8000 0000 | | 0310 04c0 0006 | | 0312 d16c 3250 | l2P| 0314 020e 3700 | 7 | 0316 0000 0020 | | 0318 eb00 0021 | !| 031a 1bd0 0000 | | 031c 0000 0008 | | 031e 0010 8fe8 | | 0320 0000 0000 | | 0322 0000 0010 | | 0324 0010 93e8 | | 0326 0000 0000 | | .BLANK 0000[0x6] 032c 0010 96e8 | | .XXX[0x23] 032e 0002 0f5f | _| 0330 0000 0027 | '| 0332 62e0 1071 |b q| 0334 b800 0000 | | 0336 0020 0600 | | 0338 5e3d 4021 |^=@!| 033a 72f0 0831 |r 1| 033c 3a0c 7a01 |: z | 033e 1ed9 0000 | | 0340 0000 10a3 | | 0342 5004 2b5e |P +^| 0344 0000 0000 | | 0346 0063 0420 | c | 0348 109e 3004 | 0 | 034a 2ab2 0168 |* h| 034c 0001 0ad7 | | 034e 8000 | | 034f 0000 0000 | | .BLANK 0000[0x4] 0353 0085 1a80 | | .XXX[0x13] 0355 1fc0 4007 | @ | 0357 0000 0000 | | 0359 0001 a403 | | 035b 037a 0084 | z | 035d f180 0000 | | 035f 0008 58a0 | X | 0361 0216 b886 | | 0363 4a00 42b5 |J B | 0365 e000 | | 0366 0000 0000 | | .BLANK 0000[0x5] 036b 009d 8b80 | | .XXX[0x39] 036d 42b5 e000 |B | 036f 0000 0610 | | 0371 0001 c233 | 3| 0373 0085 d900 | | 0375 213c 6004 |!<` | 0377 4387 0440 |C @| 0379 008f 6c80 | l | 037b 218d f008 |! | 037d 6024 0218 |`$ | 037f 8000 034e | N| 0381 c5c0 2177 | !w| 0383 f000 0000 | | 0385 0370 0000 | p | 0387 0000 8449 | I| 0389 8042 efe0 | B | 038b 0000 0000 | | 038d 0001 0760 | `| 038f 5a00 0000 |Z | 0391 0001 e0c7 | | 0393 a011 ed90 | | 0395 0443 0001 | C | 0397 0ce3 0043 | C| 0399 6160 0000 |a` | 039b 0000 0a30 | 0| 039d 4201 0c91 |B | 039f 0043 56a0 | CV | 03a1 1a00 0010 | | 03a3 d858 | X | 03a4 0000 0000 | | .BLANK 0000[0x5] 03a9 0867 1802 | g | .XXX[0x57] 03ab 0404 0070 | p| 03ad 0000 0000 | | 03af 001a 4030 | @0| 03b1 37a0 0864 |7 d| 03b3 8800 0000 | | 03b5 0087 c700 | | 03b7 2210 9000 |" | 03b9 0001 1a7e | ~| 03bb 0087 c700 | | 03bd 0000 0008 | | 03bf 74ac 021d |t | 03c1 8a00 0000 | | 03c3 1142 3008 | B0 | 03c5 74ac 0000 |t | 03c7 0000 3a00 | : | 03c9 0035 fc80 | 5 | 03cb 0000 0000 | | 03cd 0438 6600 | 8f | 03cf 0600 0000 | | 03d1 0043 8670 | C p| 03d3 8900 086e | n| 03d5 7c00 0000 || | 03d7 0087 3da6 | = | 03d9 6240 10dc |b@ | 03db f800 0000 | | 03dd 010f 1700 | | 03df 43d4 a000 |C | 03e1 0000 0002 | | 03e3 762e 010e |v. | 03e5 c500 0000 | | 03e7 0002 8000 | | 03e9 0690 0cec | | 03eb 5c02 1d8a |\ | 03ed 0000 0000 | | 03ef 3d00 000d |= | 03f1 6b78 64a0 |kxd | 03f3 0436 1600 | 6 | 03f5 0000 0043 | C| 03f7 7080 0043 |p C| 03f9 f580 0000 | | 03fb 0000 0010 | | 03fd 0021 fec0 | ! | 03ff 0000 | |