|
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_0a7cf5
└─⟦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 02b8 | | .CONST 0x02b8 ; 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 006b | k | .CONST 0x006b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d e001 | | Load 0x0,0x1 000e 0129 | ) | Execute Any,Make_Visible 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0015 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 001e c217 | | Store 0x1,0x17 001f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0021 c213 | | Store 0x1,0x13 0022 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0024 c214 | | Store 0x1,0x14 0025 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0027 c215 | | Store 0x1,0x15 0028 4805 |H | Short_Literal 0x5 0029 032a | * | Declare_Type Record,Incomplete 002a c216 | | Store 0x1,0x16 002b 00d9 | | Load_Top At_Offset_1 002c 02a0 | | Declare_Subprogram Null_Subprogram 002d e20d | | Load 0x1,0xd 002e 03c7 | | Complete_Type Access,By_Defining 002f e20d | | Load 0x1,0xd 0030 0221 | ! | Execute Access,Allow_Deallocate 0031 00bf | | Action Accept_Activation 0032 4800 |H | Short_Literal 0x0 0033 4900 |I | Short_Literal 0x100 0034 00e2 | | Load_Encached Integer_Cache 0035 03f8 | | Declare_Type Discrete,Constrained 0036 4800 |H | Short_Literal 0x0 0037 48ff |H | Short_Literal 0xff 0038 00e2 | | Load_Encached Integer_Cache 0039 03f8 | | Declare_Type Discrete,Constrained 003a 4801 |H | Short_Literal 0x1 003b 4804 |H | Short_Literal 0x4 003c e002 | | Load 0x0,0x2 003d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003e 035b | [ | Declare_Type Array,Constrained 003f e003 | | Load 0x0,0x3 0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0041 4800 |H | Short_Literal 0x0 0042 48ff |H | Short_Literal 0xff 0043 e002 | | Load 0x0,0x2 0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0045 035b | [ | Declare_Type Array,Constrained 0046 e218 | | Load 0x1,0x18 0047 00e2 | | Load_Encached Integer_Cache 0048 00e1 | | Load_Encached Boolean_Cache 0049 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 004b e216 | | Load 0x1,0x16 004c 0326 | & | Complete_Type Record,By_Defining 004d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 004e 00c7 | | Action Elaborate_Subprogram 004f a004 | | Store_Unchecked 0x0,0x4 0050 00c6 | | Action Check_Subprogram_Elaborated 0051 e216 | | Load 0x1,0x16 0052 e20d | | Load 0x1,0xd 0053 e005 | | Load 0x0,0x5 0054 e006 | | Load 0x0,0x6 0055 4800 |H | Short_Literal 0x0 0056 0007 | | Action Break_Optional 0057 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0058 00c7 | | Action Elaborate_Subprogram 0059 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 005b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 005c 00c7 | | Action Elaborate_Subprogram 005d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005e 00c7 | | Action Elaborate_Subprogram 005f 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call 0061 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 0063 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0064 00c7 | | Action Elaborate_Subprogram 0065 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0066 00c7 | | Action Elaborate_Subprogram 0067 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0068 00c7 | | Action Elaborate_Subprogram 0069 1d15 | | Execute_Immediate Reference_Lex_1,0x15 006a 00c7 | | Action Elaborate_Subprogram 006b BODY_0008: 006b 00bc | | Action Signal_Activated 006c 00bb | | Action Signal_Completion 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0078 | x | .CONST 0x0078 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 e20d | | Load 0x1,0xd 0074 03bc | | Declare_Variable Access,By_Allocation 0075 00d8 | | Load_Top At_Offset_0 0076 0227 | ' | Execute Access,All_Reference 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 BODY_0070: 0078 00db | | Load_Top At_Offset_3 0079 00d9 | | Load_Top At_Offset_1 007a 0227 | ' | Execute Access,All_Reference 007b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007c 4800 |H | Short_Literal 0x0 007d 00d9 | | Load_Top At_Offset_1 007e 0227 | ' | Execute Access,All_Reference 007f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0080 4800 |H | Short_Literal 0x0 0081 00d9 | | Load_Top At_Offset_1 0082 0227 | ' | Execute Access,All_Reference 0083 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0084 4801 |H | Short_Literal 0x1 0085 00d9 | | Load_Top At_Offset_1 0086 0227 | ' | Execute Access,All_Reference 0087 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0088 00d8 | | Load_Top At_Offset_0 0089 a5fe | | Store_Unchecked 0x2,-0x2 008a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008b 0000 0000 | | .BLANK 0000[0x5] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e21b | | Load 0x1,0x1b 0095 e21c | | Load 0x1,0x1c 0096 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0097 8004 | | Call 0x0,0x4 0098 003b | ; | Store_Top Access,At_Offset_3 0099 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00db | | Load_Top At_Offset_3 00a4 01db | | Execute Vector,Length 00a5 00db | | Load_Top At_Offset_3 00a6 0227 | ' | Execute Access,All_Reference 00a7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00a8 01dc | | Execute Vector,Last 00a9 e5ff | | Load 0x2,-0x1 00aa 0227 | ' | Execute Access,All_Reference 00ab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ac 0272 | r | Execute Discrete,Minus 00ad 0a01 | | Execute_Immediate Plus,0x1 00ae 027a | z | Execute Discrete,Less_Equal 00af 681e |h | Jump_Zero 0xce 00b0 00db | | Load_Top At_Offset_3 00b1 00db | | Load_Top At_Offset_3 00b2 0227 | ' | Execute Access,All_Reference 00b3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b4 e5ff | | Load 0x2,-0x1 00b5 0227 | ' | Execute Access,All_Reference 00b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b7 e5fe | | Load 0x2,-0x2 00b8 01db | | Execute Vector,Length 00b9 0273 | s | Execute Discrete,Plus 00ba 0aff | | Execute_Immediate Plus,-0x1 00bb 00d8 | | Load_Top At_Offset_0 00bc 00e2 | | Load_Encached Integer_Cache 00bd 0260 | ` | Execute Discrete,In_Type 00be 7001 |p | Jump_Nonzero 0xc0 00bf 0801 | | Execute_Immediate Raise,0x1 00c0 e5ff | | Load 0x2,-0x1 00c1 0229 | ) | Execute Access,All_Read 00c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c3 01ce | | Execute Vector,Slice_Write 00c4 00da | | Load_Top At_Offset_2 00c5 0227 | ' | Execute Access,All_Reference 00c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c7 e5fe | | Load 0x2,-0x2 00c8 01db | | Execute Vector,Length 00c9 0273 | s | Execute Discrete,Plus 00ca 00db | | Load_Top At_Offset_3 00cb 0227 | ' | Execute Access,All_Reference 00cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ce 4800 |H | Short_Literal 0x0 00cf 00db | | Load_Top At_Offset_3 00d0 0227 | ' | Execute Access,All_Reference 00d1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00d2 e5fe | | Load 0x2,-0x2 00d3 01db | | Execute Vector,Length 00d4 0273 | s | Execute Discrete,Plus 00d5 00d8 | | Load_Top At_Offset_0 00d6 00e3 | | Load_Encached Natural_Cache 00d7 0260 | ` | Execute Discrete,In_Type 00d8 7001 |p | Jump_Nonzero 0xda 00d9 0801 | | Execute_Immediate Raise,0x1 00da 8220 | | Call 0x1,0x20 00db 00db | | Load_Top At_Offset_3 00dc 0227 | ' | Execute Access,All_Reference 00dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00de e003 | | Load 0x0,0x3 00df 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e0 4800 |H | Short_Literal 0x0 00e1 00db | | Load_Top At_Offset_3 00e2 0227 | ' | Execute Access,All_Reference 00e3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00e4 0aff | | Execute_Immediate Plus,-0x1 00e5 e5ff | | Load 0x2,-0x1 00e6 0227 | ' | Execute Access,All_Reference 00e7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00e8 01cf | | Execute Vector,Slice_Read 00e9 00db | | Load_Top At_Offset_3 00ea 0227 | ' | Execute Access,All_Reference 00eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ec e003 | | Load 0x0,0x3 00ed 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ee 00db | | Load_Top At_Offset_3 00ef 00db | | Load_Top At_Offset_3 00f0 0227 | ' | Execute Access,All_Reference 00f1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f2 e003 | | Load 0x0,0x3 00f3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00f4 4800 |H | Short_Literal 0x0 00f5 00db | | Load_Top At_Offset_3 00f6 0227 | ' | Execute Access,All_Reference 00f7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4801 |H | Short_Literal 0x1 0104 00db | | Load_Top At_Offset_3 0105 0227 | ' | Execute Access,All_Reference 0106 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0107 00d8 | | Load_Top At_Offset_0 0108 00e3 | | Load_Encached Natural_Cache 0109 0260 | ` | Execute Discrete,In_Type 010a 7001 |p | Jump_Nonzero 0x10c 010b 0801 | | Execute_Immediate Raise,0x1 010c 8220 | | Call 0x1,0x20 010d 00db | | Load_Top At_Offset_3 010e 0227 | ' | Execute Access,All_Reference 010f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0110 e003 | | Load 0x0,0x3 0111 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0112 4800 |H | Short_Literal 0x0 0113 00db | | Load_Top At_Offset_3 0114 0227 | ' | Execute Access,All_Reference 0115 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0116 0aff | | Execute_Immediate Plus,-0x1 0117 e5ff | | Load 0x2,-0x1 0118 0227 | ' | Execute Access,All_Reference 0119 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 011a 01cf | | Execute Vector,Slice_Read 011b 00db | | Load_Top At_Offset_3 011c 0227 | ' | Execute Access,All_Reference 011d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011e e003 | | Load 0x0,0x3 011f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0120 00da | | Load_Top At_Offset_2 0121 0227 | ' | Execute Access,All_Reference 0122 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0123 e003 | | Load 0x0,0x3 0124 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0125 4800 |H | Short_Literal 0x0 0126 00db | | Load_Top At_Offset_3 0127 0227 | ' | Execute Access,All_Reference 0128 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0129 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012a 0000 0000 | | .BLANK 0000[0x6] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 8214 | | Call 0x1,0x14 0135 680a |h | Jump_Zero 0x140 0136 00da | | Load_Top At_Offset_2 0137 0227 | ' | Execute Access,All_Reference 0138 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0139 7004 |p | Jump_Nonzero 0x13e 013a 4800 |H | Short_Literal 0x0 013b 00db | | Load_Top At_Offset_3 013c 0227 | ' | Execute Access,All_Reference 013d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 013e 4801 |H | Short_Literal 0x1 013f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0140 4800 |H | Short_Literal 0x0 0141 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0142 0000 0000 | | .BLANK 0000[0x6] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0150 | P | .CONST 0x0150 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b 00db | | Load_Top At_Offset_3 014c 01dd | | Execute Vector,First 014d 00e2 | | Load_Encached Integer_Cache 014e 03f1 | | Declare_Variable Discrete,With_Value 014f 00e2 | | Load_Encached Integer_Cache 0150 BODY_0148: 0150 00cf | | Action Mark_Auxiliary 0151 783a |x: | Jump 0x18c 0152 e5ff | | Load 0x2,-0x1 0153 8222 | " | Call 0x1,0x22 0154 e5fe | | Load 0x2,-0x2 0155 01dc | | Execute Vector,Last 0156 00db | | Load_Top At_Offset_3 0157 0272 | r | Execute Discrete,Minus 0158 0a01 | | Execute_Immediate Plus,0x1 0159 e5ff | | Load 0x2,-0x1 015a 0227 | ' | Execute Access,All_Reference 015b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 015c 027d | } | Execute Discrete,Greater 015d 680e |h | Jump_Zero 0x16c 015e e5ff | | Load 0x2,-0x1 015f 0227 | ' | Execute Access,All_Reference 0160 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0161 6802 |h | Jump_Zero 0x164 0162 e20e | | Load 0x1,0xe 0163 0257 | W | Execute Discrete,Raise 0164 00da | | Load_Top At_Offset_2 0165 e5ff | | Load 0x2,-0x1 0166 0227 | ' | Execute Access,All_Reference 0167 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0168 0273 | s | Execute Discrete,Plus 0169 0aff | | Execute_Immediate Plus,-0x1 016a 005a | Z | Store_Top Discrete,At_Offset_2 016b 7803 |x | Jump 0x16f 016c e5fe | | Load 0x2,-0x2 016d 01dc | | Execute Vector,Last 016e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 016f e5fe | | Load 0x2,-0x2 0170 00db | | Load_Top At_Offset_3 0171 00db | | Load_Top At_Offset_3 0172 00da | | Load_Top At_Offset_2 0173 035b | [ | Declare_Type Array,Constrained 0174 00d0 | | Action Swap_Control 0175 01cd | | Execute Vector,Slice_Reference 0176 00d8 | | Load_Top At_Offset_0 0177 e5ff | | Load 0x2,-0x1 0178 0227 | ' | Execute Access,All_Reference 0179 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017a e003 | | Load 0x0,0x3 017b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017c 00d2 | | Pop_Control Pop_Count_2 017d e5ff | | Load 0x2,-0x1 017e 0227 | ' | Execute Access,All_Reference 017f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0180 00da | | Load_Top At_Offset_2 0181 e402 | | Load 0x2,0x2 0182 0272 | r | Execute Discrete,Minus 0183 0a01 | | Execute_Immediate Plus,0x1 0184 0272 | r | Execute Discrete,Minus 0185 e5ff | | Load 0x2,-0x1 0186 0227 | ' | Execute Access,All_Reference 0187 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0188 00d9 | | Load_Top At_Offset_1 0189 0a01 | | Execute_Immediate Plus,0x1 018a 005b | [ | Store_Top Discrete,At_Offset_3 018b 00c9 | | Action Pop_Auxiliary_Loop 018c 00da | | Load_Top At_Offset_2 018d e5fe | | Load 0x2,-0x2 018e 01dc | | Execute Vector,Last 018f 027a | z | Execute Discrete,Less_Equal 0190 77c1 |w | Jump_Nonzero 0x152 0191 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0192 0000 0000 | | .BLANK 0000[0x6] 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 8222 | " | Call 0x1,0x22 019d 00da | | Load_Top At_Offset_2 019e 0227 | ' | Execute Access,All_Reference 019f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01a0 0f00 | | Execute_Immediate Equal,0x0 01a1 00db | | Load_Top At_Offset_3 01a2 0227 | ' | Execute Access,All_Reference 01a3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01a4 0279 | y | Execute Discrete,And 01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b1 | | .CONST 0x01b1 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0002 | | .CONST 0x0002 ; Number of locals 01ab INIT_01a8: 01ab 4801 |H | Short_Literal 0x1 01ac 4a00 |J | Short_Literal 0x200 01ad e002 | | Load 0x0,0x2 01ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01af 035b | [ | Declare_Type Array,Constrained 01b0 0337 | 7 | Declare_Variable Array 01b1 BODY_01a8: 01b1 00cf | | Action Mark_Auxiliary 01b2 e5ff | | Load 0x2,-0x1 01b3 8222 | " | Call 0x1,0x22 01b4 00cf | | Action Mark_Auxiliary 01b5 7810 |x | Jump 0x1c6 01b6 00da | | Load_Top At_Offset_2 01b7 e5ff | | Load 0x2,-0x1 01b8 0227 | ' | Execute Access,All_Reference 01b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ba e003 | | Load 0x0,0x3 01bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01bc 00d1 | | Pop_Control Pop_Count_1 01bd e5ff | | Load 0x2,-0x1 01be 0227 | ' | Execute Access,All_Reference 01bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01c0 4e00 |N | Short_Literal -0x200 01c1 0273 | s | Execute Discrete,Plus 01c2 e5ff | | Load 0x2,-0x1 01c3 0227 | ' | Execute Access,All_Reference 01c4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01c5 00c9 | | Action Pop_Auxiliary_Loop 01c6 e5ff | | Load 0x2,-0x1 01c7 0227 | ' | Execute Access,All_Reference 01c8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01c9 4a00 |J | Short_Literal 0x200 01ca 027d | } | Execute Discrete,Greater 01cb 77ea |w | Jump_Nonzero 0x1b6 01cc 00ce | | Action Pop_Auxiliary 01cd e5ff | | Load 0x2,-0x1 01ce 0227 | ' | Execute Access,All_Reference 01cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01d0 0c01 | | Execute_Immediate Greater_Equal,0x1 01d1 6814 |h | Jump_Zero 0x1e6 01d2 00d9 | | Load_Top At_Offset_1 01d3 4801 |H | Short_Literal 0x1 01d4 e5ff | | Load 0x2,-0x1 01d5 0227 | ' | Execute Access,All_Reference 01d6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01d7 00da | | Load_Top At_Offset_2 01d8 035b | [ | Declare_Type Array,Constrained 01d9 00d0 | | Action Swap_Control 01da 01cd | | Execute Vector,Slice_Reference 01db 00d8 | | Load_Top At_Offset_0 01dc e5ff | | Load 0x2,-0x1 01dd 0227 | ' | Execute Access,All_Reference 01de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01df e003 | | Load 0x0,0x3 01e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e1 00d2 | | Pop_Control Pop_Count_2 01e2 4800 |H | Short_Literal 0x0 01e3 e5ff | | Load 0x2,-0x1 01e4 0227 | ' | Execute Access,All_Reference 01e5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01e6 e5ff | | Load 0x2,-0x1 01e7 0227 | ' | Execute Access,All_Reference 01e8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01e9 7002 |p | Jump_Nonzero 0x1ec 01ea 00c9 | | Action Pop_Auxiliary_Loop 01eb 7fc6 | | Jump 0x1b2 01ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 4608 |F | Jump_Case 0x9 01f4 7808 |x | Jump 0x1fd ; case 0x0 01f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01f6 780d |x | Jump 0x204 ; case 0x2 01f7 780c |x | Jump 0x204 ; case 0x3 01f8 780b |x | Jump 0x204 ; case 0x4 01f9 780a |x | Jump 0x204 ; case 0x5 01fa 7809 |x | Jump 0x204 ; case 0x6 01fb 7808 |x | Jump 0x204 ; case 0x7 01fc 7807 |x | Jump 0x204 ; case 0x8 01fd 00da | | Load_Top At_Offset_2 01fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ff 0125 | % | Execute Any,Set_Constraint 0200 00da | | Load_Top At_Offset_2 0201 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0202 1c00 | | Execute_Immediate Run_Utility,0x0 0203 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0204 0869 | i | Execute_Immediate Raise,0x69 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0210 | | .CONST 0x0210 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b e21a | | Load 0x1,0x1a 020c 0337 | 7 | Declare_Variable Array 020d 00db | | Load_Top At_Offset_3 020e 00e3 | | Load_Encached Natural_Cache 020f 03f1 | | Declare_Variable Discrete,With_Value 0210 BODY_0208: 0210 00d8 | | Load_Top At_Offset_0 0211 48ff |H | Short_Literal 0xff 0212 0279 | y | Execute Discrete,And 0213 00d8 | | Load_Top At_Offset_0 0214 e007 | | Load 0x0,0x7 0215 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0216 0260 | ` | Execute Discrete,In_Type 0217 7001 |p | Jump_Nonzero 0x219 0218 0801 | | Execute_Immediate Raise,0x1 0219 4804 |H | Short_Literal 0x4 021a 00db | | Load_Top At_Offset_3 021b 01d6 | | Execute Vector,Field_Write 021c 00d8 | | Load_Top At_Offset_0 021d 09f8 | | Execute_Immediate Binary_Scale,-0x8 021e 0059 | Y | Store_Top Discrete,At_Offset_1 021f 00d8 | | Load_Top At_Offset_0 0220 48ff |H | Short_Literal 0xff 0221 0279 | y | Execute Discrete,And 0222 00d8 | | Load_Top At_Offset_0 0223 e007 | | Load 0x0,0x7 0224 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0225 0260 | ` | Execute Discrete,In_Type 0226 7001 |p | Jump_Nonzero 0x228 0227 0801 | | Execute_Immediate Raise,0x1 0228 4803 |H | Short_Literal 0x3 0229 00db | | Load_Top At_Offset_3 022a 01d6 | | Execute Vector,Field_Write 022b 00d8 | | Load_Top At_Offset_0 022c 09f8 | | Execute_Immediate Binary_Scale,-0x8 022d 0059 | Y | Store_Top Discrete,At_Offset_1 022e 00d8 | | Load_Top At_Offset_0 022f 48ff |H | Short_Literal 0xff 0230 0279 | y | Execute Discrete,And 0231 00d8 | | Load_Top At_Offset_0 0232 e007 | | Load 0x0,0x7 0233 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0234 0260 | ` | Execute Discrete,In_Type 0235 7001 |p | Jump_Nonzero 0x237 0236 0801 | | Execute_Immediate Raise,0x1 0237 4802 |H | Short_Literal 0x2 0238 00db | | Load_Top At_Offset_3 0239 01d6 | | Execute Vector,Field_Write 023a 00d8 | | Load_Top At_Offset_0 023b 09f8 | | Execute_Immediate Binary_Scale,-0x8 023c 0059 | Y | Store_Top Discrete,At_Offset_1 023d e5fe | | Load 0x2,-0x2 023e 6804 |h | Jump_Zero 0x243 023f 00d8 | | Load_Top At_Offset_0 0240 4880 |H | Short_Literal 0x80 0241 0273 | s | Execute Discrete,Plus 0242 0059 | Y | Store_Top Discrete,At_Offset_1 0243 00d8 | | Load_Top At_Offset_0 0244 48ff |H | Short_Literal 0xff 0245 0279 | y | Execute Discrete,And 0246 00d8 | | Load_Top At_Offset_0 0247 e007 | | Load 0x0,0x7 0248 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0249 0260 | ` | Execute Discrete,In_Type 024a 7001 |p | Jump_Nonzero 0x24c 024b 0801 | | Execute_Immediate Raise,0x1 024c 4801 |H | Short_Literal 0x1 024d 00db | | Load_Top At_Offset_3 024e 01d6 | | Execute Vector,Field_Write 024f 00d9 | | Load_Top At_Offset_1 0250 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025c | \ | .CONST 0x025c ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0002 | | .CONST 0x0002 ; Number of locals 025b INIT_0258: 025b 00e2 | | Load_Encached Integer_Cache 025c BODY_0258: 025c 4801 |H | Short_Literal 0x1 025d e5ff | | Load 0x2,-0x1 025e 01d7 | | Execute Vector,Field_Read 025f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0260 00d8 | | Load_Top At_Offset_0 0261 0c80 | | Execute_Immediate Greater_Equal,-0x80 0262 6806 |h | Jump_Zero 0x269 0263 00d8 | | Load_Top At_Offset_0 0264 0a80 | | Execute_Immediate Plus,-0x80 0265 0059 | Y | Store_Top Discrete,At_Offset_1 0266 4801 |H | Short_Literal 0x1 0267 a5fd | | Store_Unchecked 0x2,-0x3 0268 7802 |x | Jump 0x26b 0269 4800 |H | Short_Literal 0x0 026a a5fd | | Store_Unchecked 0x2,-0x3 026b 00d8 | | Load_Top At_Offset_0 026c 0908 | | Execute_Immediate Binary_Scale,0x8 026d 4802 |H | Short_Literal 0x2 026e e5ff | | Load 0x2,-0x1 026f 01d7 | | Execute Vector,Field_Read 0270 0273 | s | Execute Discrete,Plus 0271 0059 | Y | Store_Top Discrete,At_Offset_1 0272 00d8 | | Load_Top At_Offset_0 0273 0908 | | Execute_Immediate Binary_Scale,0x8 0274 4803 |H | Short_Literal 0x3 0275 e5ff | | Load 0x2,-0x1 0276 01d7 | | Execute Vector,Field_Read 0277 0273 | s | Execute Discrete,Plus 0278 0059 | Y | Store_Top Discrete,At_Offset_1 0279 00d8 | | Load_Top At_Offset_0 027a 0908 | | Execute_Immediate Binary_Scale,0x8 027b 4804 |H | Short_Literal 0x4 027c e5ff | | Load 0x2,-0x1 027d 01d7 | | Execute Vector,Field_Read 027e 0273 | s | Execute Discrete,Plus 027f c5fe | | Store 0x2,-0x2 0280 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0281 0000 0000 | | .BLANK 0000[0x7] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 0291 | | .CONST 0x0291 ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b 4801 |H | Short_Literal 0x1 028c 4804 |H | Short_Literal 0x4 028d e002 | | Load 0x0,0x2 028e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028f 035b | [ | Declare_Type Array,Constrained 0290 0337 | 7 | Declare_Variable Array 0291 BODY_0288: 0291 00cf | | Action Mark_Auxiliary 0292 7815 |x | Jump 0x2a8 0293 00d9 | | Load_Top At_Offset_1 0294 e5ff | | Load 0x2,-0x1 0295 0227 | ' | Execute Access,All_Reference 0296 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0297 e003 | | Load 0x0,0x3 0298 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0299 00d1 | | Pop_Control Pop_Count_1 029a e5ff | | Load 0x2,-0x1 029b 0229 | ) | Execute Access,All_Read 029c e5ff | | Load 0x2,-0x1 029d 0229 | ) | Execute Access,All_Read 029e 00e1 | | Load_Encached Boolean_Cache 029f 00e2 | | Load_Encached Integer_Cache 02a0 e402 | | Load 0x2,0x2 02a1 8221 | ! | Call 0x1,0x21 02a2 00da | | Load_Top At_Offset_2 02a3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02a4 00da | | Load_Top At_Offset_2 02a5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02a6 00d2 | | Pop_Control Pop_Count_2 02a7 00c9 | | Action Pop_Auxiliary_Loop 02a8 e5ff | | Load 0x2,-0x1 02a9 0227 | ' | Execute Access,All_Reference 02aa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02ab 0f00 | | Execute_Immediate Equal,0x0 02ac e5ff | | Load 0x2,-0x1 02ad 0227 | ' | Execute Access,All_Reference 02ae 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02af 0f00 | | Execute_Immediate Equal,0x0 02b0 0279 | y | Execute Discrete,And 02b1 77e1 |w | Jump_Nonzero 0x293 02b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug Table 02b8 ; -------------------------------------------------------------------------------------- 02b8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0eeb,0x0000,0x0001,0x0000 02be e5de ec02 | | .XXX[0x142] 02c0 06c5 c808 | | 02c2 6401 d550 |d P| 02c4 76d5 ba6d |v m| 02c6 6263 35b9 |bc5 | 02c8 5400 09e2 |T | 02ca ec02 deb8 | | 02cc 0000 c404 | | 02ce 6402 42d0 |d B | 02d0 76d6 6688 |v f | 02d2 1401 0406 | | 02d4 f9f5 3dde | = | 02d6 ec01 b68c | | 02d8 280b 920d |( | 02da f9e7 4dd2 | M | 02dc 5226 6e7b |R&n{| 02de 9934 76d4 | 4v | 02e0 e2d0 1001 | | 02e2 6808 7801 |h x | 02e4 ea0c 76d7 | v | 02e6 6a7c b2d5 |j| | 02e8 5800 4ed5 |X N | 02ea f6c3 a810 | | 02ec 6401 1403 |d | 02ee f5de f001 | | 02f0 bac5 ca7c | || 02f2 1ad6 f9e6 | | 02f4 f002 a23c | <| 02f6 1402 5004 | P | 02f8 6401 0c01 |d | 02fa 29de f002 |) | 02fc eead f808 | | 02fe 6403 88a4 |d | 0300 e5de f002 | | 0302 5240 1801 |R@ | 0304 3c0e f9f6 |< | 0306 29de f000 |) | 0308 d64c 2001 | L | 030a 980a f9f6 | | 030c 45e2 f003 |E | 030e a69d 4c14 | L | 0310 6400 e555 |d U| 0312 7ed6 c23a |~ :| 0314 7ccc 86d6 || | 0316 b9e6 f000 | | 0318 e2d1 4e87 | N | 031a 35b9 7819 |5 x | 031c 7ed4 6298 |~ b | 031e 1c01 0408 | | 0320 cdc2 01dd | | 0322 b80e ca25 | %| 0324 35bd 6174 |5 at| 0326 e5de f400 | | 0328 1a42 e627 | B '| 032a 3209 ee10 |2 | 032c 2c02 1542 |, B| 032e 0c95 fc0e | | 0330 22aa 8de2 |" | 0332 f400 32c2 | 2 | 0334 d808 6400 | d | 0336 d8ca 2ed4 | . | 0338 f698 2404 | $ | 033a 1aa6 d9de | | 033c f401 fa9c | | 033e e40c 6402 | d | 0340 d0e2 16d4 | | 0342 92d6 0805 | | 0344 64c2 02d6 |d | 0346 4ebc 0c03 |N | 0348 1008 6400 | d | 034a b236 16d4 | 6 | 034c f640 2000 | @ | 034e b805 d5c1 | | 0350 65de f401 |e | 0352 a648 9408 | H | 0354 cdc0 d9f5 | | 0356 315e e224 |1^ $| 0358 6c10 6402 |l d | 035a 5002 09e6 |P | 035c f403 9ea7 | | 035e 7ad0 a51e |z | 0360 2ed5 fe52 |. R| 0362 5c43 35ba |\C5 | 0364 7002 d2d6 |p | 0366 0e8c a404 | | 0368 3ab0 f9e2 |: | 036a f803 ea68 | h| 036c 20bc 6402 | d | 036e 8803 21ea | ! | 0370 f802 4e64 | Nd| 0372 0402 2c04 | , | 0374 6402 7844 |d xD| 0376 e5dc 18c7 | | 0378 a22b 35ba | +5 | 037a 7800 9de6 |x | 037c f800 0a81 | | 037e c24b 35bb | K5 | 0380 68bb 56d4 |h V | 0382 0644 1403 | D | 0384 f00c 6400 | d | 0386 0a07 56d6 | V | 0388 be8c 1001 | | 038a 7c0b 31f7 || 1 | 038c 05de f803 | | 038e b244 0003 | D | 0390 e008 6403 | d | 0392 daa7 56d5 | V | 0394 0662 5007 | bP | 0396 ee89 41e2 | A | 0398 f801 32c6 | 2 | 039a cad5 c002 | | 039c 21f6 f800 |! | 039e be44 0003 | D | 03a0 e00c 7ab4 | z | 03a2 1de2 f803 | | 03a4 a233 f67f | 3 | 03a6 35ba 4801 |5 H | 03a8 b9e2 f801 | | 03aa de8c b8a7 | | 03ac 320a f000 |2 | 03ae 95e2 f801 | | 03b0 528a fc06 |R | 03b2 7ad5 a1e6 |z | 03b4 f801 2864 | (d| 03b6 0002 2404 | $ | 03b8 ea29 65e1 | )e | 03ba 10fa e224 | $| 03bc c010 49e1 | I | 03be addd 242e | $.| 03c0 ca24 dc08 | $ | 03c2 3ab2 09e6 |: | 03c4 fc02 7698 | v | 03c6 7c1a adc9 || | 03c8 51de fc00 |Q | 03ca d260 0400 | ` | 03cc 8010 6800 | h | 03ce a800 8ada | | 03d0 7e38 0800 |~8 | 03d2 7817 5aca |x Z | 03d4 8de2 fc00 | | 03d6 ee4f f678 | O x| 03d8 fcd0 c802 | | 03da d9de fc01 | | 03dc 169d 3c18 | < | 03de 7402 4104 |t A | 03e0 e5de fc03 | | 03e2 1c02 1285 | | 03e4 9a8a 21f6 | ! | 03e6 fc03 b6ae | | 03e8 fc9a 1ece | | 03ea edd4 fed8 | | 03ec 3a78 0001 |:x | 03ee c415 acc3 | | 03f0 9de7 0001 | | 03f2 bac7 9e7f | | 03f4 35bb 2c58 |5 ,X| 03f6 e5df 0000 | | 03f8 62ba 9414 |b | 03fa 6800 cc00 |h | 03fc 9de7 61d4 | a | 03fe 3228 4404 |2(D |