|
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_0694fc
└─⟦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 994c ee33 | L 3| .XXX[0x142] 02c0 0244 76dd | Dv | 02c2 2834 8d30 |(4 0| 02c4 62c1 3f02 |b ? | 02c6 9052 dfa4 | R | 02c8 8996 1c03 | | 02ca 9640 9640 | @ @| 02cc 1671 cf06 | q | 02ce 5061 0001 |Pa | 02d0 1379 2b56 | y+V| 02d2 eea4 5b9c | [ | 02d4 d0d0 1273 | s| 02d6 34d2 5810 |4 X | 02d8 1002 74f5 | t | 02da 93ec 69af | i | 02dc d39c b4b1 | | 02de e8d0 4703 | G | 02e0 a3f5 9dbd | | 02e2 528e 017f |R | 02e4 b254 171b | T | 02e6 8081 0e02 | | 02e8 cad7 7aa6 | z | 02ea 00c8 e807 | | 02ec 237a 55d8 |#zU | 02ee 2000 2f63 | /c| 02f0 78cb 3c20 |x < | 02f2 4c03 b378 |L x| 02f4 1793 db49 | I| 02f6 ef8d 4afc | J | 02f8 de15 5bc4 | [ | 02fa 160e c0aa | | 02fc 1bda 1487 | | 02fe 7d26 6cc3 |}&l | 0300 019b 4c21 | L!| 0302 bad9 d203 | | 0304 46d3 161e |F | 0306 cbd2 359b | 5 | 0308 ec6a 9647 | j G| 030a d637 2fb3 | 7/ | 030c 6565 5524 |eeU$| 030e 800f e365 | e| 0310 0fd9 1994 | | 0312 3033 6833 |03h3| 0314 054b 46ec | KF | 0316 8b6b 1733 | k 3| 0318 e077 c8c0 | w | 031a 0e3a d95f | : _| 031c 61ca 5c10 |a \ | 031e 9001 c909 | | 0320 a54c efd6 | L | 0322 5cd3 e8b9 |\ | 0324 d369 5f0f | i_ | 0326 eef4 d600 | | 0328 ef5f 03bc | _ | 032a 41b3 5857 |A XW| 032c b134 b655 | 4 U| 032e afdf 7726 | w&| 0330 39e5 7027 |9 p'| 0332 a021 2c88 | !, | 0334 8d95 8187 | | 0336 1be1 00f2 | | 0338 d598 440a | D | 033a 70c4 fe82 |p | 033c ef15 6621 | f!| 033e 0220 c512 | | 0340 402a 1302 |@* | 0342 77d5 303c |w 0<| 0344 031a dfad | | 0346 8000 213e | !>| 0348 4103 c490 |A | 034a 3880 0234 |8 4| 034c 5896 4128 |X A(| 034e 6160 5d40 |a`]@| 0350 dd01 9980 | | 0352 0bb0 c4f6 | | 0354 0213 1d68 | h| 0356 3c48 5991 |<HY | 0358 b9f4 158a | | 035a 122f f44c | / L| 035c 900f fa00 | | 035e 9665 a0b0 | e | 0360 6869 01f9 |hi | 0362 71da 8766 |q f| 0364 4c18 1080 |L | 0366 0230 7684 | 0v | 0368 91b7 75d8 | u | 036a 561e 9b02 |V | 036c 9284 0570 | p| 036e 0b05 cd41 | A| 0370 a61d fc6a | j| 0372 6003 9d37 |` 7| 0374 3892 3186 |8 1 | 0376 60fc 4007 |` @ | 0378 a001 110c | | 037a 0cf5 dc8c | | 037c 93f6 016b | k| 037e f6e6 1870 | p| 0380 fc5c f801 | \ | 0382 5d1f 2f6f |] /o| 0384 c8a2 4887 | H | 0386 8340 a100 | @ | 0388 5f41 3d5c |_A=\| 038a 06a2 d56d | m| 038c 360e 3c00 |6 < | 038e 6437 2745 |d7'E| 0390 96b3 4dae | M | 0392 26d0 c626 |& &| 0394 6c98 0a06 |l | 0396 d284 08c8 | | 0398 0017 1367 | g| 039a d96b fc0f | k | 039c ee00 1040 | @| 039e f00c 061f | | 03a0 ccae f83c | <| 03a2 e003 04cc | | 03a4 3bc2 3e11 |; > | 03a6 6c90 1cda |l | 03a8 c43d e005 | = | 03aa 151c 1d40 | @| 03ac 83ab 85e4 | | 03ae a895 f95b | [| 03b0 0f87 fb00 | | 03b2 0dc0 31b0 | 1 | 03b4 1826 01ad | & | 03b6 34e5 172c |4 ,| 03b8 e300 acd8 | | 03ba 2d40 059c |-@ | 03bc c927 8233 | ' 3| 03be 3f8b 49e0 |? I | 03c0 4d42 350c |MB5 | 03c2 035d e2d1 | ] | 03c4 706e 6d77 |pnmw| 03c6 6611 a0f4 |f | 03c8 b780 0376 | v| 03ca e021 0012 | ! | 03cc 4167 6010 |Ag` | 03ce fe00 3990 | 9 | 03d0 2102 0141 |! A| 03d2 a587 e80c | | 03d4 5200 dcc1 |R | 03d6 71be 6316 |q c | 03d8 d4e5 c971 | q| 03da 2d87 c3e0 |- | 03dc eec1 725e | r^| 03de 609c 98c9 |` | 03e0 7805 5264 |x Rd| 03e2 b786 a474 | t| 03e4 1ae2 6214 | b | 03e6 e014 c21c | | 03e8 ce6a b704 | j | 03ea 43c1 2eb3 |C . | 03ec 4b79 d50c |Ky | 03ee 097a ed87 | z | 03f0 8bd5 4912 | I | 03f2 7402 679d |t g | 03f4 d651 6490 | Qd | 03f6 3006 f617 |0 | 03f8 fc4c 220c | L" | 03fa 03e5 773c | w<| 03fc 1e20 f411 | | 03fe 0c01 cd84 | |