|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0608 | | .CONST 0x0608 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0015 c20e | | Store 0x1,0xe 0016 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0018 c20f | | Store 0x1,0xf 0019 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 001b c213 | | Store 0x1,0x13 001c 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 001e c212 | | Store 0x1,0x12 001f 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0021 c214 | | Store 0x1,0x14 0022 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 0024 c20d | | Store 0x1,0xd 0025 00bf | | Action Accept_Activation 0026 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0027 00c7 | | Action Elaborate_Subprogram 0028 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0029 00c7 | | Action Elaborate_Subprogram 002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002b 00c7 | | Action Elaborate_Subprogram 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002d 00c7 | | Action Elaborate_Subprogram 002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002f 00c7 | | Action Elaborate_Subprogram 0030 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0031 00c7 | | Action Elaborate_Subprogram 0032 BODY_0008: 0032 00bc | | Action Signal_Activated 0033 00bb | | Action Signal_Completion 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0040 | @ | .CONST 0x0040 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0002 | | .CONST 0x0002 ; Number of locals 003b INIT_0038: 003b 00da | | Load_Top At_Offset_2 003c 01dd | | Execute Vector,First 003d 0aff | | Execute_Immediate Plus,-0x1 003e 00e2 | | Load_Encached Integer_Cache 003f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0040 BODY_0038: 0040 00cf | | Action Mark_Auxiliary 0041 794c |yL | Jump 0x18e 0042 00d9 | | Load_Top At_Offset_1 0043 0a01 | | Execute_Immediate Plus,0x1 0044 005a | Z | Store_Top Discrete,At_Offset_2 0045 00d9 | | Load_Top At_Offset_1 0046 e5ff | | Load 0x2,-0x1 0047 01d7 | | Execute Vector,Field_Read 0048 00d8 | | Load_Top At_Offset_0 0049 0d09 | | Execute_Immediate Less,0x9 004a 7051 |pQ | Jump_Nonzero 0x9c 004b 00d8 | | Load_Top At_Offset_0 004c 0c41 | A | Execute_Immediate Greater_Equal,0x41 004d 7046 |pF | Jump_Nonzero 0x94 004e 0af7 | | Execute_Immediate Plus,-0x9 004f 4637 |F7 | Jump_Case 0x38 0050 793c |y< | Jump 0x18d ; case 0x0 0051 793b |y; | Jump 0x18d ; case 0x1 0052 7835 |x5 | Jump 0x88 ; case 0x2 0053 7834 |x4 | Jump 0x88 ; case 0x3 0054 7833 |x3 | Jump 0x88 ; case 0x4 0055 7832 |x2 | Jump 0x88 ; case 0x5 0056 7831 |x1 | Jump 0x88 ; case 0x6 0057 7830 |x0 | Jump 0x88 ; case 0x7 0058 782f |x/ | Jump 0x88 ; case 0x8 0059 782e |x. | Jump 0x88 ; case 0x9 005a 782d |x- | Jump 0x88 ; case 0xa 005b 782c |x, | Jump 0x88 ; case 0xb 005c 782b |x+ | Jump 0x88 ; case 0xc 005d 782a |x* | Jump 0x88 ; case 0xd 005e 7829 |x) | Jump 0x88 ; case 0xe 005f 7828 |x( | Jump 0x88 ; case 0xf 0060 7827 |x' | Jump 0x88 ; case 0x10 0061 7826 |x& | Jump 0x88 ; case 0x11 0062 7825 |x% | Jump 0x88 ; case 0x12 0063 7824 |x$ | Jump 0x88 ; case 0x13 0064 7823 |x# | Jump 0x88 ; case 0x14 0065 7822 |x" | Jump 0x88 ; case 0x15 0066 7821 |x! | Jump 0x88 ; case 0x16 0067 7925 |y% | Jump 0x18d ; case 0x17 0068 781f |x | Jump 0x88 ; case 0x18 0069 7878 |xx | Jump 0xe2 ; case 0x19 006a 781d |x | Jump 0x88 ; case 0x1a 006b 781c |x | Jump 0x88 ; case 0x1b 006c 781b |x | Jump 0x88 ; case 0x1c 006d 781a |x | Jump 0x88 ; case 0x1d 006e 7899 |x | Jump 0x108 ; case 0x1e 006f 7818 |x | Jump 0x88 ; case 0x1f 0070 7817 |x | Jump 0x88 ; case 0x20 0071 7816 |x | Jump 0x88 ; case 0x21 0072 7815 |x | Jump 0x88 ; case 0x22 0073 7814 |x | Jump 0x88 ; case 0x23 0074 78ca |x | Jump 0x13f ; case 0x24 0075 7812 |x | Jump 0x88 ; case 0x25 0076 7811 |x | Jump 0x88 ; case 0x26 0077 7827 |x' | Jump 0x9f ; case 0x27 0078 7826 |x& | Jump 0x9f ; case 0x28 0079 7825 |x% | Jump 0x9f ; case 0x29 007a 7824 |x$ | Jump 0x9f ; case 0x2a 007b 7823 |x# | Jump 0x9f ; case 0x2b 007c 7822 |x" | Jump 0x9f ; case 0x2c 007d 7821 |x! | Jump 0x9f ; case 0x2d 007e 7820 |x | Jump 0x9f ; case 0x2e 007f 781f |x | Jump 0x9f ; case 0x2f 0080 781e |x | Jump 0x9f ; case 0x30 0081 7806 |x | Jump 0x88 ; case 0x31 0082 7805 |x | Jump 0x88 ; case 0x32 0083 7804 |x | Jump 0x88 ; case 0x33 0084 7803 |x | Jump 0x88 ; case 0x34 0085 7802 |x | Jump 0x88 ; case 0x35 0086 7801 |x | Jump 0x88 ; case 0x36 0087 7800 |x | Jump 0x88 ; case 0x37 0088 e5fc | | Load 0x2,-0x4 0089 0a01 | | Execute_Immediate Plus,0x1 008a c5fc | | Store 0x2,-0x4 008b 00d9 | | Load_Top At_Offset_1 008c e5ff | | Load 0x2,-0x1 008d 01d7 | | Execute Vector,Field_Read 008e e5fc | | Load 0x2,-0x4 008f e5fd | | Load 0x2,-0x3 0090 01d6 | | Execute Vector,Field_Write 0091 4800 |H | Short_Literal 0x0 0092 a5fb | | Store_Unchecked 0x2,-0x5 0093 78f9 |x | Jump 0x18d 0094 00d8 | | Load_Top At_Offset_0 0095 0c5b | [ | Execute_Immediate Greater_Equal,0x5b 0096 6807 |h | Jump_Zero 0x9e 0097 4861 |Ha | Short_Literal 0x61 0098 487a |Hz | Short_Literal 0x7a 0099 0262 | b | Execute Discrete,In_Range 009a 7004 |p | Jump_Nonzero 0x9f 009b 7fec | | Jump 0x88 009c 00d1 | | Pop_Control Pop_Count_1 009d 7fea | | Jump 0x88 009e 00d1 | | Pop_Control Pop_Count_1 009f e5fb | | Load 0x2,-0x5 00a0 6808 |h | Jump_Zero 0xa9 00a1 e5fc | | Load 0x2,-0x4 00a2 0a01 | | Execute_Immediate Plus,0x1 00a3 c5fc | | Store 0x2,-0x4 00a4 4820 |H | Short_Literal 0x20 00a5 e5fc | | Load 0x2,-0x4 00a6 e5fd | | Load 0x2,-0x3 00a7 01d6 | | Execute Vector,Field_Write 00a8 7802 |x | Jump 0xab 00a9 4801 |H | Short_Literal 0x1 00aa a5fb | | Store_Unchecked 0x2,-0x5 00ab 00cf | | Action Mark_Auxiliary 00ac 782e |x. | Jump 0xdb 00ad 00da | | Load_Top At_Offset_2 00ae e5ff | | Load 0x2,-0x1 00af 01d7 | | Execute Vector,Field_Read 00b0 00d8 | | Load_Top At_Offset_0 00b1 0d5b | [ | Execute_Immediate Less,0x5b 00b2 7009 |p | Jump_Nonzero 0xbc 00b3 00d8 | | Load_Top At_Offset_0 00b4 0c61 | a | Execute_Immediate Greater_Equal,0x61 00b5 7003 |p | Jump_Nonzero 0xb9 00b6 0f5f | _ | Execute_Immediate Equal,0x5f 00b7 700f |p | Jump_Nonzero 0xc7 00b8 781d |x | Jump 0xd6 00b9 0c7b | { | Execute_Immediate Greater_Equal,0x7b 00ba 680c |h | Jump_Zero 0xc7 00bb 781a |x | Jump 0xd6 00bc 00d8 | | Load_Top At_Offset_0 00bd 4830 |H0 | Short_Literal 0x30 00be 4839 |H9 | Short_Literal 0x39 00bf 0262 | b | Execute Discrete,In_Range 00c0 7005 |p | Jump_Nonzero 0xc6 00c1 4841 |HA | Short_Literal 0x41 00c2 485a |HZ | Short_Literal 0x5a 00c3 0262 | b | Execute Discrete,In_Range 00c4 7002 |p | Jump_Nonzero 0xc7 00c5 7810 |x | Jump 0xd6 00c6 00d1 | | Pop_Control Pop_Count_1 00c7 e5fc | | Load 0x2,-0x4 00c8 0a01 | | Execute_Immediate Plus,0x1 00c9 c5fc | | Store 0x2,-0x4 00ca 00da | | Load_Top At_Offset_2 00cb e5ff | | Load 0x2,-0x1 00cc 01d7 | | Execute Vector,Field_Read 00cd e001 | | Load 0x0,0x1 00ce 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00cf e5fc | | Load 0x2,-0x4 00d0 e5fd | | Load 0x2,-0x3 00d1 01d6 | | Execute Vector,Field_Write 00d2 00da | | Load_Top At_Offset_2 00d3 0a01 | | Execute_Immediate Plus,0x1 00d4 005b | [ | Store_Top Discrete,At_Offset_3 00d5 7804 |x | Jump 0xda 00d6 00da | | Load_Top At_Offset_2 00d7 0aff | | Execute_Immediate Plus,-0x1 00d8 005b | [ | Store_Top Discrete,At_Offset_3 00d9 7806 |x | Jump 0xe0 00da 00c9 | | Action Pop_Auxiliary_Loop 00db 00da | | Load_Top At_Offset_2 00dc e5ff | | Load 0x2,-0x1 00dd 01dc | | Execute Vector,Last 00de 027a | z | Execute Discrete,Less_Equal 00df 77cd |w | Jump_Nonzero 0xad 00e0 00ce | | Action Pop_Auxiliary 00e1 78ab |x | Jump 0x18d 00e2 e5fc | | Load 0x2,-0x4 00e3 0a01 | | Execute_Immediate Plus,0x1 00e4 c5fc | | Store 0x2,-0x4 00e5 00d9 | | Load_Top At_Offset_1 00e6 e5ff | | Load 0x2,-0x1 00e7 01d7 | | Execute Vector,Field_Read 00e8 e5fc | | Load 0x2,-0x4 00e9 e5fd | | Load 0x2,-0x3 00ea 01d6 | | Execute Vector,Field_Write 00eb 00cf | | Action Mark_Auxiliary 00ec 7812 |x | Jump 0xff 00ed 00da | | Load_Top At_Offset_2 00ee 0a01 | | Execute_Immediate Plus,0x1 00ef 005b | [ | Store_Top Discrete,At_Offset_3 00f0 e5fc | | Load 0x2,-0x4 00f1 0a01 | | Execute_Immediate Plus,0x1 00f2 c5fc | | Store 0x2,-0x4 00f3 00da | | Load_Top At_Offset_2 00f4 e5ff | | Load 0x2,-0x1 00f5 01d7 | | Execute Vector,Field_Read 00f6 e5fc | | Load 0x2,-0x4 00f7 e5fd | | Load 0x2,-0x3 00f8 01d6 | | Execute Vector,Field_Write 00f9 00da | | Load_Top At_Offset_2 00fa e5ff | | Load 0x2,-0x1 00fb 01d7 | | Execute Vector,Field_Read 00fc 0f22 | " | Execute_Immediate Equal,0x22 00fd 7006 |p | Jump_Nonzero 0x104 00fe 00c9 | | Action Pop_Auxiliary_Loop 00ff 00da | | Load_Top At_Offset_2 0100 e5ff | | Load 0x2,-0x1 0101 01dc | | Execute Vector,Last 0102 027c | | | Execute Discrete,Less 0103 77e9 |w | Jump_Nonzero 0xed 0104 00ce | | Action Pop_Auxiliary 0105 4800 |H | Short_Literal 0x0 0106 a5fb | | Store_Unchecked 0x2,-0x5 0107 7885 |x | Jump 0x18d 0108 00d9 | | Load_Top At_Offset_1 0109 0a01 | | Execute_Immediate Plus,0x1 010a e5ff | | Load 0x2,-0x1 010b 01dc | | Execute Vector,Last 010c 027c | | | Execute Discrete,Less 010d 6827 |h' | Jump_Zero 0x135 010e 00d9 | | Load_Top At_Offset_1 010f 0a02 | | Execute_Immediate Plus,0x2 0110 e5ff | | Load 0x2,-0x1 0111 01d7 | | Execute Vector,Field_Read 0112 0f27 | ' | Execute_Immediate Equal,0x27 0113 6821 |h! | Jump_Zero 0x135 0114 00d9 | | Load_Top At_Offset_1 0115 00da | | Load_Top At_Offset_2 0116 0a02 | | Execute_Immediate Plus,0x2 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 e5ff | | Load 0x2,-0x1 011d 01cf | | Execute Vector,Slice_Read 011e e5fc | | Load 0x2,-0x4 011f 0a01 | | Execute_Immediate Plus,0x1 0120 00d8 | | Load_Top At_Offset_0 0121 00e2 | | Load_Encached Integer_Cache 0122 0260 | ` | Execute Discrete,In_Type 0123 7001 |p | Jump_Nonzero 0x125 0124 0801 | | Execute_Immediate Raise,0x1 0125 e5fc | | Load 0x2,-0x4 0126 0a03 | | Execute_Immediate Plus,0x3 0127 00d8 | | Load_Top At_Offset_0 0128 00e2 | | Load_Encached Integer_Cache 0129 0260 | ` | Execute Discrete,In_Type 012a 7001 |p | Jump_Nonzero 0x12c 012b 0801 | | Execute_Immediate Raise,0x1 012c e5fd | | Load 0x2,-0x3 012d 01ce | | Execute Vector,Slice_Write 012e e5fc | | Load 0x2,-0x4 012f 0a03 | | Execute_Immediate Plus,0x3 0130 c5fc | | Store 0x2,-0x4 0131 00d9 | | Load_Top At_Offset_1 0132 0a02 | | Execute_Immediate Plus,0x2 0133 005a | Z | Store_Top Discrete,At_Offset_2 0134 7807 |x | Jump 0x13c 0135 e5fc | | Load 0x2,-0x4 0136 0a01 | | Execute_Immediate Plus,0x1 0137 c5fc | | Store 0x2,-0x4 0138 4827 |H' | Short_Literal 0x27 0139 e5fc | | Load 0x2,-0x4 013a e5fd | | Load 0x2,-0x3 013b 01d6 | | Execute Vector,Field_Write 013c 4800 |H | Short_Literal 0x0 013d a5fb | | Store_Unchecked 0x2,-0x5 013e 784e |xN | Jump 0x18d 013f 00d9 | | Load_Top At_Offset_1 0140 e5ff | | Load 0x2,-0x1 0141 01dc | | Execute Vector,Last 0142 027c | | | Execute Discrete,Less 0143 683e |h> | Jump_Zero 0x182 0144 00d9 | | Load_Top At_Offset_1 0145 0a01 | | Execute_Immediate Plus,0x1 0146 e5ff | | Load 0x2,-0x1 0147 01d7 | | Execute Vector,Field_Read 0148 0f2d | - | Execute_Immediate Equal,0x2d 0149 6838 |h8 | Jump_Zero 0x182 014a e5fe | | Load 0x2,-0x2 014b 6812 |h | Jump_Zero 0x15e 014c 00cf | | Action Mark_Auxiliary 014d 7804 |x | Jump 0x152 014e 00da | | Load_Top At_Offset_2 014f 0a01 | | Execute_Immediate Plus,0x1 0150 005b | [ | Store_Top Discrete,At_Offset_3 0151 00c9 | | Action Pop_Auxiliary_Loop 0152 00da | | Load_Top At_Offset_2 0153 e5ff | | Load 0x2,-0x1 0154 01dc | | Execute Vector,Last 0155 027a | z | Execute Discrete,Less_Equal 0156 6805 |h | Jump_Zero 0x15c 0157 00da | | Load_Top At_Offset_2 0158 e5ff | | Load 0x2,-0x1 0159 01d7 | | Execute Vector,Field_Read 015a 0e0a | | Execute_Immediate Not_Equal,0xa 015b 77f2 |w | Jump_Nonzero 0x14e 015c 00ce | | Action Pop_Auxiliary 015d 782f |x/ | Jump 0x18d 015e 00cf | | Action Mark_Auxiliary 015f 780d |x | Jump 0x16d 0160 e5fc | | Load 0x2,-0x4 0161 0a01 | | Execute_Immediate Plus,0x1 0162 c5fc | | Store 0x2,-0x4 0163 00da | | Load_Top At_Offset_2 0164 e5ff | | Load 0x2,-0x1 0165 01d7 | | Execute Vector,Field_Read 0166 e5fc | | Load 0x2,-0x4 0167 e5fd | | Load 0x2,-0x3 0168 01d6 | | Execute Vector,Field_Write 0169 00da | | Load_Top At_Offset_2 016a 0a01 | | Execute_Immediate Plus,0x1 016b 005b | [ | Store_Top Discrete,At_Offset_3 016c 00c9 | | Action Pop_Auxiliary_Loop 016d 00da | | Load_Top At_Offset_2 016e e5ff | | Load 0x2,-0x1 016f 01dc | | Execute Vector,Last 0170 027a | z | Execute Discrete,Less_Equal 0171 6805 |h | Jump_Zero 0x177 0172 00da | | Load_Top At_Offset_2 0173 e5ff | | Load 0x2,-0x1 0174 01d7 | | Execute Vector,Field_Read 0175 0e0a | | Execute_Immediate Not_Equal,0xa 0176 77e9 |w | Jump_Nonzero 0x160 0177 00ce | | Action Pop_Auxiliary 0178 e5fc | | Load 0x2,-0x4 0179 0a01 | | Execute_Immediate Plus,0x1 017a c5fc | | Store 0x2,-0x4 017b 480a |H | Short_Literal 0xa 017c e5fc | | Load 0x2,-0x4 017d e5fd | | Load 0x2,-0x3 017e 01d6 | | Execute Vector,Field_Write 017f 4800 |H | Short_Literal 0x0 0180 a5fb | | Store_Unchecked 0x2,-0x5 0181 780b |x | Jump 0x18d 0182 e5fc | | Load 0x2,-0x4 0183 0a01 | | Execute_Immediate Plus,0x1 0184 c5fc | | Store 0x2,-0x4 0185 00d9 | | Load_Top At_Offset_1 0186 e5ff | | Load 0x2,-0x1 0187 01d7 | | Execute Vector,Field_Read 0188 e5fc | | Load 0x2,-0x4 0189 e5fd | | Load 0x2,-0x3 018a 01d6 | | Execute Vector,Field_Write 018b 4800 |H | Short_Literal 0x0 018c a5fb | | Store_Unchecked 0x2,-0x5 018d 00c9 | | Action Pop_Auxiliary_Loop 018e 00d9 | | Load_Top At_Offset_1 018f e5ff | | Load 0x2,-0x1 0190 01dc | | Execute Vector,Last 0191 027c | | | Execute Discrete,Less 0192 76af |v | Jump_Nonzero 0x42 0193 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01aa | | .CONST 0x01aa ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0004 | | .CONST 0x0004 ; Number of locals 019b INIT_0198: 019b 4801 |H | Short_Literal 0x1 019c 00db | | Load_Top At_Offset_3 019d 01db | | Execute Vector,Length 019e 00d8 | | Load_Top At_Offset_0 019f 00e2 | | Load_Encached Integer_Cache 01a0 0260 | ` | Execute Discrete,In_Type 01a1 7001 |p | Jump_Nonzero 0x1a3 01a2 0801 | | Execute_Immediate Raise,0x1 01a3 00e9 | | Load_Encached String_Cache 01a4 035b | [ | Declare_Type Array,Constrained 01a5 0337 | 7 | Declare_Variable Array 01a6 00e2 | | Load_Encached Integer_Cache 01a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01a8 00e1 | | Load_Encached Boolean_Cache 01a9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01aa BODY_0198: 01aa 00d8 | | Load_Top At_Offset_0 01ab 00da | | Load_Top At_Offset_2 01ac e402 | | Load 0x2,0x2 01ad e5fe | | Load 0x2,-0x2 01ae e5ff | | Load 0x2,-0x1 01af 820e | | Call 0x1,0xe 01b0 00d1 | | Pop_Control Pop_Count_1 01b1 005b | [ | Store_Top Discrete,At_Offset_3 01b2 0059 | Y | Store_Top Discrete,At_Offset_1 01b3 4801 |H | Short_Literal 0x1 01b4 00da | | Load_Top At_Offset_2 01b5 e402 | | Load 0x2,0x2 01b6 01cf | | Execute Vector,Slice_Read 01b7 00e9 | | Load_Encached String_Cache 01b8 01c6 | | Execute Vector,Convert_To_Formal 01b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ba 0000 0000 | | .BLANK 0000[0x6] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c5 | | .CONST 0x01c5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call 01c5 BODY_01c0: 01c5 00db | | Load_Top At_Offset_3 01c6 8402 | | Call 0x2,0x2 01c7 e5fe | | Load 0x2,-0x2 01c8 8402 | | Call 0x2,0x2 01c9 01df | | Execute Vector,Equal 01ca 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01e3 | | .CONST 0x01e3 ; Address of begin 01d1 01fe | | .CONST 0x01fe ; Address of exception handler 01d2 0006 | | .CONST 0x0006 ; Number of locals 01d3 INIT_01d0: 01d3 4800 |H | Short_Literal 0x0 01d4 4802 |H | Short_Literal 0x2 01d5 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 01d7 03fd | | Declare_Type Discrete,Defined 01d8 e002 | | Load 0x0,0x2 01d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01da 02c7 | | Declare_Variable Any 01db 00d8 | | Load_Top At_Offset_0 01dc 1c00 | | Execute_Immediate Run_Utility,0x0 01dd 029f 040b | | Declare_Subprogram INIT_0408,For_Call 01df 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call 01e1 029f 045b | [| Declare_Subprogram INIT_0458,For_Call 01e3 BODY_01d0: 01e3 4800 |H | Short_Literal 0x0 01e4 a5fb | | Store_Unchecked 0x2,-0x5 01e5 00db | | Load_Top At_Offset_3 01e6 00ea | | Load_Encached Null_String_Cache 01e7 e5ff | | Load 0x2,-0x1 01e8 4800 |H | Short_Literal 0x0 01e9 e002 | | Load 0x0,0x2 01ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01eb c403 | | Store 0x2,0x3 01ec 4802 |H | Short_Literal 0x2 01ed e403 | | Load 0x2,0x3 01ee e002 | | Load 0x0,0x2 01ef 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 01f0 00cf | | Action Mark_Auxiliary 01f1 7805 |x | Jump 0x1f7 01f2 e403 | | Load 0x2,0x3 01f3 e002 | | Load 0x0,0x2 01f4 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01f5 8406 | | Call 0x2,0x6 01f6 00c9 | | Action Pop_Auxiliary_Loop 01f7 e403 | | Load 0x2,0x3 01f8 e002 | | Load 0x0,0x2 01f9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01fa 6ff7 |o | Jump_Zero 0x1f2 01fb 00ce | | Action Pop_Auxiliary 01fc 4950 |IP | Short_Literal 0x150 01fd 0257 | W | Execute Discrete,Raise 01fe TRAP_01d0: 01fe 00d8 | | Load_Top At_Offset_0 01ff 0107 | | Execute Exception,Get_Name 0200 4950 |IP | Short_Literal 0x150 0201 495f |I_ | Short_Literal 0x15f 0202 0262 | b | Execute Discrete,In_Range 0203 681d |h | Jump_Zero 0x221 0204 e403 | | Load 0x2,0x3 0205 e002 | | Load 0x0,0x2 0206 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0207 c403 | | Store 0x2,0x3 0208 e5fb | | Load 0x2,-0x5 0209 e5fd | | Load 0x2,-0x3 020a 0279 | y | Execute Discrete,And 020b 6814 |h | Jump_Zero 0x220 020c 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "# Finish " 020e 480a |H | Short_Literal 0xa 020f 484c |HL | Short_Literal 0x4c 0210 00e9 | | Load_Encached String_Cache 0211 035b | [ | Declare_Type Array,Constrained 0212 0337 | 7 | Declare_Variable Array 0213 484c |HL | Short_Literal 0x4c 0214 480a |H | Short_Literal 0xa 0215 4823 |H# | Short_Literal 0x23 0216 00d9 | | Load_Top At_Offset_1 0217 e409 | | Load 0x2,0x9 0218 01d6 | | Execute Vector,Field_Write 0219 3ffb |? | Loop_Increasing 0x215 021a 01cc | | Execute Vector,Catenate 021b e002 | | Load 0x0,0x2 021c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 021d 4801 |H | Short_Literal 0x1 021e e002 | | Load 0x0,0x2 021f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0220 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0221 0100 | | Execute Exception,Raise 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 025c | \ | .CONST 0x025c ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 000f | | .CONST 0x000f ; Number of locals 022b INIT_0228: 022b e003 | | Load 0x0,0x3 022c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 022d 02c7 | | Declare_Variable Any 022e 00d8 | | Load_Top At_Offset_0 022f 1c00 | | Execute_Immediate Run_Utility,0x0 0230 e003 | | Load 0x0,0x3 0231 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0232 02ff | | Declare_Variable Variant_Record 0233 00d8 | | Load_Top At_Offset_0 0234 1c00 | | Execute_Immediate Run_Utility,0x0 0235 00e1 | | Load_Encached Boolean_Cache 0236 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0237 e003 | | Load 0x0,0x3 0238 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0239 e003 | | Load 0x0,0x3 023a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 023b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 023c e004 | | Load 0x0,0x4 023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023e 02c7 | | Declare_Variable Any 023f 00d8 | | Load_Top At_Offset_0 0240 1c00 | | Execute_Immediate Run_Utility,0x0 0241 e003 | | Load 0x0,0x3 0242 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0243 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0244 e003 | | Load 0x0,0x3 0245 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0246 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0247 e003 | | Load 0x0,0x3 0248 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0249 1b16 | | Execute Package,Field_Read,Field_Number 0x16 024a 039d | | Declare_Variable Heap_Access,Duplicate 024b 00e1 | | Load_Encached Boolean_Cache 024c e003 | | Load 0x0,0x3 024d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 024e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 024f 02c7 | | Declare_Variable Any 0250 00d8 | | Load_Top At_Offset_0 0251 1c00 | | Execute_Immediate Run_Utility,0x0 0252 00e2 | | Load_Encached Integer_Cache 0253 0605 | | Execute_Immediate Set_Value_Unchecked,0x5 0254 e005 | | Load 0x0,0x5 0255 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0256 02c7 | | Declare_Variable Any 0257 e006 | | Load 0x0,0x6 0258 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0259 e005 | | Load 0x0,0x5 025a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 025b a40f | | Store_Unchecked 0x2,0xf 025c BODY_0228: 025c e003 | | Load 0x0,0x3 025d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 025e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 025f e402 | | Load 0x2,0x2 0260 0120 | | Execute Any,Is_Value 0261 6803 |h | Jump_Zero 0x265 0262 e003 | | Load 0x0,0x3 0263 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0264 7801 |x | Jump 0x266 0265 e402 | | Load 0x2,0x2 0266 611d |a | Indirect_Literal Discrete,0x384,{0x00000000, 0x00004000} 0267 e005 | | Load 0x0,0x5 0268 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0269 e007 | | Load 0x0,0x7 026a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 026b e003 | | Load 0x0,0x3 026c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 026e e5ff | | Load 0x2,-0x1 026f e003 | | Load 0x0,0x3 0270 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0271 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0272 c402 | | Store 0x2,0x2 0273 c406 | | Store 0x2,0x6 0274 e003 | | Load 0x0,0x3 0275 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0276 e403 | | Load 0x2,0x3 0277 610c |a | Indirect_Literal Discrete,0x384,{0x00000000, 0x00004000} 0278 e005 | | Load 0x0,0x5 0279 1b0e | | Execute Package,Field_Read,Field_Number 0xe 027a 4800 |H | Short_Literal 0x0 027b e402 | | Load 0x2,0x2 027c e003 | | Load 0x0,0x3 027d 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 027e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 027f 00d1 | | Pop_Control Pop_Count_1 0280 c405 | | Store 0x2,0x5 0281 e003 | | Load 0x0,0x3 0282 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0283 00e1 | | Load_Encached Boolean_Cache 0284 60ff |` | Indirect_Literal Discrete,0x384,{0x00000000, 0x00004000} 0285 e005 | | Load 0x0,0x5 0286 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0287 e402 | | Load 0x2,0x2 0288 e003 | | Load 0x0,0x3 0289 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 028a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028b c404 | | Store 0x2,0x4 028c c405 | | Store 0x2,0x5 028d e404 | | Load 0x2,0x4 028e 680a |h | Jump_Zero 0x299 028f e003 | | Load 0x0,0x3 0290 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0291 60f2 |` | Indirect_Literal Discrete,0x384,{0x00000000, 0x00004000} 0292 e005 | | Load 0x0,0x5 0293 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0294 e402 | | Load 0x2,0x2 0295 e003 | | Load 0x0,0x3 0296 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0297 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0298 c405 | | Store 0x2,0x5 0299 e003 | | Load 0x0,0x3 029a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029b 00db | | Load_Top At_Offset_3 029c 0120 | | Execute Any,Is_Value 029d 6804 |h | Jump_Zero 0x2a2 029e e003 | | Load 0x0,0x3 029f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02a0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02a1 7801 |x | Jump 0x2a3 02a2 00db | | Load_Top At_Offset_3 02a3 e003 | | Load 0x0,0x3 02a4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02a5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02a6 e403 | | Load 0x2,0x3 02a7 60dc |` | Indirect_Literal Discrete,0x384,{0x00000000, 0x00004000} 02a8 4801 |H | Short_Literal 0x1 02a9 4800 |H | Short_Literal 0x0 02aa e005 | | Load 0x0,0x5 02ab 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ac 4800 |H | Short_Literal 0x0 02ad e003 | | Load 0x0,0x3 02ae 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02af 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 02b0 00d1 | | Pop_Control Pop_Count_1 02b1 c40b | | Store 0x2,0xb 02b2 c40d | | Store 0x2,0xd 02b3 c405 | | Store 0x2,0x5 02b4 e003 | | Load 0x0,0x3 02b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b6 00f1 | | Load_Encached Diana_Temp_Seq 02b7 e003 | | Load 0x0,0x3 02b8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02b9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02ba 00ec | | Load_Encached Diana_Tree_Cache 02bb e407 | | Load 0x2,0x7 02bc 0120 | | Execute Any,Is_Value 02bd 6803 |h | Jump_Zero 0x2c1 02be e004 | | Load 0x0,0x4 02bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c0 7801 |x | Jump 0x2c2 02c1 e407 | | Load 0x2,0x7 02c2 60c1 |` | Indirect_Literal Discrete,0x384,{0x00000000, 0x00004000} 02c3 e40f | | Load 0x2,0xf 02c4 4800 |H | Short_Literal 0x0 02c5 e003 | | Load 0x0,0x3 02c6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 02c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c8 e003 | | Load 0x0,0x3 02c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02ca 4802 |H | Short_Literal 0x2 02cb 4801 |H | Short_Literal 0x1 02cc e40b | | Load 0x2,0xb 02cd e003 | | Load 0x0,0x3 02ce 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 02cf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02d0 c407 | | Store 0x2,0x7 02d1 c40a | | Store 0x2,0xa 02d2 c408 | | Store 0x2,0x8 02d3 c409 | | Store 0x2,0x9 02d4 c405 | | Store 0x2,0x5 02d5 e405 | | Load 0x2,0x5 02d6 0f04 | | Execute_Immediate Equal,0x4 02d7 a40c | | Store_Unchecked 0x2,0xc 02d8 00db | | Load_Top At_Offset_3 02d9 688f |h | Jump_Zero 0x369 02da e008 | | Load 0x0,0x8 02db 180e | | Execute Package,Field_Execute,Field_Number 0xe 02dc 4804 |H | Short_Literal 0x4 02dd e402 | | Load 0x2,0x2 02de e003 | | Load 0x0,0x3 02df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02e0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02e1 0092 05a7 | | Action Push_String_Extended,0x5a7 ; " has" 02e3 01cc | | Execute Vector,Catenate 02e4 e408 | | Load 0x2,0x8 02e5 4975 |Iu | Short_Literal 0x175 02e6 00eb | | Load_Encached Diana_Cache 02e7 0098 | | Execute Package,Field_Read_Dynamic 02e8 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02e9 e409 | | Load 0x2,0x9 02ea 4975 |Iu | Short_Literal 0x175 02eb 00eb | | Load_Encached Diana_Cache 02ec 0098 | | Execute Package,Field_Read_Dynamic 02ed 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 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 05a8 | | Action Push_String_Extended,0x5a8 ; " IMMEDIATE dependents (" 02f9 01cc | | Execute Vector,Catenate 02fa e408 | | Load 0x2,0x8 02fb 820d | | Call 0x1,0xd 02fc e409 | | Load 0x2,0x9 02fd 820d | | Call 0x1,0xd 02fe 0273 | s | Execute Discrete,Plus 02ff 00d8 | | Load_Top At_Offset_0 0300 00e2 | | Load_Encached Integer_Cache 0301 0260 | ` | Execute Discrete,In_Type 0302 7001 |p | Jump_Nonzero 0x304 0303 0801 | | Execute_Immediate Raise,0x1 0304 00e0 | | Load_Encached Standard_Cache 0305 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0306 01cc | | Execute Vector,Catenate 0307 0092 05a9 | | Action Push_String_Extended,0x5a9 ; " specs):" 0309 01cc | | Execute Vector,Catenate 030a e009 | | Load 0x0,0x9 030b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 030c 00cf | | Action Mark_Auxiliary 030d 4801 |H | Short_Literal 0x1 030e 00db | | Load_Top At_Offset_3 030f 0264 | d | Execute Discrete,Below_Bound 0310 7029 |p) | Jump_Nonzero 0x33a 0311 e408 | | Load 0x2,0x8 0312 7002 |p | Jump_Nonzero 0x315 0313 00d2 | | Pop_Control Pop_Count_2 0314 7825 |x% | Jump 0x33a 0315 e408 | | Load 0x2,0x8 0316 0217 | | Execute Heap_Access,All_Reference 0317 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0318 a40a | | Store_Unchecked 0x2,0xa 0319 e008 | | Load 0x0,0x8 031a 180e | | Execute Package,Field_Execute,Field_Number 0xe 031b 4804 |H | Short_Literal 0x4 031c 0092 05aa | | Action Push_String_Extended,0x5aa ; " " 031e e40a | | Load 0x2,0xa 031f e003 | | Load 0x0,0x3 0320 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0321 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0322 01cc | | Execute Vector,Catenate 0323 e009 | | Load 0x0,0x9 0324 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0325 e408 | | Load 0x2,0x8 0326 0217 | | Execute Heap_Access,All_Reference 0327 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0328 a408 | | Store_Unchecked 0x2,0x8 0329 e40e | | Load 0x2,0xe 032a 0aff | | Execute_Immediate Plus,-0x1 032b c40e | | Store 0x2,0xe 032c 00d8 | | Load_Top At_Offset_0 032d 0f01 | | Execute_Immediate Equal,0x1 032e 6809 |h | Jump_Zero 0x338 032f e408 | | Load 0x2,0x8 0330 6807 |h | Jump_Zero 0x338 0331 e008 | | Load 0x0,0x8 0332 180e | | Execute Package,Field_Execute,Field_Number 0xe 0333 4804 |H | Short_Literal 0x4 0334 0092 05ab | | Action Push_String_Extended,0x5ab ; " etc..." 0336 e009 | | Load 0x0,0x9 0337 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0338 00c8 | | Action Pop_Auxiliary_Range 0339 37d7 |7 | Loop_Decreasing 0x311 033a 00c9 | | Action Pop_Auxiliary_Loop 033b 4801 |H | Short_Literal 0x1 033c 00db | | Load_Top At_Offset_3 033d 0264 | d | Execute Discrete,Below_Bound 033e 7029 |p) | Jump_Nonzero 0x368 033f e409 | | Load 0x2,0x9 0340 7002 |p | Jump_Nonzero 0x343 0341 00d2 | | Pop_Control Pop_Count_2 0342 7825 |x% | Jump 0x368 0343 e409 | | Load 0x2,0x9 0344 0217 | | Execute Heap_Access,All_Reference 0345 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0346 a40a | | Store_Unchecked 0x2,0xa 0347 e008 | | Load 0x0,0x8 0348 180e | | Execute Package,Field_Execute,Field_Number 0xe 0349 4804 |H | Short_Literal 0x4 034a 0092 05aa | | Action Push_String_Extended,0x5aa ; " " 034c e40a | | Load 0x2,0xa 034d e003 | | Load 0x0,0x3 034e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 034f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0350 01cc | | Execute Vector,Catenate 0351 e009 | | Load 0x0,0x9 0352 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0353 e409 | | Load 0x2,0x9 0354 0217 | | Execute Heap_Access,All_Reference 0355 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0356 a408 | | Store_Unchecked 0x2,0x8 0357 e40e | | Load 0x2,0xe 0358 0aff | | Execute_Immediate Plus,-0x1 0359 c40e | | Store 0x2,0xe 035a 00d8 | | Load_Top At_Offset_0 035b 0f01 | | Execute_Immediate Equal,0x1 035c 6809 |h | Jump_Zero 0x366 035d e409 | | Load 0x2,0x9 035e 6807 |h | Jump_Zero 0x366 035f e008 | | Load 0x0,0x8 0360 180e | | Execute Package,Field_Execute,Field_Number 0xe 0361 4804 |H | Short_Literal 0x4 0362 0092 05ac | | Action Push_String_Extended,0x5ac ; " etc... " 0364 e009 | | Load 0x0,0x9 0365 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0366 00c8 | | Action Pop_Auxiliary_Range 0367 37d7 |7 | Loop_Decreasing 0x33f 0368 00ce | | Action Pop_Auxiliary 0369 e404 | | Load 0x2,0x4 036a 680a |h | Jump_Zero 0x375 036b e003 | | Load 0x0,0x3 036c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036d 6016 |` | Indirect_Literal Discrete,0x384,{0x00000000, 0x00004000} 036e e005 | | Load 0x0,0x5 036f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0370 e402 | | Load 0x2,0x2 0371 e003 | | Load 0x0,0x3 0372 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0373 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0374 c405 | | Store 0x2,0x5 0375 00d8 | | Load_Top At_Offset_0 0376 4801 |H | Short_Literal 0x1 0377 4800 |H | Short_Literal 0x0 0378 e005 | | Load 0x0,0x5 0379 1818 | | Execute Package,Field_Execute,Field_Number 0x18 037a c40f | | Store 0x2,0xf 037b e403 | | Load 0x2,0x3 037c e5fd | | Load 0x2,-0x3 037d 016d | m | Execute Variant_Record,Structure_Write 037e e402 | | Load 0x2,0x2 037f c5fe | | Store 0x2,-0x2 0380 00db | | Load_Top At_Offset_3 0381 a5fc | | Store_Unchecked 0x2,-0x4 0382 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0383 0000 | | .XXX[0x1] 0384 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 0391 | | .CONST 0x0391 ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0004 | | .CONST 0x0004 ; Number of locals 038b INIT_0388: 038b 00e2 | | Load_Encached Integer_Cache 038c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 038d 00db | | Load_Top At_Offset_3 038e 0007 | | Action Break_Optional 038f 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 0391 BODY_0388: 0391 00cf | | Action Mark_Auxiliary 0392 780d |x | Jump 0x3a0 0393 00da | | Load_Top At_Offset_2 0394 0217 | | Execute Heap_Access,All_Reference 0395 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0396 8404 | | Call 0x2,0x4 0397 6803 |h | Jump_Zero 0x39b 0398 00db | | Load_Top At_Offset_3 0399 0a01 | | Execute_Immediate Plus,0x1 039a c402 | | Store 0x2,0x2 039b 00da | | Load_Top At_Offset_2 039c 0217 | | Execute Heap_Access,All_Reference 039d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 039e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 039f 00c9 | | Action Pop_Auxiliary_Loop 03a0 00da | | Load_Top At_Offset_2 03a1 77f1 |w | Jump_Nonzero 0x393 03a2 00ce | | Action Pop_Auxiliary 03a3 00da | | Load_Top At_Offset_2 03a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a5 0000 0000 | | .XXX[0x3] 03a7 0000 | | 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03c4 | | .CONST 0x03c4 ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0008 | | .CONST 0x0008 ; Number of locals 03ab INIT_03a8: 03ab e002 | | Load 0x0,0x2 03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ad 02c7 | | Declare_Variable Any 03ae 00d8 | | Load_Top At_Offset_0 03af 1c00 | | Execute_Immediate Run_Utility,0x0 03b0 e003 | | Load 0x0,0x3 03b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b2 02c7 | | Declare_Variable Any 03b3 00d8 | | Load_Top At_Offset_0 03b4 1c00 | | Execute_Immediate Run_Utility,0x0 03b5 e003 | | Load 0x0,0x3 03b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b7 e003 | | Load 0x0,0x3 03b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03ba e003 | | Load 0x0,0x3 03bb 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 03bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03bd 02c7 | | Declare_Variable Any 03be 00d8 | | Load_Top At_Offset_0 03bf 1c00 | | Execute_Immediate Run_Utility,0x0 03c0 00e2 | | Load_Encached Integer_Cache 03c1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03c2 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 03c4 BODY_03a8: 03c4 e602 | | Load 0x3,0x2 03c5 00ea | | Load_Encached Null_String_Cache 03c6 e7ff | | Load 0x3,-0x1 03c7 4800 |H | Short_Literal 0x0 03c8 e002 | | Load 0x0,0x2 03c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ca c602 | | Store 0x3,0x2 03cb 00cf | | Action Mark_Auxiliary 03cc 7809 |x | Jump 0x3d6 03cd 00da | | Load_Top At_Offset_2 03ce e602 | | Load 0x3,0x2 03cf e002 | | Load 0x0,0x2 03d0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 03d1 01db | | Execute Vector,Length 03d2 0273 | s | Execute Discrete,Plus 03d3 0a01 | | Execute_Immediate Plus,0x1 03d4 005b | [ | Store_Top Discrete,At_Offset_3 03d5 00c9 | | Action Pop_Auxiliary_Loop 03d6 e602 | | Load 0x3,0x2 03d7 e002 | | Load 0x0,0x2 03d8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03d9 6ff3 |o | Jump_Zero 0x3cd 03da 00ce | | Action Pop_Auxiliary 03db 8608 | | Call 0x3,0x8 03dc 0831 | 1 | Execute_Immediate Raise,0x31 03dd 0000 0000 | | .XXX[0x3] 03df 0000 | | 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 4607 |F | Jump_Case 0x8 03e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03e5 7806 |x | Jump 0x3ec ; case 0x1 03e6 7809 |x | Jump 0x3f0 ; case 0x2 03e7 780d |x | Jump 0x3f5 ; case 0x3 03e8 7810 |x | Jump 0x3f9 ; case 0x4 03e9 7811 |x | Jump 0x3fb ; case 0x5 03ea 7812 |x | Jump 0x3fd ; case 0x6 03eb 7815 |x | Jump 0x401 ; case 0x7 03ec 00da | | Load_Top At_Offset_2 03ed 0091 05a3 | | Action Push_String_Extended_Indexed,0x5a3 ; "CHANGE" 03ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03f0 00db | | Load_Top At_Offset_3 03f1 00db | | Load_Top At_Offset_3 03f2 00e0 | | Load_Encached Standard_Cache 03f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03f5 00da | | Load_Top At_Offset_2 03f6 00e0 | | Load_Encached Standard_Cache 03f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03f9 00db | | Load_Top At_Offset_3 03fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03fb 00db | | Load_Top At_Offset_3 03fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03fd e402 | | Load 0x2,0x2 03fe 00dc | | Load_Top At_Offset_4 03ff 0267 | g | Execute Discrete,Predecessor 0400 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0401 e402 | | Load 0x2,0x2 0402 00dc | | Load_Top At_Offset_4 0403 0268 | h | Execute Discrete,Successor 0404 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0405 0000 0000 | | .XXX[0x3] 0407 0000 | | 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 0416 | | .CONST 0x0416 ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0003 | | .CONST 0x0003 ; Number of locals 040b INIT_0408: 040b 4800 |H | Short_Literal 0x0 040c e7fe | | Load 0x3,-0x2 040d 480a |H | Short_Literal 0xa 040e e001 | | Load 0x0,0x1 040f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0410 00e2 | | Load_Encached Integer_Cache 0411 03f1 | | Declare_Variable Discrete,With_Value 0412 e7fe | | Load 0x3,-0x2 0413 01dd | | Execute Vector,First 0414 00e2 | | Load_Encached Integer_Cache 0415 03f1 | | Declare_Variable Discrete,With_Value 0416 BODY_0408: 0416 00cf | | Action Mark_Auxiliary 0417 781c |x | Jump 0x434 0418 e7ff | | Load 0x3,-0x1 0419 00da | | Load_Top At_Offset_2 041a e602 | | Load 0x3,0x2 041b 0aff | | Execute_Immediate Plus,-0x1 041c 00d8 | | Load_Top At_Offset_0 041d 00e2 | | Load_Encached Integer_Cache 041e 0260 | ` | Execute Discrete,In_Type 041f 7001 |p | Jump_Nonzero 0x421 0420 0801 | | Execute_Immediate Raise,0x1 0421 e7fe | | Load 0x3,-0x2 0422 01cf | | Execute Vector,Slice_Read 0423 01ca | | Execute Vector,Prepend 0424 e002 | | Load 0x0,0x2 0425 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0426 00da | | Load_Top At_Offset_2 0427 0a01 | | Execute_Immediate Plus,0x1 0428 005a | Z | Store_Top Discrete,At_Offset_2 0429 4800 |H | Short_Literal 0x0 042a 00da | | Load_Top At_Offset_2 042b e7fe | | Load 0x3,-0x2 042c 01dc | | Execute Vector,Last 042d e7fe | | Load 0x3,-0x2 042e 01cf | | Execute Vector,Slice_Read 042f 480a |H | Short_Literal 0xa 0430 e001 | | Load 0x0,0x1 0431 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0432 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0433 00c9 | | Action Pop_Auxiliary_Loop 0434 00da | | Load_Top At_Offset_2 0435 0c01 | | Execute_Immediate Greater_Equal,0x1 0436 77e1 |w | Jump_Nonzero 0x418 0437 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043d | = | .CONST 0x043d ; Address of begin 0439 044d | M | .CONST 0x044d ; Address of exception handler 043a 0002 | | .CONST 0x0002 ; Number of locals 043b INIT_0438: 043b 029f 050b | | Declare_Subprogram INIT_0508,For_Call 043d BODY_0438: 043d e7fe | | Load 0x3,-0x2 043e 0f02 | | Execute_Immediate Equal,0x2 043f 6803 |h | Jump_Zero 0x443 0440 00db | | Load_Top At_Offset_3 0441 0f32 | 2 | Execute_Immediate Equal,0x32 0442 7006 |p | Jump_Nonzero 0x449 0443 e7fe | | Load 0x3,-0x2 0444 0f01 | | Execute_Immediate Equal,0x1 0445 6805 |h | Jump_Zero 0x44b 0446 00db | | Load_Top At_Offset_3 0447 0f31 | 1 | Execute_Immediate Equal,0x31 0448 6802 |h | Jump_Zero 0x44b 0449 00ea | | Load_Encached Null_String_Cache 044a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 044b 8602 | | Call 0x3,0x2 044c 0831 | 1 | Execute_Immediate Raise,0x31 044d TRAP_0438: 044d 00d8 | | Load_Top At_Offset_0 044e 0107 | | Execute Exception,Get_Name 044f 4950 |IP | Short_Literal 0x150 0450 495f |I_ | Short_Literal 0x15f 0451 0262 | b | Execute Discrete,In_Range 0452 6802 |h | Jump_Zero 0x455 0453 00ea | | Load_Encached Null_String_Cache 0454 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0455 0100 | | Execute Exception,Raise 0456 0000 0000 | | .XXX[0x2] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045d | ] | .CONST 0x045d ; Address of begin 0459 046d | m | .CONST 0x046d ; Address of exception handler 045a 0002 | | .CONST 0x0002 ; Number of locals 045b INIT_0458: 045b 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call 045d BODY_0458: 045d 00db | | Load_Top At_Offset_3 045e 01dd | | Execute Vector,First 045f e7ff | | Load 0x3,-0x1 0460 01d7 | | Execute Vector,Field_Read 0461 0f2a | * | Execute_Immediate Equal,0x2a 0462 6802 |h | Jump_Zero 0x465 0463 8602 | | Call 0x3,0x2 0464 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0465 e008 | | Load 0x0,0x8 0466 180e | | Execute Package,Field_Execute,Field_Number 0xe 0467 4808 |H | Short_Literal 0x8 0468 0092 05ad | | Action Push_String_Extended,0x5ad ; "Unexpected format in diff file." 046a e009 | | Load 0x0,0x9 046b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 046c 08e2 | | Execute_Immediate Raise,0xe2 046d TRAP_0458: 046d 010e | | Execute Exception,Is_Constraint_Error 046e 680a |h | Jump_Zero 0x479 046f e008 | | Load 0x0,0x8 0470 180e | | Execute Package,Field_Execute,Field_Number 0xe 0471 4808 |H | Short_Literal 0x8 0472 0092 05ae | | Action Push_String_Extended,0x5ae ; "Unexpected diff command: " 0474 e7ff | | Load 0x3,-0x1 0475 01cc | | Execute Vector,Catenate 0476 e009 | | Load 0x0,0x9 0477 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0478 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0479 0100 | | Execute Exception,Raise 047a 0000 0000 | | .BLANK 0000[0x6] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00da | | Load_Top At_Offset_2 0484 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0485 00d8 | | Load_Top At_Offset_0 0486 0d29 | ) | Execute_Immediate Less,0x29 0487 7023 |p# | Jump_Nonzero 0x4ab 0488 00d8 | | Load_Top At_Offset_0 0489 0c42 | B | Execute_Immediate Greater_Equal,0x42 048a 701d |p | Jump_Nonzero 0x4a8 048b 0ad7 | | Execute_Immediate Plus,-0x29 048c 4618 |F | Jump_Case 0x19 048d 7822 |x" | Jump 0x4b0 ; case 0x0 048e 782b |x+ | Jump 0x4ba ; case 0x1 048f 782a |x* | Jump 0x4ba ; case 0x2 0490 781f |x | Jump 0x4b0 ; case 0x3 0491 7828 |x( | Jump 0x4ba ; case 0x4 0492 7827 |x' | Jump 0x4ba ; case 0x5 0493 7826 |x& | Jump 0x4ba ; case 0x6 0494 7825 |x% | Jump 0x4ba ; case 0x7 0495 7824 |x$ | Jump 0x4ba ; case 0x8 0496 7823 |x# | Jump 0x4ba ; case 0x9 0497 7822 |x" | Jump 0x4ba ; case 0xa 0498 7821 |x! | Jump 0x4ba ; case 0xb 0499 7820 |x | Jump 0x4ba ; case 0xc 049a 781f |x | Jump 0x4ba ; case 0xd 049b 781e |x | Jump 0x4ba ; case 0xe 049c 781d |x | Jump 0x4ba ; case 0xf 049d 781c |x | Jump 0x4ba ; case 0x10 049e 781b |x | Jump 0x4ba ; case 0x11 049f 781a |x | Jump 0x4ba ; case 0x12 04a0 7819 |x | Jump 0x4ba ; case 0x13 04a1 7804 |x | Jump 0x4a6 ; case 0x14 04a2 7803 |x | Jump 0x4a6 ; case 0x15 04a3 7816 |x | Jump 0x4ba ; case 0x16 04a4 7815 |x | Jump 0x4ba ; case 0x17 04a5 7800 |x | Jump 0x4a6 ; case 0x18 04a6 4801 |H | Short_Literal 0x1 04a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a8 0fa8 | | Execute_Immediate Equal,-0x58 04a9 700b |p | Jump_Nonzero 0x4b5 04aa 780f |x | Jump 0x4ba 04ab 4821 |H! | Short_Literal 0x21 04ac 4822 |H" | Short_Literal 0x22 04ad 0262 | b | Execute Discrete,In_Range 04ae 7001 |p | Jump_Nonzero 0x4b0 04af 780a |x | Jump 0x4ba 04b0 00da | | Load_Top At_Offset_2 04b1 00eb | | Load_Encached Diana_Cache 04b2 18ec | | Execute Package,Field_Execute,Field_Number 0xec 04b3 8404 | | Call 0x2,0x4 04b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b5 00da | | Load_Top At_Offset_2 04b6 00eb | | Load_Encached Diana_Cache 04b7 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 04b8 8404 | | Call 0x2,0x4 04b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ba 4800 |H | Short_Literal 0x0 04bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04cc | | .CONST 0x04cc ; Address of begin 04c1 04f2 | | .CONST 0x04f2 ; Address of exception handler 04c2 0004 | | .CONST 0x0004 ; Number of locals 04c3 INIT_04c0: 04c3 4801 |H | Short_Literal 0x1 04c4 e607 | | Load 0x3,0x7 04c5 00e9 | | Load_Encached String_Cache 04c6 035b | [ | Declare_Type Array,Constrained 04c7 0337 | 7 | Declare_Variable Array 04c8 00e2 | | Load_Encached Integer_Cache 04c9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04ca 00e1 | | Load_Encached Boolean_Cache 04cb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04cc BODY_04c0: 04cc e602 | | Load 0x3,0x2 04cd e002 | | Load 0x0,0x2 04ce 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04cf c602 | | Store 0x3,0x2 04d0 00cf | | Action Mark_Auxiliary 04d1 780f |x | Jump 0x4e1 04d2 00d9 | | Load_Top At_Offset_1 04d3 00db | | Load_Top At_Offset_3 04d4 e802 | | Load 0x4,0x2 04d5 e5fd | | Load 0x2,-0x3 04d6 4820 |H | Short_Literal 0x20 04d7 e602 | | Load 0x3,0x2 04d8 e002 | | Load 0x0,0x2 04d9 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04da e001 | | Load 0x0,0x1 04db 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04dc 820e | | Call 0x1,0xe 04dd 00d1 | | Pop_Control Pop_Count_1 04de c803 | | Store 0x4,0x3 04df 005a | Z | Store_Top Discrete,At_Offset_2 04e0 00c9 | | Action Pop_Auxiliary_Loop 04e1 e602 | | Load 0x3,0x2 04e2 e002 | | Load 0x0,0x2 04e3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 04e4 6fed |o | Jump_Zero 0x4d2 04e5 00ce | | Action Pop_Auxiliary 04e6 e602 | | Load 0x3,0x2 04e7 e002 | | Load 0x0,0x2 04e8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04e9 c602 | | Store 0x3,0x2 04ea 4801 |H | Short_Literal 0x1 04eb 00da | | Load_Top At_Offset_2 04ec e802 | | Load 0x4,0x2 04ed 01cf | | Execute Vector,Slice_Read 04ee 00e9 | | Load_Encached String_Cache 04ef 01c6 | | Execute Vector,Convert_To_Formal 04f0 00cb | | Action Pop_Block_With_Result 04f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f2 TRAP_04c0: 04f2 00d8 | | Load_Top At_Offset_0 04f3 0107 | | Execute Exception,Get_Name 04f4 4950 |IP | Short_Literal 0x150 04f5 495f |I_ | Short_Literal 0x15f 04f6 0262 | b | Execute Discrete,In_Range 04f7 680c |h | Jump_Zero 0x504 04f8 e602 | | Load 0x3,0x2 04f9 e002 | | Load 0x0,0x2 04fa 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04fb c602 | | Store 0x3,0x2 04fc 4801 |H | Short_Literal 0x1 04fd 00db | | Load_Top At_Offset_3 04fe e802 | | Load 0x4,0x2 04ff 01cf | | Execute Vector,Slice_Read 0500 00e9 | | Load_Encached String_Cache 0501 01c6 | | Execute Vector,Convert_To_Formal 0502 00cb | | Action Pop_Block_With_Result 0503 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0504 0100 | | Execute Exception,Raise 0505 0000 0000 | | .XXX[0x3] 0507 0000 | | 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050e | | .CONST 0x050e ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0002 | | .CONST 0x0002 ; Number of locals 050b INIT_0508: 050b e403 | | Load 0x2,0x3 050c e002 | | Load 0x0,0x2 050d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 050e BODY_0508: 050e 00d8 | | Load_Top At_Offset_0 050f 01db | | Execute Vector,Length 0510 0c01 | | Execute_Immediate Greater_Equal,0x1 0511 681b |h | Jump_Zero 0x52d 0512 00d8 | | Load_Top At_Offset_0 0513 01dd | | Execute Vector,First 0514 00d9 | | Load_Top At_Offset_1 0515 01d7 | | Execute Vector,Field_Read 0516 e7ff | | Load 0x3,-0x1 0517 027f | | Execute Discrete,Equal 0518 6814 |h | Jump_Zero 0x52d 0519 480a |H | Short_Literal 0xa 051a 00d9 | | Load_Top At_Offset_1 051b 01dd | | Execute Vector,First 051c 0a01 | | Execute_Immediate Plus,0x1 051d 00d8 | | Load_Top At_Offset_0 051e 00e2 | | Load_Encached Integer_Cache 051f 0260 | ` | Execute Discrete,In_Type 0520 7001 |p | Jump_Nonzero 0x522 0521 0801 | | Execute_Immediate Raise,0x1 0522 00da | | Load_Top At_Offset_2 0523 01dc | | Execute Vector,Last 0524 00db | | Load_Top At_Offset_3 0525 01cf | | Execute Vector,Slice_Read 0526 01cb | | Execute Vector,Append 0527 e7fe | | Load 0x3,-0x2 0528 e7ff | | Load 0x3,-0x1 0529 8405 | | Call 0x2,0x5 052a 01cc | | Execute Vector,Catenate 052b 00cb | | Action Pop_Block_With_Result 052c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 052d 00ea | | Load_Encached Null_String_Cache 052e 00cb | | Action Pop_Block_With_Result 052f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 054d | M | .CONST 0x054d ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0004 | | .CONST 0x0004 ; Number of locals 0533 INIT_0530: 0533 e7ff | | Load 0x3,-0x1 0534 01dd | | Execute Vector,First 0535 0a01 | | Execute_Immediate Plus,0x1 0536 00d8 | | Load_Top At_Offset_0 0537 00e2 | | Load_Encached Integer_Cache 0538 0260 | ` | Execute Discrete,In_Type 0539 7001 |p | Jump_Nonzero 0x53b 053a 0801 | | Execute_Immediate Raise,0x1 053b e7ff | | Load 0x3,-0x1 053c 01dd | | Execute Vector,First 053d 0a07 | | Execute_Immediate Plus,0x7 053e 00d8 | | Load_Top At_Offset_0 053f 00e2 | | Load_Encached Integer_Cache 0540 0260 | ` | Execute Discrete,In_Type 0541 7001 |p | Jump_Nonzero 0x543 0542 0801 | | Execute_Immediate Raise,0x1 0543 e7ff | | Load 0x3,-0x1 0544 01cf | | Execute Vector,Slice_Read 0545 e402 | | Load 0x2,0x2 0546 1c02 | | Execute_Immediate Run_Utility,0x2 0547 00d8 | | Load_Top At_Offset_0 0548 4831 |H1 | Short_Literal 0x31 0549 8405 | | Call 0x2,0x5 054a 00d9 | | Load_Top At_Offset_1 054b 4832 |H2 | Short_Literal 0x32 054c 8405 | | Call 0x2,0x5 054d BODY_0530: 054d e5fc | | Load 0x2,-0x4 054e 00da | | Load_Top At_Offset_2 054f 820f | | Call 0x1,0xf 0550 e5fc | | Load 0x2,-0x4 0551 00da | | Load_Top At_Offset_2 0552 820f | | Call 0x1,0xf 0553 01de | | Execute Vector,Not_Equal 0554 684d |hM | Jump_Zero 0x5a2 0555 e5fb | | Load 0x2,-0x5 0556 7024 |p$ | Jump_Nonzero 0x57b 0557 e5fd | | Load 0x2,-0x3 0558 6820 |h | Jump_Zero 0x579 0559 4801 |H | Short_Literal 0x1 055a e002 | | Load 0x0,0x2 055b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 055c 4820 |H | Short_Literal 0x20 055d 0092 05af | | Action Push_String_Extended,0x5af ; "# Update " 055f e5fe | | Load 0x2,-0x2 0560 01cc | | Execute Vector,Catenate 0561 01cb | | Execute Vector,Append 0562 e5fe | | Load 0x2,-0x2 0563 01db | | Execute Vector,Length 0564 0a0b | | Execute_Immediate Plus,0xb 0565 484c |HL | Short_Literal 0x4c 0566 00e9 | | Load_Encached String_Cache 0567 035b | [ | Declare_Type Array,Constrained 0568 0337 | 7 | Declare_Variable Array 0569 484c |HL | Short_Literal 0x4c 056a 00d9 | | Load_Top At_Offset_1 056b 01dd | | Execute Vector,First 056c 0263 | c | Execute Discrete,Above_Bound 056d 7005 |p | Jump_Nonzero 0x573 056e 4823 |H# | Short_Literal 0x23 056f 00d9 | | Load_Top At_Offset_1 0570 e806 | | Load 0x4,0x6 0571 01d6 | | Execute Vector,Field_Write 0572 3ffb |? | Loop_Increasing 0x56e 0573 01cc | | Execute Vector,Catenate 0574 e002 | | Load 0x0,0x2 0575 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0576 4801 |H | Short_Literal 0x1 0577 e002 | | Load 0x0,0x2 0578 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0579 4801 |H | Short_Literal 0x1 057a a5fb | | Store_Unchecked 0x2,-0x5 057b e5fd | | Load 0x2,-0x3 057c 6825 |h% | Jump_Zero 0x5a2 057d 4823 |H# | Short_Literal 0x23 057e e7ff | | Load 0x3,-0x1 057f 01dd | | Execute Vector,First 0580 0a01 | | Execute_Immediate Plus,0x1 0581 00d8 | | Load_Top At_Offset_0 0582 00e2 | | Load_Encached Integer_Cache 0583 0260 | ` | Execute Discrete,In_Type 0584 7001 |p | Jump_Nonzero 0x586 0585 0801 | | Execute_Immediate Raise,0x1 0586 e7ff | | Load 0x3,-0x1 0587 01dc | | Execute Vector,Last 0588 e7ff | | Load 0x3,-0x1 0589 01cf | | Execute Vector,Slice_Read 058a 01ca | | Execute Vector,Prepend 058b e002 | | Load 0x0,0x2 058c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 058d 00da | | Load_Top At_Offset_2 058e 0e01 | | Execute_Immediate Not_Equal,0x1 058f 6803 |h | Jump_Zero 0x593 0590 00d9 | | Load_Top At_Offset_1 0591 4823 |H# | Short_Literal 0x23 0592 8404 | | Call 0x2,0x4 0593 00da | | Load_Top At_Offset_2 0594 7004 |p | Jump_Nonzero 0x599 0595 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "# to be:" 0597 e002 | | Load 0x0,0x2 0598 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0599 00da | | Load_Top At_Offset_2 059a 0e02 | | Execute_Immediate Not_Equal,0x2 059b 6803 |h | Jump_Zero 0x59f 059c 00d8 | | Load_Top At_Offset_0 059d 4820 |H | Short_Literal 0x20 059e 8404 | | Call 0x2,0x4 059f 4801 |H | Short_Literal 0x1 05a0 e002 | | Load 0x0,0x2 05a1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 05a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a3 ; -------------------------------------------------------------------------------------- 05a3 ; STRING TABLE 05a3 ; -------------------------------------------------------------------------------------- 05a3 001e | | .STRTAB 0x001e->0x05b2 ; "CHANGE" 05a4 0022 | " | .STRTAB 0x0022->0x05b5 ; "INSERT" 05a5 0026 | & | .STRTAB 0x0026->0x05b8 ; "DELETE" 05a6 002a | * | .STRTAB 0x002a->0x05bb ; "# Finish " 05a7 0031 | 1 | .STRTAB 0x0031->0x05bf ; " has" 05a8 0033 | 3 | .STRTAB 0x0033->0x05c1 ; " IMMEDIATE dependents (" 05a9 0048 | H | .STRTAB 0x0048->0x05cd ; " specs):" 05aa 004e | N | .STRTAB 0x004e->0x05d1 ; " " 05ab 004f | O | .STRTAB 0x004f->0x05d2 ; " etc..." 05ac 0056 | V | .STRTAB 0x0056->0x05d7 ; " etc... " 05ad 005e | ^ | .STRTAB 0x005e->0x05dc ; "Unexpected format in diff file." 05ae 007b | { | .STRTAB 0x007b->0x05eb ; "Unexpected diff command: " 05af 0092 | | .STRTAB 0x0092->0x05f8 ; "# Update " 05b0 0099 | | .STRTAB 0x0099->0x05fc ; "# to be:" 05b1 009f | | .STREND 0x009f->0x0600 05b2 4348 414e |CHAN| .STRTAB_STRINGS 0601 0000 0000 | | .BLANK 0000[0x7] 0608 ; -------------------------------------------------------------------------------------- 0608 ; Debug Table 0608 ; -------------------------------------------------------------------------------------- 0608 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7739,0x0000,0x0001,0x0000 060e 0000 0400 | | .XXX[0x137] 0610 0001 ea00 | | 0612 0000 0010 | | 0614 0000 0a24 | $| 0616 0001 4013 | @ | 0618 67f4 0001 |g | 061a 2013 6374 | ct| 061c 0001 2013 | | 061e 6394 0000 |c | 0620 6021 f174 |`! t| 0622 0000 6021 | `!| 0624 f184 0001 | | 0626 4013 6824 |@ h$| 0628 0001 2013 | | 062a 63e4 0001 |c | 062c 4013 6834 |@ h4| 062e 0001 4013 | @ | 0630 6854 0000 |hT | 0632 6021 f1d4 |`! | 0634 0000 6021 | `!| 0636 f1f4 0000 | | 0638 6021 f204 |`! | 063a 0000 6021 | `!| 063c f214 0000 | | 063e 6021 f224 |`! $| 0640 0001 4013 | @ | 0642 6864 0000 |hd | 0644 6021 f244 |`! D| 0646 0000 6021 | `!| 0648 f254 0001 | T | 064a 4013 6874 |@ ht| 064c 0000 6021 | `!| 064e f274 0001 | t | 0650 4013 6884 |@ h | 0652 0001 4013 | @ | 0654 68c4 0000 |h | 0656 6021 f2a4 |`! | 0658 0000 6021 | `!| 065a f2b4 0000 | | 065c 6021 f2c4 |`! | 065e 0000 6021 | `!| 0660 f2d4 0000 | | 0662 6021 f2e4 |`! | 0664 0000 6021 | `!| 0666 f2f4 0000 | | 0668 6021 f304 |`! | 066a 0000 6021 | `!| 066c f314 0000 | | 066e 6021 f324 |`! $| 0670 0000 6021 | `!| 0672 f334 0000 | 4 | 0674 6021 f344 |`! D| 0676 0000 6021 | `!| 0678 f354 0000 | T | 067a 6021 f364 |`! d| 067c 0000 6021 | `!| 067e f374 0000 | t | 0680 6021 f384 |`! | 0682 0000 6021 | `!| 0684 f394 0000 | | 0686 6021 f3a4 |`! | 0688 0000 6021 | `!| 068a f3b4 0000 | | 068c 6021 f3c4 |`! | 068e 0000 6021 | `!| 0690 f3e4 0000 | | 0692 6021 f3f4 |`! | 0694 0000 6021 | `!| 0696 f404 0001 | | 0698 2013 6464 | dd| 069a 0000 6021 | `!| 069c f424 0000 | $ | 069e 6021 f434 |`! 4| 06a0 0000 6021 | `!| 06a2 f444 0000 | D | 06a4 6021 f454 |`! T| 06a6 0000 6021 | `!| 06a8 f464 0000 | d | 06aa 6021 f474 |`! t| 06ac 0000 6021 | `!| 06ae f484 0000 | | 06b0 6021 f494 |`! | 06b2 0000 6021 | `!| 06b4 f4a4 0000 | | 06b6 6021 f4b4 |`! | 06b8 0000 6021 | `!| 06ba f4c4 0001 | | 06bc 000c b144 | D| 06be 0000 6021 | `!| 06c0 f4e4 0001 | | 06c2 000c b154 | T| 06c4 0001 000c | | 06c6 ca14 0001 | | 06c8 000c cad4 | | 06ca 0001 000c | | 06cc caf4 0000 | | 06ce 6021 f574 |`! t| 06d0 0000 6021 | `!| 06d2 f584 0001 | | 06d4 000c cbe4 | | 06d6 0000 6021 | `!| 06d8 f5a4 0000 | | 06da 6021 f5b4 |`! | 06dc 0000 6021 | `!| 06de f5c4 0000 | | 06e0 6021 f5d4 |`! | 06e2 0000 6021 | `!| 06e4 f5e4 0000 | | 06e6 6021 f5f4 |`! | 06e8 0000 6021 | `!| 06ea f604 0000 | | 06ec 6021 f614 |`! | 06ee 0000 6021 | `!| 06f0 f624 0000 | $ | 06f2 6021 f634 |`! 4| 06f4 0000 6021 | `!| 06f6 f644 0000 | D | 06f8 6021 f654 |`! T| 06fa 0000 6021 | `!| 06fc f664 0001 | d | 06fe 4013 68d4 |@ h | 0700 0000 6021 | `!| 0702 f684 0000 | | 0704 6021 f694 |`! | 0706 0000 6021 | `!| 0708 f6b4 0000 | | 070a 6021 f6c4 |`! | 070c 0000 6021 | `!| 070e f6d4 0000 | | 0710 6021 f6e4 |`! | 0712 0000 6021 | `!| 0714 f6f4 0000 | | 0716 6021 f704 |`! | 0718 0000 6021 | `!| 071a f714 0000 | | 071c 6021 f724 |`! $| 071e 0000 6021 | `!| 0720 f734 0000 | 4 | 0722 6021 f744 |`! D| 0724 0000 6021 | `!| 0726 f754 0000 | T | 0728 6021 f764 |`! d| 072a 0000 6021 | `!| 072c f774 0000 | t | 072e c00a 1174 | t| 0730 0000 6021 | `!| 0732 f794 0000 | | 0734 6021 f7a4 |`! | 0736 0001 2013 | | 0738 6484 0001 |d | 073a 000c ccf4 | | 073c 0001 000c | | 073e cd74 0001 | t | 0740 4013 68f4 |@ h | 0742 0001 4013 | @ | 0744 6910 |i | 0745 0000 0000 | | .BLANK 0000[0xbb]