|
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]