|
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_6060f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0230 | 0 | .CONST 0x0230 ; 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 004b | K | .CONST 0x004b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 00c4 | | Action Make_Default 000e 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0012 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0014 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0016 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0018 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 001a 4804 |H | Short_Literal 0x4 001b 032a | * | Declare_Type Record,Incomplete 001c 00d8 | | Load_Top At_Offset_0 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e e212 | | Load 0x1,0x12 001f 03c7 | | Complete_Type Access,By_Defining 0020 e212 | | Load 0x1,0x12 0021 0129 | ) | Execute Any,Make_Visible 0022 c213 | | Store 0x1,0x13 0023 00bf | | Action Accept_Activation 0024 4803 |H | Short_Literal 0x3 0025 032a | * | Declare_Type Record,Incomplete 0026 00d8 | | Load_Top At_Offset_0 0027 02a0 | | Declare_Subprogram Null_Subprogram 0028 4818 |H | Short_Literal 0x18 0029 03d3 | | Declare_Type Access,Defined,Accesses_Protected 002a 4801 |H | Short_Literal 0x1 002b e211 | | Load 0x1,0x11 002c e210 | | Load 0x1,0x10 002d 035b | [ | Declare_Type Array,Constrained 002e 00e3 | | Load_Encached Natural_Cache 002f 00da | | Load_Top At_Offset_2 0030 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 0032 e21b | | Load 0x1,0x1b 0033 0326 | & | Complete_Type Record,By_Defining 0034 00e3 | | Load_Encached Natural_Cache 0035 00d9 | | Load_Top At_Offset_1 0036 00da | | Load_Top At_Offset_2 0037 00db | | Load_Top At_Offset_3 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 e21a | | Load 0x1,0x1a 003a 0326 | & | Complete_Type Record,By_Defining 003b 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 003d 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 003f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0040 00c7 | | Action Elaborate_Subprogram 0041 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0042 00c7 | | Action Elaborate_Subprogram 0043 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0044 00c7 | | Action Elaborate_Subprogram 0045 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0046 00c7 | | Action Elaborate_Subprogram 0047 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0048 00c7 | | Action Elaborate_Subprogram 0049 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004a 00c7 | | Action Elaborate_Subprogram 004b BODY_0008: 004b 00bc | | Action Signal_Activated 004c 00bb | | Action Signal_Completion 004d 0000 0000 | | .XXX[0x3] 004f 0000 | | 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 7014 |p | Jump_Nonzero 0x69 0055 e212 | | Load 0x1,0x12 0056 03bc | | Declare_Variable Access,By_Allocation 0057 003b | ; | Store_Top Access,At_Offset_3 0058 4800 |H | Short_Literal 0x0 0059 00db | | Load_Top At_Offset_3 005a 0227 | ' | Execute Access,All_Reference 005b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 005c e21c | | Load 0x1,0x1c 005d 00db | | Load_Top At_Offset_3 005e 0227 | ' | Execute Access,All_Reference 005f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0060 e21c | | Load 0x1,0x1c 0061 00db | | Load_Top At_Offset_3 0062 0227 | ' | Execute Access,All_Reference 0063 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0064 e21c | | Load 0x1,0x1c 0065 00db | | Load_Top At_Offset_3 0066 0227 | ' | Execute Access,All_Reference 0067 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0068 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0069 00da | | Load_Top At_Offset_2 006a 8218 | | Call 0x1,0x18 006b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0076 | v | .CONST 0x0076 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0004 | | .CONST 0x0004 ; Number of locals 0073 INIT_0070: 0073 00e3 | | Load_Encached Natural_Cache 0074 00e3 | | Load_Encached Natural_Cache 0075 00e3 | | Load_Encached Natural_Cache 0076 BODY_0070: 0076 e5fe | | Load 0x2,-0x2 0077 01db | | Execute Vector,Length 0078 0059 | Y | Store_Top Discrete,At_Offset_1 0079 00d8 | | Load_Top At_Offset_0 007a 7001 |p | Jump_Nonzero 0x7c 007b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007c e5fe | | Load 0x2,-0x2 007d 01dd | | Execute Vector,First 007e 005a | Z | Store_Top Discrete,At_Offset_2 007f 00cf | | Action Mark_Auxiliary 0080 e5ff | | Load 0x2,-0x1 0081 0227 | ' | Execute Access,All_Reference 0082 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0083 700c |p | Jump_Nonzero 0x90 0084 e5ff | | Load 0x2,-0x1 0085 821d | | Call 0x1,0x1d 0086 e5ff | | Load 0x2,-0x1 0087 0227 | ' | Execute Access,All_Reference 0088 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0089 e5ff | | Load 0x2,-0x1 008a 0227 | ' | Execute Access,All_Reference 008b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 008c e5ff | | Load 0x2,-0x1 008d 0227 | ' | Execute Access,All_Reference 008e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 008f 7817 |x | Jump 0xa7 0090 e5ff | | Load 0x2,-0x1 0091 0227 | ' | Execute Access,All_Reference 0092 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0093 0227 | ' | Execute Access,All_Reference 0094 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0095 e211 | | Load 0x1,0x11 0096 027f | | Execute Discrete,Equal 0097 680f |h | Jump_Zero 0xa7 0098 e5ff | | Load 0x2,-0x1 0099 821d | | Call 0x1,0x1d 009a e5ff | | Load 0x2,-0x1 009b 0227 | ' | Execute Access,All_Reference 009c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 009d 0227 | ' | Execute Access,All_Reference 009e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 009f e5ff | | Load 0x2,-0x1 00a0 0227 | ' | Execute Access,All_Reference 00a1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00a2 0227 | ' | Execute Access,All_Reference 00a3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a4 e5ff | | Load 0x2,-0x1 00a5 0227 | ' | Execute Access,All_Reference 00a6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00a7 e211 | | Load 0x1,0x11 00a8 e5ff | | Load 0x2,-0x1 00a9 0227 | ' | Execute Access,All_Reference 00aa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00ab 0227 | ' | Execute Access,All_Reference 00ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ad 0272 | r | Execute Discrete,Minus 00ae c402 | | Store 0x2,0x2 00af 00d9 | | Load_Top At_Offset_1 00b0 e402 | | Load 0x2,0x2 00b1 027a | z | Execute Discrete,Less_Equal 00b2 6836 |h6 | Jump_Zero 0xe9 00b3 00da | | Load_Top At_Offset_2 00b4 00db | | Load_Top At_Offset_3 00b5 00db | | Load_Top At_Offset_3 00b6 0273 | s | Execute Discrete,Plus 00b7 0aff | | Execute_Immediate Plus,-0x1 00b8 00d8 | | Load_Top At_Offset_0 00b9 00e2 | | Load_Encached Integer_Cache 00ba 0260 | ` | Execute Discrete,In_Type 00bb 7001 |p | Jump_Nonzero 0xbd 00bc 0801 | | Execute_Immediate Raise,0x1 00bd e5fe | | Load 0x2,-0x2 00be 01cf | | Execute Vector,Slice_Read 00bf e5ff | | Load 0x2,-0x1 00c0 0227 | ' | Execute Access,All_Reference 00c1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00c2 0227 | ' | Execute Access,All_Reference 00c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c4 0a01 | | Execute_Immediate Plus,0x1 00c5 00d8 | | Load_Top At_Offset_0 00c6 00e2 | | Load_Encached Integer_Cache 00c7 0260 | ` | Execute Discrete,In_Type 00c8 7001 |p | Jump_Nonzero 0xca 00c9 0801 | | Execute_Immediate Raise,0x1 00ca e5ff | | Load 0x2,-0x1 00cb 0227 | ' | Execute Access,All_Reference 00cc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00cd 0227 | ' | Execute Access,All_Reference 00ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00cf e404 | | Load 0x2,0x4 00d0 0273 | s | Execute Discrete,Plus 00d1 00d8 | | Load_Top At_Offset_0 00d2 00e2 | | Load_Encached Integer_Cache 00d3 0260 | ` | Execute Discrete,In_Type 00d4 7001 |p | Jump_Nonzero 0xd6 00d5 0801 | | Execute_Immediate Raise,0x1 00d6 e5ff | | Load 0x2,-0x1 00d7 0229 | ) | Execute Access,All_Read 00d8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00d9 0229 | ) | Execute Access,All_Read 00da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00db 01ce | | Execute Vector,Slice_Write 00dc e5ff | | Load 0x2,-0x1 00dd 0227 | ' | Execute Access,All_Reference 00de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00df 0227 | ' | Execute Access,All_Reference 00e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e1 00da | | Load_Top At_Offset_2 00e2 0273 | s | Execute Discrete,Plus 00e3 e5ff | | Load 0x2,-0x1 00e4 0227 | ' | Execute Access,All_Reference 00e5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00e6 0227 | ' | Execute Access,All_Reference 00e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e8 782e |x. | Jump 0x117 00e9 00da | | Load_Top At_Offset_2 00ea 00db | | Load_Top At_Offset_3 00eb e402 | | Load 0x2,0x2 00ec 0273 | s | Execute Discrete,Plus 00ed 0aff | | Execute_Immediate Plus,-0x1 00ee 00d8 | | Load_Top At_Offset_0 00ef 00e2 | | Load_Encached Integer_Cache 00f0 0260 | ` | Execute Discrete,In_Type 00f1 7001 |p | Jump_Nonzero 0xf3 00f2 0801 | | Execute_Immediate Raise,0x1 00f3 e5fe | | Load 0x2,-0x2 00f4 01cf | | Execute Vector,Slice_Read 00f5 e5ff | | Load 0x2,-0x1 00f6 0227 | ' | Execute Access,All_Reference 00f7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00f8 0227 | ' | Execute Access,All_Reference 00f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00fa 0a01 | | Execute_Immediate Plus,0x1 00fb 00d8 | | Load_Top At_Offset_0 00fc 00e2 | | Load_Encached Integer_Cache 00fd 0260 | ` | Execute Discrete,In_Type 00fe 7001 |p | Jump_Nonzero 0x100 00ff 0801 | | Execute_Immediate Raise,0x1 0100 e211 | | Load 0x1,0x11 0101 e5ff | | Load 0x2,-0x1 0102 0229 | ) | Execute Access,All_Read 0103 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0104 0229 | ) | Execute Access,All_Read 0105 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0106 01ce | | Execute Vector,Slice_Write 0107 e211 | | Load 0x1,0x11 0108 e5ff | | Load 0x2,-0x1 0109 0227 | ' | Execute Access,All_Reference 010a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 010b 0227 | ' | Execute Access,All_Reference 010c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 010d 00da | | Load_Top At_Offset_2 010e e402 | | Load 0x2,0x2 010f 0273 | s | Execute Discrete,Plus 0110 005b | [ | Store_Top Discrete,At_Offset_3 0111 00d9 | | Load_Top At_Offset_1 0112 e402 | | Load 0x2,0x2 0113 0272 | r | Execute Discrete,Minus 0114 005a | Z | Store_Top Discrete,At_Offset_2 0115 00c9 | | Action Pop_Auxiliary_Loop 0116 7f69 | i | Jump 0x80 0117 00ce | | Action Pop_Auxiliary 0118 e5ff | | Load 0x2,-0x1 0119 0227 | ' | Execute Access,All_Reference 011a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011b e5fe | | Load 0x2,-0x2 011c 01db | | Execute Vector,Length 011d 0273 | s | Execute Discrete,Plus 011e e5ff | | Load 0x2,-0x1 011f 0227 | ' | Execute Access,All_Reference 0120 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0121 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 4801 |H | Short_Literal 0x1 012c 4801 |H | Short_Literal 0x1 012d e210 | | Load 0x1,0x10 012e 0122 | " | Execute Any,Make_Root_Type 012f 0334 | 4 | Declare_Variable Array,With_Constraint 0130 e5fe | | Load 0x2,-0x2 0131 e20f | | Load 0x1,0xf 0132 0119 | | Execute Any,Check_In_Formal_Type 0133 4801 |H | Short_Literal 0x1 0134 00da | | Load_Top At_Offset_2 0135 01d6 | | Execute Vector,Field_Write 0136 00db | | Load_Top At_Offset_3 0137 8215 | | Call 0x1,0x15 0138 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014f | O | .CONST 0x014f ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0004 | | .CONST 0x0004 ; Number of locals 0143 INIT_0140: 0143 e21c | | Load 0x1,0x1c 0144 0007 | | Action Break_Optional 0145 00e3 | | Load_Encached Natural_Cache 0146 4801 |H | Short_Literal 0x1 0147 e5ff | | Load 0x2,-0x1 0148 0227 | ' | Execute Access,All_Reference 0149 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014a e210 | | Load 0x1,0x10 014b 035b | [ | Declare_Type Array,Constrained 014c 0337 | 7 | Declare_Variable Array 014d 00d8 | | Load_Top At_Offset_0 014e 1c00 | | Execute_Immediate Run_Utility,0x0 014f BODY_0140: 014f e5ff | | Load 0x2,-0x1 0150 0227 | ' | Execute Access,All_Reference 0151 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0152 003b | ; | Store_Top Access,At_Offset_3 0153 4800 |H | Short_Literal 0x0 0154 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0155 00cf | | Action Mark_Auxiliary 0156 7838 |x8 | Jump 0x18f 0157 00db | | Load_Top At_Offset_3 0158 0227 | ' | Execute Access,All_Reference 0159 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015a 01dd | | Execute Vector,First 015b e402 | | Load 0x2,0x2 015c 0227 | ' | Execute Access,All_Reference 015d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015e 01dd | | Execute Vector,First 015f e402 | | Load 0x2,0x2 0160 0227 | ' | Execute Access,All_Reference 0161 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0162 0273 | s | Execute Discrete,Plus 0163 0aff | | Execute_Immediate Plus,-0x1 0164 00d8 | | Load_Top At_Offset_0 0165 00e2 | | Load_Encached Integer_Cache 0166 0260 | ` | Execute Discrete,In_Type 0167 7001 |p | Jump_Nonzero 0x169 0168 0801 | | Execute_Immediate Raise,0x1 0169 e402 | | Load 0x2,0x2 016a 0227 | ' | Execute Access,All_Reference 016b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 016c 01cf | | Execute Vector,Slice_Read 016d 00db | | Load_Top At_Offset_3 016e 0a01 | | Execute_Immediate Plus,0x1 016f 00d8 | | Load_Top At_Offset_0 0170 00e2 | | Load_Encached Integer_Cache 0171 0260 | ` | Execute Discrete,In_Type 0172 7001 |p | Jump_Nonzero 0x174 0173 0801 | | Execute_Immediate Raise,0x1 0174 e403 | | Load 0x2,0x3 0175 e402 | | Load 0x2,0x2 0176 0227 | ' | Execute Access,All_Reference 0177 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0178 0273 | s | Execute Discrete,Plus 0179 00d8 | | Load_Top At_Offset_0 017a 00e2 | | Load_Encached Integer_Cache 017b 0260 | ` | Execute Discrete,In_Type 017c 7001 |p | Jump_Nonzero 0x17e 017d 0801 | | Execute_Immediate Raise,0x1 017e e404 | | Load 0x2,0x4 017f 01ce | | Execute Vector,Slice_Write 0180 00da | | Load_Top At_Offset_2 0181 e402 | | Load 0x2,0x2 0182 0227 | ' | Execute Access,All_Reference 0183 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0184 0273 | s | Execute Discrete,Plus 0185 005b | [ | Store_Top Discrete,At_Offset_3 0186 4800 |H | Short_Literal 0x0 0187 e402 | | Load 0x2,0x2 0188 0227 | ' | Execute Access,All_Reference 0189 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 018a 00db | | Load_Top At_Offset_3 018b 0227 | ' | Execute Access,All_Reference 018c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 018d a402 | | Store_Unchecked 0x2,0x2 018e 00c9 | | Action Pop_Auxiliary_Loop 018f 00db | | Load_Top At_Offset_3 0190 6805 |h | Jump_Zero 0x196 0191 00db | | Load_Top At_Offset_3 0192 0227 | ' | Execute Access,All_Reference 0193 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0194 0c01 | | Execute_Immediate Greater_Equal,0x1 0195 77c1 |w | Jump_Nonzero 0x157 0196 00ce | | Action Pop_Auxiliary 0197 e5ff | | Load 0x2,-0x1 0198 821e | | Call 0x1,0x1e 0199 00d8 | | Load_Top At_Offset_0 019a e210 | | Load 0x1,0x10 019b 01c6 | | Execute Vector,Convert_To_Formal 019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a5 | | .CONST 0x01a5 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e21c | | Load 0x1,0x1c 01a4 0007 | | Action Break_Optional 01a5 BODY_01a0: 01a5 00db | | Load_Top At_Offset_3 01a6 0227 | ' | Execute Access,All_Reference 01a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a8 0039 | 9 | Store_Top Access,At_Offset_1 01a9 00cf | | Action Mark_Auxiliary 01aa 7809 |x | Jump 0x1b4 01ab 4800 |H | Short_Literal 0x0 01ac 00da | | Load_Top At_Offset_2 01ad 0227 | ' | Execute Access,All_Reference 01ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01af 00d9 | | Load_Top At_Offset_1 01b0 0227 | ' | Execute Access,All_Reference 01b1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b2 003a | : | Store_Top Access,At_Offset_2 01b3 00c9 | | Action Pop_Auxiliary_Loop 01b4 00d9 | | Load_Top At_Offset_1 01b5 6805 |h | Jump_Zero 0x1bb 01b6 00d9 | | Load_Top At_Offset_1 01b7 0227 | ' | Execute Access,All_Reference 01b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b9 0c01 | | Execute_Immediate Greater_Equal,0x1 01ba 77f0 |w | Jump_Nonzero 0x1ab 01bb 00ce | | Action Pop_Auxiliary 01bc 00db | | Load_Top At_Offset_3 01bd 821e | | Call 0x1,0x1e 01be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 0227 | ' | Execute Access,All_Reference 01c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 4608 |F | Jump_Case 0x9 01cc 7808 |x | Jump 0x1d5 ; case 0x0 01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ce 780a |x | Jump 0x1d9 ; case 0x2 01cf 7809 |x | Jump 0x1d9 ; case 0x3 01d0 7808 |x | Jump 0x1d9 ; case 0x4 01d1 7807 |x | Jump 0x1d9 ; case 0x5 01d2 7806 |x | Jump 0x1d9 ; case 0x6 01d3 7805 |x | Jump 0x1d9 ; case 0x7 01d4 7804 |x | Jump 0x1d9 ; case 0x8 01d5 00da | | Load_Top At_Offset_2 01d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d7 1c00 | | Execute_Immediate Run_Utility,0x0 01d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01d9 0869 | i | Execute_Immediate Raise,0x69 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e5 | | .CONST 0x01e5 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e21c | | Load 0x1,0x1c 01e4 0007 | | Action Break_Optional 01e5 BODY_01e0: 01e5 00db | | Load_Top At_Offset_3 01e6 0227 | ' | Execute Access,All_Reference 01e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01e8 7007 |p | Jump_Nonzero 0x1f0 01e9 e21c | | Load 0x1,0x1c 01ea 03bc | | Declare_Variable Access,By_Allocation 01eb 00d8 | | Load_Top At_Offset_0 01ec 0227 | ' | Execute Access,All_Reference 01ed 1c00 | | Execute_Immediate Run_Utility,0x0 01ee 0039 | 9 | Store_Top Access,At_Offset_1 01ef 780c |x | Jump 0x1fc 01f0 00db | | Load_Top At_Offset_3 01f1 0227 | ' | Execute Access,All_Reference 01f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f3 0039 | 9 | Store_Top Access,At_Offset_1 01f4 00db | | Load_Top At_Offset_3 01f5 0227 | ' | Execute Access,All_Reference 01f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f7 0227 | ' | Execute Access,All_Reference 01f8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01f9 e5ff | | Load 0x2,-0x1 01fa 0227 | ' | Execute Access,All_Reference 01fb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01fc 4800 |H | Short_Literal 0x0 01fd 00d9 | | Load_Top At_Offset_1 01fe 0227 | ' | Execute Access,All_Reference 01ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0200 e21c | | Load 0x1,0x1c 0201 00d9 | | Load_Top At_Offset_1 0202 0227 | ' | Execute Access,All_Reference 0203 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0204 00d8 | | Load_Top At_Offset_0 0205 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0206 0000 0000 | | .XXX[0x2] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c 0227 | ' | Execute Access,All_Reference 020d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 020e 681a |h | Jump_Zero 0x229 020f 00da | | Load_Top At_Offset_2 0210 0227 | ' | Execute Access,All_Reference 0211 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0212 00db | | Load_Top At_Offset_3 0213 0227 | ' | Execute Access,All_Reference 0214 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0215 0227 | ' | Execute Access,All_Reference 0216 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0217 00da | | Load_Top At_Offset_2 0218 0227 | ' | Execute Access,All_Reference 0219 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 021a 00db | | Load_Top At_Offset_3 021b 0227 | ' | Execute Access,All_Reference 021c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 021d e21c | | Load 0x1,0x1c 021e 00db | | Load_Top At_Offset_3 021f 0227 | ' | Execute Access,All_Reference 0220 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0221 e21c | | Load 0x1,0x1c 0222 00db | | Load_Top At_Offset_3 0223 0227 | ' | Execute Access,All_Reference 0224 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0225 4800 |H | Short_Literal 0x0 0226 00db | | Load_Top At_Offset_3 0227 0227 | ' | Execute Access,All_Reference 0228 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0229 4502 |E | Exit_Suprogram New_Top_Offset 0x2 022a 0000 0000 | | .BLANK 0000[0x6] 0230 ; -------------------------------------------------------------------------------------- 0230 ; Debug Table 0230 ; -------------------------------------------------------------------------------------- 0230 0004 000e | | .DEBUG4 0x0004,0x000e,0xf47d,0x0000,0x0001,0x0000 0236 0000 0000 | | .XXX[0x3] 0238 0000 | | 0239 0003 cfe0 | | .XXX[0xf] 023b 0800 014a | J| 023d 3820 0215 |8 | 023f 0001 0000 | | 0241 2947 0035 |)G 5| 0243 2251 0000 |"Q | 0245 0000 0000 | | 0247 0001 | | 0248 0000 0000 | | .BLANK 0000[0x4] 024c 8000 3cfe | < | .XXX[0x2] 024e 0000 0000 | | .BLANK 0000[0x4] 0252 0035 22d1 | 5" | .XXX[0x6] 0254 0000 0000 | | 0256 0000 0001 | | 0258 0000 0000 | | .BLANK 0000[0x4] 025c 8000 3cfe | < | .XXX[0x2] 025e 0000 0000 | | .BLANK 0000[0x5] 0263 0004 8000 | | .XXX[0x5] 0265 14aa 8035 | 5| 0267 207c | | | 0268 0000 0000 | | .BLANK 0000[0x4] 026c 001a 91c1 | | .XXX[0x11] 026e 4000 026a |@ j| 0270 9003 523a | R:| 0272 2803 5244 |( RD| 0274 c000 0295 | | 0276 6006 9ce2 |` | 0278 9000 0000 | | 027a 0006 a49e | | 027c b000 | | 027d 0000 0000 | | .BLANK 0000[0x4] 0281 079f e010 | | .XXX[0x11] 0283 0002 9470 | p| 0285 41c4 2a00 |A * | 0287 0200 0052 | R| 0289 8e00 0052 | R| 028b ac00 56fb | V | 028d 1000 0000 | | 028f 0000 d495 | | 0291 d600 | | 0292 0000 0000 | | .BLANK 0000[0x4] 0296 00f3 fc02 | | .XXX[0x15] 0298 0000 528e | R | 029a 0800 8540 | @| 029c 0040 000a | @ | 029e 51c0 0d49 |Q I| 02a0 4d80 0000 |M | 02a2 0000 0000 | | 02a4 0040 0000 | @ | 02a6 0000 0000 | | 02a8 0020 000f | | 02aa 3fc0 |? | 02ab 0000 0000 | | .BLANK 0000[0x4] 02af 0d49 6d80 | Im | .XXX[0xc] 02b1 0000 0000 | | 02b3 0000 0040 | @| 02b5 0000 0000 | | 02b7 0000 0020 | | 02b9 000f 3fc0 | ? | 02bb 0000 0000 | | .BLANK 0000[0x5] 02c0 0120 0005 | | .XXX[0x5] 02c2 2ac0 0d48 |* H| 02c4 d840 | @ | 02c5 0000 0000 | | .BLANK 0000[0x4] 02c9 06a4 ccf0 | | .XXX[0x10] 02cb 0000 92ce | | 02cd 00d4 9a1e | | 02cf 00d4 9cc4 | | 02d1 0000 a55c | \| 02d3 01a7 40c4 | @ | 02d5 0000 0000 | | 02d7 01a9 3ed4 | > | 02d9 0000 0000 | | .BLANK 0000[0x4] 02dd 0001 e800 | | .XXX[0x12] 02df 0400 00a5 | | 02e1 1c10 450a | E | 02e3 8000 8000 | | 02e5 14a3 8000 | | 02e7 14ab 8015 | | 02e9 c215 0000 | | 02eb 0000 0035 | 5| 02ed 285a 8000 |(Z | 02ef 0000 0000 | | .BLANK 0000[0x4] 02f3 3d00 0080 |= | .XXX[0x14] 02f5 0014 a382 | | 02f7 0021 5000 | !P | 02f9 1000 0294 | | 02fb 7003 5281 |p R | 02fd b000 0000 | | 02ff 0000 0000 | | 0301 1000 0000 | | 0303 0000 0000 | | 0305 0800 03d0 | | 0307 0000 0000 | | .BLANK 0000[0x4] 030b 0003 5289 | R | .XXX[0xc] 030d b000 0000 | | 030f 0000 0000 | | 0311 1000 0000 | | 0313 0000 0000 | | 0315 0800 03d0 | | 0317 0000 0000 | | .BLANK 0000[0x6] 031d 4800 014a |H J| .XXX[0x19] 031f b803 5264 | Rd| 0321 6000 0000 |` | 0323 0000 0000 | | 0325 0001 a94a | J| 0327 6400 0026 |d &| 0329 bf00 3529 | 5)| 032b 6c80 352a |l 5*| 032d 1600 0029 | )| 032f 5800 69d1 |X i | 0331 e100 0000 | | 0333 0000 6a55 | jU| 0335 7f00 | | 0336 0000 0000 | | .BLANK 0000[0x4] 033a 007a 0201 | z | .XXX[0x11] 033c 0000 2947 | )G| 033e 041c 42a0 | B | 0340 0020 0005 | | 0342 28e0 0005 |( | 0344 2b00 0232 |+ 2| 0346 2840 0000 |(@ | 0348 0000 0d4a | J| 034a cfe0 | | 034b 0000 0000 | | .BLANK 0000[0x4] 034f 000f 4040 | @@| .XXX[0x15] 0351 2000 0528 | (| 0353 e080 0854 | T| 0355 0004 0000 | | 0357 a51c 00d4 | | 0359 ac00 0000 | | 035b 0000 0000 | | 035d 0004 0000 | | 035f 0000 0000 | | 0361 0002 0000 | | 0363 f404 | | 0364 0000 0000 | | .BLANK 0000[0x4] 0368 00d4 ae00 | | .XXX[0xc] 036a 0000 0000 | | 036c 0000 0004 | | 036e 0000 0000 | | 0370 0000 0002 | | 0372 0000 f404 | | 0374 0000 0000 | | .BLANK 0000[0x5] 0379 0012 0000 | | .XXX[0x5] 037b 52b0 00d4 |R | 037d a4ac | | 037e 0000 0000 | | .BLANK 0000[0x4] 0382 006a 5863 | jXc| .XXX[0x11] 0384 0000 09b2 | | 0386 600d 4b14 |` K | 0388 600d 4b3e |` K>| 038a c000 0a56 | V| 038c 401a 74ee |@ t | 038e 4000 0000 |@ | 0390 001a 96d2 | | 0392 4000 |@ | 0393 0000 0000 | | .BLANK 0000[0x4] 0397 1e81 0040 | @| .XXX[0x11] 0399 000a 51c1 | Q | 039b 0450 a800 | P | 039d 0800 014a | J| 039f 3800 014a |8 J| 03a1 c802 13c8 | | 03a3 b000 0000 | | 03a5 0003 52e2 | R | 03a7 4800 |H | 03a8 0000 0000 | | .BLANK 0000[0x4] 03ac 03d0 2008 | | .XXX[0x15] 03ae 0001 4a38 | J8| 03b0 2002 1500 | | 03b2 0100 0029 | )| 03b4 4700 352d |G 5-| 03b6 e500 0000 | | 03b8 0000 0000 | | 03ba 0100 0000 | | 03bc 0000 0000 | | 03be 0080 003d | =| 03c0 0200 | | 03c1 0000 0000 | | .BLANK 0000[0x4] 03c5 352e 6500 |5.e | .XXX[0xc] 03c7 0000 0000 | | 03c9 0000 0100 | | 03cb 0000 0000 | | 03cd 0000 0080 | | 03cf 003d 0200 | = | 03d1 0000 0000 | | .BLANK 0000[0x5] 03d6 0480 0014 | | .XXX[0x5] 03d8 ac80 352c | 5,| 03da 1000 | | 03db 0000 0000 | | .BLANK 0000[0x4] 03df 1a97 8b40 | @| .XXX[0x10] 03e1 0002 6d58 | mX| 03e3 0352 f368 | R h| 03e5 0352 fe00 | R | 03e7 0002 95a0 | | 03e9 069d 5a10 | Z | 03eb 0000 0000 | | 03ed 06a6 1130 | 0| 03ef 0000 0000 | | .BLANK 0000[0x4] 03f3 0007 a060 | `| .XXX[0xd] 03f5 1000 0294 | | 03f7 7041 c42a |pA *| 03f9 0002 0000 | | 03fb 528e 0000 |R | 03fd 52b4 0023 |R #| 03ff 3b5c |;\ |