|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_9c60c7
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01f0 | | .CONST 0x01f0 ; 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 003f | ? | .CONST 0x003f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0013 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0015 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0019 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001b 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 001d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0021 0093 0000 | | push_full_address 0x0 0023 6030 |`0 | Indirect_Literal Discrete,0x54,{0x80000000, 0x00010000} 0024 0273 | s | Execute Discrete,Plus 0025 0129 | ) | Execute Any,Make_Visible 0026 00bf | | Action Accept_Activation 0027 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0028 00c7 | | Action Elaborate_Subprogram 0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002a 00c7 | | Action Elaborate_Subprogram 002b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002c 00c7 | | Action Elaborate_Subprogram 002d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002e 00c7 | | Action Elaborate_Subprogram 002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0030 00c7 | | Action Elaborate_Subprogram 0031 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0033 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0034 00c7 | | Action Elaborate_Subprogram 0035 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0036 00c7 | | Action Elaborate_Subprogram 0037 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0038 00c7 | | Action Elaborate_Subprogram 0039 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003a 00c7 | | Action Elaborate_Subprogram 003b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003c 00c7 | | Action Elaborate_Subprogram 003d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003e 00c7 | | Action Elaborate_Subprogram 003f BODY_0008: 003f 00bc | | Action Signal_Activated 0040 00bb | | Action Signal_Completion 0041 0000 0000 | | .BLANK 0000[0x7] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 004c 00d8 | | Load_Top At_Offset_0 004d e002 | | Load 0x0,0x2 004e 0260 | ` | Execute Discrete,In_Type 004f 7001 |p | Jump_Nonzero 0x51 0050 0801 | | Execute_Immediate Raise,0x1 0051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0052 0000 0000 | | .XXX[0x2] 0054 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c 00d8 | | Load_Top At_Offset_0 005d 00e8 | | Load_Encached Character_Cache 005e 0260 | ` | Execute Discrete,In_Type 005f 7001 |p | Jump_Nonzero 0x61 0060 0801 | | Execute_Immediate Raise,0x1 0061 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c 48ff |H | Short_Literal 0xff 006d 027d | } | Execute Discrete,Greater 006e 6802 |h | Jump_Zero 0x71 006f e218 | | Load 0x1,0x18 0070 0257 | W | Execute Discrete,Raise 0071 00da | | Load_Top At_Offset_2 0072 00d8 | | Load_Top At_Offset_0 0073 e002 | | Load 0x0,0x2 0074 0260 | ` | Execute Discrete,In_Type 0075 7001 |p | Jump_Nonzero 0x77 0076 0801 | | Execute_Immediate Raise,0x1 0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c 00d8 | | Load_Top At_Offset_0 007d 00e3 | | Load_Encached Natural_Cache 007e 0260 | ` | Execute Discrete,In_Type 007f 7001 |p | Jump_Nonzero 0x81 0080 0801 | | Execute_Immediate Raise,0x1 0081 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0092 | | .CONST 0x0092 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 01dd | | Execute Vector,First 008d 00db | | Load_Top At_Offset_3 008e 01dc | | Execute Vector,Last 008f 00e9 | | Load_Encached String_Cache 0090 035b | [ | Declare_Type Array,Constrained 0091 0337 | 7 | Declare_Variable Array 0092 BODY_0088: 0092 00cf | | Action Mark_Auxiliary 0093 e5ff | | Load 0x2,-0x1 0094 01d9 | | Execute Vector,Reverse_Bounds 0095 0263 | c | Execute Discrete,Above_Bound 0096 7009 |p | Jump_Nonzero 0xa0 0097 00d8 | | Load_Top At_Offset_0 0098 e5ff | | Load 0x2,-0x1 0099 01d7 | | Execute Vector,Field_Read 009a 820e | | Call 0x1,0xe 009b 00d9 | | Load_Top At_Offset_1 009c e402 | | Load 0x2,0x2 009d 01d6 | | Execute Vector,Field_Write 009e 00c8 | | Action Pop_Auxiliary_Range 009f 3ff7 |? | Loop_Increasing 0x97 00a0 00ce | | Action Pop_Auxiliary 00a1 00d8 | | Load_Top At_Offset_0 00a2 00e9 | | Load_Encached String_Cache 00a3 01c6 | | Execute Vector,Convert_To_Formal 00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a5 0000 0000 | | .XXX[0x3] 00a7 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b2 | | .CONST 0x00b2 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 01dd | | Execute Vector,First 00ad 00db | | Load_Top At_Offset_3 00ae 01dc | | Execute Vector,Last 00af e003 | | Load 0x0,0x3 00b0 035b | [ | Declare_Type Array,Constrained 00b1 0337 | 7 | Declare_Variable Array 00b2 BODY_00a8: 00b2 00cf | | Action Mark_Auxiliary 00b3 e5ff | | Load 0x2,-0x1 00b4 01d9 | | Execute Vector,Reverse_Bounds 00b5 0263 | c | Execute Discrete,Above_Bound 00b6 7009 |p | Jump_Nonzero 0xc0 00b7 00d8 | | Load_Top At_Offset_0 00b8 e5ff | | Load 0x2,-0x1 00b9 01d7 | | Execute Vector,Field_Read 00ba 820d | | Call 0x1,0xd 00bb 00d9 | | Load_Top At_Offset_1 00bc e402 | | Load 0x2,0x2 00bd 01d6 | | Execute Vector,Field_Write 00be 00c8 | | Action Pop_Auxiliary_Range 00bf 3ff7 |? | Loop_Increasing 0xb7 00c0 00ce | | Action Pop_Auxiliary 00c1 00d8 | | Load_Top At_Offset_0 00c2 e003 | | Load 0x0,0x3 00c3 01c6 | | Execute Vector,Convert_To_Formal 00c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc 01dd | | Execute Vector,First 00cd 00db | | Load_Top At_Offset_3 00ce 01dc | | Execute Vector,Last 00cf 027f | | Execute Discrete,Equal 00d0 6806 |h | Jump_Zero 0xd7 00d1 00da | | Load_Top At_Offset_2 00d2 01dd | | Execute Vector,First 00d3 00db | | Load_Top At_Offset_3 00d4 01d7 | | Execute Vector,Field_Read 00d5 8214 | | Call 0x1,0x14 00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d7 487c |H| | Short_Literal 0x7c 00d8 00db | | Load_Top At_Offset_3 00d9 01dd | | Execute Vector,First 00da e5ff | | Load 0x2,-0x1 00db 01d7 | | Execute Vector,Field_Read 00dc 8214 | | Call 0x1,0x14 00dd 01cb | | Execute Vector,Append 00de 00db | | Load_Top At_Offset_3 00df 01dd | | Execute Vector,First 00e0 0a01 | | Execute_Immediate Plus,0x1 00e1 00d8 | | Load_Top At_Offset_0 00e2 00e2 | | Load_Encached Integer_Cache 00e3 0260 | ` | Execute Discrete,In_Type 00e4 7001 |p | Jump_Nonzero 0xe6 00e5 0801 | | Execute_Immediate Raise,0x1 00e6 e5ff | | Load 0x2,-0x1 00e7 01dc | | Execute Vector,Last 00e8 e5ff | | Load 0x2,-0x1 00e9 01cf | | Execute Vector,Slice_Read 00ea 8213 | | Call 0x1,0x13 00eb 01cc | | Execute Vector,Catenate 00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 00d8 | | Load_Top At_Offset_0 00f5 00e2 | | Load_Encached Integer_Cache 00f6 0260 | ` | Execute Discrete,In_Type 00f7 7001 |p | Jump_Nonzero 0xf9 00f8 0801 | | Execute_Immediate Raise,0x1 00f9 00e0 | | Load_Encached Standard_Cache 00fa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00fb 8004 | | Call 0x0,0x4 00fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 01dd | | Execute Vector,First 0105 00db | | Load_Top At_Offset_3 0106 01dc | | Execute Vector,Last 0107 027f | | Execute Discrete,Equal 0108 6806 |h | Jump_Zero 0x10f 0109 00da | | Load_Top At_Offset_2 010a 01dd | | Execute Vector,First 010b 00db | | Load_Top At_Offset_3 010c 01d7 | | Execute Vector,Field_Read 010d 8219 | | Call 0x1,0x19 010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010f 487c |H| | Short_Literal 0x7c 0110 00db | | Load_Top At_Offset_3 0111 01dd | | Execute Vector,First 0112 e5ff | | Load 0x2,-0x1 0113 01d7 | | Execute Vector,Field_Read 0114 8219 | | Call 0x1,0x19 0115 01cb | | Execute Vector,Append 0116 00db | | Load_Top At_Offset_3 0117 01dd | | Execute Vector,First 0118 0a01 | | Execute_Immediate Plus,0x1 0119 00d8 | | Load_Top At_Offset_0 011a 00e2 | | Load_Encached Integer_Cache 011b 0260 | ` | Execute Discrete,In_Type 011c 7001 |p | Jump_Nonzero 0x11e 011d 0801 | | Execute_Immediate Raise,0x1 011e e5ff | | Load 0x2,-0x1 011f 01dc | | Execute Vector,Last 0120 e5ff | | Load 0x2,-0x1 0121 01cf | | Execute Vector,Slice_Read 0122 8215 | | Call 0x1,0x15 0123 01cc | | Execute Vector,Catenate 0124 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 8219 | | Call 0x1,0x19 012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0141 | A | .CONST 0x0141 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 4801 |H | Short_Literal 0x1 0134 00db | | Load_Top At_Offset_3 0135 01db | | Execute Vector,Length 0136 e5fe | | Load 0x2,-0x2 0137 01db | | Execute Vector,Length 0138 0273 | s | Execute Discrete,Plus 0139 00d8 | | Load_Top At_Offset_0 013a 00e2 | | Load_Encached Integer_Cache 013b 0260 | ` | Execute Discrete,In_Type 013c 7001 |p | Jump_Nonzero 0x13e 013d 0801 | | Execute_Immediate Raise,0x1 013e e003 | | Load 0x0,0x3 013f 035b | [ | Declare_Type Array,Constrained 0140 0337 | 7 | Declare_Variable Array 0141 BODY_0130: 0141 00db | | Load_Top At_Offset_3 0142 4801 |H | Short_Literal 0x1 0143 e5ff | | Load 0x2,-0x1 0144 01db | | Execute Vector,Length 0145 00d8 | | Load_Top At_Offset_0 0146 00e2 | | Load_Encached Integer_Cache 0147 0260 | ` | Execute Discrete,In_Type 0148 7001 |p | Jump_Nonzero 0x14a 0149 0801 | | Execute_Immediate Raise,0x1 014a 00db | | Load_Top At_Offset_3 014b 01ce | | Execute Vector,Slice_Write 014c e5fe | | Load 0x2,-0x2 014d e5ff | | Load 0x2,-0x1 014e 01db | | Execute Vector,Length 014f 0a01 | | Execute_Immediate Plus,0x1 0150 00d8 | | Load_Top At_Offset_0 0151 00e2 | | Load_Encached Integer_Cache 0152 0260 | ` | Execute Discrete,In_Type 0153 7001 |p | Jump_Nonzero 0x155 0154 0801 | | Execute_Immediate Raise,0x1 0155 00da | | Load_Top At_Offset_2 0156 01dc | | Execute Vector,Last 0157 00db | | Load_Top At_Offset_3 0158 01ce | | Execute Vector,Slice_Write 0159 00d8 | | Load_Top At_Offset_0 015a e003 | | Load 0x0,0x3 015b 01c6 | | Execute Vector,Convert_To_Formal 015c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0169 | i | .CONST 0x0169 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 00e3 | | Load_Encached Natural_Cache 0164 4801 |H | Short_Literal 0x1 0165 4802 |H | Short_Literal 0x2 0166 00e9 | | Load_Encached String_Cache 0167 035b | [ | Declare_Type Array,Constrained 0168 0337 | 7 | Declare_Variable Array 0169 BODY_0160: 0169 e5ff | | Load 0x2,-0x1 016a 480f |H | Short_Literal 0xf 016b 0279 | y | Execute Discrete,And 016c 005a | Z | Store_Top Discrete,At_Offset_2 016d 00d9 | | Load_Top At_Offset_1 016e 00d8 | | Load_Top At_Offset_0 016f 0c10 | | Execute_Immediate Greater_Equal,0x10 0170 7016 |p | Jump_Nonzero 0x187 0171 460f |F | Jump_Case 0x10 0172 782f |x/ | Jump 0x1a2 ; case 0x0 0173 782e |x. | Jump 0x1a2 ; case 0x1 0174 782d |x- | Jump 0x1a2 ; case 0x2 0175 782c |x, | Jump 0x1a2 ; case 0x3 0176 782b |x+ | Jump 0x1a2 ; case 0x4 0177 782a |x* | Jump 0x1a2 ; case 0x5 0178 7829 |x) | Jump 0x1a2 ; case 0x6 0179 7828 |x( | Jump 0x1a2 ; case 0x7 017a 7827 |x' | Jump 0x1a2 ; case 0x8 017b 7826 |x& | Jump 0x1a2 ; case 0x9 017c 780c |x | Jump 0x189 ; case 0xa 017d 7810 |x | Jump 0x18e ; case 0xb 017e 7814 |x | Jump 0x193 ; case 0xc 017f 7818 |x | Jump 0x198 ; case 0xd 0180 781c |x | Jump 0x19d ; case 0xe 0181 7800 |x | Jump 0x182 ; case 0xf 0182 4846 |HF | Short_Literal 0x46 0183 4802 |H | Short_Literal 0x2 0184 00da | | Load_Top At_Offset_2 0185 01d6 | | Execute Vector,Field_Write 0186 7823 |x# | Jump 0x1aa 0187 00d1 | | Pop_Control Pop_Count_1 0188 7821 |x! | Jump 0x1aa 0189 4841 |HA | Short_Literal 0x41 018a 4802 |H | Short_Literal 0x2 018b 00da | | Load_Top At_Offset_2 018c 01d6 | | Execute Vector,Field_Write 018d 781c |x | Jump 0x1aa 018e 4842 |HB | Short_Literal 0x42 018f 4802 |H | Short_Literal 0x2 0190 00da | | Load_Top At_Offset_2 0191 01d6 | | Execute Vector,Field_Write 0192 7817 |x | Jump 0x1aa 0193 4843 |HC | Short_Literal 0x43 0194 4802 |H | Short_Literal 0x2 0195 00da | | Load_Top At_Offset_2 0196 01d6 | | Execute Vector,Field_Write 0197 7812 |x | Jump 0x1aa 0198 4844 |HD | Short_Literal 0x44 0199 4802 |H | Short_Literal 0x2 019a 00da | | Load_Top At_Offset_2 019b 01d6 | | Execute Vector,Field_Write 019c 780d |x | Jump 0x1aa 019d 4845 |HE | Short_Literal 0x45 019e 4802 |H | Short_Literal 0x2 019f 00da | | Load_Top At_Offset_2 01a0 01d6 | | Execute Vector,Field_Write 01a1 7808 |x | Jump 0x1aa 01a2 00d9 | | Load_Top At_Offset_1 01a3 00e0 | | Load_Encached Standard_Cache 01a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a5 8004 | | Call 0x0,0x4 01a6 4802 |H | Short_Literal 0x2 01a7 4802 |H | Short_Literal 0x2 01a8 00db | | Load_Top At_Offset_3 01a9 01ce | | Execute Vector,Slice_Write 01aa e5ff | | Load 0x2,-0x1 01ab 09fc | | Execute_Immediate Binary_Scale,-0x4 01ac 005a | Z | Store_Top Discrete,At_Offset_2 01ad 00d9 | | Load_Top At_Offset_1 01ae 00d8 | | Load_Top At_Offset_0 01af 0c10 | | Execute_Immediate Greater_Equal,0x10 01b0 7016 |p | Jump_Nonzero 0x1c7 01b1 460f |F | Jump_Case 0x10 01b2 782f |x/ | Jump 0x1e2 ; case 0x0 01b3 782e |x. | Jump 0x1e2 ; case 0x1 01b4 782d |x- | Jump 0x1e2 ; case 0x2 01b5 782c |x, | Jump 0x1e2 ; case 0x3 01b6 782b |x+ | Jump 0x1e2 ; case 0x4 01b7 782a |x* | Jump 0x1e2 ; case 0x5 01b8 7829 |x) | Jump 0x1e2 ; case 0x6 01b9 7828 |x( | Jump 0x1e2 ; case 0x7 01ba 7827 |x' | Jump 0x1e2 ; case 0x8 01bb 7826 |x& | Jump 0x1e2 ; case 0x9 01bc 780c |x | Jump 0x1c9 ; case 0xa 01bd 7810 |x | Jump 0x1ce ; case 0xb 01be 7814 |x | Jump 0x1d3 ; case 0xc 01bf 7818 |x | Jump 0x1d8 ; case 0xd 01c0 781c |x | Jump 0x1dd ; case 0xe 01c1 7800 |x | Jump 0x1c2 ; case 0xf 01c2 4846 |HF | Short_Literal 0x46 01c3 4801 |H | Short_Literal 0x1 01c4 00da | | Load_Top At_Offset_2 01c5 01d6 | | Execute Vector,Field_Write 01c6 7823 |x# | Jump 0x1ea 01c7 00d1 | | Pop_Control Pop_Count_1 01c8 7821 |x! | Jump 0x1ea 01c9 4841 |HA | Short_Literal 0x41 01ca 4801 |H | Short_Literal 0x1 01cb 00da | | Load_Top At_Offset_2 01cc 01d6 | | Execute Vector,Field_Write 01cd 781c |x | Jump 0x1ea 01ce 4842 |HB | Short_Literal 0x42 01cf 4801 |H | Short_Literal 0x1 01d0 00da | | Load_Top At_Offset_2 01d1 01d6 | | Execute Vector,Field_Write 01d2 7817 |x | Jump 0x1ea 01d3 4843 |HC | Short_Literal 0x43 01d4 4801 |H | Short_Literal 0x1 01d5 00da | | Load_Top At_Offset_2 01d6 01d6 | | Execute Vector,Field_Write 01d7 7812 |x | Jump 0x1ea 01d8 4844 |HD | Short_Literal 0x44 01d9 4801 |H | Short_Literal 0x1 01da 00da | | Load_Top At_Offset_2 01db 01d6 | | Execute Vector,Field_Write 01dc 780d |x | Jump 0x1ea 01dd 4845 |HE | Short_Literal 0x45 01de 4801 |H | Short_Literal 0x1 01df 00da | | Load_Top At_Offset_2 01e0 01d6 | | Execute Vector,Field_Write 01e1 7808 |x | Jump 0x1ea 01e2 00d9 | | Load_Top At_Offset_1 01e3 00e0 | | Load_Encached Standard_Cache 01e4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e5 8004 | | Call 0x0,0x4 01e6 4801 |H | Short_Literal 0x1 01e7 4801 |H | Short_Literal 0x1 01e8 00db | | Load_Top At_Offset_3 01e9 01ce | | Execute Vector,Slice_Write 01ea 4848 |HH | Short_Literal 0x48 01eb 00d9 | | Load_Top At_Offset_1 01ec 01ca | | Execute Vector,Prepend 01ed 00e9 | | Load_Encached String_Cache 01ee 01c6 | | Execute Vector,Convert_To_Formal 01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug Table 01f0 ; -------------------------------------------------------------------------------------- 01f0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x72fc,0x0000,0x0001,0x000e 01f6 000b 022e | .| .DBG4T 0x000b,0x022e,0x8000,0x8000 01fa 0027 0248 | ' H| .DBG4T 0x0027,0x0248,0x8000,0x8000 01fe 004b 0262 | K b| .DBG4T 0x004b,0x0262,0x0002,0x0000 0202 005b 0265 | [ e| .DBG4T 0x005b,0x0265,0x0002,0x0000 0206 006b 0268 | k h| .DBG4T 0x006b,0x0268,0x0002,0x0000 020a 007b 026d | { m| .DBG4T 0x007b,0x026d,0x0002,0x0000 020e 008b 0270 | p| .DBG4T 0x008b,0x0270,0x0002,0x0000 0212 00ab 0276 | v| .DBG4T 0x00ab,0x0276,0x0002,0x0000 0216 00cb 027c | || .DBG4T 0x00cb,0x027c,0x0002,0x0000 021a 00f3 0281 | | .DBG4T 0x00f3,0x0281,0x0002,0x0000 021e 0103 0284 | | .DBG4T 0x0103,0x0284,0x0002,0x0000 0222 012b 0289 | + | .DBG4T 0x012b,0x0289,0x0002,0x0000 0226 0133 028c | 3 | .DBG4T 0x0133,0x028c,0x0002,0x0000 022a 0163 0292 | c | .DBG4T 0x0163,0x0292,0x0002,0x4000 022e ; -------------------------------------------------------------------------------------- 022e ; Debug chain 022e ; -------------------------------------------------------------------------------------- 022e 000c 0000 | | .DBGLEN 0x000c,0x0000 0230 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021 023c 0002 0003 | | .XXX[0xc] 023e 0004 0005 | | 0240 0006 0007 | | 0242 0008 0009 | | 0244 000a 000b | | 0246 000c 000d | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug chain 0248 ; -------------------------------------------------------------------------------------- 0248 000c 0000 | | .DBGLEN 0x000c,0x0000 024a 0027 0029 | ' )| .DBGLNO 0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d 0256 0002 0003 | | .XXX[0xc] 0258 0004 0005 | | 025a 0006 0007 | | 025c 0008 0009 | | 025e 000a 000b | | 0260 000c 000d | | 0262 ; -------------------------------------------------------------------------------------- 0262 ; Debug chain 0262 ; -------------------------------------------------------------------------------------- 0262 0000 0001 | | .DBGLEN 0x0000,0x0001 0264 004b | K | .DBGLNO 0x004b 0265 ; -------------------------------------------------------------------------------------- 0265 ; Debug chain 0265 ; -------------------------------------------------------------------------------------- 0265 0000 0001 | | .DBGLEN 0x0000,0x0001 0267 005b | [ | .DBGLNO 0x005b 0268 ; -------------------------------------------------------------------------------------- 0268 ; Debug chain 0268 ; -------------------------------------------------------------------------------------- 0268 0000 0003 | | .DBGLEN 0x0000,0x0003 026a 006b 006f | k o| .DBGLNO 0x006b,0x006f,0x0071 026d ; -------------------------------------------------------------------------------------- 026d ; Debug chain 026d ; -------------------------------------------------------------------------------------- 026d 0000 0001 | | .DBGLEN 0x0000,0x0001 026f 007b | { | .DBGLNO 0x007b 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug chain 0270 ; -------------------------------------------------------------------------------------- 0270 0001 0003 | | .DBGLEN 0x0001,0x0003 0272 008b 0093 | | .DBGLNO 0x008b,0x0093,0x0097,0x00a1 0276 ; -------------------------------------------------------------------------------------- 0276 ; Debug chain 0276 ; -------------------------------------------------------------------------------------- 0276 0001 0003 | | .DBGLEN 0x0001,0x0003 0278 00ab 00b3 | | .DBGLNO 0x00ab,0x00b3,0x00b7,0x00c1 027c ; -------------------------------------------------------------------------------------- 027c ; Debug chain 027c ; -------------------------------------------------------------------------------------- 027c 0000 0003 | | .DBGLEN 0x0000,0x0003 027e 00cb 00d1 | | .DBGLNO 0x00cb,0x00d1,0x00d7 0281 ; -------------------------------------------------------------------------------------- 0281 ; Debug chain 0281 ; -------------------------------------------------------------------------------------- 0281 0000 0001 | | .DBGLEN 0x0000,0x0001 0283 00f3 | | .DBGLNO 0x00f3 0284 ; -------------------------------------------------------------------------------------- 0284 ; Debug chain 0284 ; -------------------------------------------------------------------------------------- 0284 0000 0003 | | .DBGLEN 0x0000,0x0003 0286 0103 0109 | | .DBGLNO 0x0103,0x0109,0x010f 0289 ; -------------------------------------------------------------------------------------- 0289 ; Debug chain 0289 ; -------------------------------------------------------------------------------------- 0289 0000 0001 | | .DBGLEN 0x0000,0x0001 028b 012b | + | .DBGLNO 0x012b 028c ; -------------------------------------------------------------------------------------- 028c ; Debug chain 028c ; -------------------------------------------------------------------------------------- 028c 0001 0003 | | .DBGLEN 0x0001,0x0003 028e 0133 0141 | 3 A| .DBGLNO 0x0133,0x0141,0x014c,0x0159 0292 ; -------------------------------------------------------------------------------------- 0292 ; Debug chain 0292 ; -------------------------------------------------------------------------------------- 0292 0002 0013 | | .DBGLEN 0x0002,0x0013 0294 0163 0164 | c d| .DBGLNO 0x0163,0x0164,0x0169,0x016d,0x0182,0x0189,0x018e,0x0193,0x0198,0x019d,0x01a2,0x01aa,0x01ad,0x01c2,0x01c9,0x01ce,0x01d3,0x01d8,0x01dd,0x01e2,0x01ea 02a9 0001 0002 | | .XXX[0x13] 02ab 0009 0004 | | 02ad 0005 0006 | | 02af 0007 0008 | | 02b1 0003 000b | | 02b3 000c 0013 | | 02b5 000e 000f | | 02b7 0010 0011 | | 02b9 0012 000d | | 02bb 0015 | | 02bc 0000 0000 | | .BLANK 0000[0x144]