|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0278 | x | .CONST 0x0278 ; 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 004d | M | .CONST 0x004d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0011 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0015 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0017 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0019 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 001b 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001d 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 001f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0021 e003 | | Load 0x0,0x3 0022 00d8 | | Load_Top At_Offset_0 0023 e004 | | Load 0x0,0x4 0024 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0025 e005 | | Load 0x0,0x5 0026 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 0028 4804 |H | Short_Literal 0x4 0029 032e | . | Declare_Type Record,Defined,Visible 002a 00e1 | | Load_Encached Boolean_Cache 002b 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 002d 4801 |H | Short_Literal 0x1 002e 032e | . | Declare_Type Record,Defined,Visible 002f 00bf | | Action Accept_Activation 0030 e002 | | Load 0x0,0x2 0031 0a01 | | Execute_Immediate Plus,0x1 0032 e001 | | Load 0x0,0x1 0033 01d7 | | Execute Vector,Field_Read 0034 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address 0035 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0036 00c7 | | Action Elaborate_Subprogram 0037 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0038 00c7 | | Action Elaborate_Subprogram 0039 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003a 00c7 | | Action Elaborate_Subprogram 003b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003c 00c7 | | Action Elaborate_Subprogram 003d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003e 00c7 | | Action Elaborate_Subprogram 003f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0040 00c7 | | Action Elaborate_Subprogram 0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0042 00c7 | | Action Elaborate_Subprogram 0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0044 00c7 | | Action Elaborate_Subprogram 0045 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0046 00c7 | | Action Elaborate_Subprogram 0047 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0048 00c7 | | Action Elaborate_Subprogram 0049 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004a 00c7 | | Action Elaborate_Subprogram 004b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004c 00c7 | | Action Elaborate_Subprogram 004d BODY_0008: 004d 00bc | | Action Signal_Activated 004e 00bb | | Action Signal_Completion 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0066 | f | .CONST 0x0066 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0006 | | .CONST 0x0006 ; Number of locals 0053 INIT_0050: 0053 e5fa | | Load 0x2,-0x6 0054 0217 | | Execute Heap_Access,All_Reference 0055 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 0056 0007 | | Action Break_Optional 0057 e006 | | Load 0x0,0x6 0058 6805 |h | Jump_Zero 0x5e 0059 e5fa | | Load 0x2,-0x6 005a 0217 | | Execute Heap_Access,All_Reference 005b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 005c 0e0b | | Execute_Immediate Not_Equal,0xb 005d 7802 |x | Jump 0x60 005e 4800 |H | Short_Literal 0x0 005f 0007 | | Action Break_Optional 0060 e004 | | Load 0x0,0x4 0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0062 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0064 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 0066 BODY_0050: 0066 00db | | Load_Top At_Offset_3 0067 7003 |p | Jump_Nonzero 0x6b 0068 e5ff | | Load 0x2,-0x1 0069 8405 | | Call 0x2,0x5 006a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 006b e5fa | | Load 0x2,-0x6 006c 0217 | | Execute Heap_Access,All_Reference 006d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 006e 0f09 | | Execute_Immediate Equal,0x9 006f 681d |h | Jump_Zero 0x8d 0070 e5fa | | Load 0x2,-0x6 0071 0217 | | Execute Heap_Access,All_Reference 0072 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0073 821a | | Call 0x1,0x1a 0074 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0075 00da | | Load_Top At_Offset_2 0076 6808 |h | Jump_Zero 0x7f 0077 4ffd |O | Short_Literal -0x3 0078 e5fa | | Load 0x2,-0x6 0079 e404 | | Load 0x2,0x4 007a 8009 | | Call 0x0,0x9 007b 00da | | Load_Top At_Offset_2 007c e402 | | Load 0x2,0x2 007d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 007e 780e |x | Jump 0x8d 007f 4801 |H | Short_Literal 0x1 0080 e5fa | | Load 0x2,-0x6 0081 0217 | | Execute Heap_Access,All_Reference 0082 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd 0083 e5fc | | Load 0x2,-0x4 0084 4800 |H | Short_Literal 0x0 0085 e5fa | | Load 0x2,-0x6 0086 0217 | | Execute Heap_Access,All_Reference 0087 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0088 802c | , | Call 0x0,0x2c 0089 e402 | | Load 0x2,0x2 008a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 008b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 008d e5ff | | Load 0x2,-0x1 008e 8405 | | Call 0x2,0x5 008f 4801 |H | Short_Literal 0x1 0090 e5fa | | Load 0x2,-0x6 0091 0217 | | Execute Heap_Access,All_Reference 0092 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb 0093 e5fa | | Load 0x2,-0x6 0094 0217 | | Execute Heap_Access,All_Reference 0095 2c08 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8 0096 0f00 | | Execute_Immediate Equal,0x0 0097 6804 |h | Jump_Zero 0x9c 0098 600b |` | Indirect_Literal Discrete,0xa4,{0xffffffff, 0x80000001} 0099 e007 | | Load 0x0,0x7 009a e5fa | | Load 0x2,-0x6 009b 8008 | | Call 0x0,0x8 009c e402 | | Load 0x2,0x2 009d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 009e e5fc | | Load 0x2,-0x4 009f e5fa | | Load 0x2,-0x6 00a0 8406 | | Call 0x2,0x6 00a1 00d1 | | Pop_Control Pop_Count_1 00a2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00a3 0000 | | .XXX[0x1] 00a4 ffff ffff | | .LITERAL {0xffffffff, 0x80000001} 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b3 | | .CONST 0x00b3 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0004 | | .CONST 0x0004 ; Number of locals 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 0217 | | Execute Heap_Access,All_Reference 00ad 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 00ae 0007 | | Action Break_Optional 00af 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 00b1 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 00b3 BODY_00a8: 00b3 e5fe | | Load 0x2,-0x2 00b4 00d8 | | Load_Top At_Offset_0 00b5 4ffd |O | Short_Literal -0x3 00b6 4802 |H | Short_Literal 0x2 00b7 0262 | b | Execute Discrete,In_Range 00b8 6841 |hA | Jump_Zero 0xfa 00b9 0a03 | | Execute_Immediate Plus,0x3 00ba 4605 |F | Jump_Case 0x6 00bb 781d |x | Jump 0xd9 ; case 0x0 00bc 7832 |x2 | Jump 0xef ; case 0x1 00bd 782c |x, | Jump 0xea ; case 0x2 00be 7807 |x | Jump 0xc6 ; case 0x3 00bf 7825 |x% | Jump 0xe5 ; case 0x4 00c0 7800 |x | Jump 0xc1 ; case 0x5 00c1 00da | | Load_Top At_Offset_2 00c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c3 8403 | | Call 0x2,0x3 00c4 00d1 | | Pop_Control Pop_Count_1 00c5 7836 |x6 | Jump 0xfc 00c6 e5fc | | Load 0x2,-0x4 00c7 e5fd | | Load 0x2,-0x3 00c8 e5ff | | Load 0x2,-0x1 00c9 0217 | | Execute Heap_Access,All_Reference 00ca 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 00cb 800a | | Call 0x0,0xa 00cc e5ff | | Load 0x2,-0x1 00cd 0217 | | Execute Heap_Access,All_Reference 00ce 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb 00cf 6805 |h | Jump_Zero 0xd5 00d0 e5fc | | Load 0x2,-0x4 00d1 4ffe |O | Short_Literal -0x2 00d2 e5ff | | Load 0x2,-0x1 00d3 800b | | Call 0x0,0xb 00d4 7827 |x' | Jump 0xfc 00d5 e5fd | | Load 0x2,-0x3 00d6 e5ff | | Load 0x2,-0x1 00d7 800c | | Call 0x0,0xc 00d8 7823 |x# | Jump 0xfc 00d9 e5fc | | Load 0x2,-0x4 00da e5fd | | Load 0x2,-0x3 00db e5ff | | Load 0x2,-0x1 00dc 0217 | | Execute Heap_Access,All_Reference 00dd 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 00de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00df 800d | | Call 0x0,0xd 00e0 e5fc | | Load 0x2,-0x4 00e1 4ffe |O | Short_Literal -0x2 00e2 e5ff | | Load 0x2,-0x1 00e3 800b | | Call 0x0,0xb 00e4 7817 |x | Jump 0xfc 00e5 00da | | Load_Top At_Offset_2 00e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e7 8403 | | Call 0x2,0x3 00e8 00d1 | | Pop_Control Pop_Count_1 00e9 7812 |x | Jump 0xfc 00ea 00da | | Load_Top At_Offset_2 00eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ec 8404 | | Call 0x2,0x4 00ed 00d1 | | Pop_Control Pop_Count_1 00ee 780d |x | Jump 0xfc 00ef 00da | | Load_Top At_Offset_2 00f0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f1 8404 | | Call 0x2,0x4 00f2 00d1 | | Pop_Control Pop_Count_1 00f3 e5fc | | Load 0x2,-0x4 00f4 e5fd | | Load 0x2,-0x3 00f5 e5ff | | Load 0x2,-0x1 00f6 0217 | | Execute Heap_Access,All_Reference 00f7 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa 00f8 800d | | Call 0x0,0xd 00f9 7802 |x | Jump 0xfc 00fa 00d1 | | Pop_Control Pop_Count_1 00fb 08e2 | | Execute_Immediate Raise,0xe2 00fc e5ff | | Load 0x2,-0x1 00fd 0217 | | Execute Heap_Access,All_Reference 00fe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00ff 0f0b | | Execute_Immediate Equal,0xb 0100 680c |h | Jump_Zero 0x10d 0101 e5ff | | Load 0x2,-0x1 0102 0217 | | Execute Heap_Access,All_Reference 0103 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 0104 e005 | | Load 0x0,0x5 0105 021e | | Execute Heap_Access,Maximum 0106 6806 |h | Jump_Zero 0x10d 0107 e5fc | | Load 0x2,-0x4 0108 e5fd | | Load 0x2,-0x3 0109 e5ff | | Load 0x2,-0x1 010a 0217 | | Execute Heap_Access,All_Reference 010b 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 010c 800a | | Call 0x0,0xa 010d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00db | | Load_Top At_Offset_3 0114 0b01 | | Execute_Immediate Case_Compare,0x1 0115 700e |p | Jump_Nonzero 0x124 0116 0b02 | | Execute_Immediate Case_Compare,0x2 0117 7015 |p | Jump_Nonzero 0x12d 0118 4ffe |O | Short_Literal -0x2 0119 4fff |O | Short_Literal -0x1 011a 0262 | b | Execute Discrete,In_Range 011b 701a |p | Jump_Nonzero 0x136 011c e00e | | Load 0x0,0xe 011d 180e | | Execute Package,Field_Execute,Field_Number 0xe 011e 4807 |H | Short_Literal 0x7 011f 0092 025a | Z| Action Push_String_Extended,0x25a ; "Invalid id in register coverage for a loop stmt" 0121 e00f | | Load 0x0,0xf 0122 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0123 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0124 00d1 | | Pop_Control Pop_Count_1 0125 e010 | | Load 0x0,0x10 0126 00db | | Load_Top At_Offset_3 0127 0217 | | Execute Heap_Access,All_Reference 0128 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 0129 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012b 8011 | | Call 0x0,0x11 012c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 012d 00d1 | | Pop_Control Pop_Count_1 012e e010 | | Load 0x0,0x10 012f 00db | | Load_Top At_Offset_3 0130 0217 | | Execute Heap_Access,All_Reference 0131 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 0132 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0133 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0134 8011 | | Call 0x0,0x11 0135 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0136 00db | | Load_Top At_Offset_3 0137 0275 | u | Execute Discrete,Unary_Minus 0138 00db | | Load_Top At_Offset_3 0139 820f | | Call 0x1,0xf 013a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 0217 | | Execute Heap_Access,All_Reference 0145 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0146 0e0b | | Execute_Immediate Not_Equal,0xb 0147 6802 |h | Jump_Zero 0x14a 0148 4802 |H | Short_Literal 0x2 0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014a 4801 |H | Short_Literal 0x1 014b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 0217 | | Execute Heap_Access,All_Reference 0155 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0156 0e0b | | Execute_Immediate Not_Equal,0xb 0157 6804 |h | Jump_Zero 0x15c 0158 e5fd | | Load 0x2,-0x3 0159 e5fe | | Load 0x2,-0x2 015a e5ff | | Load 0x2,-0x1 015b 8008 | | Call 0x0,0x8 015c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 0217 | | Execute Heap_Access,All_Reference 0165 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0166 0e09 | | Execute_Immediate Not_Equal,0x9 0167 6805 |h | Jump_Zero 0x16d 0168 e5fd | | Load 0x2,-0x3 0169 e5fe | | Load 0x2,-0x2 016a e5ff | | Load 0x2,-0x1 016b 8012 | | Call 0x0,0x12 016c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 016d 00db | | Load_Top At_Offset_3 016e 0219 | | Execute Heap_Access,All_Read 016f 00d8 | | Load_Top At_Offset_0 0170 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa 0171 e013 | | Load 0x0,0x13 0172 e5ff | | Load 0x2,-0x1 0173 0217 | | Execute Heap_Access,All_Reference 0174 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 0175 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0176 8014 | | Call 0x0,0x14 0177 00d9 | | Load_Top At_Offset_1 0178 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa 0179 00d1 | | Pop_Control Pop_Count_1 017a e013 | | Load 0x0,0x13 017b e5fd | | Load 0x2,-0x3 017c e5fe | | Load 0x2,-0x2 017d 8015 | | Call 0x0,0x15 017e 00db | | Load_Top At_Offset_3 017f 0217 | | Execute Heap_Access,All_Reference 0180 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 0181 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0182 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0183 0000 0000 | | .BLANK 0000[0x5] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 8016 | | Call 0x0,0x16 018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018e 0000 0000 | | .XXX[0x2] 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 4801 |H | Short_Literal 0x1 0194 e5fd | | Load 0x2,-0x3 0195 0217 | | Execute Heap_Access,All_Reference 0196 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0197 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0198 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a7 | | .CONST 0x01a7 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 0217 | | Execute Heap_Access,All_Reference 01a5 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 01a6 0007 | | Action Break_Optional 01a7 BODY_01a0: 01a7 00d8 | | Load_Top At_Offset_0 01a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a9 680d |h | Jump_Zero 0x1b7 01aa 00db | | Load_Top At_Offset_3 01ab 0217 | | Execute Heap_Access,All_Reference 01ac 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 01ad 0217 | | Execute Heap_Access,All_Reference 01ae 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 01af 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01b0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b1 8017 | | Call 0x0,0x17 01b2 7004 |p | Jump_Nonzero 0x1b7 01b3 4800 |H | Short_Literal 0x0 01b4 00d9 | | Load_Top At_Offset_1 01b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b7 4801 |H | Short_Literal 0x1 01b8 e5ff | | Load 0x2,-0x1 01b9 0217 | | Execute Heap_Access,All_Reference 01ba 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c9 | | .CONST 0x01c9 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 0217 | | Execute Heap_Access,All_Reference 01c5 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 01c6 0217 | | Execute Heap_Access,All_Reference 01c7 2614 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x14 01c8 0007 | | Action Break_Optional 01c9 BODY_01c0: 01c9 00db | | Load_Top At_Offset_3 01ca 0217 | | Execute Heap_Access,All_Reference 01cb 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cd 6804 |h | Jump_Zero 0x1d2 01ce 00d8 | | Load_Top At_Offset_0 01cf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d2 00d8 | | Load_Top At_Offset_0 01d3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d6 0000 0000 | | .XXX[0x2] 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 0217 | | Execute Heap_Access,All_Reference 01dd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01f3 | | .CONST 0x01f3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0006 | | .CONST 0x0006 ; Number of locals 01e3 INIT_01e0: 01e3 e003 | | Load 0x0,0x3 01e4 0322 | " | Declare_Variable Record 01e5 00d8 | | Load_Top At_Offset_0 01e6 1c00 | | Execute_Immediate Run_Utility,0x0 01e7 e018 | | Load 0x0,0x18 01e8 0322 | " | Declare_Variable Record 01e9 e7ff | | Load 0x3,-0x1 01ea 8019 | | Call 0x0,0x19 01eb 00d9 | | Load_Top At_Offset_1 01ec 017d | } | Execute Record,Structure_Write 01ed 00d8 | | Load_Top At_Offset_0 01ee 801a | | Call 0x0,0x1a 01ef 00e2 | | Load_Encached Integer_Cache 01f0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01f1 e01b | | Load 0x0,0x1b 01f2 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 01f3 BODY_01e0: 01f3 e403 | | Load 0x2,0x3 01f4 6802 |h | Jump_Zero 0x1f7 01f5 4fff |O | Short_Literal -0x1 01f6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01f7 e5fa | | Load 0x2,-0x6 01f8 0217 | | Execute Heap_Access,All_Reference 01f9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01fa 0f0b | | Execute_Immediate Equal,0xb 01fb 6802 |h | Jump_Zero 0x1fe 01fc 4803 |H | Short_Literal 0x3 01fd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01fe e602 | | Load 0x3,0x2 01ff 00d9 | | Load_Top At_Offset_1 0200 e5fb | | Load 0x2,-0x5 0201 e605 | | Load 0x3,0x5 0202 e5fc | | Load 0x2,-0x4 0203 e5fa | | Load 0x2,-0x6 0204 00d8 | | Load_Top At_Offset_0 0205 e604 | | Load 0x3,0x4 0206 e603 | | Load 0x3,0x3 0207 801c | | Call 0x0,0x1c 0208 00d1 | | Pop_Control Pop_Count_1 0209 e602 | | Load 0x3,0x2 020a e402 | | Load 0x2,0x2 020b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 e7fd | | Load 0x3,-0x3 0214 e007 | | Load 0x0,0x7 0215 e7fe | | Load 0x3,-0x2 0216 4ffe |O | Short_Literal -0x2 0217 e7ff | | Load 0x3,-0x1 0218 801d | | Call 0x0,0x1d 0219 4503 |E | Exit_Suprogram New_Top_Offset 0x3 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e5fe | | Load 0x2,-0x2 0224 e5fd | | Load 0x2,-0x3 0225 e7ff | | Load 0x3,-0x1 0226 e5ff | | Load 0x2,-0x1 0227 801e | | Call 0x0,0x1e 0228 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0229 0000 0000 | | .BLANK 0000[0x7] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 e5fc | | Load 0x2,-0x4 0234 e5fe | | Load 0x2,-0x2 0235 e5ff | | Load 0x2,-0x1 0236 e7ff | | Load 0x3,-0x1 0237 801f | | Call 0x0,0x1f 0238 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0239 0000 0000 | | .BLANK 0000[0x7] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 4601 |F | Jump_Case 0x2 0244 7801 |x | Jump 0x246 ; case 0x0 0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0246 00da | | Load_Top At_Offset_2 0247 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0248 1c00 | | Execute_Immediate Run_Utility,0x0 0249 00da | | Load_Top At_Offset_2 024a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 024b 1c00 | | Execute_Immediate Run_Utility,0x0 024c 4800 |H | Short_Literal 0x0 024d 00db | | Load_Top At_Offset_3 024e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 024f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 4601 |F | Jump_Case 0x2 0254 7801 |x | Jump 0x256 ; case 0x0 0255 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0256 4800 |H | Short_Literal 0x0 0257 00db | | Load_Top At_Offset_3 0258 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0259 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 025a ; -------------------------------------------------------------------------------------- 025a ; STRING TABLE 025a ; -------------------------------------------------------------------------------------- 025a 0004 | | .STRTAB 0x0004->0x025c ; "Invalid id in register coverage for a loop stmt" 025b 0031 | 1 | .STREND 0x0031->0x0273 025c 496e 7661 |Inva| .STRTAB_STRINGS 0274 0000 0000 | | .BLANK 0000[0x4] 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug Table 0278 ; -------------------------------------------------------------------------------------- 0278 0004 000a | | .DEBUG4 0x0004,0x000a,0xa2f7,0x0000,0x0001,0x0000 027e 0000 0000 | | .BLANK 0000[0x182]