|
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_11cacfe
└─⟦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 0011 | | .DEBUG4 0x0004,0x0011,0x5e32,0x0000,0x0001,0x0000 02be 480b 0092 |H | .XXX[0x142] 02c0 2d39 e016 |-9 | 02c2 180e 480c | H | 02c4 0092 2d3a | -:| 02c6 e016 180e | | 02c8 480d 0092 |H | 02ca 2d3b e016 |-; | 02cc 180e 480e | H | 02ce 0092 2d3c | -<| 02d0 e016 180e | | 02d2 480f 0092 |H | 02d4 2d3d e016 |-= | 02d6 180e 4810 | H | 02d8 0092 2d3e | ->| 02da e016 180e | | 02dc 4811 0092 |H | 02de 2d3f e016 |-? | 02e0 180e 4812 | H | 02e2 0092 2d40 | -@| 02e4 e016 180e | | 02e6 4813 0092 |H | 02e8 2d41 e016 |-A | 02ea 180e 4814 | H | 02ec 0092 2d42 | -B| 02ee e016 180e | | 02f0 4815 0092 |H | 02f2 2d43 e016 |-C | 02f4 180e 4816 | H | 02f6 0092 2d44 | -D| 02f8 e016 180e | | 02fa 4817 0092 |H | 02fc 2d45 e016 |-E | 02fe 180e 4818 | H | 0300 0092 2d46 | -F| 0302 e016 180e | | 0304 4819 0092 |H | 0306 2d47 e016 |-G | 0308 180e 481a | H | 030a 0092 2d48 | -H| 030c e016 180e | | 030e 481b 0092 |H | 0310 2d49 e016 |-I | 0312 180e 481c | H | 0314 0092 2d4a | -J| 0316 e016 180e | | 0318 481d 0092 |H | 031a 2d4b e016 |-K | 031c 180e 481e | H | 031e 0092 2d4c | -L| 0320 e016 180e | | 0322 481f 0092 |H | 0324 2d4d e016 |-M | 0326 180e 4820 | H | 0328 0092 2d4e | -N| 032a e016 180e | | 032c 4821 0092 |H! | 032e 2d4f e016 |-O | 0330 180e 4822 | H"| 0332 0092 2d50 | -P| 0334 e016 180e | | 0336 4823 0092 |H# | 0338 2d51 e016 |-Q | 033a 180e 4824 | H$| 033c 0092 2d52 | -R| 033e e016 180e | | 0340 4825 0092 |H% | 0342 2d53 e016 |-S | 0344 180e 4826 | H&| 0346 0092 2d54 | -T| 0348 e016 180e | | 034a 4827 0092 |H' | 034c 2d55 e016 |-U | 034e 180e 4828 | H(| 0350 0092 2d56 | -V| 0352 e016 180e | | 0354 4829 0092 |H) | 0356 2d57 e016 |-W | 0358 180e 482a | H*| 035a 0092 2d58 | -X| 035c e016 180e | | 035e 482b 0092 |H+ | 0360 2d59 e016 |-Y | 0362 180e 482c | H,| 0364 0092 2d5a | -Z| 0366 e016 180e | | 0368 482d 0092 |H- | 036a 2d5b e016 |-[ | 036c 180e 482e | H.| 036e 0092 2d5c | -\| 0370 e016 180e | | 0372 482f 0092 |H/ | 0374 2d5d e016 |-] | 0376 180e 4830 | H0| 0378 0092 2d5e | -^| 037a e016 180e | | 037c 4831 0092 |H1 | 037e 2d5f e016 |-_ | 0380 180e 4832 | H2| 0382 0092 2d60 | -`| 0384 e016 180e | | 0386 4833 0092 |H3 | 0388 2d61 e016 |-a | 038a 180e 4834 | H4| 038c 0092 2d62 | -b| 038e e016 180e | | 0390 4835 0092 |H5 | 0392 2d63 e016 |-c | 0394 180e 4836 | H6| 0396 0092 2d64 | -d| 0398 e016 180e | | 039a 4837 0092 |H7 | 039c 2d65 e016 |-e | 039e 180e 4838 | H8| 03a0 0092 2d66 | -f| 03a2 e016 180e | | 03a4 4839 0092 |H9 | 03a6 2d67 e016 |-g | 03a8 180e 483a | H:| 03aa 0092 2d68 | -h| 03ac e016 180e | | 03ae 483b 0092 |H; | 03b0 2d69 e016 |-i | 03b2 180e 483c | H<| 03b4 0092 2d6a | -j| 03b6 e016 180e | | 03b8 483d 0092 |H= | 03ba 2d6b e016 |-k | 03bc 180e 483e | H>| 03be 0092 2d6c | -l| 03c0 e016 180e | | 03c2 483f 0092 |H? | 03c4 2d6d e016 |-m | 03c6 180e 4840 | H@| 03c8 0092 2d6e | -n| 03ca e016 180e | | 03cc 4841 0092 |HA | 03ce 2d6f e016 |-o | 03d0 180e 4842 | HB| 03d2 0092 2d70 | -p| 03d4 e016 180e | | 03d6 4843 0092 |HC | 03d8 2d71 e016 |-q | 03da 180e 4844 | HD| 03dc 0092 2d72 | -r| 03de e016 180e | | 03e0 4845 0092 |HE | 03e2 2d73 e016 |-s | 03e4 180e 4846 | HF| 03e6 0092 2d74 | -t| 03e8 e016 180e | | 03ea 4847 0092 |HG | 03ec 2d75 e016 |-u | 03ee 180e 4848 | HH| 03f0 0092 2d76 | -v| 03f2 e016 180e | | 03f4 4849 0092 |HI | 03f6 2d77 e016 |-w | 03f8 180e 484a | HJ| 03fa 0092 2d78 | -x| 03fc e016 180e | | 03fe 484b 0092 |HK |