|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5e40f2
└─⟦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 0668 | h | .CONST 0x0668 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0011 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0013 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0015 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0017 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0019 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 001b 00bf | | Action Accept_Activation 001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001f 00c7 | | Action Elaborate_Subprogram 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 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0025 00c7 | | Action Elaborate_Subprogram 0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0027 00c7 | | Action Elaborate_Subprogram 0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0029 00c7 | | Action Elaborate_Subprogram 002a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 003d | = | .CONST 0x003d ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0004 | | .CONST 0x0004 ; Number of locals 0033 INIT_0030: 0033 00e2 | | Load_Encached Integer_Cache 0034 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0035 e001 | | Load 0x0,0x1 0036 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0037 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0038 02c7 | | Declare_Variable Any 0039 e5ff | | Load 0x2,-0x1 003a a403 | | Store_Unchecked 0x2,0x3 003b 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 003d BODY_0030: 003d 00cf | | Action Mark_Auxiliary 003e 780d |x | Jump 0x4c 003f 00da | | Load_Top At_Offset_2 0040 0217 | | Execute Heap_Access,All_Reference 0041 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0042 8404 | | Call 0x2,0x4 0043 6803 |h | Jump_Zero 0x47 0044 00db | | Load_Top At_Offset_3 0045 0a01 | | Execute_Immediate Plus,0x1 0046 c402 | | Store 0x2,0x2 0047 00da | | Load_Top At_Offset_2 0048 0217 | | Execute Heap_Access,All_Reference 0049 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 004a c403 | | Store 0x2,0x3 004b 00c9 | | Action Pop_Auxiliary_Loop 004c 00da | | Load_Top At_Offset_2 004d 77f1 |w | Jump_Nonzero 0x3f 004e 00ce | | Action Pop_Auxiliary 004f 00da | | Load_Top At_Offset_2 0050 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0051 0000 0000 | | .BLANK 0000[0x7] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0060 | ` | .CONST 0x0060 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c 01dd | | Execute Vector,First 005d 0aff | | Execute_Immediate Plus,-0x1 005e 00e2 | | Load_Encached Integer_Cache 005f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0060 BODY_0058: 0060 00cf | | Action Mark_Auxiliary 0061 794c |yL | Jump 0x1ae 0062 00d9 | | Load_Top At_Offset_1 0063 0a01 | | Execute_Immediate Plus,0x1 0064 005a | Z | Store_Top Discrete,At_Offset_2 0065 00d9 | | Load_Top At_Offset_1 0066 e5ff | | Load 0x2,-0x1 0067 01d7 | | Execute Vector,Field_Read 0068 00d8 | | Load_Top At_Offset_0 0069 0d09 | | Execute_Immediate Less,0x9 006a 7051 |pQ | Jump_Nonzero 0xbc 006b 00d8 | | Load_Top At_Offset_0 006c 0c41 | A | Execute_Immediate Greater_Equal,0x41 006d 7046 |pF | Jump_Nonzero 0xb4 006e 0af7 | | Execute_Immediate Plus,-0x9 006f 4637 |F7 | Jump_Case 0x38 0070 793c |y< | Jump 0x1ad ; case 0x0 0071 793b |y; | Jump 0x1ad ; case 0x1 0072 7835 |x5 | Jump 0xa8 ; case 0x2 0073 7834 |x4 | Jump 0xa8 ; case 0x3 0074 7833 |x3 | Jump 0xa8 ; case 0x4 0075 7832 |x2 | Jump 0xa8 ; case 0x5 0076 7831 |x1 | Jump 0xa8 ; case 0x6 0077 7830 |x0 | Jump 0xa8 ; case 0x7 0078 782f |x/ | Jump 0xa8 ; case 0x8 0079 782e |x. | Jump 0xa8 ; case 0x9 007a 782d |x- | Jump 0xa8 ; case 0xa 007b 782c |x, | Jump 0xa8 ; case 0xb 007c 782b |x+ | Jump 0xa8 ; case 0xc 007d 782a |x* | Jump 0xa8 ; case 0xd 007e 7829 |x) | Jump 0xa8 ; case 0xe 007f 7828 |x( | Jump 0xa8 ; case 0xf 0080 7827 |x' | Jump 0xa8 ; case 0x10 0081 7826 |x& | Jump 0xa8 ; case 0x11 0082 7825 |x% | Jump 0xa8 ; case 0x12 0083 7824 |x$ | Jump 0xa8 ; case 0x13 0084 7823 |x# | Jump 0xa8 ; case 0x14 0085 7822 |x" | Jump 0xa8 ; case 0x15 0086 7821 |x! | Jump 0xa8 ; case 0x16 0087 7925 |y% | Jump 0x1ad ; case 0x17 0088 781f |x | Jump 0xa8 ; case 0x18 0089 7878 |xx | Jump 0x102 ; case 0x19 008a 781d |x | Jump 0xa8 ; case 0x1a 008b 781c |x | Jump 0xa8 ; case 0x1b 008c 781b |x | Jump 0xa8 ; case 0x1c 008d 781a |x | Jump 0xa8 ; case 0x1d 008e 7899 |x | Jump 0x128 ; case 0x1e 008f 7818 |x | Jump 0xa8 ; case 0x1f 0090 7817 |x | Jump 0xa8 ; case 0x20 0091 7816 |x | Jump 0xa8 ; case 0x21 0092 7815 |x | Jump 0xa8 ; case 0x22 0093 7814 |x | Jump 0xa8 ; case 0x23 0094 78ca |x | Jump 0x15f ; case 0x24 0095 7812 |x | Jump 0xa8 ; case 0x25 0096 7811 |x | Jump 0xa8 ; case 0x26 0097 7827 |x' | Jump 0xbf ; case 0x27 0098 7826 |x& | Jump 0xbf ; case 0x28 0099 7825 |x% | Jump 0xbf ; case 0x29 009a 7824 |x$ | Jump 0xbf ; case 0x2a 009b 7823 |x# | Jump 0xbf ; case 0x2b 009c 7822 |x" | Jump 0xbf ; case 0x2c 009d 7821 |x! | Jump 0xbf ; case 0x2d 009e 7820 |x | Jump 0xbf ; case 0x2e 009f 781f |x | Jump 0xbf ; case 0x2f 00a0 781e |x | Jump 0xbf ; case 0x30 00a1 7806 |x | Jump 0xa8 ; case 0x31 00a2 7805 |x | Jump 0xa8 ; case 0x32 00a3 7804 |x | Jump 0xa8 ; case 0x33 00a4 7803 |x | Jump 0xa8 ; case 0x34 00a5 7802 |x | Jump 0xa8 ; case 0x35 00a6 7801 |x | Jump 0xa8 ; case 0x36 00a7 7800 |x | Jump 0xa8 ; case 0x37 00a8 e5fc | | Load 0x2,-0x4 00a9 0a01 | | Execute_Immediate Plus,0x1 00aa c5fc | | Store 0x2,-0x4 00ab 00d9 | | Load_Top At_Offset_1 00ac e5ff | | Load 0x2,-0x1 00ad 01d7 | | Execute Vector,Field_Read 00ae e5fc | | Load 0x2,-0x4 00af e5fd | | Load 0x2,-0x3 00b0 01d6 | | Execute Vector,Field_Write 00b1 4800 |H | Short_Literal 0x0 00b2 a5fb | | Store_Unchecked 0x2,-0x5 00b3 78f9 |x | Jump 0x1ad 00b4 00d8 | | Load_Top At_Offset_0 00b5 0c5b | [ | Execute_Immediate Greater_Equal,0x5b 00b6 6807 |h | Jump_Zero 0xbe 00b7 4861 |Ha | Short_Literal 0x61 00b8 487a |Hz | Short_Literal 0x7a 00b9 0262 | b | Execute Discrete,In_Range 00ba 7004 |p | Jump_Nonzero 0xbf 00bb 7fec | | Jump 0xa8 00bc 00d1 | | Pop_Control Pop_Count_1 00bd 7fea | | Jump 0xa8 00be 00d1 | | Pop_Control Pop_Count_1 00bf e5fb | | Load 0x2,-0x5 00c0 6808 |h | Jump_Zero 0xc9 00c1 e5fc | | Load 0x2,-0x4 00c2 0a01 | | Execute_Immediate Plus,0x1 00c3 c5fc | | Store 0x2,-0x4 00c4 4820 |H | Short_Literal 0x20 00c5 e5fc | | Load 0x2,-0x4 00c6 e5fd | | Load 0x2,-0x3 00c7 01d6 | | Execute Vector,Field_Write 00c8 7802 |x | Jump 0xcb 00c9 4801 |H | Short_Literal 0x1 00ca a5fb | | Store_Unchecked 0x2,-0x5 00cb 00cf | | Action Mark_Auxiliary 00cc 782e |x. | Jump 0xfb 00cd 00da | | Load_Top At_Offset_2 00ce e5ff | | Load 0x2,-0x1 00cf 01d7 | | Execute Vector,Field_Read 00d0 00d8 | | Load_Top At_Offset_0 00d1 0d5b | [ | Execute_Immediate Less,0x5b 00d2 7009 |p | Jump_Nonzero 0xdc 00d3 00d8 | | Load_Top At_Offset_0 00d4 0c61 | a | Execute_Immediate Greater_Equal,0x61 00d5 7003 |p | Jump_Nonzero 0xd9 00d6 0f5f | _ | Execute_Immediate Equal,0x5f 00d7 700f |p | Jump_Nonzero 0xe7 00d8 781d |x | Jump 0xf6 00d9 0c7b | { | Execute_Immediate Greater_Equal,0x7b 00da 680c |h | Jump_Zero 0xe7 00db 781a |x | Jump 0xf6 00dc 00d8 | | Load_Top At_Offset_0 00dd 4830 |H0 | Short_Literal 0x30 00de 4839 |H9 | Short_Literal 0x39 00df 0262 | b | Execute Discrete,In_Range 00e0 7005 |p | Jump_Nonzero 0xe6 00e1 4841 |HA | Short_Literal 0x41 00e2 485a |HZ | Short_Literal 0x5a 00e3 0262 | b | Execute Discrete,In_Range 00e4 7002 |p | Jump_Nonzero 0xe7 00e5 7810 |x | Jump 0xf6 00e6 00d1 | | Pop_Control Pop_Count_1 00e7 e5fc | | Load 0x2,-0x4 00e8 0a01 | | Execute_Immediate Plus,0x1 00e9 c5fc | | Store 0x2,-0x4 00ea 00da | | Load_Top At_Offset_2 00eb e5ff | | Load 0x2,-0x1 00ec 01d7 | | Execute Vector,Field_Read 00ed e002 | | Load 0x0,0x2 00ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ef e5fc | | Load 0x2,-0x4 00f0 e5fd | | Load 0x2,-0x3 00f1 01d6 | | Execute Vector,Field_Write 00f2 00da | | Load_Top At_Offset_2 00f3 0a01 | | Execute_Immediate Plus,0x1 00f4 005b | [ | Store_Top Discrete,At_Offset_3 00f5 7804 |x | Jump 0xfa 00f6 00da | | Load_Top At_Offset_2 00f7 0aff | | Execute_Immediate Plus,-0x1 00f8 005b | [ | Store_Top Discrete,At_Offset_3 00f9 7806 |x | Jump 0x100 00fa 00c9 | | Action Pop_Auxiliary_Loop 00fb 00da | | Load_Top At_Offset_2 00fc e5ff | | Load 0x2,-0x1 00fd 01dc | | Execute Vector,Last 00fe 027a | z | Execute Discrete,Less_Equal 00ff 77cd |w | Jump_Nonzero 0xcd 0100 00ce | | Action Pop_Auxiliary 0101 78ab |x | Jump 0x1ad 0102 e5fc | | Load 0x2,-0x4 0103 0a01 | | Execute_Immediate Plus,0x1 0104 c5fc | | Store 0x2,-0x4 0105 00d9 | | Load_Top At_Offset_1 0106 e5ff | | Load 0x2,-0x1 0107 01d7 | | Execute Vector,Field_Read 0108 e5fc | | Load 0x2,-0x4 0109 e5fd | | Load 0x2,-0x3 010a 01d6 | | Execute Vector,Field_Write 010b 00cf | | Action Mark_Auxiliary 010c 7812 |x | Jump 0x11f 010d 00da | | Load_Top At_Offset_2 010e 0a01 | | Execute_Immediate Plus,0x1 010f 005b | [ | Store_Top Discrete,At_Offset_3 0110 e5fc | | Load 0x2,-0x4 0111 0a01 | | Execute_Immediate Plus,0x1 0112 c5fc | | Store 0x2,-0x4 0113 00da | | Load_Top At_Offset_2 0114 e5ff | | Load 0x2,-0x1 0115 01d7 | | Execute Vector,Field_Read 0116 e5fc | | Load 0x2,-0x4 0117 e5fd | | Load 0x2,-0x3 0118 01d6 | | Execute Vector,Field_Write 0119 00da | | Load_Top At_Offset_2 011a e5ff | | Load 0x2,-0x1 011b 01d7 | | Execute Vector,Field_Read 011c 0f22 | " | Execute_Immediate Equal,0x22 011d 7006 |p | Jump_Nonzero 0x124 011e 00c9 | | Action Pop_Auxiliary_Loop 011f 00da | | Load_Top At_Offset_2 0120 e5ff | | Load 0x2,-0x1 0121 01dc | | Execute Vector,Last 0122 027c | | | Execute Discrete,Less 0123 77e9 |w | Jump_Nonzero 0x10d 0124 00ce | | Action Pop_Auxiliary 0125 4800 |H | Short_Literal 0x0 0126 a5fb | | Store_Unchecked 0x2,-0x5 0127 7885 |x | Jump 0x1ad 0128 00d9 | | Load_Top At_Offset_1 0129 0a01 | | Execute_Immediate Plus,0x1 012a e5ff | | Load 0x2,-0x1 012b 01dc | | Execute Vector,Last 012c 027c | | | Execute Discrete,Less 012d 6827 |h' | Jump_Zero 0x155 012e 00d9 | | Load_Top At_Offset_1 012f 0a02 | | Execute_Immediate Plus,0x2 0130 e5ff | | Load 0x2,-0x1 0131 01d7 | | Execute Vector,Field_Read 0132 0f27 | ' | Execute_Immediate Equal,0x27 0133 6821 |h! | Jump_Zero 0x155 0134 00d9 | | Load_Top At_Offset_1 0135 00da | | Load_Top At_Offset_2 0136 0a02 | | Execute_Immediate Plus,0x2 0137 00d8 | | Load_Top At_Offset_0 0138 00e2 | | Load_Encached Integer_Cache 0139 0260 | ` | Execute Discrete,In_Type 013a 7001 |p | Jump_Nonzero 0x13c 013b 0801 | | Execute_Immediate Raise,0x1 013c e5ff | | Load 0x2,-0x1 013d 01cf | | Execute Vector,Slice_Read 013e e5fc | | Load 0x2,-0x4 013f 0a01 | | Execute_Immediate Plus,0x1 0140 00d8 | | Load_Top At_Offset_0 0141 00e2 | | Load_Encached Integer_Cache 0142 0260 | ` | Execute Discrete,In_Type 0143 7001 |p | Jump_Nonzero 0x145 0144 0801 | | Execute_Immediate Raise,0x1 0145 e5fc | | Load 0x2,-0x4 0146 0a03 | | Execute_Immediate Plus,0x3 0147 00d8 | | Load_Top At_Offset_0 0148 00e2 | | Load_Encached Integer_Cache 0149 0260 | ` | Execute Discrete,In_Type 014a 7001 |p | Jump_Nonzero 0x14c 014b 0801 | | Execute_Immediate Raise,0x1 014c e5fd | | Load 0x2,-0x3 014d 01ce | | Execute Vector,Slice_Write 014e e5fc | | Load 0x2,-0x4 014f 0a03 | | Execute_Immediate Plus,0x3 0150 c5fc | | Store 0x2,-0x4 0151 00d9 | | Load_Top At_Offset_1 0152 0a02 | | Execute_Immediate Plus,0x2 0153 005a | Z | Store_Top Discrete,At_Offset_2 0154 7807 |x | Jump 0x15c 0155 e5fc | | Load 0x2,-0x4 0156 0a01 | | Execute_Immediate Plus,0x1 0157 c5fc | | Store 0x2,-0x4 0158 4827 |H' | Short_Literal 0x27 0159 e5fc | | Load 0x2,-0x4 015a e5fd | | Load 0x2,-0x3 015b 01d6 | | Execute Vector,Field_Write 015c 4800 |H | Short_Literal 0x0 015d a5fb | | Store_Unchecked 0x2,-0x5 015e 784e |xN | Jump 0x1ad 015f 00d9 | | Load_Top At_Offset_1 0160 e5ff | | Load 0x2,-0x1 0161 01dc | | Execute Vector,Last 0162 027c | | | Execute Discrete,Less 0163 683e |h> | Jump_Zero 0x1a2 0164 00d9 | | Load_Top At_Offset_1 0165 0a01 | | Execute_Immediate Plus,0x1 0166 e5ff | | Load 0x2,-0x1 0167 01d7 | | Execute Vector,Field_Read 0168 0f2d | - | Execute_Immediate Equal,0x2d 0169 6838 |h8 | Jump_Zero 0x1a2 016a e5fe | | Load 0x2,-0x2 016b 6812 |h | Jump_Zero 0x17e 016c 00cf | | Action Mark_Auxiliary 016d 7804 |x | Jump 0x172 016e 00da | | Load_Top At_Offset_2 016f 0a01 | | Execute_Immediate Plus,0x1 0170 005b | [ | Store_Top Discrete,At_Offset_3 0171 00c9 | | Action Pop_Auxiliary_Loop 0172 00da | | Load_Top At_Offset_2 0173 e5ff | | Load 0x2,-0x1 0174 01dc | | Execute Vector,Last 0175 027a | z | Execute Discrete,Less_Equal 0176 6805 |h | Jump_Zero 0x17c 0177 00da | | Load_Top At_Offset_2 0178 e5ff | | Load 0x2,-0x1 0179 01d7 | | Execute Vector,Field_Read 017a 0e0a | | Execute_Immediate Not_Equal,0xa 017b 77f2 |w | Jump_Nonzero 0x16e 017c 00ce | | Action Pop_Auxiliary 017d 782f |x/ | Jump 0x1ad 017e 00cf | | Action Mark_Auxiliary 017f 780d |x | Jump 0x18d 0180 e5fc | | Load 0x2,-0x4 0181 0a01 | | Execute_Immediate Plus,0x1 0182 c5fc | | Store 0x2,-0x4 0183 00da | | Load_Top At_Offset_2 0184 e5ff | | Load 0x2,-0x1 0185 01d7 | | Execute Vector,Field_Read 0186 e5fc | | Load 0x2,-0x4 0187 e5fd | | Load 0x2,-0x3 0188 01d6 | | Execute Vector,Field_Write 0189 00da | | Load_Top At_Offset_2 018a 0a01 | | Execute_Immediate Plus,0x1 018b 005b | [ | Store_Top Discrete,At_Offset_3 018c 00c9 | | Action Pop_Auxiliary_Loop 018d 00da | | Load_Top At_Offset_2 018e e5ff | | Load 0x2,-0x1 018f 01dc | | Execute Vector,Last 0190 027a | z | Execute Discrete,Less_Equal 0191 6805 |h | Jump_Zero 0x197 0192 00da | | Load_Top At_Offset_2 0193 e5ff | | Load 0x2,-0x1 0194 01d7 | | Execute Vector,Field_Read 0195 0e0a | | Execute_Immediate Not_Equal,0xa 0196 77e9 |w | Jump_Nonzero 0x180 0197 00ce | | Action Pop_Auxiliary 0198 e5fc | | Load 0x2,-0x4 0199 0a01 | | Execute_Immediate Plus,0x1 019a c5fc | | Store 0x2,-0x4 019b 480a |H | Short_Literal 0xa 019c e5fc | | Load 0x2,-0x4 019d e5fd | | Load 0x2,-0x3 019e 01d6 | | Execute Vector,Field_Write 019f 4800 |H | Short_Literal 0x0 01a0 a5fb | | Store_Unchecked 0x2,-0x5 01a1 780b |x | Jump 0x1ad 01a2 e5fc | | Load 0x2,-0x4 01a3 0a01 | | Execute_Immediate Plus,0x1 01a4 c5fc | | Store 0x2,-0x4 01a5 00d9 | | Load_Top At_Offset_1 01a6 e5ff | | Load 0x2,-0x1 01a7 01d7 | | Execute Vector,Field_Read 01a8 e5fc | | Load 0x2,-0x4 01a9 e5fd | | Load 0x2,-0x3 01aa 01d6 | | Execute Vector,Field_Write 01ab 4800 |H | Short_Literal 0x0 01ac a5fb | | Store_Unchecked 0x2,-0x5 01ad 00c9 | | Action Pop_Auxiliary_Loop 01ae 00d9 | | Load_Top At_Offset_1 01af e5ff | | Load 0x2,-0x1 01b0 01dc | | Execute Vector,Last 01b1 027c | | | Execute Discrete,Less 01b2 76af |v | Jump_Nonzero 0x62 01b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01ca | | .CONST 0x01ca ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0004 | | .CONST 0x0004 ; Number of locals 01bb INIT_01b8: 01bb 4801 |H | Short_Literal 0x1 01bc 00db | | Load_Top At_Offset_3 01bd 01db | | Execute Vector,Length 01be 00d8 | | Load_Top At_Offset_0 01bf 00e2 | | Load_Encached Integer_Cache 01c0 0260 | ` | Execute Discrete,In_Type 01c1 7001 |p | Jump_Nonzero 0x1c3 01c2 0801 | | Execute_Immediate Raise,0x1 01c3 00e9 | | Load_Encached String_Cache 01c4 035b | [ | Declare_Type Array,Constrained 01c5 0337 | 7 | Declare_Variable Array 01c6 00e2 | | Load_Encached Integer_Cache 01c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c8 00e1 | | Load_Encached Boolean_Cache 01c9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01ca BODY_01b8: 01ca 00d8 | | Load_Top At_Offset_0 01cb 00da | | Load_Top At_Offset_2 01cc e402 | | Load 0x2,0x2 01cd e5fe | | Load 0x2,-0x2 01ce e5ff | | Load 0x2,-0x1 01cf 820e | | Call 0x1,0xe 01d0 00d1 | | Pop_Control Pop_Count_1 01d1 005b | [ | Store_Top Discrete,At_Offset_3 01d2 0059 | Y | Store_Top Discrete,At_Offset_1 01d3 4801 |H | Short_Literal 0x1 01d4 00da | | Load_Top At_Offset_2 01d5 e402 | | Load 0x2,0x2 01d6 01cf | | Execute Vector,Slice_Read 01d7 00e9 | | Load_Encached String_Cache 01d8 01c6 | | Execute Vector,Convert_To_Formal 01d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4801 |H | Short_Literal 0x1 01e4 00db | | Load_Top At_Offset_3 01e5 0092 0600 | | Action Push_String_Extended,0x600 ; "'body" 01e7 e002 | | Load 0x0,0x2 01e8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01e9 0c01 | | Execute_Immediate Greater_Equal,0x1 01ea 6803 |h | Jump_Zero 0x1ee 01eb 0092 0601 | | Action Push_String_Extended,0x601 ; "BODY" 01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ee 0092 0602 | | Action Push_String_Extended,0x602 ; "SPEC" 01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0203 | | .CONST 0x0203 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb 4801 |H | Short_Literal 0x1 01fc 00db | | Load_Top At_Offset_3 01fd 0092 0603 | | Action Push_String_Extended,0x603 ; "'V" 01ff e002 | | Load 0x0,0x2 0200 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0201 00e2 | | Load_Encached Integer_Cache 0202 03f1 | | Declare_Variable Discrete,With_Value 0203 BODY_01f8: 0203 00d8 | | Load_Top At_Offset_0 0204 0c01 | | Execute_Immediate Greater_Equal,0x1 0205 680e |h | Jump_Zero 0x214 0206 00db | | Load_Top At_Offset_3 0207 01dd | | Execute Vector,First 0208 00d9 | | Load_Top At_Offset_1 0209 0aff | | Execute_Immediate Plus,-0x1 020a 00d8 | | Load_Top At_Offset_0 020b 00e2 | | Load_Encached Integer_Cache 020c 0260 | ` | Execute Discrete,In_Type 020d 7001 |p | Jump_Nonzero 0x20f 020e 0801 | | Execute_Immediate Raise,0x1 020f e5ff | | Load 0x2,-0x1 0210 01cf | | Execute Vector,Slice_Read 0211 0335 | 5 | Declare_Variable Array,Duplicate 0212 00cd | | Action Spare6_Action 0213 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0214 00db | | Load_Top At_Offset_3 0215 0335 | 5 | Declare_Variable Array,Duplicate 0216 00cd | | Action Spare6_Action 0217 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 022b | + | .CONST 0x022b ; Address of begin 0219 0246 | F | .CONST 0x0246 ; Address of exception handler 021a 0006 | | .CONST 0x0006 ; Number of locals 021b INIT_0218: 021b 4800 |H | Short_Literal 0x0 021c 4802 |H | Short_Literal 0x2 021d 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call 021f 03fd | | Declare_Type Discrete,Defined 0220 e003 | | Load 0x0,0x3 0221 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0222 02c7 | | Declare_Variable Any 0223 00d8 | | Load_Top At_Offset_0 0224 1c00 | | Execute_Immediate Run_Utility,0x0 0225 029f 046b | k| Declare_Subprogram INIT_0468,For_Call 0227 029f 049b | | Declare_Subprogram INIT_0498,For_Call 0229 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call 022b BODY_0218: 022b 4800 |H | Short_Literal 0x0 022c a5fb | | Store_Unchecked 0x2,-0x5 022d 00db | | Load_Top At_Offset_3 022e 00ea | | Load_Encached Null_String_Cache 022f e5ff | | Load 0x2,-0x1 0230 4800 |H | Short_Literal 0x0 0231 e003 | | Load 0x0,0x3 0232 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0233 c403 | | Store 0x2,0x3 0234 4802 |H | Short_Literal 0x2 0235 e403 | | Load 0x2,0x3 0236 e003 | | Load 0x0,0x3 0237 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0238 00cf | | Action Mark_Auxiliary 0239 7805 |x | Jump 0x23f 023a e403 | | Load 0x2,0x3 023b e003 | | Load 0x0,0x3 023c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 023d 8406 | | Call 0x2,0x6 023e 00c9 | | Action Pop_Auxiliary_Loop 023f e403 | | Load 0x2,0x3 0240 e003 | | Load 0x0,0x3 0241 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0242 6ff7 |o | Jump_Zero 0x23a 0243 00ce | | Action Pop_Auxiliary 0244 4950 |IP | Short_Literal 0x150 0245 0257 | W | Execute Discrete,Raise 0246 TRAP_0218: 0246 00d8 | | Load_Top At_Offset_0 0247 0107 | | Execute Exception,Get_Name 0248 4950 |IP | Short_Literal 0x150 0249 495f |I_ | Short_Literal 0x15f 024a 0262 | b | Execute Discrete,In_Range 024b 681d |h | Jump_Zero 0x269 024c e403 | | Load 0x2,0x3 024d e003 | | Load 0x0,0x3 024e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 024f c403 | | Store 0x2,0x3 0250 e5fb | | Load 0x2,-0x5 0251 e5fd | | Load 0x2,-0x3 0252 0279 | y | Execute Discrete,And 0253 6814 |h | Jump_Zero 0x268 0254 0092 0604 | | Action Push_String_Extended,0x604 ; "# Finish " 0256 480a |H | Short_Literal 0xa 0257 484c |HL | Short_Literal 0x4c 0258 00e9 | | Load_Encached String_Cache 0259 035b | [ | Declare_Type Array,Constrained 025a 0337 | 7 | Declare_Variable Array 025b 484c |HL | Short_Literal 0x4c 025c 480a |H | Short_Literal 0xa 025d 4823 |H# | Short_Literal 0x23 025e 00d9 | | Load_Top At_Offset_1 025f e409 | | Load 0x2,0x9 0260 01d6 | | Execute Vector,Field_Write 0261 3ffb |? | Loop_Increasing 0x25d 0262 01cc | | Execute Vector,Catenate 0263 e003 | | Load 0x0,0x3 0264 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0265 4801 |H | Short_Literal 0x1 0266 e003 | | Load 0x0,0x3 0267 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0268 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0269 0100 | | Execute Exception,Raise 026a 0000 0000 | | .BLANK 0000[0x6] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0275 | u | .CONST 0x0275 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 0275 BODY_0270: 0275 00db | | Load_Top At_Offset_3 0276 8402 | | Call 0x2,0x2 0277 e5fe | | Load 0x2,-0x2 0278 8402 | | Call 0x2,0x2 0279 01df | | Execute Vector,Equal 027a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 02c2 | | .CONST 0x02c2 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 000f | | .CONST 0x000f ; Number of locals 0283 INIT_0280: 0283 e001 | | Load 0x0,0x1 0284 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0285 02c7 | | Declare_Variable Any 0286 00d8 | | Load_Top At_Offset_0 0287 1c00 | | Execute_Immediate Run_Utility,0x0 0288 e001 | | Load 0x0,0x1 0289 1b14 | | Execute Package,Field_Read,Field_Number 0x14 028a 02ff | | Declare_Variable Variant_Record 028b 00d8 | | Load_Top At_Offset_0 028c 1c00 | | Execute_Immediate Run_Utility,0x0 028d 00e1 | | Load_Encached Boolean_Cache 028e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 028f e001 | | Load 0x0,0x1 0290 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0291 e001 | | Load 0x0,0x1 0292 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0293 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0294 e004 | | Load 0x0,0x4 0295 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0296 02c7 | | Declare_Variable Any 0297 00d8 | | Load_Top At_Offset_0 0298 1c00 | | Execute_Immediate Run_Utility,0x0 0299 e001 | | Load 0x0,0x1 029a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 029b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 029c 02c7 | | Declare_Variable Any 029d 00d8 | | Load_Top At_Offset_0 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f e001 | | Load 0x0,0x1 02a0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a2 02c7 | | Declare_Variable Any 02a3 00d8 | | Load_Top At_Offset_0 02a4 1c00 | | Execute_Immediate Run_Utility,0x0 02a5 e001 | | Load 0x0,0x1 02a6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02a7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02a8 02c7 | | Declare_Variable Any 02a9 00d8 | | Load_Top At_Offset_0 02aa 1c00 | | Execute_Immediate Run_Utility,0x0 02ab e001 | | Load 0x0,0x1 02ac 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02ad 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02ae 02c7 | | Declare_Variable Any 02af 00d8 | | Load_Top At_Offset_0 02b0 1c00 | | Execute_Immediate Run_Utility,0x0 02b1 00e1 | | Load_Encached Boolean_Cache 02b2 e001 | | Load 0x0,0x1 02b3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02b4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02b5 02c7 | | Declare_Variable Any 02b6 00d8 | | Load_Top At_Offset_0 02b7 1c00 | | Execute_Immediate Run_Utility,0x0 02b8 00e2 | | Load_Encached Integer_Cache 02b9 0605 | | Execute_Immediate Set_Value_Unchecked,0x5 02ba e005 | | Load 0x0,0x5 02bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02bc 02c7 | | Declare_Variable Any 02bd e006 | | Load 0x0,0x6 02be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02bf e005 | | Load 0x0,0x5 02c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02c1 a40f | | Store_Unchecked 0x2,0xf 02c2 BODY_0280: 02c2 e001 | | Load 0x0,0x1 02c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c5 e402 | | Load 0x2,0x2 02c6 0120 | | Execute Any,Is_Value 02c7 6803 |h | Jump_Zero 0x2cb 02c8 e001 | | Load 0x0,0x1 02c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ca 7801 |x | Jump 0x2cc 02cb e402 | | Load 0x2,0x2 02cc 612f |a/ | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000} 02cd e005 | | Load 0x0,0x5 02ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02cf e007 | | Load 0x0,0x7 02d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d1 e001 | | Load 0x0,0x1 02d2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02d4 e5ff | | Load 0x2,-0x1 02d5 e001 | | Load 0x0,0x1 02d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02d7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02d8 c402 | | Store 0x2,0x2 02d9 c406 | | Store 0x2,0x6 02da e001 | | Load 0x0,0x1 02db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02dc e403 | | Load 0x2,0x3 02dd 611e |a | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000} 02de e005 | | Load 0x0,0x5 02df 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e0 4800 |H | Short_Literal 0x0 02e1 e402 | | Load 0x2,0x2 02e2 e001 | | Load 0x0,0x1 02e3 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 02e4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02e5 00d1 | | Pop_Control Pop_Count_1 02e6 c405 | | Store 0x2,0x5 02e7 e001 | | Load 0x0,0x1 02e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e9 00e1 | | Load_Encached Boolean_Cache 02ea 6111 |a | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000} 02eb e005 | | Load 0x0,0x5 02ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ed e402 | | Load 0x2,0x2 02ee e001 | | Load 0x0,0x1 02ef 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 02f0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02f1 c404 | | Store 0x2,0x4 02f2 c405 | | Store 0x2,0x5 02f3 e404 | | Load 0x2,0x4 02f4 680a |h | Jump_Zero 0x2ff 02f5 e001 | | Load 0x0,0x1 02f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f7 6104 |a | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000} 02f8 e005 | | Load 0x0,0x5 02f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02fa e402 | | Load 0x2,0x2 02fb e001 | | Load 0x0,0x1 02fc 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 02fd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02fe c405 | | Store 0x2,0x5 02ff e001 | | Load 0x0,0x1 0300 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0301 00db | | Load_Top At_Offset_3 0302 0120 | | Execute Any,Is_Value 0303 6804 |h | Jump_Zero 0x308 0304 e001 | | Load 0x0,0x1 0305 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0306 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0307 7801 |x | Jump 0x309 0308 00db | | Load_Top At_Offset_3 0309 e40b | | Load 0x2,0xb 030a 0120 | | Execute Any,Is_Value 030b 6804 |h | Jump_Zero 0x310 030c e001 | | Load 0x0,0x1 030d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 030e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 030f 7801 |x | Jump 0x311 0310 e40b | | Load 0x2,0xb 0311 e403 | | Load 0x2,0x3 0312 60e9 |` | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000} 0313 4801 |H | Short_Literal 0x1 0314 4800 |H | Short_Literal 0x0 0315 e005 | | Load 0x0,0x5 0316 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0317 4800 |H | Short_Literal 0x0 0318 e001 | | Load 0x0,0x1 0319 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 031a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 031b 00d1 | | Pop_Control Pop_Count_1 031c c40b | | Store 0x2,0xb 031d c40d | | Store 0x2,0xd 031e c405 | | Store 0x2,0x5 031f e001 | | Load 0x0,0x1 0320 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0321 e409 | | Load 0x2,0x9 0322 0120 | | Execute Any,Is_Value 0323 6802 |h | Jump_Zero 0x326 0324 00f1 | | Load_Encached Diana_Temp_Seq 0325 7801 |x | Jump 0x327 0326 e409 | | Load 0x2,0x9 0327 e408 | | Load 0x2,0x8 0328 0120 | | Execute Any,Is_Value 0329 6804 |h | Jump_Zero 0x32e 032a e001 | | Load 0x0,0x1 032b 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 032c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 032d 7801 |x | Jump 0x32f 032e e408 | | Load 0x2,0x8 032f e40a | | Load 0x2,0xa 0330 0120 | | Execute Any,Is_Value 0331 6802 |h | Jump_Zero 0x334 0332 00ec | | Load_Encached Diana_Tree_Cache 0333 7801 |x | Jump 0x335 0334 e40a | | Load 0x2,0xa 0335 e407 | | Load 0x2,0x7 0336 0120 | | Execute Any,Is_Value 0337 6803 |h | Jump_Zero 0x33b 0338 e004 | | Load 0x0,0x4 0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033a 7801 |x | Jump 0x33c 033b e407 | | Load 0x2,0x7 033c 60bf |` | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000} 033d e40f | | Load 0x2,0xf 033e 4800 |H | Short_Literal 0x0 033f e001 | | Load 0x0,0x1 0340 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0341 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0342 e001 | | Load 0x0,0x1 0343 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0344 4802 |H | Short_Literal 0x2 0345 4801 |H | Short_Literal 0x1 0346 e40b | | Load 0x2,0xb 0347 e001 | | Load 0x0,0x1 0348 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0349 1816 | | Execute Package,Field_Execute,Field_Number 0x16 034a c407 | | Store 0x2,0x7 034b c40a | | Store 0x2,0xa 034c c408 | | Store 0x2,0x8 034d c409 | | Store 0x2,0x9 034e c405 | | Store 0x2,0x5 034f e405 | | Load 0x2,0x5 0350 0f04 | | Execute_Immediate Equal,0x4 0351 a40c | | Store_Unchecked 0x2,0xc 0352 00db | | Load_Top At_Offset_3 0353 688c |h | Jump_Zero 0x3e0 0354 e008 | | Load 0x0,0x8 0355 180e | | Execute Package,Field_Execute,Field_Number 0xe 0356 4804 |H | Short_Literal 0x4 0357 e5ff | | Load 0x2,-0x1 0358 0092 0605 | | Action Push_String_Extended,0x605 ; " has" 035a 01cc | | Execute Vector,Catenate 035b e408 | | Load 0x2,0x8 035c 4975 |Iu | Short_Literal 0x175 035d 00eb | | Load_Encached Diana_Cache 035e 0098 | | Execute Package,Field_Read_Dynamic 035f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0360 e409 | | Load 0x2,0x9 0361 4975 |Iu | Short_Literal 0x175 0362 00eb | | Load_Encached Diana_Cache 0363 0098 | | Execute Package,Field_Read_Dynamic 0364 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0365 0273 | s | Execute Discrete,Plus 0366 00d8 | | Load_Top At_Offset_0 0367 00e2 | | Load_Encached Integer_Cache 0368 0260 | ` | Execute Discrete,In_Type 0369 7001 |p | Jump_Nonzero 0x36b 036a 0801 | | Execute_Immediate Raise,0x1 036b 00e0 | | Load_Encached Standard_Cache 036c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 036d 01cc | | Execute Vector,Catenate 036e 0092 0606 | | Action Push_String_Extended,0x606 ; " IMMEDIATE dependents (" 0370 01cc | | Execute Vector,Catenate 0371 e408 | | Load 0x2,0x8 0372 820d | | Call 0x1,0xd 0373 e409 | | Load 0x2,0x9 0374 820d | | Call 0x1,0xd 0375 0273 | s | Execute Discrete,Plus 0376 00d8 | | Load_Top At_Offset_0 0377 00e2 | | Load_Encached Integer_Cache 0378 0260 | ` | Execute Discrete,In_Type 0379 7001 |p | Jump_Nonzero 0x37b 037a 0801 | | Execute_Immediate Raise,0x1 037b 00e0 | | Load_Encached Standard_Cache 037c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 037d 01cc | | Execute Vector,Catenate 037e 0092 0607 | | Action Push_String_Extended,0x607 ; " specs):" 0380 01cc | | Execute Vector,Catenate 0381 e009 | | Load 0x0,0x9 0382 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0383 00cf | | Action Mark_Auxiliary 0384 4801 |H | Short_Literal 0x1 0385 00db | | Load_Top At_Offset_3 0386 0264 | d | Execute Discrete,Below_Bound 0387 7029 |p) | Jump_Nonzero 0x3b1 0388 e408 | | Load 0x2,0x8 0389 7002 |p | Jump_Nonzero 0x38c 038a 00d2 | | Pop_Control Pop_Count_2 038b 7825 |x% | Jump 0x3b1 038c e408 | | Load 0x2,0x8 038d 0217 | | Execute Heap_Access,All_Reference 038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 038f c40a | | Store 0x2,0xa 0390 e008 | | Load 0x0,0x8 0391 180e | | Execute Package,Field_Execute,Field_Number 0xe 0392 4804 |H | Short_Literal 0x4 0393 0092 0608 | | Action Push_String_Extended,0x608 ; " " 0395 e40a | | Load 0x2,0xa 0396 e001 | | Load 0x0,0x1 0397 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0398 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0399 01cc | | Execute Vector,Catenate 039a e009 | | Load 0x0,0x9 039b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 039c e408 | | Load 0x2,0x8 039d 0217 | | Execute Heap_Access,All_Reference 039e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 039f c408 | | Store 0x2,0x8 03a0 e40e | | Load 0x2,0xe 03a1 0aff | | Execute_Immediate Plus,-0x1 03a2 c40e | | Store 0x2,0xe 03a3 00d8 | | Load_Top At_Offset_0 03a4 0f01 | | Execute_Immediate Equal,0x1 03a5 6809 |h | Jump_Zero 0x3af 03a6 e408 | | Load 0x2,0x8 03a7 6807 |h | Jump_Zero 0x3af 03a8 e008 | | Load 0x0,0x8 03a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 03aa 4804 |H | Short_Literal 0x4 03ab 0092 0609 | | Action Push_String_Extended,0x609 ; " etc..." 03ad e009 | | Load 0x0,0x9 03ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03af 00c8 | | Action Pop_Auxiliary_Range 03b0 37d7 |7 | Loop_Decreasing 0x388 03b1 00c9 | | Action Pop_Auxiliary_Loop 03b2 4801 |H | Short_Literal 0x1 03b3 00db | | Load_Top At_Offset_3 03b4 0264 | d | Execute Discrete,Below_Bound 03b5 7029 |p) | Jump_Nonzero 0x3df 03b6 e409 | | Load 0x2,0x9 03b7 7002 |p | Jump_Nonzero 0x3ba 03b8 00d2 | | Pop_Control Pop_Count_2 03b9 7825 |x% | Jump 0x3df 03ba e409 | | Load 0x2,0x9 03bb 0217 | | Execute Heap_Access,All_Reference 03bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03bd c40a | | Store 0x2,0xa 03be e008 | | Load 0x0,0x8 03bf 180e | | Execute Package,Field_Execute,Field_Number 0xe 03c0 4804 |H | Short_Literal 0x4 03c1 0092 0608 | | Action Push_String_Extended,0x608 ; " " 03c3 e40a | | Load 0x2,0xa 03c4 e001 | | Load 0x0,0x1 03c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03c6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 03c7 01cc | | Execute Vector,Catenate 03c8 e009 | | Load 0x0,0x9 03c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ca e409 | | Load 0x2,0x9 03cb 0217 | | Execute Heap_Access,All_Reference 03cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03cd c408 | | Store 0x2,0x8 03ce e40e | | Load 0x2,0xe 03cf 0aff | | Execute_Immediate Plus,-0x1 03d0 c40e | | Store 0x2,0xe 03d1 00d8 | | Load_Top At_Offset_0 03d2 0f01 | | Execute_Immediate Equal,0x1 03d3 6809 |h | Jump_Zero 0x3dd 03d4 e409 | | Load 0x2,0x9 03d5 6807 |h | Jump_Zero 0x3dd 03d6 e008 | | Load 0x0,0x8 03d7 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d8 4804 |H | Short_Literal 0x4 03d9 0092 060a | | Action Push_String_Extended,0x60a ; " etc... " 03db e009 | | Load 0x0,0x9 03dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03dd 00c8 | | Action Pop_Auxiliary_Range 03de 37d7 |7 | Loop_Decreasing 0x3b6 03df 00ce | | Action Pop_Auxiliary 03e0 e404 | | Load 0x2,0x4 03e1 680a |h | Jump_Zero 0x3ec 03e2 e001 | | Load 0x0,0x1 03e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e4 6017 |` | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000} 03e5 e005 | | Load 0x0,0x5 03e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03e7 e402 | | Load 0x2,0x2 03e8 e001 | | Load 0x0,0x1 03e9 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 03ea 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03eb c405 | | Store 0x2,0x5 03ec 00d8 | | Load_Top At_Offset_0 03ed 4801 |H | Short_Literal 0x1 03ee 4800 |H | Short_Literal 0x0 03ef e005 | | Load 0x0,0x5 03f0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03f1 c40f | | Store 0x2,0xf 03f2 e403 | | Load 0x2,0x3 03f3 e5fd | | Load 0x2,-0x3 03f4 016d | m | Execute Variant_Record,Structure_Write 03f5 e402 | | Load 0x2,0x2 03f6 c5fe | | Store 0x2,-0x2 03f7 00db | | Load_Top At_Offset_3 03f8 a5fc | | Store_Unchecked 0x2,-0x4 03f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03fa 0000 0000 | | .XXX[0x2] 03fc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0405 00d8 | | Load_Top At_Offset_0 0406 0d29 | ) | Execute_Immediate Less,0x29 0407 7023 |p# | Jump_Nonzero 0x42b 0408 00d8 | | Load_Top At_Offset_0 0409 0c42 | B | Execute_Immediate Greater_Equal,0x42 040a 701d |p | Jump_Nonzero 0x428 040b 0ad7 | | Execute_Immediate Plus,-0x29 040c 4618 |F | Jump_Case 0x19 040d 7822 |x" | Jump 0x430 ; case 0x0 040e 782b |x+ | Jump 0x43a ; case 0x1 040f 782a |x* | Jump 0x43a ; case 0x2 0410 781f |x | Jump 0x430 ; case 0x3 0411 7828 |x( | Jump 0x43a ; case 0x4 0412 7827 |x' | Jump 0x43a ; case 0x5 0413 7826 |x& | Jump 0x43a ; case 0x6 0414 7825 |x% | Jump 0x43a ; case 0x7 0415 7824 |x$ | Jump 0x43a ; case 0x8 0416 7823 |x# | Jump 0x43a ; case 0x9 0417 7822 |x" | Jump 0x43a ; case 0xa 0418 7821 |x! | Jump 0x43a ; case 0xb 0419 7820 |x | Jump 0x43a ; case 0xc 041a 781f |x | Jump 0x43a ; case 0xd 041b 781e |x | Jump 0x43a ; case 0xe 041c 781d |x | Jump 0x43a ; case 0xf 041d 781c |x | Jump 0x43a ; case 0x10 041e 781b |x | Jump 0x43a ; case 0x11 041f 781a |x | Jump 0x43a ; case 0x12 0420 7819 |x | Jump 0x43a ; case 0x13 0421 7804 |x | Jump 0x426 ; case 0x14 0422 7803 |x | Jump 0x426 ; case 0x15 0423 7816 |x | Jump 0x43a ; case 0x16 0424 7815 |x | Jump 0x43a ; case 0x17 0425 7800 |x | Jump 0x426 ; case 0x18 0426 4801 |H | Short_Literal 0x1 0427 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0428 0fa8 | | Execute_Immediate Equal,-0x58 0429 700b |p | Jump_Nonzero 0x435 042a 780f |x | Jump 0x43a 042b 4821 |H! | Short_Literal 0x21 042c 4822 |H" | Short_Literal 0x22 042d 0262 | b | Execute Discrete,In_Range 042e 7001 |p | Jump_Nonzero 0x430 042f 780a |x | Jump 0x43a 0430 00da | | Load_Top At_Offset_2 0431 00eb | | Load_Encached Diana_Cache 0432 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0433 8404 | | Call 0x2,0x4 0434 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0435 00da | | Load_Top At_Offset_2 0436 00eb | | Load_Encached Diana_Cache 0437 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 0438 8404 | | Call 0x2,0x4 0439 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043a 4800 |H | Short_Literal 0x0 043b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043c 0000 0000 | | .BLANK 0000[0x4] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 4607 |F | Jump_Case 0x8 0444 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0445 7806 |x | Jump 0x44c ; case 0x1 0446 7809 |x | Jump 0x450 ; case 0x2 0447 780d |x | Jump 0x455 ; case 0x3 0448 7810 |x | Jump 0x459 ; case 0x4 0449 7811 |x | Jump 0x45b ; case 0x5 044a 7812 |x | Jump 0x45d ; case 0x6 044b 7815 |x | Jump 0x461 ; case 0x7 044c 00da | | Load_Top At_Offset_2 044d 0091 05fd | | Action Push_String_Extended_Indexed,0x5fd ; "CHANGE" 044f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0450 00db | | Load_Top At_Offset_3 0451 00db | | Load_Top At_Offset_3 0452 00e0 | | Load_Encached Standard_Cache 0453 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0454 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0455 00da | | Load_Top At_Offset_2 0456 00e0 | | Load_Encached Standard_Cache 0457 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0458 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0459 00db | | Load_Top At_Offset_3 045a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 045b 00db | | Load_Top At_Offset_3 045c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 045d e402 | | Load 0x2,0x2 045e 00dc | | Load_Top At_Offset_4 045f 0267 | g | Execute Discrete,Predecessor 0460 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0461 e402 | | Load 0x2,0x2 0462 00dc | | Load_Top At_Offset_4 0463 0268 | h | Execute Discrete,Successor 0464 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0465 0000 0000 | | .XXX[0x3] 0467 0000 | | 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 0476 | v | .CONST 0x0476 ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0003 | | .CONST 0x0003 ; Number of locals 046b INIT_0468: 046b 4800 |H | Short_Literal 0x0 046c e7fe | | Load 0x3,-0x2 046d 480a |H | Short_Literal 0xa 046e e002 | | Load 0x0,0x2 046f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0470 00e2 | | Load_Encached Integer_Cache 0471 03f1 | | Declare_Variable Discrete,With_Value 0472 e7fe | | Load 0x3,-0x2 0473 01dd | | Execute Vector,First 0474 00e2 | | Load_Encached Integer_Cache 0475 03f1 | | Declare_Variable Discrete,With_Value 0476 BODY_0468: 0476 00cf | | Action Mark_Auxiliary 0477 781c |x | Jump 0x494 0478 e7ff | | Load 0x3,-0x1 0479 00da | | Load_Top At_Offset_2 047a e602 | | Load 0x3,0x2 047b 0aff | | Execute_Immediate Plus,-0x1 047c 00d8 | | Load_Top At_Offset_0 047d 00e2 | | Load_Encached Integer_Cache 047e 0260 | ` | Execute Discrete,In_Type 047f 7001 |p | Jump_Nonzero 0x481 0480 0801 | | Execute_Immediate Raise,0x1 0481 e7fe | | Load 0x3,-0x2 0482 01cf | | Execute Vector,Slice_Read 0483 01ca | | Execute Vector,Prepend 0484 e003 | | Load 0x0,0x3 0485 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0486 00da | | Load_Top At_Offset_2 0487 0a01 | | Execute_Immediate Plus,0x1 0488 005a | Z | Store_Top Discrete,At_Offset_2 0489 4800 |H | Short_Literal 0x0 048a 00da | | Load_Top At_Offset_2 048b e7fe | | Load 0x3,-0x2 048c 01dc | | Execute Vector,Last 048d e7fe | | Load 0x3,-0x2 048e 01cf | | Execute Vector,Slice_Read 048f 480a |H | Short_Literal 0xa 0490 e002 | | Load 0x0,0x2 0491 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0492 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0493 00c9 | | Action Pop_Auxiliary_Loop 0494 00da | | Load_Top At_Offset_2 0495 0c01 | | Execute_Immediate Greater_Equal,0x1 0496 77e1 |w | Jump_Nonzero 0x478 0497 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049d | | .CONST 0x049d ; Address of begin 0499 04ad | | .CONST 0x04ad ; Address of exception handler 049a 0002 | | .CONST 0x0002 ; Number of locals 049b INIT_0498: 049b 029f 051b | | Declare_Subprogram INIT_0518,For_Call 049d BODY_0498: 049d e7fe | | Load 0x3,-0x2 049e 0f02 | | Execute_Immediate Equal,0x2 049f 6803 |h | Jump_Zero 0x4a3 04a0 00db | | Load_Top At_Offset_3 04a1 0f32 | 2 | Execute_Immediate Equal,0x32 04a2 7006 |p | Jump_Nonzero 0x4a9 04a3 e7fe | | Load 0x3,-0x2 04a4 0f01 | | Execute_Immediate Equal,0x1 04a5 6805 |h | Jump_Zero 0x4ab 04a6 00db | | Load_Top At_Offset_3 04a7 0f31 | 1 | Execute_Immediate Equal,0x31 04a8 6802 |h | Jump_Zero 0x4ab 04a9 00ea | | Load_Encached Null_String_Cache 04aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ab 8602 | | Call 0x3,0x2 04ac 0831 | 1 | Execute_Immediate Raise,0x31 04ad TRAP_0498: 04ad 00d8 | | Load_Top At_Offset_0 04ae 0107 | | Execute Exception,Get_Name 04af 4950 |IP | Short_Literal 0x150 04b0 495f |I_ | Short_Literal 0x15f 04b1 0262 | b | Execute Discrete,In_Range 04b2 6802 |h | Jump_Zero 0x4b5 04b3 00ea | | Load_Encached Null_String_Cache 04b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b5 0100 | | Execute Exception,Raise 04b6 0000 0000 | | .XXX[0x2] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bd | | .CONST 0x04bd ; Address of begin 04b9 04cd | | .CONST 0x04cd ; Address of exception handler 04ba 0002 | | .CONST 0x0002 ; Number of locals 04bb INIT_04b8: 04bb 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call 04bd BODY_04b8: 04bd 00db | | Load_Top At_Offset_3 04be 01dd | | Execute Vector,First 04bf e7ff | | Load 0x3,-0x1 04c0 01d7 | | Execute Vector,Field_Read 04c1 0f2a | * | Execute_Immediate Equal,0x2a 04c2 6802 |h | Jump_Zero 0x4c5 04c3 8602 | | Call 0x3,0x2 04c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04c5 e008 | | Load 0x0,0x8 04c6 180e | | Execute Package,Field_Execute,Field_Number 0xe 04c7 4808 |H | Short_Literal 0x8 04c8 0092 060b | | Action Push_String_Extended,0x60b ; "Unexpected format in diff file." 04ca e009 | | Load 0x0,0x9 04cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04cc 08e2 | | Execute_Immediate Raise,0xe2 04cd TRAP_04b8: 04cd 010e | | Execute Exception,Is_Constraint_Error 04ce 680a |h | Jump_Zero 0x4d9 04cf e008 | | Load 0x0,0x8 04d0 180e | | Execute Package,Field_Execute,Field_Number 0xe 04d1 4808 |H | Short_Literal 0x8 04d2 0092 060c | | Action Push_String_Extended,0x60c ; "Unexpected diff command: " 04d4 e7ff | | Load 0x3,-0x1 04d5 01cc | | Execute Vector,Catenate 04d6 e009 | | Load 0x0,0x9 04d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04d9 0100 | | Execute Exception,Raise 04da 0000 0000 | | .BLANK 0000[0x6] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04fc | | .CONST 0x04fc ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0008 | | .CONST 0x0008 ; Number of locals 04e3 INIT_04e0: 04e3 e003 | | Load 0x0,0x3 04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e5 02c7 | | Declare_Variable Any 04e6 00d8 | | Load_Top At_Offset_0 04e7 1c00 | | Execute_Immediate Run_Utility,0x0 04e8 e001 | | Load 0x0,0x1 04e9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04ea 02c7 | | Declare_Variable Any 04eb 00d8 | | Load_Top At_Offset_0 04ec 1c00 | | Execute_Immediate Run_Utility,0x0 04ed e001 | | Load 0x0,0x1 04ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ef e001 | | Load 0x0,0x1 04f0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04f2 e001 | | Load 0x0,0x1 04f3 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 04f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04f5 02c7 | | Declare_Variable Any 04f6 00d8 | | Load_Top At_Offset_0 04f7 1c00 | | Execute_Immediate Run_Utility,0x0 04f8 00e2 | | Load_Encached Integer_Cache 04f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04fa 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 04fc BODY_04e0: 04fc e602 | | Load 0x3,0x2 04fd 00ea | | Load_Encached Null_String_Cache 04fe e7ff | | Load 0x3,-0x1 04ff 4800 |H | Short_Literal 0x0 0500 e003 | | Load 0x0,0x3 0501 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0502 c602 | | Store 0x3,0x2 0503 00cf | | Action Mark_Auxiliary 0504 7809 |x | Jump 0x50e 0505 00da | | Load_Top At_Offset_2 0506 e602 | | Load 0x3,0x2 0507 e003 | | Load 0x0,0x3 0508 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0509 01db | | Execute Vector,Length 050a 0273 | s | Execute Discrete,Plus 050b 0a01 | | Execute_Immediate Plus,0x1 050c 005b | [ | Store_Top Discrete,At_Offset_3 050d 00c9 | | Action Pop_Auxiliary_Loop 050e e602 | | Load 0x3,0x2 050f e003 | | Load 0x0,0x3 0510 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0511 6ff3 |o | Jump_Zero 0x505 0512 00ce | | Action Pop_Auxiliary 0513 8608 | | Call 0x3,0x8 0514 0831 | 1 | Execute_Immediate Raise,0x31 0515 0000 0000 | | .XXX[0x3] 0517 0000 | | 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051e | | .CONST 0x051e ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0002 | | .CONST 0x0002 ; Number of locals 051b INIT_0518: 051b e403 | | Load 0x2,0x3 051c e003 | | Load 0x0,0x3 051d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 051e BODY_0518: 051e 00d8 | | Load_Top At_Offset_0 051f 01db | | Execute Vector,Length 0520 0c01 | | Execute_Immediate Greater_Equal,0x1 0521 681b |h | Jump_Zero 0x53d 0522 00d8 | | Load_Top At_Offset_0 0523 01dd | | Execute Vector,First 0524 00d9 | | Load_Top At_Offset_1 0525 01d7 | | Execute Vector,Field_Read 0526 e7ff | | Load 0x3,-0x1 0527 027f | | Execute Discrete,Equal 0528 6814 |h | Jump_Zero 0x53d 0529 480a |H | Short_Literal 0xa 052a 00d9 | | Load_Top At_Offset_1 052b 01dd | | Execute Vector,First 052c 0a01 | | Execute_Immediate Plus,0x1 052d 00d8 | | Load_Top At_Offset_0 052e 00e2 | | Load_Encached Integer_Cache 052f 0260 | ` | Execute Discrete,In_Type 0530 7001 |p | Jump_Nonzero 0x532 0531 0801 | | Execute_Immediate Raise,0x1 0532 00da | | Load_Top At_Offset_2 0533 01dc | | Execute Vector,Last 0534 00db | | Load_Top At_Offset_3 0535 01cf | | Execute Vector,Slice_Read 0536 01cb | | Execute Vector,Append 0537 e7fe | | Load 0x3,-0x2 0538 e7ff | | Load 0x3,-0x1 0539 8405 | | Call 0x2,0x5 053a 01cc | | Execute Vector,Catenate 053b 00cb | | Action Pop_Block_With_Result 053c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 053d 00ea | | Load_Encached Null_String_Cache 053e 00cb | | Action Pop_Block_With_Result 053f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 055d | ] | .CONST 0x055d ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0004 | | .CONST 0x0004 ; Number of locals 0543 INIT_0540: 0543 e7ff | | Load 0x3,-0x1 0544 01dd | | Execute Vector,First 0545 0a01 | | Execute_Immediate Plus,0x1 0546 00d8 | | Load_Top At_Offset_0 0547 00e2 | | Load_Encached Integer_Cache 0548 0260 | ` | Execute Discrete,In_Type 0549 7001 |p | Jump_Nonzero 0x54b 054a 0801 | | Execute_Immediate Raise,0x1 054b e7ff | | Load 0x3,-0x1 054c 01dd | | Execute Vector,First 054d 0a07 | | Execute_Immediate Plus,0x7 054e 00d8 | | Load_Top At_Offset_0 054f 00e2 | | Load_Encached Integer_Cache 0550 0260 | ` | Execute Discrete,In_Type 0551 7001 |p | Jump_Nonzero 0x553 0552 0801 | | Execute_Immediate Raise,0x1 0553 e7ff | | Load 0x3,-0x1 0554 01cf | | Execute Vector,Slice_Read 0555 e402 | | Load 0x2,0x2 0556 1c02 | | Execute_Immediate Run_Utility,0x2 0557 00d8 | | Load_Top At_Offset_0 0558 4831 |H1 | Short_Literal 0x31 0559 8405 | | Call 0x2,0x5 055a 00d9 | | Load_Top At_Offset_1 055b 4832 |H2 | Short_Literal 0x32 055c 8405 | | Call 0x2,0x5 055d BODY_0540: 055d e5fc | | Load 0x2,-0x4 055e 00da | | Load_Top At_Offset_2 055f 820f | | Call 0x1,0xf 0560 e5fc | | Load 0x2,-0x4 0561 00da | | Load_Top At_Offset_2 0562 820f | | Call 0x1,0xf 0563 01de | | Execute Vector,Not_Equal 0564 684d |hM | Jump_Zero 0x5b2 0565 e5fb | | Load 0x2,-0x5 0566 7024 |p$ | Jump_Nonzero 0x58b 0567 e5fd | | Load 0x2,-0x3 0568 6820 |h | Jump_Zero 0x589 0569 4801 |H | Short_Literal 0x1 056a e003 | | Load 0x0,0x3 056b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 056c 4820 |H | Short_Literal 0x20 056d 0092 060d | | Action Push_String_Extended,0x60d ; "# Update " 056f e5fe | | Load 0x2,-0x2 0570 01cc | | Execute Vector,Catenate 0571 01cb | | Execute Vector,Append 0572 e5fe | | Load 0x2,-0x2 0573 01db | | Execute Vector,Length 0574 0a0b | | Execute_Immediate Plus,0xb 0575 484c |HL | Short_Literal 0x4c 0576 00e9 | | Load_Encached String_Cache 0577 035b | [ | Declare_Type Array,Constrained 0578 0337 | 7 | Declare_Variable Array 0579 484c |HL | Short_Literal 0x4c 057a 00d9 | | Load_Top At_Offset_1 057b 01dd | | Execute Vector,First 057c 0263 | c | Execute Discrete,Above_Bound 057d 7005 |p | Jump_Nonzero 0x583 057e 4823 |H# | Short_Literal 0x23 057f 00d9 | | Load_Top At_Offset_1 0580 e806 | | Load 0x4,0x6 0581 01d6 | | Execute Vector,Field_Write 0582 3ffb |? | Loop_Increasing 0x57e 0583 01cc | | Execute Vector,Catenate 0584 e003 | | Load 0x0,0x3 0585 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0586 4801 |H | Short_Literal 0x1 0587 e003 | | Load 0x0,0x3 0588 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0589 4801 |H | Short_Literal 0x1 058a a5fb | | Store_Unchecked 0x2,-0x5 058b e5fd | | Load 0x2,-0x3 058c 6825 |h% | Jump_Zero 0x5b2 058d 4823 |H# | Short_Literal 0x23 058e e7ff | | Load 0x3,-0x1 058f 01dd | | Execute Vector,First 0590 0a01 | | Execute_Immediate Plus,0x1 0591 00d8 | | Load_Top At_Offset_0 0592 00e2 | | Load_Encached Integer_Cache 0593 0260 | ` | Execute Discrete,In_Type 0594 7001 |p | Jump_Nonzero 0x596 0595 0801 | | Execute_Immediate Raise,0x1 0596 e7ff | | Load 0x3,-0x1 0597 01dc | | Execute Vector,Last 0598 e7ff | | Load 0x3,-0x1 0599 01cf | | Execute Vector,Slice_Read 059a 01ca | | Execute Vector,Prepend 059b e003 | | Load 0x0,0x3 059c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 059d 00da | | Load_Top At_Offset_2 059e 0e01 | | Execute_Immediate Not_Equal,0x1 059f 6803 |h | Jump_Zero 0x5a3 05a0 00d9 | | Load_Top At_Offset_1 05a1 4823 |H# | Short_Literal 0x23 05a2 8404 | | Call 0x2,0x4 05a3 00da | | Load_Top At_Offset_2 05a4 7004 |p | Jump_Nonzero 0x5a9 05a5 0092 060e | | Action Push_String_Extended,0x60e ; "# to be:" 05a7 e003 | | Load 0x0,0x3 05a8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 05a9 00da | | Load_Top At_Offset_2 05aa 0e02 | | Execute_Immediate Not_Equal,0x2 05ab 6803 |h | Jump_Zero 0x5af 05ac 00d8 | | Load_Top At_Offset_0 05ad 4820 |H | Short_Literal 0x20 05ae 8404 | | Call 0x2,0x4 05af 4801 |H | Short_Literal 0x1 05b0 e003 | | Load 0x0,0x3 05b1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 05b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05b3 0000 0000 | | .BLANK 0000[0x5] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05c4 | | .CONST 0x05c4 ; Address of begin 05b9 05ea | | .CONST 0x05ea ; Address of exception handler 05ba 0004 | | .CONST 0x0004 ; Number of locals 05bb INIT_05b8: 05bb 4801 |H | Short_Literal 0x1 05bc e607 | | Load 0x3,0x7 05bd 00e9 | | Load_Encached String_Cache 05be 035b | [ | Declare_Type Array,Constrained 05bf 0337 | 7 | Declare_Variable Array 05c0 00e2 | | Load_Encached Integer_Cache 05c1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05c2 00e1 | | Load_Encached Boolean_Cache 05c3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05c4 BODY_05b8: 05c4 e602 | | Load 0x3,0x2 05c5 e003 | | Load 0x0,0x3 05c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05c7 c602 | | Store 0x3,0x2 05c8 00cf | | Action Mark_Auxiliary 05c9 780f |x | Jump 0x5d9 05ca 00d9 | | Load_Top At_Offset_1 05cb 00db | | Load_Top At_Offset_3 05cc e802 | | Load 0x4,0x2 05cd e5fd | | Load 0x2,-0x3 05ce 4820 |H | Short_Literal 0x20 05cf e602 | | Load 0x3,0x2 05d0 e003 | | Load 0x0,0x3 05d1 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 05d2 e002 | | Load 0x0,0x2 05d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05d4 820e | | Call 0x1,0xe 05d5 00d1 | | Pop_Control Pop_Count_1 05d6 c803 | | Store 0x4,0x3 05d7 005a | Z | Store_Top Discrete,At_Offset_2 05d8 00c9 | | Action Pop_Auxiliary_Loop 05d9 e602 | | Load 0x3,0x2 05da e003 | | Load 0x0,0x3 05db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 05dc 6fed |o | Jump_Zero 0x5ca 05dd 00ce | | Action Pop_Auxiliary 05de e602 | | Load 0x3,0x2 05df e003 | | Load 0x0,0x3 05e0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05e1 c602 | | Store 0x3,0x2 05e2 4801 |H | Short_Literal 0x1 05e3 00da | | Load_Top At_Offset_2 05e4 e802 | | Load 0x4,0x2 05e5 01cf | | Execute Vector,Slice_Read 05e6 00e9 | | Load_Encached String_Cache 05e7 01c6 | | Execute Vector,Convert_To_Formal 05e8 00cb | | Action Pop_Block_With_Result 05e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ea TRAP_05b8: 05ea 00d8 | | Load_Top At_Offset_0 05eb 0107 | | Execute Exception,Get_Name 05ec 4950 |IP | Short_Literal 0x150 05ed 495f |I_ | Short_Literal 0x15f 05ee 0262 | b | Execute Discrete,In_Range 05ef 680c |h | Jump_Zero 0x5fc 05f0 e602 | | Load 0x3,0x2 05f1 e003 | | Load 0x0,0x3 05f2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05f3 c602 | | Store 0x3,0x2 05f4 4801 |H | Short_Literal 0x1 05f5 00db | | Load_Top At_Offset_3 05f6 e802 | | Load 0x4,0x2 05f7 01cf | | Execute Vector,Slice_Read 05f8 00e9 | | Load_Encached String_Cache 05f9 01c6 | | Execute Vector,Convert_To_Formal 05fa 00cb | | Action Pop_Block_With_Result 05fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05fc 0100 | | Execute Exception,Raise 05fd ; -------------------------------------------------------------------------------------- 05fd ; STRING TABLE 05fd ; -------------------------------------------------------------------------------------- 05fd 0026 | & | .STRTAB 0x0026->0x0610 ; "CHANGE" 05fe 002a | * | .STRTAB 0x002a->0x0613 ; "INSERT" 05ff 002e | . | .STRTAB 0x002e->0x0616 ; "DELETE" 0600 0032 | 2 | .STRTAB 0x0032->0x0619 ; "'body" 0601 0035 | 5 | .STRTAB 0x0035->0x061b ; "BODY" 0602 0037 | 7 | .STRTAB 0x0037->0x061d ; "SPEC" 0603 0039 | 9 | .STRTAB 0x0039->0x061f ; "'V" 0604 0039 | 9 | .STRTAB 0x0039->0x0620 ; "# Finish " 0605 0040 | @ | .STRTAB 0x0040->0x0625 ; " has" 0606 0042 | B | .STRTAB 0x0042->0x0627 ; " IMMEDIATE dependents (" 0607 0057 | W | .STRTAB 0x0057->0x0632 ; " specs):" 0608 005d | ] | .STRTAB 0x005d->0x0636 ; " " 0609 005e | ^ | .STRTAB 0x005e->0x0638 ; " etc..." 060a 0065 | e | .STRTAB 0x0065->0x063c ; " etc... " 060b 006d | m | .STRTAB 0x006d->0x0641 ; "Unexpected format in diff file." 060c 008a | | .STRTAB 0x008a->0x0651 ; "Unexpected diff command: " 060d 00a1 | | .STRTAB 0x00a1->0x065d ; "# Update " 060e 00a8 | | .STRTAB 0x00a8->0x0662 ; "# to be:" 060f 00ae | | .STREND 0x00ae->0x0666 0610 4348 414e |CHAN| .STRTAB_STRINGS 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; Debug Table 0668 ; -------------------------------------------------------------------------------------- 0668 0004 000e | | .DEBUG4 0x0004,0x000e,0x7276,0x0000,0x0001,0x0000 066e 57ff f000 |W | .XXX[0xfa] 0670 5bff ec00 |[ | 0672 5fff e800 |_ | 0674 63ff e400 |c | 0676 6bff e000 |k | 0678 73ff dc00 |s | 067a 7bff d800 |{ | 067c 83ff d400 | | 067e 8bff d000 | | 0680 93ff cc00 | | 0682 0c00 1c00 | | 0684 afff fc00 | | 0686 b3ff f800 | | 0688 b7ff f400 | | 068a c400 0800 | | 068c d400 0c00 | | 068e f400 1001 | | 0690 0400 1401 | | 0692 2800 1c01 |( | 0694 3c00 2001 |< | 0696 4c00 0400 |L | 0698 1400 3801 | 8 | 069a 6fff fc01 |o | 069c 8fff f801 | | 069e 93ff f401 | | 06a0 a3ff f001 | | 06a2 a7ff ec01 | | 06a4 a800 0401 | | 06a6 b400 0801 | | 06a8 b800 0c01 | | 06aa c400 1001 | | 06ac f800 1402 | | 06ae 1800 1802 | | 06b0 3800 1c02 |8 | 06b2 4000 2002 |@ | 06b4 5400 2402 |T $ | 06b6 6000 2802 |` ( | 06b8 6c00 2c02 |l , | 06ba 7c00 3002 || 0 | 06bc 8800 3402 | 4 | 06be 9400 3800 | 8 | 06c0 0400 0c02 | | 06c2 afff fc02 | | 06c4 d800 0402 | | 06c6 e800 0802 | | 06c8 f800 0c00 | | 06ca 1c00 3c03 | < | 06cc 4fff fc03 |O | 06ce 5bff f803 |[ | 06d0 5fff f403 |_ | 06d2 63ff f003 |c | 06d4 67ff ec03 |g | 06d6 6bff e803 |k | 06d8 6fff e403 |o | 06da 7000 0403 |p | 06dc 8000 0c03 | | 06de 9000 1003 | | 06e0 a400 1403 | | 06e2 b800 1803 | | 06e4 d800 1c03 | | 06e6 fc00 2004 | | 06e8 0c00 0804 | | 06ea 1c00 2404 | $ | 06ec 2c00 2c04 |, , | 06ee 5c00 3004 |\ 0 | 06f0 7800 3404 |x 4 | 06f2 9400 3804 | 8 | 06f4 a400 2804 | ( | 06f6 b400 3c00 | < | 06f8 0c00 2404 | $ | 06fa cfff fc04 | | 06fc d3ff f804 | | 06fe d7ff f404 | | 0700 f400 0405 | | 0702 0400 0805 | | 0704 1800 0c05 | | 0706 2800 1005 |( | 0708 4c00 1805 |L | 070a 5c00 1c05 |\ | 070c 7400 2005 |t | 070e 8c00 2405 | $ | 0710 a400 1400 | | 0712 0800 1c05 | | 0714 cfff fc05 | | 0716 d3ff f805 | | 0718 d400 0405 | | 071a ec00 0805 | | 071c fc00 0c06 | | 071e 2400 1006 |$ | 0720 2800 1406 |( | 0722 4400 1806 |D | 0724 5400 1c00 |T | 0726 1400 6c06 | l | 0728 8fff fc06 | | 072a 93ff f806 | | 072c 97ff f406 | | 072e 9bff f006 | | 0730 a7ff ec06 | | 0732 b800 0406 | | 0734 bc00 0806 | | 0736 d800 6006 | ` | 0738 e800 6406 | d | 073a ec00 6806 | h | 073c f400 6c07 | l | 073e 0800 0c07 | | 0740 2000 1007 | | 0742 2400 1407 |$ | 0744 3c00 1807 |< | 0746 5c00 1c07 |\ | 0748 8000 4c07 | L | 074a 8400 2007 | | 074c 9000 2407 | $ | 074e 9400 2807 | ( | 0750 a800 2c07 | , | 0752 b800 3007 | 0 | 0754 c800 3407 | 4 | 0756 ec00 3807 | 8 | 0758 f000 3c08 | < | 075a 0400 4008 | @ | 075c 1400 4408 | D | 075e 2400 4808 |$ H | 0760 3c00 5008 |< P | 0762 4000 5408 |@ T | 0764 7400 5808 |t X | 0766 9000 5c00 | \ | 0768 0000 0000 | | .BLANK 0000[0x83] 07eb 0200 0000 | | .XXX[0x15] 07ed 3800 0000 |8 | 07ef 0000 0280 | | 07f1 0000 0001 | | 07f3 0000 0002 | | 07f5 c000 0000 | | 07f7 0400 0000 | | 07f9 38bc e8c4 |8 | 07fb c4c4 d4c8 | | 07fd d0c0 d0b9 | | 07ff 4d15 |M |