|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦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 0aa8 | | .CONST 0x0aa8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01df | | .CONST 0x01df ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 006e | n | .CONST 0x006e ; Number of locals
000b INIT_0008:
000b 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
000d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
000f 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0011 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0013 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
0015 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0017 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0019 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
001b 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
001d 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
001f 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
0021 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
0023 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
0025 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
0027 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
0029 00bf | | Action Accept_Activation
002a 0092 0957 | W| Action Push_String_Extended,0x957 ; "Illegal item type"
002c 0092 0958 | X| Action Push_String_Extended,0x958 ; "No code generated for this statement"
002e 0092 0959 | Y| Action Push_String_Extended,0x959 ; "Item requires unimplemented facility"
0030 0092 095a | Z| Action Push_String_Extended,0x95a ; "Exception raised:"
0032 0092 095b | [| Action Push_String_Extended,0x95b ; "Task unknown or terminated"
0034 0092 095c | \| Action Push_String_Extended,0x95c ; "Too many action items"
0036 0092 095d | ]| Action Push_String_Extended,0x95d ; "Return stepping illegal from task body"
0038 0092 095e | ^| Action Push_String_Extended,0x95e ; "Illegal Pc value"
003a 0093 0000 | | push_full_address 0x0
003c 61db |a | Indirect_Literal Discrete,0x218,{0x80000000, 0x00010000}
003d 0273 | s | Execute Discrete,Plus
003e 0007 | | Action Break_Optional
003f 0093 0000 | | push_full_address 0x0
0041 61d2 |a | Indirect_Literal Discrete,0x214,{0x80000000, 0x00020000}
0042 0273 | s | Execute Discrete,Plus
0043 0007 | | Action Break_Optional
0044 0093 0000 | | push_full_address 0x0
0046 61c9 |a | Indirect_Literal Discrete,0x210,{0x80000000, 0x00030000}
0047 0273 | s | Execute Discrete,Plus
0048 0007 | | Action Break_Optional
0049 0093 0000 | | push_full_address 0x0
004b 61c0 |a | Indirect_Literal Discrete,0x20c,{0x80000000, 0x00040000}
004c 0273 | s | Execute Discrete,Plus
004d 0007 | | Action Break_Optional
004e e002 | | Load 0x0,0x2
004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0050 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0051 e003 | | Load 0x0,0x3
0052 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0053 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0054 e003 | | Load 0x0,0x3
0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0056 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0057 8004 | | Call 0x0,0x4
0058 e005 | | Load 0x0,0x5
0059 03f1 | | Declare_Variable Discrete,With_Value
005a 8006 | | Call 0x0,0x6
005b e005 | | Load 0x0,0x5
005c 03f1 | | Declare_Variable Discrete,With_Value
005d e007 | | Load 0x0,0x7
005e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
005f e008 | | Load 0x0,0x8
0060 0322 | " | Declare_Variable Record
0061 00d8 | | Load_Top At_Offset_0
0062 1c01 | | Execute_Immediate Run_Utility,0x1
0063 e009 | | Load 0x0,0x9
0064 00d9 | | Load_Top At_Offset_1
0065 017d | } | Execute Record,Structure_Write
0066 e003 | | Load 0x0,0x3
0067 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0068 02c7 | | Declare_Variable Any
0069 e00a | | Load 0x0,0xa
006a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
006b a22f | / | Store_Unchecked 0x1,0x2f
006c e00b | | Load 0x0,0xb
006d 0322 | " | Declare_Variable Record
006e e00c | | Load 0x0,0xc
006f 00d9 | | Load_Top At_Offset_1
0070 017d | } | Execute Record,Structure_Write
0071 00e2 | | Load_Encached Integer_Cache
0072 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0073 4800 |H | Short_Literal 0x0
0074 4804 |H | Short_Literal 0x4
0075 e001 | | Load 0x0,0x1
0076 01d7 | | Execute Vector,Field_Read
0077 02a0 | | Declare_Subprogram Null_Subprogram
0078 038e | | Declare_Type Package,Defined
0079 e001 | | Load 0x0,0x1
007a 4803 |H | Short_Literal 0x3
007b e001 | | Load 0x0,0x1
007c 01d7 | | Execute Vector,Field_Read
007d e002 | | Load 0x0,0x2
007e 4803 |H | Short_Literal 0x3
007f e232 | 2 | Load 0x1,0x32
0080 020e | | Execute Module,Augment_Imports
0081 0387 | | Declare_Variable Package
0082 4800 |H | Short_Literal 0x0
0083 4802 |H | Short_Literal 0x2
0084 e001 | | Load 0x0,0x1
0085 01d7 | | Execute Vector,Field_Read
0086 02a0 | | Declare_Subprogram Null_Subprogram
0087 038e | | Declare_Type Package,Defined
0088 e001 | | Load 0x0,0x1
0089 4801 |H | Short_Literal 0x1
008a e001 | | Load 0x0,0x1
008b 01d7 | | Execute Vector,Field_Read
008c 4802 |H | Short_Literal 0x2
008d 00db | | Load_Top At_Offset_3
008e 020e | | Execute Module,Augment_Imports
008f 0387 | | Declare_Variable Package
0090 00e1 | | Load_Encached Boolean_Cache
0091 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0092 e228 | ( | Load 0x1,0x28
0093 0007 | | Action Break_Optional
0094 00e1 | | Load_Encached Boolean_Cache
0095 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0096 00e1 | | Load_Encached Boolean_Cache
0097 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0098 00e1 | | Load_Encached Boolean_Cache
0099 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009a 00e1 | | Load_Encached Boolean_Cache
009b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009c 800d | | Call 0x0,0xd
009d e00e | | Load 0x0,0xe
009e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
009f 03f1 | | Declare_Variable Discrete,With_Value
00a0 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
00a2 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
00a4 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
00a6 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
00a8 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
00aa 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
00ac 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call
00ae a00f | | Store_Unchecked 0x0,0xf
00af 00c6 | | Action Check_Subprogram_Elaborated
00b0 00e2 | | Load_Encached Integer_Cache
00b1 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
00b2 4800 |H | Short_Literal 0x0
00b3 0093 0000 | | push_full_address 0x0
00b5 6152 |aR | Indirect_Literal Discrete,0x208,{0x80000000, 0x00040000}
00b6 0273 | s | Execute Discrete,Plus
00b7 e010 | | Load 0x0,0x10
00b8 0273 | s | Execute Discrete,Plus
00b9 e011 | | Load 0x0,0x11
00ba 0273 | s | Execute Discrete,Plus
00bb 4800 |H | Short_Literal 0x0
00bc 0007 | | Action Break_Optional
00bd 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call
00bf 029d 058b | | Declare_Subprogram INIT_0588,For_Outer_Call
00c1 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
00c3 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
00c5 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call
00c7 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00c8 00c7 | | Action Elaborate_Subprogram
00c9 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call
00cb 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call
00cd 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call
00cf 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call
00d1 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call
00d3 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call
00d5 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call
00d7 029d 079b | | Declare_Subprogram INIT_0798,For_Outer_Call
00d9 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call
00db 029d 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call
00dd 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call
00df 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call
00e1 a00f | | Store_Unchecked 0x0,0xf
00e2 00c6 | | Action Check_Subprogram_Elaborated
00e3 e012 | | Load 0x0,0x12
00e4 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
00e5 4800 |H | Short_Literal 0x0
00e6 0093 0000 | | push_full_address 0x0
00e8 611b |a | Indirect_Literal Discrete,0x204,{0x80000000, 0x00030000}
00e9 0273 | s | Execute Discrete,Plus
00ea e010 | | Load 0x0,0x10
00eb 0273 | s | Execute Discrete,Plus
00ec e013 | | Load 0x0,0x13
00ed 0273 | s | Execute Discrete,Plus
00ee 4800 |H | Short_Literal 0x0
00ef 0007 | | Action Break_Optional
00f0 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call
00f2 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call
00f4 a014 | | Store_Unchecked 0x0,0x14
00f5 00c6 | | Action Check_Subprogram_Elaborated
00f6 00e2 | | Load_Encached Integer_Cache
00f7 e012 | | Load 0x0,0x12
00f8 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
00f9 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
00fa 0093 0000 | | push_full_address 0x0
00fc 6103 |a | Indirect_Literal Discrete,0x200,{0x80000000, 0x00020000}
00fd 0273 | s | Execute Discrete,Plus
00fe e010 | | Load 0x0,0x10
00ff 0273 | s | Execute Discrete,Plus
0100 e015 | | Load 0x0,0x15
0101 0273 | s | Execute Discrete,Plus
0102 4800 |H | Short_Literal 0x0
0103 0007 | | Action Break_Optional
0104 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0105 00c7 | | Action Elaborate_Subprogram
0106 029d 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call
0108 029d 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call
010a 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call
010c a014 | | Store_Unchecked 0x0,0x14
010d 00c6 | | Action Check_Subprogram_Elaborated
010e 00e2 | | Load_Encached Integer_Cache
010f e002 | | Load 0x0,0x2
0110 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0111 1d66 | f | Execute_Immediate Reference_Lex_1,0x66
0112 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
0113 0093 0000 | | push_full_address 0x0
0115 60e6 |` | Indirect_Literal Discrete,0x1fc,{0x80000000, 0x00010000}
0116 0273 | s | Execute Discrete,Plus
0117 e010 | | Load 0x0,0x10
0118 0273 | s | Execute Discrete,Plus
0119 e016 | | Load 0x0,0x16
011a 0273 | s | Execute Discrete,Plus
011b 4800 |H | Short_Literal 0x0
011c 0007 | | Action Break_Optional
011d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
011e 00c7 | | Action Elaborate_Subprogram
011f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0120 00c7 | | Action Elaborate_Subprogram
0121 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0122 00c7 | | Action Elaborate_Subprogram
0123 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0124 00c7 | | Action Elaborate_Subprogram
0125 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0126 00c7 | | Action Elaborate_Subprogram
0127 029d 0903 | | Declare_Subprogram INIT_0900,For_Outer_Call
0129 1d14 | | Execute_Immediate Reference_Lex_1,0x14
012a 00c7 | | Action Elaborate_Subprogram
012b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
012c 00c7 | | Action Elaborate_Subprogram
012d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
012e 00c7 | | Action Elaborate_Subprogram
012f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0130 00c7 | | Action Elaborate_Subprogram
0131 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0132 00c7 | | Action Elaborate_Subprogram
0133 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0134 00c7 | | Action Elaborate_Subprogram
0135 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0136 00c7 | | Action Elaborate_Subprogram
0137 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0138 00c7 | | Action Elaborate_Subprogram
0139 a00f | | Store_Unchecked 0x0,0xf
013a e017 | | Load 0x0,0x17
013b e010 | | Load 0x0,0x10
013c e018 | | Load 0x0,0x18
013d e019 | | Load 0x0,0x19
013e e01a | | Load 0x0,0x1a
013f a014 | | Store_Unchecked 0x0,0x14
0140 e01b | | Load 0x0,0x1b
0141 e01c | | Load 0x0,0x1c
0142 e01d | | Load 0x0,0x1d
0143 e01e | | Load 0x0,0x1e
0144 e01f | | Load 0x0,0x1f
0145 e00b | | Load 0x0,0xb
0146 e008 | | Load 0x0,0x8
0147 e003 | | Load 0x0,0x3
0148 a020 | | Store_Unchecked 0x0,0x20
0149 e021 | ! | Load 0x0,0x21
014a e022 | " | Load 0x0,0x22
014b a023 | # | Store_Unchecked 0x0,0x23
014c a024 | $ | Store_Unchecked 0x0,0x24
014d a025 | % | Store_Unchecked 0x0,0x25
014e a026 | & | Store_Unchecked 0x0,0x26
014f a027 | ' | Store_Unchecked 0x0,0x27
0150 a028 | ( | Store_Unchecked 0x0,0x28
0151 e029 | ) | Load 0x0,0x29
0152 e007 | | Load 0x0,0x7
0153 a02a | * | Store_Unchecked 0x0,0x2a
0154 a02b | + | Store_Unchecked 0x0,0x2b
0155 a02c | , | Store_Unchecked 0x0,0x2c
0156 a02d | - | Store_Unchecked 0x0,0x2d
0157 a02e | . | Store_Unchecked 0x0,0x2e
0158 a02f | / | Store_Unchecked 0x0,0x2f
0159 a030 | 0 | Store_Unchecked 0x0,0x30
015a e031 | 1 | Load 0x0,0x31
015b a032 | 2 | Store_Unchecked 0x0,0x32
015c a033 | 3 | Store_Unchecked 0x0,0x33
015d 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
015e e034 | 4 | Load 0x0,0x34
015f e00e | | Load 0x0,0xe
0160 4827 |H' | Short_Literal 0x27
0161 e233 | 3 | Load 0x1,0x33
0162 020e | | Execute Module,Augment_Imports
0163 e233 | 3 | Load 0x1,0x33
0164 020f | | Execute Module,Activate
0165 e003 | | Load 0x0,0x3
0166 e008 | | Load 0x0,0x8
0167 e00b | | Load 0x0,0xb
0168 e007 | | Load 0x0,0x7
0169 e035 | 5 | Load 0x0,0x35
016a e005 | | Load 0x0,0x5
016b a02e | . | Store_Unchecked 0x0,0x2e
016c e01e | | Load 0x0,0x1e
016d a036 | 6 | Store_Unchecked 0x0,0x36
016e a037 | 7 | Store_Unchecked 0x0,0x37
016f a038 | 8 | Store_Unchecked 0x0,0x38
0170 a039 | 9 | Store_Unchecked 0x0,0x39
0171 e00c | | Load 0x0,0xc
0172 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0173 e03a | : | Load 0x0,0x3a
0174 a00f | | Store_Unchecked 0x0,0xf
0175 e010 | | Load 0x0,0x10
0176 e03b | ; | Load 0x0,0x3b
0177 a014 | | Store_Unchecked 0x0,0x14
0178 e03c | < | Load 0x0,0x3c
0179 e03d | = | Load 0x0,0x3d
017a e03e | > | Load 0x0,0x3e
017b e03f | ? | Load 0x0,0x3f
017c e040 | @ | Load 0x0,0x40
017d e00a | | Load 0x0,0xa
017e a041 | A | Store_Unchecked 0x0,0x41
017f 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0180 a004 | | Store_Unchecked 0x0,0x4
0181 a042 | B | Store_Unchecked 0x0,0x42
0182 a043 | C | Store_Unchecked 0x0,0x43
0183 a044 | D | Store_Unchecked 0x0,0x44
0184 a045 | E | Store_Unchecked 0x0,0x45
0185 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0186 e00e | | Load 0x0,0xe
0187 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0188 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0189 e046 | F | Load 0x0,0x46
018a e047 | G | Load 0x0,0x47
018b a048 | H | Store_Unchecked 0x0,0x48
018c a049 | I | Store_Unchecked 0x0,0x49
018d 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
018e 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
018f a04a | J | Store_Unchecked 0x0,0x4a
0190 a00d | | Store_Unchecked 0x0,0xd
0191 e04b | K | Load 0x0,0x4b
0192 e04c | L | Load 0x0,0x4c
0193 a04d | M | Store_Unchecked 0x0,0x4d
0194 a04e | N | Store_Unchecked 0x0,0x4e
0195 a04f | O | Store_Unchecked 0x0,0x4f
0196 a050 | P | Store_Unchecked 0x0,0x50
0197 a051 | Q | Store_Unchecked 0x0,0x51
0198 e052 | R | Load 0x0,0x52
0199 a053 | S | Store_Unchecked 0x0,0x53
019a e054 | T | Load 0x0,0x54
019b e034 | 4 | Load 0x0,0x34
019c 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
019d a055 | U | Store_Unchecked 0x0,0x55
019e a056 | V | Store_Unchecked 0x0,0x56
019f 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
01a0 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
01a1 a057 | W | Store_Unchecked 0x0,0x57
01a2 e058 | X | Load 0x0,0x58
01a3 e059 | Y | Load 0x0,0x59
01a4 e05a | Z | Load 0x0,0x5a
01a5 e05b | [ | Load 0x0,0x5b
01a6 e05c | \ | Load 0x0,0x5c
01a7 e05d | ] | Load 0x0,0x5d
01a8 e05e | ^ | Load 0x0,0x5e
01a9 a05f | _ | Store_Unchecked 0x0,0x5f
01aa a060 | ` | Store_Unchecked 0x0,0x60
01ab 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
01ac 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
01ad 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
01ae a061 | a | Store_Unchecked 0x0,0x61
01af e062 | b | Load 0x0,0x62
01b0 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
01b1 a063 | c | Store_Unchecked 0x0,0x63
01b2 a064 | d | Store_Unchecked 0x0,0x64
01b3 a065 | e | Store_Unchecked 0x0,0x65
01b4 a066 | f | Store_Unchecked 0x0,0x66
01b5 a067 | g | Store_Unchecked 0x0,0x67
01b6 a068 | h | Store_Unchecked 0x0,0x68
01b7 a069 | i | Store_Unchecked 0x0,0x69
01b8 a06a | j | Store_Unchecked 0x0,0x6a
01b9 a06b | k | Store_Unchecked 0x0,0x6b
01ba a06c | l | Store_Unchecked 0x0,0x6c
01bb 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
01bc e06d | m | Load 0x0,0x6d
01bd e22e | . | Load 0x1,0x2e
01be a06e | n | Store_Unchecked 0x0,0x6e
01bf a06f | o | Store_Unchecked 0x0,0x6f
01c0 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
01c1 a070 | p | Store_Unchecked 0x0,0x70
01c2 e230 | 0 | Load 0x1,0x30
01c3 a071 | q | Store_Unchecked 0x0,0x71
01c4 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
01c5 a072 | r | Store_Unchecked 0x0,0x72
01c6 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
01c7 a073 | s | Store_Unchecked 0x0,0x73
01c8 a074 | t | Store_Unchecked 0x0,0x74
01c9 a075 | u | Store_Unchecked 0x0,0x75
01ca a076 | v | Store_Unchecked 0x0,0x76
01cb 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
01cc a077 | w | Store_Unchecked 0x0,0x77
01cd a025 | % | Store_Unchecked 0x0,0x25
01ce a078 | x | Store_Unchecked 0x0,0x78
01cf a079 | y | Store_Unchecked 0x0,0x79
01d0 a07a | z | Store_Unchecked 0x0,0x7a
01d1 e0a0 | | Load 0x0,0xa0
01d2 a0a1 | | Store_Unchecked 0x0,0xa1
01d3 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
01d4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
01d5 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
01d6 a0a2 | | Store_Unchecked 0x0,0xa2
01d7 e0a3 | | Load 0x0,0xa3
01d8 a02b | + | Store_Unchecked 0x0,0x2b
01d9 a0a4 | | Store_Unchecked 0x0,0xa4
01da 4875 |Hu | Short_Literal 0x75
01db e232 | 2 | Load 0x1,0x32
01dc 020e | | Execute Module,Augment_Imports
01dd e232 | 2 | Load 0x1,0x32
01de 020f | | Execute Module,Activate
01df BODY_0008:
01df e232 | 2 | Load 0x1,0x32
01e0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01e1 e233 | 3 | Load 0x1,0x33
01e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01e3 e232 | 2 | Load 0x1,0x32
01e4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01e5 00bc | | Action Signal_Activated
01e6 00bb | | Action Signal_Completion
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4800 |H | Short_Literal 0x0
01ec a236 | 6 | Store_Unchecked 0x1,0x36
01ed 4800 |H | Short_Literal 0x0
01ee a234 | 4 | Store_Unchecked 0x1,0x34
01ef 4800 |H | Short_Literal 0x0
01f0 a237 | 7 | Store_Unchecked 0x1,0x37
01f1 4800 |H | Short_Literal 0x0
01f2 a238 | 8 | Store_Unchecked 0x1,0x38
01f3 4800 |H | Short_Literal 0x0
01f4 a239 | 9 | Store_Unchecked 0x1,0x39
01f5 e232 | 2 | Load 0x1,0x32
01f6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01f7 807b | { | Call 0x0,0x7b
01f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f9 0000 0000 | | .XXX[0x3]
01fb 0000 | |
01fc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0200 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0204 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0208 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
020c 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0210 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0214 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0218 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022a | * | .CONST 0x022a ; Address of begin
0221 02ea | | .CONST 0x02ea ; Address of exception handler
0222 0003 | | .CONST 0x0003 ; Number of locals
0223 INIT_0220:
0223 e00e | | Load 0x0,0xe
0224 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0225 e012 | | Load 0x0,0x12
0226 0322 | " | Declare_Variable Record
0227 e5ff | | Load 0x2,-0x1
0228 00d9 | | Load_Top At_Offset_1
0229 017d | } | Execute Record,Structure_Write
022a BODY_0220:
022a e5ff | | Load 0x2,-0x1
022b 807c | | | Call 0x0,0x7c
022c 0f04 | | Execute_Immediate Equal,0x4
022d 6803 |h | Jump_Zero 0x231
022e 4801 |H | Short_Literal 0x1
022f a238 | 8 | Store_Unchecked 0x1,0x38
0230 78aa |x | Jump 0x2db
0231 e5ff | | Load 0x2,-0x1
0232 807c | | | Call 0x0,0x7c
0233 0f05 | | Execute_Immediate Equal,0x5
0234 6803 |h | Jump_Zero 0x238
0235 4801 |H | Short_Literal 0x1
0236 a239 | 9 | Store_Unchecked 0x1,0x39
0237 78a3 |x | Jump 0x2db
0238 e5ff | | Load 0x2,-0x1
0239 807d | } | Call 0x0,0x7d
023a 8039 | 9 | Call 0x0,0x39
023b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
023c e5ff | | Load 0x2,-0x1
023d 8255 | U | Call 0x1,0x55
023e 00d9 | | Load_Top At_Offset_1
023f e229 | ) | Load 0x1,0x29
0240 027f | | Execute Discrete,Equal
0241 6891 |h | Jump_Zero 0x2d3
0242 e5ff | | Load 0x2,-0x1
0243 824d | M | Call 0x1,0x4d
0244 6805 |h | Jump_Zero 0x24a
0245 e5ff | | Load 0x2,-0x1
0246 807c | | | Call 0x0,0x7c
0247 e232 | 2 | Load 0x1,0x32
0248 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0249 7891 |x | Jump 0x2db
024a e5ff | | Load 0x2,-0x1
024b 824e | N | Call 0x1,0x4e
024c 6802 |h | Jump_Zero 0x24f
024d e224 | $ | Load 0x1,0x24
024e 0257 | W | Execute Discrete,Raise
024f e5ff | | Load 0x2,-0x1
0250 824f | O | Call 0x1,0x4f
0251 6833 |h3 | Jump_Zero 0x285
0252 e5ff | | Load 0x2,-0x1
0253 807e | ~ | Call 0x0,0x7e
0254 807f | | Call 0x0,0x7f
0255 681a |h | Jump_Zero 0x270
0256 e5ff | | Load 0x2,-0x1
0257 807c | | | Call 0x0,0x7c
0258 e5ff | | Load 0x2,-0x1
0259 8080 | | Call 0x0,0x80
025a 0f00 | | Execute_Immediate Equal,0x0
025b e5ff | | Load 0x2,-0x1
025c 8081 | | Call 0x0,0x81
025d 00d8 | | Load_Top At_Offset_0
025e 00e4 | | Load_Encached Positive_Cache
025f 0260 | ` | Execute Discrete,In_Type
0260 7001 |p | Jump_Nonzero 0x262
0261 0801 | | Execute_Immediate Raise,0x1
0262 e5ff | | Load 0x2,-0x1
0263 8082 | | Call 0x0,0x82
0264 e5ff | | Load 0x2,-0x1
0265 8083 | | Call 0x0,0x83
0266 e5ff | | Load 0x2,-0x1
0267 8084 | | Call 0x0,0x84
0268 e5ff | | Load 0x2,-0x1
0269 8085 | | Call 0x0,0x85
026a 8086 | | Call 0x0,0x86
026b 8049 | I | Call 0x0,0x49
026c e402 | | Load 0x2,0x2
026d e232 | 2 | Load 0x1,0x32
026e 180f | | Execute Package,Field_Execute,Field_Number 0xf
026f 786b |xk | Jump 0x2db
0270 e5ff | | Load 0x2,-0x1
0271 807c | | | Call 0x0,0x7c
0272 e5ff | | Load 0x2,-0x1
0273 8080 | | Call 0x0,0x80
0274 0f00 | | Execute_Immediate Equal,0x0
0275 e5ff | | Load 0x2,-0x1
0276 8081 | | Call 0x0,0x81
0277 00d8 | | Load_Top At_Offset_0
0278 00e4 | | Load_Encached Positive_Cache
0279 0260 | ` | Execute Discrete,In_Type
027a 7001 |p | Jump_Nonzero 0x27c
027b 0801 | | Execute_Immediate Raise,0x1
027c e5ff | | Load 0x2,-0x1
027d 8082 | | Call 0x0,0x82
027e e5ff | | Load 0x2,-0x1
027f 807e | ~ | Call 0x0,0x7e
0280 8037 | 7 | Call 0x0,0x37
0281 e402 | | Load 0x2,0x2
0282 e232 | 2 | Load 0x1,0x32
0283 180f | | Execute Package,Field_Execute,Field_Number 0xf
0284 7856 |xV | Jump 0x2db
0285 e5ff | | Load 0x2,-0x1
0286 8254 | T | Call 0x1,0x54
0287 6812 |h | Jump_Zero 0x29a
0288 e5ff | | Load 0x2,-0x1
0289 807c | | | Call 0x0,0x7c
028a e5ff | | Load 0x2,-0x1
028b 8087 | | Call 0x0,0x87
028c e5ff | | Load 0x2,-0x1
028d 8088 | | Call 0x0,0x88
028e e5ff | | Load 0x2,-0x1
028f 8083 | | Call 0x0,0x83
0290 e5ff | | Load 0x2,-0x1
0291 8084 | | Call 0x0,0x84
0292 e5ff | | Load 0x2,-0x1
0293 8082 | | Call 0x0,0x82
0294 e5ff | | Load 0x2,-0x1
0295 8089 | | Call 0x0,0x89
0296 e402 | | Load 0x2,0x2
0297 e232 | 2 | Load 0x1,0x32
0298 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0299 7841 |xA | Jump 0x2db
029a e5ff | | Load 0x2,-0x1
029b 8250 | P | Call 0x1,0x50
029c 680a |h | Jump_Zero 0x2a7
029d 00d8 | | Load_Top At_Offset_0
029e e231 | 1 | Load 0x1,0x31
029f e25f | _ | Load 0x1,0x5f
02a0 e260 | ` | Load 0x1,0x60
02a1 1d61 | a | Execute_Immediate Reference_Lex_1,0x61
02a2 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
02a3 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
02a4 8014 | | Call 0x0,0x14
02a5 00d1 | | Pop_Control Pop_Count_1
02a6 7834 |x4 | Jump 0x2db
02a7 e5ff | | Load 0x2,-0x1
02a8 8251 | Q | Call 0x1,0x51
02a9 6811 |h | Jump_Zero 0x2bb
02aa e5ff | | Load 0x2,-0x1
02ab 807c | | | Call 0x0,0x7c
02ac e5ff | | Load 0x2,-0x1
02ad 8085 | | Call 0x0,0x85
02ae 8086 | | Call 0x0,0x86
02af e5ff | | Load 0x2,-0x1
02b0 8083 | | Call 0x0,0x83
02b1 e5ff | | Load 0x2,-0x1
02b2 8084 | | Call 0x0,0x84
02b3 e5ff | | Load 0x2,-0x1
02b4 8082 | | Call 0x0,0x82
02b5 e5ff | | Load 0x2,-0x1
02b6 808a | | Call 0x0,0x8a
02b7 e402 | | Load 0x2,0x2
02b8 e232 | 2 | Load 0x1,0x32
02b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02ba 7820 |x | Jump 0x2db
02bb e5ff | | Load 0x2,-0x1
02bc 8252 | R | Call 0x1,0x52
02bd 7003 |p | Jump_Nonzero 0x2c1
02be e5ff | | Load 0x2,-0x1
02bf 8253 | S | Call 0x1,0x53
02c0 6810 |h | Jump_Zero 0x2d1
02c1 e5ff | | Load 0x2,-0x1
02c2 807c | | | Call 0x0,0x7c
02c3 e5ff | | Load 0x2,-0x1
02c4 8087 | | Call 0x0,0x87
02c5 e5ff | | Load 0x2,-0x1
02c6 8083 | | Call 0x0,0x83
02c7 e5ff | | Load 0x2,-0x1
02c8 8084 | | Call 0x0,0x84
02c9 e5ff | | Load 0x2,-0x1
02ca 8082 | | Call 0x0,0x82
02cb e5ff | | Load 0x2,-0x1
02cc 8089 | | Call 0x0,0x89
02cd e402 | | Load 0x2,0x2
02ce e232 | 2 | Load 0x1,0x32
02cf 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02d0 780a |x | Jump 0x2db
02d1 e226 | & | Load 0x1,0x26
02d2 0257 | W | Execute Discrete,Raise
02d3 00d8 | | Load_Top At_Offset_0
02d4 00da | | Load_Top At_Offset_2
02d5 e258 | X | Load 0x1,0x58
02d6 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
02d7 e25a | Z | Load 0x1,0x5a
02d8 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
02d9 800f | | Call 0x0,0xf
02da 00d1 | | Pop_Control Pop_Count_1
02db e5fe | | Load 0x2,-0x2
02dc e01e | | Load 0x0,0x1e
02dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02de c5fe | | Store 0x2,-0x2
02df e5fe | | Load 0x2,-0x2
02e0 0120 | | Execute Any,Is_Value
02e1 6803 |h | Jump_Zero 0x2e5
02e2 e01e | | Load 0x0,0x1e
02e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e4 7801 |x | Jump 0x2e6
02e5 e5fe | | Load 0x2,-0x2
02e6 e5ff | | Load 0x2,-0x1
02e7 808b | | Call 0x0,0x8b
02e8 c5fe | | Store 0x2,-0x2
02e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ea TRAP_0220:
02ea e224 | $ | Load 0x1,0x24
02eb 010f | | Execute Exception,Equal
02ec 6806 |h | Jump_Zero 0x2f3
02ed e5fe | | Load 0x2,-0x2
02ee e21c | | Load 0x1,0x1c
02ef e01e | | Load 0x0,0x1e
02f0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f1 c5fe | | Store 0x2,-0x2
02f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f3 e227 | ' | Load 0x1,0x27
02f4 010f | | Execute Exception,Equal
02f5 6806 |h | Jump_Zero 0x2fc
02f6 e5fe | | Load 0x2,-0x2
02f7 e21e | | Load 0x1,0x1e
02f8 e01e | | Load 0x0,0x1e
02f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02fa c5fe | | Store 0x2,-0x2
02fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fc e052 | R | Load 0x0,0x52
02fd 010f | | Execute Exception,Equal
02fe 6806 |h | Jump_Zero 0x305
02ff e5fe | | Load 0x2,-0x2
0300 e220 | | Load 0x1,0x20
0301 e01e | | Load 0x0,0x1e
0302 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0303 c5fe | | Store 0x2,-0x2
0304 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0305 e232 | 2 | Load 0x1,0x32
0306 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0307 010f | | Execute Exception,Equal
0308 7004 |p | Jump_Nonzero 0x30d
0309 e232 | 2 | Load 0x1,0x32
030a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
030b 010f | | Execute Exception,Equal
030c 6806 |h | Jump_Zero 0x313
030d e5fe | | Load 0x2,-0x2
030e e221 | ! | Load 0x1,0x21
030f e01e | | Load 0x0,0x1e
0310 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0311 c5fe | | Store 0x2,-0x2
0312 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0313 e225 | % | Load 0x1,0x25
0314 010f | | Execute Exception,Equal
0315 6806 |h | Jump_Zero 0x31c
0316 e5fe | | Load 0x2,-0x2
0317 e222 | " | Load 0x1,0x22
0318 e01e | | Load 0x0,0x1e
0319 1815 | | Execute Package,Field_Execute,Field_Number 0x15
031a c5fe | | Store 0x2,-0x2
031b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031c e232 | 2 | Load 0x1,0x32
031d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
031e 010f | | Execute Exception,Equal
031f 6806 |h | Jump_Zero 0x326
0320 e5fe | | Load 0x2,-0x2
0321 e223 | # | Load 0x1,0x23
0322 e01e | | Load 0x0,0x1e
0323 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0324 c5fe | | Store 0x2,-0x2
0325 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0326 e08c | | Load 0x0,0x8c
0327 010f | | Execute Exception,Equal
0328 6806 |h | Jump_Zero 0x32f
0329 e5fe | | Load 0x2,-0x2
032a e21d | | Load 0x1,0x1d
032b e01e | | Load 0x0,0x1e
032c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
032d c5fe | | Store 0x2,-0x2
032e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
032f e5fe | | Load 0x2,-0x2
0330 e21f | | Load 0x1,0x1f
0331 e034 | 4 | Load 0x0,0x34
0332 180d | | Execute Package,Field_Execute,Field_Number 0xd
0333 01cc | | Execute Vector,Catenate
0334 e01e | | Load 0x0,0x1e
0335 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0336 c5fe | | Store 0x2,-0x2
0337 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033f | ? | .CONST 0x033f ; Address of begin
0339 035c | \ | .CONST 0x035c ; Address of exception handler
033a 0002 | | .CONST 0x0002 ; Number of locals
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c e002 | | Load 0x0,0x2
033d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033e 03f1 | | Declare_Variable Discrete,With_Value
033f BODY_0338:
033f 00db | | Load_Top At_Offset_3
0340 0f04 | | Execute_Immediate Equal,0x4
0341 6803 |h | Jump_Zero 0x345
0342 4800 |H | Short_Literal 0x0
0343 a238 | 8 | Store_Unchecked 0x1,0x38
0344 7809 |x | Jump 0x34e
0345 00db | | Load_Top At_Offset_3
0346 0f05 | | Execute_Immediate Equal,0x5
0347 6803 |h | Jump_Zero 0x34b
0348 4800 |H | Short_Literal 0x0
0349 a239 | 9 | Store_Unchecked 0x1,0x39
034a 7803 |x | Jump 0x34e
034b 00db | | Load_Top At_Offset_3
034c e232 | 2 | Load 0x1,0x32
034d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
034e e01e | | Load 0x0,0x1e
034f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0350 c5fe | | Store 0x2,-0x2
0351 e5fe | | Load 0x2,-0x2
0352 0120 | | Execute Any,Is_Value
0353 6803 |h | Jump_Zero 0x357
0354 e01e | | Load 0x0,0x1e
0355 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0356 7801 |x | Jump 0x358
0357 e5fe | | Load 0x2,-0x2
0358 e5ff | | Load 0x2,-0x1
0359 808d | | Call 0x0,0x8d
035a c5fe | | Store 0x2,-0x2
035b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035c TRAP_0338:
035c 0007 | | Action Break_Optional
035d e21f | | Load 0x1,0x1f
035e e034 | 4 | Load 0x0,0x34
035f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0360 01cc | | Execute Vector,Catenate
0361 e01e | | Load 0x0,0x1e
0362 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0363 c5fe | | Store 0x2,-0x2
0364 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0365 0000 0000 | | .XXX[0x3]
0367 0000 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036f | o | .CONST 0x036f ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c e002 | | Load 0x0,0x2
036d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
036e 03f1 | | Declare_Variable Discrete,With_Value
036f BODY_0368:
036f 00db | | Load_Top At_Offset_3
0370 e232 | 2 | Load 0x1,0x32
0371 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0372 7009 |p | Jump_Nonzero 0x37c
0373 00db | | Load_Top At_Offset_3
0374 e5fe | | Load 0x2,-0x2
0375 e232 | 2 | Load 0x1,0x32
0376 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0377 e5fd | | Load 0x2,-0x3
0378 e01e | | Load 0x0,0x1e
0379 181a | | Execute Package,Field_Execute,Field_Number 0x1a
037a c5fd | | Store 0x2,-0x3
037b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
037c 00db | | Load_Top At_Offset_3
037d a235 | 5 | Store_Unchecked 0x1,0x35
037e 4801 |H | Short_Literal 0x1
037f a234 | 4 | Store_Unchecked 0x1,0x34
0380 00d8 | | Load_Top At_Offset_0
0381 e231 | 1 | Load 0x1,0x31
0382 e268 | h | Load 0x1,0x68
0383 e269 | i | Load 0x1,0x69
0384 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a
0385 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
0386 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
0387 8014 | | Call 0x0,0x14
0388 0059 | Y | Store_Top Discrete,At_Offset_1
0389 00db | | Load_Top At_Offset_3
038a e232 | 2 | Load 0x1,0x32
038b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
038c 00db | | Load_Top At_Offset_3
038d e5fe | | Load 0x2,-0x2
038e e232 | 2 | Load 0x1,0x32
038f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0390 e5fd | | Load 0x2,-0x3
0391 e01e | | Load 0x0,0x1e
0392 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0393 c5fd | | Store 0x2,-0x3
0394 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0395 0000 0000 | | .XXX[0x3]
0397 0000 | |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b e5fd | | Load 0x2,-0x3
039c e5fe | | Load 0x2,-0x2
039d e5ff | | Load 0x2,-0x1
039e e233 | 3 | Load 0x1,0x33
039f 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a0 c5fd | | Store 0x2,-0x3
03a1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a2 0000 0000 | | .BLANK 0000[0x6]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 03b2 | | .CONST 0x03b2 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 00da | | Load_Top At_Offset_2
03ac e232 | 2 | Load 0x1,0x32
03ad 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03ae e01e | | Load 0x0,0x1e
03af 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03b0 c5fe | | Store 0x2,-0x2
03b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b2 TRAP_03a8:
03b2 0007 | | Action Break_Optional
03b3 0092 095f | _| Action Push_String_Extended,0x95f ; "Unable to set task interface subprogram"
03b5 e01e | | Load 0x0,0x1e
03b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03b7 c5fe | | Store 0x2,-0x2
03b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b9 0000 0000 | | .BLANK 0000[0x7]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c5 | | .CONST 0x03c5 ; Address of begin
03c1 03d6 | | .CONST 0x03d6 ; Address of exception handler
03c2 0002 | | .CONST 0x0002 ; Number of locals
03c3 INIT_03c0:
03c3 029f 091b | | Declare_Subprogram INIT_0918,For_Call
03c5 BODY_03c0:
03c5 00db | | Load_Top At_Offset_3
03c6 808e | | Call 0x0,0x8e
03c7 6804 |h | Jump_Zero 0x3cc
03c8 e01e | | Load 0x0,0x1e
03c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03ca c5fe | | Store 0x2,-0x2
03cb 7806 |x | Jump 0x3d2
03cc e5fe | | Load 0x2,-0x2
03cd 4801 |H | Short_Literal 0x1
03ce e5ff | | Load 0x2,-0x1
03cf e233 | 3 | Load 0x1,0x33
03d0 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d1 c5fe | | Store 0x2,-0x2
03d2 00db | | Load_Top At_Offset_3
03d3 808f | | Call 0x0,0x8f
03d4 8402 | | Call 0x2,0x2
03d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d6 TRAP_03c0:
03d6 0007 | | Action Break_Optional
03d7 e5fe | | Load 0x2,-0x2
03d8 00ea | | Load_Encached Null_String_Cache
03d9 e034 | 4 | Load 0x0,0x34
03da 180d | | Execute Package,Field_Execute,Field_Number 0xd
03db 0092 0960 | `| Action Push_String_Extended,0x960 ; "Disable_Debugging exception"
03dd e01e | | Load 0x0,0x1e
03de 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03df c5fe | | Store 0x2,-0x2
03e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e1 0000 0000 | | .BLANK 0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb e5fd | | Load 0x2,-0x3
03ec e228 | ( | Load 0x1,0x28
03ed 4801 |H | Short_Literal 0x1
03ee e5fe | | Load 0x2,-0x2
03ef e5ff | | Load 0x2,-0x1
03f0 826e | n | Call 0x1,0x6e
03f1 c5fd | | Store 0x2,-0x3
03f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f3 0000 0000 | | .BLANK 0000[0x5]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc a237 | 7 | Store_Unchecked 0x1,0x37
03fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03fe 0000 0000 | | .XXX[0x2]
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 00e5 | | Load_Encached Long_Integer_Cache
0404 00e5 | | Load_Encached Long_Integer_Cache
0405 00e5 | | Load_Encached Long_Integer_Cache
0406 00e5 | | Load_Encached Long_Integer_Cache
0407 e232 | 2 | Load 0x1,0x32
0408 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0409 c5ff | | Store 0x2,-0x1
040a c5fe | | Store 0x2,-0x2
040b c5fd | | Store 0x2,-0x3
040c c5fc | | Store 0x2,-0x4
040d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
040e 0000 0000 | | .XXX[0x2]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 e232 | 2 | Load 0x1,0x32
0415 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0416 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0417 0000 | | .XXX[0x1]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b e5fa | | Load 0x2,-0x6
041c e5fb | | Load 0x2,-0x5
041d 00e3 | | Load_Encached Natural_Cache
041e e5fd | | Load 0x2,-0x3
041f e5fe | | Load 0x2,-0x2
0420 e5ff | | Load 0x2,-0x1
0421 e232 | 2 | Load 0x1,0x32
0422 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0423 c5fc | | Store 0x2,-0x4
0424 00d1 | | Pop_Control Pop_Count_1
0425 c5fa | | Store 0x2,-0x6
0426 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0427 0000 | | .XXX[0x1]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c e232 | 2 | Load 0x1,0x32
042d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
042e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
042f 0000 | | .XXX[0x1]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 e5fd | | Load 0x2,-0x3
0434 00e3 | | Load_Encached Natural_Cache
0435 e5ff | | Load 0x2,-0x1
0436 e232 | 2 | Load 0x1,0x32
0437 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0438 c5fe | | Store 0x2,-0x2
0439 c5fd | | Store 0x2,-0x3
043a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
043b 0000 0000 | | .BLANK 0000[0x5]
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 e23a | : | Load 0x1,0x3a
0444 00ca | | Action Exit_Nullary_Function
0445 0000 0000 | | .XXX[0x3]
0447 0000 | |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044d | M | .CONST 0x044d ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0002 | | .CONST 0x0002 ; Number of locals
044b INIT_0448:
044b 029f 0933 | 3| Declare_Subprogram INIT_0930,For_Call
044d BODY_0448:
044d 0092 0961 | a| Action Push_String_Extended,0x961 ; "*** Internal Error: "
044f e5ff | | Load 0x2,-0x1
0450 01cc | | Execute Vector,Catenate
0451 8090 | | Call 0x0,0x90
0452 8402 | | Call 0x2,0x2
0453 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0454 0000 0000 | | .BLANK 0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 4801 |H | Short_Literal 0x1
045c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
045d 0000 0000 | | .XXX[0x3]
045f 0000 | |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 808e | | Call 0x0,0x8e
0465 0e02 | | Execute_Immediate Not_Equal,0x2
0466 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0472 | r | .CONST 0x0472 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0004 | | .CONST 0x0004 ; Number of locals
046b INIT_0468:
046b e012 | | Load 0x0,0x12
046c 0322 | " | Declare_Variable Record
046d 00d8 | | Load_Top At_Offset_0
046e 1c00 | | Execute_Immediate Run_Utility,0x0
046f 00e1 | | Load_Encached Boolean_Cache
0470 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0471 00e3 | | Load_Encached Natural_Cache
0472 BODY_0468:
0472 4801 |H | Short_Literal 0x1
0473 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0474 e5fc | | Load 0x2,-0x4
0475 e5ff | | Load 0x2,-0x1
0476 8091 | | Call 0x0,0x91
0477 00cf | | Action Mark_Auxiliary
0478 00d9 | | Load_Top At_Offset_1
0479 e5fd | | Load 0x2,-0x3
047a 027d | } | Execute Discrete,Greater
047b 704e |pN | Jump_Nonzero 0x4ca
047c 00db | | Load_Top At_Offset_3
047d 00da | | Load_Top At_Offset_2
047e e5fe | | Load 0x2,-0x2
047f 01d7 | | Execute Vector,Field_Read
0480 8092 | | Call 0x0,0x92
0481 00d1 | | Pop_Control Pop_Count_1
0482 00d9 | | Load_Top At_Offset_1
0483 e5fe | | Load 0x2,-0x2
0484 01d7 | | Execute Vector,Field_Read
0485 e5ff | | Load 0x2,-0x1
0486 8093 | | Call 0x0,0x93
0487 00db | | Load_Top At_Offset_3
0488 8094 | | Call 0x0,0x94
0489 4602 |F | Jump_Case 0x3
048a 7807 |x | Jump 0x492 ; case 0x0
048b 7835 |x5 | Jump 0x4c1 ; case 0x1
048c 7800 |x | Jump 0x48d ; case 0x2
048d 0092 0962 | b| Action Push_String_Extended,0x962 ; "Process: Special item on control list"
048f e095 | | Load 0x0,0x95
0490 180f | | Execute Package,Field_Execute,Field_Number 0xf
0491 7833 |x3 | Jump 0x4c5
0492 00db | | Load_Top At_Offset_3
0493 8087 | | Call 0x0,0x87
0494 4605 |F | Jump_Case 0x6
0495 780a |x | Jump 0x4a0 ; case 0x0
0496 7810 |x | Jump 0x4a7 ; case 0x1
0497 781d |x | Jump 0x4b5 ; case 0x2
0498 7823 |x# | Jump 0x4bc ; case 0x3
0499 7812 |x | Jump 0x4ac ; case 0x4
049a 7800 |x | Jump 0x49b ; case 0x5
049b 0092 0963 | c| Action Push_String_Extended,0x963 ; "Process: unknown class"
049d e095 | | Load 0x0,0x95
049e 180f | | Execute Package,Field_Execute,Field_Number 0xf
049f 7825 |x% | Jump 0x4c5
04a0 00e1 | | Load_Encached Boolean_Cache
04a1 4800 |H | Short_Literal 0x0
04a2 e5ff | | Load 0x2,-0x1
04a3 e233 | 3 | Load 0x1,0x33
04a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
04a5 005b | [ | Store_Top Discrete,At_Offset_3
04a6 781e |x | Jump 0x4c5
04a7 0092 0964 | d| Action Push_String_Extended,0x964 ; "Profile unimplemented"
04a9 e095 | | Load 0x0,0x95
04aa 180f | | Execute Package,Field_Execute,Field_Number 0xf
04ab 7819 |x | Jump 0x4c5
04ac 00da | | Load_Top At_Offset_2
04ad 7017 |p | Jump_Nonzero 0x4c5
04ae 00e1 | | Load_Encached Boolean_Cache
04af 4801 |H | Short_Literal 0x1
04b0 e5ff | | Load 0x2,-0x1
04b1 e233 | 3 | Load 0x1,0x33
04b2 180d | | Execute Package,Field_Execute,Field_Number 0xd
04b3 005b | [ | Store_Top Discrete,At_Offset_3
04b4 7810 |x | Jump 0x4c5
04b5 00e1 | | Load_Encached Boolean_Cache
04b6 4800 |H | Short_Literal 0x0
04b7 e5ff | | Load 0x2,-0x1
04b8 e233 | 3 | Load 0x1,0x33
04b9 180d | | Execute Package,Field_Execute,Field_Number 0xd
04ba 005b | [ | Store_Top Discrete,At_Offset_3
04bb 7809 |x | Jump 0x4c5
04bc 0092 0965 | e| Action Push_String_Extended,0x965 ; "Continue unexpected"
04be e095 | | Load 0x0,0x95
04bf 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c0 7804 |x | Jump 0x4c5
04c1 0092 0966 | f| Action Push_String_Extended,0x966 ; "Process: Exception item on control list"
04c3 e095 | | Load 0x0,0x95
04c4 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c5 00d9 | | Load_Top At_Offset_1
04c6 0a01 | | Execute_Immediate Plus,0x1
04c7 005a | Z | Store_Top Discrete,At_Offset_2
04c8 00c9 | | Action Pop_Auxiliary_Loop
04c9 7fae | | Jump 0x478
04ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04cb 0000 0000 | | .BLANK 0000[0x5]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04de | | .CONST 0x04de ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0005 | | .CONST 0x0005 ; Number of locals
04d3 INIT_04d0:
04d3 e012 | | Load 0x0,0x12
04d4 0322 | " | Declare_Variable Record
04d5 00d8 | | Load_Top At_Offset_0
04d6 1c00 | | Execute_Immediate Run_Utility,0x0
04d7 e232 | 2 | Load 0x1,0x32
04d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d9 e5fe | | Load 0x2,-0x2
04da e005 | | Load 0x0,0x5
04db 03f1 | | Declare_Variable Discrete,With_Value
04dc 00e1 | | Load_Encached Boolean_Cache
04dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04de BODY_04d0:
04de 4801 |H | Short_Literal 0x1
04df 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
04e0 e5fb | | Load 0x2,-0x5
04e1 e5ff | | Load 0x2,-0x1
04e2 8091 | | Call 0x0,0x91
04e3 e5fb | | Load 0x2,-0x5
04e4 8023 | # | Call 0x0,0x23
04e5 e5fe | | Load 0x2,-0x2
04e6 e5ff | | Load 0x2,-0x1
04e7 8096 | | Call 0x0,0x96
04e8 00cf | | Action Mark_Auxiliary
04e9 00db | | Load_Top At_Offset_3
04ea e5fc | | Load 0x2,-0x4
04eb 027d | } | Execute Discrete,Greater
04ec 704c |pL | Jump_Nonzero 0x539
04ed e402 | | Load 0x2,0x2
04ee e403 | | Load 0x2,0x3
04ef e5fd | | Load 0x2,-0x3
04f0 01d7 | | Execute Vector,Field_Read
04f1 8092 | | Call 0x0,0x92
04f2 00d1 | | Pop_Control Pop_Count_1
04f3 00db | | Load_Top At_Offset_3
04f4 e5fd | | Load 0x2,-0x3
04f5 01d7 | | Execute Vector,Field_Read
04f6 e5ff | | Load 0x2,-0x1
04f7 8093 | | Call 0x0,0x93
04f8 e402 | | Load 0x2,0x2
04f9 8094 | | Call 0x0,0x94
04fa 4602 |F | Jump_Case 0x3
04fb 7807 |x | Jump 0x503 ; case 0x0
04fc 780b |x | Jump 0x508 ; case 0x1
04fd 7800 |x | Jump 0x4fe ; case 0x2
04fe 0092 0967 | g| Action Push_String_Extended,0x967 ; "Process: Special item on exception list"
0500 e095 | | Load 0x0,0x95
0501 180f | | Execute Package,Field_Execute,Field_Number 0xf
0502 7831 |x1 | Jump 0x534
0503 0092 0968 | h| Action Push_String_Extended,0x968 ; "Process: Control item on exception list"
0505 e095 | | Load 0x0,0x95
0506 180f | | Execute Package,Field_Execute,Field_Number 0xf
0507 782c |x, | Jump 0x534
0508 e402 | | Load 0x2,0x2
0509 8087 | | Call 0x0,0x87
050a 4605 |F | Jump_Case 0x6
050b 780a |x | Jump 0x516 ; case 0x0
050c 7810 |x | Jump 0x51d ; case 0x1
050d 7814 |x | Jump 0x522 ; case 0x2
050e 7821 |x! | Jump 0x530 ; case 0x3
050f 7819 |x | Jump 0x529 ; case 0x4
0510 7800 |x | Jump 0x511 ; case 0x5
0511 0092 0969 | i| Action Push_String_Extended,0x969 ; "Process: Other_Action undefined"
0513 e095 | | Load 0x0,0x95
0514 180f | | Execute Package,Field_Execute,Field_Number 0xf
0515 781e |x | Jump 0x534
0516 00e1 | | Load_Encached Boolean_Cache
0517 4800 |H | Short_Literal 0x0
0518 e5ff | | Load 0x2,-0x1
0519 e233 | 3 | Load 0x1,0x33
051a 180d | | Execute Package,Field_Execute,Field_Number 0xd
051b 005a | Z | Store_Top Discrete,At_Offset_2
051c 7817 |x | Jump 0x534
051d 0092 0964 | d| Action Push_String_Extended,0x964 ; "Profile unimplemented"
051f e095 | | Load 0x0,0x95
0520 180f | | Execute Package,Field_Execute,Field_Number 0xf
0521 7812 |x | Jump 0x534
0522 00e1 | | Load_Encached Boolean_Cache
0523 4800 |H | Short_Literal 0x0
0524 e5ff | | Load 0x2,-0x1
0525 e233 | 3 | Load 0x1,0x33
0526 180d | | Execute Package,Field_Execute,Field_Number 0xd
0527 005a | Z | Store_Top Discrete,At_Offset_2
0528 780b |x | Jump 0x534
0529 00e1 | | Load_Encached Boolean_Cache
052a 4801 |H | Short_Literal 0x1
052b e5ff | | Load 0x2,-0x1
052c e233 | 3 | Load 0x1,0x33
052d 180d | | Execute Package,Field_Execute,Field_Number 0xd
052e 005a | Z | Store_Top Discrete,At_Offset_2
052f 7804 |x | Jump 0x534
0530 0092 096a | j| Action Push_String_Extended,0x96a ; "Process: Continue unexpected"
0532 e095 | | Load 0x0,0x95
0533 180f | | Execute Package,Field_Execute,Field_Number 0xf
0534 00db | | Load_Top At_Offset_3
0535 0a01 | | Execute_Immediate Plus,0x1
0536 c403 | | Store 0x2,0x3
0537 00c9 | | Action Pop_Auxiliary_Loop
0538 7fb0 | | Jump 0x4e9
0539 4505 |E | Exit_Suprogram New_Top_Offset 0x5
053a 0000 0000 | | .BLANK 0000[0x6]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543 | C | .CONST 0x0543 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0001 | | .CONST 0x0001 ; Number of locals
0543 BODY_0540:
0543 INIT_0540:
0543 e236 | 6 | Load 0x1,0x36
0544 e5fe | | Load 0x2,-0x2
0545 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0546 e235 | 5 | Load 0x1,0x35
0547 e5fe | | Load 0x2,-0x2
0548 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0549 e234 | 4 | Load 0x1,0x34
054a e5fe | | Load 0x2,-0x2
054b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
054c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
054d 0000 0000 | | .XXX[0x3]
054f 0000 | |
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 e5fd | | Load 0x2,-0x3
0554 00e2 | | Load_Encached Integer_Cache
0555 025e | ^ | Execute Discrete,Convert
0556 e5fe | | Load 0x2,-0x2
0557 e5ff | | Load 0x2,-0x1
0558 e00e | | Load 0x0,0xe
0559 1b15 | | Execute Package,Field_Read,Field_Number 0x15
055a 00d9 | | Load_Top At_Offset_1
055b 00d0 | | Action Swap_Control
055c 0260 | ` | Execute Discrete,In_Type
055d 7001 |p | Jump_Nonzero 0x55f
055e 0801 | | Execute_Immediate Raise,0x1
055f 8240 | @ | Call 0x1,0x40
0560 00d1 | | Pop_Control Pop_Count_1
0561 c5fd | | Store 0x2,-0x3
0562 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0563 0000 0000 | | .BLANK 0000[0x5]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056d | m | .CONST 0x056d ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0002 | | .CONST 0x0002 ; Number of locals
056b INIT_0568:
056b 029f 0943 | C| Declare_Subprogram INIT_0940,For_Call
056d BODY_0568:
056d 8402 | | Call 0x2,0x2
056e e234 | 4 | Load 0x1,0x34
056f e236 | 6 | Load 0x1,0x36
0570 0278 | x | Execute Discrete,Or
0571 6808 |h | Jump_Zero 0x57a
0572 e231 | 1 | Load 0x1,0x31
0573 e5ff | | Load 0x2,-0x1
0574 e242 | B | Load 0x1,0x42
0575 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
0576 e244 | D | Load 0x1,0x44
0577 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
0578 800f | | Call 0x0,0xf
0579 c231 | 1 | Store 0x1,0x31
057a 00db | | Load_Top At_Offset_3
057b e232 | 2 | Load 0x1,0x32
057c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
057d e5fe | | Load 0x2,-0x2
057e e05b | [ | Load 0x0,0x5b
057f 017f | | Execute Record,Equal
0580 7006 |p | Jump_Nonzero 0x587
0581 e5fe | | Load 0x2,-0x2
0582 8069 | i | Call 0x0,0x69
0583 00d1 | | Pop_Control Pop_Count_1
0584 e5fe | | Load 0x2,-0x2
0585 e5ff | | Load 0x2,-0x1
0586 8091 | | Call 0x0,0x91
0587 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058c | | .CONST 0x058c ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0002 | | .CONST 0x0002 ; Number of locals
058b INIT_0588:
058b 00e1 | | Load_Encached Boolean_Cache
058c BODY_0588:
058c e238 | 8 | Load 0x1,0x38
058d 680a |h | Jump_Zero 0x598
058e 4804 |H | Short_Literal 0x4
058f e5ff | | Load 0x2,-0x1
0590 8093 | | Call 0x0,0x93
0591 00e1 | | Load_Encached Boolean_Cache
0592 4801 |H | Short_Literal 0x1
0593 e5ff | | Load 0x2,-0x1
0594 e233 | 3 | Load 0x1,0x33
0595 180d | | Execute Package,Field_Execute,Field_Number 0xd
0596 0059 | Y | Store_Top Discrete,At_Offset_1
0597 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0598 e239 | 9 | Load 0x1,0x39
0599 680a |h | Jump_Zero 0x5a4
059a 4805 |H | Short_Literal 0x5
059b e5ff | | Load 0x2,-0x1
059c 8093 | | Call 0x0,0x93
059d 00e1 | | Load_Encached Boolean_Cache
059e 4800 |H | Short_Literal 0x0
059f e5ff | | Load 0x2,-0x1
05a0 e233 | 3 | Load 0x1,0x33
05a1 180d | | Execute Package,Field_Execute,Field_Number 0xd
05a2 0059 | Y | Store_Top Discrete,At_Offset_1
05a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05a4 e237 | 7 | Load 0x1,0x37
05a5 6809 |h | Jump_Zero 0x5af
05a6 4804 |H | Short_Literal 0x4
05a7 e5ff | | Load 0x2,-0x1
05a8 8093 | | Call 0x0,0x93
05a9 00e1 | | Load_Encached Boolean_Cache
05aa 4801 |H | Short_Literal 0x1
05ab e5ff | | Load 0x2,-0x1
05ac e233 | 3 | Load 0x1,0x33
05ad 180d | | Execute Package,Field_Execute,Field_Number 0xd
05ae 0059 | Y | Store_Top Discrete,At_Offset_1
05af 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 e238 | 8 | Load 0x1,0x38
05b4 e239 | 9 | Load 0x1,0x39
05b5 e237 | 7 | Load 0x1,0x37
05b6 0278 | x | Execute Discrete,Or
05b7 0278 | x | Execute Discrete,Or
05b8 00ca | | Action Exit_Nullary_Function
05b9 0000 0000 | | .BLANK 0000[0x7]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 00da | | Load_Top At_Offset_2
05c4 e003 | | Load 0x0,0x3
05c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05c6 0aff | | Execute_Immediate Plus,-0x1
05c7 e003 | | Load 0x0,0x3
05c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05c9 00d9 | | Load_Top At_Offset_1
05ca 00d0 | | Action Swap_Control
05cb 0260 | ` | Execute Discrete,In_Type
05cc 7001 |p | Jump_Nonzero 0x5ce
05cd 0801 | | Execute_Immediate Raise,0x1
05ce 00db | | Load_Top At_Offset_3
05cf e003 | | Load 0x0,0x3
05d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05d1 e003 | | Load 0x0,0x3
05d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d4 0000 0000 | | .BLANK 0000[0x4]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05eb | | .CONST 0x05eb ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0008 | | .CONST 0x0008 ; Number of locals
05db INIT_05d8:
05db e003 | | Load 0x0,0x3
05dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05dd 00e1 | | Load_Encached Boolean_Cache
05de e054 | T | Load 0x0,0x54
05df 0322 | " | Declare_Variable Record
05e0 00d8 | | Load_Top At_Offset_0
05e1 1c00 | | Execute_Immediate Run_Utility,0x0
05e2 e003 | | Load 0x0,0x3
05e3 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
05e4 02c7 | | Declare_Variable Any
05e5 00d8 | | Load_Top At_Offset_0
05e6 1c00 | | Execute_Immediate Run_Utility,0x0
05e7 e097 | | Load 0x0,0x97
05e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e9 00e3 | | Load_Encached Natural_Cache
05ea 00e1 | | Load_Encached Boolean_Cache
05eb BODY_05d8:
05eb 4800 |H | Short_Literal 0x0
05ec e5ff | | Load 0x2,-0x1
05ed 806b | k | Call 0x0,0x6b
05ee e5fc | | Load 0x2,-0x4
05ef e003 | | Load 0x0,0x3
05f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05f1 0afe | | Execute_Immediate Plus,-0x2
05f2 e003 | | Load 0x0,0x3
05f3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05f4 00d9 | | Load_Top At_Offset_1
05f5 00d0 | | Action Swap_Control
05f6 0260 | ` | Execute Discrete,In_Type
05f7 7001 |p | Jump_Nonzero 0x5f9
05f8 0801 | | Execute_Immediate Raise,0x1
05f9 e5fc | | Load 0x2,-0x4
05fa e003 | | Load 0x0,0x3
05fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05fc e003 | | Load 0x0,0x3
05fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05fe a402 | | Store_Unchecked 0x2,0x2
05ff e402 | | Load 0x2,0x2
0600 0f07 | | Execute_Immediate Equal,0x7
0601 6811 |h | Jump_Zero 0x613
0602 e5fc | | Load 0x2,-0x4
0603 e003 | | Load 0x0,0x3
0604 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0605 0afd | | Execute_Immediate Plus,-0x3
0606 e003 | | Load 0x0,0x3
0607 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0608 00d9 | | Load_Top At_Offset_1
0609 00d0 | | Action Swap_Control
060a 0260 | ` | Execute Discrete,In_Type
060b 7001 |p | Jump_Nonzero 0x60d
060c 0801 | | Execute_Immediate Raise,0x1
060d e5fc | | Load 0x2,-0x4
060e e003 | | Load 0x0,0x3
060f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0610 e003 | | Load 0x0,0x3
0611 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0612 a402 | | Store_Unchecked 0x2,0x2
0613 e402 | | Load 0x2,0x2
0614 00d8 | | Load_Top At_Offset_0
0615 0c09 | | Execute_Immediate Greater_Equal,0x9
0616 703f |p? | Jump_Nonzero 0x656
0617 4608 |F | Jump_Case 0x9
0618 7846 |xF | Jump 0x65f ; case 0x0
0619 7807 |x | Jump 0x621 ; case 0x1
061a 7867 |xg | Jump 0x682 ; case 0x2
061b 7879 |xy | Jump 0x695 ; case 0x3
061c 783a |x: | Jump 0x657 ; case 0x4
061d 7839 |x9 | Jump 0x657 ; case 0x5
061e 7838 |x8 | Jump 0x657 ; case 0x6
061f 7837 |x7 | Jump 0x657 ; case 0x7
0620 7800 |x | Jump 0x621 ; case 0x8
0621 e5fd | | Load 0x2,-0x3
0622 e00a | | Load 0x0,0xa
0623 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0624 e5fe | | Load 0x2,-0x2
0625 e003 | | Load 0x0,0x3
0626 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0627 c405 | | Store 0x2,0x5
0628 00db | | Load_Top At_Offset_3
0629 e00a | | Load 0x0,0xa
062a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
062b e5fe | | Load 0x2,-0x2
062c e003 | | Load 0x0,0x3
062d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
062e c405 | | Store 0x2,0x5
062f 00db | | Load_Top At_Offset_3
0630 e00a | | Load 0x0,0xa
0631 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0632 e5fe | | Load 0x2,-0x2
0633 e003 | | Load 0x0,0x3
0634 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0635 c405 | | Store 0x2,0x5
0636 e404 | | Load 0x2,0x4
0637 e405 | | Load 0x2,0x5
0638 e22f | / | Load 0x1,0x2f
0639 e5fe | | Load 0x2,-0x2
063a e003 | | Load 0x0,0x3
063b 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
063c 824a | J | Call 0x1,0x4a
063d 8055 | U | Call 0x0,0x55
063e 00d1 | | Pop_Control Pop_Count_1
063f e404 | | Load 0x2,0x4
0640 e405 | | Load 0x2,0x5
0641 8056 | V | Call 0x0,0x56
0642 00d1 | | Pop_Control Pop_Count_1
0643 e404 | | Load 0x2,0x4
0644 8069 | i | Call 0x0,0x69
0645 00d1 | | Pop_Control Pop_Count_1
0646 e404 | | Load 0x2,0x4
0647 806a | j | Call 0x0,0x6a
0648 00d1 | | Pop_Control Pop_Count_1
0649 e404 | | Load 0x2,0x4
064a e5ff | | Load 0x2,-0x1
064b 8091 | | Call 0x0,0x91
064c 4809 |H | Short_Literal 0x9
064d e5ff | | Load 0x2,-0x1
064e 8093 | | Call 0x0,0x93
064f 00e1 | | Load_Encached Boolean_Cache
0650 4801 |H | Short_Literal 0x1
0651 e5ff | | Load 0x2,-0x1
0652 e233 | 3 | Load 0x1,0x33
0653 180d | | Execute Package,Field_Execute,Field_Number 0xd
0654 c403 | | Store 0x2,0x3
0655 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0656 00d1 | | Pop_Control Pop_Count_1
0657 0092 096b | k| Action Push_String_Extended,0x96b ; "Illegal internal call: "
0659 e402 | | Load 0x2,0x2
065a 00e0 | | Load_Encached Standard_Cache
065b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
065c 01cc | | Execute Vector,Catenate
065d 8090 | | Call 0x0,0x90
065e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
065f e5ff | | Load 0x2,-0x1
0660 a23a | : | Store_Unchecked 0x1,0x3a
0661 e5fd | | Load 0x2,-0x3
0662 c405 | | Store 0x2,0x5
0663 e404 | | Load 0x2,0x4
0664 e405 | | Load 0x2,0x5
0665 e22f | / | Load 0x1,0x2f
0666 e5fe | | Load 0x2,-0x2
0667 e003 | | Load 0x0,0x3
0668 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
0669 8055 | U | Call 0x0,0x55
066a 00d1 | | Pop_Control Pop_Count_1
066b e404 | | Load 0x2,0x4
066c e405 | | Load 0x2,0x5
066d 8056 | V | Call 0x0,0x56
066e 00d1 | | Pop_Control Pop_Count_1
066f e404 | | Load 0x2,0x4
0670 8069 | i | Call 0x0,0x69
0671 00d1 | | Pop_Control Pop_Count_1
0672 e404 | | Load 0x2,0x4
0673 806a | j | Call 0x0,0x6a
0674 00d1 | | Pop_Control Pop_Count_1
0675 e404 | | Load 0x2,0x4
0676 e5ff | | Load 0x2,-0x1
0677 8091 | | Call 0x0,0x91
0678 4804 |H | Short_Literal 0x4
0679 e5ff | | Load 0x2,-0x1
067a 8093 | | Call 0x0,0x93
067b 00e1 | | Load_Encached Boolean_Cache
067c 4801 |H | Short_Literal 0x1
067d e5ff | | Load 0x2,-0x1
067e e233 | 3 | Load 0x1,0x33
067f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0680 c403 | | Store 0x2,0x3
0681 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0682 00e1 | | Load_Encached Boolean_Cache
0683 00e3 | | Load_Encached Natural_Cache
0684 e097 | | Load 0x0,0x97
0685 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0686 e5fc | | Load 0x2,-0x4
0687 e003 | | Load 0x0,0x3
0688 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0689 8098 | | Call 0x0,0x98
068a c406 | | Store 0x2,0x6
068b 005b | [ | Store_Top Discrete,At_Offset_3
068c 0059 | Y | Store_Top Discrete,At_Offset_1
068d 00d9 | | Load_Top At_Offset_1
068e 00db | | Load_Top At_Offset_3
068f e5fd | | Load 0x2,-0x3
0690 e5fc | | Load 0x2,-0x4
0691 e003 | | Load 0x0,0x3
0692 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0693 8099 | | Call 0x0,0x99
0694 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0695 e5fd | | Load 0x2,-0x3
0696 e00a | | Load 0x0,0xa
0697 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0698 e5fe | | Load 0x2,-0x2
0699 e003 | | Load 0x0,0x3
069a 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
069b c405 | | Store 0x2,0x5
069c 00e1 | | Load_Encached Boolean_Cache
069d 00e3 | | Load_Encached Natural_Cache
069e e097 | | Load 0x0,0x97
069f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a0 e5fc | | Load 0x2,-0x4
06a1 e003 | | Load 0x0,0x3
06a2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06a3 8098 | | Call 0x0,0x98
06a4 c406 | | Store 0x2,0x6
06a5 005b | [ | Store_Top Discrete,At_Offset_3
06a6 0059 | Y | Store_Top Discrete,At_Offset_1
06a7 00d9 | | Load_Top At_Offset_1
06a8 00db | | Load_Top At_Offset_3
06a9 e405 | | Load 0x2,0x5
06aa e5fc | | Load 0x2,-0x4
06ab e003 | | Load 0x0,0x3
06ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06ad 809a | | Call 0x0,0x9a
06ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06af 0000 | | .XXX[0x1]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b5 | | .CONST 0x06b5 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0002 | | .CONST 0x0002 ; Number of locals
06b3 INIT_06b0:
06b3 e003 | | Load 0x0,0x3
06b4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
06b5 BODY_06b0:
06b5 e5fe | | Load 0x2,-0x2
06b6 809b | | Call 0x0,0x9b
06b7 4603 |F | Jump_Case 0x4
06b8 7806 |x | Jump 0x6bf ; case 0x0
06b9 780f |x | Jump 0x6c9 ; case 0x1
06ba 7801 |x | Jump 0x6bc ; case 0x2
06bb 7800 |x | Jump 0x6bc ; case 0x3
06bc 601b |` | Indirect_Literal Discrete,0x6d8,{0x00000000, 0x000fffff}
06bd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06be 7814 |x | Jump 0x6d3
06bf 00db | | Load_Top At_Offset_3
06c0 8030 | 0 | Call 0x0,0x30
06c1 809c | | Call 0x0,0x9c
06c2 e003 | | Load 0x0,0x3
06c3 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
06c4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06c5 00d8 | | Load_Top At_Offset_0
06c6 0a01 | | Execute_Immediate Plus,0x1
06c7 0059 | Y | Store_Top Discrete,At_Offset_1
06c8 780a |x | Jump 0x6d3
06c9 00db | | Load_Top At_Offset_3
06ca 8030 | 0 | Call 0x0,0x30
06cb 809c | | Call 0x0,0x9c
06cc e003 | | Load 0x0,0x3
06cd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
06ce 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
06cf 00d8 | | Load_Top At_Offset_0
06d0 7002 |p | Jump_Nonzero 0x6d3
06d1 e225 | % | Load 0x1,0x25
06d2 0257 | W | Execute Discrete,Raise
06d3 00d8 | | Load_Top At_Offset_0
06d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06d5 0000 0000 | | .XXX[0x3]
06d7 0000 | |
06d8 0000 0000 | | .LITERAL {0x00000000, 0x000fffff}
06dc 0000 0000 | | .BLANK 0000[0x4]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3 | | .CONST 0x06e3 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0001 | | .CONST 0x0001 ; Number of locals
06e3 BODY_06e0:
06e3 INIT_06e0:
06e3 00da | | Load_Top At_Offset_2
06e4 8094 | | Call 0x0,0x94
06e5 702a |p* | Jump_Nonzero 0x710
06e6 00da | | Load_Top At_Offset_2
06e7 8087 | | Call 0x0,0x87
06e8 0f04 | | Execute_Immediate Equal,0x4
06e9 6824 |h$ | Jump_Zero 0x70e
06ea 00da | | Load_Top At_Offset_2
06eb 8082 | | Call 0x0,0x82
06ec e22e | . | Load 0x1,0x2e
06ed 017f | | Execute Record,Equal
06ee 681d |h | Jump_Zero 0x70c
06ef 00da | | Load_Top At_Offset_2
06f0 8084 | | Call 0x0,0x84
06f1 e230 | 0 | Load 0x1,0x30
06f2 017f | | Execute Record,Equal
06f3 6816 |h | Jump_Zero 0x70a
06f4 00da | | Load_Top At_Offset_2
06f5 8083 | | Call 0x0,0x83
06f6 e22d | - | Load 0x1,0x2d
06f7 027f | | Execute Discrete,Equal
06f8 680f |h | Jump_Zero 0x708
06f9 00da | | Load_Top At_Offset_2
06fa 8081 | | Call 0x0,0x81
06fb 0f01 | | Execute_Immediate Equal,0x1
06fc 6809 |h | Jump_Zero 0x706
06fd 00da | | Load_Top At_Offset_2
06fe 809b | | Call 0x0,0x9b
06ff 0f02 | | Execute_Immediate Equal,0x2
0700 6803 |h | Jump_Zero 0x704
0701 00da | | Load_Top At_Offset_2
0702 809d | | Call 0x0,0x9d
0703 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0704 4800 |H | Short_Literal 0x0
0705 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0706 4800 |H | Short_Literal 0x0
0707 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0708 4800 |H | Short_Literal 0x0
0709 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
070a 4800 |H | Short_Literal 0x0
070b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
070c 4800 |H | Short_Literal 0x0
070d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
070e 4800 |H | Short_Literal 0x0
070f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0710 4800 |H | Short_Literal 0x0
0711 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0712 0000 0000 | | .BLANK 0000[0x6]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00da | | Load_Top At_Offset_2
071c 8094 | | Call 0x0,0x94
071d 7025 |p% | Jump_Nonzero 0x743
071e 00da | | Load_Top At_Offset_2
071f 8087 | | Call 0x0,0x87
0720 0f04 | | Execute_Immediate Equal,0x4
0721 681f |h | Jump_Zero 0x741
0722 00da | | Load_Top At_Offset_2
0723 8082 | | Call 0x0,0x82
0724 e22e | . | Load 0x1,0x2e
0725 017f | | Execute Record,Equal
0726 6818 |h | Jump_Zero 0x73f
0727 00da | | Load_Top At_Offset_2
0728 8084 | | Call 0x0,0x84
0729 e230 | 0 | Load 0x1,0x30
072a 017f | | Execute Record,Equal
072b 6811 |h | Jump_Zero 0x73d
072c 00da | | Load_Top At_Offset_2
072d 8083 | | Call 0x0,0x83
072e e22d | - | Load 0x1,0x2d
072f 027f | | Execute Discrete,Equal
0730 680a |h | Jump_Zero 0x73b
0731 00da | | Load_Top At_Offset_2
0732 807e | ~ | Call 0x0,0x7e
0733 807f | | Call 0x0,0x7f
0734 6804 |h | Jump_Zero 0x739
0735 00da | | Load_Top At_Offset_2
0736 809d | | Call 0x0,0x9d
0737 0f00 | | Execute_Immediate Equal,0x0
0738 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0739 4800 |H | Short_Literal 0x0
073a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
073b 4800 |H | Short_Literal 0x0
073c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
073d 4800 |H | Short_Literal 0x0
073e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
073f 4800 |H | Short_Literal 0x0
0740 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0741 4800 |H | Short_Literal 0x0
0742 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0743 4800 |H | Short_Literal 0x0
0744 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0745 0000 0000 | | .XXX[0x3]
0747 0000 | |
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b 00da | | Load_Top At_Offset_2
074c 8094 | | Call 0x0,0x94
074d 7017 |p | Jump_Nonzero 0x765
074e 00da | | Load_Top At_Offset_2
074f 8087 | | Call 0x0,0x87
0750 0f04 | | Execute_Immediate Equal,0x4
0751 6811 |h | Jump_Zero 0x763
0752 00da | | Load_Top At_Offset_2
0753 8084 | | Call 0x0,0x84
0754 e230 | 0 | Load 0x1,0x30
0755 017e | ~ | Execute Record,Not_Equal
0756 6805 |h | Jump_Zero 0x75c
0757 00da | | Load_Top At_Offset_2
0758 8083 | | Call 0x0,0x83
0759 e22d | - | Load 0x1,0x2d
075a 027e | ~ | Execute Discrete,Not_Equal
075b 7005 |p | Jump_Nonzero 0x761
075c 00da | | Load_Top At_Offset_2
075d 807e | ~ | Call 0x0,0x7e
075e 807f | | Call 0x0,0x7f
075f 0f00 | | Execute_Immediate Equal,0x0
0760 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0761 4801 |H | Short_Literal 0x1
0762 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0763 4800 |H | Short_Literal 0x0
0764 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0765 4800 |H | Short_Literal 0x0
0766 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0767 0000 | | .XXX[0x1]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b | k | .CONST 0x076b ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0001 | | .CONST 0x0001 ; Number of locals
076b BODY_0768:
076b INIT_0768:
076b 00da | | Load_Top At_Offset_2
076c 8094 | | Call 0x0,0x94
076d 7004 |p | Jump_Nonzero 0x772
076e 00da | | Load_Top At_Offset_2
076f 8087 | | Call 0x0,0x87
0770 0f02 | | Execute_Immediate Equal,0x2
0771 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0772 4800 |H | Short_Literal 0x0
0773 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0774 0000 0000 | | .BLANK 0000[0x4]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b | { | .CONST 0x077b ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0001 | | .CONST 0x0001 ; Number of locals
077b BODY_0778:
077b INIT_0778:
077b 00da | | Load_Top At_Offset_2
077c 8094 | | Call 0x0,0x94
077d 7004 |p | Jump_Nonzero 0x782
077e 00da | | Load_Top At_Offset_2
077f 8087 | | Call 0x0,0x87
0780 0f00 | | Execute_Immediate Equal,0x0
0781 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0782 4800 |H | Short_Literal 0x0
0783 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0784 0000 0000 | | .BLANK 0000[0x4]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b | | .CONST 0x078b ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0001 | | .CONST 0x0001 ; Number of locals
078b BODY_0788:
078b INIT_0788:
078b 00da | | Load_Top At_Offset_2
078c 8094 | | Call 0x0,0x94
078d 0f01 | | Execute_Immediate Equal,0x1
078e 6804 |h | Jump_Zero 0x793
078f 00da | | Load_Top At_Offset_2
0790 8087 | | Call 0x0,0x87
0791 0f02 | | Execute_Immediate Equal,0x2
0792 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0793 4800 |H | Short_Literal 0x0
0794 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0795 0000 0000 | | .XXX[0x3]
0797 0000 | |
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b | | .CONST 0x079b ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0001 | | .CONST 0x0001 ; Number of locals
079b BODY_0798:
079b INIT_0798:
079b 00da | | Load_Top At_Offset_2
079c 8094 | | Call 0x0,0x94
079d 0f01 | | Execute_Immediate Equal,0x1
079e 6804 |h | Jump_Zero 0x7a3
079f 00da | | Load_Top At_Offset_2
07a0 8087 | | Call 0x0,0x87
07a1 0f00 | | Execute_Immediate Equal,0x0
07a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a3 4800 |H | Short_Literal 0x0
07a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a5 0000 0000 | | .XXX[0x3]
07a7 0000 | |
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab | | .CONST 0x07ab ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0001 | | .CONST 0x0001 ; Number of locals
07ab BODY_07a8:
07ab INIT_07a8:
07ab 00da | | Load_Top At_Offset_2
07ac 8094 | | Call 0x0,0x94
07ad 0f01 | | Execute_Immediate Equal,0x1
07ae 680a |h | Jump_Zero 0x7b9
07af 00da | | Load_Top At_Offset_2
07b0 8087 | | Call 0x0,0x87
07b1 0f04 | | Execute_Immediate Equal,0x4
07b2 7004 |p | Jump_Nonzero 0x7b7
07b3 00da | | Load_Top At_Offset_2
07b4 8087 | | Call 0x0,0x87
07b5 0f03 | | Execute_Immediate Equal,0x3
07b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07b7 4801 |H | Short_Literal 0x1
07b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07b9 4800 |H | Short_Literal 0x0
07ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07bb 0000 0000 | | .BLANK 0000[0x5]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3 | | .CONST 0x07c3 ; Address of begin
07c1 0004 | | .CONST 0x0004 ; Address of exception handler
07c2 0001 | | .CONST 0x0001 ; Number of locals
07c3 BODY_07c0:
07c3 INIT_07c0:
07c3 00da | | Load_Top At_Offset_2
07c4 8087 | | Call 0x0,0x87
07c5 0f01 | | Execute_Immediate Equal,0x1
07c6 7001 |p | Jump_Nonzero 0x7c8
07c7 7802 |x | Jump 0x7ca
07c8 e227 | ' | Load 0x1,0x27
07c9 0257 | W | Execute Discrete,Raise
07ca 00da | | Load_Top At_Offset_2
07cb 8094 | | Call 0x0,0x94
07cc 4801 |H | Short_Literal 0x1
07cd 4802 |H | Short_Literal 0x2
07ce 0262 | b | Execute Discrete,In_Range
07cf 7019 |p | Jump_Nonzero 0x7e9
07d0 7800 |x | Jump 0x7d1
07d1 00da | | Load_Top At_Offset_2
07d2 808a | | Call 0x0,0x8a
07d3 460a |F | Jump_Case 0xb
07d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
07d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
07d6 780a |x | Jump 0x7e1 ; case 0x2
07d7 7807 |x | Jump 0x7df ; case 0x3
07d8 7806 |x | Jump 0x7df ; case 0x4
07d9 7809 |x | Jump 0x7e3 ; case 0x5
07da 780a |x | Jump 0x7e5 ; case 0x6
07db 7803 |x | Jump 0x7df ; case 0x7
07dc 780a |x | Jump 0x7e7 ; case 0x8
07dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
07de 7800 |x | Jump 0x7df ; case 0xa
07df e227 | ' | Load 0x1,0x27
07e0 0257 | W | Execute Discrete,Raise
07e1 e227 | ' | Load 0x1,0x27
07e2 0257 | W | Execute Discrete,Raise
07e3 e227 | ' | Load 0x1,0x27
07e4 0257 | W | Execute Discrete,Raise
07e5 e227 | ' | Load 0x1,0x27
07e6 0257 | W | Execute Discrete,Raise
07e7 e227 | ' | Load 0x1,0x27
07e8 0257 | W | Execute Discrete,Raise
07e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07ea 0000 0000 | | .BLANK 0000[0x6]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f8 | | .CONST 0x07f8 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0002 | | .CONST 0x0002 ; Number of locals
07f3 INIT_07f0:
07f3 e5fd | | Load 0x2,-0x3
07f4 807c | | | Call 0x0,0x7c
07f5 e002 | | Load 0x0,0x2
07f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07f7 03f1 | | Declare_Variable Discrete,With_Value
07f8 BODY_07f0:
07f8 e5fd | | Load 0x2,-0x3
07f9 824e | N | Call 0x1,0x4e
07fa 6821 |h! | Jump_Zero 0x81c
07fb e5fd | | Load 0x2,-0x3
07fc 808a | | Call 0x0,0x8a
07fd 0f09 | | Execute_Immediate Equal,0x9
07fe 680c |h | Jump_Zero 0x80b
07ff 00d8 | | Load_Top At_Offset_0
0800 e5fd | | Load 0x2,-0x3
0801 8081 | | Call 0x0,0x81
0802 00d8 | | Load_Top At_Offset_0
0803 00e4 | | Load_Encached Positive_Cache
0804 0260 | ` | Execute Discrete,In_Type
0805 7001 |p | Jump_Nonzero 0x807
0806 0801 | | Execute_Immediate Raise,0x1
0807 e5ff | | Load 0x2,-0x1
0808 e232 | 2 | Load 0x1,0x32
0809 181a | | Execute Package,Field_Execute,Field_Number 0x1a
080a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
080b e5fe | | Load 0x2,-0x2
080c 00d9 | | Load_Top At_Offset_1
080d e5fd | | Load 0x2,-0x3
080e e5ff | | Load 0x2,-0x1
080f 824c | L | Call 0x1,0x4c
0810 e5fd | | Load 0x2,-0x3
0811 8081 | | Call 0x0,0x81
0812 00d8 | | Load_Top At_Offset_0
0813 00e4 | | Load_Encached Positive_Cache
0814 0260 | ` | Execute Discrete,In_Type
0815 7001 |p | Jump_Nonzero 0x817
0816 0801 | | Execute_Immediate Raise,0x1
0817 e5ff | | Load 0x2,-0x1
0818 e232 | 2 | Load 0x1,0x32
0819 1815 | | Execute Package,Field_Execute,Field_Number 0x15
081a 00d1 | | Pop_Control Pop_Count_1
081b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
081c e5fd | | Load 0x2,-0x3
081d 824d | M | Call 0x1,0x4d
081e 6808 |h | Jump_Zero 0x827
081f 00d8 | | Load_Top At_Offset_0
0820 e5fe | | Load 0x2,-0x2
0821 e5ff | | Load 0x2,-0x1
0822 e232 | 2 | Load 0x1,0x32
0823 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0824 00d1 | | Pop_Control Pop_Count_1
0825 0059 | Y | Store_Top Discrete,At_Offset_1
0826 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0827 e5fd | | Load 0x2,-0x3
0828 824f | O | Call 0x1,0x4f
0829 6831 |h1 | Jump_Zero 0x85b
082a e5fd | | Load 0x2,-0x3
082b 807e | ~ | Call 0x0,0x7e
082c 807f | | Call 0x0,0x7f
082d 6819 |h | Jump_Zero 0x847
082e 00d8 | | Load_Top At_Offset_0
082f e5fd | | Load 0x2,-0x3
0830 8080 | | Call 0x0,0x80
0831 0f00 | | Execute_Immediate Equal,0x0
0832 e5fd | | Load 0x2,-0x3
0833 8081 | | Call 0x0,0x81
0834 00d8 | | Load_Top At_Offset_0
0835 00e4 | | Load_Encached Positive_Cache
0836 0260 | ` | Execute Discrete,In_Type
0837 7001 |p | Jump_Nonzero 0x839
0838 0801 | | Execute_Immediate Raise,0x1
0839 e5fd | | Load 0x2,-0x3
083a 8082 | | Call 0x0,0x82
083b e5fd | | Load 0x2,-0x3
083c 8083 | | Call 0x0,0x83
083d e5fd | | Load 0x2,-0x3
083e 8084 | | Call 0x0,0x84
083f e5fd | | Load 0x2,-0x3
0840 8085 | | Call 0x0,0x85
0841 8086 | | Call 0x0,0x86
0842 8049 | I | Call 0x0,0x49
0843 e5ff | | Load 0x2,-0x1
0844 e232 | 2 | Load 0x1,0x32
0845 180f | | Execute Package,Field_Execute,Field_Number 0xf
0846 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0847 00d8 | | Load_Top At_Offset_0
0848 e5fd | | Load 0x2,-0x3
0849 8080 | | Call 0x0,0x80
084a 0f00 | | Execute_Immediate Equal,0x0
084b e5fd | | Load 0x2,-0x3
084c 8081 | | Call 0x0,0x81
084d 00d8 | | Load_Top At_Offset_0
084e 00e4 | | Load_Encached Positive_Cache
084f 0260 | ` | Execute Discrete,In_Type
0850 7001 |p | Jump_Nonzero 0x852
0851 0801 | | Execute_Immediate Raise,0x1
0852 e5fd | | Load 0x2,-0x3
0853 8082 | | Call 0x0,0x82
0854 e5fd | | Load 0x2,-0x3
0855 807e | ~ | Call 0x0,0x7e
0856 8037 | 7 | Call 0x0,0x37
0857 e5ff | | Load 0x2,-0x1
0858 e232 | 2 | Load 0x1,0x32
0859 180f | | Execute Package,Field_Execute,Field_Number 0xf
085a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
085b e5fd | | Load 0x2,-0x3
085c 8250 | P | Call 0x1,0x50
085d 6812 |h | Jump_Zero 0x870
085e e5fe | | Load 0x2,-0x2
085f e5fd | | Load 0x2,-0x3
0860 807d | } | Call 0x0,0x7d
0861 8036 | 6 | Call 0x0,0x36
0862 00da | | Load_Top At_Offset_2
0863 e5fd | | Load 0x2,-0x3
0864 8083 | | Call 0x0,0x83
0865 e5fd | | Load 0x2,-0x3
0866 8084 | | Call 0x0,0x84
0867 e5fd | | Load 0x2,-0x3
0868 8082 | | Call 0x0,0x82
0869 e5fd | | Load 0x2,-0x3
086a 808a | | Call 0x0,0x8a
086b e5ff | | Load 0x2,-0x1
086c e232 | 2 | Load 0x1,0x32
086d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
086e 00d1 | | Pop_Control Pop_Count_1
086f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0870 e5fd | | Load 0x2,-0x3
0871 8251 | Q | Call 0x1,0x51
0872 6810 |h | Jump_Zero 0x883
0873 00d8 | | Load_Top At_Offset_0
0874 e5fd | | Load 0x2,-0x3
0875 8085 | | Call 0x0,0x85
0876 8086 | | Call 0x0,0x86
0877 e5fd | | Load 0x2,-0x3
0878 8083 | | Call 0x0,0x83
0879 e5fd | | Load 0x2,-0x3
087a 8084 | | Call 0x0,0x84
087b e5fd | | Load 0x2,-0x3
087c 8082 | | Call 0x0,0x82
087d e5fd | | Load 0x2,-0x3
087e 808a | | Call 0x0,0x8a
087f e5ff | | Load 0x2,-0x1
0880 e232 | 2 | Load 0x1,0x32
0881 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0882 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0883 e5fd | | Load 0x2,-0x3
0884 8254 | T | Call 0x1,0x54
0885 6811 |h | Jump_Zero 0x897
0886 00d8 | | Load_Top At_Offset_0
0887 e5fd | | Load 0x2,-0x3
0888 8087 | | Call 0x0,0x87
0889 e5fd | | Load 0x2,-0x3
088a 8088 | | Call 0x0,0x88
088b e5fd | | Load 0x2,-0x3
088c 8083 | | Call 0x0,0x83
088d e5fd | | Load 0x2,-0x3
088e 8084 | | Call 0x0,0x84
088f e5fd | | Load 0x2,-0x3
0890 8082 | | Call 0x0,0x82
0891 e5fd | | Load 0x2,-0x3
0892 8089 | | Call 0x0,0x89
0893 e5ff | | Load 0x2,-0x1
0894 e232 | 2 | Load 0x1,0x32
0895 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0896 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0897 e5fd | | Load 0x2,-0x3
0898 8252 | R | Call 0x1,0x52
0899 7003 |p | Jump_Nonzero 0x89d
089a e5fd | | Load 0x2,-0x3
089b 8253 | S | Call 0x1,0x53
089c 680f |h | Jump_Zero 0x8ac
089d 00d8 | | Load_Top At_Offset_0
089e e5fd | | Load 0x2,-0x3
089f 8087 | | Call 0x0,0x87
08a0 e5fd | | Load 0x2,-0x3
08a1 8083 | | Call 0x0,0x83
08a2 e5fd | | Load 0x2,-0x3
08a3 8084 | | Call 0x0,0x84
08a4 e5fd | | Load 0x2,-0x3
08a5 8082 | | Call 0x0,0x82
08a6 e5fd | | Load 0x2,-0x3
08a7 8089 | | Call 0x0,0x89
08a8 e5ff | | Load 0x2,-0x1
08a9 e232 | 2 | Load 0x1,0x32
08aa 181e | | Execute Package,Field_Execute,Field_Number 0x1e
08ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08ac e226 | & | Load 0x1,0x26
08ad 0257 | W | Execute Discrete,Raise
08ae 0000 0000 | | .XXX[0x2]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b3 | | .CONST 0x08b3 ; Address of begin
08b1 0004 | | .CONST 0x0004 ; Address of exception handler
08b2 0001 | | .CONST 0x0001 ; Number of locals
08b3 BODY_08b0:
08b3 BODY_08b0:
08b3 INIT_08b0:
08b3 INIT_08b0:
08b3 e5fd | | Load 0x2,-0x3
08b4 e5fe | | Load 0x2,-0x2
08b5 e5ff | | Load 0x2,-0x1
08b6 e00e | | Load 0x0,0xe
08b7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
08b8 00d9 | | Load_Top At_Offset_1
08b9 00d0 | | Action Swap_Control
08ba 0260 | ` | Execute Discrete,In_Type
08bb 7001 |p | Jump_Nonzero 0x8bd
08bc 0801 | | Execute_Immediate Raise,0x1
08bd 8256 | V | Call 0x1,0x56
08be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08bf 0000 | | .XXX[0x1]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3 | | .CONST 0x08c3 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0001 | | .CONST 0x0001 ; Number of locals
08c3 BODY_08c0:
08c3 BODY_08c0:
08c3 INIT_08c0:
08c3 INIT_08c0:
08c3 e5fd | | Load 0x2,-0x3
08c4 00d8 | | Load_Top At_Offset_0
08c5 00e2 | | Load_Encached Integer_Cache
08c6 0260 | ` | Execute Discrete,In_Type
08c7 7001 |p | Jump_Nonzero 0x8c9
08c8 0801 | | Execute_Immediate Raise,0x1
08c9 e5fe | | Load 0x2,-0x2
08ca e5ff | | Load 0x2,-0x1
08cb e00e | | Load 0x0,0xe
08cc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
08cd 00d9 | | Load_Top At_Offset_1
08ce 00d0 | | Action Swap_Control
08cf 0260 | ` | Execute Discrete,In_Type
08d0 7001 |p | Jump_Nonzero 0x8d2
08d1 0801 | | Execute_Immediate Raise,0x1
08d2 823d | = | Call 0x1,0x3d
08d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
08d4 0000 0000 | | .BLANK 0000[0x4]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08db | | .CONST 0x08db ; Address of begin
08d9 0004 | | .CONST 0x0004 ; Address of exception handler
08da 0001 | | .CONST 0x0001 ; Number of locals
08db BODY_08d8:
08db INIT_08d8:
08db e5fd | | Load 0x2,-0x3
08dc e5fe | | Load 0x2,-0x2
08dd e5ff | | Load 0x2,-0x1
08de e232 | 2 | Load 0x1,0x32
08df 1814 | | Execute Package,Field_Execute,Field_Number 0x14
08e0 00d1 | | Pop_Control Pop_Count_1
08e1 c5fd | | Store 0x2,-0x3
08e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08e3 0000 0000 | | .BLANK 0000[0x5]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb | | .CONST 0x08eb ; Address of begin
08e9 0004 | | .CONST 0x0004 ; Address of exception handler
08ea 0001 | | .CONST 0x0001 ; Number of locals
08eb BODY_08e8:
08eb INIT_08e8:
08eb e5fd | | Load 0x2,-0x3
08ec e002 | | Load 0x0,0x2
08ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08ee 025e | ^ | Execute Discrete,Convert
08ef e5fe | | Load 0x2,-0x2
08f0 e5ff | | Load 0x2,-0x1
08f1 e00e | | Load 0x0,0xe
08f2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
08f3 00d9 | | Load_Top At_Offset_1
08f4 00d0 | | Action Swap_Control
08f5 0260 | ` | Execute Discrete,In_Type
08f6 7001 |p | Jump_Nonzero 0x8f8
08f7 0801 | | Execute_Immediate Raise,0x1
08f8 8265 | e | Call 0x1,0x65
08f9 00d1 | | Pop_Control Pop_Count_1
08fa c5fd | | Store 0x2,-0x3
08fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08fc 0000 0000 | | .BLANK 0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903 | | .CONST 0x0903 ; Address of begin
0901 0004 | | .CONST 0x0004 ; Address of exception handler
0902 0001 | | .CONST 0x0001 ; Number of locals
0903 BODY_0900:
0903 INIT_0900:
0903 00db | | Load_Top At_Offset_3
0904 6806 |h | Jump_Zero 0x90b
0905 e5fc | | Load 0x2,-0x4
0906 e5fd | | Load 0x2,-0x3
0907 e5ff | | Load 0x2,-0x1
0908 e232 | 2 | Load 0x1,0x32
0909 181a | | Execute Package,Field_Execute,Field_Number 0x1a
090a 7803 |x | Jump 0x90e
090b e5fc | | Load 0x2,-0x4
090c e232 | 2 | Load 0x1,0x32
090d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
090e e01e | | Load 0x0,0x1e
090f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0910 c5fb | | Store 0x2,-0x5
0911 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0912 0000 0000 | | .BLANK 0000[0x6]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091b | | .CONST 0x091b ; Address of begin
0919 0923 | # | .CONST 0x0923 ; Address of exception handler
091a 0001 | | .CONST 0x0001 ; Number of locals
091b BODY_0918:
091b INIT_0918:
091b e003 | | Load 0x0,0x3
091c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
091d e5ff | | Load 0x2,-0x1
091e e00a | | Load 0x0,0xa
091f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0920 e003 | | Load 0x0,0x3
0921 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0922 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0923 TRAP_0918:
0923 0007 | | Action Break_Optional
0924 0092 096c | l| Action Push_String_Extended,0x96c ; "Exception raised setting break mask"
0926 e01e | | Load 0x0,0x1e
0927 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0928 c5fe | | Store 0x2,-0x2
0929 4501 |E | Exit_Suprogram New_Top_Offset 0x1
092a 0000 0000 | | .BLANK 0000[0x6]
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933 | 3 | .CONST 0x0933 ; Address of begin
0931 0937 | 7 | .CONST 0x0937 ; Address of exception handler
0932 0001 | | .CONST 0x0001 ; Number of locals
0933 BODY_0930:
0933 INIT_0930:
0933 e5ff | | Load 0x2,-0x1
0934 e095 | | Load 0x0,0x95
0935 180f | | Execute Package,Field_Execute,Field_Number 0xf
0936 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0937 TRAP_0930:
0937 0007 | | Action Break_Optional
0938 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0939 0000 0000 | | .BLANK 0000[0x7]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943 | C | .CONST 0x0943 ; Address of begin
0941 0947 | G | .CONST 0x0947 ; Address of exception handler
0942 0001 | | .CONST 0x0001 ; Number of locals
0943 BODY_0940:
0943 INIT_0940:
0943 e5fe | | Load 0x2,-0x2
0944 e5ff | | Load 0x2,-0x1
0945 8091 | | Call 0x0,0x91
0946 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0947 TRAP_0940:
0947 e052 | R | Load 0x0,0x52
0948 010f | | Execute Exception,Equal
0949 680c |h | Jump_Zero 0x956
094a 4801 |H | Short_Literal 0x1
094b 4801 |H | Short_Literal 0x1
094c e5ff | | Load 0x2,-0x1
094d 8045 | E | Call 0x0,0x45
094e 4800 |H | Short_Literal 0x0
094f 809e | | Call 0x0,0x9e
0950 e5ff | | Load 0x2,-0x1
0951 809f | | Call 0x0,0x9f
0952 e5fe | | Load 0x2,-0x2
0953 e5ff | | Load 0x2,-0x1
0954 8091 | | Call 0x0,0x91
0955 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0956 0100 | | Execute Exception,Raise
0957 ; --------------------------------------------------------------------------------------
0957 ; STRING TABLE
0957 ; --------------------------------------------------------------------------------------
0957 002e | . | .STRTAB 0x002e->0x096e ; "Illegal item type"
0958 003d | = | .STRTAB 0x003d->0x0976 ; "No code generated for this statement"
0959 005f | _ | .STRTAB 0x005f->0x0988 ; "Item requires unimplemented facility"
095a 0081 | | .STRTAB 0x0081->0x099a ; "Exception raised:"
095b 0090 | | .STRTAB 0x0090->0x09a3 ; "Task unknown or terminated"
095c 00a8 | | .STRTAB 0x00a8->0x09b0 ; "Too many action items"
095d 00bb | | .STRTAB 0x00bb->0x09ba ; "Return stepping illegal from task body"
095e 00df | | .STRTAB 0x00df->0x09cd ; "Illegal Pc value"
095f 00ed | | .STRTAB 0x00ed->0x09d5 ; "Unable to set task interface subprogram"
0960 0112 | | .STRTAB 0x0112->0x09e9 ; "Disable_Debugging exception"
0961 012b | + | .STRTAB 0x012b->0x09f6 ; "*** Internal Error: "
0962 013d | = | .STRTAB 0x013d->0x0a00 ; "Process: Special item on control list"
0963 0160 | ` | .STRTAB 0x0160->0x0a13 ; "Process: unknown class"
0964 0174 | t | .STRTAB 0x0174->0x0a1e ; "Profile unimplemented"
0965 0187 | | .STRTAB 0x0187->0x0a28 ; "Continue unexpected"
0966 0198 | | .STRTAB 0x0198->0x0a32 ; "Process: Exception item on control list"
0967 01bd | | .STRTAB 0x01bd->0x0a45 ; "Process: Special item on exception list"
0968 01e2 | | .STRTAB 0x01e2->0x0a59 ; "Process: Control item on exception list"
0969 0207 | | .STRTAB 0x0207->0x0a6c ; "Process: Other_Action undefined"
096a 0224 | $ | .STRTAB 0x0224->0x0a7c ; "Process: Continue unexpected"
096b 023e | > | .STRTAB 0x023e->0x0a8a ; "Illegal internal call: "
096c 0253 | S | .STRTAB 0x0253->0x0a95 ; "Exception raised setting break mask"
096d 0274 | t | .STREND 0x0274->0x0aa7
096e 496c 6c65 |Ille| .STRTAB_STRINGS
0aa7 0000 | | .XXX[0x1]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; Debug Table
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0004 0007 | | .DEBUG4 0x0004,0x0007,0x8197,0x0000,0x0001,0x0000
0aae 8081 85b9 | | .XXX[0xd6]
0ab0 9081 8481 | |
0ab2 b595 cdcd | |
0ab4 859d 9481 | |
0ab6 a5cc 8191 | |
0ab8 a5cd c1b1 | |
0aba 85e5 9590 | |
0abc 81a5 b881 | |
0abe d1a1 9481 | |
0ac0 1195 89d5 | |
0ac2 9d9d 95c8 | |
0ac4 81dd a5b9 | |
0ac6 91bd dcb8 | |
0ac8 8081 05b8 | |
0aca 8195 e185 | |
0acc b5c1 b194 | |
0ace 81bd 9828 | (|
0ad0 8081 d1a1 | |
0ad2 a5cc 81b5 | |
0ad4 95cd cd85 | |
0ad6 9d94 81a5 | |
0ad8 cce8 2880 | ( |
0ada 8080 8080 | |
0adc 8109 c995 | |
0ade 85ac 8080 | |
0ae0 c8e8 8080 | |
0ae2 b949 150d | I |
0ae4 5549 4d25 |UIM%|
0ae6 5915 7d0d |Y } |
0ae8 0531 314c | 11L|
0aea b8cd cc80 | |
0aec 816d 5185 | mQ |
0aee cdac 80e8 | |
0af0 8149 3d3d | I==|
0af2 517d 5105 |Q}Q |
0af4 4d2c b080 |M, |
0af6 8cd8 dcd1 | |
0af8 10e1 74b8 | t |
0afa 2880 8080 |( |
0afc 8080 8109 | |
0afe c995 85ad | |
0b00 c1bd a5b9 | |
0b02 d080 c881 | |
0b04 9195 858d | |
0b06 d1a5 d985 | |
0b08 d195 90b8 | |
0b0a 2828 8081 |(( |
0b0c 51a1 9481 |Q |
0b0e b595 cdcd | |
0b10 859d 9481 | |
0b12 cdc1 958d | |
0b14 a599 a595 | |
0b16 cc81 d1a1 | |
0b18 9481 89c9 | |
0b1a 9585 adc1 | |
0b1c bda5 b9d0 | |
0b1e 81b9 d5b5 | |
0b20 8995 c8b0 | |
0b22 81d1 a194 | |
0b24 81b1 bd8d | |
0b26 85d1 a5bd | |
0b28 b881 dda1 | |
0b2a 95c9 9428 | (|
0b2c 8081 d1a1 | |
0b2e 9481 d185 | |
0b30 cdac 81a1 | |
0b32 85cc 81cd | |
0b34 d1bd c1c1 | |
0b36 9590 b081 | |
0b38 85b9 9081 | |
0b3a d1a1 9481 | |
0b3c d185 cdac | |
0b3e 81b9 85b5 | |
0b40 94b8 8081 | |
0b42 25d0 8185 |% |
0b44 b1cd bc81 | |
0b46 a5b9 91a5 | |
0b48 8d85 d195 | |
0b4a cc81 d1a1 | |
0b4c 85d0 2880 | ( |
0b4e 8189 c995 | |
0b50 85ad c1bd | |
0b52 a5b9 d080 | |
0b54 c881 dd85 | |
0b56 cc81 d195 | |
0b58 b5c1 bdc9 | |
0b5a 85c9 e481 | |
0b5c 85b9 9081 | |
0b5e a185 cc81 | |
0b60 8995 95b8 | |
0b62 8191 9585 | |
0b64 8dd1 a5d9 | |
0b66 85d1 9590 | |
0b68 b828 8081 | ( |
0b6a 01b9 bd91 | |
0b6c 9480 850d | |
0b6e bdb5 b585 | |
0b70 b991 ccb9 | |
0b72 1195 89d5 | |
0b74 9cb9 0d85 | |
0b76 d18d a028 | (|
0b78 2880 81c1 |( |
0b7a c9bd 8d95 | |
0b7c 91d5 c994 | |
0b7e 810d 85d1 | |
0b80 8da0 80a1 | |
0b82 3985 b594 |9 |
0b84 8080 8080 | | .BLANK 8080[0x4]
0b88 e881 15e1 | | .XXX[0x12]
0b8a 8d95 c1d1 | |
0b8c a5bd b97d | }|
0b8e 3985 b594 |9 |
0b90 80e8 f480 | |
0b92 88f1 4d15 | M |
0b94 3115 0d51 |1 Q|
0b96 253d 38f8 |%=8 |
0b98 88ec 2880 | ( |
0b9a 8080 8080 | | .BLANK 8080[0x8]
0ba2 8125 b97d | % }| .XXX[0x13]
0ba4 5185 cdac |Q |
0ba6 8080 8080 | |
0ba8 80e8 8151 | Q|
0baa 85cd ad7d | }|
0bac 3985 b594 |9 |
0bae 8080 8080 | |
0bb0 8080 e8f4 | |
0bb2 8088 88ec | |
0bb4 2880 |( |
0bb5 8080 8080 | | .BLANK 8080[0x8]
0bbd 8105 d17d | }| .XXX[0x43]
0bbf 31bd 8d85 |1 |
0bc1 d1a5 bdb8 | |
0bc3 80e8 8141 | A|
0bc5 85d1 a17d | }|
0bc7 3985 b594 |9 |
0bc9 8080 8080 | |
0bcb 8080 e8f4 | |
0bcd 8088 88a4 | |
0bcf ec28 2880 | (( |
0bd1 814d d1bd | M |
0bd3 c1cc 8195 | |
0bd5 e195 8dd5 | |
0bd7 d1a5 bdb8 | |
0bd9 81dd a195 | |
0bdb b995 d995 | |
0bdd c881 d1a1 | |
0bdf 9481 b985 | |
0be1 b595 9081 | |
0be3 bdc8 81cd | |
0be5 95b1 958d | |
0be7 d195 9081 | |
0be9 95e1 8d95 | |
0beb c1d1 a5bd | |
0bed b881 a5cc | |
0bef 81c9 85a5 | |
0bf1 cd95 9028 | (|
0bf3 8081 a5b8 | |
0bf5 81d1 a194 | |
0bf7 81cd c195 | |
0bf9 8da5 99a5 | |
0bfb 9590 81d1 | |
0bfd 85cd aca1 | |
0bff cca4 | |