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