|
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_664cf7
└─⟦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 0084 | | .CONST 0x0084 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0026 | & | .CONST 0x0026 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional 000c 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 000e 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0010 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0012 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0014 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0016 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0018 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001a 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 001c 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001e 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0020 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0022 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0024 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0026 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0028 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 002a 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 002c 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 002e 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0030 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0032 0093 0000 | | push_full_address 0x0 0034 606b |`k | Indirect_Literal Discrete,0xa0,{0x80000000, 0x00010000} 0035 0273 | s | Execute Discrete,Plus 0036 0129 | ) | Execute Any,Make_Visible 0037 0007 | | Action Break_Optional 0038 4818 |H | Short_Literal 0x18 0039 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 003a 00bf | | Action Accept_Activation 003b e002 | | Load 0x0,0x2 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 00e4 | | Load_Encached Positive_Cache 003e 00e2 | | Load_Encached Integer_Cache 003f 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0041 4803 |H | Short_Literal 0x3 0042 032d | - | Declare_Type Record,Defined 0043 00d8 | | Load_Top At_Offset_0 0044 02a0 | | Declare_Subprogram Null_Subprogram 0045 00db | | Load_Top At_Offset_3 0046 03c7 | | Complete_Type Access,By_Defining 0047 00d9 | | Load_Top At_Offset_1 0048 03bc | | Declare_Variable Access,By_Allocation 0049 00d8 | | Load_Top At_Offset_0 004a 00e0 | | Load_Encached Standard_Cache 004b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 004c e003 | | Load 0x0,0x3 004d e004 | | Load 0x0,0x4 004e 00e6 | | Load_Encached Float_Cache 004f e002 | | Load 0x0,0x2 0050 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0051 0387 | | Declare_Variable Package 0052 00d8 | | Load_Top At_Offset_0 0053 020f | | Execute Module,Activate 0054 e005 | | Load 0x0,0x5 0055 e006 | | Load 0x0,0x6 0056 00e7 | | Load_Encached Duration_Cache 0057 e002 | | Load 0x0,0x2 0058 1b52 | R | Execute Package,Field_Read,Field_Number 0x52 0059 0387 | | Declare_Variable Package 005a 00d8 | | Load_Top At_Offset_0 005b 020f | | Execute Module,Activate 005c 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 005e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 005f 00c7 | | Action Elaborate_Subprogram 0060 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0061 00c7 | | Action Elaborate_Subprogram 0062 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0063 00c7 | | Action Elaborate_Subprogram 0064 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0065 00c7 | | Action Elaborate_Subprogram 0066 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0067 00c7 | | Action Elaborate_Subprogram 0068 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0069 00c7 | | Action Elaborate_Subprogram 006a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 006b 00c7 | | Action Elaborate_Subprogram 006c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 006d 00c7 | | Action Elaborate_Subprogram 006e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 006f 00c7 | | Action Elaborate_Subprogram 0070 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0071 00c7 | | Action Elaborate_Subprogram 0072 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0073 00c7 | | Action Elaborate_Subprogram 0074 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0075 00c7 | | Action Elaborate_Subprogram 0076 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0077 00c7 | | Action Elaborate_Subprogram 0078 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0079 00c7 | | Action Elaborate_Subprogram 007a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 007b 00c7 | | Action Elaborate_Subprogram 007c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 007d 00c7 | | Action Elaborate_Subprogram 007e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 007f 00c7 | | Action Elaborate_Subprogram 0080 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0081 00c7 | | Action Elaborate_Subprogram 0082 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0083 00c7 | | Action Elaborate_Subprogram 0084 BODY_0008: 0084 00db | | Load_Top At_Offset_3 0085 0229 | ) | Execute Access,All_Read 0086 00d8 | | Load_Top At_Offset_0 0087 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0088 00ea | | Load_Encached Null_String_Cache 0089 e002 | | Load 0x0,0x2 008a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 008b e002 | | Load 0x0,0x2 008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 008d 4801 |H | Short_Literal 0x1 008e e002 | | Load 0x0,0x2 008f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0090 00d9 | | Load_Top At_Offset_1 0091 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0092 00d1 | | Pop_Control Pop_Count_1 0093 00bc | | Action Signal_Activated 0094 00bb | | Action Signal_Completion 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 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 e223 | # | Load 0x1,0x23 009c 00ca | | Action Exit_Nullary_Function 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00a4 0000 0000 | | .BLANK 0000[0x4] 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 e220 | | Load 0x1,0x20 00ac 0257 | W | Execute Discrete,Raise 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 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 0227 | ' | Execute Access,All_Reference 00b6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 00db | | Load_Top At_Offset_3 00bc 0227 | ' | Execute Access,All_Reference 00bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00be 00db | | Load_Top At_Offset_3 00bf 0273 | s | Execute Discrete,Plus 00c0 e5fe | | Load 0x2,-0x2 00c1 0227 | ' | Execute Access,All_Reference 00c2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c3 00db | | Load_Top At_Offset_3 00c4 0227 | ' | Execute Access,All_Reference 00c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c6 0d02 | | Execute_Immediate Less,0x2 00c7 6804 |h | Jump_Zero 0xcc 00c8 4801 |H | Short_Literal 0x1 00c9 e5fe | | Load 0x2,-0x2 00ca 0227 | ' | Execute Access,All_Reference 00cb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00cc 00db | | Load_Top At_Offset_3 00cd 0227 | ' | Execute Access,All_Reference 00ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00cf e5fe | | Load 0x2,-0x2 00d0 0227 | ' | Execute Access,All_Reference 00d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 4802 |H | Short_Literal 0x2 00dd 8210 | | Call 0x1,0x10 00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00df 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 00e4 4ffe |O | Short_Literal -0x2 00e5 8210 | | Call 0x1,0x10 00e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00db | | Load_Top At_Offset_3 00ec 00db | | Load_Top At_Offset_3 00ed 00e0 | | Load_Encached Standard_Cache 00ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ef 8226 | & | Call 0x1,0x26 00f0 8218 | | Call 0x1,0x18 00f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f2 0000 0000 | | .BLANK 0000[0x6] 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 00e1 | | Load_Encached Boolean_Cache 00fe 011c | | Execute Any,Convert_Unchecked 00ff 1c01 | | Execute_Immediate Run_Utility,0x1 0100 8226 | & | Call 0x1,0x26 0101 8218 | | Call 0x1,0x18 0102 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0103 0000 0000 | | .BLANK 0000[0x5] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0110 | | .CONST 0x0110 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b 4801 |H | Short_Literal 0x1 010c 4850 |HP | Short_Literal 0x50 010d 00e9 | | Load_Encached String_Cache 010e 035b | [ | Declare_Type Array,Constrained 010f 0337 | 7 | Declare_Variable Array 0110 BODY_0108: 0110 00d8 | | Load_Top At_Offset_0 0111 e224 | $ | Load 0x1,0x24 0112 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0113 e224 | $ | Load 0x1,0x24 0114 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0115 e5ff | | Load 0x2,-0x1 0116 e224 | $ | Load 0x1,0x24 0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0118 00d1 | | Pop_Control Pop_Count_1 0119 e5fe | | Load 0x2,-0x2 011a 00d9 | | Load_Top At_Offset_1 011b 8226 | & | Call 0x1,0x26 011c 8218 | | Call 0x1,0x18 011d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011e 0000 0000 | | .XXX[0x2] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00db | | Load_Top At_Offset_3 0124 00db | | Load_Top At_Offset_3 0125 00ea | | Load_Encached Null_String_Cache 0126 01cb | | Execute Vector,Append 0127 8218 | | Call 0x1,0x18 0128 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0129 0000 0000 | | .BLANK 0000[0x7] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0138 | 8 | .CONST 0x0138 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 4801 |H | Short_Literal 0x1 0134 4850 |HP | Short_Literal 0x50 0135 00e9 | | Load_Encached String_Cache 0136 035b | [ | Declare_Type Array,Constrained 0137 0337 | 7 | Declare_Variable Array 0138 BODY_0130: 0138 00d8 | | Load_Top At_Offset_0 0139 e225 | % | Load 0x1,0x25 013a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 013b e225 | % | Load 0x1,0x25 013c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 013d e5ff | | Load 0x2,-0x1 013e e225 | % | Load 0x1,0x25 013f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0140 00d1 | | Pop_Control Pop_Count_1 0141 e5fe | | Load 0x2,-0x2 0142 00d9 | | Load_Top At_Offset_1 0143 8226 | & | Call 0x1,0x26 0144 8218 | | Call 0x1,0x18 0145 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00db | | Load_Top At_Offset_3 014c 0227 | ' | Execute Access,All_Reference 014d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014e 00d8 | | Load_Top At_Offset_0 014f e002 | | Load 0x0,0x2 0150 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0151 0260 | ` | Execute Discrete,In_Type 0152 7001 |p | Jump_Nonzero 0x154 0153 0801 | | Execute_Immediate Raise,0x1 0154 e5fe | | Load 0x2,-0x2 0155 0227 | ' | Execute Access,All_Reference 0156 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0157 e002 | | Load 0x0,0x2 0158 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0159 00da | | Load_Top At_Offset_2 015a e5fe | | Load 0x2,-0x2 015b 0227 | ' | Execute Access,All_Reference 015c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015d e002 | | Load 0x0,0x2 015e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 015f 00db | | Load_Top At_Offset_3 0160 0227 | ' | Execute Access,All_Reference 0161 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0162 00db | | Load_Top At_Offset_3 0163 01db | | Execute Vector,Length 0164 0273 | s | Execute Discrete,Plus 0165 e5fe | | Load 0x2,-0x2 0166 0227 | ' | Execute Access,All_Reference 0167 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0168 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00db | | Load_Top At_Offset_3 0174 00db | | Load_Top At_Offset_3 0175 8213 | | Call 0x1,0x13 0176 4801 |H | Short_Literal 0x1 0177 e5fe | | Load 0x2,-0x2 0178 821f | | Call 0x1,0x1f 0179 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00db | | Load_Top At_Offset_3 0184 00db | | Load_Top At_Offset_3 0185 8214 | | Call 0x1,0x14 0186 4801 |H | Short_Literal 0x1 0187 e5fe | | Load 0x2,-0x2 0188 821f | | Call 0x1,0x1f 0189 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 00db | | Load_Top At_Offset_3 0194 00db | | Load_Top At_Offset_3 0195 8215 | | Call 0x1,0x15 0196 4801 |H | Short_Literal 0x1 0197 e5fe | | Load 0x2,-0x2 0198 821f | | Call 0x1,0x1f 0199 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019a 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 01a4 00db | | Load_Top At_Offset_3 01a5 8216 | | Call 0x1,0x16 01a6 4801 |H | Short_Literal 0x1 01a7 e5fe | | Load 0x2,-0x2 01a8 821f | | Call 0x1,0x1f 01a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01aa 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 01b4 00db | | Load_Top At_Offset_3 01b5 8217 | | Call 0x1,0x17 01b6 4801 |H | Short_Literal 0x1 01b7 e5fe | | Load 0x2,-0x2 01b8 821f | | Call 0x1,0x1f 01b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 00db | | Load_Top At_Offset_3 01c4 00db | | Load_Top At_Offset_3 01c5 8218 | | Call 0x1,0x18 01c6 4801 |H | Short_Literal 0x1 01c7 e5fe | | Load 0x2,-0x2 01c8 821f | | Call 0x1,0x1f 01c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00db | | Load_Top At_Offset_3 01d4 00d8 | | Load_Top At_Offset_0 01d5 e002 | | Load 0x0,0x2 01d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d7 0260 | ` | Execute Discrete,In_Type 01d8 7001 |p | Jump_Nonzero 0x1da 01d9 0801 | | Execute_Immediate Raise,0x1 01da 00db | | Load_Top At_Offset_3 01db 0227 | ' | Execute Access,All_Reference 01dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01dd e002 | | Load 0x0,0x2 01de 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01df 00da | | Load_Top At_Offset_2 01e0 0227 | ' | Execute Access,All_Reference 01e1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e2 00db | | Load_Top At_Offset_3 01e3 0227 | ' | Execute Access,All_Reference 01e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4601 |F | Jump_Case 0x2 01ec 7801 |x | Jump 0x1ee ; case 0x0 01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ee 00da | | Load_Top At_Offset_2 01ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f0 0125 | % | Execute Any,Set_Constraint 01f1 00da | | Load_Top At_Offset_2 01f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f3 1c00 | | Execute_Immediate Run_Utility,0x0 01f4 4801 |H | Short_Literal 0x1 01f5 00db | | Load_Top At_Offset_3 01f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f7 4801 |H | Short_Literal 0x1 01f8 00db | | Load_Top At_Offset_3 01f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01fa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01fb 0000 0000 | | .BLANK 0000[0x5] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020c | | .CONST 0x020c ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0004 | | .CONST 0x0004 ; Number of locals 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 01dd | | Execute Vector,First 0205 00e2 | | Load_Encached Integer_Cache 0206 03f1 | | Declare_Variable Discrete,With_Value 0207 00db | | Load_Top At_Offset_3 0208 01dc | | Execute Vector,Last 0209 00e2 | | Load_Encached Integer_Cache 020a 03f1 | | Declare_Variable Discrete,With_Value 020b 00e1 | | Load_Encached Boolean_Cache 020c BODY_0200: 020c 00cf | | Action Mark_Auxiliary 020d e5ff | | Load 0x2,-0x1 020e 01dc | | Execute Vector,Last 020f e5ff | | Load 0x2,-0x1 0210 01dd | | Execute Vector,First 0211 0263 | c | Execute Discrete,Above_Bound 0212 700b |p | Jump_Nonzero 0x21e 0213 00d8 | | Load_Top At_Offset_0 0214 a402 | | Store_Unchecked 0x2,0x2 0215 00d8 | | Load_Top At_Offset_0 0216 e5ff | | Load 0x2,-0x1 0217 01d7 | | Execute Vector,Field_Read 0218 0e20 | | Execute_Immediate Not_Equal,0x20 0219 6802 |h | Jump_Zero 0x21c 021a 00d2 | | Pop_Control Pop_Count_2 021b 7802 |x | Jump 0x21e 021c 00c8 | | Action Pop_Auxiliary_Range 021d 3ff5 |? | Loop_Increasing 0x213 021e 00c9 | | Action Pop_Auxiliary_Loop 021f e5ff | | Load 0x2,-0x1 0220 01dc | | Execute Vector,Last 0221 e402 | | Load 0x2,0x2 0222 0263 | c | Execute Discrete,Above_Bound 0223 700b |p | Jump_Nonzero 0x22f 0224 00d8 | | Load_Top At_Offset_0 0225 e5ff | | Load 0x2,-0x1 0226 01d7 | | Execute Vector,Field_Read 0227 0f20 | | Execute_Immediate Equal,0x20 0228 6802 |h | Jump_Zero 0x22b 0229 00d2 | | Pop_Control Pop_Count_2 022a 7804 |x | Jump 0x22f 022b 00d8 | | Load_Top At_Offset_0 022c a403 | | Store_Unchecked 0x2,0x3 022d 00c8 | | Action Pop_Auxiliary_Range 022e 3ff5 |? | Loop_Increasing 0x224 022f 00ce | | Action Pop_Auxiliary 0230 00da | | Load_Top At_Offset_2 0231 00da | | Load_Top At_Offset_2 0232 e5ff | | Load 0x2,-0x1 0233 01cf | | Execute Vector,Slice_Read 0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; Debug Table 0238 ; -------------------------------------------------------------------------------------- 0238 0004 0006 | | .DEBUG4 0x0004,0x0006,0xad96,0x0000,0x0001,0x0017 023e 000b 029a | | .DBG4T 0x000b,0x029a,0x8000,0x0000 0242 003b 02b3 | ; | .DBG4T 0x003b,0x02b3,0x8000,0x0000 0246 009b 02ce | | .DBG4T 0x009b,0x02ce,0x0002,0x0000 024a 00ab 02d1 | | .DBG4T 0x00ab,0x02d1,0x0001,0x0000 024e 00b3 02d4 | | .DBG4T 0x00b3,0x02d4,0x0001,0x0000 0252 00bb 02d7 | | .DBG4T 0x00bb,0x02d7,0x0001,0x0000 0256 00db 02dd | | .DBG4T 0x00db,0x02dd,0x0001,0x0000 025a 00e3 02e0 | | .DBG4T 0x00e3,0x02e0,0x0001,0x0000 025e 00eb 02e3 | | .DBG4T 0x00eb,0x02e3,0x0001,0x0000 0262 00fb 02e6 | | .DBG4T 0x00fb,0x02e6,0x0001,0x0000 0266 010b 02e9 | | .DBG4T 0x010b,0x02e9,0x0001,0x0000 026a 0123 02ee | # | .DBG4T 0x0123,0x02ee,0x0001,0x0000 026e 0133 02f1 | 3 | .DBG4T 0x0133,0x02f1,0x0001,0x0000 0272 014b 02f6 | K | .DBG4T 0x014b,0x02f6,0x0001,0x0000 0276 0173 02fb | s | .DBG4T 0x0173,0x02fb,0x0001,0x0000 027a 0183 02ff | | .DBG4T 0x0183,0x02ff,0x0001,0x0000 027e 0193 0303 | | .DBG4T 0x0193,0x0303,0x0001,0x0000 0282 01a3 0307 | | .DBG4T 0x01a3,0x0307,0x0001,0x0000 0286 01b3 030b | | .DBG4T 0x01b3,0x030b,0x0001,0x0000 028a 01c3 030f | | .DBG4T 0x01c3,0x030f,0x0001,0x0000 028e 01d3 0313 | | .DBG4T 0x01d3,0x0313,0x0001,0x0000 0292 01eb 0000 | | .DBG4T 0x01eb,0x0000,0x0005,0x0000 0296 0203 0317 | | .DBG4T 0x0203,0x0317,0x0002,0x0000 029a ; -------------------------------------------------------------------------------------- 029a ; Debug chain 029a ; -------------------------------------------------------------------------------------- 029a 0017 0000 | | .DBGLEN 0x0017,0x0000 029c 000b 000c | | .DBGLNO 0x000b,0x000c,0x000e,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0037,0x0038 02b3 ; -------------------------------------------------------------------------------------- 02b3 ; Debug chain 02b3 ; -------------------------------------------------------------------------------------- 02b3 0018 0001 | | .DBGLEN 0x0018,0x0001 02b5 003b 0047 | ; G| .DBGLNO 0x003b,0x0047,0x004c,0x0054,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0000 0001 | | .DBGLEN 0x0000,0x0001 02d0 009b | | .DBGLNO 0x009b 02d1 ; -------------------------------------------------------------------------------------- 02d1 ; Debug chain 02d1 ; -------------------------------------------------------------------------------------- 02d1 0000 0001 | | .DBGLEN 0x0000,0x0001 02d3 00ab | | .DBGLNO 0x00ab 02d4 ; -------------------------------------------------------------------------------------- 02d4 ; Debug chain 02d4 ; -------------------------------------------------------------------------------------- 02d4 0000 0001 | | .DBGLEN 0x0000,0x0001 02d6 00b3 | | .DBGLNO 0x00b3 02d7 ; -------------------------------------------------------------------------------------- 02d7 ; Debug chain 02d7 ; -------------------------------------------------------------------------------------- 02d7 0000 0004 | | .DBGLEN 0x0000,0x0004 02d9 00bb 00c3 | | .DBGLNO 0x00bb,0x00c3,0x00c8,0x00cc 02dd ; -------------------------------------------------------------------------------------- 02dd ; Debug chain 02dd ; -------------------------------------------------------------------------------------- 02dd 0000 0001 | | .DBGLEN 0x0000,0x0001 02df 00db | | .DBGLNO 0x00db 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; Debug chain 02e0 ; -------------------------------------------------------------------------------------- 02e0 0000 0001 | | .DBGLEN 0x0000,0x0001 02e2 00e3 | | .DBGLNO 0x00e3 02e3 ; -------------------------------------------------------------------------------------- 02e3 ; Debug chain 02e3 ; -------------------------------------------------------------------------------------- 02e3 0000 0001 | | .DBGLEN 0x0000,0x0001 02e5 00eb | | .DBGLNO 0x00eb 02e6 ; -------------------------------------------------------------------------------------- 02e6 ; Debug chain 02e6 ; -------------------------------------------------------------------------------------- 02e6 0000 0001 | | .DBGLEN 0x0000,0x0001 02e8 00fb | | .DBGLNO 0x00fb 02e9 ; -------------------------------------------------------------------------------------- 02e9 ; Debug chain 02e9 ; -------------------------------------------------------------------------------------- 02e9 0001 0002 | | .DBGLEN 0x0001,0x0002 02eb 010b 0110 | | .DBGLNO 0x010b,0x0110,0x0119 02ee ; -------------------------------------------------------------------------------------- 02ee ; Debug chain 02ee ; -------------------------------------------------------------------------------------- 02ee 0000 0001 | | .DBGLEN 0x0000,0x0001 02f0 0123 | # | .DBGLNO 0x0123 02f1 ; -------------------------------------------------------------------------------------- 02f1 ; Debug chain 02f1 ; -------------------------------------------------------------------------------------- 02f1 0001 0002 | | .DBGLEN 0x0001,0x0002 02f3 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x0141 02f6 ; -------------------------------------------------------------------------------------- 02f6 ; Debug chain 02f6 ; -------------------------------------------------------------------------------------- 02f6 0000 0003 | | .DBGLEN 0x0000,0x0003 02f8 014b 0159 | K Y| .DBGLNO 0x014b,0x0159,0x015f 02fb ; -------------------------------------------------------------------------------------- 02fb ; Debug chain 02fb ; -------------------------------------------------------------------------------------- 02fb 0000 0002 | | .DBGLEN 0x0000,0x0002 02fd 0173 0176 | s v| .DBGLNO 0x0173,0x0176 02ff ; -------------------------------------------------------------------------------------- 02ff ; Debug chain 02ff ; -------------------------------------------------------------------------------------- 02ff 0000 0002 | | .DBGLEN 0x0000,0x0002 0301 0183 0186 | | .DBGLNO 0x0183,0x0186 0303 ; -------------------------------------------------------------------------------------- 0303 ; Debug chain 0303 ; -------------------------------------------------------------------------------------- 0303 0000 0002 | | .DBGLEN 0x0000,0x0002 0305 0193 0196 | | .DBGLNO 0x0193,0x0196 0307 ; -------------------------------------------------------------------------------------- 0307 ; Debug chain 0307 ; -------------------------------------------------------------------------------------- 0307 0000 0002 | | .DBGLEN 0x0000,0x0002 0309 01a3 01a6 | | .DBGLNO 0x01a3,0x01a6 030b ; -------------------------------------------------------------------------------------- 030b ; Debug chain 030b ; -------------------------------------------------------------------------------------- 030b 0000 0002 | | .DBGLEN 0x0000,0x0002 030d 01b3 01b6 | | .DBGLNO 0x01b3,0x01b6 030f ; -------------------------------------------------------------------------------------- 030f ; Debug chain 030f ; -------------------------------------------------------------------------------------- 030f 0000 0002 | | .DBGLEN 0x0000,0x0002 0311 01c3 01c6 | | .DBGLNO 0x01c3,0x01c6 0313 ; -------------------------------------------------------------------------------------- 0313 ; Debug chain 0313 ; -------------------------------------------------------------------------------------- 0313 0000 0002 | | .DBGLEN 0x0000,0x0002 0315 01d3 01df | | .DBGLNO 0x01d3,0x01df 0317 ; -------------------------------------------------------------------------------------- 0317 ; Debug chain 0317 ; -------------------------------------------------------------------------------------- 0317 0003 0007 | | .DBGLEN 0x0003,0x0007 0319 0203 0207 | | .DBGLNO 0x0203,0x0207,0x020b,0x020d,0x0213,0x0215,0x021f,0x0224,0x022b,0x0230 0323 0000 0000 | | .BLANK 0000[0xdd]