|
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_0698fd
└─⟦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 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 0001 | | .DEBUG4 0x0004,0x0001,0x45c7,0x0000,0x0001,0x0000 0236 8000 0020 | | .XXX[0x49] 0238 1010 24b3 | $ | 023a 103a 3432 | :42| 023c 903b 30b6 | ;0 | 023e 3ab2 9039 |: 9| 0240 b832 b1b4 | 2 | 0242 b334 b2b2 | 4 | 0244 1031 3c90 | 1< | 0246 3a34 3290 |:42 | 0248 2a37 9038 |*7 8| 024a 30b9 30b6 |0 0 | 024c b2ba 32b9 | 2 | 024e 1034 b990 | 4 | 0250 33b9 32b0 |3 2 | 0252 ba32 b910 | 2 | 0254 3a34 30b7 |:40 | 0256 103a 3432 | :42| 0258 8000 0020 | | 025a 8000 0020 | | 025c 1010 24b3 | $ | 025e 103a 3432 | :42| 0260 903b 30b6 | ;0 | 0262 3ab2 9039 |: 9| 0264 b832 b1b4 | 2 | 0266 b334 b2b2 | 4 | 0268 1031 3c90 | 1< | 026a 3a34 3290 |:42 | 026c 2a37 9038 |*7 8| 026e 30b9 30b6 |0 0 | 0270 b2ba 32b9 | 2 | 0272 1034 b990 | 4 | 0274 33b9 32b0 |3 2 | 0276 ba32 b910 | 2 | 0278 3a34 30b7 |:40 | 027a 103a 3432 | :42| 027c 8000 0000 | | 027e 8000 | | 027f 0000 0000 | | .BLANK 0000[0x5] 0284 8000 | | .XXX[0x1] 0285 0000 0000 | | .BLANK 0000[0x4] 0289 0020 8000 | | .XXX[0x177] 028b 0020 1010 | | 028d 24b3 103a |$ :| 028f 3432 903b |42 ;| 0291 30b6 3ab2 |0 : | 0293 9039 b832 | 9 2| 0295 b1b4 b334 | 4| 0297 b2b2 1031 | 1| 0299 3c90 3a34 |< :4| 029b 3290 2a37 |2 *7| 029d 9038 30b9 | 80 | 029f 30b6 b2ba |0 | 02a1 32b9 1034 |2 4| 02a3 b990 33b9 | 3 | 02a5 32b0 ba32 |2 2| 02a7 b910 3a34 | :4| 02a9 30b7 103a |0 :| 02ab 3432 8000 |42 | 02ad 0001 0000 | | 02af 0020 1010 | | 02b1 31ba b939 |1 9| 02b3 32b7 3a10 |2 : | 02b5 31b7 b63a |1 :| 02b7 b6b7 1037 | 7| 02b9 3ab6 b132 |: 2| 02bb b916 103a | :| 02bd 3434 b990 |44 | 02bf 3839 37b1 |897 | 02c1 b2b2 3ab9 | : | 02c3 3290 37ba |2 7 | 02c5 ba38 3aba | 8: | 02c7 3990 39b8 |9 9 | 02c9 30b1 b2b9 |0 | 02cb 9610 30b2 | 0 | 02cd 3234 b733 |24 3| 02cf 9018 8000 | | 02d1 0001 0000 | | 02d3 0020 1010 | | 02d5 31ba b939 |1 9| 02d7 32b7 3a10 |2 : | 02d9 31b7 b63a |1 :| 02db b6b7 1037 | 7| 02dd 3ab6 b132 |: 2| 02df b916 103a | :| 02e1 3434 b990 |44 | 02e3 3839 37b1 |897 | 02e5 b2b2 3ab9 | : | 02e7 3290 37ba |2 7 | 02e9 ba38 3aba | 8: | 02eb 3990 39b8 |9 9 | 02ed 30b1 b2b9 |0 | 02ef 9610 30b2 | 0 | 02f1 3234 b733 |24 3| 02f3 9018 8000 | | 02f5 0021 8000 | ! | 02f7 001f 1010 | | 02f9 3a37 903a |:7 :| 02fb 3432 9031 |42 1| 02fd bab9 3932 | 92| 02ff b73a 1031 | : 1| 0301 b7b6 3ab6 | : | 0303 b710 373a | 7:| 0305 b6b1 32b9 | 2 | 0307 1030 b33a | 0 :| 0309 32b9 1032 |2 2| 030b b0b1 b410 | | 030d 39b8 30b1 |9 0 | 030f b296 103a | :| 0311 b73a 34b6 | :4 | 0313 103a 3432 | :42| 0315 9031 bab9 | 1 | 0317 0000 0021 | !| 0319 8000 001f | | 031b 1010 3a37 | :7| 031d 903a 3432 | :42| 031f 9031 bab9 | 1 | 0321 3932 b73a |92 :| 0323 1031 b7b6 | 1 | 0325 3ab6 b710 |: | 0327 373a b6b1 |7: | 0329 32b9 1030 |2 0| 032b b33a 32b9 | :2 | 032d 1032 b0b1 | 2 | 032f b410 39b8 | 9 | 0331 30b1 b296 |0 | 0333 103a b73a | : :| 0335 34b6 103a |4 :| 0337 3432 9031 |42 1| 0339 bab9 0000 | | 033b 0000 8000 | | 033d 0002 3932 | 92| 033f b73a 0000 | : | 0341 0000 8000 | | 0343 0002 3932 | 92| 0345 b73a 0000 | : | 0347 0021 8000 | ! | 0349 0021 1010 | ! | 034b 3a37 903a |:7 :| 034d 3432 9031 |42 1| 034f bab9 3932 | 92| 0351 b73a 1031 | : 1| 0353 b7b6 3ab6 | : | 0355 b710 373a | 7:| 0357 b6b1 32b9 | 2 | 0359 1030 b33a | 0 :| 035b 32b9 1032 |2 2| 035d b0b1 b410 | | 035f 39b8 30b1 |9 0 | 0361 b296 103a | :| 0363 b73a 34b6 | :4 | 0365 103a 3432 | :42| 0367 9031 bab9 | 1 | 0369 3932 b73a |92 :| 036b 0000 0003 | | 036d 0000 0021 | !| 036f 9010 31b7 | 1 | 0371 b63a b6b7 | : | 0373 1037 3ab6 | 7: | 0375 b132 b910 | 2 | 0377 32b8 bab0 |2 | 0379 b639 903a | 9 :| 037b 3432 9039 |42 9| 037d b832 b1b4 | 2 | 037f b334 b2b2 | 4 | 0381 103b 30b6 | ;0 | 0383 3ab2 9710 |: | 0385 1024 b310 | $ | 0387 3a34 3290 |:42 | 0389 3b30 b63a |;0 :| 038b b290 39b8 | 9 | 038d 32b1 b4b3 |2 | 038f 34b2 b200 |4 | 0391 0000 0300 | | 0393 0000 2190 | ! | 0395 1031 b7b6 | 1 | 0397 3ab6 b710 |: | 0399 373a b6b1 |7: | 039b 32b9 1032 |2 2| 039d b8ba b0b6 | | 039f 3990 3a34 |9 :4| 03a1 3290 39b8 |2 9 | 03a3 32b1 b4b3 |2 | 03a5 34b2 b210 |4 | 03a7 3b30 b63a |;0 :| 03a9 b297 1010 | | 03ab 24b3 103a |$ :| 03ad 3432 903b |42 ;| 03af 30b6 3ab2 |0 : | 03b1 9039 b832 | 9 2| 03b3 b1b4 b334 | 4| 03b5 b2b2 0000 | | 03b7 0025 0000 | % | 03b9 001b 9010 | | 03bb 313c 902a |1< *| 03bd 3790 34b9 |7 4 | 03bf 9032 b8ba | 2 | 03c1 b0b6 103a | :| 03c3 3790 3a34 |7 :4| 03c5 3290 31ba |2 1 | 03c7 b939 32b7 | 92 | 03c9 3a10 31b7 |: 1 | 03cb b63a b6b7 | : | 03cd 1037 3ab6 | 7: | 03cf b132 b916 | 2 | 03d1 103a 3432 | :42| 03d3 b932 9034 | 2 4| 03d5 b980 0000 | | 03d7 2500 0000 |% | 03d9 1b90 1031 | 1| 03db 3c90 2a37 |< *7| 03dd 9034 b990 | 4 | 03df 32b8 bab0 |2 | 03e1 b610 3a37 | :7| 03e3 903a 3432 | :42| 03e5 9031 bab9 | 1 | 03e7 3932 b73a |92 :| 03e9 1031 b7b6 | 1 | 03eb 3ab6 b710 |: | 03ed 373a b6b1 |7: | 03ef 32b9 1610 |2 | 03f1 3a34 32b9 |:42 | 03f3 3290 34b9 |2 4 | 03f5 8000 0000 | | 03f7 8000 0005 | | 03f9 9037 3790 | 77 | 03fb 32b3 3332 |2 32| 03fd b1ba 1700 | | 03ff 0000 | |