|
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_0658fb
└─⟦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 0388 | | .CONST 0x0388 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 007c | | | .CONST 0x007c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0028 | ( | .CONST 0x0028 ; Number of locals 000b INIT_0008: 000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0015 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0017 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0019 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 001b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 001d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 001f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0021 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0023 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0025 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0027 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0029 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 002b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 002d 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 002f 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0031 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0033 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0035 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0037 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0039 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 003b 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 003d 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 003f 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 0041 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0043 00bf | | Action Accept_Activation 0044 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0045 00c7 | | Action Elaborate_Subprogram 0046 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0047 00c7 | | Action Elaborate_Subprogram 0048 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0049 00c7 | | Action Elaborate_Subprogram 004a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004b 00c7 | | Action Elaborate_Subprogram 004c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004d 00c7 | | Action Elaborate_Subprogram 004e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004f 00c7 | | Action Elaborate_Subprogram 0050 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0051 00c7 | | Action Elaborate_Subprogram 0052 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0053 00c7 | | Action Elaborate_Subprogram 0054 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0055 00c7 | | Action Elaborate_Subprogram 0056 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0057 00c7 | | Action Elaborate_Subprogram 0058 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0059 00c7 | | Action Elaborate_Subprogram 005a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005b 00c7 | | Action Elaborate_Subprogram 005c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005d 00c7 | | Action Elaborate_Subprogram 005e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005f 00c7 | | Action Elaborate_Subprogram 0060 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0061 00c7 | | Action Elaborate_Subprogram 0062 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0063 00c7 | | Action Elaborate_Subprogram 0064 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0065 00c7 | | Action Elaborate_Subprogram 0066 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0067 00c7 | | Action Elaborate_Subprogram 0068 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0069 00c7 | | Action Elaborate_Subprogram 006a 1d20 | | Execute_Immediate Reference_Lex_1,0x20 006b 00c7 | | Action Elaborate_Subprogram 006c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 006d 00c7 | | Action Elaborate_Subprogram 006e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 006f 00c7 | | Action Elaborate_Subprogram 0070 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0071 00c7 | | Action Elaborate_Subprogram 0072 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0073 00c7 | | Action Elaborate_Subprogram 0074 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0075 00c7 | | Action Elaborate_Subprogram 0076 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0077 00c7 | | Action Elaborate_Subprogram 0078 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0079 00c7 | | Action Elaborate_Subprogram 007a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 007b 00c7 | | Action Elaborate_Subprogram 007c BODY_0008: 007c 00bc | | Action Signal_Activated 007d 00bb | | Action Signal_Completion 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 4800 |H | Short_Literal 0x0 0084 00db | | Load_Top At_Offset_3 0085 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0086 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0087 0000 | | .XXX[0x1] 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 0227 | ' | Execute Access,All_Reference 008e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 008f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 00da | | Load_Top At_Offset_2 0094 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0096 0000 0000 | | .XXX[0x2] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c 0227 | ' | Execute Access,All_Reference 009d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 00a4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 0227 | ' | Execute Access,All_Reference 00ad 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00b5 00db | | Load_Top At_Offset_3 00b6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00b7 0272 | r | Execute Discrete,Minus 00b8 00d8 | | Load_Top At_Offset_0 00b9 00e3 | | Load_Encached Natural_Cache 00ba 0260 | ` | Execute Discrete,In_Type 00bb 7001 |p | Jump_Nonzero 0xbd 00bc 0801 | | Execute_Immediate Raise,0x1 00bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00be 0000 0000 | | .XXX[0x2] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 0227 | ' | Execute Access,All_Reference 00c5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00c6 00db | | Load_Top At_Offset_3 00c7 0227 | ' | Execute Access,All_Reference 00c8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00c9 0272 | r | Execute Discrete,Minus 00ca 00d8 | | Load_Top At_Offset_0 00cb 00e3 | | Load_Encached Natural_Cache 00cc 0260 | ` | Execute Discrete,In_Type 00cd 7001 |p | Jump_Nonzero 0xcf 00ce 0801 | | Execute_Immediate Raise,0x1 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00db | | Load_Top At_Offset_3 00d4 00db | | Load_Top At_Offset_3 00d5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00d6 027d | } | Execute Discrete,Greater 00d7 6802 |h | Jump_Zero 0xda 00d8 4800 |H | Short_Literal 0x0 00d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00da 00db | | Load_Top At_Offset_3 00db 00db | | Load_Top At_Offset_3 00dc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00dd 01d7 | | Execute Vector,Field_Read 00de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00db | | Load_Top At_Offset_3 00e4 00db | | Load_Top At_Offset_3 00e5 0227 | ' | Execute Access,All_Reference 00e6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00e7 027d | } | Execute Discrete,Greater 00e8 6802 |h | Jump_Zero 0xeb 00e9 4800 |H | Short_Literal 0x0 00ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00eb 00db | | Load_Top At_Offset_3 00ec 00db | | Load_Top At_Offset_3 00ed 0227 | ' | Execute Access,All_Reference 00ee 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00ef 01d7 | | Execute Vector,Field_Read 00f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f1 0000 0000 | | .BLANK 0000[0x7] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00fd 0c01 | | Execute_Immediate Greater_Equal,0x1 00fe 6805 |h | Jump_Zero 0x104 00ff 4801 |H | Short_Literal 0x1 0100 00db | | Load_Top At_Offset_3 0101 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0102 01d7 | | Execute Vector,Field_Read 0103 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0104 4800 |H | Short_Literal 0x0 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 0227 | ' | Execute Access,All_Reference 010d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 010e 0c01 | | Execute_Immediate Greater_Equal,0x1 010f 6806 |h | Jump_Zero 0x116 0110 4801 |H | Short_Literal 0x1 0111 00db | | Load_Top At_Offset_3 0112 0227 | ' | Execute Access,All_Reference 0113 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0114 01d7 | | Execute Vector,Field_Read 0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0116 4800 |H | Short_Literal 0x0 0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 011d 7003 |p | Jump_Nonzero 0x121 011e 4800 |H | Short_Literal 0x0 011f a5fe | | Store_Unchecked 0x2,-0x2 0120 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0121 4801 |H | Short_Literal 0x1 0122 00db | | Load_Top At_Offset_3 0123 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0124 01d7 | | Execute Vector,Field_Read 0125 a5fe | | Store_Unchecked 0x2,-0x2 0126 00da | | Load_Top At_Offset_2 0127 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0128 0aff | | Execute_Immediate Plus,-0x1 0129 00db | | Load_Top At_Offset_3 012a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 012b 4802 |H | Short_Literal 0x2 012c 00db | | Load_Top At_Offset_3 012d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 012e 0a01 | | Execute_Immediate Plus,0x1 012f 00d8 | | Load_Top At_Offset_0 0130 00e2 | | Load_Encached Integer_Cache 0131 0260 | ` | Execute Discrete,In_Type 0132 7001 |p | Jump_Nonzero 0x134 0133 0801 | | Execute_Immediate Raise,0x1 0134 e5ff | | Load 0x2,-0x1 0135 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0136 01cf | | Execute Vector,Slice_Read 0137 4801 |H | Short_Literal 0x1 0138 e5ff | | Load 0x2,-0x1 0139 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 013a e5ff | | Load 0x2,-0x1 013b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 013c 01ce | | Execute Vector,Slice_Write 013d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0144 | D | .CONST 0x0144 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 00e8 | | Load_Encached Character_Cache 0144 BODY_0140: 0144 00db | | Load_Top At_Offset_3 0145 0227 | ' | Execute Access,All_Reference 0146 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0147 7002 |p | Jump_Nonzero 0x14a 0148 4800 |H | Short_Literal 0x0 0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014a 4801 |H | Short_Literal 0x1 014b e5ff | | Load 0x2,-0x1 014c 0227 | ' | Execute Access,All_Reference 014d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 014e 01d7 | | Execute Vector,Field_Read 014f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0150 00db | | Load_Top At_Offset_3 0151 0227 | ' | Execute Access,All_Reference 0152 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0153 0aff | | Execute_Immediate Plus,-0x1 0154 e5ff | | Load 0x2,-0x1 0155 0227 | ' | Execute Access,All_Reference 0156 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0157 4802 |H | Short_Literal 0x2 0158 e5ff | | Load 0x2,-0x1 0159 0227 | ' | Execute Access,All_Reference 015a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 015b 0a01 | | Execute_Immediate Plus,0x1 015c 00d8 | | Load_Top At_Offset_0 015d 00e2 | | Load_Encached Integer_Cache 015e 0260 | ` | Execute Discrete,In_Type 015f 7001 |p | Jump_Nonzero 0x161 0160 0801 | | Execute_Immediate Raise,0x1 0161 e5ff | | Load 0x2,-0x1 0162 0227 | ' | Execute Access,All_Reference 0163 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0164 01cf | | Execute Vector,Slice_Read 0165 4801 |H | Short_Literal 0x1 0166 e5ff | | Load 0x2,-0x1 0167 0227 | ' | Execute Access,All_Reference 0168 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0169 e5ff | | Load 0x2,-0x1 016a 0229 | ) | Execute Access,All_Read 016b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 016c 01ce | | Execute Vector,Slice_Write 016d 00d8 | | Load_Top At_Offset_0 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0175 0c01 | | Execute_Immediate Greater_Equal,0x1 0176 6806 |h | Jump_Zero 0x17d 0177 00da | | Load_Top At_Offset_2 0178 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0179 00db | | Load_Top At_Offset_3 017a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 017b 01d7 | | Execute Vector,Field_Read 017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017d 4800 |H | Short_Literal 0x0 017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 0227 | ' | Execute Access,All_Reference 0185 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0186 0c01 | | Execute_Immediate Greater_Equal,0x1 0187 6808 |h | Jump_Zero 0x190 0188 00da | | Load_Top At_Offset_2 0189 0227 | ' | Execute Access,All_Reference 018a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 018b 00db | | Load_Top At_Offset_3 018c 0227 | ' | Execute Access,All_Reference 018d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 018e 01d7 | | Execute Vector,Field_Read 018f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0190 4800 |H | Short_Literal 0x0 0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0192 0000 0000 | | .BLANK 0000[0x6] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 019d 7003 |p | Jump_Nonzero 0x1a1 019e 4800 |H | Short_Literal 0x0 019f a5fe | | Store_Unchecked 0x2,-0x2 01a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a1 00da | | Load_Top At_Offset_2 01a2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01a3 00db | | Load_Top At_Offset_3 01a4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01a5 01d7 | | Execute Vector,Field_Read 01a6 a5fe | | Store_Unchecked 0x2,-0x2 01a7 00da | | Load_Top At_Offset_2 01a8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01a9 0aff | | Execute_Immediate Plus,-0x1 01aa 00db | | Load_Top At_Offset_3 01ab 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 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 0227 | ' | Execute Access,All_Reference 01b5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01b6 7002 |p | Jump_Nonzero 0x1b9 01b7 4800 |H | Short_Literal 0x0 01b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b9 00da | | Load_Top At_Offset_2 01ba 0227 | ' | Execute Access,All_Reference 01bb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01bc 0aff | | Execute_Immediate Plus,-0x1 01bd 00db | | Load_Top At_Offset_3 01be 0227 | ' | Execute Access,All_Reference 01bf 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01c0 00da | | Load_Top At_Offset_2 01c1 0227 | ' | Execute Access,All_Reference 01c2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01c3 0a01 | | Execute_Immediate Plus,0x1 01c4 00db | | Load_Top At_Offset_3 01c5 0227 | ' | Execute Access,All_Reference 01c6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01c7 01d7 | | Execute Vector,Field_Read 01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c9 0000 0000 | | .BLANK 0000[0x7] 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 e5fd | | Load 0x2,-0x3 01d4 00db | | Load_Top At_Offset_3 01d5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01d6 027d | } | Execute Discrete,Greater 01d7 6809 |h | Jump_Zero 0x1e1 01d8 00db | | Load_Top At_Offset_3 01d9 00db | | Load_Top At_Offset_3 01da 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01db e5ff | | Load 0x2,-0x1 01dc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01dd 01cf | | Execute Vector,Slice_Read 01de 0335 | 5 | Declare_Variable Array,Duplicate 01df 00cd | | Action Spare6_Action 01e0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01e1 00db | | Load_Top At_Offset_3 01e2 e5fd | | Load 0x2,-0x3 01e3 e5ff | | Load 0x2,-0x1 01e4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01e5 01cf | | Execute Vector,Slice_Read 01e6 0335 | 5 | Declare_Variable Array,Duplicate 01e7 00cd | | Action Spare6_Action 01e8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01e9 0000 0000 | | .BLANK 0000[0x7] 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 e5fd | | Load 0x2,-0x3 01f4 00db | | Load_Top At_Offset_3 01f5 0227 | ' | Execute Access,All_Reference 01f6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01f7 027d | } | Execute Discrete,Greater 01f8 680b |h | Jump_Zero 0x204 01f9 00db | | Load_Top At_Offset_3 01fa 00db | | Load_Top At_Offset_3 01fb 0227 | ' | Execute Access,All_Reference 01fc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01fd e5ff | | Load 0x2,-0x1 01fe 0227 | ' | Execute Access,All_Reference 01ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0200 01cf | | Execute Vector,Slice_Read 0201 0335 | 5 | Declare_Variable Array,Duplicate 0202 00cd | | Action Spare6_Action 0203 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0204 00db | | Load_Top At_Offset_3 0205 e5fd | | Load 0x2,-0x3 0206 e5ff | | Load 0x2,-0x1 0207 0227 | ' | Execute Access,All_Reference 0208 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0209 01cf | | Execute Vector,Slice_Read 020a 0335 | 5 | Declare_Variable Array,Duplicate 020b 00cd | | Action Spare6_Action 020c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021c | | .CONST 0x021c ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0003 | | .CONST 0x0003 ; Number of locals 0213 INIT_0210: 0213 00db | | Load_Top At_Offset_3 0214 00e3 | | Load_Encached Natural_Cache 0215 03f1 | | Declare_Variable Discrete,With_Value 0216 e5fe | | Load 0x2,-0x2 0217 e5ff | | Load 0x2,-0x1 0218 0272 | r | Execute Discrete,Minus 0219 0a01 | | Execute_Immediate Plus,0x1 021a 00e3 | | Load_Encached Natural_Cache 021b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 021c BODY_0210: 021c 00d9 | | Load_Top At_Offset_1 021d e5fd | | Load 0x2,-0x3 021e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 021f 027d | } | Execute Discrete,Greater 0220 6809 |h | Jump_Zero 0x22a 0221 e5fd | | Load 0x2,-0x3 0222 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0223 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0224 e5fd | | Load 0x2,-0x3 0225 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0226 e5ff | | Load 0x2,-0x1 0227 0272 | r | Execute Discrete,Minus 0228 0a01 | | Execute_Immediate Plus,0x1 0229 0059 | Y | Store_Top Discrete,At_Offset_1 022a e5ff | | Load 0x2,-0x1 022b 0f01 | | Execute_Immediate Equal,0x1 022c 6804 |h | Jump_Zero 0x231 022d 00d8 | | Load_Top At_Offset_0 022e e5fd | | Load 0x2,-0x3 022f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0230 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0231 e5ff | | Load 0x2,-0x1 0232 00da | | Load_Top At_Offset_2 0233 e5fd | | Load 0x2,-0x3 0234 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0235 01cf | | Execute Vector,Slice_Read 0236 4801 |H | Short_Literal 0x1 0237 00da | | Load_Top At_Offset_2 0238 e5fd | | Load 0x2,-0x3 0239 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 023a 01ce | | Execute Vector,Slice_Write 023b 00d8 | | Load_Top At_Offset_0 023c e5fd | | Load 0x2,-0x3 023d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 023e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 023f 0000 | | .XXX[0x1] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 024c | L | .CONST 0x024c ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0003 | | .CONST 0x0003 ; Number of locals 0243 INIT_0240: 0243 e5fd | | Load 0x2,-0x3 0244 00e3 | | Load_Encached Natural_Cache 0245 03f1 | | Declare_Variable Discrete,With_Value 0246 e5fd | | Load 0x2,-0x3 0247 e5fe | | Load 0x2,-0x2 0248 0272 | r | Execute Discrete,Minus 0249 0a01 | | Execute_Immediate Plus,0x1 024a 00e3 | | Load_Encached Natural_Cache 024b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 024c BODY_0240: 024c 00d9 | | Load_Top At_Offset_1 024d e5ff | | Load 0x2,-0x1 024e 0227 | ' | Execute Access,All_Reference 024f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0250 027d | } | Execute Discrete,Greater 0251 680b |h | Jump_Zero 0x25d 0252 e5ff | | Load 0x2,-0x1 0253 0227 | ' | Execute Access,All_Reference 0254 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0255 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0256 e5ff | | Load 0x2,-0x1 0257 0227 | ' | Execute Access,All_Reference 0258 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0259 e5fe | | Load 0x2,-0x2 025a 0272 | r | Execute Discrete,Minus 025b 0a01 | | Execute_Immediate Plus,0x1 025c 0059 | Y | Store_Top Discrete,At_Offset_1 025d e5fe | | Load 0x2,-0x2 025e 0f01 | | Execute_Immediate Equal,0x1 025f 6805 |h | Jump_Zero 0x265 0260 00d8 | | Load_Top At_Offset_0 0261 e5ff | | Load 0x2,-0x1 0262 0227 | ' | Execute Access,All_Reference 0263 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0264 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0265 e5fe | | Load 0x2,-0x2 0266 00da | | Load_Top At_Offset_2 0267 e5ff | | Load 0x2,-0x1 0268 0227 | ' | Execute Access,All_Reference 0269 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 026a 01cf | | Execute Vector,Slice_Read 026b 4801 |H | Short_Literal 0x1 026c 00da | | Load_Top At_Offset_2 026d e5ff | | Load 0x2,-0x1 026e 0229 | ) | Execute Access,All_Read 026f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0270 01ce | | Execute Vector,Slice_Write 0271 00d8 | | Load_Top At_Offset_0 0272 e5ff | | Load 0x2,-0x1 0273 0227 | ' | Execute Access,All_Reference 0274 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0275 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027c | | | .CONST 0x027c ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b 00e3 | | Load_Encached Natural_Cache 027c BODY_0278: 027c e5fd | | Load 0x2,-0x3 027d e5ff | | Load 0x2,-0x1 027e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 027f 027b | { | Execute Discrete,Greater_Equal 0280 6809 |h | Jump_Zero 0x28a 0281 e5fe | | Load 0x2,-0x2 0282 e5ff | | Load 0x2,-0x1 0283 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0284 e5ff | | Load 0x2,-0x1 0285 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0286 01cf | | Execute Vector,Slice_Read 0287 0335 | 5 | Declare_Variable Array,Duplicate 0288 00cd | | Action Spare6_Action 0289 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 028a e5fe | | Load 0x2,-0x2 028b e5fd | | Load 0x2,-0x3 028c 0273 | s | Execute Discrete,Plus 028d 0aff | | Execute_Immediate Plus,-0x1 028e 0059 | Y | Store_Top Discrete,At_Offset_1 028f 00d8 | | Load_Top At_Offset_0 0290 e5ff | | Load 0x2,-0x1 0291 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0292 027b | { | Execute Discrete,Greater_Equal 0293 6809 |h | Jump_Zero 0x29d 0294 e5fe | | Load 0x2,-0x2 0295 e5ff | | Load 0x2,-0x1 0296 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0297 e5ff | | Load 0x2,-0x1 0298 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0299 01cf | | Execute Vector,Slice_Read 029a 0335 | 5 | Declare_Variable Array,Duplicate 029b 00cd | | Action Spare6_Action 029c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 029d e5fe | | Load 0x2,-0x2 029e 00d9 | | Load_Top At_Offset_1 029f e5ff | | Load 0x2,-0x1 02a0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02a1 01cf | | Execute Vector,Slice_Read 02a2 0335 | 5 | Declare_Variable Array,Duplicate 02a3 00cd | | Action Spare6_Action 02a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02a5 0000 0000 | | .XXX[0x3] 02a7 0000 | | 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ac | | .CONST 0x02ac ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab 00e3 | | Load_Encached Natural_Cache 02ac BODY_02a8: 02ac e5fd | | Load 0x2,-0x3 02ad e5ff | | Load 0x2,-0x1 02ae 0227 | ' | Execute Access,All_Reference 02af 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02b0 027b | { | Execute Discrete,Greater_Equal 02b1 680b |h | Jump_Zero 0x2bd 02b2 e5fe | | Load 0x2,-0x2 02b3 e5ff | | Load 0x2,-0x1 02b4 0227 | ' | Execute Access,All_Reference 02b5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02b6 e5ff | | Load 0x2,-0x1 02b7 0227 | ' | Execute Access,All_Reference 02b8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02b9 01cf | | Execute Vector,Slice_Read 02ba 0335 | 5 | Declare_Variable Array,Duplicate 02bb 00cd | | Action Spare6_Action 02bc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02bd e5fe | | Load 0x2,-0x2 02be e5fd | | Load 0x2,-0x3 02bf 0273 | s | Execute Discrete,Plus 02c0 0aff | | Execute_Immediate Plus,-0x1 02c1 0059 | Y | Store_Top Discrete,At_Offset_1 02c2 00d8 | | Load_Top At_Offset_0 02c3 e5ff | | Load 0x2,-0x1 02c4 0227 | ' | Execute Access,All_Reference 02c5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02c6 027b | { | Execute Discrete,Greater_Equal 02c7 680b |h | Jump_Zero 0x2d3 02c8 e5fe | | Load 0x2,-0x2 02c9 e5ff | | Load 0x2,-0x1 02ca 0227 | ' | Execute Access,All_Reference 02cb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02cc e5ff | | Load 0x2,-0x1 02cd 0227 | ' | Execute Access,All_Reference 02ce 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02cf 01cf | | Execute Vector,Slice_Read 02d0 0335 | 5 | Declare_Variable Array,Duplicate 02d1 00cd | | Action Spare6_Action 02d2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02d3 e5fe | | Load 0x2,-0x2 02d4 00d9 | | Load_Top At_Offset_1 02d5 e5ff | | Load 0x2,-0x1 02d6 0227 | ' | Execute Access,All_Reference 02d7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02d8 01cf | | Execute Vector,Slice_Read 02d9 0335 | 5 | Declare_Variable Array,Duplicate 02da 00cd | | Action Spare6_Action 02db 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e7 | | .CONST 0x02e7 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0003 | | .CONST 0x0003 ; Number of locals 02e3 INIT_02e0: 02e3 00e3 | | Load_Encached Natural_Cache 02e4 e5fe | | Load 0x2,-0x2 02e5 00e3 | | Load_Encached Natural_Cache 02e6 03f1 | | Declare_Variable Discrete,With_Value 02e7 BODY_02e0: 02e7 e5fe | | Load 0x2,-0x2 02e8 e5fd | | Load 0x2,-0x3 02e9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02ea 027b | { | Execute Discrete,Greater_Equal 02eb 680a |h | Jump_Zero 0x2f6 02ec e5fd | | Load 0x2,-0x3 02ed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02ee 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02ef e5fd | | Load 0x2,-0x3 02f0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02f1 e5ff | | Load 0x2,-0x1 02f2 0272 | r | Execute Discrete,Minus 02f3 0a01 | | Execute_Immediate Plus,0x1 02f4 0059 | Y | Store_Top Discrete,At_Offset_1 02f5 7813 |x | Jump 0x309 02f6 e5ff | | Load 0x2,-0x1 02f7 e5fe | | Load 0x2,-0x2 02f8 0273 | s | Execute Discrete,Plus 02f9 0aff | | Execute_Immediate Plus,-0x1 02fa 005a | Z | Store_Top Discrete,At_Offset_2 02fb 00d9 | | Load_Top At_Offset_1 02fc e5fd | | Load 0x2,-0x3 02fd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02fe 027b | { | Execute Discrete,Greater_Equal 02ff 6809 |h | Jump_Zero 0x309 0300 e5fd | | Load 0x2,-0x3 0301 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0302 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0303 e5fd | | Load 0x2,-0x3 0304 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0305 e5ff | | Load 0x2,-0x1 0306 0272 | r | Execute Discrete,Minus 0307 0a01 | | Execute_Immediate Plus,0x1 0308 0059 | Y | Store_Top Discrete,At_Offset_1 0309 e5ff | | Load 0x2,-0x1 030a 0f01 | | Execute_Immediate Equal,0x1 030b 6804 |h | Jump_Zero 0x310 030c 00d8 | | Load_Top At_Offset_0 030d e5fd | | Load 0x2,-0x3 030e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 030f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0310 e5ff | | Load 0x2,-0x1 0311 00da | | Load_Top At_Offset_2 0312 e5fd | | Load 0x2,-0x3 0313 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0314 01cf | | Execute Vector,Slice_Read 0315 4801 |H | Short_Literal 0x1 0316 00da | | Load_Top At_Offset_2 0317 e5fd | | Load 0x2,-0x3 0318 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0319 01ce | | Execute Vector,Slice_Write 031a 00d8 | | Load_Top At_Offset_0 031b e5fd | | Load 0x2,-0x3 031c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 031d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 031e 0000 0000 | | .XXX[0x2] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0327 | ' | .CONST 0x0327 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0003 | | .CONST 0x0003 ; Number of locals 0323 INIT_0320: 0323 00e3 | | Load_Encached Natural_Cache 0324 e5fd | | Load 0x2,-0x3 0325 00e3 | | Load_Encached Natural_Cache 0326 03f1 | | Declare_Variable Discrete,With_Value 0327 BODY_0320: 0327 e5fd | | Load 0x2,-0x3 0328 e5ff | | Load 0x2,-0x1 0329 0227 | ' | Execute Access,All_Reference 032a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 032b 027b | { | Execute Discrete,Greater_Equal 032c 680c |h | Jump_Zero 0x339 032d e5ff | | Load 0x2,-0x1 032e 0227 | ' | Execute Access,All_Reference 032f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0330 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0331 e5ff | | Load 0x2,-0x1 0332 0227 | ' | Execute Access,All_Reference 0333 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0334 e5fe | | Load 0x2,-0x2 0335 0272 | r | Execute Discrete,Minus 0336 0a01 | | Execute_Immediate Plus,0x1 0337 0059 | Y | Store_Top Discrete,At_Offset_1 0338 7816 |x | Jump 0x34f 0339 e5fe | | Load 0x2,-0x2 033a e5fd | | Load 0x2,-0x3 033b 0273 | s | Execute Discrete,Plus 033c 0aff | | Execute_Immediate Plus,-0x1 033d 005a | Z | Store_Top Discrete,At_Offset_2 033e 00d9 | | Load_Top At_Offset_1 033f e5ff | | Load 0x2,-0x1 0340 0227 | ' | Execute Access,All_Reference 0341 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0342 027b | { | Execute Discrete,Greater_Equal 0343 680b |h | Jump_Zero 0x34f 0344 e5ff | | Load 0x2,-0x1 0345 0227 | ' | Execute Access,All_Reference 0346 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0347 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0348 e5ff | | Load 0x2,-0x1 0349 0227 | ' | Execute Access,All_Reference 034a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 034b e5fe | | Load 0x2,-0x2 034c 0272 | r | Execute Discrete,Minus 034d 0a01 | | Execute_Immediate Plus,0x1 034e 0059 | Y | Store_Top Discrete,At_Offset_1 034f e5fe | | Load 0x2,-0x2 0350 0f01 | | Execute_Immediate Equal,0x1 0351 6805 |h | Jump_Zero 0x357 0352 00d8 | | Load_Top At_Offset_0 0353 e5ff | | Load 0x2,-0x1 0354 0227 | ' | Execute Access,All_Reference 0355 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0356 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0357 e5fe | | Load 0x2,-0x2 0358 00da | | Load_Top At_Offset_2 0359 e5ff | | Load 0x2,-0x1 035a 0227 | ' | Execute Access,All_Reference 035b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 035c 01cf | | Execute Vector,Slice_Read 035d 4801 |H | Short_Literal 0x1 035e 00da | | Load_Top At_Offset_2 035f e5ff | | Load 0x2,-0x1 0360 0229 | ) | Execute Access,All_Read 0361 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0362 01ce | | Execute Vector,Slice_Write 0363 00d8 | | Load_Top At_Offset_0 0364 e5ff | | Load 0x2,-0x1 0365 0227 | ' | Execute Access,All_Reference 0366 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0367 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 4801 |H | Short_Literal 0x1 036c 00db | | Load_Top At_Offset_3 036d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 036e e5ff | | Load 0x2,-0x1 036f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0370 01cf | | Execute Vector,Slice_Read 0371 0335 | 5 | Declare_Variable Array,Duplicate 0372 00cd | | Action Spare6_Action 0373 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0374 0000 0000 | | .BLANK 0000[0x4] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 4801 |H | Short_Literal 0x1 037c 00db | | Load_Top At_Offset_3 037d 0227 | ' | Execute Access,All_Reference 037e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 037f e5ff | | Load 0x2,-0x1 0380 0227 | ' | Execute Access,All_Reference 0381 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0382 01cf | | Execute Vector,Slice_Read 0383 0335 | 5 | Declare_Variable Array,Duplicate 0384 00cd | | Action Spare6_Action 0385 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0386 0000 0000 | | .XXX[0x2] 0388 ; -------------------------------------------------------------------------------------- 0388 ; Debug Table 0388 ; -------------------------------------------------------------------------------------- 0388 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa93f,0x0000,0x0001,0x0000 038e 1017 d184 | | .XXX[0x6e] 0390 0000 1017 | | 0392 d194 0000 | | 0394 1017 d1a4 | | 0396 0000 1017 | | 0398 d1b4 0000 | | 039a 1017 d1c4 | | 039c 0000 1017 | | 039e d1d4 0000 | | 03a0 1017 d1e4 | | 03a2 0000 1017 | | 03a4 d1f4 0000 | | 03a6 1017 d204 | | 03a8 0000 1017 | | 03aa d214 0000 | | 03ac 1017 d224 | $| 03ae 0000 1017 | | 03b0 d234 0000 | 4 | 03b2 1017 d244 | D| 03b4 0000 1017 | | 03b6 d254 0000 | T | 03b8 1017 d264 | d| 03ba 0000 1017 | | 03bc d274 0000 | t | 03be 1017 d284 | | 03c0 0000 1017 | | 03c2 d294 0000 | | 03c4 1017 d2a4 | | 03c6 0000 1017 | | 03c8 d2b4 0000 | | 03ca 1017 d2c4 | | 03cc 0000 1017 | | 03ce d2d4 0000 | | 03d0 1017 d2e4 | | 03d2 0000 1017 | | 03d4 d2f4 0000 | | 03d6 1017 d304 | | 03d8 0000 1017 | | 03da d314 0000 | | 03dc 1017 d324 | $| 03de 0000 1017 | | 03e0 d334 0000 | 4 | 03e2 1017 d344 | D| 03e4 0000 1017 | | 03e6 d354 0000 | T | 03e8 1017 d364 | d| 03ea 0000 1017 | | 03ec d374 0000 | t | 03ee 1017 d384 | | 03f0 0000 1017 | | 03f2 d394 0000 | | 03f4 1017 d3a4 | | 03f6 0000 1017 | | 03f8 d3b4 0000 | | 03fa 1017 d3c0 | | 03fc 0000 0000 | | .BLANK 0000[0x4]