|
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_03c0fe
└─⟦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 0b20 | | .CONST 0x0b20 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01e3 | | .CONST 0x01e3 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 006f | o | .CONST 0x006f ; Number of locals
000b INIT_0008:
000b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
000d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
000f 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0011 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0013 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
0015 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0017 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
0019 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
001b 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
001d 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
001f 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
0021 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
0023 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
0025 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
0027 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
0029 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
002b 00bf | | Action Accept_Activation
002c 0092 09b7 | | Action Push_String_Extended,0x9b7 ; "Illegal item type"
002e 0092 09b8 | | Action Push_String_Extended,0x9b8 ; "No code generated for this statement"
0030 0092 09b9 | | Action Push_String_Extended,0x9b9 ; "Item requires unimplemented facility"
0032 0092 09ba | | Action Push_String_Extended,0x9ba ; "Exception raised:"
0034 0092 09bb | | Action Push_String_Extended,0x9bb ; "Task unknown or terminated"
0036 0092 09bc | | Action Push_String_Extended,0x9bc ; "Too many action items"
0038 0092 09bd | | Action Push_String_Extended,0x9bd ; "Return stepping illegal from task body"
003a 0092 09be | | Action Push_String_Extended,0x9be ; "Illegal Pc value"
003c 0093 0000 | | push_full_address 0x0
003e 61e1 |a | Indirect_Literal Discrete,0x220,{0x80000000, 0x00010000}
003f 0273 | s | Execute Discrete,Plus
0040 0007 | | Action Break_Optional
0041 0093 0000 | | push_full_address 0x0
0043 61d8 |a | Indirect_Literal Discrete,0x21c,{0x80000000, 0x00020000}
0044 0273 | s | Execute Discrete,Plus
0045 0007 | | Action Break_Optional
0046 0093 0000 | | push_full_address 0x0
0048 61cf |a | Indirect_Literal Discrete,0x218,{0x80000000, 0x00030000}
0049 0273 | s | Execute Discrete,Plus
004a 0007 | | Action Break_Optional
004b 0093 0000 | | push_full_address 0x0
004d 61c6 |a | Indirect_Literal Discrete,0x214,{0x80000000, 0x00040000}
004e 0273 | s | Execute Discrete,Plus
004f 0007 | | Action Break_Optional
0050 e002 | | Load 0x0,0x2
0051 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0052 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0053 e003 | | Load 0x0,0x3
0054 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0055 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0056 e003 | | Load 0x0,0x3
0057 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0058 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0059 8004 | | Call 0x0,0x4
005a e005 | | Load 0x0,0x5
005b 03f1 | | Declare_Variable Discrete,With_Value
005c 8006 | | Call 0x0,0x6
005d e005 | | Load 0x0,0x5
005e 03f1 | | Declare_Variable Discrete,With_Value
005f e007 | | Load 0x0,0x7
0060 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0061 e008 | | Load 0x0,0x8
0062 0322 | " | Declare_Variable Record
0063 00d8 | | Load_Top At_Offset_0
0064 1c01 | | Execute_Immediate Run_Utility,0x1
0065 e009 | | Load 0x0,0x9
0066 00d9 | | Load_Top At_Offset_1
0067 017d | } | Execute Record,Structure_Write
0068 e003 | | Load 0x0,0x3
0069 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
006a 02c7 | | Declare_Variable Any
006b e00a | | Load 0x0,0xa
006c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
006d a230 | 0 | Store_Unchecked 0x1,0x30
006e e00b | | Load 0x0,0xb
006f 0322 | " | Declare_Variable Record
0070 e00c | | Load 0x0,0xc
0071 00d9 | | Load_Top At_Offset_1
0072 017d | } | Execute Record,Structure_Write
0073 00e2 | | Load_Encached Integer_Cache
0074 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0075 4800 |H | Short_Literal 0x0
0076 4804 |H | Short_Literal 0x4
0077 e001 | | Load 0x0,0x1
0078 01d7 | | Execute Vector,Field_Read
0079 02a0 | | Declare_Subprogram Null_Subprogram
007a 038e | | Declare_Type Package,Defined
007b e001 | | Load 0x0,0x1
007c 4803 |H | Short_Literal 0x3
007d e001 | | Load 0x0,0x1
007e 01d7 | | Execute Vector,Field_Read
007f e002 | | Load 0x0,0x2
0080 4803 |H | Short_Literal 0x3
0081 e233 | 3 | Load 0x1,0x33
0082 020e | | Execute Module,Augment_Imports
0083 0387 | | Declare_Variable Package
0084 4800 |H | Short_Literal 0x0
0085 4802 |H | Short_Literal 0x2
0086 e001 | | Load 0x0,0x1
0087 01d7 | | Execute Vector,Field_Read
0088 02a0 | | Declare_Subprogram Null_Subprogram
0089 038e | | Declare_Type Package,Defined
008a e001 | | Load 0x0,0x1
008b 4801 |H | Short_Literal 0x1
008c e001 | | Load 0x0,0x1
008d 01d7 | | Execute Vector,Field_Read
008e 4802 |H | Short_Literal 0x2
008f 00db | | Load_Top At_Offset_3
0090 020e | | Execute Module,Augment_Imports
0091 0387 | | Declare_Variable Package
0092 00e1 | | Load_Encached Boolean_Cache
0093 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0094 e229 | ) | Load 0x1,0x29
0095 0007 | | Action Break_Optional
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 00e1 | | Load_Encached Boolean_Cache
009d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009e 800d | | Call 0x0,0xd
009f e00e | | Load 0x0,0xe
00a0 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00a1 03f1 | | Declare_Variable Discrete,With_Value
00a2 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
00a4 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call
00a6 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call
00a8 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call
00aa 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call
00ac 029d 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call
00ae 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
00b0 a00f | | Store_Unchecked 0x0,0xf
00b1 00c6 | | Action Check_Subprogram_Elaborated
00b2 00e2 | | Load_Encached Integer_Cache
00b3 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
00b4 4800 |H | Short_Literal 0x0
00b5 0093 0000 | | push_full_address 0x0
00b7 6158 |aX | Indirect_Literal Discrete,0x210,{0x80000000, 0x00040000}
00b8 0273 | s | Execute Discrete,Plus
00b9 e010 | | Load 0x0,0x10
00ba 0273 | s | Execute Discrete,Plus
00bb e011 | | Load 0x0,0x11
00bc 0273 | s | Execute Discrete,Plus
00bd 4800 |H | Short_Literal 0x0
00be 0007 | | Action Break_Optional
00bf 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call
00c1 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call
00c3 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
00c5 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
00c7 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
00c9 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00ca 00c7 | | Action Elaborate_Subprogram
00cb 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call
00cd 029d 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call
00cf 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call
00d1 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call
00d3 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call
00d5 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call
00d7 029d 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call
00d9 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call
00db 029d 080b | | Declare_Subprogram INIT_0808,For_Outer_Call
00dd 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call
00df 029d 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call
00e1 029d 0913 | | Declare_Subprogram INIT_0910,For_Outer_Call
00e3 a00f | | Store_Unchecked 0x0,0xf
00e4 00c6 | | Action Check_Subprogram_Elaborated
00e5 e012 | | Load 0x0,0x12
00e6 1d58 | X | Execute_Immediate Reference_Lex_1,0x58
00e7 4800 |H | Short_Literal 0x0
00e8 0093 0000 | | push_full_address 0x0
00ea 6121 |a! | Indirect_Literal Discrete,0x20c,{0x80000000, 0x00030000}
00eb 0273 | s | Execute Discrete,Plus
00ec e010 | | Load 0x0,0x10
00ed 0273 | s | Execute Discrete,Plus
00ee e013 | | Load 0x0,0x13
00ef 0273 | s | Execute Discrete,Plus
00f0 4800 |H | Short_Literal 0x0
00f1 0007 | | Action Break_Optional
00f2 029d 0913 | | Declare_Subprogram INIT_0910,For_Outer_Call
00f4 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call
00f6 a014 | | Store_Unchecked 0x0,0x14
00f7 00c6 | | Action Check_Subprogram_Elaborated
00f8 00e2 | | Load_Encached Integer_Cache
00f9 e012 | | Load 0x0,0x12
00fa 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e
00fb 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
00fc 0093 0000 | | push_full_address 0x0
00fe 6109 |a | Indirect_Literal Discrete,0x208,{0x80000000, 0x00020000}
00ff 0273 | s | Execute Discrete,Plus
0100 e010 | | Load 0x0,0x10
0101 0273 | s | Execute Discrete,Plus
0102 e015 | | Load 0x0,0x15
0103 0273 | s | Execute Discrete,Plus
0104 4800 |H | Short_Literal 0x0
0105 0007 | | Action Break_Optional
0106 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0107 00c7 | | Action Elaborate_Subprogram
0108 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call
010a 029d 094b | K| Declare_Subprogram INIT_0948,For_Outer_Call
010c 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call
010e a014 | | Store_Unchecked 0x0,0x14
010f 00c6 | | Action Check_Subprogram_Elaborated
0110 00e2 | | Load_Encached Integer_Cache
0111 e002 | | Load 0x0,0x2
0112 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0113 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
0114 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
0115 0093 0000 | | push_full_address 0x0
0117 60ec |` | Indirect_Literal Discrete,0x204,{0x80000000, 0x00010000}
0118 0273 | s | Execute Discrete,Plus
0119 e010 | | Load 0x0,0x10
011a 0273 | s | Execute Discrete,Plus
011b e016 | | Load 0x0,0x16
011c 0273 | s | Execute Discrete,Plus
011d 4800 |H | Short_Literal 0x0
011e 0007 | | Action Break_Optional
011f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0120 00c7 | | Action Elaborate_Subprogram
0121 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0122 00c7 | | Action Elaborate_Subprogram
0123 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0124 00c7 | | Action Elaborate_Subprogram
0125 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0126 00c7 | | Action Elaborate_Subprogram
0127 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0128 00c7 | | Action Elaborate_Subprogram
0129 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call
012b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
012c 00c7 | | Action Elaborate_Subprogram
012d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
012e 00c7 | | Action Elaborate_Subprogram
012f 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0130 00c7 | | Action Elaborate_Subprogram
0131 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0132 00c7 | | Action Elaborate_Subprogram
0133 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0134 00c7 | | Action Elaborate_Subprogram
0135 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0136 00c7 | | Action Elaborate_Subprogram
0137 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0138 00c7 | | Action Elaborate_Subprogram
0139 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
013a 00c7 | | Action Elaborate_Subprogram
013b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
013c 00c7 | | Action Elaborate_Subprogram
013d a00f | | Store_Unchecked 0x0,0xf
013e e017 | | Load 0x0,0x17
013f e010 | | Load 0x0,0x10
0140 e018 | | Load 0x0,0x18
0141 e019 | | Load 0x0,0x19
0142 e01a | | Load 0x0,0x1a
0143 a014 | | Store_Unchecked 0x0,0x14
0144 e01b | | Load 0x0,0x1b
0145 e01c | | Load 0x0,0x1c
0146 e01d | | Load 0x0,0x1d
0147 e01e | | Load 0x0,0x1e
0148 e01f | | Load 0x0,0x1f
0149 e00b | | Load 0x0,0xb
014a e008 | | Load 0x0,0x8
014b e003 | | Load 0x0,0x3
014c a020 | | Store_Unchecked 0x0,0x20
014d e021 | ! | Load 0x0,0x21
014e e022 | " | Load 0x0,0x22
014f a023 | # | Store_Unchecked 0x0,0x23
0150 a024 | $ | Store_Unchecked 0x0,0x24
0151 a025 | % | Store_Unchecked 0x0,0x25
0152 a026 | & | Store_Unchecked 0x0,0x26
0153 a027 | ' | Store_Unchecked 0x0,0x27
0154 a028 | ( | Store_Unchecked 0x0,0x28
0155 e029 | ) | Load 0x0,0x29
0156 e007 | | Load 0x0,0x7
0157 a02a | * | Store_Unchecked 0x0,0x2a
0158 a02b | + | Store_Unchecked 0x0,0x2b
0159 a02c | , | Store_Unchecked 0x0,0x2c
015a a02d | - | Store_Unchecked 0x0,0x2d
015b a02e | . | Store_Unchecked 0x0,0x2e
015c a02f | / | Store_Unchecked 0x0,0x2f
015d a030 | 0 | Store_Unchecked 0x0,0x30
015e a031 | 1 | Store_Unchecked 0x0,0x31
015f e032 | 2 | Load 0x0,0x32
0160 a033 | 3 | Store_Unchecked 0x0,0x33
0161 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0162 e034 | 4 | Load 0x0,0x34
0163 e00e | | Load 0x0,0xe
0164 4827 |H' | Short_Literal 0x27
0165 e234 | 4 | Load 0x1,0x34
0166 020e | | Execute Module,Augment_Imports
0167 e234 | 4 | Load 0x1,0x34
0168 020f | | Execute Module,Activate
0169 e003 | | Load 0x0,0x3
016a e008 | | Load 0x0,0x8
016b e00b | | Load 0x0,0xb
016c e007 | | Load 0x0,0x7
016d e035 | 5 | Load 0x0,0x35
016e e005 | | Load 0x0,0x5
016f a02e | . | Store_Unchecked 0x0,0x2e
0170 e01e | | Load 0x0,0x1e
0171 a036 | 6 | Store_Unchecked 0x0,0x36
0172 a037 | 7 | Store_Unchecked 0x0,0x37
0173 a038 | 8 | Store_Unchecked 0x0,0x38
0174 a039 | 9 | Store_Unchecked 0x0,0x39
0175 e00c | | Load 0x0,0xc
0176 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0177 e03a | : | Load 0x0,0x3a
0178 a00f | | Store_Unchecked 0x0,0xf
0179 e010 | | Load 0x0,0x10
017a e03b | ; | Load 0x0,0x3b
017b a014 | | Store_Unchecked 0x0,0x14
017c e03c | < | Load 0x0,0x3c
017d e03d | = | Load 0x0,0x3d
017e e03e | > | Load 0x0,0x3e
017f e03f | ? | Load 0x0,0x3f
0180 e040 | @ | Load 0x0,0x40
0181 e00a | | Load 0x0,0xa
0182 a041 | A | Store_Unchecked 0x0,0x41
0183 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0184 a004 | | Store_Unchecked 0x0,0x4
0185 a042 | B | Store_Unchecked 0x0,0x42
0186 a043 | C | Store_Unchecked 0x0,0x43
0187 a044 | D | Store_Unchecked 0x0,0x44
0188 a045 | E | Store_Unchecked 0x0,0x45
0189 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
018a e00e | | Load 0x0,0xe
018b 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
018c 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
018d e046 | F | Load 0x0,0x46
018e e047 | G | Load 0x0,0x47
018f a048 | H | Store_Unchecked 0x0,0x48
0190 a049 | I | Store_Unchecked 0x0,0x49
0191 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0192 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0193 a04a | J | Store_Unchecked 0x0,0x4a
0194 a00d | | Store_Unchecked 0x0,0xd
0195 e04b | K | Load 0x0,0x4b
0196 e04c | L | Load 0x0,0x4c
0197 a04d | M | Store_Unchecked 0x0,0x4d
0198 a04e | N | Store_Unchecked 0x0,0x4e
0199 a04f | O | Store_Unchecked 0x0,0x4f
019a a050 | P | Store_Unchecked 0x0,0x50
019b a051 | Q | Store_Unchecked 0x0,0x51
019c e052 | R | Load 0x0,0x52
019d a053 | S | Store_Unchecked 0x0,0x53
019e e054 | T | Load 0x0,0x54
019f e034 | 4 | Load 0x0,0x34
01a0 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
01a1 a055 | U | Store_Unchecked 0x0,0x55
01a2 a056 | V | Store_Unchecked 0x0,0x56
01a3 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
01a4 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
01a5 a057 | W | Store_Unchecked 0x0,0x57
01a6 e058 | X | Load 0x0,0x58
01a7 e059 | Y | Load 0x0,0x59
01a8 e05a | Z | Load 0x0,0x5a
01a9 e05b | [ | Load 0x0,0x5b
01aa e05c | \ | Load 0x0,0x5c
01ab e05d | ] | Load 0x0,0x5d
01ac e05e | ^ | Load 0x0,0x5e
01ad a05f | _ | Store_Unchecked 0x0,0x5f
01ae a060 | ` | Store_Unchecked 0x0,0x60
01af 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
01b0 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
01b1 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
01b2 a061 | a | Store_Unchecked 0x0,0x61
01b3 e062 | b | Load 0x0,0x62
01b4 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
01b5 a063 | c | Store_Unchecked 0x0,0x63
01b6 a064 | d | Store_Unchecked 0x0,0x64
01b7 a065 | e | Store_Unchecked 0x0,0x65
01b8 a066 | f | Store_Unchecked 0x0,0x66
01b9 a067 | g | Store_Unchecked 0x0,0x67
01ba a068 | h | Store_Unchecked 0x0,0x68
01bb a069 | i | Store_Unchecked 0x0,0x69
01bc a06a | j | Store_Unchecked 0x0,0x6a
01bd a06b | k | Store_Unchecked 0x0,0x6b
01be a06c | l | Store_Unchecked 0x0,0x6c
01bf 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
01c0 e06d | m | Load 0x0,0x6d
01c1 e22f | / | Load 0x1,0x2f
01c2 a06e | n | Store_Unchecked 0x0,0x6e
01c3 a06f | o | Store_Unchecked 0x0,0x6f
01c4 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
01c5 a070 | p | Store_Unchecked 0x0,0x70
01c6 e231 | 1 | Load 0x1,0x31
01c7 a071 | q | Store_Unchecked 0x0,0x71
01c8 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
01c9 a072 | r | Store_Unchecked 0x0,0x72
01ca 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
01cb a073 | s | Store_Unchecked 0x0,0x73
01cc a074 | t | Store_Unchecked 0x0,0x74
01cd a075 | u | Store_Unchecked 0x0,0x75
01ce a076 | v | Store_Unchecked 0x0,0x76
01cf 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
01d0 a077 | w | Store_Unchecked 0x0,0x77
01d1 a025 | % | Store_Unchecked 0x0,0x25
01d2 a078 | x | Store_Unchecked 0x0,0x78
01d3 a079 | y | Store_Unchecked 0x0,0x79
01d4 a07a | z | Store_Unchecked 0x0,0x7a
01d5 e0a0 | | Load 0x0,0xa0
01d6 a0a1 | | Store_Unchecked 0x0,0xa1
01d7 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
01d8 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
01d9 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
01da a0a2 | | Store_Unchecked 0x0,0xa2
01db e0a3 | | Load 0x0,0xa3
01dc a02b | + | Store_Unchecked 0x0,0x2b
01dd a0a4 | | Store_Unchecked 0x0,0xa4
01de 4875 |Hu | Short_Literal 0x75
01df e233 | 3 | Load 0x1,0x33
01e0 020e | | Execute Module,Augment_Imports
01e1 e233 | 3 | Load 0x1,0x33
01e2 020f | | Execute Module,Activate
01e3 BODY_0008:
01e3 e233 | 3 | Load 0x1,0x33
01e4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01e5 e234 | 4 | Load 0x1,0x34
01e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e7 e233 | 3 | Load 0x1,0x33
01e8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01e9 00bc | | Action Signal_Activated
01ea 00bb | | Action Signal_Completion
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4800 |H | Short_Literal 0x0
01f4 a237 | 7 | Store_Unchecked 0x1,0x37
01f5 4800 |H | Short_Literal 0x0
01f6 a235 | 5 | Store_Unchecked 0x1,0x35
01f7 4800 |H | Short_Literal 0x0
01f8 a238 | 8 | Store_Unchecked 0x1,0x38
01f9 4800 |H | Short_Literal 0x0
01fa a239 | 9 | Store_Unchecked 0x1,0x39
01fb 4800 |H | Short_Literal 0x0
01fc a23a | : | Store_Unchecked 0x1,0x3a
01fd e233 | 3 | Load 0x1,0x33
01fe 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01ff 807b | { | Call 0x0,0x7b
0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0201 0000 0000 | | .XXX[0x3]
0203 0000 | |
0204 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0208 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
020c 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0210 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0214 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0218 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
021c 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0220 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0232 | 2 | .CONST 0x0232 ; Address of begin
0229 02f2 | | .CONST 0x02f2 ; Address of exception handler
022a 0003 | | .CONST 0x0003 ; Number of locals
022b INIT_0228:
022b e00e | | Load 0x0,0xe
022c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
022d e012 | | Load 0x0,0x12
022e 0322 | " | Declare_Variable Record
022f e5ff | | Load 0x2,-0x1
0230 00d9 | | Load_Top At_Offset_1
0231 017d | } | Execute Record,Structure_Write
0232 BODY_0228:
0232 e5ff | | Load 0x2,-0x1
0233 807c | | | Call 0x0,0x7c
0234 0f04 | | Execute_Immediate Equal,0x4
0235 6803 |h | Jump_Zero 0x239
0236 4801 |H | Short_Literal 0x1
0237 a239 | 9 | Store_Unchecked 0x1,0x39
0238 78aa |x | Jump 0x2e3
0239 e5ff | | Load 0x2,-0x1
023a 807c | | | Call 0x0,0x7c
023b 0f05 | | Execute_Immediate Equal,0x5
023c 6803 |h | Jump_Zero 0x240
023d 4801 |H | Short_Literal 0x1
023e a23a | : | Store_Unchecked 0x1,0x3a
023f 78a3 |x | Jump 0x2e3
0240 e5ff | | Load 0x2,-0x1
0241 807d | } | Call 0x0,0x7d
0242 8039 | 9 | Call 0x0,0x39
0243 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0244 e5ff | | Load 0x2,-0x1
0245 8256 | V | Call 0x1,0x56
0246 00d9 | | Load_Top At_Offset_1
0247 e22a | * | Load 0x1,0x2a
0248 027f | | Execute Discrete,Equal
0249 6891 |h | Jump_Zero 0x2db
024a e5ff | | Load 0x2,-0x1
024b 824e | N | Call 0x1,0x4e
024c 6805 |h | Jump_Zero 0x252
024d e5ff | | Load 0x2,-0x1
024e 807c | | | Call 0x0,0x7c
024f e233 | 3 | Load 0x1,0x33
0250 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0251 7891 |x | Jump 0x2e3
0252 e5ff | | Load 0x2,-0x1
0253 824f | O | Call 0x1,0x4f
0254 6802 |h | Jump_Zero 0x257
0255 e225 | % | Load 0x1,0x25
0256 0257 | W | Execute Discrete,Raise
0257 e5ff | | Load 0x2,-0x1
0258 8250 | P | Call 0x1,0x50
0259 6833 |h3 | Jump_Zero 0x28d
025a e5ff | | Load 0x2,-0x1
025b 807e | ~ | Call 0x0,0x7e
025c 807f | | Call 0x0,0x7f
025d 681a |h | Jump_Zero 0x278
025e e5ff | | Load 0x2,-0x1
025f 807c | | | Call 0x0,0x7c
0260 e5ff | | Load 0x2,-0x1
0261 8080 | | Call 0x0,0x80
0262 0f00 | | Execute_Immediate Equal,0x0
0263 e5ff | | Load 0x2,-0x1
0264 8081 | | Call 0x0,0x81
0265 00d8 | | Load_Top At_Offset_0
0266 00e4 | | Load_Encached Positive_Cache
0267 0260 | ` | Execute Discrete,In_Type
0268 7001 |p | Jump_Nonzero 0x26a
0269 0801 | | Execute_Immediate Raise,0x1
026a e5ff | | Load 0x2,-0x1
026b 8082 | | Call 0x0,0x82
026c e5ff | | Load 0x2,-0x1
026d 8083 | | Call 0x0,0x83
026e e5ff | | Load 0x2,-0x1
026f 8084 | | Call 0x0,0x84
0270 e5ff | | Load 0x2,-0x1
0271 8085 | | Call 0x0,0x85
0272 8086 | | Call 0x0,0x86
0273 8049 | I | Call 0x0,0x49
0274 e402 | | Load 0x2,0x2
0275 e233 | 3 | Load 0x1,0x33
0276 180f | | Execute Package,Field_Execute,Field_Number 0xf
0277 786b |xk | Jump 0x2e3
0278 e5ff | | Load 0x2,-0x1
0279 807c | | | Call 0x0,0x7c
027a e5ff | | Load 0x2,-0x1
027b 8080 | | Call 0x0,0x80
027c 0f00 | | Execute_Immediate Equal,0x0
027d e5ff | | Load 0x2,-0x1
027e 8081 | | Call 0x0,0x81
027f 00d8 | | Load_Top At_Offset_0
0280 00e4 | | Load_Encached Positive_Cache
0281 0260 | ` | Execute Discrete,In_Type
0282 7001 |p | Jump_Nonzero 0x284
0283 0801 | | Execute_Immediate Raise,0x1
0284 e5ff | | Load 0x2,-0x1
0285 8082 | | Call 0x0,0x82
0286 e5ff | | Load 0x2,-0x1
0287 807e | ~ | Call 0x0,0x7e
0288 8037 | 7 | Call 0x0,0x37
0289 e402 | | Load 0x2,0x2
028a e233 | 3 | Load 0x1,0x33
028b 180f | | Execute Package,Field_Execute,Field_Number 0xf
028c 7856 |xV | Jump 0x2e3
028d e5ff | | Load 0x2,-0x1
028e 8255 | U | Call 0x1,0x55
028f 6812 |h | Jump_Zero 0x2a2
0290 e5ff | | Load 0x2,-0x1
0291 807c | | | Call 0x0,0x7c
0292 e5ff | | Load 0x2,-0x1
0293 8087 | | Call 0x0,0x87
0294 e5ff | | Load 0x2,-0x1
0295 8088 | | Call 0x0,0x88
0296 e5ff | | Load 0x2,-0x1
0297 8083 | | Call 0x0,0x83
0298 e5ff | | Load 0x2,-0x1
0299 8084 | | Call 0x0,0x84
029a e5ff | | Load 0x2,-0x1
029b 8082 | | Call 0x0,0x82
029c e5ff | | Load 0x2,-0x1
029d 8089 | | Call 0x0,0x89
029e e402 | | Load 0x2,0x2
029f e233 | 3 | Load 0x1,0x33
02a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02a1 7841 |xA | Jump 0x2e3
02a2 e5ff | | Load 0x2,-0x1
02a3 8251 | Q | Call 0x1,0x51
02a4 680a |h | Jump_Zero 0x2af
02a5 00d8 | | Load_Top At_Offset_0
02a6 e232 | 2 | Load 0x1,0x32
02a7 e260 | ` | Load 0x1,0x60
02a8 e261 | a | Load 0x1,0x61
02a9 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
02aa 1d63 | c | Execute_Immediate Reference_Lex_1,0x63
02ab 1d64 | d | Execute_Immediate Reference_Lex_1,0x64
02ac 8014 | | Call 0x0,0x14
02ad 00d1 | | Pop_Control Pop_Count_1
02ae 7834 |x4 | Jump 0x2e3
02af e5ff | | Load 0x2,-0x1
02b0 8252 | R | Call 0x1,0x52
02b1 6811 |h | Jump_Zero 0x2c3
02b2 e5ff | | Load 0x2,-0x1
02b3 807c | | | Call 0x0,0x7c
02b4 e5ff | | Load 0x2,-0x1
02b5 8085 | | Call 0x0,0x85
02b6 8086 | | Call 0x0,0x86
02b7 e5ff | | Load 0x2,-0x1
02b8 8083 | | Call 0x0,0x83
02b9 e5ff | | Load 0x2,-0x1
02ba 8084 | | Call 0x0,0x84
02bb e5ff | | Load 0x2,-0x1
02bc 8082 | | Call 0x0,0x82
02bd e5ff | | Load 0x2,-0x1
02be 808a | | Call 0x0,0x8a
02bf e402 | | Load 0x2,0x2
02c0 e233 | 3 | Load 0x1,0x33
02c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02c2 7820 |x | Jump 0x2e3
02c3 e5ff | | Load 0x2,-0x1
02c4 8253 | S | Call 0x1,0x53
02c5 7003 |p | Jump_Nonzero 0x2c9
02c6 e5ff | | Load 0x2,-0x1
02c7 8254 | T | Call 0x1,0x54
02c8 6810 |h | Jump_Zero 0x2d9
02c9 e5ff | | Load 0x2,-0x1
02ca 807c | | | Call 0x0,0x7c
02cb e5ff | | Load 0x2,-0x1
02cc 8087 | | Call 0x0,0x87
02cd e5ff | | Load 0x2,-0x1
02ce 8083 | | Call 0x0,0x83
02cf e5ff | | Load 0x2,-0x1
02d0 8084 | | Call 0x0,0x84
02d1 e5ff | | Load 0x2,-0x1
02d2 8082 | | Call 0x0,0x82
02d3 e5ff | | Load 0x2,-0x1
02d4 8089 | | Call 0x0,0x89
02d5 e402 | | Load 0x2,0x2
02d6 e233 | 3 | Load 0x1,0x33
02d7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02d8 780a |x | Jump 0x2e3
02d9 e227 | ' | Load 0x1,0x27
02da 0257 | W | Execute Discrete,Raise
02db 00d8 | | Load_Top At_Offset_0
02dc 00da | | Load_Top At_Offset_2
02dd e259 | Y | Load 0x1,0x59
02de 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
02df e25b | [ | Load 0x1,0x5b
02e0 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
02e1 800f | | Call 0x0,0xf
02e2 00d1 | | Pop_Control Pop_Count_1
02e3 e5fe | | Load 0x2,-0x2
02e4 e01e | | Load 0x0,0x1e
02e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02e6 c5fe | | Store 0x2,-0x2
02e7 e5fe | | Load 0x2,-0x2
02e8 0120 | | Execute Any,Is_Value
02e9 6803 |h | Jump_Zero 0x2ed
02ea e01e | | Load 0x0,0x1e
02eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ec 7801 |x | Jump 0x2ee
02ed e5fe | | Load 0x2,-0x2
02ee e5ff | | Load 0x2,-0x1
02ef 808b | | Call 0x0,0x8b
02f0 c5fe | | Store 0x2,-0x2
02f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f2 TRAP_0228:
02f2 e225 | % | Load 0x1,0x25
02f3 010f | | Execute Exception,Equal
02f4 6806 |h | Jump_Zero 0x2fb
02f5 e5fe | | Load 0x2,-0x2
02f6 e21d | | Load 0x1,0x1d
02f7 e01e | | Load 0x0,0x1e
02f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f9 c5fe | | Store 0x2,-0x2
02fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fb e228 | ( | Load 0x1,0x28
02fc 010f | | Execute Exception,Equal
02fd 6806 |h | Jump_Zero 0x304
02fe e5fe | | Load 0x2,-0x2
02ff e21f | | Load 0x1,0x1f
0300 e01e | | Load 0x0,0x1e
0301 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0302 c5fe | | Store 0x2,-0x2
0303 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0304 e052 | R | Load 0x0,0x52
0305 010f | | Execute Exception,Equal
0306 6806 |h | Jump_Zero 0x30d
0307 e5fe | | Load 0x2,-0x2
0308 e221 | ! | Load 0x1,0x21
0309 e01e | | Load 0x0,0x1e
030a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030b c5fe | | Store 0x2,-0x2
030c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030d e233 | 3 | Load 0x1,0x33
030e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
030f 010f | | Execute Exception,Equal
0310 7004 |p | Jump_Nonzero 0x315
0311 e233 | 3 | Load 0x1,0x33
0312 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0313 010f | | Execute Exception,Equal
0314 6806 |h | Jump_Zero 0x31b
0315 e5fe | | Load 0x2,-0x2
0316 e222 | " | Load 0x1,0x22
0317 e01e | | Load 0x0,0x1e
0318 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0319 c5fe | | Store 0x2,-0x2
031a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031b e226 | & | Load 0x1,0x26
031c 010f | | Execute Exception,Equal
031d 6806 |h | Jump_Zero 0x324
031e e5fe | | Load 0x2,-0x2
031f e223 | # | Load 0x1,0x23
0320 e01e | | Load 0x0,0x1e
0321 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0322 c5fe | | Store 0x2,-0x2
0323 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0324 e233 | 3 | Load 0x1,0x33
0325 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0326 010f | | Execute Exception,Equal
0327 6806 |h | Jump_Zero 0x32e
0328 e5fe | | Load 0x2,-0x2
0329 e224 | $ | Load 0x1,0x24
032a e01e | | Load 0x0,0x1e
032b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
032c c5fe | | Store 0x2,-0x2
032d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
032e e08c | | Load 0x0,0x8c
032f 010f | | Execute Exception,Equal
0330 6806 |h | Jump_Zero 0x337
0331 e5fe | | Load 0x2,-0x2
0332 e21e | | Load 0x1,0x1e
0333 e01e | | Load 0x0,0x1e
0334 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0335 c5fe | | Store 0x2,-0x2
0336 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0337 e233 | 3 | Load 0x1,0x33
0338 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0339 010f | | Execute Exception,Equal
033a 6807 |h | Jump_Zero 0x342
033b e5fe | | Load 0x2,-0x2
033c 0092 09bf | | Action Push_String_Extended,0x9bf ; "Max number of exception requests exceeded"
033e e01e | | Load 0x0,0x1e
033f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0340 c5fe | | Store 0x2,-0x2
0341 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0342 e5fe | | Load 0x2,-0x2
0343 e220 | | Load 0x1,0x20
0344 e034 | 4 | Load 0x0,0x34
0345 180d | | Execute Package,Field_Execute,Field_Number 0xd
0346 01cc | | Execute Vector,Catenate
0347 e01e | | Load 0x0,0x1e
0348 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0349 c5fe | | Store 0x2,-0x2
034a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
034b 0000 0000 | | .BLANK 0000[0x5]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0357 | W | .CONST 0x0357 ; Address of begin
0351 0374 | t | .CONST 0x0374 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 e002 | | Load 0x0,0x2
0355 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0356 03f1 | | Declare_Variable Discrete,With_Value
0357 BODY_0350:
0357 00db | | Load_Top At_Offset_3
0358 0f04 | | Execute_Immediate Equal,0x4
0359 6803 |h | Jump_Zero 0x35d
035a 4800 |H | Short_Literal 0x0
035b a239 | 9 | Store_Unchecked 0x1,0x39
035c 7809 |x | Jump 0x366
035d 00db | | Load_Top At_Offset_3
035e 0f05 | | Execute_Immediate Equal,0x5
035f 6803 |h | Jump_Zero 0x363
0360 4800 |H | Short_Literal 0x0
0361 a23a | : | Store_Unchecked 0x1,0x3a
0362 7803 |x | Jump 0x366
0363 00db | | Load_Top At_Offset_3
0364 e233 | 3 | Load 0x1,0x33
0365 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0366 e01e | | Load 0x0,0x1e
0367 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0368 c5fe | | Store 0x2,-0x2
0369 e5fe | | Load 0x2,-0x2
036a 0120 | | Execute Any,Is_Value
036b 6803 |h | Jump_Zero 0x36f
036c e01e | | Load 0x0,0x1e
036d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036e 7801 |x | Jump 0x370
036f e5fe | | Load 0x2,-0x2
0370 e5ff | | Load 0x2,-0x1
0371 808d | | Call 0x0,0x8d
0372 c5fe | | Store 0x2,-0x2
0373 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0374 TRAP_0350:
0374 0007 | | Action Break_Optional
0375 e220 | | Load 0x1,0x20
0376 e034 | 4 | Load 0x0,0x34
0377 180d | | Execute Package,Field_Execute,Field_Number 0xd
0378 01cc | | Execute Vector,Catenate
0379 e01e | | Load 0x0,0x1e
037a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
037b c5fe | | Store 0x2,-0x2
037c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037d 0000 0000 | | .XXX[0x3]
037f 0000 | |
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0387 | | .CONST 0x0387 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0002 | | .CONST 0x0002 ; Number of locals
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 e002 | | Load 0x0,0x2
0385 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0386 03f1 | | Declare_Variable Discrete,With_Value
0387 BODY_0380:
0387 00db | | Load_Top At_Offset_3
0388 e233 | 3 | Load 0x1,0x33
0389 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
038a 7009 |p | Jump_Nonzero 0x394
038b 00db | | Load_Top At_Offset_3
038c e5fe | | Load 0x2,-0x2
038d e233 | 3 | Load 0x1,0x33
038e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
038f e5fd | | Load 0x2,-0x3
0390 e01e | | Load 0x0,0x1e
0391 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0392 c5fd | | Store 0x2,-0x3
0393 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0394 00db | | Load_Top At_Offset_3
0395 a236 | 6 | Store_Unchecked 0x1,0x36
0396 4801 |H | Short_Literal 0x1
0397 a235 | 5 | Store_Unchecked 0x1,0x35
0398 00d8 | | Load_Top At_Offset_0
0399 e232 | 2 | Load 0x1,0x32
039a e269 | i | Load 0x1,0x69
039b e26a | j | Load 0x1,0x6a
039c 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b
039d 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
039e 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
039f 8014 | | Call 0x0,0x14
03a0 0059 | Y | Store_Top Discrete,At_Offset_1
03a1 00db | | Load_Top At_Offset_3
03a2 e233 | 3 | Load 0x1,0x33
03a3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03a4 00db | | Load_Top At_Offset_3
03a5 e5fe | | Load 0x2,-0x2
03a6 e233 | 3 | Load 0x1,0x33
03a7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03a8 e5fd | | Load 0x2,-0x3
03a9 e01e | | Load 0x0,0x1e
03aa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03ab c5fd | | Store 0x2,-0x3
03ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 e5fd | | Load 0x2,-0x3
03b4 e5fe | | Load 0x2,-0x2
03b5 e5ff | | Load 0x2,-0x1
03b6 e234 | 4 | Load 0x1,0x34
03b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b8 c5fd | | Store 0x2,-0x3
03b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03ba 0000 0000 | | .BLANK 0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 03ca | | .CONST 0x03ca ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 e233 | 3 | Load 0x1,0x33
03c5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03c6 e01e | | Load 0x0,0x1e
03c7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c8 c5fe | | Store 0x2,-0x2
03c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ca TRAP_03c0:
03ca 0007 | | Action Break_Optional
03cb 0092 09c0 | | Action Push_String_Extended,0x9c0 ; "Unable to set task interface subprogram"
03cd e01e | | Load 0x0,0x1e
03ce 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03cf c5fe | | Store 0x2,-0x2
03d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d1 0000 0000 | | .BLANK 0000[0x7]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03dd | | .CONST 0x03dd ; Address of begin
03d9 03ee | | .CONST 0x03ee ; Address of exception handler
03da 0002 | | .CONST 0x0002 ; Number of locals
03db INIT_03d8:
03db 029f 097b | {| Declare_Subprogram INIT_0978,For_Call
03dd BODY_03d8:
03dd 00db | | Load_Top At_Offset_3
03de 808e | | Call 0x0,0x8e
03df 6804 |h | Jump_Zero 0x3e4
03e0 e01e | | Load 0x0,0x1e
03e1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03e2 c5fe | | Store 0x2,-0x2
03e3 7806 |x | Jump 0x3ea
03e4 e5fe | | Load 0x2,-0x2
03e5 4801 |H | Short_Literal 0x1
03e6 e5ff | | Load 0x2,-0x1
03e7 e234 | 4 | Load 0x1,0x34
03e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e9 c5fe | | Store 0x2,-0x2
03ea 00db | | Load_Top At_Offset_3
03eb 808f | | Call 0x0,0x8f
03ec 8402 | | Call 0x2,0x2
03ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ee TRAP_03d8:
03ee 0007 | | Action Break_Optional
03ef e5fe | | Load 0x2,-0x2
03f0 00ea | | Load_Encached Null_String_Cache
03f1 e034 | 4 | Load 0x0,0x34
03f2 180d | | Execute Package,Field_Execute,Field_Number 0xd
03f3 0092 09c1 | | Action Push_String_Extended,0x9c1 ; "Disable_Debugging exception"
03f5 e01e | | Load 0x0,0x1e
03f6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03f7 c5fe | | Store 0x2,-0x2
03f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f9 0000 0000 | | .BLANK 0000[0x7]
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 e5fd | | Load 0x2,-0x3
0404 e229 | ) | Load 0x1,0x29
0405 4801 |H | Short_Literal 0x1
0406 e5fe | | Load 0x2,-0x2
0407 e5ff | | Load 0x2,-0x1
0408 826f | o | Call 0x1,0x6f
0409 c5fd | | Store 0x2,-0x3
040a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
040b 0000 0000 | | .BLANK 0000[0x5]
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 a238 | 8 | Store_Unchecked 0x1,0x38
0415 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0416 0000 0000 | | .XXX[0x2]
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 00e5 | | Load_Encached Long_Integer_Cache
041c 00e5 | | Load_Encached Long_Integer_Cache
041d 00e5 | | Load_Encached Long_Integer_Cache
041e 00e5 | | Load_Encached Long_Integer_Cache
041f e233 | 3 | Load 0x1,0x33
0420 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0421 c5ff | | Store 0x2,-0x1
0422 c5fe | | Store 0x2,-0x2
0423 c5fd | | Store 0x2,-0x3
0424 c5fc | | Store 0x2,-0x4
0425 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0426 0000 0000 | | .XXX[0x2]
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 e233 | 3 | Load 0x1,0x33
042d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
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 e5fa | | Load 0x2,-0x6
0434 e5fb | | Load 0x2,-0x5
0435 00e3 | | Load_Encached Natural_Cache
0436 e5fd | | Load 0x2,-0x3
0437 e5fe | | Load 0x2,-0x2
0438 e5ff | | Load 0x2,-0x1
0439 e233 | 3 | Load 0x1,0x33
043a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
043b c5fc | | Store 0x2,-0x4
043c 00d1 | | Pop_Control Pop_Count_1
043d c5fa | | Store 0x2,-0x6
043e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
043f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
0444 e233 | 3 | Load 0x1,0x33
0445 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0446 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0447 0000 | | .XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e5fd | | Load 0x2,-0x3
044c 00e3 | | Load_Encached Natural_Cache
044d e5ff | | Load 0x2,-0x1
044e e233 | 3 | Load 0x1,0x33
044f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0450 c5fe | | Store 0x2,-0x2
0451 c5fd | | Store 0x2,-0x3
0452 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0453 0000 0000 | | .BLANK 0000[0x5]
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 e23b | ; | Load 0x1,0x3b
045c 00ca | | Action Exit_Nullary_Function
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 e233 | 3 | Load 0x1,0x33
0464 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0465 e234 | 4 | Load 0x1,0x34
0466 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0467 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046d | m | .CONST 0x046d ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b 029f 0993 | | Declare_Subprogram INIT_0990,For_Call
046d BODY_0468:
046d 0092 09c2 | | Action Push_String_Extended,0x9c2 ; "*** Internal Error: "
046f e5ff | | Load 0x2,-0x1
0470 01cc | | Execute Vector,Catenate
0471 8090 | | Call 0x0,0x90
0472 8402 | | Call 0x2,0x2
0473 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0474 0000 0000 | | .BLANK 0000[0x4]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 4801 |H | Short_Literal 0x1
047c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
047d 0000 0000 | | .XXX[0x3]
047f 0000 | |
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 00da | | Load_Top At_Offset_2
0484 808e | | Call 0x0,0x8e
0485 0e02 | | Execute_Immediate Not_Equal,0x2
0486 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0487 0000 | | .XXX[0x1]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0495 | | .CONST 0x0495 ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0006 | | .CONST 0x0006 ; Number of locals
048b INIT_0488:
048b e012 | | Load 0x0,0x12
048c 0322 | " | Declare_Variable Record
048d 00d8 | | Load_Top At_Offset_0
048e 1c00 | | Execute_Immediate Run_Utility,0x0
048f 00e1 | | Load_Encached Boolean_Cache
0490 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0491 00e1 | | Load_Encached Boolean_Cache
0492 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0493 00e1 | | Load_Encached Boolean_Cache
0494 00e3 | | Load_Encached Natural_Cache
0495 BODY_0488:
0495 4801 |H | Short_Literal 0x1
0496 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0497 e5fc | | Load 0x2,-0x4
0498 e5ff | | Load 0x2,-0x1
0499 8091 | | Call 0x0,0x91
049a 00cf | | Action Mark_Auxiliary
049b 00d9 | | Load_Top At_Offset_1
049c e5fd | | Load 0x2,-0x3
049d 027d | } | Execute Discrete,Greater
049e 706b |pk | Jump_Nonzero 0x50a
049f e402 | | Load 0x2,0x2
04a0 00da | | Load_Top At_Offset_2
04a1 e5fe | | Load 0x2,-0x2
04a2 01d7 | | Execute Vector,Field_Read
04a3 8092 | | Call 0x0,0x92
04a4 00d1 | | Pop_Control Pop_Count_1
04a5 00d9 | | Load_Top At_Offset_1
04a6 e5fe | | Load 0x2,-0x2
04a7 01d7 | | Execute Vector,Field_Read
04a8 e5ff | | Load 0x2,-0x1
04a9 8093 | | Call 0x0,0x93
04aa e402 | | Load 0x2,0x2
04ab 8094 | | Call 0x0,0x94
04ac 4602 |F | Jump_Case 0x3
04ad 7807 |x | Jump 0x4b5 ; case 0x0
04ae 7852 |xR | Jump 0x501 ; case 0x1
04af 7800 |x | Jump 0x4b0 ; case 0x2
04b0 0092 09c3 | | Action Push_String_Extended,0x9c3 ; "Process: Special item on control list"
04b2 e095 | | Load 0x0,0x95
04b3 180f | | Execute Package,Field_Execute,Field_Number 0xf
04b4 7850 |xP | Jump 0x505
04b5 e402 | | Load 0x2,0x2
04b6 8087 | | Call 0x0,0x87
04b7 4605 |F | Jump_Case 0x6
04b8 780a |x | Jump 0x4c3 ; case 0x0
04b9 7810 |x | Jump 0x4ca ; case 0x1
04ba 7808 |x | Jump 0x4c3 ; case 0x2
04bb 7840 |x@ | Jump 0x4fc ; case 0x3
04bc 7812 |x | Jump 0x4cf ; case 0x4
04bd 7800 |x | Jump 0x4be ; case 0x5
04be 0092 09c4 | | Action Push_String_Extended,0x9c4 ; "Process: unknown class"
04c0 e095 | | Load 0x0,0x95
04c1 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c2 7842 |xB | Jump 0x505
04c3 00e1 | | Load_Encached Boolean_Cache
04c4 4800 |H | Short_Literal 0x0
04c5 e5ff | | Load 0x2,-0x1
04c6 e234 | 4 | Load 0x1,0x34
04c7 180d | | Execute Package,Field_Execute,Field_Number 0xd
04c8 c403 | | Store 0x2,0x3
04c9 783b |x; | Jump 0x505
04ca 0092 09c5 | | Action Push_String_Extended,0x9c5 ; "Profile unimplemented"
04cc e095 | | Load 0x0,0x95
04cd 180f | | Execute Package,Field_Execute,Field_Number 0xf
04ce 7836 |x6 | Jump 0x505
04cf 4800 |H | Short_Literal 0x0
04d0 a404 | | Store_Unchecked 0x2,0x4
04d1 00cf | | Action Mark_Auxiliary
04d2 00e1 | | Load_Encached Boolean_Cache
04d3 e5ff | | Load 0x2,-0x1
04d4 e234 | 4 | Load 0x1,0x34
04d5 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d6 c405 | | Store 0x2,0x5
04d7 00db | | Load_Top At_Offset_3
04d8 6802 |h | Jump_Zero 0x4db
04d9 4801 |H | Short_Literal 0x1
04da a404 | | Store_Unchecked 0x2,0x4
04db 00da | | Load_Top At_Offset_2
04dc 0a01 | | Execute_Immediate Plus,0x1
04dd e5fd | | Load 0x2,-0x3
04de 027d | } | Execute Discrete,Greater
04df 7015 |p | Jump_Nonzero 0x4f5
04e0 e402 | | Load 0x2,0x2
04e1 00db | | Load_Top At_Offset_3
04e2 0a01 | | Execute_Immediate Plus,0x1
04e3 e5fe | | Load 0x2,-0x2
04e4 01d7 | | Execute Vector,Field_Read
04e5 8092 | | Call 0x0,0x92
04e6 00d1 | | Pop_Control Pop_Count_1
04e7 e402 | | Load 0x2,0x2
04e8 8087 | | Call 0x0,0x87
04e9 0e04 | | Execute_Immediate Not_Equal,0x4
04ea 700a |p | Jump_Nonzero 0x4f5
04eb 00da | | Load_Top At_Offset_2
04ec 0a01 | | Execute_Immediate Plus,0x1
04ed 005b | [ | Store_Top Discrete,At_Offset_3
04ee 00da | | Load_Top At_Offset_2
04ef e5fe | | Load 0x2,-0x2
04f0 01d7 | | Execute Vector,Field_Read
04f1 e5ff | | Load 0x2,-0x1
04f2 8093 | | Call 0x0,0x93
04f3 00c9 | | Action Pop_Auxiliary_Loop
04f4 7fdd | | Jump 0x4d2
04f5 00ce | | Action Pop_Auxiliary
04f6 00db | | Load_Top At_Offset_3
04f7 680d |h | Jump_Zero 0x505
04f8 e5ff | | Load 0x2,-0x1
04f9 e234 | 4 | Load 0x1,0x34
04fa 180f | | Execute Package,Field_Execute,Field_Number 0xf
04fb 7809 |x | Jump 0x505
04fc 0092 09c6 | | Action Push_String_Extended,0x9c6 ; "Continue unexpected"
04fe e095 | | Load 0x0,0x95
04ff 180f | | Execute Package,Field_Execute,Field_Number 0xf
0500 7804 |x | Jump 0x505
0501 0092 09c7 | | Action Push_String_Extended,0x9c7 ; "Process: Exception item on control list"
0503 e095 | | Load 0x0,0x95
0504 180f | | Execute Package,Field_Execute,Field_Number 0xf
0505 00d9 | | Load_Top At_Offset_1
0506 0a01 | | Execute_Immediate Plus,0x1
0507 005a | Z | Store_Top Discrete,At_Offset_2
0508 00c9 | | Action Pop_Auxiliary_Loop
0509 7f91 | | Jump 0x49b
050a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
050b 0000 0000 | | .BLANK 0000[0x5]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0521 | ! | .CONST 0x0521 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0007 | | .CONST 0x0007 ; Number of locals
0513 INIT_0510:
0513 e012 | | Load 0x0,0x12
0514 0322 | " | Declare_Variable Record
0515 00d8 | | Load_Top At_Offset_0
0516 1c00 | | Execute_Immediate Run_Utility,0x0
0517 e233 | 3 | Load 0x1,0x33
0518 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0519 e5fe | | Load 0x2,-0x2
051a e005 | | Load 0x0,0x5
051b 03f1 | | Declare_Variable Discrete,With_Value
051c 00e1 | | Load_Encached Boolean_Cache
051d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
051e 00e1 | | Load_Encached Boolean_Cache
051f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0520 00e1 | | Load_Encached Boolean_Cache
0521 BODY_0510:
0521 4801 |H | Short_Literal 0x1
0522 a403 | | Store_Unchecked 0x2,0x3
0523 e5fb | | Load 0x2,-0x5
0524 e5ff | | Load 0x2,-0x1
0525 8091 | | Call 0x0,0x91
0526 e5fb | | Load 0x2,-0x5
0527 8023 | # | Call 0x0,0x23
0528 e5fe | | Load 0x2,-0x2
0529 e5ff | | Load 0x2,-0x1
052a 8096 | | Call 0x0,0x96
052b 00cf | | Action Mark_Auxiliary
052c e403 | | Load 0x2,0x3
052d e5fc | | Load 0x2,-0x4
052e 027d | } | Execute Discrete,Greater
052f 706b |pk | Jump_Nonzero 0x59b
0530 e402 | | Load 0x2,0x2
0531 e403 | | Load 0x2,0x3
0532 e5fd | | Load 0x2,-0x3
0533 01d7 | | Execute Vector,Field_Read
0534 8092 | | Call 0x0,0x92
0535 00d1 | | Pop_Control Pop_Count_1
0536 e403 | | Load 0x2,0x3
0537 e5fd | | Load 0x2,-0x3
0538 01d7 | | Execute Vector,Field_Read
0539 e5ff | | Load 0x2,-0x1
053a 8093 | | Call 0x0,0x93
053b e402 | | Load 0x2,0x2
053c 8094 | | Call 0x0,0x94
053d 4602 |F | Jump_Case 0x3
053e 7807 |x | Jump 0x546 ; case 0x0
053f 780b |x | Jump 0x54b ; case 0x1
0540 7800 |x | Jump 0x541 ; case 0x2
0541 0092 09c8 | | Action Push_String_Extended,0x9c8 ; "Process: Special item on exception list"
0543 e095 | | Load 0x0,0x95
0544 180f | | Execute Package,Field_Execute,Field_Number 0xf
0545 7850 |xP | Jump 0x596
0546 0092 09c9 | | Action Push_String_Extended,0x9c9 ; "Process: Control item on exception list"
0548 e095 | | Load 0x0,0x95
0549 180f | | Execute Package,Field_Execute,Field_Number 0xf
054a 784b |xK | Jump 0x596
054b e402 | | Load 0x2,0x2
054c 8087 | | Call 0x0,0x87
054d 4605 |F | Jump_Case 0x6
054e 780a |x | Jump 0x559 ; case 0x0
054f 7810 |x | Jump 0x560 ; case 0x1
0550 7808 |x | Jump 0x559 ; case 0x2
0551 7840 |x@ | Jump 0x592 ; case 0x3
0552 7812 |x | Jump 0x565 ; case 0x4
0553 7800 |x | Jump 0x554 ; case 0x5
0554 0092 09ca | | Action Push_String_Extended,0x9ca ; "Process: Other_Action undefined"
0556 e095 | | Load 0x0,0x95
0557 180f | | Execute Package,Field_Execute,Field_Number 0xf
0558 783d |x= | Jump 0x596
0559 00e1 | | Load_Encached Boolean_Cache
055a 4800 |H | Short_Literal 0x0
055b e5ff | | Load 0x2,-0x1
055c e234 | 4 | Load 0x1,0x34
055d 180d | | Execute Package,Field_Execute,Field_Number 0xd
055e c405 | | Store 0x2,0x5
055f 7836 |x6 | Jump 0x596
0560 0092 09c5 | | Action Push_String_Extended,0x9c5 ; "Profile unimplemented"
0562 e095 | | Load 0x0,0x95
0563 180f | | Execute Package,Field_Execute,Field_Number 0xf
0564 7831 |x1 | Jump 0x596
0565 4800 |H | Short_Literal 0x0
0566 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0567 00cf | | Action Mark_Auxiliary
0568 00e1 | | Load_Encached Boolean_Cache
0569 e5ff | | Load 0x2,-0x1
056a e234 | 4 | Load 0x1,0x34
056b 180e | | Execute Package,Field_Execute,Field_Number 0xe
056c 005b | [ | Store_Top Discrete,At_Offset_3
056d 00da | | Load_Top At_Offset_2
056e 6802 |h | Jump_Zero 0x571
056f 4801 |H | Short_Literal 0x1
0570 a406 | | Store_Unchecked 0x2,0x6
0571 e403 | | Load 0x2,0x3
0572 0a01 | | Execute_Immediate Plus,0x1
0573 e5fc | | Load 0x2,-0x4
0574 027d | } | Execute Discrete,Greater
0575 7015 |p | Jump_Nonzero 0x58b
0576 e402 | | Load 0x2,0x2
0577 e403 | | Load 0x2,0x3
0578 0a01 | | Execute_Immediate Plus,0x1
0579 e5fd | | Load 0x2,-0x3
057a 01d7 | | Execute Vector,Field_Read
057b 8092 | | Call 0x0,0x92
057c 00d1 | | Pop_Control Pop_Count_1
057d e402 | | Load 0x2,0x2
057e 8087 | | Call 0x0,0x87
057f 0e04 | | Execute_Immediate Not_Equal,0x4
0580 700a |p | Jump_Nonzero 0x58b
0581 e403 | | Load 0x2,0x3
0582 0a01 | | Execute_Immediate Plus,0x1
0583 c403 | | Store 0x2,0x3
0584 e403 | | Load 0x2,0x3
0585 e5fd | | Load 0x2,-0x3
0586 01d7 | | Execute Vector,Field_Read
0587 e5ff | | Load 0x2,-0x1
0588 8093 | | Call 0x0,0x93
0589 00c9 | | Action Pop_Auxiliary_Loop
058a 7fdd | | Jump 0x568
058b 00ce | | Action Pop_Auxiliary
058c 00da | | Load_Top At_Offset_2
058d 6808 |h | Jump_Zero 0x596
058e e5ff | | Load 0x2,-0x1
058f e234 | 4 | Load 0x1,0x34
0590 180f | | Execute Package,Field_Execute,Field_Number 0xf
0591 7804 |x | Jump 0x596
0592 0092 09cb | | Action Push_String_Extended,0x9cb ; "Process: Continue unexpected"
0594 e095 | | Load 0x0,0x95
0595 180f | | Execute Package,Field_Execute,Field_Number 0xf
0596 e403 | | Load 0x2,0x3
0597 0a01 | | Execute_Immediate Plus,0x1
0598 c403 | | Store 0x2,0x3
0599 00c9 | | Action Pop_Auxiliary_Loop
059a 7f91 | | Jump 0x52c
059b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
059c 0000 0000 | | .BLANK 0000[0x4]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 e237 | 7 | Load 0x1,0x37
05a4 e5fe | | Load 0x2,-0x2
05a5 380e |8 | Execute Record,Field_Write,Field_Number 0xe
05a6 e236 | 6 | Load 0x1,0x36
05a7 e5fe | | Load 0x2,-0x2
05a8 380a |8 | Execute Record,Field_Write,Field_Number 0xa
05a9 e235 | 5 | Load 0x1,0x35
05aa e5fe | | Load 0x2,-0x2
05ab 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
05ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05ad 0000 0000 | | .XXX[0x3]
05af 0000 | |
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 e5fd | | Load 0x2,-0x3
05b4 00e2 | | Load_Encached Integer_Cache
05b5 025e | ^ | Execute Discrete,Convert
05b6 e5fe | | Load 0x2,-0x2
05b7 e5ff | | Load 0x2,-0x1
05b8 e00e | | Load 0x0,0xe
05b9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
05ba 00d9 | | Load_Top At_Offset_1
05bb 00d0 | | Action Swap_Control
05bc 0260 | ` | Execute Discrete,In_Type
05bd 7001 |p | Jump_Nonzero 0x5bf
05be 0801 | | Execute_Immediate Raise,0x1
05bf 8241 | A | Call 0x1,0x41
05c0 00d1 | | Pop_Control Pop_Count_1
05c1 c5fd | | Store 0x2,-0x3
05c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05c3 0000 0000 | | .BLANK 0000[0x5]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cd | | .CONST 0x05cd ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0002 | | .CONST 0x0002 ; Number of locals
05cb INIT_05c8:
05cb 029f 09a3 | | Declare_Subprogram INIT_09a0,For_Call
05cd BODY_05c8:
05cd 8402 | | Call 0x2,0x2
05ce e235 | 5 | Load 0x1,0x35
05cf e237 | 7 | Load 0x1,0x37
05d0 0278 | x | Execute Discrete,Or
05d1 6808 |h | Jump_Zero 0x5da
05d2 e232 | 2 | Load 0x1,0x32
05d3 e5ff | | Load 0x2,-0x1
05d4 e243 | C | Load 0x1,0x43
05d5 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
05d6 e245 | E | Load 0x1,0x45
05d7 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
05d8 800f | | Call 0x0,0xf
05d9 c232 | 2 | Store 0x1,0x32
05da 00db | | Load_Top At_Offset_3
05db e233 | 3 | Load 0x1,0x33
05dc 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
05dd e5fe | | Load 0x2,-0x2
05de e05b | [ | Load 0x0,0x5b
05df 017f | | Execute Record,Equal
05e0 7006 |p | Jump_Nonzero 0x5e7
05e1 e5fe | | Load 0x2,-0x2
05e2 8069 | i | Call 0x0,0x69
05e3 00d1 | | Pop_Control Pop_Count_1
05e4 e5fe | | Load 0x2,-0x2
05e5 e5ff | | Load 0x2,-0x1
05e6 8091 | | Call 0x0,0x91
05e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05ec | | .CONST 0x05ec ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0002 | | .CONST 0x0002 ; Number of locals
05eb INIT_05e8:
05eb 00e1 | | Load_Encached Boolean_Cache
05ec BODY_05e8:
05ec e239 | 9 | Load 0x1,0x39
05ed 680a |h | Jump_Zero 0x5f8
05ee 4804 |H | Short_Literal 0x4
05ef e5ff | | Load 0x2,-0x1
05f0 8093 | | Call 0x0,0x93
05f1 00e1 | | Load_Encached Boolean_Cache
05f2 4801 |H | Short_Literal 0x1
05f3 e5ff | | Load 0x2,-0x1
05f4 e234 | 4 | Load 0x1,0x34
05f5 180d | | Execute Package,Field_Execute,Field_Number 0xd
05f6 0059 | Y | Store_Top Discrete,At_Offset_1
05f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f8 e23a | : | Load 0x1,0x3a
05f9 680a |h | Jump_Zero 0x604
05fa 4805 |H | Short_Literal 0x5
05fb e5ff | | Load 0x2,-0x1
05fc 8093 | | Call 0x0,0x93
05fd 00e1 | | Load_Encached Boolean_Cache
05fe 4800 |H | Short_Literal 0x0
05ff e5ff | | Load 0x2,-0x1
0600 e234 | 4 | Load 0x1,0x34
0601 180d | | Execute Package,Field_Execute,Field_Number 0xd
0602 0059 | Y | Store_Top Discrete,At_Offset_1
0603 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0604 e238 | 8 | Load 0x1,0x38
0605 6809 |h | Jump_Zero 0x60f
0606 4804 |H | Short_Literal 0x4
0607 e5ff | | Load 0x2,-0x1
0608 8093 | | Call 0x0,0x93
0609 00e1 | | Load_Encached Boolean_Cache
060a 4801 |H | Short_Literal 0x1
060b e5ff | | Load 0x2,-0x1
060c e234 | 4 | Load 0x1,0x34
060d 180d | | Execute Package,Field_Execute,Field_Number 0xd
060e 0059 | Y | Store_Top Discrete,At_Offset_1
060f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613 | | .CONST 0x0613 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0001 | | .CONST 0x0001 ; Number of locals
0613 BODY_0610:
0613 INIT_0610:
0613 e239 | 9 | Load 0x1,0x39
0614 e23a | : | Load 0x1,0x3a
0615 e238 | 8 | Load 0x1,0x38
0616 0278 | x | Execute Discrete,Or
0617 0278 | x | Execute Discrete,Or
0618 00ca | | Action Exit_Nullary_Function
0619 0000 0000 | | .BLANK 0000[0x7]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 00da | | Load_Top At_Offset_2
0624 e003 | | Load 0x0,0x3
0625 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0626 0aff | | Execute_Immediate Plus,-0x1
0627 e003 | | Load 0x0,0x3
0628 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0629 00d9 | | Load_Top At_Offset_1
062a 00d0 | | Action Swap_Control
062b 0260 | ` | Execute Discrete,In_Type
062c 7001 |p | Jump_Nonzero 0x62e
062d 0801 | | Execute_Immediate Raise,0x1
062e 00db | | Load_Top At_Offset_3
062f e003 | | Load 0x0,0x3
0630 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0631 e003 | | Load 0x0,0x3
0632 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0633 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0634 0000 0000 | | .BLANK 0000[0x4]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 064b | K | .CONST 0x064b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0008 | | .CONST 0x0008 ; Number of locals
063b INIT_0638:
063b e003 | | Load 0x0,0x3
063c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
063d 00e1 | | Load_Encached Boolean_Cache
063e e054 | T | Load 0x0,0x54
063f 0322 | " | Declare_Variable Record
0640 00d8 | | Load_Top At_Offset_0
0641 1c00 | | Execute_Immediate Run_Utility,0x0
0642 e003 | | Load 0x0,0x3
0643 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0644 02c7 | | Declare_Variable Any
0645 00d8 | | Load_Top At_Offset_0
0646 1c00 | | Execute_Immediate Run_Utility,0x0
0647 e097 | | Load 0x0,0x97
0648 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0649 00e3 | | Load_Encached Natural_Cache
064a 00e1 | | Load_Encached Boolean_Cache
064b BODY_0638:
064b 4800 |H | Short_Literal 0x0
064c e5ff | | Load 0x2,-0x1
064d 806b | k | Call 0x0,0x6b
064e e5fc | | Load 0x2,-0x4
064f e003 | | Load 0x0,0x3
0650 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0651 0afe | | Execute_Immediate Plus,-0x2
0652 e003 | | Load 0x0,0x3
0653 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0654 00d9 | | Load_Top At_Offset_1
0655 00d0 | | Action Swap_Control
0656 0260 | ` | Execute Discrete,In_Type
0657 7001 |p | Jump_Nonzero 0x659
0658 0801 | | Execute_Immediate Raise,0x1
0659 e5fc | | Load 0x2,-0x4
065a e003 | | Load 0x0,0x3
065b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
065c e003 | | Load 0x0,0x3
065d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
065e a402 | | Store_Unchecked 0x2,0x2
065f e402 | | Load 0x2,0x2
0660 0f07 | | Execute_Immediate Equal,0x7
0661 6811 |h | Jump_Zero 0x673
0662 e5fc | | Load 0x2,-0x4
0663 e003 | | Load 0x0,0x3
0664 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0665 0afd | | Execute_Immediate Plus,-0x3
0666 e003 | | Load 0x0,0x3
0667 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0668 00d9 | | Load_Top At_Offset_1
0669 00d0 | | Action Swap_Control
066a 0260 | ` | Execute Discrete,In_Type
066b 7001 |p | Jump_Nonzero 0x66d
066c 0801 | | Execute_Immediate Raise,0x1
066d e5fc | | Load 0x2,-0x4
066e e003 | | Load 0x0,0x3
066f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0670 e003 | | Load 0x0,0x3
0671 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0672 a402 | | Store_Unchecked 0x2,0x2
0673 e402 | | Load 0x2,0x2
0674 00d8 | | Load_Top At_Offset_0
0675 0c09 | | Execute_Immediate Greater_Equal,0x9
0676 703f |p? | Jump_Nonzero 0x6b6
0677 4608 |F | Jump_Case 0x9
0678 7846 |xF | Jump 0x6bf ; case 0x0
0679 7807 |x | Jump 0x681 ; case 0x1
067a 7867 |xg | Jump 0x6e2 ; case 0x2
067b 7879 |xy | Jump 0x6f5 ; case 0x3
067c 783a |x: | Jump 0x6b7 ; case 0x4
067d 7839 |x9 | Jump 0x6b7 ; case 0x5
067e 7838 |x8 | Jump 0x6b7 ; case 0x6
067f 7837 |x7 | Jump 0x6b7 ; case 0x7
0680 7800 |x | Jump 0x681 ; case 0x8
0681 e5fd | | Load 0x2,-0x3
0682 e00a | | Load 0x0,0xa
0683 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0684 e5fe | | Load 0x2,-0x2
0685 e003 | | Load 0x0,0x3
0686 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0687 c405 | | Store 0x2,0x5
0688 00db | | Load_Top At_Offset_3
0689 e00a | | Load 0x0,0xa
068a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
068b e5fe | | Load 0x2,-0x2
068c e003 | | Load 0x0,0x3
068d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
068e c405 | | Store 0x2,0x5
068f 00db | | Load_Top At_Offset_3
0690 e00a | | Load 0x0,0xa
0691 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0692 e5fe | | Load 0x2,-0x2
0693 e003 | | Load 0x0,0x3
0694 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0695 c405 | | Store 0x2,0x5
0696 e404 | | Load 0x2,0x4
0697 e405 | | Load 0x2,0x5
0698 e230 | 0 | Load 0x1,0x30
0699 e5fe | | Load 0x2,-0x2
069a e003 | | Load 0x0,0x3
069b 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
069c 824b | K | Call 0x1,0x4b
069d 8055 | U | Call 0x0,0x55
069e 00d1 | | Pop_Control Pop_Count_1
069f e404 | | Load 0x2,0x4
06a0 e405 | | Load 0x2,0x5
06a1 8056 | V | Call 0x0,0x56
06a2 00d1 | | Pop_Control Pop_Count_1
06a3 e404 | | Load 0x2,0x4
06a4 8069 | i | Call 0x0,0x69
06a5 00d1 | | Pop_Control Pop_Count_1
06a6 e404 | | Load 0x2,0x4
06a7 806a | j | Call 0x0,0x6a
06a8 00d1 | | Pop_Control Pop_Count_1
06a9 e404 | | Load 0x2,0x4
06aa e5ff | | Load 0x2,-0x1
06ab 8091 | | Call 0x0,0x91
06ac 4809 |H | Short_Literal 0x9
06ad e5ff | | Load 0x2,-0x1
06ae 8093 | | Call 0x0,0x93
06af 00e1 | | Load_Encached Boolean_Cache
06b0 4801 |H | Short_Literal 0x1
06b1 e5ff | | Load 0x2,-0x1
06b2 e234 | 4 | Load 0x1,0x34
06b3 180d | | Execute Package,Field_Execute,Field_Number 0xd
06b4 c403 | | Store 0x2,0x3
06b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06b6 00d1 | | Pop_Control Pop_Count_1
06b7 0092 09cc | | Action Push_String_Extended,0x9cc ; "Illegal internal call: "
06b9 e402 | | Load 0x2,0x2
06ba 00e0 | | Load_Encached Standard_Cache
06bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06bc 01cc | | Execute Vector,Catenate
06bd 8090 | | Call 0x0,0x90
06be 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06bf e5ff | | Load 0x2,-0x1
06c0 a23b | ; | Store_Unchecked 0x1,0x3b
06c1 e5fd | | Load 0x2,-0x3
06c2 c405 | | Store 0x2,0x5
06c3 e404 | | Load 0x2,0x4
06c4 e405 | | Load 0x2,0x5
06c5 e230 | 0 | Load 0x1,0x30
06c6 e5fe | | Load 0x2,-0x2
06c7 e003 | | Load 0x0,0x3
06c8 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
06c9 8055 | U | Call 0x0,0x55
06ca 00d1 | | Pop_Control Pop_Count_1
06cb e404 | | Load 0x2,0x4
06cc e405 | | Load 0x2,0x5
06cd 8056 | V | Call 0x0,0x56
06ce 00d1 | | Pop_Control Pop_Count_1
06cf e404 | | Load 0x2,0x4
06d0 8069 | i | Call 0x0,0x69
06d1 00d1 | | Pop_Control Pop_Count_1
06d2 e404 | | Load 0x2,0x4
06d3 806a | j | Call 0x0,0x6a
06d4 00d1 | | Pop_Control Pop_Count_1
06d5 e404 | | Load 0x2,0x4
06d6 e5ff | | Load 0x2,-0x1
06d7 8091 | | Call 0x0,0x91
06d8 4804 |H | Short_Literal 0x4
06d9 e5ff | | Load 0x2,-0x1
06da 8093 | | Call 0x0,0x93
06db 00e1 | | Load_Encached Boolean_Cache
06dc 4801 |H | Short_Literal 0x1
06dd e5ff | | Load 0x2,-0x1
06de e234 | 4 | Load 0x1,0x34
06df 180d | | Execute Package,Field_Execute,Field_Number 0xd
06e0 c403 | | Store 0x2,0x3
06e1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06e2 00e1 | | Load_Encached Boolean_Cache
06e3 00e3 | | Load_Encached Natural_Cache
06e4 e097 | | Load 0x0,0x97
06e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06e6 e5fc | | Load 0x2,-0x4
06e7 e003 | | Load 0x0,0x3
06e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06e9 8098 | | Call 0x0,0x98
06ea c406 | | Store 0x2,0x6
06eb 005b | [ | Store_Top Discrete,At_Offset_3
06ec 0059 | Y | Store_Top Discrete,At_Offset_1
06ed 00d9 | | Load_Top At_Offset_1
06ee 00db | | Load_Top At_Offset_3
06ef e5fd | | Load 0x2,-0x3
06f0 e5fc | | Load 0x2,-0x4
06f1 e003 | | Load 0x0,0x3
06f2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06f3 8099 | | Call 0x0,0x99
06f4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
06f5 e5fd | | Load 0x2,-0x3
06f6 e00a | | Load 0x0,0xa
06f7 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
06f8 e5fe | | Load 0x2,-0x2
06f9 e003 | | Load 0x0,0x3
06fa 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
06fb c405 | | Store 0x2,0x5
06fc 00e1 | | Load_Encached Boolean_Cache
06fd 00e3 | | Load_Encached Natural_Cache
06fe e097 | | Load 0x0,0x97
06ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0700 e5fc | | Load 0x2,-0x4
0701 e003 | | Load 0x0,0x3
0702 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0703 8098 | | Call 0x0,0x98
0704 c406 | | Store 0x2,0x6
0705 005b | [ | Store_Top Discrete,At_Offset_3
0706 0059 | Y | Store_Top Discrete,At_Offset_1
0707 00d9 | | Load_Top At_Offset_1
0708 00db | | Load_Top At_Offset_3
0709 e405 | | Load 0x2,0x5
070a e5fc | | Load 0x2,-0x4
070b e003 | | Load 0x0,0x3
070c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
070d 809a | | Call 0x0,0x9a
070e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
070f 0000 | | .XXX[0x1]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0715 | | .CONST 0x0715 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0002 | | .CONST 0x0002 ; Number of locals
0713 INIT_0710:
0713 e003 | | Load 0x0,0x3
0714 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0715 BODY_0710:
0715 e5fe | | Load 0x2,-0x2
0716 809b | | Call 0x0,0x9b
0717 4603 |F | Jump_Case 0x4
0718 7806 |x | Jump 0x71f ; case 0x0
0719 780f |x | Jump 0x729 ; case 0x1
071a 7801 |x | Jump 0x71c ; case 0x2
071b 7800 |x | Jump 0x71c ; case 0x3
071c 601b |` | Indirect_Literal Discrete,0x738,{0x00000000, 0x000fffff}
071d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
071e 7814 |x | Jump 0x733
071f 00db | | Load_Top At_Offset_3
0720 8030 | 0 | Call 0x0,0x30
0721 809c | | Call 0x0,0x9c
0722 e003 | | Load 0x0,0x3
0723 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0724 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0725 00d8 | | Load_Top At_Offset_0
0726 0a01 | | Execute_Immediate Plus,0x1
0727 0059 | Y | Store_Top Discrete,At_Offset_1
0728 780a |x | Jump 0x733
0729 00db | | Load_Top At_Offset_3
072a 8030 | 0 | Call 0x0,0x30
072b 809c | | Call 0x0,0x9c
072c e003 | | Load 0x0,0x3
072d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
072e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
072f 00d8 | | Load_Top At_Offset_0
0730 7002 |p | Jump_Nonzero 0x733
0731 e226 | & | Load 0x1,0x26
0732 0257 | W | Execute Discrete,Raise
0733 00d8 | | Load_Top At_Offset_0
0734 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0735 0000 0000 | | .XXX[0x3]
0737 0000 | |
0738 0000 0000 | | .LITERAL {0x00000000, 0x000fffff}
073c 0000 0000 | | .BLANK 0000[0x4]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743 | C | .CONST 0x0743 ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0001 | | .CONST 0x0001 ; Number of locals
0743 BODY_0740:
0743 INIT_0740:
0743 00da | | Load_Top At_Offset_2
0744 8094 | | Call 0x0,0x94
0745 702a |p* | Jump_Nonzero 0x770
0746 00da | | Load_Top At_Offset_2
0747 8087 | | Call 0x0,0x87
0748 0f04 | | Execute_Immediate Equal,0x4
0749 6824 |h$ | Jump_Zero 0x76e
074a 00da | | Load_Top At_Offset_2
074b 8082 | | Call 0x0,0x82
074c e22f | / | Load 0x1,0x2f
074d 017f | | Execute Record,Equal
074e 681d |h | Jump_Zero 0x76c
074f 00da | | Load_Top At_Offset_2
0750 8084 | | Call 0x0,0x84
0751 e231 | 1 | Load 0x1,0x31
0752 017f | | Execute Record,Equal
0753 6816 |h | Jump_Zero 0x76a
0754 00da | | Load_Top At_Offset_2
0755 8083 | | Call 0x0,0x83
0756 e22e | . | Load 0x1,0x2e
0757 027f | | Execute Discrete,Equal
0758 680f |h | Jump_Zero 0x768
0759 00da | | Load_Top At_Offset_2
075a 8081 | | Call 0x0,0x81
075b 0f01 | | Execute_Immediate Equal,0x1
075c 6809 |h | Jump_Zero 0x766
075d 00da | | Load_Top At_Offset_2
075e 809b | | Call 0x0,0x9b
075f 0f02 | | Execute_Immediate Equal,0x2
0760 6803 |h | Jump_Zero 0x764
0761 00da | | Load_Top At_Offset_2
0762 809d | | Call 0x0,0x9d
0763 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0764 4800 |H | Short_Literal 0x0
0765 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0766 4800 |H | Short_Literal 0x0
0767 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0768 4800 |H | Short_Literal 0x0
0769 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076a 4800 |H | Short_Literal 0x0
076b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076c 4800 |H | Short_Literal 0x0
076d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076e 4800 |H | Short_Literal 0x0
076f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0770 4800 |H | Short_Literal 0x0
0771 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0772 0000 0000 | | .BLANK 0000[0x6]
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 7025 |p% | Jump_Nonzero 0x7a3
077e 00da | | Load_Top At_Offset_2
077f 8087 | | Call 0x0,0x87
0780 0f04 | | Execute_Immediate Equal,0x4
0781 681f |h | Jump_Zero 0x7a1
0782 00da | | Load_Top At_Offset_2
0783 8082 | | Call 0x0,0x82
0784 e22f | / | Load 0x1,0x2f
0785 017f | | Execute Record,Equal
0786 6818 |h | Jump_Zero 0x79f
0787 00da | | Load_Top At_Offset_2
0788 8084 | | Call 0x0,0x84
0789 e231 | 1 | Load 0x1,0x31
078a 017f | | Execute Record,Equal
078b 6811 |h | Jump_Zero 0x79d
078c 00da | | Load_Top At_Offset_2
078d 8083 | | Call 0x0,0x83
078e e22e | . | Load 0x1,0x2e
078f 027f | | Execute Discrete,Equal
0790 680a |h | Jump_Zero 0x79b
0791 00da | | Load_Top At_Offset_2
0792 807e | ~ | Call 0x0,0x7e
0793 807f | | Call 0x0,0x7f
0794 6804 |h | Jump_Zero 0x799
0795 00da | | Load_Top At_Offset_2
0796 809d | | Call 0x0,0x9d
0797 0f00 | | Execute_Immediate Equal,0x0
0798 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0799 4800 |H | Short_Literal 0x0
079a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
079b 4800 |H | Short_Literal 0x0
079c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
079d 4800 |H | Short_Literal 0x0
079e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
079f 4800 |H | Short_Literal 0x0
07a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a1 4800 |H | Short_Literal 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 7017 |p | Jump_Nonzero 0x7c5
07ae 00da | | Load_Top At_Offset_2
07af 8087 | | Call 0x0,0x87
07b0 0f04 | | Execute_Immediate Equal,0x4
07b1 6811 |h | Jump_Zero 0x7c3
07b2 00da | | Load_Top At_Offset_2
07b3 8084 | | Call 0x0,0x84
07b4 e231 | 1 | Load 0x1,0x31
07b5 017e | ~ | Execute Record,Not_Equal
07b6 6805 |h | Jump_Zero 0x7bc
07b7 00da | | Load_Top At_Offset_2
07b8 8083 | | Call 0x0,0x83
07b9 e22e | . | Load 0x1,0x2e
07ba 027e | ~ | Execute Discrete,Not_Equal
07bb 7005 |p | Jump_Nonzero 0x7c1
07bc 00da | | Load_Top At_Offset_2
07bd 807e | ~ | Call 0x0,0x7e
07be 807f | | Call 0x0,0x7f
07bf 0f00 | | Execute_Immediate Equal,0x0
07c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07c1 4801 |H | Short_Literal 0x1
07c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07c3 4800 |H | Short_Literal 0x0
07c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07c5 4800 |H | Short_Literal 0x0
07c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07c7 0000 | | .XXX[0x1]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb | | .CONST 0x07cb ; Address of begin
07c9 0004 | | .CONST 0x0004 ; Address of exception handler
07ca 0001 | | .CONST 0x0001 ; Number of locals
07cb BODY_07c8:
07cb INIT_07c8:
07cb 00da | | Load_Top At_Offset_2
07cc 8094 | | Call 0x0,0x94
07cd 7004 |p | Jump_Nonzero 0x7d2
07ce 00da | | Load_Top At_Offset_2
07cf 8087 | | Call 0x0,0x87
07d0 0f02 | | Execute_Immediate Equal,0x2
07d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07d2 4800 |H | Short_Literal 0x0
07d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07d4 0000 0000 | | .BLANK 0000[0x4]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db | | .CONST 0x07db ; Address of begin
07d9 0004 | | .CONST 0x0004 ; Address of exception handler
07da 0001 | | .CONST 0x0001 ; Number of locals
07db BODY_07d8:
07db INIT_07d8:
07db 00da | | Load_Top At_Offset_2
07dc 8094 | | Call 0x0,0x94
07dd 7004 |p | Jump_Nonzero 0x7e2
07de 00da | | Load_Top At_Offset_2
07df 8087 | | Call 0x0,0x87
07e0 0f00 | | Execute_Immediate Equal,0x0
07e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07e2 4800 |H | Short_Literal 0x0
07e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07e4 0000 0000 | | .BLANK 0000[0x4]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb | | .CONST 0x07eb ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0001 | | .CONST 0x0001 ; Number of locals
07eb BODY_07e8:
07eb INIT_07e8:
07eb 00da | | Load_Top At_Offset_2
07ec 8094 | | Call 0x0,0x94
07ed 0f01 | | Execute_Immediate Equal,0x1
07ee 6804 |h | Jump_Zero 0x7f3
07ef 00da | | Load_Top At_Offset_2
07f0 8087 | | Call 0x0,0x87
07f1 0f02 | | Execute_Immediate Equal,0x2
07f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07f3 4800 |H | Short_Literal 0x0
07f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07f5 0000 0000 | | .XXX[0x3]
07f7 0000 | |
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb | | .CONST 0x07fb ; Address of begin
07f9 0004 | | .CONST 0x0004 ; Address of exception handler
07fa 0001 | | .CONST 0x0001 ; Number of locals
07fb BODY_07f8:
07fb INIT_07f8:
07fb 00da | | Load_Top At_Offset_2
07fc 8094 | | Call 0x0,0x94
07fd 0f01 | | Execute_Immediate Equal,0x1
07fe 6804 |h | Jump_Zero 0x803
07ff 00da | | Load_Top At_Offset_2
0800 8087 | | Call 0x0,0x87
0801 0f00 | | Execute_Immediate Equal,0x0
0802 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0803 4800 |H | Short_Literal 0x0
0804 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0805 0000 0000 | | .XXX[0x3]
0807 0000 | |
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b | | .CONST 0x080b ; Address of begin
0809 0004 | | .CONST 0x0004 ; Address of exception handler
080a 0001 | | .CONST 0x0001 ; Number of locals
080b BODY_0808:
080b INIT_0808:
080b 00da | | Load_Top At_Offset_2
080c 8094 | | Call 0x0,0x94
080d 0f01 | | Execute_Immediate Equal,0x1
080e 680a |h | Jump_Zero 0x819
080f 00da | | Load_Top At_Offset_2
0810 8087 | | Call 0x0,0x87
0811 0f04 | | Execute_Immediate Equal,0x4
0812 7004 |p | Jump_Nonzero 0x817
0813 00da | | Load_Top At_Offset_2
0814 8087 | | Call 0x0,0x87
0815 0f03 | | Execute_Immediate Equal,0x3
0816 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0817 4801 |H | Short_Literal 0x1
0818 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0819 4800 |H | Short_Literal 0x0
081a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
081b 0000 0000 | | .BLANK 0000[0x5]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823 | # | .CONST 0x0823 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0001 | | .CONST 0x0001 ; Number of locals
0823 BODY_0820:
0823 INIT_0820:
0823 00da | | Load_Top At_Offset_2
0824 8087 | | Call 0x0,0x87
0825 0f01 | | Execute_Immediate Equal,0x1
0826 7001 |p | Jump_Nonzero 0x828
0827 7802 |x | Jump 0x82a
0828 e228 | ( | Load 0x1,0x28
0829 0257 | W | Execute Discrete,Raise
082a 00da | | Load_Top At_Offset_2
082b 8094 | | Call 0x0,0x94
082c 4801 |H | Short_Literal 0x1
082d 4802 |H | Short_Literal 0x2
082e 0262 | b | Execute Discrete,In_Range
082f 7019 |p | Jump_Nonzero 0x849
0830 7800 |x | Jump 0x831
0831 00da | | Load_Top At_Offset_2
0832 808a | | Call 0x0,0x8a
0833 460a |F | Jump_Case 0xb
0834 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
0835 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
0836 780a |x | Jump 0x841 ; case 0x2
0837 7807 |x | Jump 0x83f ; case 0x3
0838 7806 |x | Jump 0x83f ; case 0x4
0839 7809 |x | Jump 0x843 ; case 0x5
083a 780a |x | Jump 0x845 ; case 0x6
083b 7803 |x | Jump 0x83f ; case 0x7
083c 780a |x | Jump 0x847 ; case 0x8
083d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
083e 7800 |x | Jump 0x83f ; case 0xa
083f e228 | ( | Load 0x1,0x28
0840 0257 | W | Execute Discrete,Raise
0841 e228 | ( | Load 0x1,0x28
0842 0257 | W | Execute Discrete,Raise
0843 e228 | ( | Load 0x1,0x28
0844 0257 | W | Execute Discrete,Raise
0845 e228 | ( | Load 0x1,0x28
0846 0257 | W | Execute Discrete,Raise
0847 e228 | ( | Load 0x1,0x28
0848 0257 | W | Execute Discrete,Raise
0849 4502 |E | Exit_Suprogram New_Top_Offset 0x2
084a 0000 0000 | | .BLANK 0000[0x6]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0858 | X | .CONST 0x0858 ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0002 | | .CONST 0x0002 ; Number of locals
0853 INIT_0850:
0853 e5fd | | Load 0x2,-0x3
0854 807c | | | Call 0x0,0x7c
0855 e002 | | Load 0x0,0x2
0856 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0857 03f1 | | Declare_Variable Discrete,With_Value
0858 BODY_0850:
0858 e5fd | | Load 0x2,-0x3
0859 824f | O | Call 0x1,0x4f
085a 6821 |h! | Jump_Zero 0x87c
085b e5fd | | Load 0x2,-0x3
085c 808a | | Call 0x0,0x8a
085d 0f09 | | Execute_Immediate Equal,0x9
085e 680c |h | Jump_Zero 0x86b
085f 00d8 | | Load_Top At_Offset_0
0860 e5fd | | Load 0x2,-0x3
0861 8081 | | Call 0x0,0x81
0862 00d8 | | Load_Top At_Offset_0
0863 00e4 | | Load_Encached Positive_Cache
0864 0260 | ` | Execute Discrete,In_Type
0865 7001 |p | Jump_Nonzero 0x867
0866 0801 | | Execute_Immediate Raise,0x1
0867 e5ff | | Load 0x2,-0x1
0868 e233 | 3 | Load 0x1,0x33
0869 181a | | Execute Package,Field_Execute,Field_Number 0x1a
086a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
086b e5fe | | Load 0x2,-0x2
086c 00d9 | | Load_Top At_Offset_1
086d e5fd | | Load 0x2,-0x3
086e e5ff | | Load 0x2,-0x1
086f 824d | M | Call 0x1,0x4d
0870 e5fd | | Load 0x2,-0x3
0871 8081 | | Call 0x0,0x81
0872 00d8 | | Load_Top At_Offset_0
0873 00e4 | | Load_Encached Positive_Cache
0874 0260 | ` | Execute Discrete,In_Type
0875 7001 |p | Jump_Nonzero 0x877
0876 0801 | | Execute_Immediate Raise,0x1
0877 e5ff | | Load 0x2,-0x1
0878 e233 | 3 | Load 0x1,0x33
0879 1815 | | Execute Package,Field_Execute,Field_Number 0x15
087a 00d1 | | Pop_Control Pop_Count_1
087b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
087c e5fd | | Load 0x2,-0x3
087d 824e | N | Call 0x1,0x4e
087e 6808 |h | Jump_Zero 0x887
087f 00d8 | | Load_Top At_Offset_0
0880 e5fe | | Load 0x2,-0x2
0881 e5ff | | Load 0x2,-0x1
0882 e233 | 3 | Load 0x1,0x33
0883 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0884 00d1 | | Pop_Control Pop_Count_1
0885 0059 | Y | Store_Top Discrete,At_Offset_1
0886 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0887 e5fd | | Load 0x2,-0x3
0888 8250 | P | Call 0x1,0x50
0889 6831 |h1 | Jump_Zero 0x8bb
088a e5fd | | Load 0x2,-0x3
088b 807e | ~ | Call 0x0,0x7e
088c 807f | | Call 0x0,0x7f
088d 6819 |h | Jump_Zero 0x8a7
088e 00d8 | | Load_Top At_Offset_0
088f e5fd | | Load 0x2,-0x3
0890 8080 | | Call 0x0,0x80
0891 0f00 | | Execute_Immediate Equal,0x0
0892 e5fd | | Load 0x2,-0x3
0893 8081 | | Call 0x0,0x81
0894 00d8 | | Load_Top At_Offset_0
0895 00e4 | | Load_Encached Positive_Cache
0896 0260 | ` | Execute Discrete,In_Type
0897 7001 |p | Jump_Nonzero 0x899
0898 0801 | | Execute_Immediate Raise,0x1
0899 e5fd | | Load 0x2,-0x3
089a 8082 | | Call 0x0,0x82
089b e5fd | | Load 0x2,-0x3
089c 8083 | | Call 0x0,0x83
089d e5fd | | Load 0x2,-0x3
089e 8084 | | Call 0x0,0x84
089f e5fd | | Load 0x2,-0x3
08a0 8085 | | Call 0x0,0x85
08a1 8086 | | Call 0x0,0x86
08a2 8049 | I | Call 0x0,0x49
08a3 e5ff | | Load 0x2,-0x1
08a4 e233 | 3 | Load 0x1,0x33
08a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
08a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08a7 00d8 | | Load_Top At_Offset_0
08a8 e5fd | | Load 0x2,-0x3
08a9 8080 | | Call 0x0,0x80
08aa 0f00 | | Execute_Immediate Equal,0x0
08ab e5fd | | Load 0x2,-0x3
08ac 8081 | | Call 0x0,0x81
08ad 00d8 | | Load_Top At_Offset_0
08ae 00e4 | | Load_Encached Positive_Cache
08af 0260 | ` | Execute Discrete,In_Type
08b0 7001 |p | Jump_Nonzero 0x8b2
08b1 0801 | | Execute_Immediate Raise,0x1
08b2 e5fd | | Load 0x2,-0x3
08b3 8082 | | Call 0x0,0x82
08b4 e5fd | | Load 0x2,-0x3
08b5 807e | ~ | Call 0x0,0x7e
08b6 8037 | 7 | Call 0x0,0x37
08b7 e5ff | | Load 0x2,-0x1
08b8 e233 | 3 | Load 0x1,0x33
08b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
08ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08bb e5fd | | Load 0x2,-0x3
08bc 8251 | Q | Call 0x1,0x51
08bd 6812 |h | Jump_Zero 0x8d0
08be e5fe | | Load 0x2,-0x2
08bf e5fd | | Load 0x2,-0x3
08c0 807d | } | Call 0x0,0x7d
08c1 8036 | 6 | Call 0x0,0x36
08c2 00da | | Load_Top At_Offset_2
08c3 e5fd | | Load 0x2,-0x3
08c4 8083 | | Call 0x0,0x83
08c5 e5fd | | Load 0x2,-0x3
08c6 8084 | | Call 0x0,0x84
08c7 e5fd | | Load 0x2,-0x3
08c8 8082 | | Call 0x0,0x82
08c9 e5fd | | Load 0x2,-0x3
08ca 808a | | Call 0x0,0x8a
08cb e5ff | | Load 0x2,-0x1
08cc e233 | 3 | Load 0x1,0x33
08cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08ce 00d1 | | Pop_Control Pop_Count_1
08cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08d0 e5fd | | Load 0x2,-0x3
08d1 8252 | R | Call 0x1,0x52
08d2 6810 |h | Jump_Zero 0x8e3
08d3 00d8 | | Load_Top At_Offset_0
08d4 e5fd | | Load 0x2,-0x3
08d5 8085 | | Call 0x0,0x85
08d6 8086 | | Call 0x0,0x86
08d7 e5fd | | Load 0x2,-0x3
08d8 8083 | | Call 0x0,0x83
08d9 e5fd | | Load 0x2,-0x3
08da 8084 | | Call 0x0,0x84
08db e5fd | | Load 0x2,-0x3
08dc 8082 | | Call 0x0,0x82
08dd e5fd | | Load 0x2,-0x3
08de 808a | | Call 0x0,0x8a
08df e5ff | | Load 0x2,-0x1
08e0 e233 | 3 | Load 0x1,0x33
08e1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08e3 e5fd | | Load 0x2,-0x3
08e4 8255 | U | Call 0x1,0x55
08e5 6811 |h | Jump_Zero 0x8f7
08e6 00d8 | | Load_Top At_Offset_0
08e7 e5fd | | Load 0x2,-0x3
08e8 8087 | | Call 0x0,0x87
08e9 e5fd | | Load 0x2,-0x3
08ea 8088 | | Call 0x0,0x88
08eb e5fd | | Load 0x2,-0x3
08ec 8083 | | Call 0x0,0x83
08ed e5fd | | Load 0x2,-0x3
08ee 8084 | | Call 0x0,0x84
08ef e5fd | | Load 0x2,-0x3
08f0 8082 | | Call 0x0,0x82
08f1 e5fd | | Load 0x2,-0x3
08f2 8089 | | Call 0x0,0x89
08f3 e5ff | | Load 0x2,-0x1
08f4 e233 | 3 | Load 0x1,0x33
08f5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
08f7 e5fd | | Load 0x2,-0x3
08f8 8253 | S | Call 0x1,0x53
08f9 7003 |p | Jump_Nonzero 0x8fd
08fa e5fd | | Load 0x2,-0x3
08fb 8254 | T | Call 0x1,0x54
08fc 680f |h | Jump_Zero 0x90c
08fd 00d8 | | Load_Top At_Offset_0
08fe e5fd | | Load 0x2,-0x3
08ff 8087 | | Call 0x0,0x87
0900 e5fd | | Load 0x2,-0x3
0901 8083 | | Call 0x0,0x83
0902 e5fd | | Load 0x2,-0x3
0903 8084 | | Call 0x0,0x84
0904 e5fd | | Load 0x2,-0x3
0905 8082 | | Call 0x0,0x82
0906 e5fd | | Load 0x2,-0x3
0907 8089 | | Call 0x0,0x89
0908 e5ff | | Load 0x2,-0x1
0909 e233 | 3 | Load 0x1,0x33
090a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
090b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
090c e227 | ' | Load 0x1,0x27
090d 0257 | W | Execute Discrete,Raise
090e 0000 0000 | | .XXX[0x2]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0913 | | .CONST 0x0913 ; Address of begin
0911 0004 | | .CONST 0x0004 ; Address of exception handler
0912 0001 | | .CONST 0x0001 ; Number of locals
0913 BODY_0910:
0913 BODY_0910:
0913 INIT_0910:
0913 INIT_0910:
0913 e5fd | | Load 0x2,-0x3
0914 e5fe | | Load 0x2,-0x2
0915 e5ff | | Load 0x2,-0x1
0916 e00e | | Load 0x0,0xe
0917 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0918 00d9 | | Load_Top At_Offset_1
0919 00d0 | | Action Swap_Control
091a 0260 | ` | Execute Discrete,In_Type
091b 7001 |p | Jump_Nonzero 0x91d
091c 0801 | | Execute_Immediate Raise,0x1
091d 8257 | W | Call 0x1,0x57
091e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
091f 0000 | | .XXX[0x1]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0923 | # | .CONST 0x0923 ; Address of begin
0921 0004 | | .CONST 0x0004 ; Address of exception handler
0922 0001 | | .CONST 0x0001 ; Number of locals
0923 BODY_0920:
0923 BODY_0920:
0923 INIT_0920:
0923 INIT_0920:
0923 e5fd | | Load 0x2,-0x3
0924 00d8 | | Load_Top At_Offset_0
0925 00e2 | | Load_Encached Integer_Cache
0926 0260 | ` | Execute Discrete,In_Type
0927 7001 |p | Jump_Nonzero 0x929
0928 0801 | | Execute_Immediate Raise,0x1
0929 e5fe | | Load 0x2,-0x2
092a e5ff | | Load 0x2,-0x1
092b e00e | | Load 0x0,0xe
092c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
092d 00d9 | | Load_Top At_Offset_1
092e 00d0 | | Action Swap_Control
092f 0260 | ` | Execute Discrete,In_Type
0930 7001 |p | Jump_Nonzero 0x932
0931 0801 | | Execute_Immediate Raise,0x1
0932 823e | > | Call 0x1,0x3e
0933 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0934 0000 0000 | | .BLANK 0000[0x4]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093b | ; | .CONST 0x093b ; Address of begin
0939 0004 | | .CONST 0x0004 ; Address of exception handler
093a 0001 | | .CONST 0x0001 ; Number of locals
093b BODY_0938:
093b INIT_0938:
093b e5fd | | Load 0x2,-0x3
093c e5fe | | Load 0x2,-0x2
093d e5ff | | Load 0x2,-0x1
093e e233 | 3 | Load 0x1,0x33
093f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0940 00d1 | | Pop_Control Pop_Count_1
0941 c5fd | | Store 0x2,-0x3
0942 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0943 0000 0000 | | .BLANK 0000[0x5]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094b | K | .CONST 0x094b ; Address of begin
0949 0004 | | .CONST 0x0004 ; Address of exception handler
094a 0001 | | .CONST 0x0001 ; Number of locals
094b BODY_0948:
094b INIT_0948:
094b e5fd | | Load 0x2,-0x3
094c e002 | | Load 0x0,0x2
094d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
094e 025e | ^ | Execute Discrete,Convert
094f e5fe | | Load 0x2,-0x2
0950 e5ff | | Load 0x2,-0x1
0951 e00e | | Load 0x0,0xe
0952 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0953 00d9 | | Load_Top At_Offset_1
0954 00d0 | | Action Swap_Control
0955 0260 | ` | Execute Discrete,In_Type
0956 7001 |p | Jump_Nonzero 0x958
0957 0801 | | Execute_Immediate Raise,0x1
0958 8266 | f | Call 0x1,0x66
0959 00d1 | | Pop_Control Pop_Count_1
095a c5fd | | Store 0x2,-0x3
095b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
095c 0000 0000 | | .BLANK 0000[0x4]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963 | c | .CONST 0x0963 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0001 | | .CONST 0x0001 ; Number of locals
0963 BODY_0960:
0963 INIT_0960:
0963 00db | | Load_Top At_Offset_3
0964 6806 |h | Jump_Zero 0x96b
0965 e5fc | | Load 0x2,-0x4
0966 e5fd | | Load 0x2,-0x3
0967 e5ff | | Load 0x2,-0x1
0968 e233 | 3 | Load 0x1,0x33
0969 181a | | Execute Package,Field_Execute,Field_Number 0x1a
096a 7803 |x | Jump 0x96e
096b e5fc | | Load 0x2,-0x4
096c e233 | 3 | Load 0x1,0x33
096d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
096e e01e | | Load 0x0,0x1e
096f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0970 c5fb | | Store 0x2,-0x5
0971 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0972 0000 0000 | | .BLANK 0000[0x6]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 097b | { | .CONST 0x097b ; Address of begin
0979 0983 | | .CONST 0x0983 ; Address of exception handler
097a 0001 | | .CONST 0x0001 ; Number of locals
097b BODY_0978:
097b INIT_0978:
097b e003 | | Load 0x0,0x3
097c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
097d e5ff | | Load 0x2,-0x1
097e e00a | | Load 0x0,0xa
097f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0980 e003 | | Load 0x0,0x3
0981 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0982 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0983 TRAP_0978:
0983 0007 | | Action Break_Optional
0984 0092 09cd | | Action Push_String_Extended,0x9cd ; "Exception raised setting break mask"
0986 e01e | | Load 0x0,0x1e
0987 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0988 c5fe | | Store 0x2,-0x2
0989 4501 |E | Exit_Suprogram New_Top_Offset 0x1
098a 0000 0000 | | .BLANK 0000[0x6]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993 | | .CONST 0x0993 ; Address of begin
0991 0997 | | .CONST 0x0997 ; Address of exception handler
0992 0001 | | .CONST 0x0001 ; Number of locals
0993 BODY_0990:
0993 INIT_0990:
0993 e5ff | | Load 0x2,-0x1
0994 e095 | | Load 0x0,0x95
0995 180f | | Execute Package,Field_Execute,Field_Number 0xf
0996 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0997 TRAP_0990:
0997 0007 | | Action Break_Optional
0998 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0999 0000 0000 | | .BLANK 0000[0x7]
09a0 ; --------------------------------------------------------------------------------------
09a0 ; SUBPROGRAM
09a0 ; --------------------------------------------------------------------------------------
09a0 09a3 | | .CONST 0x09a3 ; Address of begin
09a1 09a7 | | .CONST 0x09a7 ; Address of exception handler
09a2 0001 | | .CONST 0x0001 ; Number of locals
09a3 BODY_09a0:
09a3 INIT_09a0:
09a3 e5fe | | Load 0x2,-0x2
09a4 e5ff | | Load 0x2,-0x1
09a5 8091 | | Call 0x0,0x91
09a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09a7 TRAP_09a0:
09a7 e052 | R | Load 0x0,0x52
09a8 010f | | Execute Exception,Equal
09a9 680c |h | Jump_Zero 0x9b6
09aa 4801 |H | Short_Literal 0x1
09ab 4801 |H | Short_Literal 0x1
09ac e5ff | | Load 0x2,-0x1
09ad 8045 | E | Call 0x0,0x45
09ae 4800 |H | Short_Literal 0x0
09af 809e | | Call 0x0,0x9e
09b0 e5ff | | Load 0x2,-0x1
09b1 809f | | Call 0x0,0x9f
09b2 e5fe | | Load 0x2,-0x2
09b3 e5ff | | Load 0x2,-0x1
09b4 8091 | | Call 0x0,0x91
09b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b6 0100 | | Execute Exception,Raise
09b7 ; --------------------------------------------------------------------------------------
09b7 ; STRING TABLE
09b7 ; --------------------------------------------------------------------------------------
09b7 0030 | 0 | .STRTAB 0x0030->0x09cf ; "Illegal item type"
09b8 003f | ? | .STRTAB 0x003f->0x09d7 ; "No code generated for this statement"
09b9 0061 | a | .STRTAB 0x0061->0x09e9 ; "Item requires unimplemented facility"
09ba 0083 | | .STRTAB 0x0083->0x09fb ; "Exception raised:"
09bb 0092 | | .STRTAB 0x0092->0x0a04 ; "Task unknown or terminated"
09bc 00aa | | .STRTAB 0x00aa->0x0a11 ; "Too many action items"
09bd 00bd | | .STRTAB 0x00bd->0x0a1b ; "Return stepping illegal from task body"
09be 00e1 | | .STRTAB 0x00e1->0x0a2e ; "Illegal Pc value"
09bf 00ef | | .STRTAB 0x00ef->0x0a36 ; "Max number of exception requests exceeded"
09c0 0116 | | .STRTAB 0x0116->0x0a4b ; "Unable to set task interface subprogram"
09c1 013b | ; | .STRTAB 0x013b->0x0a5e ; "Disable_Debugging exception"
09c2 0154 | T | .STRTAB 0x0154->0x0a6c ; "*** Internal Error: "
09c3 0166 | f | .STRTAB 0x0166->0x0a76 ; "Process: Special item on control list"
09c4 0189 | | .STRTAB 0x0189->0x0a88 ; "Process: unknown class"
09c5 019d | | .STRTAB 0x019d->0x0a93 ; "Profile unimplemented"
09c6 01b0 | | .STRTAB 0x01b0->0x0a9e ; "Continue unexpected"
09c7 01c1 | | .STRTAB 0x01c1->0x0aa7 ; "Process: Exception item on control list"
09c8 01e6 | | .STRTAB 0x01e6->0x0abb ; "Process: Special item on exception list"
09c9 020b | | .STRTAB 0x020b->0x0ace ; "Process: Control item on exception list"
09ca 0230 | 0 | .STRTAB 0x0230->0x0ae2 ; "Process: Other_Action undefined"
09cb 024d | M | .STRTAB 0x024d->0x0af1 ; "Process: Continue unexpected"
09cc 0267 | g | .STRTAB 0x0267->0x0aff ; "Illegal internal call: "
09cd 027c | | | .STRTAB 0x027c->0x0b0b ; "Exception raised setting break mask"
09ce 029d | | .STREND 0x029d->0x0b1c
09cf 496c 6c65 |Ille| .STRTAB_STRINGS
0b1d 0000 0000 | | .XXX[0x3]
0b1f 0000 | |
0b20 ; --------------------------------------------------------------------------------------
0b20 ; Debug Table
0b20 ; --------------------------------------------------------------------------------------
0b20 0004 0007 | | .DEBUG4 0x0004,0x0007,0x8197,0x0000,0x0001,0x0000
0b26 0000 0000 | | .BLANK 0000[0xda]