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