|
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: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0818 | | .CONST 0x0818 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01a4 | | .CONST 0x01a4 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003b | ; | .CONST 0x003b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4804 |H | Short_Literal 0x4
000d 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0012 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0014 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0016 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0018 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
001a 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
001c 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
001e 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0020 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0022 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0024 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0026 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0028 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
002a 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
002c 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
002e 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
0030 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
0032 4800 |H | Short_Literal 0x0
0033 0093 0703 | | push_full_address INIT_0700
0035 02a0 | | Declare_Subprogram Null_Subprogram
0036 038f | | Declare_Type Package,Defined,Visible
0037 0386 | | Declare_Variable Package,Visible
0038 4800 |H | Short_Literal 0x0
0039 4801 |H | Short_Literal 0x1
003a 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
003c 03fe | | Declare_Type Discrete,Defined,Visible
003d 4800 |H | Short_Literal 0x0
003e 4801 |H | Short_Literal 0x1
003f 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call
0041 03fe | | Declare_Type Discrete,Defined,Visible
0042 0093 0000 | | push_full_address 0x0
0044 619b |a | Indirect_Literal Discrete,0x1e0,{0x80000000, 0x00040000}
0045 0273 | s | Execute Discrete,Plus
0046 e002 | | Load 0x0,0x2
0047 0273 | s | Execute Discrete,Plus
0048 e003 | | Load 0x0,0x3
0049 0273 | s | Execute Discrete,Plus
004a 480f |H | Short_Literal 0xf
004b e004 | | Load 0x0,0x4
004c e005 | | Load 0x0,0x5
004d e006 | | Load 0x0,0x6
004e 4801 |H | Short_Literal 0x1
004f e220 | | Load 0x1,0x20
0050 a007 | | Store_Unchecked 0x0,0x7
0051 a008 | | Store_Unchecked 0x0,0x8
0052 a009 | | Store_Unchecked 0x0,0x9
0053 a00a | | Store_Unchecked 0x0,0xa
0054 a00b | | Store_Unchecked 0x0,0xb
0055 a00c | | Store_Unchecked 0x0,0xc
0056 a00d | | Store_Unchecked 0x0,0xd
0057 a00e | | Store_Unchecked 0x0,0xe
0058 a00f | | Store_Unchecked 0x0,0xf
0059 a010 | | Store_Unchecked 0x0,0x10
005a a011 | | Store_Unchecked 0x0,0x11
005b a012 | | Store_Unchecked 0x0,0x12
005c a013 | | Store_Unchecked 0x0,0x13
005d a014 | | Store_Unchecked 0x0,0x14
005e a015 | | Store_Unchecked 0x0,0x15
005f a016 | | Store_Unchecked 0x0,0x16
0060 e017 | | Load 0x0,0x17
0061 0386 | | Declare_Variable Package,Visible
0062 00d8 | | Load_Top At_Offset_0
0063 020f | | Execute Module,Activate
0064 0093 0000 | | push_full_address 0x0
0066 6175 |au | Indirect_Literal Discrete,0x1dc,{0x80000000, 0x00030000}
0067 0273 | s | Execute Discrete,Plus
0068 e002 | | Load 0x0,0x2
0069 0273 | s | Execute Discrete,Plus
006a e018 | | Load 0x0,0x18
006b 0273 | s | Execute Discrete,Plus
006c 480f |H | Short_Literal 0xf
006d e019 | | Load 0x0,0x19
006e e005 | | Load 0x0,0x5
006f e01a | | Load 0x0,0x1a
0070 4801 |H | Short_Literal 0x1
0071 e220 | | Load 0x1,0x20
0072 a007 | | Store_Unchecked 0x0,0x7
0073 a01b | | Store_Unchecked 0x0,0x1b
0074 a01c | | Store_Unchecked 0x0,0x1c
0075 a01d | | Store_Unchecked 0x0,0x1d
0076 a00b | | Store_Unchecked 0x0,0xb
0077 a00c | | Store_Unchecked 0x0,0xc
0078 a00d | | Store_Unchecked 0x0,0xd
0079 a00e | | Store_Unchecked 0x0,0xe
007a a00f | | Store_Unchecked 0x0,0xf
007b a010 | | Store_Unchecked 0x0,0x10
007c a01e | | Store_Unchecked 0x0,0x1e
007d a01f | | Store_Unchecked 0x0,0x1f
007e a020 | | Store_Unchecked 0x0,0x20
007f a021 | ! | Store_Unchecked 0x0,0x21
0080 a022 | " | Store_Unchecked 0x0,0x22
0081 a023 | # | Store_Unchecked 0x0,0x23
0082 e017 | | Load 0x0,0x17
0083 0386 | | Declare_Variable Package,Visible
0084 00d8 | | Load_Top At_Offset_0
0085 020f | | Execute Module,Activate
0086 0093 0000 | | push_full_address 0x0
0088 614f |aO | Indirect_Literal Discrete,0x1d8,{0x80000000, 0x00020000}
0089 0273 | s | Execute Discrete,Plus
008a e002 | | Load 0x0,0x2
008b 0273 | s | Execute Discrete,Plus
008c e024 | $ | Load 0x0,0x24
008d 0273 | s | Execute Discrete,Plus
008e 480f |H | Short_Literal 0xf
008f e019 | | Load 0x0,0x19
0090 e005 | | Load 0x0,0x5
0091 e01a | | Load 0x0,0x1a
0092 4801 |H | Short_Literal 0x1
0093 e221 | ! | Load 0x1,0x21
0094 a007 | | Store_Unchecked 0x0,0x7
0095 a01b | | Store_Unchecked 0x0,0x1b
0096 a01c | | Store_Unchecked 0x0,0x1c
0097 a01d | | Store_Unchecked 0x0,0x1d
0098 a00b | | Store_Unchecked 0x0,0xb
0099 a00c | | Store_Unchecked 0x0,0xc
009a a00d | | Store_Unchecked 0x0,0xd
009b a00e | | Store_Unchecked 0x0,0xe
009c a00f | | Store_Unchecked 0x0,0xf
009d a010 | | Store_Unchecked 0x0,0x10
009e a01e | | Store_Unchecked 0x0,0x1e
009f a01f | | Store_Unchecked 0x0,0x1f
00a0 a020 | | Store_Unchecked 0x0,0x20
00a1 a021 | ! | Store_Unchecked 0x0,0x21
00a2 a022 | " | Store_Unchecked 0x0,0x22
00a3 a023 | # | Store_Unchecked 0x0,0x23
00a4 e017 | | Load 0x0,0x17
00a5 0386 | | Declare_Variable Package,Visible
00a6 00d8 | | Load_Top At_Offset_0
00a7 020f | | Execute Module,Activate
00a8 e025 | % | Load 0x0,0x25
00a9 00da | | Load_Top At_Offset_2
00aa 0098 | | Execute Package,Field_Read_Dynamic
00ab e025 | % | Load 0x0,0x25
00ac e222 | " | Load 0x1,0x22
00ad 0098 | | Execute Package,Field_Read_Dynamic
00ae e025 | % | Load 0x0,0x25
00af e222 | " | Load 0x1,0x22
00b0 0098 | | Execute Package,Field_Read_Dynamic
00b1 e004 | | Load 0x0,0x4
00b2 e025 | % | Load 0x0,0x25
00b3 e224 | $ | Load 0x1,0x24
00b4 0098 | | Execute Package,Field_Read_Dynamic
00b5 e026 | & | Load 0x0,0x26
00b6 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00b7 02a0 | | Declare_Subprogram Null_Subprogram
00b8 4806 |H | Short_Literal 0x6
00b9 032e | . | Declare_Type Record,Defined,Visible
00ba 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
00bc 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated
00be 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated
00c0 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
00c2 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
00c4 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated
00c6 4800 |H | Short_Literal 0x0
00c7 4805 |H | Short_Literal 0x5
00c8 029f 056b | k| Declare_Subprogram INIT_0568,For_Call
00ca 03fe | | Declare_Type Discrete,Defined,Visible
00cb e225 | % | Load 0x1,0x25
00cc 00e1 | | Load_Encached Boolean_Cache
00cd 00da | | Load_Top At_Offset_2
00ce 00e1 | | Load_Encached Boolean_Cache
00cf e027 | ' | Load 0x0,0x27
00d0 e223 | # | Load 0x1,0x23
00d1 0098 | | Execute Package,Field_Read_Dynamic
00d2 e027 | ' | Load 0x0,0x27
00d3 e222 | " | Load 0x1,0x22
00d4 0098 | | Execute Package,Field_Read_Dynamic
00d5 e027 | ' | Load 0x0,0x27
00d6 e222 | " | Load 0x1,0x22
00d7 0098 | | Execute Package,Field_Read_Dynamic
00d8 e006 | | Load 0x0,0x6
00d9 e027 | ' | Load 0x0,0x27
00da e224 | $ | Load 0x1,0x24
00db 0098 | | Execute Package,Field_Read_Dynamic
00dc 029f 06e3 | | Declare_Subprogram INIT_06e0,For_Call
00de 4809 |H | Short_Literal 0x9
00df 032e | . | Declare_Type Record,Defined,Visible
00e0 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated
00e2 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated
00e4 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated
00e6 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
00e8 0093 0000 | | push_full_address 0x0
00ea 60e9 |` | Indirect_Literal Discrete,0x1d4,{0x80000000, 0x00010000}
00eb 0273 | s | Execute Discrete,Plus
00ec e002 | | Load 0x0,0x2
00ed 0273 | s | Execute Discrete,Plus
00ee e028 | ( | Load 0x0,0x28
00ef 0273 | s | Execute Discrete,Plus
00f0 e225 | % | Load 0x1,0x25
00f1 e22d | - | Load 0x1,0x2d
00f2 4801 |H | Short_Literal 0x1
00f3 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00f4 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00f5 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00f6 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00f7 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00f8 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00f9 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00fa 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00fb 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00fc 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00fd e029 | ) | Load 0x0,0x29
00fe 4810 |H | Short_Literal 0x10
00ff e02a | * | Load 0x0,0x2a
0100 0386 | | Declare_Variable Package,Visible
0101 00d8 | | Load_Top At_Offset_0
0102 020f | | Execute Module,Activate
0103 e02b | + | Load 0x0,0x2b
0104 00d9 | | Load_Top At_Offset_1
0105 0098 | | Execute Package,Field_Read_Dynamic
0106 0129 | ) | Execute Any,Make_Visible
0107 e225 | % | Load 0x1,0x25
0108 e20d | | Load 0x1,0xd
0109 e02c | , | Load 0x0,0x2c
010a e223 | # | Load 0x1,0x23
010b 0098 | | Execute Package,Field_Read_Dynamic
010c e02c | , | Load 0x0,0x2c
010d e222 | " | Load 0x1,0x22
010e 0098 | | Execute Package,Field_Read_Dynamic
010f e02c | , | Load 0x0,0x2c
0110 e222 | " | Load 0x1,0x22
0111 0098 | | Execute Package,Field_Read_Dynamic
0112 e02d | - | Load 0x0,0x2d
0113 e02c | , | Load 0x0,0x2c
0114 e224 | $ | Load 0x1,0x24
0115 0098 | | Execute Package,Field_Read_Dynamic
0116 02a0 | | Declare_Subprogram Null_Subprogram
0117 4807 |H | Short_Literal 0x7
0118 032e | . | Declare_Type Record,Defined,Visible
0119 00bf | | Action Accept_Activation
011a 0093 0000 | | push_full_address 0x0
011c 60b3 |` | Indirect_Literal Discrete,0x1d0,{0x80000000, 0x00010000}
011d 0273 | s | Execute Discrete,Plus
011e 0007 | | Action Break_Optional
011f 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0120 00c7 | | Action Elaborate_Subprogram
0121 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0122 00c7 | | Action Elaborate_Subprogram
0123 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
0125 e02e | . | Load 0x0,0x2e
0126 e02f | / | Load 0x0,0x2f
0127 e232 | 2 | Load 0x1,0x32
0128 0098 | | Execute Package,Field_Read_Dynamic
0129 0095 | | Execute Package,Field_Reference_Dynamic
012a e02b | + | Load 0x0,0x2b
012b e232 | 2 | Load 0x1,0x32
012c 0098 | | Execute Package,Field_Read_Dynamic
012d e030 | 0 | Load 0x0,0x30
012e e02f | / | Load 0x0,0x2f
012f e232 | 2 | Load 0x1,0x32
0130 0098 | | Execute Package,Field_Read_Dynamic
0131 0095 | | Execute Package,Field_Reference_Dynamic
0132 e031 | 1 | Load 0x0,0x31
0133 e02f | / | Load 0x0,0x2f
0134 e232 | 2 | Load 0x1,0x32
0135 0098 | | Execute Package,Field_Read_Dynamic
0136 0095 | | Execute Package,Field_Reference_Dynamic
0137 e032 | 2 | Load 0x0,0x32
0138 e02f | / | Load 0x0,0x2f
0139 e232 | 2 | Load 0x1,0x32
013a 0098 | | Execute Package,Field_Read_Dynamic
013b 0095 | | Execute Package,Field_Reference_Dynamic
013c e033 | 3 | Load 0x0,0x33
013d e02f | / | Load 0x0,0x2f
013e e232 | 2 | Load 0x1,0x32
013f 0098 | | Execute Package,Field_Read_Dynamic
0140 0095 | | Execute Package,Field_Reference_Dynamic
0141 e034 | 4 | Load 0x0,0x34
0142 e02f | / | Load 0x0,0x2f
0143 e232 | 2 | Load 0x1,0x32
0144 0098 | | Execute Package,Field_Read_Dynamic
0145 0095 | | Execute Package,Field_Reference_Dynamic
0146 e035 | 5 | Load 0x0,0x35
0147 e02f | / | Load 0x0,0x2f
0148 e232 | 2 | Load 0x1,0x32
0149 0098 | | Execute Package,Field_Read_Dynamic
014a 0095 | | Execute Package,Field_Reference_Dynamic
014b e036 | 6 | Load 0x0,0x36
014c e02f | / | Load 0x0,0x2f
014d e232 | 2 | Load 0x1,0x32
014e 0098 | | Execute Package,Field_Read_Dynamic
014f 0095 | | Execute Package,Field_Reference_Dynamic
0150 e037 | 7 | Load 0x0,0x37
0151 e02f | / | Load 0x0,0x2f
0152 e232 | 2 | Load 0x1,0x32
0153 0098 | | Execute Package,Field_Read_Dynamic
0154 0095 | | Execute Package,Field_Reference_Dynamic
0155 480a |H | Short_Literal 0xa
0156 e21f | | Load 0x1,0x1f
0157 020e | | Execute Module,Augment_Imports
0158 e21f | | Load 0x1,0x1f
0159 020f | | Execute Module,Activate
015a e038 | 8 | Load 0x0,0x38
015b e039 | 9 | Load 0x0,0x39
015c e22c | , | Load 0x1,0x2c
015d 4800 |H | Short_Literal 0x0
015e 4801 |H | Short_Literal 0x1
015f 4805 |H | Short_Literal 0x5
0160 0092 07b1 | | Action Push_String_Extended,0x7b1 ; "others => Unspecified"
0162 00ea | | Load_Encached Null_String_Cache
0163 00ea | | Load_Encached Null_String_Cache
0164 4801 |H | Short_Literal 0x1
0165 4805 |H | Short_Literal 0x5
0166 e03a | : | Load 0x0,0x3a
0167 0387 | | Declare_Variable Package
0168 00d8 | | Load_Top At_Offset_0
0169 020f | | Execute Module,Activate
016a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
016b 00c7 | | Action Elaborate_Subprogram
016c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
016d 00c7 | | Action Elaborate_Subprogram
016e 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
016f 00c7 | | Action Elaborate_Subprogram
0170 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0171 00c7 | | Action Elaborate_Subprogram
0172 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0173 00c7 | | Action Elaborate_Subprogram
0174 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0175 00c7 | | Action Elaborate_Subprogram
0176 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
0178 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call
017a 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
017c 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call
017e 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
017f 00c7 | | Action Elaborate_Subprogram
0180 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0181 00c7 | | Action Elaborate_Subprogram
0182 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0183 00c7 | | Action Elaborate_Subprogram
0184 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0185 00c7 | | Action Elaborate_Subprogram
0186 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0187 00c7 | | Action Elaborate_Subprogram
0188 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0189 00c7 | | Action Elaborate_Subprogram
018a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
018b 00c7 | | Action Elaborate_Subprogram
018c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
018d 00c7 | | Action Elaborate_Subprogram
018e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
018f 00c7 | | Action Elaborate_Subprogram
0190 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0191 00c7 | | Action Elaborate_Subprogram
0192 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0193 00c7 | | Action Elaborate_Subprogram
0194 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0195 00c7 | | Action Elaborate_Subprogram
0196 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0197 00c7 | | Action Elaborate_Subprogram
0198 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0199 00c7 | | Action Elaborate_Subprogram
019a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
019b 00c7 | | Action Elaborate_Subprogram
019c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
019d 00c7 | | Action Elaborate_Subprogram
019e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
019f 00c7 | | Action Elaborate_Subprogram
01a0 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
01a1 00c7 | | Action Elaborate_Subprogram
01a2 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
01a3 00c7 | | Action Elaborate_Subprogram
01a4 BODY_0008:
01a4 00bc | | Action Signal_Activated
01a5 00bb | | Action Signal_Completion
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 4607 |F | Jump_Case 0x8
01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01ad 7807 |x | Jump 0x1b5 ; case 0x1
01ae 780a |x | Jump 0x1b9 ; case 0x2
01af 780e |x | Jump 0x1be ; case 0x3
01b0 7811 |x | Jump 0x1c2 ; case 0x4
01b1 7812 |x | Jump 0x1c4 ; case 0x5
01b2 7813 |x | Jump 0x1c6 ; case 0x6
01b3 7816 |x | Jump 0x1ca ; case 0x7
01b4 4302 |C | .XXX[0x1]
01b5 00da | | Load_Top At_Offset_2
01b6 0091 07a2 | | Action Push_String_Extended_Indexed,0x7a2 ; "CMVC_FROZEN_UNITS"
01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b9 00db | | Load_Top At_Offset_3
01ba 00db | | Load_Top At_Offset_3
01bb 00e0 | | Load_Encached Standard_Cache
01bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01be 00da | | Load_Top At_Offset_2
01bf 00e0 | | Load_Encached Standard_Cache
01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c2 00db | | Load_Top At_Offset_3
01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c4 00db | | Load_Top At_Offset_3
01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c6 e20d | | Load 0x1,0xd
01c7 00dc | | Load_Top At_Offset_4
01c8 0267 | g | Execute Discrete,Predecessor
01c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ca e20d | | Load 0x1,0xd
01cb 00dc | | Load_Top At_Offset_4
01cc 0268 | h | Execute Discrete,Successor
01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ce 0000 0000 | | .XXX[0x2]
01d0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01d4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01d8 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
01dc 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
01e0 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e03b | ; | Load 0x0,0x3b
01ed e232 | 2 | Load 0x1,0x32
01ee 0096 | | Execute Package,Entry
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
01f4 e02b | + | Load 0x0,0x2b
01f5 e232 | 2 | Load 0x1,0x32
01f6 0098 | | Execute Package,Field_Read_Dynamic
01f7 0216 | | Execute Heap_Access,Convert
01f8 e03c | < | Load 0x0,0x3c
01f9 e232 | 2 | Load 0x1,0x32
01fa 0096 | | Execute Package,Entry
01fb 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020b | | .CONST 0x020b ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e225 | % | Load 0x1,0x25
0204 0322 | " | Declare_Variable Record
0205 e5fe | | Load 0x2,-0x2
0206 e03d | = | Load 0x0,0x3d
0207 e232 | 2 | Load 0x1,0x32
0208 0096 | | Execute Package,Entry
0209 00d9 | | Load_Top At_Offset_1
020a 017d | } | Execute Record,Structure_Write
020b BODY_0200:
020b 00db | | Load_Top At_Offset_3
020c 4604 |F | Jump_Case 0x5
020d 7804 |x | Jump 0x212 ; case 0x0
020e 7805 |x | Jump 0x214 ; case 0x1
020f 780f |x | Jump 0x21f ; case 0x2
0210 7801 |x | Jump 0x212 ; case 0x3
0211 7800 |x | Jump 0x212 ; case 0x4
0212 e235 | 5 | Load 0x1,0x35
0213 0257 | W | Execute Discrete,Raise
0214 00e1 | | Load_Encached Boolean_Cache
0215 e5fc | | Load 0x2,-0x4
0216 e5fd | | Load 0x2,-0x3
0217 00db | | Load_Top At_Offset_3
0218 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0219 e03e | > | Load 0x0,0x3e
021a e222 | " | Load 0x1,0x22
021b 0096 | | Execute Package,Entry
021c 00d1 | | Pop_Control Pop_Count_1
021d c5fb | | Store 0x2,-0x5
021e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
021f 00e1 | | Load_Encached Boolean_Cache
0220 e5fc | | Load 0x2,-0x4
0221 e5fd | | Load 0x2,-0x3
0222 00db | | Load_Top At_Offset_3
0223 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0224 e03e | > | Load 0x0,0x3e
0225 e222 | " | Load 0x1,0x22
0226 0096 | | Execute Package,Entry
0227 00d1 | | Pop_Control Pop_Count_1
0228 c5fb | | Store 0x2,-0x5
0229 4504 |E | Exit_Suprogram New_Top_Offset 0x4
022a 0000 0000 | | .BLANK 0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023b | ; | .CONST 0x023b ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e225 | % | Load 0x1,0x25
0234 0322 | " | Declare_Variable Record
0235 e5fe | | Load 0x2,-0x2
0236 e03d | = | Load 0x0,0x3d
0237 e232 | 2 | Load 0x1,0x32
0238 0096 | | Execute Package,Entry
0239 00d9 | | Load_Top At_Offset_1
023a 017d | } | Execute Record,Structure_Write
023b BODY_0230:
023b 00db | | Load_Top At_Offset_3
023c 6802 |h | Jump_Zero 0x23f
023d e235 | 5 | Load 0x1,0x35
023e 0257 | W | Execute Discrete,Raise
023f 00e1 | | Load_Encached Boolean_Cache
0240 e5fc | | Load 0x2,-0x4
0241 e5fd | | Load 0x2,-0x3
0242 00db | | Load_Top At_Offset_3
0243 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0244 e03e | > | Load 0x0,0x3e
0245 e223 | # | Load 0x1,0x23
0246 0096 | | Execute Package,Entry
0247 00d1 | | Pop_Control Pop_Count_1
0248 c5fb | | Store 0x2,-0x5
0249 4504 |E | Exit_Suprogram New_Top_Offset 0x4
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025b | [ | .CONST 0x025b ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 e225 | % | Load 0x1,0x25
0254 0322 | " | Declare_Variable Record
0255 e5fc | | Load 0x2,-0x4
0256 e03d | = | Load 0x0,0x3d
0257 e232 | 2 | Load 0x1,0x32
0258 0096 | | Execute Package,Entry
0259 00d9 | | Load_Top At_Offset_1
025a 017d | } | Execute Record,Structure_Write
025b BODY_0250:
025b 00db | | Load_Top At_Offset_3
025c 4604 |F | Jump_Case 0x5
025d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
025e 780e |x | Jump 0x26d ; case 0x1
025f 7803 |x | Jump 0x263 ; case 0x2
0260 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3
0261 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x4
0262 4504 |E | .XXX[0x1]
0263 00d8 | | Load_Top At_Offset_0
0264 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0265 e5fd | | Load 0x2,-0x3
0266 e5fe | | Load 0x2,-0x2
0267 e03f | ? | Load 0x0,0x3f
0268 e222 | " | Load 0x1,0x22
0269 0096 | | Execute Package,Entry
026a 00d9 | | Load_Top At_Offset_1
026b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
026c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
026d 00d8 | | Load_Top At_Offset_0
026e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
026f e5fd | | Load 0x2,-0x3
0270 e5fe | | Load 0x2,-0x2
0271 e03f | ? | Load 0x0,0x3f
0272 e222 | " | Load 0x1,0x22
0273 0096 | | Execute Package,Entry
0274 00d9 | | Load_Top At_Offset_1
0275 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0276 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0283 | | .CONST 0x0283 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b e225 | % | Load 0x1,0x25
027c 0322 | " | Declare_Variable Record
027d e5fc | | Load 0x2,-0x4
027e e03d | = | Load 0x0,0x3d
027f e232 | 2 | Load 0x1,0x32
0280 0096 | | Execute Package,Entry
0281 00d9 | | Load_Top At_Offset_1
0282 017d | } | Execute Record,Structure_Write
0283 BODY_0278:
0283 00db | | Load_Top At_Offset_3
0284 4801 |H | Short_Literal 0x1
0285 4804 |H | Short_Literal 0x4
0286 0262 | b | Execute Discrete,In_Range
0287 700a |p | Jump_Nonzero 0x292
0288 7800 |x | Jump 0x289
0289 00d8 | | Load_Top At_Offset_0
028a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
028b e5fd | | Load 0x2,-0x3
028c e5fe | | Load 0x2,-0x2
028d e03f | ? | Load 0x0,0x3f
028e e223 | # | Load 0x1,0x23
028f 0096 | | Execute Package,Entry
0290 00d9 | | Load_Top At_Offset_1
0291 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0292 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a3 | | .CONST 0x02a3 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b e225 | % | Load 0x1,0x25
029c 0322 | " | Declare_Variable Record
029d e5fc | | Load 0x2,-0x4
029e e03d | = | Load 0x0,0x3d
029f e232 | 2 | Load 0x1,0x32
02a0 0096 | | Execute Package,Entry
02a1 00d9 | | Load_Top At_Offset_1
02a2 017d | } | Execute Record,Structure_Write
02a3 BODY_0298:
02a3 00db | | Load_Top At_Offset_3
02a4 4800 |H | Short_Literal 0x0
02a5 4803 |H | Short_Literal 0x3
02a6 0262 | b | Execute Discrete,In_Range
02a7 700a |p | Jump_Nonzero 0x2b2
02a8 7800 |x | Jump 0x2a9
02a9 00d8 | | Load_Top At_Offset_0
02aa 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02ab e5fd | | Load 0x2,-0x3
02ac e5fe | | Load 0x2,-0x2
02ad e03f | ? | Load 0x0,0x3f
02ae e224 | $ | Load 0x1,0x24
02af 0096 | | Execute Package,Entry
02b0 00d9 | | Load_Top At_Offset_1
02b1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02b3 0000 0000 | | .BLANK 0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c5 | | .CONST 0x02c5 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0003 | | .CONST 0x0003 ; Number of locals
02bb INIT_02b8:
02bb e225 | % | Load 0x1,0x25
02bc 0322 | " | Declare_Variable Record
02bd e5fd | | Load 0x2,-0x3
02be e03d | = | Load 0x0,0x3d
02bf e232 | 2 | Load 0x1,0x32
02c0 0096 | | Execute Package,Entry
02c1 00d9 | | Load_Top At_Offset_1
02c2 017d | } | Execute Record,Structure_Write
02c3 e02d | - | Load 0x0,0x2d
02c4 0007 | | Action Break_Optional
02c5 BODY_02b8:
02c5 e02d | - | Load 0x0,0x2d
02c6 00da | | Load_Top At_Offset_2
02c7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02c8 8040 | @ | Call 0x0,0x40
02c9 0039 | 9 | Store_Top Access,At_Offset_1
02ca 00cf | | Action Mark_Auxiliary
02cb 780a |x | Jump 0x2d6
02cc 00d9 | | Load_Top At_Offset_1
02cd 8041 | A | Call 0x0,0x41
02ce e5fe | | Load 0x2,-0x2
02cf 8042 | B | Call 0x0,0x42
02d0 6801 |h | Jump_Zero 0x2d2
02d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d2 00d9 | | Load_Top At_Offset_1
02d3 8043 | C | Call 0x0,0x43
02d4 003a | : | Store_Top Access,At_Offset_2
02d5 00c9 | | Action Pop_Auxiliary_Loop
02d6 00d9 | | Load_Top At_Offset_1
02d7 8044 | D | Call 0x0,0x44
02d8 6ff3 |o | Jump_Zero 0x2cc
02d9 00ce | | Action Pop_Auxiliary
02da 00d9 | | Load_Top At_Offset_1
02db 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02dc e5fe | | Load 0x2,-0x2
02dd 8045 | E | Call 0x0,0x45
02de 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02df 0000 | | .XXX[0x1]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02eb | | .CONST 0x02eb ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0002 | | .CONST 0x0002 ; Number of locals
02e3 INIT_02e0:
02e3 e225 | % | Load 0x1,0x25
02e4 0322 | " | Declare_Variable Record
02e5 e5fe | | Load 0x2,-0x2
02e6 e03d | = | Load 0x0,0x3d
02e7 e232 | 2 | Load 0x1,0x32
02e8 0096 | | Execute Package,Entry
02e9 00d9 | | Load_Top At_Offset_1
02ea 017d | } | Execute Record,Structure_Write
02eb BODY_02e0:
02eb 00db | | Load_Top At_Offset_3
02ec 4604 |F | Jump_Case 0x5
02ed 7804 |x | Jump 0x2f2 ; case 0x0
02ee 7805 |x | Jump 0x2f4 ; case 0x1
02ef 780b |x | Jump 0x2fb ; case 0x2
02f0 7801 |x | Jump 0x2f2 ; case 0x3
02f1 7800 |x | Jump 0x2f2 ; case 0x4
02f2 e235 | 5 | Load 0x1,0x35
02f3 0257 | W | Execute Discrete,Raise
02f4 e5fd | | Load 0x2,-0x3
02f5 00d9 | | Load_Top At_Offset_1
02f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f7 e046 | F | Load 0x0,0x46
02f8 e222 | " | Load 0x1,0x22
02f9 0096 | | Execute Package,Entry
02fa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02fb e5fd | | Load 0x2,-0x3
02fc 00d9 | | Load_Top At_Offset_1
02fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02fe e046 | F | Load 0x0,0x46
02ff e222 | " | Load 0x1,0x22
0300 0096 | | Execute Package,Entry
0301 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0313 | | .CONST 0x0313 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e225 | % | Load 0x1,0x25
030c 0322 | " | Declare_Variable Record
030d e5fe | | Load 0x2,-0x2
030e e03d | = | Load 0x0,0x3d
030f e232 | 2 | Load 0x1,0x32
0310 0096 | | Execute Package,Entry
0311 00d9 | | Load_Top At_Offset_1
0312 017d | } | Execute Record,Structure_Write
0313 BODY_0308:
0313 00db | | Load_Top At_Offset_3
0314 4801 |H | Short_Literal 0x1
0315 4804 |H | Short_Literal 0x4
0316 0262 | b | Execute Discrete,In_Range
0317 7008 |p | Jump_Nonzero 0x320
0318 7800 |x | Jump 0x319
0319 e5fd | | Load 0x2,-0x3
031a 00d9 | | Load_Top At_Offset_1
031b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031c e046 | F | Load 0x0,0x46
031d e223 | # | Load 0x1,0x23
031e 0096 | | Execute Package,Entry
031f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0320 0831 | 1 | Execute_Immediate Raise,0x31
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0333 | 3 | .CONST 0x0333 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0002 | | .CONST 0x0002 ; Number of locals
032b INIT_0328:
032b e225 | % | Load 0x1,0x25
032c 0322 | " | Declare_Variable Record
032d e5fe | | Load 0x2,-0x2
032e e03d | = | Load 0x0,0x3d
032f e232 | 2 | Load 0x1,0x32
0330 0096 | | Execute Package,Entry
0331 00d9 | | Load_Top At_Offset_1
0332 017d | } | Execute Record,Structure_Write
0333 BODY_0328:
0333 00db | | Load_Top At_Offset_3
0334 4800 |H | Short_Literal 0x0
0335 4803 |H | Short_Literal 0x3
0336 0262 | b | Execute Discrete,In_Range
0337 7008 |p | Jump_Nonzero 0x340
0338 7800 |x | Jump 0x339
0339 e5fd | | Load 0x2,-0x3
033a 00d9 | | Load_Top At_Offset_1
033b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
033c e046 | F | Load 0x0,0x46
033d e224 | $ | Load 0x1,0x24
033e 0096 | | Execute Package,Entry
033f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0340 0831 | 1 | Execute_Immediate Raise,0x31
0341 0000 0000 | | .BLANK 0000[0x7]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0355 | U | .CONST 0x0355 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0003 | | .CONST 0x0003 ; Number of locals
034b INIT_0348:
034b e234 | 4 | Load 0x1,0x34
034c 0322 | " | Declare_Variable Record
034d e225 | % | Load 0x1,0x25
034e 0322 | " | Declare_Variable Record
034f e5fe | | Load 0x2,-0x2
0350 e03d | = | Load 0x0,0x3d
0351 e232 | 2 | Load 0x1,0x32
0352 0096 | | Execute Package,Entry
0353 00d9 | | Load_Top At_Offset_1
0354 017d | } | Execute Record,Structure_Write
0355 BODY_0348:
0355 e5ff | | Load 0x2,-0x1
0356 00da | | Load_Top At_Offset_2
0357 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0358 e5ff | | Load 0x2,-0x1
0359 4604 |F | Jump_Case 0x5
035a 7825 |x% | Jump 0x380 ; case 0x0
035b 780e |x | Jump 0x36a ; case 0x1
035c 7818 |x | Jump 0x375 ; case 0x2
035d 782d |x- | Jump 0x38b ; case 0x3
035e 7800 |x | Jump 0x35f ; case 0x4
035f e02c | , | Load 0x0,0x2c
0360 e224 | $ | Load 0x1,0x24
0361 0098 | | Execute Package,Field_Read_Dynamic
0362 00d9 | | Load_Top At_Offset_1
0363 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0364 e047 | G | Load 0x0,0x47
0365 e224 | $ | Load 0x1,0x24
0366 0096 | | Execute Package,Entry
0367 00da | | Load_Top At_Offset_2
0368 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0369 7827 |x' | Jump 0x391
036a e02c | , | Load 0x0,0x2c
036b e222 | " | Load 0x1,0x22
036c 0098 | | Execute Package,Field_Read_Dynamic
036d 00d9 | | Load_Top At_Offset_1
036e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036f e047 | G | Load 0x0,0x47
0370 e222 | " | Load 0x1,0x22
0371 0096 | | Execute Package,Entry
0372 00da | | Load_Top At_Offset_2
0373 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0374 781c |x | Jump 0x391
0375 e02c | , | Load 0x0,0x2c
0376 e222 | " | Load 0x1,0x22
0377 0098 | | Execute Package,Field_Read_Dynamic
0378 00d9 | | Load_Top At_Offset_1
0379 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
037a e047 | G | Load 0x0,0x47
037b e222 | " | Load 0x1,0x22
037c 0096 | | Execute Package,Entry
037d 00da | | Load_Top At_Offset_2
037e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
037f 7811 |x | Jump 0x391
0380 e02c | , | Load 0x0,0x2c
0381 e223 | # | Load 0x1,0x23
0382 0098 | | Execute Package,Field_Read_Dynamic
0383 00d9 | | Load_Top At_Offset_1
0384 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0385 e047 | G | Load 0x0,0x47
0386 e223 | # | Load 0x1,0x23
0387 0096 | | Execute Package,Entry
0388 00da | | Load_Top At_Offset_2
0389 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
038a 7806 |x | Jump 0x391
038b e02d | - | Load 0x0,0x2d
038c 00d9 | | Load_Top At_Offset_1
038d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
038e 8040 | @ | Call 0x0,0x40
038f 00da | | Load_Top At_Offset_2
0390 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0391 00d9 | | Load_Top At_Offset_1
0392 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0393 0000 0000 | | .BLANK 0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00da | | Load_Top At_Offset_2
039c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
039d 4604 |F | Jump_Case 0x5
039e 781c |x | Jump 0x3bb ; case 0x0
039f 780b |x | Jump 0x3ab ; case 0x1
03a0 7812 |x | Jump 0x3b3 ; case 0x2
03a1 7821 |x! | Jump 0x3c3 ; case 0x3
03a2 7800 |x | Jump 0x3a3 ; case 0x4
03a3 00da | | Load_Top At_Offset_2
03a4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
03a5 e048 | H | Load 0x0,0x48
03a6 e224 | $ | Load 0x1,0x24
03a7 0096 | | Execute Package,Entry
03a8 00db | | Load_Top At_Offset_3
03a9 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
03aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ab 00da | | Load_Top At_Offset_2
03ac 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ad e048 | H | Load 0x0,0x48
03ae e222 | " | Load 0x1,0x22
03af 0096 | | Execute Package,Entry
03b0 00db | | Load_Top At_Offset_3
03b1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b3 00da | | Load_Top At_Offset_2
03b4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03b5 e048 | H | Load 0x0,0x48
03b6 e222 | " | Load 0x1,0x22
03b7 0096 | | Execute Package,Entry
03b8 00db | | Load_Top At_Offset_3
03b9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03bb 00da | | Load_Top At_Offset_2
03bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03bd e048 | H | Load 0x0,0x48
03be e223 | # | Load 0x1,0x23
03bf 0096 | | Execute Package,Entry
03c0 00db | | Load_Top At_Offset_3
03c1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c3 00da | | Load_Top At_Offset_2
03c4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03c5 8043 | C | Call 0x0,0x43
03c6 00db | | Load_Top At_Offset_3
03c7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c9 0000 0000 | | .BLANK 0000[0x7]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d5 4604 |F | Jump_Case 0x5
03d6 7812 |x | Jump 0x3e9 ; case 0x0
03d7 7805 |x | Jump 0x3dd ; case 0x1
03d8 780a |x | Jump 0x3e3 ; case 0x2
03d9 7801 |x | Jump 0x3db ; case 0x3
03da 7800 |x | Jump 0x3db ; case 0x4
03db 8049 | I | Call 0x0,0x49
03dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03dd 00da | | Load_Top At_Offset_2
03de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03df e04a | J | Load 0x0,0x4a
03e0 e222 | " | Load 0x1,0x22
03e1 0096 | | Execute Package,Entry
03e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e3 00da | | Load_Top At_Offset_2
03e4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03e5 e04a | J | Load 0x0,0x4a
03e6 e222 | " | Load 0x1,0x22
03e7 0096 | | Execute Package,Entry
03e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e9 00da | | Load_Top At_Offset_2
03ea 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03eb e04a | J | Load 0x0,0x4a
03ec e223 | # | Load 0x1,0x23
03ed 0096 | | Execute Package,Entry
03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ef 0000 | | .XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 00da | | Load_Top At_Offset_2
03f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03f5 0f04 | | Execute_Immediate Equal,0x4
03f6 7002 |p | Jump_Nonzero 0x3f9
03f7 8049 | I | Call 0x0,0x49
03f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f9 00da | | Load_Top At_Offset_2
03fa 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
03fb e04a | J | Load 0x0,0x4a
03fc e224 | $ | Load 0x1,0x24
03fd 0096 | | Execute Package,Entry
03fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ff 0000 | | .XXX[0x1]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 00da | | Load_Top At_Offset_2
0404 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0405 0f03 | | Execute_Immediate Equal,0x3
0406 7001 |p | Jump_Nonzero 0x408
0407 7804 |x | Jump 0x40c
0408 00da | | Load_Top At_Offset_2
0409 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
040a 8041 | A | Call 0x0,0x41
040b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040c 0831 | 1 | Execute_Immediate Raise,0x31
040d 0000 0000 | | .XXX[0x3]
040f 0000 | |
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0415 4604 |F | Jump_Case 0x5
0416 7816 |x | Jump 0x42d ; case 0x0
0417 7809 |x | Jump 0x421 ; case 0x1
0418 780e |x | Jump 0x427 ; case 0x2
0419 7819 |x | Jump 0x433 ; case 0x3
041a 7800 |x | Jump 0x41b ; case 0x4
041b 00da | | Load_Top At_Offset_2
041c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
041d e04b | K | Load 0x0,0x4b
041e e224 | $ | Load 0x1,0x24
041f 0096 | | Execute Package,Entry
0420 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0421 00da | | Load_Top At_Offset_2
0422 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0423 e04b | K | Load 0x0,0x4b
0424 e222 | " | Load 0x1,0x22
0425 0096 | | Execute Package,Entry
0426 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0427 00da | | Load_Top At_Offset_2
0428 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0429 e04b | K | Load 0x0,0x4b
042a e222 | " | Load 0x1,0x22
042b 0096 | | Execute Package,Entry
042c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042d 00da | | Load_Top At_Offset_2
042e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
042f e04b | K | Load 0x0,0x4b
0430 e223 | # | Load 0x1,0x23
0431 0096 | | Execute Package,Entry
0432 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0433 00da | | Load_Top At_Offset_2
0434 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0435 8044 | D | Call 0x0,0x44
0436 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0437 0000 | | .XXX[0x1]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 4607 |F | Jump_Case 0x8
043c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
043d 7807 |x | Jump 0x445 ; case 0x1
043e 780a |x | Jump 0x449 ; case 0x2
043f 780e |x | Jump 0x44e ; case 0x3
0440 7811 |x | Jump 0x452 ; case 0x4
0441 7812 |x | Jump 0x454 ; case 0x5
0442 7813 |x | Jump 0x456 ; case 0x6
0443 7816 |x | Jump 0x45a ; case 0x7
0444 4302 |C | .XXX[0x1]
0445 00da | | Load_Top At_Offset_2
0446 0091 07a7 | | Action Push_String_Extended_Indexed,0x7a7 ; "VIEW"
0448 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0449 00db | | Load_Top At_Offset_3
044a 00db | | Load_Top At_Offset_3
044b 00e0 | | Load_Encached Standard_Cache
044c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
044d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
044e 00da | | Load_Top At_Offset_2
044f 00e0 | | Load_Encached Standard_Cache
0450 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0451 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0452 00db | | Load_Top At_Offset_3
0453 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0454 00db | | Load_Top At_Offset_3
0455 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0456 e220 | | Load 0x1,0x20
0457 00dc | | Load_Top At_Offset_4
0458 0267 | g | Execute Discrete,Predecessor
0459 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
045a e220 | | Load 0x1,0x20
045b 00dc | | Load_Top At_Offset_4
045c 0268 | h | Execute Discrete,Successor
045d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
045e 0000 0000 | | .XXX[0x2]
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 4607 |F | Jump_Case 0x8
0464 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0465 7807 |x | Jump 0x46d ; case 0x1
0466 780a |x | Jump 0x471 ; case 0x2
0467 780e |x | Jump 0x476 ; case 0x3
0468 7811 |x | Jump 0x47a ; case 0x4
0469 7812 |x | Jump 0x47c ; case 0x5
046a 7813 |x | Jump 0x47e ; case 0x6
046b 7816 |x | Jump 0x482 ; case 0x7
046c 4302 |C | .XXX[0x1]
046d 00da | | Load_Top At_Offset_2
046e 0091 07a9 | | Action Push_String_Extended_Indexed,0x7a9 ; "SUBJECT_PROGRAM"
0470 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0471 00db | | Load_Top At_Offset_3
0472 00db | | Load_Top At_Offset_3
0473 00e0 | | Load_Encached Standard_Cache
0474 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0475 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0476 00da | | Load_Top At_Offset_2
0477 00e0 | | Load_Encached Standard_Cache
0478 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0479 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
047a 00db | | Load_Top At_Offset_3
047b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
047c 00db | | Load_Top At_Offset_3
047d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
047e e221 | ! | Load 0x1,0x21
047f 00dc | | Load_Top At_Offset_4
0480 0267 | g | Execute Discrete,Predecessor
0481 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0482 e221 | ! | Load 0x1,0x21
0483 00dc | | Load_Top At_Offset_4
0484 0268 | h | Execute Discrete,Successor
0485 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0486 0000 0000 | | .XXX[0x2]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048f | | .CONST 0x048f ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0003 | | .CONST 0x0003 ; Number of locals
048b INIT_0488:
048b e237 | 7 | Load 0x1,0x37
048c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
048d e225 | % | Load 0x1,0x25
048e 0322 | " | Declare_Variable Record
048f BODY_0488:
048f e5ff | | Load 0x2,-0x1
0490 e237 | 7 | Load 0x1,0x37
0491 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0492 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0493 00cf | | Action Mark_Auxiliary
0494 4805 |H | Short_Literal 0x5
0495 4801 |H | Short_Literal 0x1
0496 0007 | | Action Break_Optional
0497 00d8 | | Load_Top At_Offset_0
0498 e402 | | Load 0x2,0x2
0499 e237 | 7 | Load 0x1,0x37
049a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
049b 6841 |hA | Jump_Zero 0x4dd
049c 00d8 | | Load_Top At_Offset_0
049d 0aff | | Execute_Immediate Plus,-0x1
049e 4604 |F | Jump_Case 0x5
049f 7810 |x | Jump 0x4b0 ; case 0x0
04a0 781b |x | Jump 0x4bc ; case 0x1
04a1 7826 |x& | Jump 0x4c8 ; case 0x2
04a2 7831 |x1 | Jump 0x4d4 ; case 0x3
04a3 7800 |x | Jump 0x4a4 ; case 0x4
04a4 e5fe | | Load 0x2,-0x2
04a5 00ea | | Load_Encached Null_String_Cache
04a6 00da | | Load_Top At_Offset_2
04a7 e402 | | Load 0x2,0x2
04a8 e237 | 7 | Load 0x1,0x37
04a9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04aa e04c | L | Load 0x0,0x4c
04ab e224 | $ | Load 0x1,0x24
04ac 0096 | | Execute Package,Entry
04ad e403 | | Load 0x2,0x3
04ae 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04af 782d |x- | Jump 0x4dd
04b0 e5fe | | Load 0x2,-0x2
04b1 00ea | | Load_Encached Null_String_Cache
04b2 00da | | Load_Top At_Offset_2
04b3 e402 | | Load 0x2,0x2
04b4 e237 | 7 | Load 0x1,0x37
04b5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04b6 e04c | L | Load 0x0,0x4c
04b7 e223 | # | Load 0x1,0x23
04b8 0096 | | Execute Package,Entry
04b9 e403 | | Load 0x2,0x3
04ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04bb 7821 |x! | Jump 0x4dd
04bc e5fe | | Load 0x2,-0x2
04bd 00ea | | Load_Encached Null_String_Cache
04be 00da | | Load_Top At_Offset_2
04bf e402 | | Load 0x2,0x2
04c0 e237 | 7 | Load 0x1,0x37
04c1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04c2 e04c | L | Load 0x0,0x4c
04c3 e222 | " | Load 0x1,0x22
04c4 0096 | | Execute Package,Entry
04c5 e403 | | Load 0x2,0x3
04c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c7 7815 |x | Jump 0x4dd
04c8 e5fe | | Load 0x2,-0x2
04c9 00ea | | Load_Encached Null_String_Cache
04ca 00da | | Load_Top At_Offset_2
04cb e402 | | Load 0x2,0x2
04cc e237 | 7 | Load 0x1,0x37
04cd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04ce e04c | L | Load 0x0,0x4c
04cf e222 | " | Load 0x1,0x22
04d0 0096 | | Execute Package,Entry
04d1 e403 | | Load 0x2,0x3
04d2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04d3 7809 |x | Jump 0x4dd
04d4 e5fe | | Load 0x2,-0x2
04d5 00ea | | Load_Encached Null_String_Cache
04d6 00da | | Load_Top At_Offset_2
04d7 e402 | | Load 0x2,0x2
04d8 e237 | 7 | Load 0x1,0x37
04d9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04da 8008 | | Call 0x0,0x8
04db e403 | | Load 0x2,0x3
04dc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04dd 00c8 | | Action Pop_Auxiliary_Range
04de 3fb8 |? | Loop_Increasing 0x497
04df 00ce | | Action Pop_Auxiliary
04e0 00d8 | | Load_Top At_Offset_0
04e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04e2 0000 0000 | | .BLANK 0000[0x6]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f5 | | .CONST 0x04f5 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0002 | | .CONST 0x0002 ; Number of locals
04f3 INIT_04f0:
04f3 e225 | % | Load 0x1,0x25
04f4 0322 | " | Declare_Variable Record
04f5 BODY_04f0:
04f5 00db | | Load_Top At_Offset_3
04f6 e04d | M | Load 0x0,0x4d
04f7 e223 | # | Load 0x1,0x23
04f8 0096 | | Execute Package,Entry
04f9 00d9 | | Load_Top At_Offset_1
04fa 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04fb 00db | | Load_Top At_Offset_3
04fc e04d | M | Load 0x0,0x4d
04fd e222 | " | Load 0x1,0x22
04fe 0096 | | Execute Package,Entry
04ff 00d9 | | Load_Top At_Offset_1
0500 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0501 00db | | Load_Top At_Offset_3
0502 e04d | M | Load 0x0,0x4d
0503 e222 | " | Load 0x1,0x22
0504 0096 | | Execute Package,Entry
0505 00d9 | | Load_Top At_Offset_1
0506 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0507 00db | | Load_Top At_Offset_3
0508 8009 | | Call 0x0,0x9
0509 00d9 | | Load_Top At_Offset_1
050a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
050b 00db | | Load_Top At_Offset_3
050c e04d | M | Load 0x0,0x4d
050d e224 | $ | Load 0x1,0x24
050e 0096 | | Execute Package,Entry
050f 00d9 | | Load_Top At_Offset_1
0510 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0511 00d8 | | Load_Top At_Offset_0
0512 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 00db | | Load_Top At_Offset_3
051c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
051d 00db | | Load_Top At_Offset_3
051e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
051f e04e | N | Load 0x0,0x4e
0520 e224 | $ | Load 0x1,0x24
0521 0096 | | Execute Package,Entry
0522 6824 |h$ | Jump_Zero 0x547
0523 00db | | Load_Top At_Offset_3
0524 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0525 00db | | Load_Top At_Offset_3
0526 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0527 e04e | N | Load 0x0,0x4e
0528 e222 | " | Load 0x1,0x22
0529 0096 | | Execute Package,Entry
052a 681a |h | Jump_Zero 0x545
052b 00db | | Load_Top At_Offset_3
052c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
052d 00db | | Load_Top At_Offset_3
052e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
052f 8011 | | Call 0x0,0x11
0530 6812 |h | Jump_Zero 0x543
0531 00db | | Load_Top At_Offset_3
0532 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0533 00db | | Load_Top At_Offset_3
0534 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0535 e04e | N | Load 0x0,0x4e
0536 e223 | # | Load 0x1,0x23
0537 0096 | | Execute Package,Entry
0538 6808 |h | Jump_Zero 0x541
0539 00db | | Load_Top At_Offset_3
053a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
053b 00db | | Load_Top At_Offset_3
053c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
053d e04e | N | Load 0x0,0x4e
053e e222 | " | Load 0x1,0x22
053f 0096 | | Execute Package,Entry
0540 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0541 4800 |H | Short_Literal 0x0
0542 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0543 4800 |H | Short_Literal 0x0
0544 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0545 4800 |H | Short_Literal 0x0
0546 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0547 4800 |H | Short_Literal 0x0
0548 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0549 0000 0000 | | .BLANK 0000[0x7]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 00da | | Load_Top At_Offset_2
0554 e5fd | | Load 0x2,-0x3
0555 017d | } | Execute Record,Structure_Write
0556 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0557 0000 | | .XXX[0x1]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055d | ] | .CONST 0x055d ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0002 | | .CONST 0x0002 ; Number of locals
055b INIT_0558:
055b 00db | | Load_Top At_Offset_3
055c 804f | O | Call 0x0,0x4f
055d BODY_0558:
055d 00d8 | | Load_Top At_Offset_0
055e 4801 |H | Short_Literal 0x1
055f e5ff | | Load 0x2,-0x1
0560 8050 | P | Call 0x0,0x50
0561 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0562 0000 0000 | | .BLANK 0000[0x6]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 4607 |F | Jump_Case 0x8
056c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
056d 7807 |x | Jump 0x575 ; case 0x1
056e 780a |x | Jump 0x579 ; case 0x2
056f 780e |x | Jump 0x57e ; case 0x3
0570 7811 |x | Jump 0x582 ; case 0x4
0571 7812 |x | Jump 0x584 ; case 0x5
0572 7813 |x | Jump 0x586 ; case 0x6
0573 7816 |x | Jump 0x58a ; case 0x7
0574 4302 |C | .XXX[0x1]
0575 00da | | Load_Top At_Offset_2
0576 0091 07ab | | Action Push_String_Extended_Indexed,0x7ab ; "NONE"
0578 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0579 00db | | Load_Top At_Offset_3
057a 00db | | Load_Top At_Offset_3
057b 00e0 | | Load_Encached Standard_Cache
057c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
057d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
057e 00da | | Load_Top At_Offset_2
057f 00e0 | | Load_Encached Standard_Cache
0580 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0581 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0582 00db | | Load_Top At_Offset_3
0583 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0584 00db | | Load_Top At_Offset_3
0585 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0586 e22c | , | Load 0x1,0x2c
0587 00dc | | Load_Top At_Offset_4
0588 0267 | g | Execute Discrete,Predecessor
0589 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
058a e22c | , | Load 0x1,0x2c
058b 00dc | | Load_Top At_Offset_4
058c 0268 | h | Execute Discrete,Successor
058d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
058e 0000 0000 | | .XXX[0x2]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0597 | | .CONST 0x0597 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0002 | | .CONST 0x0002 ; Number of locals
0593 INIT_0590:
0593 e22d | - | Load 0x1,0x2d
0594 0322 | " | Declare_Variable Record
0595 00d8 | | Load_Top At_Offset_0
0596 1c00 | | Execute_Immediate Run_Utility,0x0
0597 BODY_0590:
0597 00db | | Load_Top At_Offset_3
0598 00d9 | | Load_Top At_Offset_1
0599 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
059a 4801 |H | Short_Literal 0x1
059b 00d9 | | Load_Top At_Offset_1
059c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
059d 00d8 | | Load_Top At_Offset_0
059e 00d9 | | Load_Top At_Offset_1
059f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05a0 8238 | 8 | Call 0x1,0x38
05a1 00d1 | | Pop_Control Pop_Count_1
05a2 00d8 | | Load_Top At_Offset_0
05a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a4 0000 0000 | | .BLANK 0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab | | .CONST 0x05ab ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0001 | | .CONST 0x0001 ; Number of locals
05ab BODY_05a8:
05ab INIT_05a8:
05ab 00da | | Load_Top At_Offset_2
05ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ae 0000 0000 | | .XXX[0x2]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b7 | | .CONST 0x05b7 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0002 | | .CONST 0x0002 ; Number of locals
05b3 INIT_05b0:
05b3 00da | | Load_Top At_Offset_2
05b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05b5 00db | | Load_Top At_Offset_3
05b6 823b | ; | Call 0x1,0x3b
05b7 BODY_05b0:
05b7 00db | | Load_Top At_Offset_3
05b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05b9 680b |h | Jump_Zero 0x5c5
05ba 00db | | Load_Top At_Offset_3
05bb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05bc e22c | , | Load 0x1,0x2c
05bd 011c | | Execute Any,Convert_Unchecked
05be 1c01 | | Execute_Immediate Run_Utility,0x1
05bf 0092 07b2 | | Action Push_String_Extended,0x7b2 ; "=>("
05c1 01cc | | Execute Vector,Catenate
05c2 00d9 | | Load_Top At_Offset_1
05c3 01cc | | Execute Vector,Catenate
05c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c5 00d8 | | Load_Top At_Offset_0
05c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c7 0000 | | .XXX[0x1]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 00da | | Load_Top At_Offset_2
05cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05cd 701e |p | Jump_Nonzero 0x5ec
05ce 00da | | Load_Top At_Offset_2
05cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05d0 00db | | Load_Top At_Offset_3
05d1 823a | : | Call 0x1,0x3a
05d2 7006 |p | Jump_Nonzero 0x5d9
05d3 00da | | Load_Top At_Offset_2
05d4 00db | | Load_Top At_Offset_3
05d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05d6 8239 | 9 | Call 0x1,0x39
05d7 00d1 | | Pop_Control Pop_Count_1
05d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05d9 00da | | Load_Top At_Offset_2
05da 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05db 0f05 | | Execute_Immediate Equal,0x5
05dc 6804 |h | Jump_Zero 0x5e1
05dd 4801 |H | Short_Literal 0x1
05de 00db | | Load_Top At_Offset_3
05df 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05e1 e22c | , | Load 0x1,0x2c
05e2 00db | | Load_Top At_Offset_3
05e3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05e4 0268 | h | Execute Discrete,Successor
05e5 00db | | Load_Top At_Offset_3
05e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05e7 00da | | Load_Top At_Offset_2
05e8 00db | | Load_Top At_Offset_3
05e9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05ea 8238 | 8 | Call 0x1,0x38
05eb 00d1 | | Pop_Control Pop_Count_1
05ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ed 0000 0000 | | .XXX[0x3]
05ef 0000 | |
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05fb | | .CONST 0x05fb ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0002 | | .CONST 0x0002 ; Number of locals
05f3 INIT_05f0:
05f3 e225 | % | Load 0x1,0x25
05f4 0322 | " | Declare_Variable Record
05f5 e5fe | | Load 0x2,-0x2
05f6 e03d | = | Load 0x0,0x3d
05f7 e232 | 2 | Load 0x1,0x32
05f8 0096 | | Execute Package,Entry
05f9 00d9 | | Load_Top At_Offset_1
05fa 017d | } | Execute Record,Structure_Write
05fb BODY_05f0:
05fb 00db | | Load_Top At_Offset_3
05fc 00d9 | | Load_Top At_Offset_1
05fd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05fe e5fe | | Load 0x2,-0x2
05ff e02b | + | Load 0x0,0x2b
0600 e232 | 2 | Load 0x1,0x32
0601 0098 | | Execute Package,Field_Read_Dynamic
0602 0216 | | Execute Heap_Access,Convert
0603 00d9 | | Load_Top At_Offset_1
0604 e051 | Q | Load 0x0,0x51
0605 e232 | 2 | Load 0x1,0x32
0606 0096 | | Execute Package,Entry
0607 c5fe | | Store 0x2,-0x2
0608 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0609 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
0614 4605 |F | Jump_Case 0x6
0615 782f |x/ | Jump 0x645 ; case 0x0
0616 7814 |x | Jump 0x62b ; case 0x1
0617 781c |x | Jump 0x634 ; case 0x2
0618 7824 |x$ | Jump 0x63d ; case 0x3
0619 780a |x | Jump 0x624 ; case 0x4
061a 7800 |x | Jump 0x61b ; case 0x5
061b 00db | | Load_Top At_Offset_3
061c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
061d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
061e e052 | R | Load 0x0,0x52
061f e224 | $ | Load 0x1,0x24
0620 0096 | | Execute Package,Entry
0621 e5fe | | Load 0x2,-0x2
0622 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0623 7821 |x! | Jump 0x645
0624 00db | | Load_Top At_Offset_3
0625 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0626 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0627 8013 | | Call 0x0,0x13
0628 e5fe | | Load 0x2,-0x2
0629 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
062a 781a |x | Jump 0x645
062b 00db | | Load_Top At_Offset_3
062c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
062d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
062e e052 | R | Load 0x0,0x52
062f e223 | # | Load 0x1,0x23
0630 0096 | | Execute Package,Entry
0631 e5fe | | Load 0x2,-0x2
0632 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0633 7811 |x | Jump 0x645
0634 00db | | Load_Top At_Offset_3
0635 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0636 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0637 e052 | R | Load 0x0,0x52
0638 e222 | " | Load 0x1,0x22
0639 0096 | | Execute Package,Entry
063a e5fe | | Load 0x2,-0x2
063b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
063c 7808 |x | Jump 0x645
063d 00db | | Load_Top At_Offset_3
063e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
063f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0640 e052 | R | Load 0x0,0x52
0641 e222 | " | Load 0x1,0x22
0642 0096 | | Execute Package,Entry
0643 e5fe | | Load 0x2,-0x2
0644 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0645 4801 |H | Short_Literal 0x1
0646 e5fe | | Load 0x2,-0x2
0647 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0648 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0649 0000 0000 | | .BLANK 0000[0x7]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 00da | | Load_Top At_Offset_2
0654 4605 |F | Jump_Case 0x6
0655 7825 |x% | Jump 0x67b ; case 0x0
0656 780b |x | Jump 0x662 ; case 0x1
0657 7811 |x | Jump 0x669 ; case 0x2
0658 7817 |x | Jump 0x670 ; case 0x3
0659 781d |x | Jump 0x677 ; case 0x4
065a 7800 |x | Jump 0x65b ; case 0x5
065b 00db | | Load_Top At_Offset_3
065c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
065d e053 | S | Load 0x0,0x53
065e e224 | $ | Load 0x1,0x24
065f 0096 | | Execute Package,Entry
0660 00d1 | | Pop_Control Pop_Count_1
0661 7819 |x | Jump 0x67b
0662 00db | | Load_Top At_Offset_3
0663 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0664 e053 | S | Load 0x0,0x53
0665 e223 | # | Load 0x1,0x23
0666 0096 | | Execute Package,Entry
0667 00d1 | | Pop_Control Pop_Count_1
0668 7812 |x | Jump 0x67b
0669 00db | | Load_Top At_Offset_3
066a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
066b e053 | S | Load 0x0,0x53
066c e222 | " | Load 0x1,0x22
066d 0096 | | Execute Package,Entry
066e 00d1 | | Pop_Control Pop_Count_1
066f 780b |x | Jump 0x67b
0670 00db | | Load_Top At_Offset_3
0671 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0672 e053 | S | Load 0x0,0x53
0673 e222 | " | Load 0x1,0x22
0674 0096 | | Execute Package,Entry
0675 00d1 | | Pop_Control Pop_Count_1
0676 7804 |x | Jump 0x67b
0677 00db | | Load_Top At_Offset_3
0678 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0679 8016 | | Call 0x0,0x16
067a 00d1 | | Pop_Control Pop_Count_1
067b 4800 |H | Short_Literal 0x0
067c e5fe | | Load 0x2,-0x2
067d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
067e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
067f 0000 | | .XXX[0x1]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 00db | | Load_Top At_Offset_3
0684 4605 |F | Jump_Case 0x6
0685 780b |x | Jump 0x691 ; case 0x0
0686 780c |x | Jump 0x693 ; case 0x1
0687 7811 |x | Jump 0x699 ; case 0x2
0688 7816 |x | Jump 0x69f ; case 0x3
0689 781b |x | Jump 0x6a5 ; case 0x4
068a 7800 |x | Jump 0x68b ; case 0x5
068b 00da | | Load_Top At_Offset_2
068c 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
068d e054 | T | Load 0x0,0x54
068e e224 | $ | Load 0x1,0x24
068f 0096 | | Execute Package,Entry
0690 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0691 4801 |H | Short_Literal 0x1
0692 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0693 00da | | Load_Top At_Offset_2
0694 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0695 e054 | T | Load 0x0,0x54
0696 e223 | # | Load 0x1,0x23
0697 0096 | | Execute Package,Entry
0698 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0699 00da | | Load_Top At_Offset_2
069a 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
069b e054 | T | Load 0x0,0x54
069c e222 | " | Load 0x1,0x22
069d 0096 | | Execute Package,Entry
069e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
069f 00da | | Load_Top At_Offset_2
06a0 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06a1 e054 | T | Load 0x0,0x54
06a2 e222 | " | Load 0x1,0x22
06a3 0096 | | Execute Package,Entry
06a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06a5 00da | | Load_Top At_Offset_2
06a6 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
06a7 8014 | | Call 0x0,0x14
06a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06a9 0000 0000 | | .BLANK 0000[0x7]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 00db | | Load_Top At_Offset_3
06b4 00db | | Load_Top At_Offset_3
06b5 823a | : | Call 0x1,0x3a
06b6 6803 |h | Jump_Zero 0x6ba
06b7 0092 07b3 | | Action Push_String_Extended,0x7b3 ; ")"
06b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06ba 00db | | Load_Top At_Offset_3
06bb 4605 |F | Jump_Case 0x6
06bc 780b |x | Jump 0x6c8 ; case 0x0
06bd 780c |x | Jump 0x6ca ; case 0x1
06be 7811 |x | Jump 0x6d0 ; case 0x2
06bf 7816 |x | Jump 0x6d6 ; case 0x3
06c0 781b |x | Jump 0x6dc ; case 0x4
06c1 7800 |x | Jump 0x6c2 ; case 0x5
06c2 00da | | Load_Top At_Offset_2
06c3 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
06c4 e055 | U | Load 0x0,0x55
06c5 e224 | $ | Load 0x1,0x24
06c6 0096 | | Execute Package,Entry
06c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06c8 00ea | | Load_Encached Null_String_Cache
06c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06ca 00da | | Load_Top At_Offset_2
06cb 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
06cc e055 | U | Load 0x0,0x55
06cd e223 | # | Load 0x1,0x23
06ce 0096 | | Execute Package,Entry
06cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06d0 00da | | Load_Top At_Offset_2
06d1 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
06d2 e055 | U | Load 0x0,0x55
06d3 e222 | " | Load 0x1,0x22
06d4 0096 | | Execute Package,Entry
06d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06d6 00da | | Load_Top At_Offset_2
06d7 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06d8 e055 | U | Load 0x0,0x55
06d9 e222 | " | Load 0x1,0x22
06da 0096 | | Execute Package,Entry
06db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06dc 00da | | Load_Top At_Offset_2
06dd 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
06de 8015 | | Call 0x0,0x15
06df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3 | | .CONST 0x06e3 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0001 | | .CONST 0x0001 ; Number of locals
06e3 BODY_06e0:
06e3 INIT_06e0:
06e3 4601 |F | Jump_Case 0x2
06e4 7801 |x | Jump 0x6e6 ; case 0x0
06e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
06e6 4800 |H | Short_Literal 0x0
06e7 00db | | Load_Top At_Offset_3
06e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06e9 4800 |H | Short_Literal 0x0
06ea 00db | | Load_Top At_Offset_3
06eb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06ec 4801 |H | Short_Literal 0x1
06ed 00db | | Load_Top At_Offset_3
06ee 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06ef 00da | | Load_Top At_Offset_2
06f0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
06f1 1c00 | | Execute_Immediate Run_Utility,0x0
06f2 00da | | Load_Top At_Offset_2
06f3 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
06f4 1c00 | | Execute_Immediate Run_Utility,0x0
06f5 00da | | Load_Top At_Offset_2
06f6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06f7 1c00 | | Execute_Immediate Run_Utility,0x0
06f8 00da | | Load_Top At_Offset_2
06f9 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
06fa 1c00 | | Execute_Immediate Run_Utility,0x0
06fb 00da | | Load_Top At_Offset_2
06fc 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
06fd 1c00 | | Execute_Immediate Run_Utility,0x0
06fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06ff 0000 | | .XXX[0x1]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0728 | ( | .CONST 0x0728 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0015 | | .CONST 0x0015 ; Number of locals
0703 INIT_0700:
0703 029a 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Visible,Unelaborated
0705 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated
0707 029a 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Visible,Unelaborated
0709 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated
070b 029a 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call,Visible,Unelaborated
070d 029a 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call,Visible,Unelaborated
070f 029a 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call,Visible,Unelaborated
0711 029a 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call,Visible,Unelaborated
0713 029a 079b | | Declare_Subprogram INIT_0798,For_Outer_Call,Visible,Unelaborated
0715 00bf | | Action Accept_Activation
0716 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0717 00c7 | | Action Elaborate_Subprogram
0718 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0719 00c7 | | Action Elaborate_Subprogram
071a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
071b 00c7 | | Action Elaborate_Subprogram
071c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
071d 00c7 | | Action Elaborate_Subprogram
071e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
071f 00c7 | | Action Elaborate_Subprogram
0720 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0721 00c7 | | Action Elaborate_Subprogram
0722 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0723 00c7 | | Action Elaborate_Subprogram
0724 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0725 00c7 | | Action Elaborate_Subprogram
0726 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0727 00c7 | | Action Elaborate_Subprogram
0728 BODY_0700:
0728 00bc | | Action Signal_Activated
0729 00bb | | Action Signal_Completion
072a 0000 0000 | | .BLANK 0000[0x6]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 00db | | Load_Top At_Offset_3
0734 00db | | Load_Top At_Offset_3
0735 8001 | | Call 0x0,0x1
0736 c5fe | | Store 0x2,-0x2
0737 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b e5fd | | Load 0x2,-0x3
073c e002 | | Load 0x0,0x2
073d 0216 | | Execute Heap_Access,Convert
073e e5fe | | Load 0x2,-0x2
073f e5ff | | Load 0x2,-0x1
0740 8003 | | Call 0x0,0x3
0741 c5fd | | Store 0x2,-0x3
0742 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0743 0000 0000 | | .BLANK 0000[0x5]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b 00db | | Load_Top At_Offset_3
074c e002 | | Load 0x0,0x2
074d 0216 | | Execute Heap_Access,Convert
074e 00db | | Load_Top At_Offset_3
074f 8004 | | Call 0x0,0x4
0750 c5fe | | Store 0x2,-0x2
0751 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0752 0000 0000 | | .BLANK 0000[0x6]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b 00da | | Load_Top At_Offset_2
075c 8005 | | Call 0x0,0x5
075d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
075e 0000 0000 | | .XXX[0x2]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 00da | | Load_Top At_Offset_2
0764 e002 | | Load 0x0,0x2
0765 0216 | | Execute Heap_Access,Convert
0766 8006 | | Call 0x0,0x6
0767 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0768 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0769 0000 0000 | | .BLANK 0000[0x7]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 00db | | Load_Top At_Offset_3
0774 e002 | | Load 0x0,0x2
0775 0216 | | Execute Heap_Access,Convert
0776 00db | | Load_Top At_Offset_3
0777 8007 | | Call 0x0,0x7
0778 c5fe | | Store 0x2,-0x2
0779 4502 |E | Exit_Suprogram New_Top_Offset 0x2
077a 0000 0000 | | .BLANK 0000[0x6]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783 | | .CONST 0x0783 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0001 | | .CONST 0x0001 ; Number of locals
0783 BODY_0780:
0783 INIT_0780:
0783 00db | | Load_Top At_Offset_3
0784 e002 | | Load 0x0,0x2
0785 0216 | | Execute Heap_Access,Convert
0786 00db | | Load_Top At_Offset_3
0787 8008 | | Call 0x0,0x8
0788 c5fe | | Store 0x2,-0x2
0789 4502 |E | Exit_Suprogram New_Top_Offset 0x2
078a 0000 0000 | | .BLANK 0000[0x6]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793 | | .CONST 0x0793 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0001 | | .CONST 0x0001 ; Number of locals
0793 BODY_0790:
0793 INIT_0790:
0793 00da | | Load_Top At_Offset_2
0794 8009 | | Call 0x0,0x9
0795 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0796 0000 0000 | | .XXX[0x2]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b | | .CONST 0x079b ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0001 | | .CONST 0x0001 ; Number of locals
079b BODY_0798:
079b INIT_0798:
079b 00db | | Load_Top At_Offset_3
079c e002 | | Load 0x0,0x2
079d 0216 | | Execute Heap_Access,Convert
079e 00db | | Load_Top At_Offset_3
079f 800a | | Call 0x0,0xa
07a0 c5fe | | Store 0x2,-0x2
07a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07a2 ; --------------------------------------------------------------------------------------
07a2 ; STRING TABLE
07a2 ; --------------------------------------------------------------------------------------
07a2 0026 | & | .STRTAB 0x0026->0x07b5 ; "CMVC_FROZEN_UNITS"
07a3 0035 | 5 | .STRTAB 0x0035->0x07bd ; "CMVC_UNITS"
07a4 003d | = | .STRTAB 0x003d->0x07c2 ; "FREE_UNITS_IN_SUBSYSTEM"
07a5 0052 | R | .STRTAB 0x0052->0x07ce ; "OTHER_FREE_UNITS"
07a6 0060 | ` | .STRTAB 0x0060->0x07d6 ; "SUBJECT_PROGRAM_CLOSURE"
07a7 0075 | u | .STRTAB 0x0075->0x07e1 ; "VIEW"
07a8 0077 | w | .STRTAB 0x0077->0x07e3 ; "UNITS"
07a9 007a | z | .STRTAB 0x007a->0x07e6 ; "SUBJECT_PROGRAM"
07aa 0087 | | .STRTAB 0x0087->0x07ed ; "UNITS"
07ab 008a | | .STRTAB 0x008a->0x07f0 ; "NONE"
07ac 008c | | .STRTAB 0x008c->0x07f2 ; "CMVC_FROZE"
07ad 0094 | | .STRTAB 0x0094->0x07f7 ; "CMVC"
07ae 0096 | | .STRTAB 0x0096->0x07f9 ; "SUBSYSTEM_FREE"
07af 00a2 | | .STRTAB 0x00a2->0x0800 ; "FREE"
07b0 00a4 | | .STRTAB 0x00a4->0x0802 ; "SUBLIST"
07b1 00a9 | | .STRTAB 0x00a9->0x0805 ; "others => Unspecified"
07b2 00bc | | .STRTAB 0x00bc->0x0810 ; "=>("
07b3 00bd | | .STRTAB 0x00bd->0x0811 ; ")"
07b4 00bc | | .STREND 0x00bc->0x0812
07b5 434d 5643 |CMVC| .STRTAB_STRINGS
0812 0000 0000 | | .BLANK 0000[0x6]
0818 ; --------------------------------------------------------------------------------------
0818 ; Debug Table
0818 ; --------------------------------------------------------------------------------------
0818 0004 000a | | .DEBUG4 0x0004,0x000a,0x5ffe,0x0000,0x0001,0x0000
081e 0000 0000 | | .BLANK 0000[0x1e2]