|
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_5850da
└─⟦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 0250 | P | .CONST 0x0250 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0080 | | .CONST 0x0080 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002b | + | .CONST 0x002b ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 4818 |H | Short_Literal 0x18 000e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000f e001 | | Load 0x0,0x1 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0015 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 001b 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001d 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 001f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0021 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0023 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0025 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0027 4803 |H | Short_Literal 0x3 0028 032b | + | Declare_Type Record,Incomplete,Visible 0029 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 002b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 002d 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 002f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0031 4801 |H | Short_Literal 0x1 0032 034b | K | Declare_Type Array,Incomplete,Bounds_With_Object 0033 00d8 | | Load_Top At_Offset_0 0034 02a0 | | Declare_Subprogram Null_Subprogram 0035 e20e | | Load 0x1,0xe 0036 03c7 | | Complete_Type Access,By_Defining 0037 00e9 | | Load_Encached String_Cache 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 e20d | | Load 0x1,0xd 003a 03c7 | | Complete_Type Access,By_Defining 003b 4802 |H | Short_Literal 0x2 003c 032a | * | Declare_Type Record,Incomplete 003d 00d8 | | Load_Top At_Offset_0 003e 02a0 | | Declare_Subprogram Null_Subprogram 003f 4818 |H | Short_Literal 0x18 0040 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0041 00d8 | | Load_Top At_Offset_0 0042 0007 | | Action Break_Optional 0043 00e2 | | Load_Encached Integer_Cache 0044 e20e | | Load 0x1,0xe 0045 00d9 | | Load_Top At_Offset_1 0046 e222 | " | Load 0x1,0x22 0047 02a0 | | Declare_Subprogram Null_Subprogram 0048 e21b | | Load 0x1,0x1b 0049 0326 | & | Complete_Type Record,By_Defining 004a 00bf | | Action Accept_Activation 004b a002 | | Store_Unchecked 0x0,0x2 004c 00c6 | | Action Check_Subprogram_Elaborated 004d e20d | | Load 0x1,0xd 004e 00e2 | | Load_Encached Integer_Cache 004f e003 | | Load 0x0,0x3 0050 e004 | | Load 0x0,0x4 0051 4800 |H | Short_Literal 0x0 0052 0007 | | Action Break_Optional 0053 e20d | | Load 0x1,0xd 0054 e223 | # | Load 0x1,0x23 0055 02a0 | | Declare_Subprogram Null_Subprogram 0056 e221 | ! | Load 0x1,0x21 0057 0326 | & | Complete_Type Record,By_Defining 0058 e224 | $ | Load 0x1,0x24 0059 0266 | f | Execute Discrete,Bounds 005a e223 | # | Load 0x1,0x23 005b 02a0 | | Declare_Subprogram Null_Subprogram 005c e220 | | Load 0x1,0x20 005d 0343 | C | Complete_Type Array,By_Defining 005e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 005f 00c7 | | Action Elaborate_Subprogram 0060 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 0062 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0063 00c7 | | Action Elaborate_Subprogram 0064 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0065 00c7 | | Action Elaborate_Subprogram 0066 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0067 00c7 | | Action Elaborate_Subprogram 0068 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0069 00c7 | | Action Elaborate_Subprogram 006a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 006b 00c7 | | Action Elaborate_Subprogram 006c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 006d 00c7 | | Action Elaborate_Subprogram 006e 1d17 | | Execute_Immediate Reference_Lex_1,0x17 006f 00c7 | | Action Elaborate_Subprogram 0070 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0071 00c7 | | Action Elaborate_Subprogram 0072 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0073 00c7 | | Action Elaborate_Subprogram 0074 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0075 00c7 | | Action Elaborate_Subprogram 0076 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 0078 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0079 00c7 | | Action Elaborate_Subprogram 007a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 007b 00c7 | | Action Elaborate_Subprogram 007c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 007d 00c7 | | Action Elaborate_Subprogram 007e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 007f 00c7 | | Action Elaborate_Subprogram 0080 BODY_0008: 0080 00bc | | Action Signal_Activated 0081 00bb | | Action Signal_Completion 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 4800 |H | Short_Literal 0x0 008c 00db | | Load_Top At_Offset_3 008d e20e | | Load 0x1,0xe 008e 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 008f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e20d | | Load 0x1,0xd 0094 00ca | | Action Exit_Nullary_Function 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00ac | | .CONST 0x00ac ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0004 | | .CONST 0x0004 ; Number of locals 009b INIT_0098: 009b 00db | | Load_Top At_Offset_3 009c 0227 | ' | Execute Access,All_Reference 009d 01db | | Execute Vector,Length 009e 00d8 | | Load_Top At_Offset_0 009f 00e4 | | Load_Encached Positive_Cache 00a0 0260 | ` | Execute Discrete,In_Type 00a1 7001 |p | Jump_Nonzero 0xa3 00a2 0801 | | Execute_Immediate Raise,0x1 00a3 00db | | Load_Top At_Offset_3 00a4 822a | * | Call 0x1,0x2a 00a5 e5fe | | Load 0x2,-0x2 00a6 0227 | ' | Execute Access,All_Reference 00a7 01d5 | | Execute Vector,Field_Reference 00a8 0007 | | Action Break_Optional 00a9 00d8 | | Load_Top At_Offset_0 00aa 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 00ac BODY_0098: 00ac e5ff | | Load 0x2,-0x1 00ad 01db | | Execute Vector,Length 00ae 7002 |p | Jump_Nonzero 0xb1 00af e20d | | Load 0x1,0xd 00b0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00b1 e5fd | | Load 0x2,-0x3 00b2 6802 |h | Jump_Zero 0xb5 00b3 8404 | | Call 0x2,0x4 00b4 7815 |x | Jump 0xca 00b5 00cf | | Action Mark_Auxiliary 00b6 7810 |x | Jump 0xc7 00b7 00da | | Load_Top At_Offset_2 00b8 0227 | ' | Execute Access,All_Reference 00b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ba 0227 | ' | Execute Access,All_Reference 00bb e5ff | | Load 0x2,-0x1 00bc 01df | | Execute Vector,Equal 00bd 6804 |h | Jump_Zero 0xc2 00be 00da | | Load_Top At_Offset_2 00bf 0227 | ' | Execute Access,All_Reference 00c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00c2 00da | | Load_Top At_Offset_2 00c3 0227 | ' | Execute Access,All_Reference 00c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c5 003b | ; | Store_Top Access,At_Offset_3 00c6 00c9 | | Action Pop_Auxiliary_Loop 00c7 00da | | Load_Top At_Offset_2 00c8 77ee |w | Jump_Nonzero 0xb7 00c9 00ce | | Action Pop_Auxiliary 00ca e222 | " | Load 0x1,0x22 00cb 03bc | | Declare_Variable Access,By_Allocation 00cc 003a | : | Store_Top Access,At_Offset_2 00cd e5ff | | Load 0x2,-0x1 00ce e20d | | Load 0x1,0xd 00cf 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00d0 00da | | Load_Top At_Offset_2 00d1 0227 | ' | Execute Access,All_Reference 00d2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d3 00da | | Load_Top At_Offset_2 00d4 00da | | Load_Top At_Offset_2 00d5 0227 | ' | Execute Access,All_Reference 00d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d7 00d9 | | Load_Top At_Offset_1 00d8 a402 | | Store_Unchecked 0x2,0x2 00d9 00d9 | | Load_Top At_Offset_1 00da 0227 | ' | Execute Access,All_Reference 00db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00dc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00dd 0000 0000 | | .XXX[0x3] 00df 0000 | | 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00f2 | | .CONST 0x00f2 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 00db | | Load_Top At_Offset_3 00e4 0227 | ' | Execute Access,All_Reference 00e5 01db | | Execute Vector,Length 00e6 00d8 | | Load_Top At_Offset_0 00e7 00e4 | | Load_Encached Positive_Cache 00e8 0260 | ` | Execute Discrete,In_Type 00e9 7001 |p | Jump_Nonzero 0xeb 00ea 0801 | | Execute_Immediate Raise,0x1 00eb 00db | | Load_Top At_Offset_3 00ec 822a | * | Call 0x1,0x2a 00ed e5fe | | Load 0x2,-0x2 00ee 0227 | ' | Execute Access,All_Reference 00ef 01d7 | | Execute Vector,Field_Read 00f0 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 00f2 BODY_00e0: 00f2 e5ff | | Load 0x2,-0x1 00f3 01db | | Execute Vector,Length 00f4 7002 |p | Jump_Nonzero 0xf7 00f5 e20d | | Load 0x1,0xd 00f6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00f7 e5fd | | Load 0x2,-0x3 00f8 6802 |h | Jump_Zero 0xfb 00f9 8403 | | Call 0x2,0x3 00fa 7815 |x | Jump 0x110 00fb 00cf | | Action Mark_Auxiliary 00fc 7810 |x | Jump 0x10d 00fd 00da | | Load_Top At_Offset_2 00fe 0227 | ' | Execute Access,All_Reference 00ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0100 0227 | ' | Execute Access,All_Reference 0101 e5ff | | Load 0x2,-0x1 0102 01df | | Execute Vector,Equal 0103 6804 |h | Jump_Zero 0x108 0104 00da | | Load_Top At_Offset_2 0105 0227 | ' | Execute Access,All_Reference 0106 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0107 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0108 00da | | Load_Top At_Offset_2 0109 0227 | ' | Execute Access,All_Reference 010a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010b 003b | ; | Store_Top Access,At_Offset_3 010c 00c9 | | Action Pop_Auxiliary_Loop 010d 00da | | Load_Top At_Offset_2 010e 77ee |w | Jump_Nonzero 0xfd 010f 00ce | | Action Pop_Auxiliary 0110 e20d | | Load 0x1,0xd 0111 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c 01db | | Execute Vector,Length 011d 0c01 | | Execute_Immediate Greater_Equal,0x1 011e 6804 |h | Jump_Zero 0x123 011f 00da | | Load_Top At_Offset_2 0120 e20d | | Load 0x1,0xd 0121 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0122 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0123 8211 | | Call 0x1,0x11 0124 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 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 00da | | Load_Top At_Offset_2 012c e5fe | | Load 0x2,-0x2 012d 022f | / | Execute Access,Equal 012e 7010 |p | Jump_Nonzero 0x13f 012f 00da | | Load_Top At_Offset_2 0130 8211 | | Call 0x1,0x11 0131 022e | . | Execute Access,Not_Equal 0132 680a |h | Jump_Zero 0x13d 0133 00db | | Load_Top At_Offset_3 0134 8211 | | Call 0x1,0x11 0135 022e | . | Execute Access,Not_Equal 0136 6806 |h | Jump_Zero 0x13d 0137 00da | | Load_Top At_Offset_2 0138 0227 | ' | Execute Access,All_Reference 0139 e5fe | | Load 0x2,-0x2 013a 0227 | ' | Execute Access,All_Reference 013b 01df | | Execute Vector,Equal 013c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013d 4800 |H | Short_Literal 0x0 013e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013f 4801 |H | Short_Literal 0x1 0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c e225 | % | Load 0x1,0x25 014d e226 | & | Load 0x1,0x26 014e 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 014f 8002 | | Call 0x0,0x2 0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00db | | Load_Top At_Offset_3 015c 0aff | | Execute_Immediate Plus,-0x1 015d 00db | | Load_Top At_Offset_3 015e 0227 | ' | Execute Access,All_Reference 015f 01dd | | Execute Vector,First 0160 0273 | s | Execute Discrete,Plus 0161 00db | | Load_Top At_Offset_3 0162 0227 | ' | Execute Access,All_Reference 0163 01d7 | | Execute Vector,Field_Read 0164 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 8211 | | Call 0x1,0x11 016d 022f | / | Execute Access,Equal 016e 6802 |h | Jump_Zero 0x171 016f 00ea | | Load_Encached Null_String_Cache 0170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0171 00da | | Load_Top At_Offset_2 0172 0227 | ' | Execute Access,All_Reference 0173 0335 | 5 | Declare_Variable Array,Duplicate 0174 00cd | | Action Spare6_Action 0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c 8211 | | Call 0x1,0x11 017d 022f | / | Execute Access,Equal 017e 6802 |h | Jump_Zero 0x181 017f 4800 |H | Short_Literal 0x0 0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0181 00da | | Load_Top At_Offset_2 0182 0227 | ' | Execute Access,All_Reference 0183 01db | | Execute Vector,Length 0184 00d8 | | Load_Top At_Offset_0 0185 00e3 | | Load_Encached Natural_Cache 0186 0260 | ` | Execute Discrete,In_Type 0187 7001 |p | Jump_Nonzero 0x189 0188 0801 | | Execute_Immediate Raise,0x1 0189 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 8211 | | Call 0x1,0x11 0195 022f | / | Execute Access,Equal 0196 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e21b | | Load 0x1,0x1b 019c 0322 | " | Declare_Variable Record 019d BODY_0198: 019d 00db | | Load_Top At_Offset_3 019e 00d9 | | Load_Top At_Offset_1 019f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a0 4800 |H | Short_Literal 0x0 01a1 00d9 | | Load_Top At_Offset_1 01a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a3 00d8 | | Load_Top At_Offset_0 01a4 822b | + | Call 0x1,0x2b 01a5 00d1 | | Pop_Control Pop_Count_1 01a6 00d8 | | Load_Top At_Offset_0 01a7 e5fe | | Load 0x2,-0x2 01a8 017d | } | Execute Record,Structure_Write 01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b5 0227 | ' | Execute Access,All_Reference 01b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b7 00db | | Load_Top At_Offset_3 01b8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b9 00da | | Load_Top At_Offset_2 01ba 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01bb 7010 |p | Jump_Nonzero 0x1cc 01bc 00da | | Load_Top At_Offset_2 01bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01be 00db | | Load_Top At_Offset_3 01bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c0 0227 | ' | Execute Access,All_Reference 01c1 01dc | | Execute Vector,Last 01c2 027e | ~ | Execute Discrete,Not_Equal 01c3 6808 |h | Jump_Zero 0x1cc 01c4 00da | | Load_Top At_Offset_2 01c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c6 0a01 | | Execute_Immediate Plus,0x1 01c7 00db | | Load_Top At_Offset_3 01c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c9 00da | | Load_Top At_Offset_2 01ca 822b | + | Call 0x1,0x2b 01cb 00d1 | | Pop_Control Pop_Count_1 01cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d5 0227 | ' | Execute Access,All_Reference 01d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01dd 022d | - | Execute Access,Is_Null 01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 e005 | | Load 0x0,0x5 01e5 180d | | Execute Package,Field_Execute,Field_Number 0xd 01e6 e5fe | | Load 0x2,-0x2 01e7 026e | n | Execute Discrete,Modulo 01e8 0274 | t | Execute Discrete,Absolute_Value 01e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ea 0000 0000 | | .BLANK 0000[0x6] 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 00cf | | Action Mark_Auxiliary 01f4 00db | | Load_Top At_Offset_3 01f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f6 e5ff | | Load 0x2,-0x1 01f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f8 0227 | ' | Execute Access,All_Reference 01f9 01d7 | | Execute Vector,Field_Read 01fa e5ff | | Load 0x2,-0x1 01fb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01fc 00db | | Load_Top At_Offset_3 01fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01fe 700f |p | Jump_Nonzero 0x20e 01ff 00db | | Load_Top At_Offset_3 0200 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0201 e5ff | | Load 0x2,-0x1 0202 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0203 0227 | ' | Execute Access,All_Reference 0204 01dc | | Execute Vector,Last 0205 027f | | Execute Discrete,Equal 0206 7007 |p | Jump_Nonzero 0x20e 0207 00db | | Load_Top At_Offset_3 0208 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0209 0a01 | | Execute_Immediate Plus,0x1 020a e5ff | | Load 0x2,-0x1 020b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 020c 00c9 | | Action Pop_Auxiliary_Loop 020d 7fe6 | | Jump 0x1f4 020e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020f 0000 | | .XXX[0x1] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0216 | | .CONST 0x0216 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 e5ff | | Load 0x2,-0x1 0214 e005 | | Load 0x0,0x5 0215 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0216 BODY_0210: 0216 00cf | | Action Mark_Auxiliary 0217 7813 |x | Jump 0x22b 0218 e403 | | Load 0x2,0x3 0219 0227 | ' | Execute Access,All_Reference 021a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021b 0227 | ' | Execute Access,All_Reference 021c e005 | | Load 0x0,0x5 021d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 021e 00da | | Load_Top At_Offset_2 021f 01df | | Execute Vector,Equal 0220 6805 |h | Jump_Zero 0x226 0221 e403 | | Load 0x2,0x3 0222 0227 | ' | Execute Access,All_Reference 0223 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0224 00cb | | Action Pop_Block_With_Result 0225 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0226 e403 | | Load 0x2,0x3 0227 0227 | ' | Execute Access,All_Reference 0228 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0229 a403 | | Store_Unchecked 0x2,0x3 022a 00c9 | | Action Pop_Auxiliary_Loop 022b e403 | | Load 0x2,0x3 022c 77eb |w | Jump_Nonzero 0x218 022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0236 | 6 | .CONST 0x0236 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 e5ff | | Load 0x2,-0x1 0234 e005 | | Load 0x0,0x5 0235 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0236 BODY_0230: 0236 00cf | | Action Mark_Auxiliary 0237 7813 |x | Jump 0x24b 0238 e402 | | Load 0x2,0x2 0239 0227 | ' | Execute Access,All_Reference 023a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023b 0227 | ' | Execute Access,All_Reference 023c e005 | | Load 0x0,0x5 023d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023e 00da | | Load_Top At_Offset_2 023f 01df | | Execute Vector,Equal 0240 6805 |h | Jump_Zero 0x246 0241 e402 | | Load 0x2,0x2 0242 0227 | ' | Execute Access,All_Reference 0243 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0244 00cb | | Action Pop_Block_With_Result 0245 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0246 e402 | | Load 0x2,0x2 0247 0227 | ' | Execute Access,All_Reference 0248 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0249 a402 | | Store_Unchecked 0x2,0x2 024a 00c9 | | Action Pop_Auxiliary_Loop 024b e402 | | Load 0x2,0x2 024c 77eb |w | Jump_Nonzero 0x238 024d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024e 0000 0000 | | .XXX[0x2] 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug Table 0250 ; -------------------------------------------------------------------------------------- 0250 0004 0002 | | .DEBUG4 0x0004,0x0002,0x18ce,0x0000,0x0001,0x0015 0256 000b 02aa | | .DBG4T 0x000b,0x02aa,0x8000,0x0000 025a 004b 02c7 | K | .DBG4T 0x004b,0x02c7,0x8000,0x8000 025e 008b 02f1 | | .DBG4T 0x008b,0x02f1,0x0002,0x0000 0262 0093 02f4 | | .DBG4T 0x0093,0x02f4,0x0002,0x0000 0266 009b 02f7 | | .DBG4T 0x009b,0x02f7,0x0002,0x4000 026a 00e3 0315 | | .DBG4T 0x00e3,0x0315,0x0002,0x4000 026e 011b 032a | *| .DBG4T 0x011b,0x032a,0x0002,0x0000 0272 012b 032f | + /| .DBG4T 0x012b,0x032f,0x0002,0x0000 0276 014b 0332 | K 2| .DBG4T 0x014b,0x0332,0x0002,0x0000 027a 015b 0335 | [ 5| .DBG4T 0x015b,0x0335,0x0002,0x0000 027e 016b 0338 | k 8| .DBG4T 0x016b,0x0338,0x0002,0x0000 0282 017b 033d | { =| .DBG4T 0x017b,0x033d,0x0002,0x0000 0286 0193 0342 | B| .DBG4T 0x0193,0x0342,0x0002,0x0000 028a 019b 0345 | E| .DBG4T 0x019b,0x0345,0x0001,0x0000 028e 01b3 034c | L| .DBG4T 0x01b3,0x034c,0x0001,0x0000 0292 01d3 0352 | R| .DBG4T 0x01d3,0x0352,0x0002,0x0000 0296 01db 0355 | U| .DBG4T 0x01db,0x0355,0x0002,0x0000 029a 01e3 0358 | X| .DBG4T 0x01e3,0x0358,0x0002,0x0000 029e 01f3 035b | [| .DBG4T 0x01f3,0x035b,0x0001,0x4000 02a2 0213 0363 | c| .DBG4T 0x0213,0x0363,0x0004,0x4000 02a6 0233 036e | 3 n| .DBG4T 0x0233,0x036e,0x0004,0x4000 02aa ; -------------------------------------------------------------------------------------- 02aa ; Debug chain 02aa ; -------------------------------------------------------------------------------------- 02aa 001b 0000 | | .DBGLEN 0x001b,0x0000 02ac 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0037,0x003b,0x003d,0x0041,0x0043,0x0044 02c7 ; -------------------------------------------------------------------------------------- 02c7 ; Debug chain 02c7 ; -------------------------------------------------------------------------------------- 02c7 0014 0000 | | .DBGLEN 0x0014,0x0000 02c9 004b 0053 | K S| .DBGLNO 0x004b,0x0053,0x0058,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e 02dd 0001 0003 | | .XXX[0x14] 02df 0004 0005 | | 02e1 0006 0008 | | 02e3 0009 000a | | 02e5 000b 000c | | 02e7 000d 000e | | 02e9 000f 0010 | | 02eb 0011 0012 | | 02ed 0013 0014 | | 02ef 0015 0016 | | 02f1 ; -------------------------------------------------------------------------------------- 02f1 ; Debug chain 02f1 ; -------------------------------------------------------------------------------------- 02f1 0000 0001 | | .DBGLEN 0x0000,0x0001 02f3 008b | | .DBGLNO 0x008b 02f4 ; -------------------------------------------------------------------------------------- 02f4 ; Debug chain 02f4 ; -------------------------------------------------------------------------------------- 02f4 0000 0001 | | .DBGLEN 0x0000,0x0001 02f6 0093 | | .DBGLNO 0x0093 02f7 ; -------------------------------------------------------------------------------------- 02f7 ; Debug chain 02f7 ; -------------------------------------------------------------------------------------- 02f7 0002 000d | | .DBGLEN 0x0002,0x000d 02f9 009b 00a9 | | .DBGLNO 0x009b,0x00a9,0x00ac,0x00af,0x00b1,0x00b3,0x00b7,0x00be,0x00c2,0x00c7,0x00ca,0x00cd,0x00d3,0x00d7,0x00d9 0308 0001 0002 | | .XXX[0xd] 030a 0003 0004 | | 030c 0006 0007 | | 030e 0008 0005 | | 0310 0009 000a | | 0312 000b 000c | | 0314 000d | | 0315 ; -------------------------------------------------------------------------------------- 0315 ; Debug chain 0315 ; -------------------------------------------------------------------------------------- 0315 0001 0009 | | .DBGLEN 0x0001,0x0009 0317 00e3 00f2 | | .DBGLNO 0x00e3,0x00f2,0x00f5,0x00f7,0x00f9,0x00fd,0x0104,0x0108,0x010d,0x0110 0321 0001 0002 | | .XXX[0x9] 0323 0003 0004 | | 0325 0006 0007 | | 0327 0008 0005 | | 0329 0009 | | 032a ; -------------------------------------------------------------------------------------- 032a ; Debug chain 032a ; -------------------------------------------------------------------------------------- 032a 0000 0003 | | .DBGLEN 0x0000,0x0003 032c 011b 011f | | .DBGLNO 0x011b,0x011f,0x0123 032f ; -------------------------------------------------------------------------------------- 032f ; Debug chain 032f ; -------------------------------------------------------------------------------------- 032f 0000 0001 | | .DBGLEN 0x0000,0x0001 0331 012b | + | .DBGLNO 0x012b 0332 ; -------------------------------------------------------------------------------------- 0332 ; Debug chain 0332 ; -------------------------------------------------------------------------------------- 0332 0000 0001 | | .DBGLEN 0x0000,0x0001 0334 014b | K | .DBGLNO 0x014b 0335 ; -------------------------------------------------------------------------------------- 0335 ; Debug chain 0335 ; -------------------------------------------------------------------------------------- 0335 0000 0001 | | .DBGLEN 0x0000,0x0001 0337 015b | [ | .DBGLNO 0x015b 0338 ; -------------------------------------------------------------------------------------- 0338 ; Debug chain 0338 ; -------------------------------------------------------------------------------------- 0338 0000 0003 | | .DBGLEN 0x0000,0x0003 033a 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x0171 033d ; -------------------------------------------------------------------------------------- 033d ; Debug chain 033d ; -------------------------------------------------------------------------------------- 033d 0000 0003 | | .DBGLEN 0x0000,0x0003 033f 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0181 0342 ; -------------------------------------------------------------------------------------- 0342 ; Debug chain 0342 ; -------------------------------------------------------------------------------------- 0342 0000 0001 | | .DBGLEN 0x0000,0x0001 0344 0193 | | .DBGLNO 0x0193 0345 ; -------------------------------------------------------------------------------------- 0345 ; Debug chain 0345 ; -------------------------------------------------------------------------------------- 0345 0001 0004 | | .DBGLEN 0x0001,0x0004 0347 019b 019d | | .DBGLNO 0x019b,0x019d,0x01a0,0x01a3,0x01a6 034c ; -------------------------------------------------------------------------------------- 034c ; Debug chain 034c ; -------------------------------------------------------------------------------------- 034c 0000 0004 | | .DBGLEN 0x0000,0x0004 034e 01b3 01b9 | | .DBGLNO 0x01b3,0x01b9,0x01c4,0x01c9 0352 ; -------------------------------------------------------------------------------------- 0352 ; Debug chain 0352 ; -------------------------------------------------------------------------------------- 0352 0000 0001 | | .DBGLEN 0x0000,0x0001 0354 01d3 | | .DBGLNO 0x01d3 0355 ; -------------------------------------------------------------------------------------- 0355 ; Debug chain 0355 ; -------------------------------------------------------------------------------------- 0355 0000 0001 | | .DBGLEN 0x0000,0x0001 0357 01db | | .DBGLNO 0x01db 0358 ; -------------------------------------------------------------------------------------- 0358 ; Debug chain 0358 ; -------------------------------------------------------------------------------------- 0358 0000 0001 | | .DBGLEN 0x0000,0x0001 035a 01e3 | | .DBGLNO 0x01e3 035b ; -------------------------------------------------------------------------------------- 035b ; Debug chain 035b ; -------------------------------------------------------------------------------------- 035b 0000 0003 | | .DBGLEN 0x0000,0x0003 035d 01f4 01fc | | .DBGLNO 0x01f4,0x01fc,0x0207 0360 0002 0003 | | .XXX[0x3] 0362 0004 | | 0363 ; -------------------------------------------------------------------------------------- 0363 ; Debug chain 0363 ; -------------------------------------------------------------------------------------- 0363 0001 0004 | | .DBGLEN 0x0001,0x0004 0365 0213 0218 | | .DBGLNO 0x0213,0x0218,0x0221,0x0226,0x022b 036a 0002 0003 | | .XXX[0x4] 036c 0004 0001 | | 036e ; -------------------------------------------------------------------------------------- 036e ; Debug chain 036e ; -------------------------------------------------------------------------------------- 036e 0001 0004 | | .DBGLEN 0x0001,0x0004 0370 0233 0238 | 3 8| .DBGLNO 0x0233,0x0238,0x0241,0x0246,0x024b 0375 0002 0003 | | .XXX[0x4] 0377 0004 0001 | | 0379 0000 0000 | | .BLANK 0000[0x87]