|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 05f8 | | .CONST 0x05f8 ; 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 8003 | | .CONST 0x8003 ; 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 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 000f 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0011 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0013 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0015 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0019 00c7 | | Action Elaborate_Subprogram 001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001d 00c7 | | Action Elaborate_Subprogram 001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001f 00c7 | | Action Elaborate_Subprogram 0020 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0021 00c7 | | Action Elaborate_Subprogram 0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12 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 0030 | 0 | .CONST 0x0030 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0002 | | .CONST 0x0002 ; Number of locals 002b INIT_0028: 002b 00da | | Load_Top At_Offset_2 002c 01dd | | Execute Vector,First 002d 0aff | | Execute_Immediate Plus,-0x1 002e 00e2 | | Load_Encached Integer_Cache 002f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0030 BODY_0028: 0030 00cf | | Action Mark_Auxiliary 0031 794c |yL | Jump 0x17e 0032 00d9 | | Load_Top At_Offset_1 0033 0a01 | | Execute_Immediate Plus,0x1 0034 005a | Z | Store_Top Discrete,At_Offset_2 0035 00d9 | | Load_Top At_Offset_1 0036 e5ff | | Load 0x2,-0x1 0037 01d7 | | Execute Vector,Field_Read 0038 00d8 | | Load_Top At_Offset_0 0039 0d09 | | Execute_Immediate Less,0x9 003a 7051 |pQ | Jump_Nonzero 0x8c 003b 00d8 | | Load_Top At_Offset_0 003c 0c41 | A | Execute_Immediate Greater_Equal,0x41 003d 7046 |pF | Jump_Nonzero 0x84 003e 0af7 | | Execute_Immediate Plus,-0x9 003f 4637 |F7 | Jump_Case 0x38 0040 793c |y< | Jump 0x17d ; case 0x0 0041 793b |y; | Jump 0x17d ; case 0x1 0042 7835 |x5 | Jump 0x78 ; case 0x2 0043 7834 |x4 | Jump 0x78 ; case 0x3 0044 7833 |x3 | Jump 0x78 ; case 0x4 0045 7832 |x2 | Jump 0x78 ; case 0x5 0046 7831 |x1 | Jump 0x78 ; case 0x6 0047 7830 |x0 | Jump 0x78 ; case 0x7 0048 782f |x/ | Jump 0x78 ; case 0x8 0049 782e |x. | Jump 0x78 ; case 0x9 004a 782d |x- | Jump 0x78 ; case 0xa 004b 782c |x, | Jump 0x78 ; case 0xb 004c 782b |x+ | Jump 0x78 ; case 0xc 004d 782a |x* | Jump 0x78 ; case 0xd 004e 7829 |x) | Jump 0x78 ; case 0xe 004f 7828 |x( | Jump 0x78 ; case 0xf 0050 7827 |x' | Jump 0x78 ; case 0x10 0051 7826 |x& | Jump 0x78 ; case 0x11 0052 7825 |x% | Jump 0x78 ; case 0x12 0053 7824 |x$ | Jump 0x78 ; case 0x13 0054 7823 |x# | Jump 0x78 ; case 0x14 0055 7822 |x" | Jump 0x78 ; case 0x15 0056 7821 |x! | Jump 0x78 ; case 0x16 0057 7925 |y% | Jump 0x17d ; case 0x17 0058 781f |x | Jump 0x78 ; case 0x18 0059 7878 |xx | Jump 0xd2 ; case 0x19 005a 781d |x | Jump 0x78 ; case 0x1a 005b 781c |x | Jump 0x78 ; case 0x1b 005c 781b |x | Jump 0x78 ; case 0x1c 005d 781a |x | Jump 0x78 ; case 0x1d 005e 7899 |x | Jump 0xf8 ; case 0x1e 005f 7818 |x | Jump 0x78 ; case 0x1f 0060 7817 |x | Jump 0x78 ; case 0x20 0061 7816 |x | Jump 0x78 ; case 0x21 0062 7815 |x | Jump 0x78 ; case 0x22 0063 7814 |x | Jump 0x78 ; case 0x23 0064 78ca |x | Jump 0x12f ; case 0x24 0065 7812 |x | Jump 0x78 ; case 0x25 0066 7811 |x | Jump 0x78 ; case 0x26 0067 7827 |x' | Jump 0x8f ; case 0x27 0068 7826 |x& | Jump 0x8f ; case 0x28 0069 7825 |x% | Jump 0x8f ; case 0x29 006a 7824 |x$ | Jump 0x8f ; case 0x2a 006b 7823 |x# | Jump 0x8f ; case 0x2b 006c 7822 |x" | Jump 0x8f ; case 0x2c 006d 7821 |x! | Jump 0x8f ; case 0x2d 006e 7820 |x | Jump 0x8f ; case 0x2e 006f 781f |x | Jump 0x8f ; case 0x2f 0070 781e |x | Jump 0x8f ; case 0x30 0071 7806 |x | Jump 0x78 ; case 0x31 0072 7805 |x | Jump 0x78 ; case 0x32 0073 7804 |x | Jump 0x78 ; case 0x33 0074 7803 |x | Jump 0x78 ; case 0x34 0075 7802 |x | Jump 0x78 ; case 0x35 0076 7801 |x | Jump 0x78 ; case 0x36 0077 7800 |x | Jump 0x78 ; case 0x37 0078 e5fc | | Load 0x2,-0x4 0079 0a01 | | Execute_Immediate Plus,0x1 007a c5fc | | Store 0x2,-0x4 007b 00d9 | | Load_Top At_Offset_1 007c e5ff | | Load 0x2,-0x1 007d 01d7 | | Execute Vector,Field_Read 007e e5fc | | Load 0x2,-0x4 007f e5fd | | Load 0x2,-0x3 0080 01d6 | | Execute Vector,Field_Write 0081 4800 |H | Short_Literal 0x0 0082 a5fb | | Store_Unchecked 0x2,-0x5 0083 78f9 |x | Jump 0x17d 0084 00d8 | | Load_Top At_Offset_0 0085 0c5b | [ | Execute_Immediate Greater_Equal,0x5b 0086 6807 |h | Jump_Zero 0x8e 0087 4861 |Ha | Short_Literal 0x61 0088 487a |Hz | Short_Literal 0x7a 0089 0262 | b | Execute Discrete,In_Range 008a 7004 |p | Jump_Nonzero 0x8f 008b 7fec | | Jump 0x78 008c 00d1 | | Pop_Control Pop_Count_1 008d 7fea | | Jump 0x78 008e 00d1 | | Pop_Control Pop_Count_1 008f e5fb | | Load 0x2,-0x5 0090 6808 |h | Jump_Zero 0x99 0091 e5fc | | Load 0x2,-0x4 0092 0a01 | | Execute_Immediate Plus,0x1 0093 c5fc | | Store 0x2,-0x4 0094 4820 |H | Short_Literal 0x20 0095 e5fc | | Load 0x2,-0x4 0096 e5fd | | Load 0x2,-0x3 0097 01d6 | | Execute Vector,Field_Write 0098 7802 |x | Jump 0x9b 0099 4801 |H | Short_Literal 0x1 009a a5fb | | Store_Unchecked 0x2,-0x5 009b 00cf | | Action Mark_Auxiliary 009c 782e |x. | Jump 0xcb 009d 00da | | Load_Top At_Offset_2 009e e5ff | | Load 0x2,-0x1 009f 01d7 | | Execute Vector,Field_Read 00a0 00d8 | | Load_Top At_Offset_0 00a1 0d5b | [ | Execute_Immediate Less,0x5b 00a2 7009 |p | Jump_Nonzero 0xac 00a3 00d8 | | Load_Top At_Offset_0 00a4 0c61 | a | Execute_Immediate Greater_Equal,0x61 00a5 7003 |p | Jump_Nonzero 0xa9 00a6 0f5f | _ | Execute_Immediate Equal,0x5f 00a7 700f |p | Jump_Nonzero 0xb7 00a8 781d |x | Jump 0xc6 00a9 0c7b | { | Execute_Immediate Greater_Equal,0x7b 00aa 680c |h | Jump_Zero 0xb7 00ab 781a |x | Jump 0xc6 00ac 00d8 | | Load_Top At_Offset_0 00ad 4830 |H0 | Short_Literal 0x30 00ae 4839 |H9 | Short_Literal 0x39 00af 0262 | b | Execute Discrete,In_Range 00b0 7005 |p | Jump_Nonzero 0xb6 00b1 4841 |HA | Short_Literal 0x41 00b2 485a |HZ | Short_Literal 0x5a 00b3 0262 | b | Execute Discrete,In_Range 00b4 7002 |p | Jump_Nonzero 0xb7 00b5 7810 |x | Jump 0xc6 00b6 00d1 | | Pop_Control Pop_Count_1 00b7 e5fc | | Load 0x2,-0x4 00b8 0a01 | | Execute_Immediate Plus,0x1 00b9 c5fc | | Store 0x2,-0x4 00ba 00da | | Load_Top At_Offset_2 00bb e5ff | | Load 0x2,-0x1 00bc 01d7 | | Execute Vector,Field_Read 00bd e002 | | Load 0x0,0x2 00be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bf e5fc | | Load 0x2,-0x4 00c0 e5fd | | Load 0x2,-0x3 00c1 01d6 | | Execute Vector,Field_Write 00c2 00da | | Load_Top At_Offset_2 00c3 0a01 | | Execute_Immediate Plus,0x1 00c4 005b | [ | Store_Top Discrete,At_Offset_3 00c5 7804 |x | Jump 0xca 00c6 00da | | Load_Top At_Offset_2 00c7 0aff | | Execute_Immediate Plus,-0x1 00c8 005b | [ | Store_Top Discrete,At_Offset_3 00c9 7806 |x | Jump 0xd0 00ca 00c9 | | Action Pop_Auxiliary_Loop 00cb 00da | | Load_Top At_Offset_2 00cc e5ff | | Load 0x2,-0x1 00cd 01dc | | Execute Vector,Last 00ce 027a | z | Execute Discrete,Less_Equal 00cf 77cd |w | Jump_Nonzero 0x9d 00d0 00ce | | Action Pop_Auxiliary 00d1 78ab |x | Jump 0x17d 00d2 e5fc | | Load 0x2,-0x4 00d3 0a01 | | Execute_Immediate Plus,0x1 00d4 c5fc | | Store 0x2,-0x4 00d5 00d9 | | Load_Top At_Offset_1 00d6 e5ff | | Load 0x2,-0x1 00d7 01d7 | | Execute Vector,Field_Read 00d8 e5fc | | Load 0x2,-0x4 00d9 e5fd | | Load 0x2,-0x3 00da 01d6 | | Execute Vector,Field_Write 00db 00cf | | Action Mark_Auxiliary 00dc 7812 |x | Jump 0xef 00dd 00da | | Load_Top At_Offset_2 00de 0a01 | | Execute_Immediate Plus,0x1 00df 005b | [ | Store_Top Discrete,At_Offset_3 00e0 e5fc | | Load 0x2,-0x4 00e1 0a01 | | Execute_Immediate Plus,0x1 00e2 c5fc | | Store 0x2,-0x4 00e3 00da | | Load_Top At_Offset_2 00e4 e5ff | | Load 0x2,-0x1 00e5 01d7 | | Execute Vector,Field_Read 00e6 e5fc | | Load 0x2,-0x4 00e7 e5fd | | Load 0x2,-0x3 00e8 01d6 | | Execute Vector,Field_Write 00e9 00da | | Load_Top At_Offset_2 00ea e5ff | | Load 0x2,-0x1 00eb 01d7 | | Execute Vector,Field_Read 00ec 0f22 | " | Execute_Immediate Equal,0x22 00ed 7006 |p | Jump_Nonzero 0xf4 00ee 00c9 | | Action Pop_Auxiliary_Loop 00ef 00da | | Load_Top At_Offset_2 00f0 e5ff | | Load 0x2,-0x1 00f1 01dc | | Execute Vector,Last 00f2 027c | | | Execute Discrete,Less 00f3 77e9 |w | Jump_Nonzero 0xdd 00f4 00ce | | Action Pop_Auxiliary 00f5 4800 |H | Short_Literal 0x0 00f6 a5fb | | Store_Unchecked 0x2,-0x5 00f7 7885 |x | Jump 0x17d 00f8 00d9 | | Load_Top At_Offset_1 00f9 0a01 | | Execute_Immediate Plus,0x1 00fa e5ff | | Load 0x2,-0x1 00fb 01dc | | Execute Vector,Last 00fc 027c | | | Execute Discrete,Less 00fd 6827 |h' | Jump_Zero 0x125 00fe 00d9 | | Load_Top At_Offset_1 00ff 0a02 | | Execute_Immediate Plus,0x2 0100 e5ff | | Load 0x2,-0x1 0101 01d7 | | Execute Vector,Field_Read 0102 0f27 | ' | Execute_Immediate Equal,0x27 0103 6821 |h! | Jump_Zero 0x125 0104 00d9 | | Load_Top At_Offset_1 0105 00da | | Load_Top At_Offset_2 0106 0a02 | | Execute_Immediate Plus,0x2 0107 00d8 | | Load_Top At_Offset_0 0108 00e2 | | Load_Encached Integer_Cache 0109 0260 | ` | Execute Discrete,In_Type 010a 7001 |p | Jump_Nonzero 0x10c 010b 0801 | | Execute_Immediate Raise,0x1 010c e5ff | | Load 0x2,-0x1 010d 01cf | | Execute Vector,Slice_Read 010e e5fc | | Load 0x2,-0x4 010f 0a01 | | Execute_Immediate Plus,0x1 0110 00d8 | | Load_Top At_Offset_0 0111 00e2 | | Load_Encached Integer_Cache 0112 0260 | ` | Execute Discrete,In_Type 0113 7001 |p | Jump_Nonzero 0x115 0114 0801 | | Execute_Immediate Raise,0x1 0115 e5fc | | Load 0x2,-0x4 0116 0a03 | | Execute_Immediate Plus,0x3 0117 00d8 | | Load_Top At_Offset_0 0118 00e2 | | Load_Encached Integer_Cache 0119 0260 | ` | Execute Discrete,In_Type 011a 7001 |p | Jump_Nonzero 0x11c 011b 0801 | | Execute_Immediate Raise,0x1 011c e5fd | | Load 0x2,-0x3 011d 01ce | | Execute Vector,Slice_Write 011e e5fc | | Load 0x2,-0x4 011f 0a03 | | Execute_Immediate Plus,0x3 0120 c5fc | | Store 0x2,-0x4 0121 00d9 | | Load_Top At_Offset_1 0122 0a02 | | Execute_Immediate Plus,0x2 0123 005a | Z | Store_Top Discrete,At_Offset_2 0124 7807 |x | Jump 0x12c 0125 e5fc | | Load 0x2,-0x4 0126 0a01 | | Execute_Immediate Plus,0x1 0127 c5fc | | Store 0x2,-0x4 0128 4827 |H' | Short_Literal 0x27 0129 e5fc | | Load 0x2,-0x4 012a e5fd | | Load 0x2,-0x3 012b 01d6 | | Execute Vector,Field_Write 012c 4800 |H | Short_Literal 0x0 012d a5fb | | Store_Unchecked 0x2,-0x5 012e 784e |xN | Jump 0x17d 012f 00d9 | | Load_Top At_Offset_1 0130 e5ff | | Load 0x2,-0x1 0131 01dc | | Execute Vector,Last 0132 027c | | | Execute Discrete,Less 0133 683e |h> | Jump_Zero 0x172 0134 00d9 | | Load_Top At_Offset_1 0135 0a01 | | Execute_Immediate Plus,0x1 0136 e5ff | | Load 0x2,-0x1 0137 01d7 | | Execute Vector,Field_Read 0138 0f2d | - | Execute_Immediate Equal,0x2d 0139 6838 |h8 | Jump_Zero 0x172 013a e5fe | | Load 0x2,-0x2 013b 6812 |h | Jump_Zero 0x14e 013c 00cf | | Action Mark_Auxiliary 013d 7804 |x | Jump 0x142 013e 00da | | Load_Top At_Offset_2 013f 0a01 | | Execute_Immediate Plus,0x1 0140 005b | [ | Store_Top Discrete,At_Offset_3 0141 00c9 | | Action Pop_Auxiliary_Loop 0142 00da | | Load_Top At_Offset_2 0143 e5ff | | Load 0x2,-0x1 0144 01dc | | Execute Vector,Last 0145 027a | z | Execute Discrete,Less_Equal 0146 6805 |h | Jump_Zero 0x14c 0147 00da | | Load_Top At_Offset_2 0148 e5ff | | Load 0x2,-0x1 0149 01d7 | | Execute Vector,Field_Read 014a 0e0a | | Execute_Immediate Not_Equal,0xa 014b 77f2 |w | Jump_Nonzero 0x13e 014c 00ce | | Action Pop_Auxiliary 014d 782f |x/ | Jump 0x17d 014e 00cf | | Action Mark_Auxiliary 014f 780d |x | Jump 0x15d 0150 e5fc | | Load 0x2,-0x4 0151 0a01 | | Execute_Immediate Plus,0x1 0152 c5fc | | Store 0x2,-0x4 0153 00da | | Load_Top At_Offset_2 0154 e5ff | | Load 0x2,-0x1 0155 01d7 | | Execute Vector,Field_Read 0156 e5fc | | Load 0x2,-0x4 0157 e5fd | | Load 0x2,-0x3 0158 01d6 | | Execute Vector,Field_Write 0159 00da | | Load_Top At_Offset_2 015a 0a01 | | Execute_Immediate Plus,0x1 015b 005b | [ | Store_Top Discrete,At_Offset_3 015c 00c9 | | Action Pop_Auxiliary_Loop 015d 00da | | Load_Top At_Offset_2 015e e5ff | | Load 0x2,-0x1 015f 01dc | | Execute Vector,Last 0160 027a | z | Execute Discrete,Less_Equal 0161 6805 |h | Jump_Zero 0x167 0162 00da | | Load_Top At_Offset_2 0163 e5ff | | Load 0x2,-0x1 0164 01d7 | | Execute Vector,Field_Read 0165 0e0a | | Execute_Immediate Not_Equal,0xa 0166 77e9 |w | Jump_Nonzero 0x150 0167 00ce | | Action Pop_Auxiliary 0168 e5fc | | Load 0x2,-0x4 0169 0a01 | | Execute_Immediate Plus,0x1 016a c5fc | | Store 0x2,-0x4 016b 480a |H | Short_Literal 0xa 016c e5fc | | Load 0x2,-0x4 016d e5fd | | Load 0x2,-0x3 016e 01d6 | | Execute Vector,Field_Write 016f 4800 |H | Short_Literal 0x0 0170 a5fb | | Store_Unchecked 0x2,-0x5 0171 780b |x | Jump 0x17d 0172 e5fc | | Load 0x2,-0x4 0173 0a01 | | Execute_Immediate Plus,0x1 0174 c5fc | | Store 0x2,-0x4 0175 00d9 | | Load_Top At_Offset_1 0176 e5ff | | Load 0x2,-0x1 0177 01d7 | | Execute Vector,Field_Read 0178 e5fc | | Load 0x2,-0x4 0179 e5fd | | Load 0x2,-0x3 017a 01d6 | | Execute Vector,Field_Write 017b 4800 |H | Short_Literal 0x0 017c a5fb | | Store_Unchecked 0x2,-0x5 017d 00c9 | | Action Pop_Auxiliary_Loop 017e 00d9 | | Load_Top At_Offset_1 017f e5ff | | Load 0x2,-0x1 0180 01dc | | Execute Vector,Last 0181 027c | | | Execute Discrete,Less 0182 76af |v | Jump_Nonzero 0x32 0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 019a | | .CONST 0x019a ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0004 | | .CONST 0x0004 ; Number of locals 018b INIT_0188: 018b 4801 |H | Short_Literal 0x1 018c 00db | | Load_Top At_Offset_3 018d 01db | | Execute Vector,Length 018e 00d8 | | Load_Top At_Offset_0 018f 00e2 | | Load_Encached Integer_Cache 0190 0260 | ` | Execute Discrete,In_Type 0191 7001 |p | Jump_Nonzero 0x193 0192 0801 | | Execute_Immediate Raise,0x1 0193 00e9 | | Load_Encached String_Cache 0194 035b | [ | Declare_Type Array,Constrained 0195 0337 | 7 | Declare_Variable Array 0196 00e2 | | Load_Encached Integer_Cache 0197 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0198 00e1 | | Load_Encached Boolean_Cache 0199 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 019a BODY_0188: 019a 00d8 | | Load_Top At_Offset_0 019b 00da | | Load_Top At_Offset_2 019c e402 | | Load 0x2,0x2 019d e5fe | | Load 0x2,-0x2 019e e5ff | | Load 0x2,-0x1 019f 820d | | Call 0x1,0xd 01a0 00d1 | | Pop_Control Pop_Count_1 01a1 005b | [ | Store_Top Discrete,At_Offset_3 01a2 0059 | Y | Store_Top Discrete,At_Offset_1 01a3 4801 |H | Short_Literal 0x1 01a4 00da | | Load_Top At_Offset_2 01a5 e402 | | Load 0x2,0x2 01a6 01cf | | Execute Vector,Slice_Read 01a7 00e9 | | Load_Encached String_Cache 01a8 01c6 | | Execute Vector,Convert_To_Formal 01a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b5 | | .CONST 0x01b5 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 029f 039b | | Declare_Subprogram INIT_0398,For_Call 01b5 BODY_01b0: 01b5 00db | | Load_Top At_Offset_3 01b6 8402 | | Call 0x2,0x2 01b7 e5fe | | Load 0x2,-0x2 01b8 8402 | | Call 0x2,0x2 01b9 01df | | Execute Vector,Equal 01ba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01d3 | | .CONST 0x01d3 ; Address of begin 01c1 01ee | | .CONST 0x01ee ; Address of exception handler 01c2 0006 | | .CONST 0x0006 ; Number of locals 01c3 INIT_01c0: 01c3 4800 |H | Short_Literal 0x0 01c4 4802 |H | Short_Literal 0x2 01c5 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 01c7 03fd | | Declare_Type Discrete,Defined 01c8 e003 | | Load 0x0,0x3 01c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ca 02c7 | | Declare_Variable Any 01cb 00d8 | | Load_Top At_Offset_0 01cc 1c00 | | Execute_Immediate Run_Utility,0x0 01cd 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call 01cf 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 01d1 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 01d3 BODY_01c0: 01d3 4800 |H | Short_Literal 0x0 01d4 a5fb | | Store_Unchecked 0x2,-0x5 01d5 00db | | Load_Top At_Offset_3 01d6 00ea | | Load_Encached Null_String_Cache 01d7 e5ff | | Load 0x2,-0x1 01d8 4800 |H | Short_Literal 0x0 01d9 e003 | | Load 0x0,0x3 01da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01db c403 | | Store 0x2,0x3 01dc 4802 |H | Short_Literal 0x2 01dd e403 | | Load 0x2,0x3 01de e003 | | Load 0x0,0x3 01df 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 01e0 00cf | | Action Mark_Auxiliary 01e1 7805 |x | Jump 0x1e7 01e2 e403 | | Load 0x2,0x3 01e3 e003 | | Load 0x0,0x3 01e4 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01e5 8406 | | Call 0x2,0x6 01e6 00c9 | | Action Pop_Auxiliary_Loop 01e7 e403 | | Load 0x2,0x3 01e8 e003 | | Load 0x0,0x3 01e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01ea 6ff7 |o | Jump_Zero 0x1e2 01eb 00ce | | Action Pop_Auxiliary 01ec 4950 |IP | Short_Literal 0x150 01ed 0257 | W | Execute Discrete,Raise 01ee TRAP_01c0: 01ee 00d8 | | Load_Top At_Offset_0 01ef 0107 | | Execute Exception,Get_Name 01f0 4950 |IP | Short_Literal 0x150 01f1 495f |I_ | Short_Literal 0x15f 01f2 0262 | b | Execute Discrete,In_Range 01f3 681d |h | Jump_Zero 0x211 01f4 e403 | | Load 0x2,0x3 01f5 e003 | | Load 0x0,0x3 01f6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f7 c403 | | Store 0x2,0x3 01f8 e5fb | | Load 0x2,-0x5 01f9 e5fd | | Load 0x2,-0x3 01fa 0279 | y | Execute Discrete,And 01fb 6814 |h | Jump_Zero 0x210 01fc 0092 0596 | | Action Push_String_Extended,0x596 ; "# Finish " 01fe 480a |H | Short_Literal 0xa 01ff 484c |HL | Short_Literal 0x4c 0200 00e9 | | Load_Encached String_Cache 0201 035b | [ | Declare_Type Array,Constrained 0202 0337 | 7 | Declare_Variable Array 0203 484c |HL | Short_Literal 0x4c 0204 480a |H | Short_Literal 0xa 0205 4823 |H# | Short_Literal 0x23 0206 00d9 | | Load_Top At_Offset_1 0207 e409 | | Load 0x2,0x9 0208 01d6 | | Execute Vector,Field_Write 0209 3ffb |? | Loop_Increasing 0x205 020a 01cc | | Execute Vector,Catenate 020b e003 | | Load 0x0,0x3 020c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 020d 4801 |H | Short_Literal 0x1 020e e003 | | Load 0x0,0x3 020f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0210 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0211 0100 | | Execute Exception,Raise 0212 0000 0000 | | .BLANK 0000[0x6] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 024c | L | .CONST 0x024c ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 000f | | .CONST 0x000f ; Number of locals 021b INIT_0218: 021b e004 | | Load 0x0,0x4 021c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021d 02c7 | | Declare_Variable Any 021e 00d8 | | Load_Top At_Offset_0 021f 1c00 | | Execute_Immediate Run_Utility,0x0 0220 e004 | | Load 0x0,0x4 0221 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0222 02ff | | Declare_Variable Variant_Record 0223 00d8 | | Load_Top At_Offset_0 0224 1c00 | | Execute_Immediate Run_Utility,0x0 0225 00e1 | | Load_Encached Boolean_Cache 0226 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0227 e004 | | Load 0x0,0x4 0228 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0229 e004 | | Load 0x0,0x4 022a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 022b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 022c e005 | | Load 0x0,0x5 022d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022e 02c7 | | Declare_Variable Any 022f 00d8 | | Load_Top At_Offset_0 0230 1c00 | | Execute_Immediate Run_Utility,0x0 0231 e004 | | Load 0x0,0x4 0232 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0233 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0234 e004 | | Load 0x0,0x4 0235 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0236 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0237 e004 | | Load 0x0,0x4 0238 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0239 1b16 | | Execute Package,Field_Read,Field_Number 0x16 023a 039d | | Declare_Variable Heap_Access,Duplicate 023b 00e1 | | Load_Encached Boolean_Cache 023c e004 | | Load 0x0,0x4 023d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 023e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 023f 02c7 | | Declare_Variable Any 0240 00d8 | | Load_Top At_Offset_0 0241 1c00 | | Execute_Immediate Run_Utility,0x0 0242 00e2 | | Load_Encached Integer_Cache 0243 0605 | | Execute_Immediate Set_Value_Unchecked,0x5 0244 e006 | | Load 0x0,0x6 0245 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0246 02c7 | | Declare_Variable Any 0247 e007 | | Load 0x0,0x7 0248 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0249 e006 | | Load 0x0,0x6 024a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 024b a40f | | Store_Unchecked 0x2,0xf 024c BODY_0218: 024c e004 | | Load 0x0,0x4 024d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 024e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024f e402 | | Load 0x2,0x2 0250 0120 | | Execute Any,Is_Value 0251 6803 |h | Jump_Zero 0x255 0252 e004 | | Load 0x0,0x4 0253 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0254 7801 |x | Jump 0x256 0255 e402 | | Load 0x2,0x2 0256 611d |a | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 0257 e006 | | Load 0x0,0x6 0258 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0259 e008 | | Load 0x0,0x8 025a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 025b e004 | | Load 0x0,0x4 025c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 025d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 025e e5ff | | Load 0x2,-0x1 025f e004 | | Load 0x0,0x4 0260 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0261 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0262 c402 | | Store 0x2,0x2 0263 c406 | | Store 0x2,0x6 0264 e004 | | Load 0x0,0x4 0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0266 e403 | | Load 0x2,0x3 0267 610c |a | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 0268 e006 | | Load 0x0,0x6 0269 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026a 4800 |H | Short_Literal 0x0 026b e402 | | Load 0x2,0x2 026c e004 | | Load 0x0,0x4 026d 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 026e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 026f 00d1 | | Pop_Control Pop_Count_1 0270 c405 | | Store 0x2,0x5 0271 e004 | | Load 0x0,0x4 0272 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0273 00e1 | | Load_Encached Boolean_Cache 0274 60ff |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 0275 e006 | | Load 0x0,0x6 0276 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0277 e402 | | Load 0x2,0x2 0278 e004 | | Load 0x0,0x4 0279 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 027a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 027b c404 | | Store 0x2,0x4 027c c405 | | Store 0x2,0x5 027d e404 | | Load 0x2,0x4 027e 680a |h | Jump_Zero 0x289 027f e004 | | Load 0x0,0x4 0280 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0281 60f2 |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 0282 e006 | | Load 0x0,0x6 0283 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0284 e402 | | Load 0x2,0x2 0285 e004 | | Load 0x0,0x4 0286 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0287 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0288 c405 | | Store 0x2,0x5 0289 e004 | | Load 0x0,0x4 028a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028b 00db | | Load_Top At_Offset_3 028c 0120 | | Execute Any,Is_Value 028d 6804 |h | Jump_Zero 0x292 028e e004 | | Load 0x0,0x4 028f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0290 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0291 7801 |x | Jump 0x293 0292 00db | | Load_Top At_Offset_3 0293 e004 | | Load 0x0,0x4 0294 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0295 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0296 e403 | | Load 0x2,0x3 0297 60dc |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 0298 4801 |H | Short_Literal 0x1 0299 4800 |H | Short_Literal 0x0 029a e006 | | Load 0x0,0x6 029b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029c 4800 |H | Short_Literal 0x0 029d e004 | | Load 0x0,0x4 029e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 029f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 02a0 00d1 | | Pop_Control Pop_Count_1 02a1 c40b | | Store 0x2,0xb 02a2 c40d | | Store 0x2,0xd 02a3 c405 | | Store 0x2,0x5 02a4 e004 | | Load 0x0,0x4 02a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a6 00f1 | | Load_Encached Diana_Temp_Seq 02a7 e004 | | Load 0x0,0x4 02a8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02a9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02aa 00ec | | Load_Encached Diana_Tree_Cache 02ab e407 | | Load 0x2,0x7 02ac 0120 | | Execute Any,Is_Value 02ad 6803 |h | Jump_Zero 0x2b1 02ae e005 | | Load 0x0,0x5 02af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b0 7801 |x | Jump 0x2b2 02b1 e407 | | Load 0x2,0x7 02b2 60c1 |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 02b3 e40f | | Load 0x2,0xf 02b4 4800 |H | Short_Literal 0x0 02b5 e004 | | Load 0x0,0x4 02b6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b8 e004 | | Load 0x0,0x4 02b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02ba 4802 |H | Short_Literal 0x2 02bb 4801 |H | Short_Literal 0x1 02bc e40b | | Load 0x2,0xb 02bd e004 | | Load 0x0,0x4 02be 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 02bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02c0 c407 | | Store 0x2,0x7 02c1 c40a | | Store 0x2,0xa 02c2 c408 | | Store 0x2,0x8 02c3 c409 | | Store 0x2,0x9 02c4 c405 | | Store 0x2,0x5 02c5 e405 | | Load 0x2,0x5 02c6 0f04 | | Execute_Immediate Equal,0x4 02c7 a40c | | Store_Unchecked 0x2,0xc 02c8 00db | | Load_Top At_Offset_3 02c9 688f |h | Jump_Zero 0x359 02ca e009 | | Load 0x0,0x9 02cb 180e | | Execute Package,Field_Execute,Field_Number 0xe 02cc 4804 |H | Short_Literal 0x4 02cd e402 | | Load 0x2,0x2 02ce e004 | | Load 0x0,0x4 02cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02d0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02d1 0092 0597 | | Action Push_String_Extended,0x597 ; " has" 02d3 01cc | | Execute Vector,Catenate 02d4 e408 | | Load 0x2,0x8 02d5 4975 |Iu | Short_Literal 0x175 02d6 00eb | | Load_Encached Diana_Cache 02d7 0098 | | Execute Package,Field_Read_Dynamic 02d8 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02d9 e409 | | Load 0x2,0x9 02da 4975 |Iu | Short_Literal 0x175 02db 00eb | | Load_Encached Diana_Cache 02dc 0098 | | Execute Package,Field_Read_Dynamic 02dd 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02de 0273 | s | Execute Discrete,Plus 02df 00d8 | | Load_Top At_Offset_0 02e0 00e2 | | Load_Encached Integer_Cache 02e1 0260 | ` | Execute Discrete,In_Type 02e2 7001 |p | Jump_Nonzero 0x2e4 02e3 0801 | | Execute_Immediate Raise,0x1 02e4 00e0 | | Load_Encached Standard_Cache 02e5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02e6 01cc | | Execute Vector,Catenate 02e7 0092 0598 | | Action Push_String_Extended,0x598 ; " IMMEDIATE dependents (" 02e9 01cc | | Execute Vector,Catenate 02ea e408 | | Load 0x2,0x8 02eb 8212 | | Call 0x1,0x12 02ec e409 | | Load 0x2,0x9 02ed 8212 | | Call 0x1,0x12 02ee 0273 | s | Execute Discrete,Plus 02ef 00d8 | | Load_Top At_Offset_0 02f0 00e2 | | Load_Encached Integer_Cache 02f1 0260 | ` | Execute Discrete,In_Type 02f2 7001 |p | Jump_Nonzero 0x2f4 02f3 0801 | | Execute_Immediate Raise,0x1 02f4 00e0 | | Load_Encached Standard_Cache 02f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02f6 01cc | | Execute Vector,Catenate 02f7 0092 0599 | | Action Push_String_Extended,0x599 ; " specs):" 02f9 01cc | | Execute Vector,Catenate 02fa e00a | | Load 0x0,0xa 02fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02fc 00cf | | Action Mark_Auxiliary 02fd 4801 |H | Short_Literal 0x1 02fe 00db | | Load_Top At_Offset_3 02ff 0264 | d | Execute Discrete,Below_Bound 0300 7029 |p) | Jump_Nonzero 0x32a 0301 e408 | | Load 0x2,0x8 0302 7002 |p | Jump_Nonzero 0x305 0303 00d2 | | Pop_Control Pop_Count_2 0304 7825 |x% | Jump 0x32a 0305 e408 | | Load 0x2,0x8 0306 0217 | | Execute Heap_Access,All_Reference 0307 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0308 a40a | | Store_Unchecked 0x2,0xa 0309 e009 | | Load 0x0,0x9 030a 180e | | Execute Package,Field_Execute,Field_Number 0xe 030b 4804 |H | Short_Literal 0x4 030c 0092 059a | | Action Push_String_Extended,0x59a ; " " 030e e40a | | Load 0x2,0xa 030f e004 | | Load 0x0,0x4 0310 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0311 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0312 01cc | | Execute Vector,Catenate 0313 e00a | | Load 0x0,0xa 0314 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0315 e408 | | Load 0x2,0x8 0316 0217 | | Execute Heap_Access,All_Reference 0317 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0318 a408 | | Store_Unchecked 0x2,0x8 0319 e40e | | Load 0x2,0xe 031a 0aff | | Execute_Immediate Plus,-0x1 031b c40e | | Store 0x2,0xe 031c 00d8 | | Load_Top At_Offset_0 031d 0f01 | | Execute_Immediate Equal,0x1 031e 6809 |h | Jump_Zero 0x328 031f e408 | | Load 0x2,0x8 0320 6807 |h | Jump_Zero 0x328 0321 e009 | | Load 0x0,0x9 0322 180e | | Execute Package,Field_Execute,Field_Number 0xe 0323 4804 |H | Short_Literal 0x4 0324 0092 059b | | Action Push_String_Extended,0x59b ; " etc..." 0326 e00a | | Load 0x0,0xa 0327 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0328 00c8 | | Action Pop_Auxiliary_Range 0329 37d7 |7 | Loop_Decreasing 0x301 032a 00c9 | | Action Pop_Auxiliary_Loop 032b 4801 |H | Short_Literal 0x1 032c 00db | | Load_Top At_Offset_3 032d 0264 | d | Execute Discrete,Below_Bound 032e 7029 |p) | Jump_Nonzero 0x358 032f e409 | | Load 0x2,0x9 0330 7002 |p | Jump_Nonzero 0x333 0331 00d2 | | Pop_Control Pop_Count_2 0332 7825 |x% | Jump 0x358 0333 e409 | | Load 0x2,0x9 0334 0217 | | Execute Heap_Access,All_Reference 0335 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0336 a40a | | Store_Unchecked 0x2,0xa 0337 e009 | | Load 0x0,0x9 0338 180e | | Execute Package,Field_Execute,Field_Number 0xe 0339 4804 |H | Short_Literal 0x4 033a 0092 059a | | Action Push_String_Extended,0x59a ; " " 033c e40a | | Load 0x2,0xa 033d e004 | | Load 0x0,0x4 033e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 033f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0340 01cc | | Execute Vector,Catenate 0341 e00a | | Load 0x0,0xa 0342 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0343 e409 | | Load 0x2,0x9 0344 0217 | | Execute Heap_Access,All_Reference 0345 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0346 a408 | | Store_Unchecked 0x2,0x8 0347 e40e | | Load 0x2,0xe 0348 0aff | | Execute_Immediate Plus,-0x1 0349 c40e | | Store 0x2,0xe 034a 00d8 | | Load_Top At_Offset_0 034b 0f01 | | Execute_Immediate Equal,0x1 034c 6809 |h | Jump_Zero 0x356 034d e409 | | Load 0x2,0x9 034e 6807 |h | Jump_Zero 0x356 034f e009 | | Load 0x0,0x9 0350 180e | | Execute Package,Field_Execute,Field_Number 0xe 0351 4804 |H | Short_Literal 0x4 0352 0092 059c | | Action Push_String_Extended,0x59c ; " etc... " 0354 e00a | | Load 0x0,0xa 0355 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0356 00c8 | | Action Pop_Auxiliary_Range 0357 37d7 |7 | Loop_Decreasing 0x32f 0358 00ce | | Action Pop_Auxiliary 0359 e404 | | Load 0x2,0x4 035a 680a |h | Jump_Zero 0x365 035b e004 | | Load 0x0,0x4 035c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035d 6016 |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 035e e006 | | Load 0x0,0x6 035f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0360 e402 | | Load 0x2,0x2 0361 e004 | | Load 0x0,0x4 0362 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0363 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0364 c405 | | Store 0x2,0x5 0365 00d8 | | Load_Top At_Offset_0 0366 4801 |H | Short_Literal 0x1 0367 4800 |H | Short_Literal 0x0 0368 e006 | | Load 0x0,0x6 0369 1818 | | Execute Package,Field_Execute,Field_Number 0x18 036a c40f | | Store 0x2,0xf 036b e403 | | Load 0x2,0x3 036c e5fd | | Load 0x2,-0x3 036d 016d | m | Execute Variant_Record,Structure_Write 036e e402 | | Load 0x2,0x2 036f c5fe | | Store 0x2,-0x2 0370 00db | | Load_Top At_Offset_3 0371 a5fc | | Store_Unchecked 0x2,-0x4 0372 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0373 0000 | | .XXX[0x1] 0374 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 0381 | | .CONST 0x0381 ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0004 | | .CONST 0x0004 ; Number of locals 037b INIT_0378: 037b 00e2 | | Load_Encached Integer_Cache 037c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 037d 00db | | Load_Top At_Offset_3 037e 0007 | | Action Break_Optional 037f 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 0381 BODY_0378: 0381 00cf | | Action Mark_Auxiliary 0382 780d |x | Jump 0x390 0383 00da | | Load_Top At_Offset_2 0384 0217 | | Execute Heap_Access,All_Reference 0385 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0386 8404 | | Call 0x2,0x4 0387 6803 |h | Jump_Zero 0x38b 0388 00db | | Load_Top At_Offset_3 0389 0a01 | | Execute_Immediate Plus,0x1 038a c402 | | Store 0x2,0x2 038b 00da | | Load_Top At_Offset_2 038c 0217 | | Execute Heap_Access,All_Reference 038d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 038e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 038f 00c9 | | Action Pop_Auxiliary_Loop 0390 00da | | Load_Top At_Offset_2 0391 77f1 |w | Jump_Nonzero 0x383 0392 00ce | | Action Pop_Auxiliary 0393 00da | | Load_Top At_Offset_2 0394 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0395 0000 0000 | | .XXX[0x3] 0397 0000 | | 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03b4 | | .CONST 0x03b4 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0008 | | .CONST 0x0008 ; Number of locals 039b INIT_0398: 039b e003 | | Load 0x0,0x3 039c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 039d 02c7 | | Declare_Variable Any 039e 00d8 | | Load_Top At_Offset_0 039f 1c00 | | Execute_Immediate Run_Utility,0x0 03a0 e004 | | Load 0x0,0x4 03a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03a2 02c7 | | Declare_Variable Any 03a3 00d8 | | Load_Top At_Offset_0 03a4 1c00 | | Execute_Immediate Run_Utility,0x0 03a5 e004 | | Load 0x0,0x4 03a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a7 e004 | | Load 0x0,0x4 03a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03aa e004 | | Load 0x0,0x4 03ab 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 03ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03ad 02c7 | | Declare_Variable Any 03ae 00d8 | | Load_Top At_Offset_0 03af 1c00 | | Execute_Immediate Run_Utility,0x0 03b0 00e2 | | Load_Encached Integer_Cache 03b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03b2 029f 04b3 | | Declare_Subprogram INIT_04b0,For_Call 03b4 BODY_0398: 03b4 e602 | | Load 0x3,0x2 03b5 00ea | | Load_Encached Null_String_Cache 03b6 e7ff | | Load 0x3,-0x1 03b7 4800 |H | Short_Literal 0x0 03b8 e003 | | Load 0x0,0x3 03b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ba c602 | | Store 0x3,0x2 03bb 00cf | | Action Mark_Auxiliary 03bc 7809 |x | Jump 0x3c6 03bd 00da | | Load_Top At_Offset_2 03be e602 | | Load 0x3,0x2 03bf e003 | | Load 0x0,0x3 03c0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 03c1 01db | | Execute Vector,Length 03c2 0273 | s | Execute Discrete,Plus 03c3 0a01 | | Execute_Immediate Plus,0x1 03c4 005b | [ | Store_Top Discrete,At_Offset_3 03c5 00c9 | | Action Pop_Auxiliary_Loop 03c6 e602 | | Load 0x3,0x2 03c7 e003 | | Load 0x0,0x3 03c8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03c9 6ff3 |o | Jump_Zero 0x3bd 03ca 00ce | | Action Pop_Auxiliary 03cb 8608 | | Call 0x3,0x8 03cc 0831 | 1 | Execute_Immediate Raise,0x31 03cd 0000 0000 | | .XXX[0x3] 03cf 0000 | | 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 4607 |F | Jump_Case 0x8 03d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03d5 7807 |x | Jump 0x3dd ; case 0x1 03d6 780a |x | Jump 0x3e1 ; case 0x2 03d7 780e |x | Jump 0x3e6 ; case 0x3 03d8 7811 |x | Jump 0x3ea ; case 0x4 03d9 7812 |x | Jump 0x3ec ; case 0x5 03da 7813 |x | Jump 0x3ee ; case 0x6 03db 7816 |x | Jump 0x3f2 ; case 0x7 03dc 4302 |C | .XXX[0x1] 03dd 00da | | Load_Top At_Offset_2 03de 0091 0593 | | Action Push_String_Extended_Indexed,0x593 ; "CHANGE" 03e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03e1 00db | | Load_Top At_Offset_3 03e2 00db | | Load_Top At_Offset_3 03e3 00e0 | | Load_Encached Standard_Cache 03e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03e6 00da | | Load_Top At_Offset_2 03e7 00e0 | | Load_Encached Standard_Cache 03e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03ea 00db | | Load_Top At_Offset_3 03eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03ec 00db | | Load_Top At_Offset_3 03ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03ee e402 | | Load 0x2,0x2 03ef 00dc | | Load_Top At_Offset_4 03f0 0267 | g | Execute Discrete,Predecessor 03f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03f2 e402 | | Load 0x2,0x2 03f3 00dc | | Load_Top At_Offset_4 03f4 0268 | h | Execute Discrete,Successor 03f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03f6 0000 0000 | | .XXX[0x2] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0406 | | .CONST 0x0406 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0003 | | .CONST 0x0003 ; Number of locals 03fb INIT_03f8: 03fb 4800 |H | Short_Literal 0x0 03fc e7fe | | Load 0x3,-0x2 03fd 480a |H | Short_Literal 0xa 03fe e002 | | Load 0x0,0x2 03ff 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0400 00e2 | | Load_Encached Integer_Cache 0401 03f1 | | Declare_Variable Discrete,With_Value 0402 e7fe | | Load 0x3,-0x2 0403 01dd | | Execute Vector,First 0404 00e2 | | Load_Encached Integer_Cache 0405 03f1 | | Declare_Variable Discrete,With_Value 0406 BODY_03f8: 0406 00cf | | Action Mark_Auxiliary 0407 781c |x | Jump 0x424 0408 e7ff | | Load 0x3,-0x1 0409 00da | | Load_Top At_Offset_2 040a e602 | | Load 0x3,0x2 040b 0aff | | Execute_Immediate Plus,-0x1 040c 00d8 | | Load_Top At_Offset_0 040d 00e2 | | Load_Encached Integer_Cache 040e 0260 | ` | Execute Discrete,In_Type 040f 7001 |p | Jump_Nonzero 0x411 0410 0801 | | Execute_Immediate Raise,0x1 0411 e7fe | | Load 0x3,-0x2 0412 01cf | | Execute Vector,Slice_Read 0413 01ca | | Execute Vector,Prepend 0414 e003 | | Load 0x0,0x3 0415 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0416 00da | | Load_Top At_Offset_2 0417 0a01 | | Execute_Immediate Plus,0x1 0418 005a | Z | Store_Top Discrete,At_Offset_2 0419 4800 |H | Short_Literal 0x0 041a 00da | | Load_Top At_Offset_2 041b e7fe | | Load 0x3,-0x2 041c 01dc | | Execute Vector,Last 041d e7fe | | Load 0x3,-0x2 041e 01cf | | Execute Vector,Slice_Read 041f 480a |H | Short_Literal 0xa 0420 e002 | | Load 0x0,0x2 0421 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0422 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0423 00c9 | | Action Pop_Auxiliary_Loop 0424 00da | | Load_Top At_Offset_2 0425 0c01 | | Execute_Immediate Greater_Equal,0x1 0426 77e1 |w | Jump_Nonzero 0x408 0427 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042d | - | .CONST 0x042d ; Address of begin 0429 043d | = | .CONST 0x043d ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call 042d BODY_0428: 042d e7fe | | Load 0x3,-0x2 042e 0f02 | | Execute_Immediate Equal,0x2 042f 6803 |h | Jump_Zero 0x433 0430 00db | | Load_Top At_Offset_3 0431 0f32 | 2 | Execute_Immediate Equal,0x32 0432 7006 |p | Jump_Nonzero 0x439 0433 e7fe | | Load 0x3,-0x2 0434 0f01 | | Execute_Immediate Equal,0x1 0435 6805 |h | Jump_Zero 0x43b 0436 00db | | Load_Top At_Offset_3 0437 0f31 | 1 | Execute_Immediate Equal,0x31 0438 6802 |h | Jump_Zero 0x43b 0439 00ea | | Load_Encached Null_String_Cache 043a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 043b 8602 | | Call 0x3,0x2 043c 0831 | 1 | Execute_Immediate Raise,0x31 043d TRAP_0428: 043d 00d8 | | Load_Top At_Offset_0 043e 0107 | | Execute Exception,Get_Name 043f 4950 |IP | Short_Literal 0x150 0440 495f |I_ | Short_Literal 0x15f 0441 0262 | b | Execute Discrete,In_Range 0442 6802 |h | Jump_Zero 0x445 0443 00ea | | Load_Encached Null_String_Cache 0444 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0445 0100 | | Execute Exception,Raise 0446 0000 0000 | | .XXX[0x2] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044d | M | .CONST 0x044d ; Address of begin 0449 045d | ] | .CONST 0x045d ; Address of exception handler 044a 0002 | | .CONST 0x0002 ; Number of locals 044b INIT_0448: 044b 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 044d BODY_0448: 044d 00db | | Load_Top At_Offset_3 044e 01dd | | Execute Vector,First 044f e7ff | | Load 0x3,-0x1 0450 01d7 | | Execute Vector,Field_Read 0451 0f2a | * | Execute_Immediate Equal,0x2a 0452 6802 |h | Jump_Zero 0x455 0453 8602 | | Call 0x3,0x2 0454 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0455 e009 | | Load 0x0,0x9 0456 180e | | Execute Package,Field_Execute,Field_Number 0xe 0457 4808 |H | Short_Literal 0x8 0458 0092 059d | | Action Push_String_Extended,0x59d ; "Unexpected format in diff file." 045a e00a | | Load 0x0,0xa 045b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 045c 08e2 | | Execute_Immediate Raise,0xe2 045d TRAP_0448: 045d 010e | | Execute Exception,Is_Constraint_Error 045e 680a |h | Jump_Zero 0x469 045f e009 | | Load 0x0,0x9 0460 180e | | Execute Package,Field_Execute,Field_Number 0xe 0461 4808 |H | Short_Literal 0x8 0462 0092 059e | | Action Push_String_Extended,0x59e ; "Unexpected diff command: " 0464 e7ff | | Load 0x3,-0x1 0465 01cc | | Execute Vector,Catenate 0466 e00a | | Load 0x0,0xa 0467 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0468 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0469 0100 | | Execute Exception,Raise 046a 0000 0000 | | .BLANK 0000[0x6] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 00da | | Load_Top At_Offset_2 0474 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0475 00d8 | | Load_Top At_Offset_0 0476 0d29 | ) | Execute_Immediate Less,0x29 0477 7023 |p# | Jump_Nonzero 0x49b 0478 00d8 | | Load_Top At_Offset_0 0479 0c42 | B | Execute_Immediate Greater_Equal,0x42 047a 701d |p | Jump_Nonzero 0x498 047b 0ad7 | | Execute_Immediate Plus,-0x29 047c 4618 |F | Jump_Case 0x19 047d 7822 |x" | Jump 0x4a0 ; case 0x0 047e 782b |x+ | Jump 0x4aa ; case 0x1 047f 782a |x* | Jump 0x4aa ; case 0x2 0480 781f |x | Jump 0x4a0 ; case 0x3 0481 7828 |x( | Jump 0x4aa ; case 0x4 0482 7827 |x' | Jump 0x4aa ; case 0x5 0483 7826 |x& | Jump 0x4aa ; case 0x6 0484 7825 |x% | Jump 0x4aa ; case 0x7 0485 7824 |x$ | Jump 0x4aa ; case 0x8 0486 7823 |x# | Jump 0x4aa ; case 0x9 0487 7822 |x" | Jump 0x4aa ; case 0xa 0488 7821 |x! | Jump 0x4aa ; case 0xb 0489 7820 |x | Jump 0x4aa ; case 0xc 048a 781f |x | Jump 0x4aa ; case 0xd 048b 781e |x | Jump 0x4aa ; case 0xe 048c 781d |x | Jump 0x4aa ; case 0xf 048d 781c |x | Jump 0x4aa ; case 0x10 048e 781b |x | Jump 0x4aa ; case 0x11 048f 781a |x | Jump 0x4aa ; case 0x12 0490 7819 |x | Jump 0x4aa ; case 0x13 0491 7804 |x | Jump 0x496 ; case 0x14 0492 7803 |x | Jump 0x496 ; case 0x15 0493 7816 |x | Jump 0x4aa ; case 0x16 0494 7815 |x | Jump 0x4aa ; case 0x17 0495 7800 |x | Jump 0x496 ; case 0x18 0496 4801 |H | Short_Literal 0x1 0497 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0498 0fa8 | | Execute_Immediate Equal,-0x58 0499 700b |p | Jump_Nonzero 0x4a5 049a 780f |x | Jump 0x4aa 049b 4821 |H! | Short_Literal 0x21 049c 4822 |H" | Short_Literal 0x22 049d 0262 | b | Execute Discrete,In_Range 049e 7001 |p | Jump_Nonzero 0x4a0 049f 780a |x | Jump 0x4aa 04a0 00da | | Load_Top At_Offset_2 04a1 00eb | | Load_Encached Diana_Cache 04a2 18ec | | Execute Package,Field_Execute,Field_Number 0xec 04a3 8404 | | Call 0x2,0x4 04a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a5 00da | | Load_Top At_Offset_2 04a6 00eb | | Load_Encached Diana_Cache 04a7 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 04a8 8404 | | Call 0x2,0x4 04a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04aa 4800 |H | Short_Literal 0x0 04ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ac 0000 0000 | | .BLANK 0000[0x4] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04bc | | .CONST 0x04bc ; Address of begin 04b1 04e2 | | .CONST 0x04e2 ; Address of exception handler 04b2 0004 | | .CONST 0x0004 ; Number of locals 04b3 INIT_04b0: 04b3 4801 |H | Short_Literal 0x1 04b4 e607 | | Load 0x3,0x7 04b5 00e9 | | Load_Encached String_Cache 04b6 035b | [ | Declare_Type Array,Constrained 04b7 0337 | 7 | Declare_Variable Array 04b8 00e2 | | Load_Encached Integer_Cache 04b9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04ba 00e1 | | Load_Encached Boolean_Cache 04bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04bc BODY_04b0: 04bc e602 | | Load 0x3,0x2 04bd e003 | | Load 0x0,0x3 04be 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04bf c602 | | Store 0x3,0x2 04c0 00cf | | Action Mark_Auxiliary 04c1 780f |x | Jump 0x4d1 04c2 00d9 | | Load_Top At_Offset_1 04c3 00db | | Load_Top At_Offset_3 04c4 e802 | | Load 0x4,0x2 04c5 e5fd | | Load 0x2,-0x3 04c6 4820 |H | Short_Literal 0x20 04c7 e602 | | Load 0x3,0x2 04c8 e003 | | Load 0x0,0x3 04c9 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04ca e002 | | Load 0x0,0x2 04cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04cc 820d | | Call 0x1,0xd 04cd 00d1 | | Pop_Control Pop_Count_1 04ce c803 | | Store 0x4,0x3 04cf 005a | Z | Store_Top Discrete,At_Offset_2 04d0 00c9 | | Action Pop_Auxiliary_Loop 04d1 e602 | | Load 0x3,0x2 04d2 e003 | | Load 0x0,0x3 04d3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 04d4 6fed |o | Jump_Zero 0x4c2 04d5 00ce | | Action Pop_Auxiliary 04d6 e602 | | Load 0x3,0x2 04d7 e003 | | Load 0x0,0x3 04d8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04d9 c602 | | Store 0x3,0x2 04da 4801 |H | Short_Literal 0x1 04db 00da | | Load_Top At_Offset_2 04dc e802 | | Load 0x4,0x2 04dd 01cf | | Execute Vector,Slice_Read 04de 00e9 | | Load_Encached String_Cache 04df 01c6 | | Execute Vector,Convert_To_Formal 04e0 00cb | | Action Pop_Block_With_Result 04e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e2 TRAP_04b0: 04e2 00d8 | | Load_Top At_Offset_0 04e3 0107 | | Execute Exception,Get_Name 04e4 4950 |IP | Short_Literal 0x150 04e5 495f |I_ | Short_Literal 0x15f 04e6 0262 | b | Execute Discrete,In_Range 04e7 680c |h | Jump_Zero 0x4f4 04e8 e602 | | Load 0x3,0x2 04e9 e003 | | Load 0x0,0x3 04ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04eb c602 | | Store 0x3,0x2 04ec 4801 |H | Short_Literal 0x1 04ed 00db | | Load_Top At_Offset_3 04ee e802 | | Load 0x4,0x2 04ef 01cf | | Execute Vector,Slice_Read 04f0 00e9 | | Load_Encached String_Cache 04f1 01c6 | | Execute Vector,Convert_To_Formal 04f2 00cb | | Action Pop_Block_With_Result 04f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f4 0100 | | Execute Exception,Raise 04f5 0000 0000 | | .XXX[0x3] 04f7 0000 | | 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fe | | .CONST 0x04fe ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0002 | | .CONST 0x0002 ; Number of locals 04fb INIT_04f8: 04fb e403 | | Load 0x2,0x3 04fc e003 | | Load 0x0,0x3 04fd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04fe BODY_04f8: 04fe 00d8 | | Load_Top At_Offset_0 04ff 01db | | Execute Vector,Length 0500 0c01 | | Execute_Immediate Greater_Equal,0x1 0501 681b |h | Jump_Zero 0x51d 0502 00d8 | | Load_Top At_Offset_0 0503 01dd | | Execute Vector,First 0504 00d9 | | Load_Top At_Offset_1 0505 01d7 | | Execute Vector,Field_Read 0506 e7ff | | Load 0x3,-0x1 0507 027f | | Execute Discrete,Equal 0508 6814 |h | Jump_Zero 0x51d 0509 480a |H | Short_Literal 0xa 050a 00d9 | | Load_Top At_Offset_1 050b 01dd | | Execute Vector,First 050c 0a01 | | Execute_Immediate Plus,0x1 050d 00d8 | | Load_Top At_Offset_0 050e 00e2 | | Load_Encached Integer_Cache 050f 0260 | ` | Execute Discrete,In_Type 0510 7001 |p | Jump_Nonzero 0x512 0511 0801 | | Execute_Immediate Raise,0x1 0512 00da | | Load_Top At_Offset_2 0513 01dc | | Execute Vector,Last 0514 00db | | Load_Top At_Offset_3 0515 01cf | | Execute Vector,Slice_Read 0516 01cb | | Execute Vector,Append 0517 e7fe | | Load 0x3,-0x2 0518 e7ff | | Load 0x3,-0x1 0519 8405 | | Call 0x2,0x5 051a 01cc | | Execute Vector,Catenate 051b 00cb | | Action Pop_Block_With_Result 051c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 051d 00ea | | Load_Encached Null_String_Cache 051e 00cb | | Action Pop_Block_With_Result 051f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 053d | = | .CONST 0x053d ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0004 | | .CONST 0x0004 ; Number of locals 0523 INIT_0520: 0523 e7ff | | Load 0x3,-0x1 0524 01dd | | Execute Vector,First 0525 0a01 | | Execute_Immediate Plus,0x1 0526 00d8 | | Load_Top At_Offset_0 0527 00e2 | | Load_Encached Integer_Cache 0528 0260 | ` | Execute Discrete,In_Type 0529 7001 |p | Jump_Nonzero 0x52b 052a 0801 | | Execute_Immediate Raise,0x1 052b e7ff | | Load 0x3,-0x1 052c 01dd | | Execute Vector,First 052d 0a07 | | Execute_Immediate Plus,0x7 052e 00d8 | | Load_Top At_Offset_0 052f 00e2 | | Load_Encached Integer_Cache 0530 0260 | ` | Execute Discrete,In_Type 0531 7001 |p | Jump_Nonzero 0x533 0532 0801 | | Execute_Immediate Raise,0x1 0533 e7ff | | Load 0x3,-0x1 0534 01cf | | Execute Vector,Slice_Read 0535 e402 | | Load 0x2,0x2 0536 1c02 | | Execute_Immediate Run_Utility,0x2 0537 00d8 | | Load_Top At_Offset_0 0538 4831 |H1 | Short_Literal 0x31 0539 8405 | | Call 0x2,0x5 053a 00d9 | | Load_Top At_Offset_1 053b 4832 |H2 | Short_Literal 0x32 053c 8405 | | Call 0x2,0x5 053d BODY_0520: 053d e5fc | | Load 0x2,-0x4 053e 00da | | Load_Top At_Offset_2 053f 820e | | Call 0x1,0xe 0540 e5fc | | Load 0x2,-0x4 0541 00da | | Load_Top At_Offset_2 0542 820e | | Call 0x1,0xe 0543 01de | | Execute Vector,Not_Equal 0544 684d |hM | Jump_Zero 0x592 0545 e5fb | | Load 0x2,-0x5 0546 7024 |p$ | Jump_Nonzero 0x56b 0547 e5fd | | Load 0x2,-0x3 0548 6820 |h | Jump_Zero 0x569 0549 4801 |H | Short_Literal 0x1 054a e003 | | Load 0x0,0x3 054b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 054c 4820 |H | Short_Literal 0x20 054d 0092 059f | | Action Push_String_Extended,0x59f ; "# Update " 054f e5fe | | Load 0x2,-0x2 0550 01cc | | Execute Vector,Catenate 0551 01cb | | Execute Vector,Append 0552 e5fe | | Load 0x2,-0x2 0553 01db | | Execute Vector,Length 0554 0a0b | | Execute_Immediate Plus,0xb 0555 484c |HL | Short_Literal 0x4c 0556 00e9 | | Load_Encached String_Cache 0557 035b | [ | Declare_Type Array,Constrained 0558 0337 | 7 | Declare_Variable Array 0559 484c |HL | Short_Literal 0x4c 055a 00d9 | | Load_Top At_Offset_1 055b 01dd | | Execute Vector,First 055c 0263 | c | Execute Discrete,Above_Bound 055d 7005 |p | Jump_Nonzero 0x563 055e 4823 |H# | Short_Literal 0x23 055f 00d9 | | Load_Top At_Offset_1 0560 e806 | | Load 0x4,0x6 0561 01d6 | | Execute Vector,Field_Write 0562 3ffb |? | Loop_Increasing 0x55e 0563 01cc | | Execute Vector,Catenate 0564 e003 | | Load 0x0,0x3 0565 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0566 4801 |H | Short_Literal 0x1 0567 e003 | | Load 0x0,0x3 0568 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0569 4801 |H | Short_Literal 0x1 056a a5fb | | Store_Unchecked 0x2,-0x5 056b e5fd | | Load 0x2,-0x3 056c 6825 |h% | Jump_Zero 0x592 056d 4823 |H# | Short_Literal 0x23 056e e7ff | | Load 0x3,-0x1 056f 01dd | | Execute Vector,First 0570 0a01 | | Execute_Immediate Plus,0x1 0571 00d8 | | Load_Top At_Offset_0 0572 00e2 | | Load_Encached Integer_Cache 0573 0260 | ` | Execute Discrete,In_Type 0574 7001 |p | Jump_Nonzero 0x576 0575 0801 | | Execute_Immediate Raise,0x1 0576 e7ff | | Load 0x3,-0x1 0577 01dc | | Execute Vector,Last 0578 e7ff | | Load 0x3,-0x1 0579 01cf | | Execute Vector,Slice_Read 057a 01ca | | Execute Vector,Prepend 057b e003 | | Load 0x0,0x3 057c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 057d 00da | | Load_Top At_Offset_2 057e 0e01 | | Execute_Immediate Not_Equal,0x1 057f 6803 |h | Jump_Zero 0x583 0580 00d9 | | Load_Top At_Offset_1 0581 4823 |H# | Short_Literal 0x23 0582 8404 | | Call 0x2,0x4 0583 00da | | Load_Top At_Offset_2 0584 7004 |p | Jump_Nonzero 0x589 0585 0092 05a0 | | Action Push_String_Extended,0x5a0 ; "# to be:" 0587 e003 | | Load 0x0,0x3 0588 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0589 00da | | Load_Top At_Offset_2 058a 0e02 | | Execute_Immediate Not_Equal,0x2 058b 6803 |h | Jump_Zero 0x58f 058c 00d8 | | Load_Top At_Offset_0 058d 4820 |H | Short_Literal 0x20 058e 8404 | | Call 0x2,0x4 058f 4801 |H | Short_Literal 0x1 0590 e003 | | Load 0x0,0x3 0591 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0592 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0593 ; -------------------------------------------------------------------------------------- 0593 ; STRING TABLE 0593 ; -------------------------------------------------------------------------------------- 0593 001e | | .STRTAB 0x001e->0x05a2 ; "CHANGE" 0594 0022 | " | .STRTAB 0x0022->0x05a5 ; "INSERT" 0595 0026 | & | .STRTAB 0x0026->0x05a8 ; "DELETE" 0596 002a | * | .STRTAB 0x002a->0x05ab ; "# Finish " 0597 0031 | 1 | .STRTAB 0x0031->0x05af ; " has" 0598 0033 | 3 | .STRTAB 0x0033->0x05b1 ; " IMMEDIATE dependents (" 0599 0048 | H | .STRTAB 0x0048->0x05bd ; " specs):" 059a 004e | N | .STRTAB 0x004e->0x05c1 ; " " 059b 004f | O | .STRTAB 0x004f->0x05c2 ; " etc..." 059c 0056 | V | .STRTAB 0x0056->0x05c7 ; " etc... " 059d 005e | ^ | .STRTAB 0x005e->0x05cc ; "Unexpected format in diff file." 059e 007b | { | .STRTAB 0x007b->0x05db ; "Unexpected diff command: " 059f 0092 | | .STRTAB 0x0092->0x05e8 ; "# Update " 05a0 0099 | | .STRTAB 0x0099->0x05ec ; "# to be:" 05a1 009f | | .STREND 0x009f->0x05f0 05a2 4348 414e |CHAN| .STRTAB_STRINGS 05f1 0000 0000 | | .BLANK 0000[0x7] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; Debug Table 05f8 ; -------------------------------------------------------------------------------------- 05f8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b80,0x0000,0x0001,0x0000 05fe 9dcc b935 | 5| .XXX[0x2]