|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0660 | ` | .CONST 0x0660 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 013b | ; | .CONST 0x013b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0050 | P | .CONST 0x0050 ; Number of locals 000b INIT_0008: 000b 4803 |H | Short_Literal 0x3 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 000f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0011 4802 |H | Short_Literal 0x2 0012 032b | + | Declare_Type Record,Incomplete,Visible 0013 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0015 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0017 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0019 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 001b 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 001d e001 | | Load 0x0,0x1 001e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 001f 0129 | ) | Execute Any,Make_Visible 0020 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0022 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0024 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0026 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0028 4803 |H | Short_Literal 0x3 0029 032b | + | Declare_Type Record,Incomplete,Visible 002a 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 002c 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 002e 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0030 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 0032 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0034 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0036 e002 | | Load 0x0,0x2 0037 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 0038 0129 | ) | Execute Any,Make_Visible 0039 e003 | | Load 0x0,0x3 003a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 003b 0129 | ) | Execute Any,Make_Visible 003c e002 | | Load 0x0,0x2 003d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 003e 0129 | ) | Execute Any,Make_Visible 003f 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 0041 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 0043 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0045 e001 | | Load 0x0,0x1 0046 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0047 0129 | ) | Execute Any,Make_Visible 0048 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 004a 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 004c 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 004e 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 0050 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 0052 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0054 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 0056 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 0058 4800 |H | Short_Literal 0x0 0059 4801 |H | Short_Literal 0x1 005a 029f 041b | | Declare_Subprogram INIT_0418,For_Call 005c 03fe | | Declare_Type Discrete,Defined,Visible 005d 4803 |H | Short_Literal 0x3 005e 032b | + | Declare_Type Record,Incomplete,Visible 005f 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated 0061 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0063 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 0065 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 0067 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0069 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 006b 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 006d 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 006f 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated 0071 4803 |H | Short_Literal 0x3 0072 032b | + | Declare_Type Record,Incomplete,Visible 0073 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 0075 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated 0077 029a 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call,Visible,Unelaborated 0079 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 007b 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 007d e004 | | Load 0x0,0x4 007e e005 | | Load 0x0,0x5 007f 4850 |HP | Short_Literal 0x50 0080 e006 | | Load 0x0,0x6 0081 0387 | | Declare_Variable Package 0082 00d8 | | Load_Top At_Offset_0 0083 020f | | Execute Module,Activate 0084 4800 |H | Short_Literal 0x0 0085 4802 |H | Short_Literal 0x2 0086 029f 054b | K| Declare_Subprogram INIT_0548,For_Call 0088 03fd | | Declare_Type Discrete,Defined 0089 00d8 | | Load_Top At_Offset_0 008a e228 | ( | Load 0x1,0x28 008b e001 | | Load 0x0,0x1 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d e223 | # | Load 0x1,0x23 008e 029f 05f3 | | Declare_Subprogram INIT_05f0,For_Call 0090 4804 |H | Short_Literal 0x4 0091 032d | - | Declare_Type Record,Defined 0092 00c4 | | Action Make_Default 0093 00c4 | | Action Make_Default 0094 00c4 | | Action Make_Default 0095 00c4 | | Action Make_Default 0096 00c4 | | Action Make_Default 0097 00c4 | | Action Make_Default 0098 00c4 | | Action Make_Default 0099 00c4 | | Action Make_Default 009a 00c4 | | Action Make_Default 009b 00c4 | | Action Make_Default 009c 00e1 | | Load_Encached Boolean_Cache 009d c24a | J | Store 0x1,0x4a 009e 029b 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Unelaborated 00a0 c24b | K | Store 0x1,0x4b 00a1 e007 | | Load 0x0,0x7 00a2 e008 | | Load 0x0,0x8 00a3 48c8 |H | Short_Literal 0xc8 00a4 e24a | J | Load 0x1,0x4a 00a5 e244 | D | Load 0x1,0x44 00a6 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 00a7 e009 | | Load 0x0,0x9 00a8 0387 | | Declare_Variable Package 00a9 00d8 | | Load_Top At_Offset_0 00aa 020f | | Execute Module,Activate 00ab c24c | L | Store 0x1,0x4c 00ac e223 | # | Load 0x1,0x23 00ad 00e1 | | Load_Encached Boolean_Cache 00ae 02a0 | | Declare_Subprogram Null_Subprogram 00af 4802 |H | Short_Literal 0x2 00b0 032d | - | Declare_Type Record,Defined 00b1 c247 | G | Store 0x1,0x47 00b2 029b 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Unelaborated 00b4 c24d | M | Store 0x1,0x4d 00b5 e00a | | Load 0x0,0xa 00b6 e00b | | Load 0x0,0xb 00b7 48c8 |H | Short_Literal 0xc8 00b8 e24a | J | Load 0x1,0x4a 00b9 e247 | G | Load 0x1,0x47 00ba 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 00bb e009 | | Load 0x0,0x9 00bc 0387 | | Declare_Variable Package 00bd 00d8 | | Load_Top At_Offset_0 00be 020f | | Execute Module,Activate 00bf c24e | N | Store 0x1,0x4e 00c0 00da | | Load_Top At_Offset_2 00c1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c2 00d9 | | Load_Top At_Offset_1 00c3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c4 e242 | B | Load 0x1,0x42 00c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c6 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 00c8 e20d | | Load 0x1,0xd 00c9 0326 | & | Complete_Type Record,By_Defining 00ca 00da | | Load_Top At_Offset_2 00cb 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00cc 00d9 | | Load_Top At_Offset_1 00cd 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00ce 029f 062b | +| Declare_Subprogram INIT_0628,For_Call 00d0 e210 | | Load 0x1,0x10 00d1 0326 | & | Complete_Type Record,By_Defining 00d2 00da | | Load_Top At_Offset_2 00d3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d4 e21b | | Load 0x1,0x1b 00d5 0325 | % | Complete_Type Record,By_Renaming 00d6 00da | | Load_Top At_Offset_2 00d7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d8 e232 | 2 | Load 0x1,0x32 00d9 0325 | % | Complete_Type Record,By_Renaming 00da 00d8 | | Load_Top At_Offset_0 00db 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00dc e23c | < | Load 0x1,0x3c 00dd 0325 | % | Complete_Type Record,By_Renaming 00de 00bf | | Action Accept_Activation 00df 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00e0 00c7 | | Action Elaborate_Subprogram 00e1 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00e2 00c7 | | Action Elaborate_Subprogram 00e3 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00e4 00c7 | | Action Elaborate_Subprogram 00e5 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00e6 00c7 | | Action Elaborate_Subprogram 00e7 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00e8 00c7 | | Action Elaborate_Subprogram 00e9 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00ea 00c7 | | Action Elaborate_Subprogram 00eb 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00ec 00c7 | | Action Elaborate_Subprogram 00ed 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00ee 00c7 | | Action Elaborate_Subprogram 00ef 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00f0 00c7 | | Action Elaborate_Subprogram 00f1 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00f2 00c7 | | Action Elaborate_Subprogram 00f3 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00f4 00c7 | | Action Elaborate_Subprogram 00f5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00f6 00c7 | | Action Elaborate_Subprogram 00f7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00f8 00c7 | | Action Elaborate_Subprogram 00f9 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00fa 00c7 | | Action Elaborate_Subprogram 00fb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00fc 00c7 | | Action Elaborate_Subprogram 00fd 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00fe 00c7 | | Action Elaborate_Subprogram 00ff 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0100 00c7 | | Action Elaborate_Subprogram 0101 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0102 00c7 | | Action Elaborate_Subprogram 0103 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0104 00c7 | | Action Elaborate_Subprogram 0105 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0106 00c7 | | Action Elaborate_Subprogram 0107 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0108 00c7 | | Action Elaborate_Subprogram 0109 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 010a 00c7 | | Action Elaborate_Subprogram 010b 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 010c 00c7 | | Action Elaborate_Subprogram 010d 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 010e 00c7 | | Action Elaborate_Subprogram 010f 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0110 00c7 | | Action Elaborate_Subprogram 0111 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0112 00c7 | | Action Elaborate_Subprogram 0113 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0114 00c7 | | Action Elaborate_Subprogram 0115 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0116 00c7 | | Action Elaborate_Subprogram 0117 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0118 00c7 | | Action Elaborate_Subprogram 0119 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 011a 00c7 | | Action Elaborate_Subprogram 011b 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 011c 00c7 | | Action Elaborate_Subprogram 011d 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 011e 00c7 | | Action Elaborate_Subprogram 011f 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0120 00c7 | | Action Elaborate_Subprogram 0121 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0122 00c7 | | Action Elaborate_Subprogram 0123 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0124 00c7 | | Action Elaborate_Subprogram 0125 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 0126 00c7 | | Action Elaborate_Subprogram 0127 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0128 00c7 | | Action Elaborate_Subprogram 0129 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 012a 00c7 | | Action Elaborate_Subprogram 012b 029d 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call 012d 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 012e 00c7 | | Action Elaborate_Subprogram 012f 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call 0131 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0132 00c7 | | Action Elaborate_Subprogram 0133 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 0134 00c7 | | Action Elaborate_Subprogram 0135 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0136 00c7 | | Action Elaborate_Subprogram 0137 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 0138 00c7 | | Action Elaborate_Subprogram 0139 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 013a 00c7 | | Action Elaborate_Subprogram 013b BODY_0008: 013b 00bc | | Action Signal_Activated 013c 00bb | | Action Signal_Completion 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0163 | c | .CONST 0x0163 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0007 | | .CONST 0x0007 ; Number of locals 0143 INIT_0140: 0143 e001 | | Load 0x0,0x1 0144 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0145 02c7 | | Declare_Variable Any 0146 00db | | Load_Top At_Offset_3 0147 e001 | | Load 0x0,0x1 0148 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0149 1817 | | Execute Package,Field_Execute,Field_Number 0x17 014a e00c | | Load 0x0,0xc 014b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 014c a402 | | Store_Unchecked 0x2,0x2 014d e001 | | Load 0x0,0x1 014e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 014f 02c7 | | Declare_Variable Any 0150 00d9 | | Load_Top At_Offset_1 0151 e002 | | Load 0x0,0x2 0152 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0153 a403 | | Store_Unchecked 0x2,0x3 0154 e001 | | Load 0x0,0x1 0155 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0156 02c7 | | Declare_Variable Any 0157 00d8 | | Load_Top At_Offset_0 0158 1c00 | | Execute_Immediate Run_Utility,0x0 0159 e24a | J | Load 0x1,0x4a 015a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 015b e232 | 2 | Load 0x1,0x32 015c 0322 | " | Declare_Variable Record 015d 00d8 | | Load_Top At_Offset_0 015e 1c00 | | Execute_Immediate Run_Utility,0x0 015f e228 | ( | Load 0x1,0x28 0160 02c7 | | Declare_Variable Any 0161 00d8 | | Load_Top At_Offset_0 0162 1c00 | | Execute_Immediate Run_Utility,0x0 0163 BODY_0140: 0163 e5fe | | Load 0x2,-0x2 0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0165 e24c | L | Load 0x1,0x4c 0166 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0167 00d1 | | Pop_Control Pop_Count_1 0168 e5fe | | Load 0x2,-0x2 0169 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016a e24e | N | Load 0x1,0x4e 016b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 016c 00d1 | | Pop_Control Pop_Count_1 016d 00cf | | Action Mark_Auxiliary 016e 7838 |x8 | Jump 0x1a7 016f e403 | | Load 0x2,0x3 0170 e001 | | Load 0x0,0x1 0171 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0172 c404 | | Store 0x2,0x4 0173 e404 | | Load 0x2,0x4 0174 e002 | | Load 0x0,0x2 0175 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0176 00d8 | | Load_Top At_Offset_0 0177 0d0a | | Execute_Immediate Less,0xa 0178 701f |p | Jump_Nonzero 0x198 0179 0af6 | | Execute_Immediate Plus,-0xa 017a 461c |F | Jump_Case 0x1d 017b 781e |x | Jump 0x19a ; case 0x0 017c 7825 |x% | Jump 0x1a2 ; case 0x1 017d 781c |x | Jump 0x19a ; case 0x2 017e 7823 |x# | Jump 0x1a2 ; case 0x3 017f 7822 |x" | Jump 0x1a2 ; case 0x4 0180 7821 |x! | Jump 0x1a2 ; case 0x5 0181 7820 |x | Jump 0x1a2 ; case 0x6 0182 781f |x | Jump 0x1a2 ; case 0x7 0183 781e |x | Jump 0x1a2 ; case 0x8 0184 781d |x | Jump 0x1a2 ; case 0x9 0185 781c |x | Jump 0x1a2 ; case 0xa 0186 781b |x | Jump 0x1a2 ; case 0xb 0187 781a |x | Jump 0x1a2 ; case 0xc 0188 7819 |x | Jump 0x1a2 ; case 0xd 0189 7818 |x | Jump 0x1a2 ; case 0xe 018a 7817 |x | Jump 0x1a2 ; case 0xf 018b 7816 |x | Jump 0x1a2 ; case 0x10 018c 7815 |x | Jump 0x1a2 ; case 0x11 018d 7814 |x | Jump 0x1a2 ; case 0x12 018e 780b |x | Jump 0x19a ; case 0x13 018f 7812 |x | Jump 0x1a2 ; case 0x14 0190 7811 |x | Jump 0x1a2 ; case 0x15 0191 7810 |x | Jump 0x1a2 ; case 0x16 0192 780f |x | Jump 0x1a2 ; case 0x17 0193 780e |x | Jump 0x1a2 ; case 0x18 0194 780d |x | Jump 0x1a2 ; case 0x19 0195 780c |x | Jump 0x1a2 ; case 0x1a 0196 780b |x | Jump 0x1a2 ; case 0x1b 0197 780a |x | Jump 0x1a2 ; case 0x1c 0198 00d1 | | Pop_Control Pop_Count_1 0199 7808 |x | Jump 0x1a2 019a 00db | | Load_Top At_Offset_3 019b e5fe | | Load 0x2,-0x2 019c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019d e404 | | Load 0x2,0x4 019e e24c | L | Load 0x1,0x4c 019f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a0 00d1 | | Pop_Control Pop_Count_1 01a1 c405 | | Store 0x2,0x5 01a2 e403 | | Load 0x2,0x3 01a3 e001 | | Load 0x0,0x1 01a4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a5 c403 | | Store 0x2,0x3 01a6 00c9 | | Action Pop_Auxiliary_Loop 01a7 e403 | | Load 0x2,0x3 01a8 e001 | | Load 0x0,0x1 01a9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01aa 6fc4 |o | Jump_Zero 0x16f 01ab 00ce | | Action Pop_Auxiliary 01ac 00d9 | | Load_Top At_Offset_1 01ad e5fe | | Load 0x2,-0x2 01ae 8233 | 3 | Call 0x1,0x33 01af 00d1 | | Pop_Control Pop_Count_1 01b0 00cf | | Action Mark_Auxiliary 01b1 782d |x- | Jump 0x1df 01b2 00da | | Load_Top At_Offset_2 01b3 8238 | 8 | Call 0x1,0x38 01b4 0f01 | | Execute_Immediate Equal,0x1 01b5 6809 |h | Jump_Zero 0x1bf 01b6 00db | | Load_Top At_Offset_3 01b7 e5fe | | Load 0x2,-0x2 01b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b9 e406 | | Load 0x2,0x6 01ba 8239 | 9 | Call 0x1,0x39 01bb e24e | N | Load 0x1,0x4e 01bc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01bd 00d1 | | Pop_Control Pop_Count_1 01be c405 | | Store 0x2,0x5 01bf 00da | | Load_Top At_Offset_2 01c0 823a | : | Call 0x1,0x3a 01c1 c407 | | Store 0x2,0x7 01c2 00cf | | Action Mark_Auxiliary 01c3 7813 |x | Jump 0x1d7 01c4 e405 | | Load 0x2,0x5 01c5 e5fe | | Load 0x2,-0x2 01c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c7 e407 | | Load 0x2,0x7 01c8 822c | , | Call 0x1,0x2c 01c9 e002 | | Load 0x0,0x2 01ca 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01cb e003 | | Load 0x0,0x3 01cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01cd e002 | | Load 0x0,0x2 01ce 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01cf e24e | N | Load 0x1,0x4e 01d0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01d1 00d1 | | Pop_Control Pop_Count_1 01d2 c405 | | Store 0x2,0x5 01d3 00da | | Load_Top At_Offset_2 01d4 8230 | 0 | Call 0x1,0x30 01d5 c407 | | Store 0x2,0x7 01d6 00c9 | | Action Pop_Auxiliary_Loop 01d7 00da | | Load_Top At_Offset_2 01d8 8229 | ) | Call 0x1,0x29 01d9 6fea |o | Jump_Zero 0x1c4 01da 00ce | | Action Pop_Auxiliary 01db 00da | | Load_Top At_Offset_2 01dc 823b | ; | Call 0x1,0x3b 01dd 00d1 | | Pop_Control Pop_Count_1 01de 00c9 | | Action Pop_Auxiliary_Loop 01df 00da | | Load_Top At_Offset_2 01e0 8234 | 4 | Call 0x1,0x34 01e1 6fd0 |o | Jump_Zero 0x1b2 01e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01fc | | .CONST 0x01fc ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0004 | | .CONST 0x0004 ; Number of locals 01eb INIT_01e8: 01eb e001 | | Load 0x0,0x1 01ec 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01ed 02c7 | | Declare_Variable Any 01ee 4800 |H | Short_Literal 0x0 01ef 4801 |H | Short_Literal 0x1 01f0 e5ff | | Load 0x2,-0x1 01f1 e001 | | Load 0x0,0x1 01f2 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 01f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f4 a402 | | Store_Unchecked 0x2,0x2 01f5 e001 | | Load 0x0,0x1 01f6 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 01f7 02c7 | | Declare_Variable Any 01f8 00d8 | | Load_Top At_Offset_0 01f9 1c00 | | Execute_Immediate Run_Utility,0x0 01fa e24a | J | Load 0x1,0x4a 01fb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01fc BODY_01e8: 01fc 00cf | | Action Mark_Auxiliary 01fd 781d |x | Jump 0x21b 01fe 00db | | Load_Top At_Offset_3 01ff e001 | | Load 0x0,0x1 0200 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0201 e002 | | Load 0x0,0x2 0202 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0203 c403 | | Store 0x2,0x3 0204 00da | | Load_Top At_Offset_2 0205 e002 | | Load 0x0,0x2 0206 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0207 700e |p | Jump_Nonzero 0x216 0208 00da | | Load_Top At_Offset_2 0209 e002 | | Load 0x0,0x2 020a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 020b 0f1d | | Execute_Immediate Equal,0x1d 020c 7001 |p | Jump_Nonzero 0x20e 020d 7808 |x | Jump 0x216 020e 00d9 | | Load_Top At_Offset_1 020f e5fe | | Load 0x2,-0x2 0210 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0211 e403 | | Load 0x2,0x3 0212 e24c | L | Load 0x1,0x4c 0213 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0214 00d1 | | Pop_Control Pop_Count_1 0215 005a | Z | Store_Top Discrete,At_Offset_2 0216 00db | | Load_Top At_Offset_3 0217 e001 | | Load 0x0,0x1 0218 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0219 c402 | | Store 0x2,0x2 021a 00c9 | | Action Pop_Auxiliary_Loop 021b 00db | | Load_Top At_Offset_3 021c e001 | | Load 0x0,0x1 021d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 021e 6fdf |o | Jump_Zero 0x1fe 021f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00db | | Load_Top At_Offset_3 0224 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0225 00db | | Load_Top At_Offset_3 0226 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0227 e24c | L | Load 0x1,0x4c 0228 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0229 00d1 | | Pop_Control Pop_Count_1 022a 00db | | Load_Top At_Offset_3 022b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 022c 00db | | Load_Top At_Offset_3 022d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 022e e24e | N | Load 0x1,0x4e 022f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0230 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0231 0000 0000 | | .BLANK 0000[0x7] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 023d e24c | L | Load 0x1,0x4c 023e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 023f 6805 |h | Jump_Zero 0x245 0240 00da | | Load_Top At_Offset_2 0241 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0242 e24e | N | Load 0x1,0x4e 0243 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0244 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0245 4800 |H | Short_Literal 0x0 0246 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0247 0000 | | .XXX[0x1] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 024d e24c | L | Load 0x1,0x4c 024e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 024f 7005 |p | Jump_Nonzero 0x255 0250 00da | | Load_Top At_Offset_2 0251 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0252 e24c | L | Load 0x1,0x4c 0253 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0254 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0255 00da | | Load_Top At_Offset_2 0256 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0257 e24e | N | Load 0x1,0x4e 0258 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025a 0000 0000 | | .BLANK 0000[0x6] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0265 e24c | L | Load 0x1,0x4c 0266 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0267 7005 |p | Jump_Nonzero 0x26d 0268 00da | | Load_Top At_Offset_2 0269 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 026a e24c | L | Load 0x1,0x4c 026b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 026c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026d 00da | | Load_Top At_Offset_2 026e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 026f e24e | N | Load 0x1,0x4e 0270 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0272 0000 0000 | | .BLANK 0000[0x6] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 027d e24c | L | Load 0x1,0x4c 027e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 027f 7006 |p | Jump_Nonzero 0x286 0280 00da | | Load_Top At_Offset_2 0281 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0282 e24c | L | Load 0x1,0x4c 0283 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0284 00d1 | | Pop_Control Pop_Count_1 0285 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0286 00da | | Load_Top At_Offset_2 0287 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0288 e24e | N | Load 0x1,0x4e 0289 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 028a 00d1 | | Pop_Control Pop_Count_1 028b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 0294 e001 | | Load 0x0,0x1 0295 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0296 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c e001 | | Load 0x0,0x1 029d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 029e e00d | | Load 0x0,0xd 029f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a1 0000 0000 | | .BLANK 0000[0x7] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 00da | | Load_Top At_Offset_2 02ac e001 | | Load 0x0,0x1 02ad 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02ae e002 | | Load 0x0,0x2 02af 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b1 0000 0000 | | .BLANK 0000[0x7] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc e001 | | Load 0x0,0x1 02bd 1b19 | | Execute Package,Field_Read,Field_Number 0x19 02be 011e | | Execute Any,Convert 02bf e001 | | Load 0x0,0x1 02c0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02c1 c5ff | | Store 0x2,-0x1 02c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c3 0000 0000 | | .BLANK 0000[0x5] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cf | | .CONST 0x02cf ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e244 | D | Load 0x1,0x44 02cc 0322 | " | Declare_Variable Record 02cd 00d8 | | Load_Top At_Offset_0 02ce 1c00 | | Execute_Immediate Run_Utility,0x0 02cf BODY_02c8: 02cf e5fe | | Load 0x2,-0x2 02d0 e5ff | | Load 0x2,-0x1 02d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02d2 e24c | L | Load 0x1,0x4c 02d3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02d4 00d1 | | Pop_Control Pop_Count_1 02d5 e5fe | | Load 0x2,-0x2 02d6 e24c | L | Load 0x1,0x4c 02d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02d8 00d9 | | Load_Top At_Offset_1 02d9 017d | } | Execute Record,Structure_Write 02da 00d8 | | Load_Top At_Offset_0 02db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02dc 6803 |h | Jump_Zero 0x2e0 02dd e5fe | | Load 0x2,-0x2 02de 8221 | ! | Call 0x1,0x21 02df 00d1 | | Pop_Control Pop_Count_1 02e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e1 0000 0000 | | .BLANK 0000[0x7] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f4 | | .CONST 0x02f4 ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0003 | | .CONST 0x0003 ; Number of locals 02eb INIT_02e8: 02eb e21b | | Load 0x1,0x1b 02ec 0322 | " | Declare_Variable Record 02ed 00db | | Load_Top At_Offset_3 02ee 00d9 | | Load_Top At_Offset_1 02ef 017d | } | Execute Record,Structure_Write 02f0 e244 | D | Load 0x1,0x44 02f1 0322 | " | Declare_Variable Record 02f2 00d8 | | Load_Top At_Offset_0 02f3 1c00 | | Execute_Immediate Run_Utility,0x0 02f4 BODY_02e8: 02f4 e5ff | | Load 0x2,-0x1 02f5 e24c | L | Load 0x1,0x4c 02f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02f7 6802 |h | Jump_Zero 0x2fa 02f8 4801 |H | Short_Literal 0x1 02f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fa e5ff | | Load 0x2,-0x1 02fb e24c | L | Load 0x1,0x4c 02fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02fd 00d9 | | Load_Top At_Offset_1 02fe 017d | } | Execute Record,Structure_Write 02ff 00d8 | | Load_Top At_Offset_0 0300 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0301 6804 |h | Jump_Zero 0x306 0302 00d9 | | Load_Top At_Offset_1 0303 8221 | ! | Call 0x1,0x21 0304 00d1 | | Pop_Control Pop_Count_1 0305 7802 |x | Jump 0x308 0306 4800 |H | Short_Literal 0x0 0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0308 00d9 | | Load_Top At_Offset_1 0309 e24c | L | Load 0x1,0x4c 030a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 030b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030c 0000 0000 | | .BLANK 0000[0x4] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0321 | ! | .CONST 0x0321 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0003 | | .CONST 0x0003 ; Number of locals 0313 INIT_0310: 0313 e001 | | Load 0x0,0x1 0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0315 02c7 | | Declare_Variable Any 0316 00db | | Load_Top At_Offset_3 0317 e24c | L | Load 0x1,0x4c 0318 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0319 a402 | | Store_Unchecked 0x2,0x2 031a e001 | | Load 0x0,0x1 031b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 031c 02c7 | | Declare_Variable Any 031d 00d9 | | Load_Top At_Offset_1 031e e002 | | Load 0x0,0x2 031f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0320 a403 | | Store_Unchecked 0x2,0x3 0321 BODY_0310: 0321 00d8 | | Load_Top At_Offset_0 0322 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c e24c | L | Load 0x1,0x4c 032d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 032e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032f 0000 | | .XXX[0x1] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 e24c | L | Load 0x1,0x4c 0335 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0336 e00d | | Load 0x0,0xd 0337 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0338 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0339 0000 0000 | | .BLANK 0000[0x7] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0347 | G | .CONST 0x0347 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0002 | | .CONST 0x0002 ; Number of locals 0343 INIT_0340: 0343 e244 | D | Load 0x1,0x44 0344 0322 | " | Declare_Variable Record 0345 00d8 | | Load_Top At_Offset_0 0346 1c00 | | Execute_Immediate Run_Utility,0x0 0347 BODY_0340: 0347 00db | | Load_Top At_Offset_3 0348 e24c | L | Load 0x1,0x4c 0349 1819 | | Execute Package,Field_Execute,Field_Number 0x19 034a 00d1 | | Pop_Control Pop_Count_1 034b 00cf | | Action Mark_Auxiliary 034c 7811 |x | Jump 0x35e 034d e5ff | | Load 0x2,-0x1 034e e24c | L | Load 0x1,0x4c 034f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0350 00da | | Load_Top At_Offset_2 0351 017d | } | Execute Record,Structure_Write 0352 00d9 | | Load_Top At_Offset_1 0353 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0354 4801 |H | Short_Literal 0x1 0355 4802 |H | Short_Literal 0x2 0356 0262 | b | Execute Discrete,In_Range 0357 7001 |p | Jump_Nonzero 0x359 0358 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0359 e5ff | | Load 0x2,-0x1 035a e24c | L | Load 0x1,0x4c 035b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 035c 00d1 | | Pop_Control Pop_Count_1 035d 00c9 | | Action Pop_Auxiliary_Loop 035e e5ff | | Load 0x2,-0x1 035f e24c | L | Load 0x1,0x4c 0360 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0361 6feb |o | Jump_Zero 0x34d 0362 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0363 0000 0000 | | .BLANK 0000[0x5] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c e00d | | Load 0x0,0xd 036d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 036e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 e002 | | Load 0x0,0x2 0375 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0376 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0377 0000 | | .XXX[0x1] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c e002 | | Load 0x0,0x2 037d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 037e e003 | | Load 0x0,0x3 037f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0380 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0381 0000 0000 | | .BLANK 0000[0x7] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00da | | Load_Top At_Offset_2 038c e001 | | Load 0x0,0x1 038d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 038e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038f 0000 | | .XXX[0x1] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 e001 | | Load 0x0,0x1 0395 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0396 e002 | | Load 0x0,0x2 0397 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0398 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0399 0000 0000 | | .BLANK 0000[0x7] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 e001 | | Load 0x0,0x1 03a5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03a6 e002 | | Load 0x0,0x2 03a7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a9 0000 0000 | | .BLANK 0000[0x7] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03bd | | .CONST 0x03bd ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0003 | | .CONST 0x0003 ; Number of locals 03b3 INIT_03b0: 03b3 e001 | | Load 0x0,0x1 03b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b5 02c7 | | Declare_Variable Any 03b6 00d8 | | Load_Top At_Offset_0 03b7 1c00 | | Execute_Immediate Run_Utility,0x0 03b8 e001 | | Load 0x0,0x1 03b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ba 02c7 | | Declare_Variable Any 03bb 00d8 | | Load_Top At_Offset_0 03bc 1c00 | | Execute_Immediate Run_Utility,0x0 03bd BODY_03b0: 03bd e5ff | | Load 0x2,-0x1 03be e001 | | Load 0x0,0x1 03bf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03c0 c402 | | Store 0x2,0x2 03c1 00d9 | | Load_Top At_Offset_1 03c2 e002 | | Load 0x0,0x2 03c3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03c4 c403 | | Store 0x2,0x3 03c5 4801 |H | Short_Literal 0x1 03c6 00d9 | | Load_Top At_Offset_1 03c7 e001 | | Load 0x0,0x1 03c8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 03c9 e002 | | Load 0x0,0x2 03ca 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03cc 0000 0000 | | .BLANK 0000[0x4] 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 e001 | | Load 0x0,0x1 03d5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03d6 e002 | | Load 0x0,0x2 03d7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 03d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d9 0000 0000 | | .BLANK 0000[0x7] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03ec | | .CONST 0x03ec ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0002 | | .CONST 0x0002 ; Number of locals 03e3 INIT_03e0: 03e3 e001 | | Load 0x0,0x1 03e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e5 02c7 | | Declare_Variable Any 03e6 00db | | Load_Top At_Offset_3 03e7 e001 | | Load 0x0,0x1 03e8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03e9 e002 | | Load 0x0,0x2 03ea 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03eb a402 | | Store_Unchecked 0x2,0x2 03ec BODY_03e0: 03ec 00d8 | | Load_Top At_Offset_0 03ed e001 | | Load 0x0,0x1 03ee 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ef 6802 |h | Jump_Zero 0x3f2 03f0 00ea | | Load_Encached Null_String_Cache 03f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f2 00d8 | | Load_Top At_Offset_0 03f3 e001 | | Load 0x0,0x1 03f4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 03f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f6 0000 0000 | | .XXX[0x2] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 00da | | Load_Top At_Offset_2 03fc e001 | | Load 0x0,0x1 03fd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03fe e001 | | Load 0x0,0x1 03ff 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0400 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0401 0000 0000 | | .BLANK 0000[0x7] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00da | | Load_Top At_Offset_2 040c e001 | | Load 0x0,0x1 040d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 040e 011e | | Execute Any,Convert 040f e001 | | Load 0x0,0x1 0410 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0411 c5ff | | Store 0x2,-0x1 0412 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0413 0000 0000 | | .BLANK 0000[0x5] 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 4607 |F | Jump_Case 0x8 041c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 041d 7806 |x | Jump 0x424 ; case 0x1 041e 7809 |x | Jump 0x428 ; case 0x2 041f 780d |x | Jump 0x42d ; case 0x3 0420 7810 |x | Jump 0x431 ; case 0x4 0421 7811 |x | Jump 0x433 ; case 0x5 0422 7812 |x | Jump 0x435 ; case 0x6 0423 7815 |x | Jump 0x439 ; case 0x7 0424 00da | | Load_Top At_Offset_2 0425 0091 063d | =| Action Push_String_Extended_Indexed,0x63d ; "A_PROCEDURE" 0427 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0428 00db | | Load_Top At_Offset_3 0429 00db | | Load_Top At_Offset_3 042a 00e0 | | Load_Encached Standard_Cache 042b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 042c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 042d 00da | | Load_Top At_Offset_2 042e 00e0 | | Load_Encached Standard_Cache 042f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0430 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0431 00db | | Load_Top At_Offset_3 0432 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0433 00db | | Load_Top At_Offset_3 0434 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0435 e231 | 1 | Load 0x1,0x31 0436 00dc | | Load_Top At_Offset_4 0437 0267 | g | Execute Discrete,Predecessor 0438 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0439 e231 | 1 | Load 0x1,0x31 043a 00dc | | Load_Top At_Offset_4 043b 0268 | h | Execute Discrete,Successor 043c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043d 0000 0000 | | .XXX[0x3] 043f 0000 | | 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0447 | G | .CONST 0x0447 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0002 | | .CONST 0x0002 ; Number of locals 0443 INIT_0440: 0443 e244 | D | Load 0x1,0x44 0444 0322 | " | Declare_Variable Record 0445 00d8 | | Load_Top At_Offset_0 0446 1c00 | | Execute_Immediate Run_Utility,0x0 0447 BODY_0440: 0447 e5fe | | Load 0x2,-0x2 0448 e5ff | | Load 0x2,-0x1 0449 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 044a e24c | L | Load 0x1,0x4c 044b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 044c 00d1 | | Pop_Control Pop_Count_1 044d e5fe | | Load 0x2,-0x2 044e e24c | L | Load 0x1,0x4c 044f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0450 00d9 | | Load_Top At_Offset_1 0451 017d | } | Execute Record,Structure_Write 0452 00d8 | | Load_Top At_Offset_0 0453 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0454 4801 |H | Short_Literal 0x1 0455 4802 |H | Short_Literal 0x2 0456 0262 | b | Execute Discrete,In_Range 0457 7004 |p | Jump_Nonzero 0x45c 0458 7800 |x | Jump 0x459 0459 e5fe | | Load 0x2,-0x2 045a 823b | ; | Call 0x1,0x3b 045b 00d1 | | Pop_Control Pop_Count_1 045c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 045d 0000 0000 | | .XXX[0x3] 045f 0000 | | 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 046c | l | .CONST 0x046c ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 e232 | 2 | Load 0x1,0x32 0464 0322 | " | Declare_Variable Record 0465 00db | | Load_Top At_Offset_3 0466 00d9 | | Load_Top At_Offset_1 0467 017d | } | Execute Record,Structure_Write 0468 e244 | D | Load 0x1,0x44 0469 0322 | " | Declare_Variable Record 046a 00d8 | | Load_Top At_Offset_0 046b 1c00 | | Execute_Immediate Run_Utility,0x0 046c BODY_0460: 046c e5ff | | Load 0x2,-0x1 046d e24c | L | Load 0x1,0x4c 046e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 046f 6802 |h | Jump_Zero 0x472 0470 4801 |H | Short_Literal 0x1 0471 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0472 e5ff | | Load 0x2,-0x1 0473 e24c | L | Load 0x1,0x4c 0474 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0475 00d9 | | Load_Top At_Offset_1 0476 017d | } | Execute Record,Structure_Write 0477 00d8 | | Load_Top At_Offset_0 0478 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0479 6802 |h | Jump_Zero 0x47c 047a 4800 |H | Short_Literal 0x0 047b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047c 00d9 | | Load_Top At_Offset_1 047d 823b | ; | Call 0x1,0x3b 047e 00d1 | | Pop_Control Pop_Count_1 047f 00d9 | | Load_Top At_Offset_1 0480 e24c | L | Load 0x1,0x4c 0481 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0482 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0483 0000 0000 | | .BLANK 0000[0x5] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 00da | | Load_Top At_Offset_2 048c e24c | L | Load 0x1,0x4c 048d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 048e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 048f 0000 | | .XXX[0x1] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 00da | | Load_Top At_Offset_2 0494 e24c | L | Load 0x1,0x4c 0495 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0496 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0497 0000 | | .XXX[0x1] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 00da | | Load_Top At_Offset_2 049c e24c | L | Load 0x1,0x4c 049d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 049e e00d | | Load 0x0,0xd 049f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a1 0000 0000 | | .BLANK 0000[0x7] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04af | | .CONST 0x04af ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0002 | | .CONST 0x0002 ; Number of locals 04ab INIT_04a8: 04ab e244 | D | Load 0x1,0x44 04ac 0322 | " | Declare_Variable Record 04ad 00d8 | | Load_Top At_Offset_0 04ae 1c00 | | Execute_Immediate Run_Utility,0x0 04af BODY_04a8: 04af 00db | | Load_Top At_Offset_3 04b0 e24c | L | Load 0x1,0x4c 04b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04b2 00d9 | | Load_Top At_Offset_1 04b3 017d | } | Execute Record,Structure_Write 04b4 00d8 | | Load_Top At_Offset_0 04b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04b6 4602 |F | Jump_Case 0x3 04b7 7804 |x | Jump 0x4bc ; case 0x0 04b8 7804 |x | Jump 0x4bd ; case 0x1 04b9 7800 |x | Jump 0x4ba ; case 0x2 04ba 4800 |H | Short_Literal 0x0 04bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04bc 08e2 | | Execute_Immediate Raise,0xe2 04bd 4801 |H | Short_Literal 0x1 04be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04bf 0000 | | .XXX[0x1] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c7 | | .CONST 0x04c7 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0002 | | .CONST 0x0002 ; Number of locals 04c3 INIT_04c0: 04c3 e244 | D | Load 0x1,0x44 04c4 0322 | " | Declare_Variable Record 04c5 00d8 | | Load_Top At_Offset_0 04c6 1c00 | | Execute_Immediate Run_Utility,0x0 04c7 BODY_04c0: 04c7 00db | | Load_Top At_Offset_3 04c8 e24c | L | Load 0x1,0x4c 04c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04ca 00d9 | | Load_Top At_Offset_1 04cb 017d | } | Execute Record,Structure_Write 04cc 00d8 | | Load_Top At_Offset_0 04cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ce 4602 |F | Jump_Case 0x3 04cf 7803 |x | Jump 0x4d3 ; case 0x0 04d0 7803 |x | Jump 0x4d4 ; case 0x1 04d1 7800 |x | Jump 0x4d2 ; case 0x2 04d2 08e2 | | Execute_Immediate Raise,0xe2 04d3 08e2 | | Execute_Immediate Raise,0xe2 04d4 00d8 | | Load_Top At_Offset_0 04d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d7 0000 | | .XXX[0x1] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04df | | .CONST 0x04df ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0002 | | .CONST 0x0002 ; Number of locals 04db INIT_04d8: 04db e244 | D | Load 0x1,0x44 04dc 0322 | " | Declare_Variable Record 04dd 00d8 | | Load_Top At_Offset_0 04de 1c00 | | Execute_Immediate Run_Utility,0x0 04df BODY_04d8: 04df 00db | | Load_Top At_Offset_3 04e0 e24c | L | Load 0x1,0x4c 04e1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04e2 00d9 | | Load_Top At_Offset_1 04e3 017d | } | Execute Record,Structure_Write 04e4 00d8 | | Load_Top At_Offset_0 04e5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e7 0000 | | .XXX[0x1] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04ef | | .CONST 0x04ef ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0002 | | .CONST 0x0002 ; Number of locals 04eb INIT_04e8: 04eb e244 | D | Load 0x1,0x44 04ec 0322 | " | Declare_Variable Record 04ed 00d8 | | Load_Top At_Offset_0 04ee 1c00 | | Execute_Immediate Run_Utility,0x0 04ef BODY_04e8: 04ef 00db | | Load_Top At_Offset_3 04f0 e24c | L | Load 0x1,0x4c 04f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04f2 00d1 | | Pop_Control Pop_Count_1 04f3 00cf | | Action Mark_Auxiliary 04f4 780e |x | Jump 0x503 04f5 e5ff | | Load 0x2,-0x1 04f6 e24c | L | Load 0x1,0x4c 04f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04f8 00da | | Load_Top At_Offset_2 04f9 017d | } | Execute Record,Structure_Write 04fa 00d9 | | Load_Top At_Offset_1 04fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04fc 6801 |h | Jump_Zero 0x4fe 04fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04fe e5ff | | Load 0x2,-0x1 04ff e24c | L | Load 0x1,0x4c 0500 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0501 00d1 | | Pop_Control Pop_Count_1 0502 00c9 | | Action Pop_Auxiliary_Loop 0503 e5ff | | Load 0x2,-0x1 0504 e24c | L | Load 0x1,0x4c 0505 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0506 6fee |o | Jump_Zero 0x4f5 0507 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b 00db | | Load_Top At_Offset_3 050c 00db | | Load_Top At_Offset_3 050d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 050e e24e | N | Load 0x1,0x4e 050f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0510 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0511 0000 0000 | | .BLANK 0000[0x7] 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 00da | | Load_Top At_Offset_2 051c e24e | N | Load 0x1,0x4e 051d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 051e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 051f 0000 | | .XXX[0x1] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 00da | | Load_Top At_Offset_2 0524 e24e | N | Load 0x1,0x4e 0525 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0526 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0527 0000 | | .XXX[0x1] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0531 | 1 | .CONST 0x0531 ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0002 | | .CONST 0x0002 ; Number of locals 052b INIT_0528: 052b 00da | | Load_Top At_Offset_2 052c e24e | N | Load 0x1,0x4e 052d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 052e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 052f 00e1 | | Load_Encached Boolean_Cache 0530 03f1 | | Declare_Variable Discrete,With_Value 0531 BODY_0528: 0531 00d8 | | Load_Top At_Offset_0 0532 6804 |h | Jump_Zero 0x537 0533 00db | | Load_Top At_Offset_3 0534 e24e | N | Load 0x1,0x4e 0535 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0536 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0537 00db | | Load_Top At_Offset_3 0538 e24e | N | Load 0x1,0x4e 0539 181a | | Execute Package,Field_Execute,Field_Number 0x1a 053a e00d | | Load 0x0,0xd 053b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 053c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053d 0000 0000 | | .XXX[0x3] 053f 0000 | | 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 00da | | Load_Top At_Offset_2 0544 e24e | N | Load 0x1,0x4e 0545 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0546 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0547 0000 | | .XXX[0x1] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 054b | K | .CONST 0x054b ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0001 | | .CONST 0x0001 ; Number of locals 054b BODY_0548: 054b INIT_0548: 054b 4607 |F | Jump_Case 0x8 054c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 054d 7806 |x | Jump 0x554 ; case 0x1 054e 7809 |x | Jump 0x558 ; case 0x2 054f 780d |x | Jump 0x55d ; case 0x3 0550 7810 |x | Jump 0x561 ; case 0x4 0551 7811 |x | Jump 0x563 ; case 0x5 0552 7812 |x | Jump 0x565 ; case 0x6 0553 7815 |x | Jump 0x569 ; case 0x7 0554 00da | | Load_Top At_Offset_2 0555 0091 063f | ?| Action Push_String_Extended_Indexed,0x63f ; "AN_EXCEPTION" 0557 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0558 00db | | Load_Top At_Offset_3 0559 00db | | Load_Top At_Offset_3 055a 00e0 | | Load_Encached Standard_Cache 055b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 055c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 055d 00da | | Load_Top At_Offset_2 055e 00e0 | | Load_Encached Standard_Cache 055f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0560 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0561 00db | | Load_Top At_Offset_3 0562 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0563 00db | | Load_Top At_Offset_3 0564 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0565 e243 | C | Load 0x1,0x43 0566 00dc | | Load_Top At_Offset_4 0567 0267 | g | Execute Discrete,Predecessor 0568 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0569 e243 | C | Load 0x1,0x43 056a 00dc | | Load_Top At_Offset_4 056b 0268 | h | Execute Discrete,Successor 056c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 056d 0000 0000 | | .XXX[0x3] 056f 0000 | | 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 00da | | Load_Top At_Offset_2 0574 e002 | | Load 0x0,0x2 0575 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0576 00d8 | | Load_Top At_Offset_0 0577 0d0a | | Execute_Immediate Less,0xa 0578 701f |p | Jump_Nonzero 0x598 0579 0af6 | | Execute_Immediate Plus,-0xa 057a 461c |F | Jump_Case 0x1d 057b 783d |x= | Jump 0x5b9 ; case 0x0 057c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 057d 781c |x | Jump 0x59a ; case 0x2 057e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3 057f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4 0580 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5 0581 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6 0582 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7 0583 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8 0584 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9 0585 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa 0586 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xb 0587 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xc 0588 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xd 0589 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe 058a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf 058b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10 058c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11 058d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x12 058e 7826 |x& | Jump 0x5b5 ; case 0x13 058f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x14 0590 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x15 0591 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x16 0592 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x17 0593 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x18 0594 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x19 0595 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1a 0596 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1b 0597 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1c 0598 00d1 | | Pop_Control Pop_Count_1 0599 4502 |E | Exit_Suprogram New_Top_Offset 0x2 059a 4801 |H | Short_Literal 0x1 059b e5fe | | Load 0x2,-0x2 059c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 059d 00da | | Load_Top At_Offset_2 059e e002 | | Load 0x0,0x2 059f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 05a0 e5fe | | Load 0x2,-0x2 05a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05a2 4801 |H | Short_Literal 0x1 05a3 00db | | Load_Top At_Offset_3 05a4 e002 | | Load 0x0,0x2 05a5 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 05a6 e001 | | Load 0x0,0x1 05a7 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 05a8 e001 | | Load 0x0,0x1 05a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05aa e5fe | | Load 0x2,-0x2 05ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05ac 00db | | Load_Top At_Offset_3 05ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05ae e002 | | Load 0x0,0x2 05af 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 05b0 e003 | | Load 0x0,0x3 05b1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05b2 e5fe | | Load 0x2,-0x2 05b3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 05b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05b5 4800 |H | Short_Literal 0x0 05b6 e5fe | | Load 0x2,-0x2 05b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05b9 4802 |H | Short_Literal 0x2 05ba e5fe | | Load 0x2,-0x2 05bb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05bc 00da | | Load_Top At_Offset_2 05bd e002 | | Load 0x0,0x2 05be 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 05bf e5fe | | Load 0x2,-0x2 05c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05c1 e001 | | Load 0x0,0x1 05c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05c3 e5fe | | Load 0x2,-0x2 05c4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05c6 0000 0000 | | .XXX[0x2] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d2 | | .CONST 0x05d2 ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0002 | | .CONST 0x0002 ; Number of locals 05cb INIT_05c8: 05cb e002 | | Load 0x0,0x2 05cc 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05cd 02c7 | | Declare_Variable Any 05ce 00db | | Load_Top At_Offset_3 05cf e002 | | Load 0x0,0x2 05d0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 05d1 a402 | | Store_Unchecked 0x2,0x2 05d2 BODY_05c8: 05d2 00d8 | | Load_Top At_Offset_0 05d3 e003 | | Load 0x0,0x3 05d4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05d5 e5fe | | Load 0x2,-0x2 05d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05d7 00d8 | | Load_Top At_Offset_0 05d8 e003 | | Load 0x0,0x3 05d9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05da e5fe | | Load 0x2,-0x2 05db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05dd 0000 0000 | | .XXX[0x3] 05df 0000 | | 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 00da | | Load_Top At_Offset_2 05e4 e24e | N | Load 0x1,0x4e 05e5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05e7 0000 | | .XXX[0x1] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb INIT_05e8: 05eb 00da | | Load_Top At_Offset_2 05ec e24e | N | Load 0x1,0x4e 05ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 4608 |F | Jump_Case 0x9 05f4 7808 |x | Jump 0x5fd ; case 0x0 05f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05f6 7813 |x | Jump 0x60a ; case 0x2 05f7 7812 |x | Jump 0x60a ; case 0x3 05f8 7811 |x | Jump 0x60a ; case 0x4 05f9 7810 |x | Jump 0x60a ; case 0x5 05fa 780f |x | Jump 0x60a ; case 0x6 05fb 780e |x | Jump 0x60a ; case 0x7 05fc 780d |x | Jump 0x60a ; case 0x8 05fd 00da | | Load_Top At_Offset_2 05fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05ff 0125 | % | Execute Any,Set_Constraint 0600 00da | | Load_Top At_Offset_2 0601 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0602 1c00 | | Execute_Immediate Run_Utility,0x0 0603 00da | | Load_Top At_Offset_2 0604 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0605 0125 | % | Execute Any,Set_Constraint 0606 00da | | Load_Top At_Offset_2 0607 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0608 1c00 | | Execute_Immediate Run_Utility,0x0 0609 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 060a 0869 | i | Execute_Immediate Raise,0x69 060b 0000 0000 | | .BLANK 0000[0x5] 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 4608 |F | Jump_Case 0x9 0614 7808 |x | Jump 0x61d ; case 0x0 0615 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0616 780d |x | Jump 0x624 ; case 0x2 0617 780c |x | Jump 0x624 ; case 0x3 0618 780b |x | Jump 0x624 ; case 0x4 0619 780a |x | Jump 0x624 ; case 0x5 061a 7809 |x | Jump 0x624 ; case 0x6 061b 7808 |x | Jump 0x624 ; case 0x7 061c 7807 |x | Jump 0x624 ; case 0x8 061d 00da | | Load_Top At_Offset_2 061e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 061f 1c00 | | Execute_Immediate Run_Utility,0x0 0620 00da | | Load_Top At_Offset_2 0621 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0622 1c00 | | Execute_Immediate Run_Utility,0x0 0623 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0624 0869 | i | Execute_Immediate Raise,0x69 0625 0000 0000 | | .XXX[0x3] 0627 0000 | | 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 4608 |F | Jump_Case 0x9 062c 7808 |x | Jump 0x635 ; case 0x0 062d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 062e 780d |x | Jump 0x63c ; case 0x2 062f 780c |x | Jump 0x63c ; case 0x3 0630 780b |x | Jump 0x63c ; case 0x4 0631 780a |x | Jump 0x63c ; case 0x5 0632 7809 |x | Jump 0x63c ; case 0x6 0633 7808 |x | Jump 0x63c ; case 0x7 0634 7807 |x | Jump 0x63c ; case 0x8 0635 00da | | Load_Top At_Offset_2 0636 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0637 1c00 | | Execute_Immediate Run_Utility,0x0 0638 00da | | Load_Top At_Offset_2 0639 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 063a 1c00 | | Execute_Immediate Run_Utility,0x0 063b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 063c 0869 | i | Execute_Immediate Raise,0x69 063d ; -------------------------------------------------------------------------------------- 063d ; STRING TABLE 063d ; -------------------------------------------------------------------------------------- 063d 000c | | .STRTAB 0x000c->0x0643 ; "A_PROCEDURE" 063e 0015 | | .STRTAB 0x0015->0x0648 ; "A_FUNCTION" 063f 001d | | .STRTAB 0x001d->0x064d ; "AN_EXCEPTION" 0640 0027 | ' | .STRTAB 0x0027->0x0653 ; "A_FUNCTION" 0641 002f | / | .STRTAB 0x002f->0x0658 ; "A_PROCEDURE" 0642 0038 | 8 | .STREND 0x0038->0x065e 0643 415f 5052 |A_PR| .STRTAB_STRINGS 065e 0000 0000 | | .XXX[0x2] 0660 ; -------------------------------------------------------------------------------------- 0660 ; Debug Table 0660 ; -------------------------------------------------------------------------------------- 0660 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2eee,0x0000,0x0001,0x0035 0666 000b 073a | :| .DBG4T 0x000b,0x073a,0x8000,0x8000 066a 00df 07c4 | | .DBG4T 0x00df,0x07c4,0x8000,0x0000 066e 0143 07f4 | C | .DBG4T 0x0143,0x07f4,0x0001,0x4000 0672 01eb 081c | | .DBG4T 0x01eb,0x081c,0x0001,0x4000 0676 0223 082d | # -| .DBG4T 0x0223,0x082d,0x0001,0x0000 067a 023b 0831 | ; 1| .DBG4T 0x023b,0x0831,0x0002,0x0000 067e 024b 0834 | K 4| .DBG4T 0x024b,0x0834,0x0002,0x0000 0682 0263 0839 | c 9| .DBG4T 0x0263,0x0839,0x0002,0x0000 0686 027b 083e | { >| .DBG4T 0x027b,0x083e,0x0001,0x0000 068a 0293 0843 | C| .DBG4T 0x0293,0x0843,0x0002,0x0000 068e 029b 0846 | F| .DBG4T 0x029b,0x0846,0x0002,0x0000 0692 02ab 0849 | I| .DBG4T 0x02ab,0x0849,0x0002,0x0000 0696 02bb 084c | L| .DBG4T 0x02bb,0x084c,0x0001,0x0000 069a 02cb 084f | O| .DBG4T 0x02cb,0x084f,0x0001,0x4000 069e 02eb 085a | Z| .DBG4T 0x02eb,0x085a,0x0002,0x4000 06a2 0313 086c | l| .DBG4T 0x0313,0x086c,0x0002,0x0000 06a6 032b 0871 | + q| .DBG4T 0x032b,0x0871,0x0002,0x0000 06aa 0333 0874 | 3 t| .DBG4T 0x0333,0x0874,0x0002,0x0000 06ae 0343 0877 | C w| .DBG4T 0x0343,0x0877,0x0001,0x4000 06b2 036b 0884 | k | .DBG4T 0x036b,0x0884,0x0002,0x0000 06b6 0373 0887 | s | .DBG4T 0x0373,0x0887,0x0002,0x0000 06ba 037b 088a | { | .DBG4T 0x037b,0x088a,0x0002,0x0000 06be 038b 088d | | .DBG4T 0x038b,0x088d,0x0002,0x0000 06c2 0393 0890 | | .DBG4T 0x0393,0x0890,0x0002,0x0000 06c6 03a3 0893 | | .DBG4T 0x03a3,0x0893,0x0002,0x0000 06ca 03b3 0896 | | .DBG4T 0x03b3,0x0896,0x0002,0x0000 06ce 03d3 089d | | .DBG4T 0x03d3,0x089d,0x0002,0x0000 06d2 03e3 08a0 | | .DBG4T 0x03e3,0x08a0,0x0002,0x0000 06d6 03fb 08a6 | | .DBG4T 0x03fb,0x08a6,0x0002,0x0000 06da 040b 08a9 | | .DBG4T 0x040b,0x08a9,0x0001,0x0000 06de 041b 0000 | | .DBG4T 0x041b,0x0000,0x0005,0x0000 06e2 0443 08ac | C | .DBG4T 0x0443,0x08ac,0x0001,0x0000 06e6 0463 08b3 | c | .DBG4T 0x0463,0x08b3,0x0002,0x4000 06ea 048b 08c5 | | .DBG4T 0x048b,0x08c5,0x0002,0x0000 06ee 0493 08c8 | | .DBG4T 0x0493,0x08c8,0x0002,0x0000 06f2 049b 08cb | | .DBG4T 0x049b,0x08cb,0x0002,0x0000 06f6 04ab 08ce | | .DBG4T 0x04ab,0x08ce,0x0002,0x4000 06fa 04c3 08db | | .DBG4T 0x04c3,0x08db,0x0002,0x4000 06fe 04db 08e8 | | .DBG4T 0x04db,0x08e8,0x0002,0x0000 0702 04eb 08ed | | .DBG4T 0x04eb,0x08ed,0x0001,0x4000 0706 050b 08fa | | .DBG4T 0x050b,0x08fa,0x0001,0x0000 070a 051b 08fd | | .DBG4T 0x051b,0x08fd,0x0002,0x0000 070e 0523 0900 | # | .DBG4T 0x0523,0x0900,0x0002,0x0000 0712 052b 0903 | + | .DBG4T 0x052b,0x0903,0x0002,0x0000 0716 0543 0909 | C | .DBG4T 0x0543,0x0909,0x0001,0x0000 071a 054b 0000 | K | .DBG4T 0x054b,0x0000,0x0005,0x0000 071e 0573 090c | s | .DBG4T 0x0573,0x090c,0x0001,0x4000 0722 05cb 0920 | | .DBG4T 0x05cb,0x0920,0x0001,0x0000 0726 05e3 0925 | %| .DBG4T 0x05e3,0x0925,0x0002,0x0000 072a 05eb 0928 | (| .DBG4T 0x05eb,0x0928,0x0002,0x0000 072e 05f3 0000 | | .DBG4T 0x05f3,0x0000,0x0005,0x0000 0732 0613 0000 | | .DBG4T 0x0613,0x0000,0x0005,0x0000 0736 062b 0000 | + | .DBG4T 0x062b,0x0000,0x0005,0x0000 073a ; -------------------------------------------------------------------------------------- 073a ; Debug chain 073a ; -------------------------------------------------------------------------------------- 073a 0044 0000 | D | .DBGLEN 0x0044,0x0000 073c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0039,0x003c,0x003f,0x0041,0x0043,0x0045,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x0084,0x0089,0x009c,0x009e,0x00a1,0x00ac,0x00b2,0x00b5,0x00c0,0x00ca,0x00d2,0x00d6,0x00da,0x00de 0780 0001 0002 | | .XXX[0x44] 0782 0003 0004 | | 0784 0005 0006 | | 0786 0007 0008 | | 0788 0009 000a | | 078a 000b 000c | | 078c 000d 000e | | 078e 000f 0010 | | 0790 0011 0012 | | 0792 0013 0014 | | 0794 0015 0016 | | 0796 0017 0018 | | 0798 0019 001a | | 079a 001b 001c | | 079c 001d 001e | | 079e 001f 0020 | | 07a0 0021 0022 | ! "| 07a2 0023 0024 | # $| 07a4 0025 0026 | % &| 07a6 0027 0028 | ' (| 07a8 0029 002a | ) *| 07aa 002b 002c | + ,| 07ac 002d 002e | - .| 07ae 002f 0030 | / 0| 07b0 0031 0032 | 1 2| 07b2 0033 0034 | 3 4| 07b4 0035 0036 | 5 6| 07b6 0038 0039 | 8 9| 07b8 003a 003b | : ;| 07ba 003d 003e | = >| 07bc 003f 0040 | ? @| 07be 0041 0042 | A B| 07c0 0043 0044 | C D| 07c2 0045 0046 | E F| 07c4 ; -------------------------------------------------------------------------------------- 07c4 ; Debug chain 07c4 ; -------------------------------------------------------------------------------------- 07c4 002e 0000 | . | .DBGLEN 0x002e,0x0000 07c6 00df 00e1 | | .DBGLNO 0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb,0x00fd,0x00ff,0x0101,0x0103,0x0105,0x0107,0x0109,0x010b,0x010d,0x010f,0x0111,0x0113,0x0115,0x0117,0x0119,0x011b,0x011d,0x011f,0x0121,0x0123,0x0125,0x0127,0x0129,0x012b,0x012d,0x012f,0x0131,0x0133,0x0135,0x0137,0x0139 07f4 ; -------------------------------------------------------------------------------------- 07f4 ; Debug chain 07f4 ; -------------------------------------------------------------------------------------- 07f4 0006 0010 | | .DBGLEN 0x0006,0x0010 07f6 0143 014d | C M| .DBGLNO 0x0143,0x014d,0x0154,0x0159,0x015b,0x015f,0x0163,0x0168,0x016f,0x0173,0x019a,0x01a2,0x01a7,0x01ac,0x01b2,0x01b6,0x01bf,0x01c4,0x01d3,0x01d7,0x01db,0x01df 080c 0001 0002 | | .XXX[0x10] 080e 0004 0005 | | 0810 0006 0008 | | 0812 0003 0009 | | 0814 000b 000c | | 0816 000d 000f | | 0818 0010 000e | | 081a 0011 000a | | 081c ; -------------------------------------------------------------------------------------- 081c ; Debug chain 081c ; -------------------------------------------------------------------------------------- 081c 0003 0006 | | .DBGLEN 0x0003,0x0006 081e 01eb 01f5 | | .DBGLNO 0x01eb,0x01f5,0x01fa,0x01fe,0x0204,0x0208,0x020e,0x0216,0x021b 0827 0002 0003 | | .XXX[0x6] 0829 0004 0005 | | 082b 0007 0001 | | 082d ; -------------------------------------------------------------------------------------- 082d ; Debug chain 082d ; -------------------------------------------------------------------------------------- 082d 0000 0002 | | .DBGLEN 0x0000,0x0002 082f 0223 022a | # *| .DBGLNO 0x0223,0x022a 0831 ; -------------------------------------------------------------------------------------- 0831 ; Debug chain 0831 ; -------------------------------------------------------------------------------------- 0831 0000 0001 | | .DBGLEN 0x0000,0x0001 0833 023b | ; | .DBGLNO 0x023b 0834 ; -------------------------------------------------------------------------------------- 0834 ; Debug chain 0834 ; -------------------------------------------------------------------------------------- 0834 0000 0003 | | .DBGLEN 0x0000,0x0003 0836 024b 0250 | K P| .DBGLNO 0x024b,0x0250,0x0255 0839 ; -------------------------------------------------------------------------------------- 0839 ; Debug chain 0839 ; -------------------------------------------------------------------------------------- 0839 0000 0003 | | .DBGLEN 0x0000,0x0003 083b 0263 0268 | c h| .DBGLNO 0x0263,0x0268,0x026d 083e ; -------------------------------------------------------------------------------------- 083e ; Debug chain 083e ; -------------------------------------------------------------------------------------- 083e 0000 0003 | | .DBGLEN 0x0000,0x0003 0840 027b 0280 | { | .DBGLNO 0x027b,0x0280,0x0286 0843 ; -------------------------------------------------------------------------------------- 0843 ; Debug chain 0843 ; -------------------------------------------------------------------------------------- 0843 0000 0001 | | .DBGLEN 0x0000,0x0001 0845 0293 | | .DBGLNO 0x0293 0846 ; -------------------------------------------------------------------------------------- 0846 ; Debug chain 0846 ; -------------------------------------------------------------------------------------- 0846 0000 0001 | | .DBGLEN 0x0000,0x0001 0848 029b | | .DBGLNO 0x029b 0849 ; -------------------------------------------------------------------------------------- 0849 ; Debug chain 0849 ; -------------------------------------------------------------------------------------- 0849 0000 0001 | | .DBGLEN 0x0000,0x0001 084b 02ab | | .DBGLNO 0x02ab 084c ; -------------------------------------------------------------------------------------- 084c ; Debug chain 084c ; -------------------------------------------------------------------------------------- 084c 0000 0001 | | .DBGLEN 0x0000,0x0001 084e 02bb | | .DBGLNO 0x02bb 084f ; -------------------------------------------------------------------------------------- 084f ; Debug chain 084f ; -------------------------------------------------------------------------------------- 084f 0001 0004 | | .DBGLEN 0x0001,0x0004 0851 02cb 02cf | | .DBGLNO 0x02cb,0x02cf,0x02d5,0x02da,0x02dd 0856 0001 0002 | | .XXX[0x4] 0858 0003 0005 | | 085a ; -------------------------------------------------------------------------------------- 085a ; Debug chain 085a ; -------------------------------------------------------------------------------------- 085a 0002 0007 | | .DBGLEN 0x0002,0x0007 085c 02eb 02f0 | | .DBGLNO 0x02eb,0x02f0,0x02f4,0x02f8,0x02fa,0x02ff,0x0302,0x0306,0x0308 0865 0001 0002 | | .XXX[0x7] 0867 0003 0004 | | 0869 0006 0005 | | 086b 0007 | | 086c ; -------------------------------------------------------------------------------------- 086c ; Debug chain 086c ; -------------------------------------------------------------------------------------- 086c 0002 0001 | | .DBGLEN 0x0002,0x0001 086e 0313 031a | | .DBGLNO 0x0313,0x031a,0x0321 0871 ; -------------------------------------------------------------------------------------- 0871 ; Debug chain 0871 ; -------------------------------------------------------------------------------------- 0871 0000 0001 | | .DBGLEN 0x0000,0x0001 0873 032b | + | .DBGLNO 0x032b 0874 ; -------------------------------------------------------------------------------------- 0874 ; Debug chain 0874 ; -------------------------------------------------------------------------------------- 0874 0000 0001 | | .DBGLEN 0x0000,0x0001 0876 0333 | 3 | .DBGLNO 0x0333 0877 ; -------------------------------------------------------------------------------------- 0877 ; Debug chain 0877 ; -------------------------------------------------------------------------------------- 0877 0001 0005 | | .DBGLEN 0x0001,0x0005 0879 0343 0347 | C G| .DBGLNO 0x0343,0x0347,0x034d,0x0352,0x0359,0x035e 087f 0001 0003 | | .XXX[0x5] 0881 0004 0007 | | 0883 0002 | | 0884 ; -------------------------------------------------------------------------------------- 0884 ; Debug chain 0884 ; -------------------------------------------------------------------------------------- 0884 0000 0001 | | .DBGLEN 0x0000,0x0001 0886 036b | k | .DBGLNO 0x036b 0887 ; -------------------------------------------------------------------------------------- 0887 ; Debug chain 0887 ; -------------------------------------------------------------------------------------- 0887 0000 0001 | | .DBGLEN 0x0000,0x0001 0889 0373 | s | .DBGLNO 0x0373 088a ; -------------------------------------------------------------------------------------- 088a ; Debug chain 088a ; -------------------------------------------------------------------------------------- 088a 0000 0001 | | .DBGLEN 0x0000,0x0001 088c 037b | { | .DBGLNO 0x037b 088d ; -------------------------------------------------------------------------------------- 088d ; Debug chain 088d ; -------------------------------------------------------------------------------------- 088d 0000 0001 | | .DBGLEN 0x0000,0x0001 088f 038b | | .DBGLNO 0x038b 0890 ; -------------------------------------------------------------------------------------- 0890 ; Debug chain 0890 ; -------------------------------------------------------------------------------------- 0890 0000 0001 | | .DBGLEN 0x0000,0x0001 0892 0393 | | .DBGLNO 0x0393 0893 ; -------------------------------------------------------------------------------------- 0893 ; Debug chain 0893 ; -------------------------------------------------------------------------------------- 0893 0000 0001 | | .DBGLEN 0x0000,0x0001 0895 03a3 | | .DBGLNO 0x03a3 0896 ; -------------------------------------------------------------------------------------- 0896 ; Debug chain 0896 ; -------------------------------------------------------------------------------------- 0896 0002 0003 | | .DBGLEN 0x0002,0x0003 0898 03b3 03b8 | | .DBGLNO 0x03b3,0x03b8,0x03bd,0x03c1,0x03c5 089d ; -------------------------------------------------------------------------------------- 089d ; Debug chain 089d ; -------------------------------------------------------------------------------------- 089d 0000 0001 | | .DBGLEN 0x0000,0x0001 089f 03d3 | | .DBGLNO 0x03d3 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; Debug chain 08a0 ; -------------------------------------------------------------------------------------- 08a0 0001 0003 | | .DBGLEN 0x0001,0x0003 08a2 03e3 03ec | | .DBGLNO 0x03e3,0x03ec,0x03f0,0x03f2 08a6 ; -------------------------------------------------------------------------------------- 08a6 ; Debug chain 08a6 ; -------------------------------------------------------------------------------------- 08a6 0000 0001 | | .DBGLEN 0x0000,0x0001 08a8 03fb | | .DBGLNO 0x03fb 08a9 ; -------------------------------------------------------------------------------------- 08a9 ; Debug chain 08a9 ; -------------------------------------------------------------------------------------- 08a9 0000 0001 | | .DBGLEN 0x0000,0x0001 08ab 040b | | .DBGLNO 0x040b 08ac ; -------------------------------------------------------------------------------------- 08ac ; Debug chain 08ac ; -------------------------------------------------------------------------------------- 08ac 0001 0004 | | .DBGLEN 0x0001,0x0004 08ae 0443 0447 | C G| .DBGLNO 0x0443,0x0447,0x044d,0x0452,0x0459 08b3 ; -------------------------------------------------------------------------------------- 08b3 ; Debug chain 08b3 ; -------------------------------------------------------------------------------------- 08b3 0002 0007 | | .DBGLEN 0x0002,0x0007 08b5 0463 0468 | c h| .DBGLNO 0x0463,0x0468,0x046c,0x0470,0x0472,0x0477,0x047a,0x047c,0x047f 08be 0001 0002 | | .XXX[0x7] 08c0 0003 0004 | | 08c2 0006 0005 | | 08c4 0007 | | 08c5 ; -------------------------------------------------------------------------------------- 08c5 ; Debug chain 08c5 ; -------------------------------------------------------------------------------------- 08c5 0000 0001 | | .DBGLEN 0x0000,0x0001 08c7 048b | | .DBGLNO 0x048b 08c8 ; -------------------------------------------------------------------------------------- 08c8 ; Debug chain 08c8 ; -------------------------------------------------------------------------------------- 08c8 0000 0001 | | .DBGLEN 0x0000,0x0001 08ca 0493 | | .DBGLNO 0x0493 08cb ; -------------------------------------------------------------------------------------- 08cb ; Debug chain 08cb ; -------------------------------------------------------------------------------------- 08cb 0000 0001 | | .DBGLEN 0x0000,0x0001 08cd 049b | | .DBGLNO 0x049b 08ce ; -------------------------------------------------------------------------------------- 08ce ; Debug chain 08ce ; -------------------------------------------------------------------------------------- 08ce 0001 0005 | | .DBGLEN 0x0001,0x0005 08d0 04ab 04af | | .DBGLNO 0x04ab,0x04af,0x04b4,0x04ba,0x04bc,0x04bd 08d6 0001 0002 | | .XXX[0x5] 08d8 0005 0003 | | 08da 0004 | | 08db ; -------------------------------------------------------------------------------------- 08db ; Debug chain 08db ; -------------------------------------------------------------------------------------- 08db 0001 0005 | | .DBGLEN 0x0001,0x0005 08dd 04c3 04c7 | | .DBGLNO 0x04c3,0x04c7,0x04cc,0x04d2,0x04d3,0x04d4 08e3 0001 0002 | | .XXX[0x5] 08e5 0005 0003 | | 08e7 0004 | | 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; Debug chain 08e8 ; -------------------------------------------------------------------------------------- 08e8 0001 0002 | | .DBGLEN 0x0001,0x0002 08ea 04db 04df | | .DBGLNO 0x04db,0x04df,0x04e4 08ed ; -------------------------------------------------------------------------------------- 08ed ; Debug chain 08ed ; -------------------------------------------------------------------------------------- 08ed 0001 0005 | | .DBGLEN 0x0001,0x0005 08ef 04eb 04ef | | .DBGLNO 0x04eb,0x04ef,0x04f5,0x04fa,0x04fe,0x0503 08f5 0001 0003 | | .XXX[0x5] 08f7 0004 0007 | | 08f9 0002 | | 08fa ; -------------------------------------------------------------------------------------- 08fa ; Debug chain 08fa ; -------------------------------------------------------------------------------------- 08fa 0000 0001 | | .DBGLEN 0x0000,0x0001 08fc 050b | | .DBGLNO 0x050b 08fd ; -------------------------------------------------------------------------------------- 08fd ; Debug chain 08fd ; -------------------------------------------------------------------------------------- 08fd 0000 0001 | | .DBGLEN 0x0000,0x0001 08ff 051b | | .DBGLNO 0x051b 0900 ; -------------------------------------------------------------------------------------- 0900 ; Debug chain 0900 ; -------------------------------------------------------------------------------------- 0900 0000 0001 | | .DBGLEN 0x0000,0x0001 0902 0523 | # | .DBGLNO 0x0523 0903 ; -------------------------------------------------------------------------------------- 0903 ; Debug chain 0903 ; -------------------------------------------------------------------------------------- 0903 0001 0003 | | .DBGLEN 0x0001,0x0003 0905 052b 0531 | + 1| .DBGLNO 0x052b,0x0531,0x0533,0x0537 0909 ; -------------------------------------------------------------------------------------- 0909 ; Debug chain 0909 ; -------------------------------------------------------------------------------------- 0909 0000 0001 | | .DBGLEN 0x0000,0x0001 090b 0543 | C | .DBGLNO 0x0543 090c ; -------------------------------------------------------------------------------------- 090c ; Debug chain 090c ; -------------------------------------------------------------------------------------- 090c 0000 0009 | | .DBGLEN 0x0000,0x0009 090e 0573 059a | s | .DBGLNO 0x0573,0x059a,0x059d,0x05a2,0x05ac,0x05b5,0x05b9,0x05bc,0x05c1 0917 0001 0005 | | .XXX[0x9] 0919 0006 0007 | | 091b 0008 0009 | | 091d 0002 0003 | | 091f 0004 | | 0920 ; -------------------------------------------------------------------------------------- 0920 ; Debug chain 0920 ; -------------------------------------------------------------------------------------- 0920 0001 0002 | | .DBGLEN 0x0001,0x0002 0922 05cb 05d2 | | .DBGLNO 0x05cb,0x05d2,0x05d7 0925 ; -------------------------------------------------------------------------------------- 0925 ; Debug chain 0925 ; -------------------------------------------------------------------------------------- 0925 0000 0001 | | .DBGLEN 0x0000,0x0001 0927 05e3 | | .DBGLNO 0x05e3 0928 ; -------------------------------------------------------------------------------------- 0928 ; Debug chain 0928 ; -------------------------------------------------------------------------------------- 0928 0000 0001 | | .DBGLEN 0x0000,0x0001 092a 05eb | | .DBGLNO 0x05eb 092b 0000 0000 | | .BLANK 0000[0xd5]