|
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_1188cd9
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0044 | D | .CONST 0x0044 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0013 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0015 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0017 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 001b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 001d 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001f 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0021 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0023 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0025 00bf | | Action Accept_Activation 0026 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0027 00c7 | | Action Elaborate_Subprogram 0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0029 00c7 | | Action Elaborate_Subprogram 002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002b 00c7 | | Action Elaborate_Subprogram 002c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002d 00c7 | | Action Elaborate_Subprogram 002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002f 00c7 | | Action Elaborate_Subprogram 0030 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 0032 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0033 00c7 | | Action Elaborate_Subprogram 0034 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0035 00c7 | | Action Elaborate_Subprogram 0036 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 0038 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0039 00c7 | | Action Elaborate_Subprogram 003a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003b 00c7 | | Action Elaborate_Subprogram 003c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003d 00c7 | | Action Elaborate_Subprogram 003e 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003f 00c7 | | Action Elaborate_Subprogram 0040 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0041 00c7 | | Action Elaborate_Subprogram 0042 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0043 00c7 | | Action Elaborate_Subprogram 0044 BODY_0008: 0044 00bc | | Action Signal_Activated 0045 00bb | | Action Signal_Completion 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b INIT_0048: 004b 0007 | | Action Break_Optional 004c 0007 | | Action Break_Optional 004d BODY_0048: 004d 00da | | Load_Top At_Offset_2 004e 01db | | Execute Vector,Length 004f 7002 |p | Jump_Nonzero 0x52 0050 4801 |H | Short_Literal 0x1 0051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0052 00cf | | Action Mark_Auxiliary 0053 00db | | Load_Top At_Offset_3 0054 01d9 | | Execute Vector,Reverse_Bounds 0055 0263 | c | Execute Discrete,Above_Bound 0056 700c |p | Jump_Nonzero 0x63 0057 00d8 | | Load_Top At_Offset_0 0058 e5ff | | Load 0x2,-0x1 0059 01d7 | | Execute Vector,Field_Read 005a 0b20 | | Execute_Immediate Case_Compare,0x20 005b 7004 |p | Jump_Nonzero 0x60 005c 0b09 | | Execute_Immediate Case_Compare,0x9 005d 7002 |p | Jump_Nonzero 0x60 005e 4800 |H | Short_Literal 0x0 005f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0060 00d1 | | Pop_Control Pop_Count_1 0061 00c8 | | Action Pop_Auxiliary_Range 0062 3ff4 |? | Loop_Increasing 0x57 0063 00ce | | Action Pop_Auxiliary 0064 4801 |H | Short_Literal 0x1 0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0066 0000 0000 | | .XXX[0x2] 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 820f | | Call 0x1,0xf 006d 00db | | Load_Top At_Offset_3 006e 01df | | Execute Vector,Equal 006f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0074 | t | .CONST 0x0074 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 INIT_0070: 0073 0007 | | Action Break_Optional 0074 BODY_0070: 0074 4801 |H | Short_Literal 0x1 0075 4800 |H | Short_Literal 0x0 0076 4820 |H | Short_Literal 0x20 0077 4801 |H | Short_Literal 0x1 0078 4800 |H | Short_Literal 0x0 0079 4809 |H | Short_Literal 0x9 007a e5ff | | Load 0x2,-0x1 007b 8213 | | Call 0x1,0x13 007c 8213 | | Call 0x1,0x13 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 4820 |H | Short_Literal 0x20 0084 00db | | Load_Top At_Offset_3 0085 e001 | | Load 0x0,0x1 0086 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0087 00db | | Load_Top At_Offset_3 0088 01de | | Execute Vector,Not_Equal 0089 7007 |p | Jump_Nonzero 0x91 008a 4820 |H | Short_Literal 0x20 008b 00db | | Load_Top At_Offset_3 008c e001 | | Load 0x0,0x1 008d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 008e 00db | | Load_Top At_Offset_3 008f 01de | | Execute Vector,Not_Equal 0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0091 4801 |H | Short_Literal 0x1 0092 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0093 0000 0000 | | .BLANK 0000[0x5] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a3 | | .CONST 0x00a3 ; Address of begin 0099 00bc | | .CONST 0x00bc ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b 4801 |H | Short_Literal 0x1 009c e5fe | | Load 0x2,-0x2 009d 01db | | Execute Vector,Length 009e 00e9 | | Load_Encached String_Cache 009f 0334 | 4 | Declare_Variable Array,With_Constraint 00a0 e5fe | | Load 0x2,-0x2 00a1 00d9 | | Load_Top At_Offset_1 00a2 01d4 | | Execute Vector,Structure_Write 00a3 BODY_0098: 00a3 00cf | | Action Mark_Auxiliary 00a4 00d9 | | Load_Top At_Offset_1 00a5 01dc | | Execute Vector,Last 00a6 e5fc | | Load 0x2,-0x4 00a7 0263 | c | Execute Discrete,Above_Bound 00a8 7010 |p | Jump_Nonzero 0xb9 00a9 e5fd | | Load 0x2,-0x3 00aa 00d9 | | Load_Top At_Offset_1 00ab 00da | | Load_Top At_Offset_2 00ac e5ff | | Load 0x2,-0x1 00ad 01db | | Execute Vector,Length 00ae 0aff | | Execute_Immediate Plus,-0x1 00af 0273 | s | Execute Discrete,Plus 00b0 e402 | | Load 0x2,0x2 00b1 01cf | | Execute Vector,Slice_Read 00b2 e5ff | | Load 0x2,-0x1 00b3 821b | | Call 0x1,0x1b 00b4 6802 |h | Jump_Zero 0xb7 00b5 00d8 | | Load_Top At_Offset_0 00b6 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 00b7 00c8 | | Action Pop_Auxiliary_Range 00b8 3ff0 |? | Loop_Increasing 0xa9 00b9 00ce | | Action Pop_Auxiliary 00ba 4800 |H | Short_Literal 0x0 00bb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 00bc TRAP_0098: 00bc 0007 | | Action Break_Optional 00bd 4800 |H | Short_Literal 0x0 00be 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00e1 | | .CONST 0x00e1 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0005 | | .CONST 0x0005 ; Number of locals 00c3 INIT_00c0: 00c3 00db | | Load_Top At_Offset_3 00c4 01dd | | Execute Vector,First 00c5 00db | | Load_Top At_Offset_3 00c6 0aff | | Execute_Immediate Plus,-0x1 00c7 e5fe | | Load 0x2,-0x2 00c8 01cf | | Execute Vector,Slice_Read 00c9 0335 | 5 | Declare_Variable Array,Duplicate 00ca 00d0 | | Action Swap_Control 00cb 00d1 | | Pop_Control Pop_Count_1 00cc 00db | | Load_Top At_Offset_3 00cd 0a01 | | Execute_Immediate Plus,0x1 00ce e5fe | | Load 0x2,-0x2 00cf 01dc | | Execute Vector,Last 00d0 e5fe | | Load 0x2,-0x2 00d1 01cf | | Execute Vector,Slice_Read 00d2 0335 | 5 | Declare_Variable Array,Duplicate 00d3 00d0 | | Action Swap_Control 00d4 00d1 | | Pop_Control Pop_Count_1 00d5 00d9 | | Load_Top At_Offset_1 00d6 00d9 | | Load_Top At_Offset_1 00d7 01cc | | Execute Vector,Catenate 00d8 0007 | | Action Break_Optional 00d9 4801 |H | Short_Literal 0x1 00da 00d9 | | Load_Top At_Offset_1 00db 01db | | Execute Vector,Length 00dc 00e9 | | Load_Encached String_Cache 00dd 0334 | 4 | Declare_Variable Array,With_Constraint 00de 00d9 | | Load_Top At_Offset_1 00df 00d9 | | Load_Top At_Offset_1 00e0 01d4 | | Execute Vector,Structure_Write 00e1 BODY_00c0: 00e1 00d8 | | Load_Top At_Offset_0 00e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f3 | | .CONST 0x00f3 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb 4801 |H | Short_Literal 0x1 00ec 00db | | Load_Top At_Offset_3 00ed 01db | | Execute Vector,Length 00ee 00e9 | | Load_Encached String_Cache 00ef 0334 | 4 | Declare_Variable Array,With_Constraint 00f0 00db | | Load_Top At_Offset_3 00f1 00d9 | | Load_Top At_Offset_1 00f2 01d4 | | Execute Vector,Structure_Write 00f3 BODY_00e8: 00f3 00d8 | | Load_Top At_Offset_0 00f4 01db | | Execute Vector,Length 00f5 7002 |p | Jump_Nonzero 0xf8 00f6 00d8 | | Load_Top At_Offset_0 00f7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 00f8 00cf | | Action Mark_Auxiliary 00f9 00d9 | | Load_Top At_Offset_1 00fa 01d9 | | Execute Vector,Reverse_Bounds 00fb 0263 | c | Execute Discrete,Above_Bound 00fc 7014 |p | Jump_Nonzero 0x111 00fd e5fd | | Load 0x2,-0x3 00fe e5fe | | Load 0x2,-0x2 00ff 00da | | Load_Top At_Offset_2 0100 e402 | | Load 0x2,0x2 0101 01d7 | | Execute Vector,Field_Read 0102 821a | | Call 0x1,0x1a 0103 680b |h | Jump_Zero 0x10f 0104 00d8 | | Load_Top At_Offset_0 0105 0a01 | | Execute_Immediate Plus,0x1 0106 00e4 | | Load_Encached Positive_Cache 0107 025b | [ | Execute Discrete,Check_In_Type 0108 e5fd | | Load 0x2,-0x3 0109 e5fe | | Load 0x2,-0x2 010a e402 | | Load 0x2,0x2 010b e405 | | Load 0x2,0x5 010c 8212 | | Call 0x1,0x12 010d 8213 | | Call 0x1,0x13 010e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 010f 00c8 | | Action Pop_Auxiliary_Range 0110 3fec |? | Loop_Increasing 0xfd 0111 00ce | | Action Pop_Auxiliary 0112 00d8 | | Load_Top At_Offset_0 0113 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0139 | 9 | .CONST 0x0139 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0005 | | .CONST 0x0005 ; Number of locals 011b INIT_0118: 011b e5fd | | Load 0x2,-0x3 011c 01dd | | Execute Vector,First 011d 00db | | Load_Top At_Offset_3 011e 0aff | | Execute_Immediate Plus,-0x1 011f e5fd | | Load 0x2,-0x3 0120 01cf | | Execute Vector,Slice_Read 0121 0335 | 5 | Declare_Variable Array,Duplicate 0122 00d0 | | Action Swap_Control 0123 00d1 | | Pop_Control Pop_Count_1 0124 e5fe | | Load 0x2,-0x2 0125 0a01 | | Execute_Immediate Plus,0x1 0126 e5fd | | Load 0x2,-0x3 0127 01dc | | Execute Vector,Last 0128 e5fd | | Load 0x2,-0x3 0129 01cf | | Execute Vector,Slice_Read 012a 0335 | 5 | Declare_Variable Array,Duplicate 012b 00d0 | | Action Swap_Control 012c 00d1 | | Pop_Control Pop_Count_1 012d 00d9 | | Load_Top At_Offset_1 012e 00d9 | | Load_Top At_Offset_1 012f 01cc | | Execute Vector,Catenate 0130 0007 | | Action Break_Optional 0131 4801 |H | Short_Literal 0x1 0132 00d9 | | Load_Top At_Offset_1 0133 01db | | Execute Vector,Length 0134 00e9 | | Load_Encached String_Cache 0135 0334 | 4 | Declare_Variable Array,With_Constraint 0136 00d9 | | Load_Top At_Offset_1 0137 00d9 | | Load_Top At_Offset_1 0138 01d4 | | Execute Vector,Structure_Write 0139 BODY_0118: 0139 00d8 | | Load_Top At_Offset_0 013a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014d | M | .CONST 0x014d ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 4801 |H | Short_Literal 0x1 0144 00db | | Load_Top At_Offset_3 0145 01db | | Execute Vector,Length 0146 00e9 | | Load_Encached String_Cache 0147 0334 | 4 | Declare_Variable Array,With_Constraint 0148 00db | | Load_Top At_Offset_3 0149 00d9 | | Load_Top At_Offset_1 014a 01d4 | | Execute Vector,Structure_Write 014b 00e3 | | Load_Encached Natural_Cache 014c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 014d BODY_0140: 014d e5ff | | Load 0x2,-0x1 014e 01db | | Execute Vector,Length 014f 6803 |h | Jump_Zero 0x153 0150 e5fe | | Load 0x2,-0x2 0151 01db | | Execute Vector,Length 0152 7003 |p | Jump_Nonzero 0x156 0153 e5ff | | Load 0x2,-0x1 0154 0335 | 5 | Declare_Variable Array,Duplicate 0155 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0156 00cf | | Action Mark_Auxiliary 0157 0007 | | Action Break_Optional 0158 e5fc | | Load 0x2,-0x4 0159 e5fd | | Load 0x2,-0x3 015a e402 | | Load 0x2,0x2 015b e5fe | | Load 0x2,-0x2 015c 8211 | | Call 0x1,0x11 015d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 015e 00d9 | | Load_Top At_Offset_1 015f 6813 |h | Jump_Zero 0x173 0160 00d9 | | Load_Top At_Offset_1 0161 e5fe | | Load 0x2,-0x2 0162 01db | | Execute Vector,Length 0163 0273 | s | Execute Discrete,Plus 0164 00e4 | | Load_Encached Positive_Cache 0165 025b | [ | Execute Discrete,Check_In_Type 0166 e5fd | | Load 0x2,-0x3 0167 e5fe | | Load 0x2,-0x2 0168 e402 | | Load 0x2,0x2 0169 e403 | | Load 0x2,0x3 016a e5fe | | Load 0x2,-0x2 016b 01db | | Execute Vector,Length 016c 0aff | | Execute_Immediate Plus,-0x1 016d 0273 | s | Execute Discrete,Plus 016e 0248 | H | Execute Discrete,Check_In_Integer 016f e403 | | Load 0x2,0x3 0170 8214 | | Call 0x1,0x14 0171 8215 | | Call 0x1,0x15 0172 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0173 00da | | Load_Top At_Offset_2 0174 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 019b | | .CONST 0x019b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0005 | | .CONST 0x0005 ; Number of locals 017b INIT_0178: 017b e5fd | | Load 0x2,-0x3 017c 01dd | | Execute Vector,First 017d 00db | | Load_Top At_Offset_3 017e 0aff | | Execute_Immediate Plus,-0x1 017f e5fd | | Load 0x2,-0x3 0180 01cf | | Execute Vector,Slice_Read 0181 0335 | 5 | Declare_Variable Array,Duplicate 0182 00d0 | | Action Swap_Control 0183 00d1 | | Pop_Control Pop_Count_1 0184 00db | | Load_Top At_Offset_3 0185 0a01 | | Execute_Immediate Plus,0x1 0186 e5fd | | Load 0x2,-0x3 0187 01dc | | Execute Vector,Last 0188 e5fd | | Load 0x2,-0x3 0189 01cf | | Execute Vector,Slice_Read 018a 0335 | 5 | Declare_Variable Array,Duplicate 018b 00d0 | | Action Swap_Control 018c 00d1 | | Pop_Control Pop_Count_1 018d e5fe | | Load 0x2,-0x2 018e 00da | | Load_Top At_Offset_2 018f 01cb | | Execute Vector,Append 0190 00d9 | | Load_Top At_Offset_1 0191 01cc | | Execute Vector,Catenate 0192 0007 | | Action Break_Optional 0193 4801 |H | Short_Literal 0x1 0194 00d9 | | Load_Top At_Offset_1 0195 01db | | Execute Vector,Length 0196 00e9 | | Load_Encached String_Cache 0197 0334 | 4 | Declare_Variable Array,With_Constraint 0198 00d9 | | Load_Top At_Offset_1 0199 00d9 | | Load_Top At_Offset_1 019a 01d4 | | Execute Vector,Structure_Write 019b BODY_0178: 019b 00d8 | | Load_Top At_Offset_0 019c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ab | | .CONST 0x01ab ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 4801 |H | Short_Literal 0x1 01a4 00db | | Load_Top At_Offset_3 01a5 01db | | Execute Vector,Length 01a6 00e9 | | Load_Encached String_Cache 01a7 0334 | 4 | Declare_Variable Array,With_Constraint 01a8 00db | | Load_Top At_Offset_3 01a9 00d9 | | Load_Top At_Offset_1 01aa 01d4 | | Execute Vector,Structure_Write 01ab BODY_01a0: 01ab 00d8 | | Load_Top At_Offset_0 01ac 01db | | Execute Vector,Length 01ad 7002 |p | Jump_Nonzero 0x1b0 01ae 00d8 | | Load_Top At_Offset_0 01af 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01b0 00cf | | Action Mark_Auxiliary 01b1 00d9 | | Load_Top At_Offset_1 01b2 01d9 | | Execute Vector,Reverse_Bounds 01b3 0263 | c | Execute Discrete,Above_Bound 01b4 7016 |p | Jump_Nonzero 0x1cb 01b5 e5fc | | Load 0x2,-0x4 01b6 e5fe | | Load 0x2,-0x2 01b7 00da | | Load_Top At_Offset_2 01b8 e402 | | Load 0x2,0x2 01b9 01d7 | | Execute Vector,Field_Read 01ba 821a | | Call 0x1,0x1a 01bb 680d |h | Jump_Zero 0x1c9 01bc 00d8 | | Load_Top At_Offset_0 01bd 0a01 | | Execute_Immediate Plus,0x1 01be 00e4 | | Load_Encached Positive_Cache 01bf 025b | [ | Execute Discrete,Check_In_Type 01c0 e5fc | | Load 0x2,-0x4 01c1 e5fd | | Load 0x2,-0x3 01c2 e5fe | | Load 0x2,-0x2 01c3 e402 | | Load 0x2,0x2 01c4 e5fd | | Load 0x2,-0x3 01c5 e405 | | Load 0x2,0x5 01c6 8216 | | Call 0x1,0x16 01c7 8217 | | Call 0x1,0x17 01c8 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01c9 00c8 | | Action Pop_Auxiliary_Range 01ca 3fea |? | Loop_Increasing 0x1b5 01cb 00ce | | Action Pop_Auxiliary 01cc 00d8 | | Load_Top At_Offset_0 01cd 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01f3 | | .CONST 0x01f3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0005 | | .CONST 0x0005 ; Number of locals 01d3 INIT_01d0: 01d3 e5fc | | Load 0x2,-0x4 01d4 01dd | | Execute Vector,First 01d5 00db | | Load_Top At_Offset_3 01d6 0aff | | Execute_Immediate Plus,-0x1 01d7 e5fc | | Load 0x2,-0x4 01d8 01cf | | Execute Vector,Slice_Read 01d9 0335 | 5 | Declare_Variable Array,Duplicate 01da 00d0 | | Action Swap_Control 01db 00d1 | | Pop_Control Pop_Count_1 01dc e5fe | | Load 0x2,-0x2 01dd 0a01 | | Execute_Immediate Plus,0x1 01de e5fc | | Load 0x2,-0x4 01df 01dc | | Execute Vector,Last 01e0 e5fc | | Load 0x2,-0x4 01e1 01cf | | Execute Vector,Slice_Read 01e2 0335 | 5 | Declare_Variable Array,Duplicate 01e3 00d0 | | Action Swap_Control 01e4 00d1 | | Pop_Control Pop_Count_1 01e5 00d9 | | Load_Top At_Offset_1 01e6 e5fd | | Load 0x2,-0x3 01e7 01cc | | Execute Vector,Catenate 01e8 00d9 | | Load_Top At_Offset_1 01e9 01cc | | Execute Vector,Catenate 01ea 0007 | | Action Break_Optional 01eb 4801 |H | Short_Literal 0x1 01ec 00d9 | | Load_Top At_Offset_1 01ed 01db | | Execute Vector,Length 01ee 00e9 | | Load_Encached String_Cache 01ef 0334 | 4 | Declare_Variable Array,With_Constraint 01f0 00d9 | | Load_Top At_Offset_1 01f1 00d9 | | Load_Top At_Offset_1 01f2 01d4 | | Execute Vector,Structure_Write 01f3 BODY_01d0: 01f3 00d8 | | Load_Top At_Offset_0 01f4 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0205 | | .CONST 0x0205 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb 4801 |H | Short_Literal 0x1 01fc 00db | | Load_Top At_Offset_3 01fd 01db | | Execute Vector,Length 01fe 00e9 | | Load_Encached String_Cache 01ff 0334 | 4 | Declare_Variable Array,With_Constraint 0200 00db | | Load_Top At_Offset_3 0201 00d9 | | Load_Top At_Offset_1 0202 01d4 | | Execute Vector,Structure_Write 0203 00e3 | | Load_Encached Natural_Cache 0204 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0205 BODY_01f8: 0205 e5ff | | Load 0x2,-0x1 0206 01db | | Execute Vector,Length 0207 6803 |h | Jump_Zero 0x20b 0208 e5fe | | Load 0x2,-0x2 0209 01db | | Execute Vector,Length 020a 7003 |p | Jump_Nonzero 0x20e 020b e5ff | | Load 0x2,-0x1 020c 0335 | 5 | Declare_Variable Array,Duplicate 020d 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 020e 00cf | | Action Mark_Auxiliary 020f 0007 | | Action Break_Optional 0210 e5fb | | Load 0x2,-0x5 0211 e5fc | | Load 0x2,-0x4 0212 e402 | | Load 0x2,0x2 0213 e5fe | | Load 0x2,-0x2 0214 8211 | | Call 0x1,0x11 0215 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0216 00d9 | | Load_Top At_Offset_1 0217 6815 |h | Jump_Zero 0x22d 0218 00d9 | | Load_Top At_Offset_1 0219 e5fd | | Load 0x2,-0x3 021a 01db | | Execute Vector,Length 021b 0273 | s | Execute Discrete,Plus 021c 00e4 | | Load_Encached Positive_Cache 021d 025b | [ | Execute Discrete,Check_In_Type 021e e5fc | | Load 0x2,-0x4 021f e5fd | | Load 0x2,-0x3 0220 e5fe | | Load 0x2,-0x2 0221 e402 | | Load 0x2,0x2 0222 e5fd | | Load 0x2,-0x3 0223 e403 | | Load 0x2,0x3 0224 e5fe | | Load 0x2,-0x2 0225 01db | | Execute Vector,Length 0226 0aff | | Execute_Immediate Plus,-0x1 0227 0273 | s | Execute Discrete,Plus 0228 0248 | H | Execute Discrete,Check_In_Integer 0229 e403 | | Load 0x2,0x3 022a 8218 | | Call 0x1,0x18 022b 8219 | | Call 0x1,0x19 022c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 022d 00da | | Load_Top At_Offset_2 022e 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 022f 0000 | | .XXX[0x1] 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 e5fd | | Load 0x2,-0x3 0234 6808 |h | Jump_Zero 0x23d 0235 00da | | Load_Top At_Offset_2 0236 e001 | | Load 0x0,0x1 0237 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0238 e5fe | | Load 0x2,-0x2 0239 e001 | | Load 0x0,0x1 023a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 023b 027f | | Execute Discrete,Equal 023c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 023d 00da | | Load_Top At_Offset_2 023e e5fe | | Load 0x2,-0x2 023f 027f | | Execute Discrete,Equal 0240 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0241 0000 0000 | | .BLANK 0000[0x7] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e5fd | | Load 0x2,-0x3 024c 6808 |h | Jump_Zero 0x255 024d 00da | | Load_Top At_Offset_2 024e e001 | | Load 0x0,0x1 024f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0250 e5fe | | Load 0x2,-0x2 0251 e001 | | Load 0x0,0x1 0252 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0253 01df | | Execute Vector,Equal 0254 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0255 00da | | Load_Top At_Offset_2 0256 e5fe | | Load 0x2,-0x2 0257 01df | | Execute Vector,Equal 0258 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 000c | | .DEBUG4 0x0004,0x000c,0x70eb,0x0000,0x0001,0x0000 0266 0000 0000 | | .BLANK 0000[0x19a]