|
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 0210 | | .CONST 0x0210 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4803 |H | Short_Literal 0x3 000d 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 4801 |H | Short_Literal 0x1 0012 00da | | Load_Top At_Offset_2 0013 03f9 | | Declare_Type Discrete,Constrained,Visible 0014 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0018 00bf | | Action Accept_Activation 0019 00ec | | Load_Encached Diana_Tree_Cache 001a 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call 001c 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 001e 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0021 00c7 | | Action Elaborate_Subprogram 0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0023 00c7 | | Action Elaborate_Subprogram 0024 BODY_0008: 0024 00bc | | Action Signal_Activated 0025 00bb | | Action Signal_Completion 0026 0000 0000 | | .XXX[0x2] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 4607 |F | Jump_Case 0x8 002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 002d 7807 |x | Jump 0x35 ; case 0x1 002e 780a |x | Jump 0x39 ; case 0x2 002f 780e |x | Jump 0x3e ; case 0x3 0030 7811 |x | Jump 0x42 ; case 0x4 0031 7812 |x | Jump 0x44 ; case 0x5 0032 7813 |x | Jump 0x46 ; case 0x6 0033 7816 |x | Jump 0x4a ; case 0x7 0034 4302 |C | .XXX[0x1] 0035 00da | | Load_Top At_Offset_2 0036 0091 01f5 | | Action Push_String_Extended_Indexed,0x1f5 ; "BEFORE" 0038 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0039 00db | | Load_Top At_Offset_3 003a 00db | | Load_Top At_Offset_3 003b 00e0 | | Load_Encached Standard_Cache 003c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e 00da | | Load_Top At_Offset_2 003f 00e0 | | Load_Encached Standard_Cache 0040 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0041 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0042 00db | | Load_Top At_Offset_3 0043 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0044 00db | | Load_Top At_Offset_3 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 e20d | | Load 0x1,0xd 0047 00dc | | Load_Top At_Offset_4 0048 0267 | g | Execute Discrete,Predecessor 0049 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004a e20d | | Load 0x1,0xd 004b 00dc | | Load_Top At_Offset_4 004c 0268 | h | Execute Discrete,Successor 004d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0059 | Y | .CONST 0x0059 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0004 | | .CONST 0x0004 ; Number of locals 0053 INIT_0050: 0053 e002 | | Load 0x0,0x2 0054 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0055 0322 | " | Declare_Variable Record 0056 00d8 | | Load_Top At_Offset_0 0057 0322 | " | Declare_Variable Record 0058 00ec | | Load_Encached Diana_Tree_Cache 0059 BODY_0050: 0059 4800 |H | Short_Literal 0x0 005a e5fe | | Load 0x2,-0x2 005b e5ff | | Load 0x2,-0x1 005c e002 | | Load 0x0,0x2 005d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 005e 00db | | Load_Top At_Offset_3 005f 017d | } | Execute Record,Structure_Write 0060 e5fd | | Load 0x2,-0x3 0061 0f02 | | Execute_Immediate Equal,0x2 0062 6802 |h | Jump_Zero 0x65 0063 00da | | Load_Top At_Offset_2 0064 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0065 e5ff | | Load 0x2,-0x1 0066 8213 | | Call 0x1,0x13 0067 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0068 00d8 | | Load_Top At_Offset_0 0069 e211 | | Load 0x1,0x11 006a 021f | | Execute Heap_Access,Equal 006b 7008 |p | Jump_Nonzero 0x74 006c 4800 |H | Short_Literal 0x0 006d e5fe | | Load 0x2,-0x2 006e 00da | | Load_Top At_Offset_2 006f e002 | | Load 0x0,0x2 0070 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0071 00da | | Load_Top At_Offset_2 0072 017d | } | Execute Record,Structure_Write 0073 7817 |x | Jump 0x8b 0074 e5fd | | Load 0x2,-0x3 0075 0f03 | | Execute_Immediate Equal,0x3 0076 6812 |h | Jump_Zero 0x89 0077 e002 | | Load 0x0,0x2 0078 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0079 0322 | " | Declare_Variable Record 007a 00db | | Load_Top At_Offset_3 007b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007c 0a01 | | Execute_Immediate Plus,0x1 007d 00d9 | | Load_Top At_Offset_1 007e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007f 4801 |H | Short_Literal 0x1 0080 00d9 | | Load_Top At_Offset_1 0081 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0082 4800 |H | Short_Literal 0x0 0083 00d9 | | Load_Top At_Offset_1 0084 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0085 4800 |H | Short_Literal 0x0 0086 00d9 | | Load_Top At_Offset_1 0087 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0088 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0089 00da | | Load_Top At_Offset_2 008a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 008b e5fd | | Load 0x2,-0x3 008c 4603 |F | Jump_Case 0x4 008d 7806 |x | Jump 0x94 ; case 0x0 008e 7817 |x | Jump 0xa6 ; case 0x1 008f 7803 |x | Jump 0x93 ; case 0x2 0090 7800 |x | Jump 0x91 ; case 0x3 0091 00d9 | | Load_Top At_Offset_1 0092 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0093 08e2 | | Execute_Immediate Raise,0xe2 0094 00d9 | | Load_Top At_Offset_1 0095 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0096 0aff | | Execute_Immediate Plus,-0x1 0097 00db | | Load_Top At_Offset_3 0098 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0099 e5fe | | Load 0x2,-0x2 009a 00db | | Load_Top At_Offset_3 009b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 009c 00d8 | | Load_Top At_Offset_0 009d 00e4 | | Load_Encached Positive_Cache 009e 0260 | ` | Execute Discrete,In_Type 009f 7001 |p | Jump_Nonzero 0xa1 00a0 0801 | | Execute_Immediate Raise,0x1 00a1 e002 | | Load 0x0,0x2 00a2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a3 00db | | Load_Top At_Offset_3 00a4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00a5 7808 |x | Jump 0xae 00a6 00d9 | | Load_Top At_Offset_1 00a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a8 0a01 | | Execute_Immediate Plus,0x1 00a9 00db | | Load_Top At_Offset_3 00aa 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ab 4801 |H | Short_Literal 0x1 00ac 00db | | Load_Top At_Offset_3 00ad 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ae 00da | | Load_Top At_Offset_2 00af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b7 | | .CONST 0x00b7 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e002 | | Load 0x0,0x2 00b4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b5 0322 | " | Declare_Variable Record 00b6 00ec | | Load_Encached Diana_Tree_Cache 00b7 BODY_00b0: 00b7 e5fd | | Load 0x2,-0x3 00b8 4603 |F | Jump_Case 0x4 00b9 7815 |x | Jump 0xcf ; case 0x0 00ba 781d |x | Jump 0xd8 ; case 0x1 00bb 7813 |x | Jump 0xcf ; case 0x2 00bc 7800 |x | Jump 0xbd ; case 0x3 00bd e5ff | | Load 0x2,-0x1 00be 8213 | | Call 0x1,0x13 00bf 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00c0 00d8 | | Load_Top At_Offset_0 00c1 e211 | | Load 0x1,0x11 00c2 021f | | Execute Heap_Access,Equal 00c3 7008 |p | Jump_Nonzero 0xcc 00c4 e5fe | | Load 0x2,-0x2 00c5 4801 |H | Short_Literal 0x1 00c6 00da | | Load_Top At_Offset_2 00c7 e002 | | Load 0x0,0x2 00c8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00c9 00da | | Load_Top At_Offset_2 00ca 017d | } | Execute Record,Structure_Write 00cb 7813 |x | Jump 0xdf 00cc e002 | | Load 0x0,0x2 00cd 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00ce 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 00cf e5fe | | Load 0x2,-0x2 00d0 4801 |H | Short_Literal 0x1 00d1 e5ff | | Load 0x2,-0x1 00d2 8212 | | Call 0x1,0x12 00d3 e002 | | Load 0x0,0x2 00d4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00d5 00da | | Load_Top At_Offset_2 00d6 017d | } | Execute Record,Structure_Write 00d7 7807 |x | Jump 0xdf 00d8 e5fe | | Load 0x2,-0x2 00d9 4801 |H | Short_Literal 0x1 00da e5ff | | Load 0x2,-0x1 00db e002 | | Load 0x0,0x2 00dc 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00dd 00da | | Load_Top At_Offset_2 00de 017d | } | Execute Record,Structure_Write 00df 00d9 | | Load_Top At_Offset_1 00e0 e5fa | | Load 0x2,-0x6 00e1 e5fb | | Load 0x2,-0x5 00e2 e5fc | | Load 0x2,-0x4 00e3 0f00 | | Execute_Immediate Equal,0x0 00e4 e5fe | | Load 0x2,-0x2 00e5 8214 | | Call 0x1,0x14 00e6 00d1 | | Pop_Control Pop_Count_1 00e7 00d9 | | Load_Top At_Offset_1 00e8 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 00e9 0000 0000 | | .BLANK 0000[0x7] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f4 | | .CONST 0x00f4 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 00ec | | Load_Encached Diana_Tree_Cache 00f4 BODY_00f0: 00f4 00db | | Load_Top At_Offset_3 00f5 0145 | E | Execute Heap_Access,Diana_Tree_Kind 00f6 0fa8 | | Execute_Immediate Equal,-0x58 00f7 700e |p | Jump_Nonzero 0x106 00f8 00db | | Load_Top At_Offset_3 00f9 00eb | | Load_Encached Diana_Cache 00fa 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00fb 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00fc 00d8 | | Load_Top At_Offset_0 00fd 0145 | E | Execute Heap_Access,Diana_Tree_Kind 00fe 0fa8 | | Execute_Immediate Equal,-0x58 00ff 7002 |p | Jump_Nonzero 0x102 0100 00db | | Load_Top At_Offset_3 0101 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0102 00d8 | | Load_Top At_Offset_0 0103 00eb | | Load_Encached Diana_Cache 0104 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 00db | | Load_Top At_Offset_3 0107 00eb | | Load_Encached Diana_Cache 0108 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0114 | | .CONST 0x0114 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 BODY_0110: 0114 00cf | | Action Mark_Auxiliary 0115 00d9 | | Load_Top At_Offset_1 0116 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0117 00d8 | | Load_Top At_Offset_0 0118 0d3b | ; | Execute_Immediate Less,0x3b 0119 7027 |p' | Jump_Nonzero 0x141 011a 00d8 | | Load_Top At_Offset_0 011b 0c4a | J | Execute_Immediate Greater_Equal,0x4a 011c 7016 |p | Jump_Nonzero 0x133 011d 0ac5 | | Execute_Immediate Plus,-0x3b 011e 460e |F | Jump_Case 0xf 011f 782e |x. | Jump 0x14e ; case 0x0 0120 7821 |x! | Jump 0x142 ; case 0x1 0121 7820 |x | Jump 0x142 ; case 0x2 0122 783b |x; | Jump 0x15e ; case 0x3 0123 7836 |x6 | Jump 0x15a ; case 0x4 0124 781d |x | Jump 0x142 ; case 0x5 0125 7823 |x# | Jump 0x149 ; case 0x6 0126 781b |x | Jump 0x142 ; case 0x7 0127 781a |x | Jump 0x142 ; case 0x8 0128 7819 |x | Jump 0x142 ; case 0x9 0129 7818 |x | Jump 0x142 ; case 0xa 012a 783a |x: | Jump 0x165 ; case 0xb 012b 7839 |x9 | Jump 0x165 ; case 0xc 012c 7838 |x8 | Jump 0x165 ; case 0xd 012d 7800 |x | Jump 0x12e ; case 0xe 012e 00d9 | | Load_Top At_Offset_1 012f 00eb | | Load_Encached Diana_Cache 0130 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5 0131 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0132 7838 |x8 | Jump 0x16b 0133 00d8 | | Load_Top At_Offset_0 0134 0d73 | s | Execute_Immediate Less,0x73 0135 700b |p | Jump_Nonzero 0x141 0136 00d8 | | Load_Top At_Offset_0 0137 0c7d | } | Execute_Immediate Greater_Equal,0x7d 0138 7005 |p | Jump_Nonzero 0x13e 0139 0b73 | s | Execute_Immediate Case_Compare,0x73 013a 7027 |p' | Jump_Nonzero 0x162 013b 0f7c | | | Execute_Immediate Equal,0x7c 013c 702c |p, | Jump_Nonzero 0x169 013d 7804 |x | Jump 0x142 013e 0fa8 | | Execute_Immediate Equal,-0x58 013f 7004 |p | Jump_Nonzero 0x144 0140 7801 |x | Jump 0x142 0141 00d1 | | Pop_Control Pop_Count_1 0142 e211 | | Load 0x1,0x11 0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0144 00d9 | | Load_Top At_Offset_1 0145 00eb | | Load_Encached Diana_Cache 0146 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 0147 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0148 7822 |x" | Jump 0x16b 0149 00d9 | | Load_Top At_Offset_1 014a 00eb | | Load_Encached Diana_Cache 014b 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 014c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 014d 781d |x | Jump 0x16b 014e 00d9 | | Load_Top At_Offset_1 014f 00eb | | Load_Encached Diana_Cache 0150 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 0151 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0152 00d9 | | Load_Top At_Offset_1 0153 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0154 0f73 | s | Execute_Immediate Equal,0x73 0155 7002 |p | Jump_Nonzero 0x158 0156 e211 | | Load 0x1,0x11 0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0158 00d9 | | Load_Top At_Offset_1 0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015a 00d9 | | Load_Top At_Offset_1 015b 00eb | | Load_Encached Diana_Cache 015c 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6 015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015e 00d9 | | Load_Top At_Offset_1 015f 00eb | | Load_Encached Diana_Cache 0160 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8 0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0162 00d1 | | Pop_Control Pop_Count_1 0163 00d9 | | Load_Top At_Offset_1 0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0165 00d9 | | Load_Top At_Offset_1 0166 00eb | | Load_Encached Diana_Cache 0167 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6 0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0169 00d9 | | Load_Top At_Offset_1 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 00c9 | | Action Pop_Auxiliary_Loop 016c 7fa8 | | Jump 0x115 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0175 | u | .CONST 0x0175 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0175 BODY_0170: 0175 e5fe | | Load 0x2,-0x2 0176 6814 |h | Jump_Zero 0x18b 0177 00cf | | Action Mark_Auxiliary 0178 e5fb | | Load 0x2,-0x5 0179 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017a e5fb | | Load 0x2,-0x5 017b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 017c 0264 | d | Execute Discrete,Below_Bound 017d 700b |p | Jump_Nonzero 0x189 017e 00d8 | | Load_Top At_Offset_0 017f 8402 | | Call 0x2,0x2 0180 6806 |h | Jump_Zero 0x187 0181 00d8 | | Load_Top At_Offset_0 0182 0a01 | | Execute_Immediate Plus,0x1 0183 e5fb | | Load 0x2,-0x5 0184 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0185 00d2 | | Pop_Control Pop_Count_2 0186 7802 |x | Jump 0x189 0187 00c8 | | Action Pop_Auxiliary_Range 0188 37f5 |7 | Loop_Decreasing 0x17e 0189 00ce | | Action Pop_Auxiliary 018a 7813 |x | Jump 0x19e 018b 00cf | | Action Mark_Auxiliary 018c e5fb | | Load 0x2,-0x5 018d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 018e e5fb | | Load 0x2,-0x5 018f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0190 0263 | c | Execute Discrete,Above_Bound 0191 700b |p | Jump_Nonzero 0x19d 0192 00d8 | | Load_Top At_Offset_0 0193 8402 | | Call 0x2,0x2 0194 6806 |h | Jump_Zero 0x19b 0195 00d8 | | Load_Top At_Offset_0 0196 0aff | | Execute_Immediate Plus,-0x1 0197 e5fb | | Load 0x2,-0x5 0198 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0199 00d2 | | Pop_Control Pop_Count_2 019a 7802 |x | Jump 0x19d 019b 00c8 | | Action Pop_Auxiliary_Range 019c 3ff5 |? | Loop_Increasing 0x192 019d 00ce | | Action Pop_Auxiliary 019e e5fb | | Load 0x2,-0x5 019f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a0 e5fb | | Load 0x2,-0x5 01a1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a2 027d | } | Execute Discrete,Greater 01a3 6804 |h | Jump_Zero 0x1a8 01a4 e002 | | Load 0x0,0x2 01a5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01a6 e5fb | | Load 0x2,-0x5 01a7 017d | } | Execute Record,Structure_Write 01a8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01a9 0000 0000 | | .BLANK 0000[0x7] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bf | | .CONST 0x01bf ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 4820 |H | Short_Literal 0x20 01b4 e5ff | | Load 0x2,-0x1 01b5 e7ff | | Load 0x3,-0x1 01b6 00d8 | | Load_Top At_Offset_0 01b7 00e4 | | Load_Encached Positive_Cache 01b8 0260 | ` | Execute Discrete,In_Type 01b9 7001 |p | Jump_Nonzero 0x1bb 01ba 0801 | | Execute_Immediate Raise,0x1 01bb e002 | | Load 0x0,0x2 01bc 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 01bd e003 | | Load 0x0,0x3 01be 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01bf BODY_01b0: 01bf 00d8 | | Load_Top At_Offset_0 01c0 01db | | Execute Vector,Length 01c1 0b00 | | Execute_Immediate Case_Compare,0x0 01c2 702d |p- | Jump_Nonzero 0x1f0 01c3 0f01 | | Execute_Immediate Equal,0x1 01c4 702e |p. | Jump_Nonzero 0x1f3 01c5 00d8 | | Load_Top At_Offset_0 01c6 01dd | | Execute Vector,First 01c7 00d9 | | Load_Top At_Offset_1 01c8 01dd | | Execute Vector,First 01c9 0a01 | | Execute_Immediate Plus,0x1 01ca 00d8 | | Load_Top At_Offset_0 01cb 00e2 | | Load_Encached Integer_Cache 01cc 0260 | ` | Execute Discrete,In_Type 01cd 7001 |p | Jump_Nonzero 0x1cf 01ce 0801 | | Execute_Immediate Raise,0x1 01cf 00da | | Load_Top At_Offset_2 01d0 01cf | | Execute Vector,Slice_Read 01d1 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "--" 01d3 01df | | Execute Vector,Equal 01d4 6819 |h | Jump_Zero 0x1ee 01d5 e5fc | | Load 0x2,-0x4 01d6 01db | | Execute Vector,Length 01d7 7002 |p | Jump_Nonzero 0x1da 01d8 4800 |H | Short_Literal 0x0 01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01da 00d8 | | Load_Top At_Offset_0 01db 01dd | | Execute Vector,First 01dc 0a02 | | Execute_Immediate Plus,0x2 01dd 00d9 | | Load_Top At_Offset_1 01de 01dc | | Execute Vector,Last 01df 027a | z | Execute Discrete,Less_Equal 01e0 680b |h | Jump_Zero 0x1ec 01e1 4800 |H | Short_Literal 0x0 01e2 e5fc | | Load 0x2,-0x4 01e3 00da | | Load_Top At_Offset_2 01e4 01dd | | Execute Vector,First 01e5 0a02 | | Execute_Immediate Plus,0x2 01e6 00db | | Load_Top At_Offset_3 01e7 01d7 | | Execute Vector,Field_Read 01e8 e003 | | Load 0x0,0x3 01e9 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01ea 0f00 | | Execute_Immediate Equal,0x0 01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ec 4801 |H | Short_Literal 0x1 01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ee 4801 |H | Short_Literal 0x1 01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f0 00d1 | | Pop_Control Pop_Count_1 01f1 e5fd | | Load 0x2,-0x3 01f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f3 4801 |H | Short_Literal 0x1 01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f5 ; -------------------------------------------------------------------------------------- 01f5 ; STRING TABLE 01f5 ; -------------------------------------------------------------------------------------- 01f5 000c | | .STRTAB 0x000c->0x01fb ; "BEFORE" 01f6 0010 | | .STRTAB 0x0010->0x01fe ; "AFTER" 01f7 0013 | | .STRTAB 0x0013->0x0200 ; "EVERYTHING" 01f8 001b | | .STRTAB 0x001b->0x0205 ; "INSIDE" 01f9 001f | | .STRTAB 0x001f->0x0208 ; "--" 01fa 001f | | .STREND 0x001f->0x0209 01fb 4245 464f |BEFO| .STRTAB_STRINGS 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; Debug Table 0210 ; -------------------------------------------------------------------------------------- 0210 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d82,0x0000,0x0001,0x0000 0216 0000 0000 | | .BLANK 0000[0x1ea]