|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0450 | P | .CONST 0x0450 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0032 | 2 | .CONST 0x0032 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0011 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0013 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0015 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0017 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0019 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 001b 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 001d 00bf | | Action Accept_Activation 001e 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 0020 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0021 00c7 | | Action Elaborate_Subprogram 0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0025 00c7 | | Action Elaborate_Subprogram 0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0027 00c7 | | Action Elaborate_Subprogram 0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0029 00c7 | | Action Elaborate_Subprogram 002a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002b 00c7 | | Action Elaborate_Subprogram 002c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002d 00c7 | | Action Elaborate_Subprogram 002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002f 00c7 | | Action Elaborate_Subprogram 0030 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0031 00c7 | | Action Elaborate_Subprogram 0032 BODY_0008: 0032 00bc | | Action Signal_Activated 0033 00bb | | Action Signal_Completion 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0042 | B | .CONST 0x0042 ; Address of begin 0039 0079 | y | .CONST 0x0079 ; Address of exception handler 003a 0003 | | .CONST 0x0003 ; Number of locals 003b INIT_0038: 003b e001 | | Load 0x0,0x1 003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003d 02c7 | | Declare_Variable Any 003e 00d8 | | Load_Top At_Offset_0 003f 1c00 | | Execute_Immediate Run_Utility,0x0 0040 e002 | | Load 0x0,0x2 0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0042 BODY_0038: 0042 e5f5 | | Load 0x2,-0xb 0043 e002 | | Load 0x0,0x2 0044 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0045 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0046 00d8 | | Load_Top At_Offset_0 0047 e002 | | Load 0x0,0x2 0048 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0049 6815 |h | Jump_Zero 0x5f 004a e003 | | Load 0x0,0x3 004b 180e | | Execute Package,Field_Execute,Field_Number 0xe 004c 4801 |H | Short_Literal 0x1 004d 4801 |H | Short_Literal 0x1 004e e004 | | Load 0x0,0x4 004f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0050 0334 | 4 | Declare_Variable Array,With_Constraint 0051 e5f5 | | Load 0x2,-0xb 0052 e005 | | Load 0x0,0x5 0053 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0054 e004 | | Load 0x0,0x4 0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0056 0119 | | Execute Any,Check_In_Formal_Type 0057 4801 |H | Short_Literal 0x1 0058 00da | | Load_Top At_Offset_2 0059 01d6 | | Execute Vector,Field_Write 005a 6045 |`E | Indirect_Literal Discrete,0xa0,{0x00000000, 0x000081b9} 005b e006 | | Load 0x0,0x6 005c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 005d 4800 |H | Short_Literal 0x0 005e 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 005f 00d9 | | Load_Top At_Offset_1 0060 e5f6 | | Load 0x2,-0xa 0061 e5f7 | | Load 0x2,-0x9 0062 e5f8 | | Load 0x2,-0x8 0063 e5f9 | | Load 0x2,-0x7 0064 e5fa | | Load 0x2,-0x6 0065 e5fb | | Load 0x2,-0x5 0066 e5fc | | Load 0x2,-0x4 0067 e5fd | | Load 0x2,-0x3 0068 e5fe | | Load 0x2,-0x2 0069 e5ff | | Load 0x2,-0x1 006a e403 | | Load 0x2,0x3 006b e007 | | Load 0x0,0x7 006c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 006d 00d8 | | Load_Top At_Offset_0 006e e007 | | Load 0x0,0x7 006f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0070 7003 |p | Jump_Nonzero 0x74 0071 e008 | | Load 0x0,0x8 0072 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0073 0257 | W | Execute Discrete,Raise 0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0075 c402 | | Store 0x2,0x2 0076 00d9 | | Load_Top At_Offset_1 0077 8216 | | Call 0x1,0x16 0078 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 0079 TRAP_0038: 0079 4884 |H | Short_Literal 0x84 007a 010f | | Execute Exception,Equal 007b 7004 |p | Jump_Nonzero 0x80 007c e008 | | Load 0x0,0x8 007d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 007e 010f | | Execute Exception,Equal 007f 6815 |h | Jump_Zero 0x95 0080 e003 | | Load 0x0,0x3 0081 180e | | Execute Package,Field_Execute,Field_Number 0xe 0082 4801 |H | Short_Literal 0x1 0083 4801 |H | Short_Literal 0x1 0084 e004 | | Load 0x0,0x4 0085 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0086 0334 | 4 | Declare_Variable Array,With_Constraint 0087 e5f5 | | Load 0x2,-0xb 0088 e005 | | Load 0x0,0x5 0089 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 008a e004 | | Load 0x0,0x4 008b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008c 0119 | | Execute Any,Check_In_Formal_Type 008d 4801 |H | Short_Literal 0x1 008e 00da | | Load_Top At_Offset_2 008f 01d6 | | Execute Vector,Field_Write 0090 600b |` | Indirect_Literal Discrete,0x9c,{0x00000000, 0x000081bb} 0091 e006 | | Load 0x0,0x6 0092 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0093 4800 |H | Short_Literal 0x0 0094 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 0095 e006 | | Load 0x0,0x6 0096 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0097 010f | | Execute Exception,Equal 0098 6802 |h | Jump_Zero 0x9b 0099 4800 |H | Short_Literal 0x0 009a 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 009b 0100 | | Execute Exception,Raise 009c 0000 0000 | | .LITERAL {0x00000000, 0x000081bb} 00a0 0000 0000 | | .LITERAL {0x00000000, 0x000081b9} 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b2 | | .CONST 0x00b2 ; Address of begin 00a9 00e9 | | .CONST 0x00e9 ; Address of exception handler 00aa 0003 | | .CONST 0x0003 ; Number of locals 00ab INIT_00a8: 00ab e001 | | Load 0x0,0x1 00ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ad 02c7 | | Declare_Variable Any 00ae 00d8 | | Load_Top At_Offset_0 00af 1c00 | | Execute_Immediate Run_Utility,0x0 00b0 e002 | | Load 0x0,0x2 00b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b2 BODY_00a8: 00b2 e5f5 | | Load 0x2,-0xb 00b3 e002 | | Load 0x0,0x2 00b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00b6 00d8 | | Load_Top At_Offset_0 00b7 e002 | | Load 0x0,0x2 00b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b9 6815 |h | Jump_Zero 0xcf 00ba e003 | | Load 0x0,0x3 00bb 180e | | Execute Package,Field_Execute,Field_Number 0xe 00bc 4801 |H | Short_Literal 0x1 00bd 4801 |H | Short_Literal 0x1 00be e004 | | Load 0x0,0x4 00bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00c0 0334 | 4 | Declare_Variable Array,With_Constraint 00c1 e5f5 | | Load 0x2,-0xb 00c2 e005 | | Load 0x0,0x5 00c3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 00c4 e004 | | Load 0x0,0x4 00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c6 0119 | | Execute Any,Check_In_Formal_Type 00c7 4801 |H | Short_Literal 0x1 00c8 00da | | Load_Top At_Offset_2 00c9 01d6 | | Execute Vector,Field_Write 00ca 67d5 |g | Indirect_Literal Discrete,0xa0,{0x00000000, 0x000081b9} 00cb e006 | | Load 0x0,0x6 00cc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00cd 4800 |H | Short_Literal 0x0 00ce 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 00cf 00d9 | | Load_Top At_Offset_1 00d0 e5f6 | | Load 0x2,-0xa 00d1 e5f7 | | Load 0x2,-0x9 00d2 e5f8 | | Load 0x2,-0x8 00d3 e5f9 | | Load 0x2,-0x7 00d4 e5fa | | Load 0x2,-0x6 00d5 e5fb | | Load 0x2,-0x5 00d6 e5fc | | Load 0x2,-0x4 00d7 e5fd | | Load 0x2,-0x3 00d8 e5fe | | Load 0x2,-0x2 00d9 e5ff | | Load 0x2,-0x1 00da e403 | | Load 0x2,0x3 00db e007 | | Load 0x0,0x7 00dc 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00dd 00d8 | | Load_Top At_Offset_0 00de e007 | | Load 0x0,0x7 00df 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00e0 7003 |p | Jump_Nonzero 0xe4 00e1 e008 | | Load 0x0,0x8 00e2 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00e3 0257 | W | Execute Discrete,Raise 00e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e5 c402 | | Store 0x2,0x2 00e6 00d9 | | Load_Top At_Offset_1 00e7 8216 | | Call 0x1,0x16 00e8 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 00e9 TRAP_00a8: 00e9 4884 |H | Short_Literal 0x84 00ea 010f | | Execute Exception,Equal 00eb 7004 |p | Jump_Nonzero 0xf0 00ec e008 | | Load 0x0,0x8 00ed 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00ee 010f | | Execute Exception,Equal 00ef 6815 |h | Jump_Zero 0x105 00f0 e003 | | Load 0x0,0x3 00f1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f2 4801 |H | Short_Literal 0x1 00f3 4801 |H | Short_Literal 0x1 00f4 e004 | | Load 0x0,0x4 00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f6 0334 | 4 | Declare_Variable Array,With_Constraint 00f7 e5f5 | | Load 0x2,-0xb 00f8 e005 | | Load 0x0,0x5 00f9 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 00fa e004 | | Load 0x0,0x4 00fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fc 0119 | | Execute Any,Check_In_Formal_Type 00fd 4801 |H | Short_Literal 0x1 00fe 00da | | Load_Top At_Offset_2 00ff 01d6 | | Execute Vector,Field_Write 0100 679b |g | Indirect_Literal Discrete,0x9c,{0x00000000, 0x000081bb} 0101 e006 | | Load 0x0,0x6 0102 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0103 4800 |H | Short_Literal 0x0 0104 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 0105 e006 | | Load 0x0,0x6 0106 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0107 010f | | Execute Exception,Equal 0108 6802 |h | Jump_Zero 0x10b 0109 4800 |H | Short_Literal 0x0 010a 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 010b 0100 | | Execute Exception,Raise 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011a | | .CONST 0x011a ; Address of begin 0111 014c | L | .CONST 0x014c ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e001 | | Load 0x0,0x1 0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0115 02c7 | | Declare_Variable Any 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 e002 | | Load 0x0,0x2 0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011a BODY_0110: 011a e5fa | | Load 0x2,-0x6 011b e002 | | Load 0x0,0x2 011c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 011e 00d8 | | Load_Top At_Offset_0 011f e002 | | Load 0x0,0x2 0120 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0121 6815 |h | Jump_Zero 0x137 0122 e003 | | Load 0x0,0x3 0123 180e | | Execute Package,Field_Execute,Field_Number 0xe 0124 4801 |H | Short_Literal 0x1 0125 4801 |H | Short_Literal 0x1 0126 e004 | | Load 0x0,0x4 0127 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0128 0334 | 4 | Declare_Variable Array,With_Constraint 0129 e5fa | | Load 0x2,-0x6 012a e005 | | Load 0x0,0x5 012b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 012c e004 | | Load 0x0,0x4 012d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012e 0119 | | Execute Any,Check_In_Formal_Type 012f 4801 |H | Short_Literal 0x1 0130 00da | | Load_Top At_Offset_2 0131 01d6 | | Execute Vector,Field_Write 0132 6041 |`A | Indirect_Literal Discrete,0x174,{0x00000000, 0x000081b9} 0133 e006 | | Load 0x0,0x6 0134 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0135 4800 |H | Short_Literal 0x0 0136 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0137 00d9 | | Load_Top At_Offset_1 0138 e5fb | | Load 0x2,-0x5 0139 e5fc | | Load 0x2,-0x4 013a e5fd | | Load 0x2,-0x3 013b e5fe | | Load 0x2,-0x2 013c e5ff | | Load 0x2,-0x1 013d e403 | | Load 0x2,0x3 013e e007 | | Load 0x0,0x7 013f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0140 00d8 | | Load_Top At_Offset_0 0141 e007 | | Load 0x0,0x7 0142 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0143 7003 |p | Jump_Nonzero 0x147 0144 e008 | | Load 0x0,0x8 0145 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0146 0257 | W | Execute Discrete,Raise 0147 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0148 c402 | | Store 0x2,0x2 0149 00d9 | | Load_Top At_Offset_1 014a 8216 | | Call 0x1,0x16 014b 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 014c TRAP_0110: 014c 4884 |H | Short_Literal 0x84 014d 010f | | Execute Exception,Equal 014e 7004 |p | Jump_Nonzero 0x153 014f e008 | | Load 0x0,0x8 0150 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0151 010f | | Execute Exception,Equal 0152 6815 |h | Jump_Zero 0x168 0153 e003 | | Load 0x0,0x3 0154 180e | | Execute Package,Field_Execute,Field_Number 0xe 0155 4801 |H | Short_Literal 0x1 0156 4801 |H | Short_Literal 0x1 0157 e004 | | Load 0x0,0x4 0158 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0159 0334 | 4 | Declare_Variable Array,With_Constraint 015a e5fa | | Load 0x2,-0x6 015b e005 | | Load 0x0,0x5 015c 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 015d e004 | | Load 0x0,0x4 015e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 015f 0119 | | Execute Any,Check_In_Formal_Type 0160 4801 |H | Short_Literal 0x1 0161 00da | | Load_Top At_Offset_2 0162 01d6 | | Execute Vector,Field_Write 0163 600c |` | Indirect_Literal Discrete,0x170,{0x00000000, 0x000081bb} 0164 e006 | | Load 0x0,0x6 0165 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0166 4800 |H | Short_Literal 0x0 0167 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0168 e006 | | Load 0x0,0x6 0169 1b17 | | Execute Package,Field_Read,Field_Number 0x17 016a 010f | | Execute Exception,Equal 016b 6802 |h | Jump_Zero 0x16e 016c 4800 |H | Short_Literal 0x0 016d 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 016e 0100 | | Execute Exception,Raise 016f 0000 | | .XXX[0x1] 0170 0000 0000 | | .LITERAL {0x00000000, 0x000081bb} 0174 0000 0000 | | .LITERAL {0x00000000, 0x000081b9} 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0182 | | .CONST 0x0182 ; Address of begin 0179 01b4 | | .CONST 0x01b4 ; Address of exception handler 017a 0003 | | .CONST 0x0003 ; Number of locals 017b INIT_0178: 017b e001 | | Load 0x0,0x1 017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017d 02c7 | | Declare_Variable Any 017e 00d8 | | Load_Top At_Offset_0 017f 1c00 | | Execute_Immediate Run_Utility,0x0 0180 e002 | | Load 0x0,0x2 0181 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0182 BODY_0178: 0182 e5fa | | Load 0x2,-0x6 0183 e002 | | Load 0x0,0x2 0184 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0185 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0186 00d8 | | Load_Top At_Offset_0 0187 e002 | | Load 0x0,0x2 0188 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0189 6815 |h | Jump_Zero 0x19f 018a e003 | | Load 0x0,0x3 018b 180e | | Execute Package,Field_Execute,Field_Number 0xe 018c 4801 |H | Short_Literal 0x1 018d 4801 |H | Short_Literal 0x1 018e e004 | | Load 0x0,0x4 018f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0190 0334 | 4 | Declare_Variable Array,With_Constraint 0191 e5fa | | Load 0x2,-0x6 0192 e005 | | Load 0x0,0x5 0193 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0194 e004 | | Load 0x0,0x4 0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0196 0119 | | Execute Any,Check_In_Formal_Type 0197 4801 |H | Short_Literal 0x1 0198 00da | | Load_Top At_Offset_2 0199 01d6 | | Execute Vector,Field_Write 019a 67d9 |g | Indirect_Literal Discrete,0x174,{0x00000000, 0x000081b9} 019b e006 | | Load 0x0,0x6 019c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 019d 4800 |H | Short_Literal 0x0 019e 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 019f 00d9 | | Load_Top At_Offset_1 01a0 e5fb | | Load 0x2,-0x5 01a1 e5fc | | Load 0x2,-0x4 01a2 e5fd | | Load 0x2,-0x3 01a3 e5fe | | Load 0x2,-0x2 01a4 e5ff | | Load 0x2,-0x1 01a5 e403 | | Load 0x2,0x3 01a6 e007 | | Load 0x0,0x7 01a7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01a8 00d8 | | Load_Top At_Offset_0 01a9 e007 | | Load 0x0,0x7 01aa 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 01ab 7003 |p | Jump_Nonzero 0x1af 01ac e008 | | Load 0x0,0x8 01ad 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 01ae 0257 | W | Execute Discrete,Raise 01af 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01b0 c402 | | Store 0x2,0x2 01b1 00d9 | | Load_Top At_Offset_1 01b2 8216 | | Call 0x1,0x16 01b3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 01b4 TRAP_0178: 01b4 4884 |H | Short_Literal 0x84 01b5 010f | | Execute Exception,Equal 01b6 7004 |p | Jump_Nonzero 0x1bb 01b7 e008 | | Load 0x0,0x8 01b8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 01b9 010f | | Execute Exception,Equal 01ba 6815 |h | Jump_Zero 0x1d0 01bb e003 | | Load 0x0,0x3 01bc 180e | | Execute Package,Field_Execute,Field_Number 0xe 01bd 4801 |H | Short_Literal 0x1 01be 4801 |H | Short_Literal 0x1 01bf e004 | | Load 0x0,0x4 01c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c1 0334 | 4 | Declare_Variable Array,With_Constraint 01c2 e5fa | | Load 0x2,-0x6 01c3 e005 | | Load 0x0,0x5 01c4 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 01c5 e004 | | Load 0x0,0x4 01c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c7 0119 | | Execute Any,Check_In_Formal_Type 01c8 4801 |H | Short_Literal 0x1 01c9 00da | | Load_Top At_Offset_2 01ca 01d6 | | Execute Vector,Field_Write 01cb 67a4 |g | Indirect_Literal Discrete,0x170,{0x00000000, 0x000081bb} 01cc e006 | | Load 0x0,0x6 01cd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01ce 4800 |H | Short_Literal 0x0 01cf 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 01d0 e006 | | Load 0x0,0x6 01d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01d2 010f | | Execute Exception,Equal 01d3 6802 |h | Jump_Zero 0x1d6 01d4 4800 |H | Short_Literal 0x0 01d5 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 01d6 0100 | | Execute Exception,Raise 01d7 0000 | | .XXX[0x1] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e2 | | .CONST 0x01e2 ; Address of begin 01d9 0217 | | .CONST 0x0217 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e001 | | Load 0x0,0x1 01dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01dd 02c7 | | Declare_Variable Any 01de 00d8 | | Load_Top At_Offset_0 01df 1c00 | | Execute_Immediate Run_Utility,0x0 01e0 e002 | | Load 0x0,0x2 01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e2 BODY_01d8: 01e2 e5f7 | | Load 0x2,-0x9 01e3 e002 | | Load 0x0,0x2 01e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01e6 00d8 | | Load_Top At_Offset_0 01e7 e002 | | Load 0x0,0x2 01e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e9 6815 |h | Jump_Zero 0x1ff 01ea e003 | | Load 0x0,0x3 01eb 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ec 4801 |H | Short_Literal 0x1 01ed 4801 |H | Short_Literal 0x1 01ee e004 | | Load 0x0,0x4 01ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f0 0334 | 4 | Declare_Variable Array,With_Constraint 01f1 e5f7 | | Load 0x2,-0x9 01f2 e005 | | Load 0x0,0x5 01f3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 01f4 e004 | | Load 0x0,0x4 01f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f6 0119 | | Execute Any,Check_In_Formal_Type 01f7 4801 |H | Short_Literal 0x1 01f8 00da | | Load_Top At_Offset_2 01f9 01d6 | | Execute Vector,Field_Write 01fa 6045 |`E | Indirect_Literal Discrete,0x240,{0x00000000, 0x000081b9} 01fb e006 | | Load 0x0,0x6 01fc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01fd 4800 |H | Short_Literal 0x0 01fe 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 01ff 00d9 | | Load_Top At_Offset_1 0200 e5f8 | | Load 0x2,-0x8 0201 e5f9 | | Load 0x2,-0x7 0202 e5fa | | Load 0x2,-0x6 0203 e5fb | | Load 0x2,-0x5 0204 e5fc | | Load 0x2,-0x4 0205 e5fd | | Load 0x2,-0x3 0206 e5fe | | Load 0x2,-0x2 0207 e5ff | | Load 0x2,-0x1 0208 e403 | | Load 0x2,0x3 0209 e007 | | Load 0x0,0x7 020a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 020b 00d8 | | Load_Top At_Offset_0 020c e007 | | Load 0x0,0x7 020d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 020e 7003 |p | Jump_Nonzero 0x212 020f e008 | | Load 0x0,0x8 0210 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0211 0257 | W | Execute Discrete,Raise 0212 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0213 c402 | | Store 0x2,0x2 0214 00d9 | | Load_Top At_Offset_1 0215 8216 | | Call 0x1,0x16 0216 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 0217 TRAP_01d8: 0217 4884 |H | Short_Literal 0x84 0218 010f | | Execute Exception,Equal 0219 7004 |p | Jump_Nonzero 0x21e 021a e008 | | Load 0x0,0x8 021b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 021c 010f | | Execute Exception,Equal 021d 6815 |h | Jump_Zero 0x233 021e e003 | | Load 0x0,0x3 021f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0220 4801 |H | Short_Literal 0x1 0221 4801 |H | Short_Literal 0x1 0222 e004 | | Load 0x0,0x4 0223 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0224 0334 | 4 | Declare_Variable Array,With_Constraint 0225 e5f7 | | Load 0x2,-0x9 0226 e005 | | Load 0x0,0x5 0227 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0228 e004 | | Load 0x0,0x4 0229 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022a 0119 | | Execute Any,Check_In_Formal_Type 022b 4801 |H | Short_Literal 0x1 022c 00da | | Load_Top At_Offset_2 022d 01d6 | | Execute Vector,Field_Write 022e 600d |` | Indirect_Literal Discrete,0x23c,{0x00000000, 0x000081bb} 022f e006 | | Load 0x0,0x6 0230 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0231 4800 |H | Short_Literal 0x0 0232 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 0233 e006 | | Load 0x0,0x6 0234 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0235 010f | | Execute Exception,Equal 0236 6802 |h | Jump_Zero 0x239 0237 4800 |H | Short_Literal 0x0 0238 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 0239 0100 | | Execute Exception,Raise 023a 0000 0000 | | .XXX[0x2] 023c 0000 0000 | | .LITERAL {0x00000000, 0x000081bb} 0240 0000 0000 | | .LITERAL {0x00000000, 0x000081b9} 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0252 | R | .CONST 0x0252 ; Address of begin 0249 0287 | | .CONST 0x0287 ; Address of exception handler 024a 0003 | | .CONST 0x0003 ; Number of locals 024b INIT_0248: 024b e001 | | Load 0x0,0x1 024c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024d 02c7 | | Declare_Variable Any 024e 00d8 | | Load_Top At_Offset_0 024f 1c00 | | Execute_Immediate Run_Utility,0x0 0250 e002 | | Load 0x0,0x2 0251 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0252 BODY_0248: 0252 e5f7 | | Load 0x2,-0x9 0253 e002 | | Load 0x0,0x2 0254 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0255 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0256 00d8 | | Load_Top At_Offset_0 0257 e002 | | Load 0x0,0x2 0258 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0259 6815 |h | Jump_Zero 0x26f 025a e003 | | Load 0x0,0x3 025b 180e | | Execute Package,Field_Execute,Field_Number 0xe 025c 4801 |H | Short_Literal 0x1 025d 4801 |H | Short_Literal 0x1 025e e004 | | Load 0x0,0x4 025f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0260 0334 | 4 | Declare_Variable Array,With_Constraint 0261 e5f7 | | Load 0x2,-0x9 0262 e005 | | Load 0x0,0x5 0263 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0264 e004 | | Load 0x0,0x4 0265 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0266 0119 | | Execute Any,Check_In_Formal_Type 0267 4801 |H | Short_Literal 0x1 0268 00da | | Load_Top At_Offset_2 0269 01d6 | | Execute Vector,Field_Write 026a 67d5 |g | Indirect_Literal Discrete,0x240,{0x00000000, 0x000081b9} 026b e006 | | Load 0x0,0x6 026c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 026d 4800 |H | Short_Literal 0x0 026e 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 026f 00d9 | | Load_Top At_Offset_1 0270 e5f8 | | Load 0x2,-0x8 0271 e5f9 | | Load 0x2,-0x7 0272 e5fa | | Load 0x2,-0x6 0273 e5fb | | Load 0x2,-0x5 0274 e5fc | | Load 0x2,-0x4 0275 e5fd | | Load 0x2,-0x3 0276 e5fe | | Load 0x2,-0x2 0277 e5ff | | Load 0x2,-0x1 0278 e403 | | Load 0x2,0x3 0279 e007 | | Load 0x0,0x7 027a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 027b 00d8 | | Load_Top At_Offset_0 027c e007 | | Load 0x0,0x7 027d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 027e 7003 |p | Jump_Nonzero 0x282 027f e008 | | Load 0x0,0x8 0280 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0281 0257 | W | Execute Discrete,Raise 0282 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0283 c402 | | Store 0x2,0x2 0284 00d9 | | Load_Top At_Offset_1 0285 8216 | | Call 0x1,0x16 0286 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 0287 TRAP_0248: 0287 4884 |H | Short_Literal 0x84 0288 010f | | Execute Exception,Equal 0289 7004 |p | Jump_Nonzero 0x28e 028a e008 | | Load 0x0,0x8 028b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 028c 010f | | Execute Exception,Equal 028d 6815 |h | Jump_Zero 0x2a3 028e e003 | | Load 0x0,0x3 028f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0290 4801 |H | Short_Literal 0x1 0291 4801 |H | Short_Literal 0x1 0292 e004 | | Load 0x0,0x4 0293 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0294 0334 | 4 | Declare_Variable Array,With_Constraint 0295 e5f7 | | Load 0x2,-0x9 0296 e005 | | Load 0x0,0x5 0297 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0298 e004 | | Load 0x0,0x4 0299 1b0e | | Execute Package,Field_Read,Field_Number 0xe 029a 0119 | | Execute Any,Check_In_Formal_Type 029b 4801 |H | Short_Literal 0x1 029c 00da | | Load_Top At_Offset_2 029d 01d6 | | Execute Vector,Field_Write 029e 679d |g | Indirect_Literal Discrete,0x23c,{0x00000000, 0x000081bb} 029f e006 | | Load 0x0,0x6 02a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02a1 4800 |H | Short_Literal 0x0 02a2 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 02a3 e006 | | Load 0x0,0x6 02a4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a5 010f | | Execute Exception,Equal 02a6 6802 |h | Jump_Zero 0x2a9 02a7 4800 |H | Short_Literal 0x0 02a8 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 02a9 0100 | | Execute Exception,Raise 02aa 0000 0000 | | .BLANK 0000[0x6] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b5 | | .CONST 0x02b5 ; Address of begin 02b1 02e1 | | .CONST 0x02e1 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e002 | | Load 0x0,0x2 02b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b5 BODY_02b0: 02b5 e5fc | | Load 0x2,-0x4 02b6 e002 | | Load 0x0,0x2 02b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02b9 00d8 | | Load_Top At_Offset_0 02ba e002 | | Load 0x0,0x2 02bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02bc 6815 |h | Jump_Zero 0x2d2 02bd e003 | | Load 0x0,0x3 02be 180e | | Execute Package,Field_Execute,Field_Number 0xe 02bf 4801 |H | Short_Literal 0x1 02c0 4801 |H | Short_Literal 0x1 02c1 e004 | | Load 0x0,0x4 02c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c3 0334 | 4 | Declare_Variable Array,With_Constraint 02c4 e5fc | | Load 0x2,-0x4 02c5 e005 | | Load 0x0,0x5 02c6 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 02c7 e004 | | Load 0x0,0x4 02c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c9 0119 | | Execute Any,Check_In_Formal_Type 02ca 4801 |H | Short_Literal 0x1 02cb 00da | | Load_Top At_Offset_2 02cc 01d6 | | Execute Vector,Field_Write 02cd 603a |`: | Indirect_Literal Discrete,0x308,{0x00000000, 0x000081b9} 02ce e006 | | Load 0x0,0x6 02cf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02d0 00ea | | Load_Encached Null_String_Cache 02d1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 02d2 e5fd | | Load 0x2,-0x3 02d3 e5fe | | Load 0x2,-0x2 02d4 e5ff | | Load 0x2,-0x1 02d5 00db | | Load_Top At_Offset_3 02d6 e007 | | Load 0x0,0x7 02d7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 02d8 00d8 | | Load_Top At_Offset_0 02d9 e007 | | Load 0x0,0x7 02da 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 02db 7003 |p | Jump_Nonzero 0x2df 02dc e008 | | Load 0x0,0x8 02dd 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 02de 0257 | W | Execute Discrete,Raise 02df 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02e0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 02e1 TRAP_02b0: 02e1 4884 |H | Short_Literal 0x84 02e2 010f | | Execute Exception,Equal 02e3 7004 |p | Jump_Nonzero 0x2e8 02e4 e008 | | Load 0x0,0x8 02e5 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 02e6 010f | | Execute Exception,Equal 02e7 6815 |h | Jump_Zero 0x2fd 02e8 e003 | | Load 0x0,0x3 02e9 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ea 4801 |H | Short_Literal 0x1 02eb 4801 |H | Short_Literal 0x1 02ec e004 | | Load 0x0,0x4 02ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ee 0334 | 4 | Declare_Variable Array,With_Constraint 02ef e5fc | | Load 0x2,-0x4 02f0 e005 | | Load 0x0,0x5 02f1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 02f2 e004 | | Load 0x0,0x4 02f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02f4 0119 | | Execute Any,Check_In_Formal_Type 02f5 4801 |H | Short_Literal 0x1 02f6 00da | | Load_Top At_Offset_2 02f7 01d6 | | Execute Vector,Field_Write 02f8 600b |` | Indirect_Literal Discrete,0x304,{0x00000000, 0x000081bb} 02f9 e006 | | Load 0x0,0x6 02fa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02fb 00ea | | Load_Encached Null_String_Cache 02fc 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 02fd e006 | | Load 0x0,0x6 02fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02ff 010f | | Execute Exception,Equal 0300 6802 |h | Jump_Zero 0x303 0301 00ea | | Load_Encached Null_String_Cache 0302 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0303 0100 | | Execute Exception,Raise 0304 0000 0000 | | .LITERAL {0x00000000, 0x000081bb} 0308 0000 0000 | | .LITERAL {0x00000000, 0x000081b9} 030c 0000 0000 | | .BLANK 0000[0x4] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 031a | | .CONST 0x031a ; Address of begin 0311 034a | J | .CONST 0x034a ; Address of exception handler 0312 0003 | | .CONST 0x0003 ; Number of locals 0313 INIT_0310: 0313 e001 | | Load 0x0,0x1 0314 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0315 02c7 | | Declare_Variable Any 0316 00d8 | | Load_Top At_Offset_0 0317 1c00 | | Execute_Immediate Run_Utility,0x0 0318 e002 | | Load 0x0,0x2 0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031a BODY_0310: 031a e5fc | | Load 0x2,-0x4 031b e002 | | Load 0x0,0x2 031c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 031d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 031e 00d8 | | Load_Top At_Offset_0 031f e002 | | Load 0x0,0x2 0320 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0321 6815 |h | Jump_Zero 0x337 0322 e003 | | Load 0x0,0x3 0323 180e | | Execute Package,Field_Execute,Field_Number 0xe 0324 4801 |H | Short_Literal 0x1 0325 4801 |H | Short_Literal 0x1 0326 e004 | | Load 0x0,0x4 0327 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0328 0334 | 4 | Declare_Variable Array,With_Constraint 0329 e5fc | | Load 0x2,-0x4 032a e005 | | Load 0x0,0x5 032b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 032c e004 | | Load 0x0,0x4 032d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 032e 0119 | | Execute Any,Check_In_Formal_Type 032f 4801 |H | Short_Literal 0x1 0330 00da | | Load_Top At_Offset_2 0331 01d6 | | Execute Vector,Field_Write 0332 67d5 |g | Indirect_Literal Discrete,0x308,{0x00000000, 0x000081b9} 0333 e006 | | Load 0x0,0x6 0334 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0335 4800 |H | Short_Literal 0x0 0336 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0337 00d9 | | Load_Top At_Offset_1 0338 e5fd | | Load 0x2,-0x3 0339 e5fe | | Load 0x2,-0x2 033a e5ff | | Load 0x2,-0x1 033b e403 | | Load 0x2,0x3 033c e007 | | Load 0x0,0x7 033d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 033e 00d8 | | Load_Top At_Offset_0 033f e007 | | Load 0x0,0x7 0340 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0341 7003 |p | Jump_Nonzero 0x345 0342 e008 | | Load 0x0,0x8 0343 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0344 0257 | W | Execute Discrete,Raise 0345 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0346 c402 | | Store 0x2,0x2 0347 00d9 | | Load_Top At_Offset_1 0348 8216 | | Call 0x1,0x16 0349 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 034a TRAP_0310: 034a 4884 |H | Short_Literal 0x84 034b 010f | | Execute Exception,Equal 034c 7004 |p | Jump_Nonzero 0x351 034d e008 | | Load 0x0,0x8 034e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 034f 010f | | Execute Exception,Equal 0350 6815 |h | Jump_Zero 0x366 0351 e003 | | Load 0x0,0x3 0352 180e | | Execute Package,Field_Execute,Field_Number 0xe 0353 4801 |H | Short_Literal 0x1 0354 4801 |H | Short_Literal 0x1 0355 e004 | | Load 0x0,0x4 0356 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0357 0334 | 4 | Declare_Variable Array,With_Constraint 0358 e5fc | | Load 0x2,-0x4 0359 e005 | | Load 0x0,0x5 035a 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 035b e004 | | Load 0x0,0x4 035c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035d 0119 | | Execute Any,Check_In_Formal_Type 035e 4801 |H | Short_Literal 0x1 035f 00da | | Load_Top At_Offset_2 0360 01d6 | | Execute Vector,Field_Write 0361 67a2 |g | Indirect_Literal Discrete,0x304,{0x00000000, 0x000081bb} 0362 e006 | | Load 0x0,0x6 0363 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0364 4800 |H | Short_Literal 0x0 0365 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0366 e006 | | Load 0x0,0x6 0367 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0368 010f | | Execute Exception,Equal 0369 6802 |h | Jump_Zero 0x36c 036a 4800 |H | Short_Literal 0x0 036b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 036c 0100 | | Execute Exception,Raise 036d 0000 0000 | | .XXX[0x3] 036f 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 037a | z | .CONST 0x037a ; Address of begin 0371 03aa | | .CONST 0x03aa ; Address of exception handler 0372 0003 | | .CONST 0x0003 ; Number of locals 0373 INIT_0370: 0373 e001 | | Load 0x0,0x1 0374 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0375 02c7 | | Declare_Variable Any 0376 00d8 | | Load_Top At_Offset_0 0377 1c00 | | Execute_Immediate Run_Utility,0x0 0378 e002 | | Load 0x0,0x2 0379 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037a BODY_0370: 037a e5fc | | Load 0x2,-0x4 037b e002 | | Load 0x0,0x2 037c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 037d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 037e 00d8 | | Load_Top At_Offset_0 037f e002 | | Load 0x0,0x2 0380 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0381 6815 |h | Jump_Zero 0x397 0382 e003 | | Load 0x0,0x3 0383 180e | | Execute Package,Field_Execute,Field_Number 0xe 0384 4801 |H | Short_Literal 0x1 0385 4801 |H | Short_Literal 0x1 0386 e004 | | Load 0x0,0x4 0387 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0388 0334 | 4 | Declare_Variable Array,With_Constraint 0389 e5fc | | Load 0x2,-0x4 038a e005 | | Load 0x0,0x5 038b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 038c e004 | | Load 0x0,0x4 038d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 038e 0119 | | Execute Any,Check_In_Formal_Type 038f 4801 |H | Short_Literal 0x1 0390 00da | | Load_Top At_Offset_2 0391 01d6 | | Execute Vector,Field_Write 0392 6041 |`A | Indirect_Literal Discrete,0x3d4,{0x00000000, 0x000081b9} 0393 e006 | | Load 0x0,0x6 0394 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0395 4800 |H | Short_Literal 0x0 0396 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0397 00d9 | | Load_Top At_Offset_1 0398 e5fd | | Load 0x2,-0x3 0399 e5fe | | Load 0x2,-0x2 039a e5ff | | Load 0x2,-0x1 039b e403 | | Load 0x2,0x3 039c e007 | | Load 0x0,0x7 039d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 039e 00d8 | | Load_Top At_Offset_0 039f e007 | | Load 0x0,0x7 03a0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 03a1 7003 |p | Jump_Nonzero 0x3a5 03a2 e008 | | Load 0x0,0x8 03a3 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 03a4 0257 | W | Execute Discrete,Raise 03a5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03a6 c402 | | Store 0x2,0x2 03a7 00d9 | | Load_Top At_Offset_1 03a8 8216 | | Call 0x1,0x16 03a9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 03aa TRAP_0370: 03aa 4884 |H | Short_Literal 0x84 03ab 010f | | Execute Exception,Equal 03ac 7004 |p | Jump_Nonzero 0x3b1 03ad e008 | | Load 0x0,0x8 03ae 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 03af 010f | | Execute Exception,Equal 03b0 6815 |h | Jump_Zero 0x3c6 03b1 e003 | | Load 0x0,0x3 03b2 180e | | Execute Package,Field_Execute,Field_Number 0xe 03b3 4801 |H | Short_Literal 0x1 03b4 4801 |H | Short_Literal 0x1 03b5 e004 | | Load 0x0,0x4 03b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b7 0334 | 4 | Declare_Variable Array,With_Constraint 03b8 e5fc | | Load 0x2,-0x4 03b9 e005 | | Load 0x0,0x5 03ba 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 03bb e004 | | Load 0x0,0x4 03bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03bd 0119 | | Execute Any,Check_In_Formal_Type 03be 4801 |H | Short_Literal 0x1 03bf 00da | | Load_Top At_Offset_2 03c0 01d6 | | Execute Vector,Field_Write 03c1 600e |` | Indirect_Literal Discrete,0x3d0,{0x00000000, 0x000081bb} 03c2 e006 | | Load 0x0,0x6 03c3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03c4 4800 |H | Short_Literal 0x0 03c5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 03c6 e006 | | Load 0x0,0x6 03c7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03c8 010f | | Execute Exception,Equal 03c9 6802 |h | Jump_Zero 0x3cc 03ca 4800 |H | Short_Literal 0x0 03cb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 03cc 0100 | | Execute Exception,Raise 03cd 0000 0000 | | .XXX[0x3] 03cf 0000 | | 03d0 0000 0000 | | .LITERAL {0x00000000, 0x000081bb} 03d4 0000 0000 | | .LITERAL {0x00000000, 0x000081b9} 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc e001 | | Load 0x0,0x1 03dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03de 4603 |F | Jump_Case 0x4 03df 7818 |x | Jump 0x3f8 ; case 0x0 03e0 782e |x. | Jump 0x40f ; case 0x1 03e1 7844 |xD | Jump 0x426 ; case 0x2 03e2 7800 |x | Jump 0x3e3 ; case 0x3 03e3 4801 |H | Short_Literal 0x1 03e4 4801 |H | Short_Literal 0x1 03e5 e004 | | Load 0x0,0x4 03e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03e7 0334 | 4 | Declare_Variable Array,With_Constraint 03e8 00db | | Load_Top At_Offset_3 03e9 e001 | | Load 0x0,0x1 03ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03eb e004 | | Load 0x0,0x4 03ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03ed e004 | | Load 0x0,0x4 03ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ef 0119 | | Execute Any,Check_In_Formal_Type 03f0 4801 |H | Short_Literal 0x1 03f1 00da | | Load_Top At_Offset_2 03f2 01d6 | | Execute Vector,Field_Write 03f3 6058 |`X | Indirect_Literal Discrete,0x44c,{0x00000000, 0x000081be} 03f4 e006 | | Load 0x0,0x6 03f5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03f6 4800 |H | Short_Literal 0x0 03f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f8 e003 | | Load 0x0,0x3 03f9 180e | | Execute Package,Field_Execute,Field_Number 0xe 03fa 4801 |H | Short_Literal 0x1 03fb 4801 |H | Short_Literal 0x1 03fc e004 | | Load 0x0,0x4 03fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03fe 0334 | 4 | Declare_Variable Array,With_Constraint 03ff e5ff | | Load 0x2,-0x1 0400 e001 | | Load 0x0,0x1 0401 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0402 e004 | | Load 0x0,0x4 0403 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0404 e004 | | Load 0x0,0x4 0405 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0406 0119 | | Execute Any,Check_In_Formal_Type 0407 4801 |H | Short_Literal 0x1 0408 00da | | Load_Top At_Offset_2 0409 01d6 | | Execute Vector,Field_Write 040a 603d |`= | Indirect_Literal Discrete,0x448,{0x00000000, 0x000081ba} 040b e006 | | Load 0x0,0x6 040c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 040d 4801 |H | Short_Literal 0x1 040e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 040f e003 | | Load 0x0,0x3 0410 180e | | Execute Package,Field_Execute,Field_Number 0xe 0411 4801 |H | Short_Literal 0x1 0412 4801 |H | Short_Literal 0x1 0413 e004 | | Load 0x0,0x4 0414 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0415 0334 | 4 | Declare_Variable Array,With_Constraint 0416 e5ff | | Load 0x2,-0x1 0417 e001 | | Load 0x0,0x1 0418 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0419 e004 | | Load 0x0,0x4 041a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 041b e004 | | Load 0x0,0x4 041c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 041d 0119 | | Execute Any,Check_In_Formal_Type 041e 4801 |H | Short_Literal 0x1 041f 00da | | Load_Top At_Offset_2 0420 01d6 | | Execute Vector,Field_Write 0421 6022 |`" | Indirect_Literal Discrete,0x444,{0x00000000, 0x000081bc} 0422 e006 | | Load 0x0,0x6 0423 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0424 4801 |H | Short_Literal 0x1 0425 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0426 e003 | | Load 0x0,0x3 0427 180e | | Execute Package,Field_Execute,Field_Number 0xe 0428 4801 |H | Short_Literal 0x1 0429 4801 |H | Short_Literal 0x1 042a e004 | | Load 0x0,0x4 042b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 042c 0334 | 4 | Declare_Variable Array,With_Constraint 042d e5ff | | Load 0x2,-0x1 042e e001 | | Load 0x0,0x1 042f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0430 e004 | | Load 0x0,0x4 0431 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0432 e004 | | Load 0x0,0x4 0433 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0434 0119 | | Execute Any,Check_In_Formal_Type 0435 4801 |H | Short_Literal 0x1 0436 00da | | Load_Top At_Offset_2 0437 01d6 | | Execute Vector,Field_Write 0438 6007 |` | Indirect_Literal Discrete,0x440,{0x00000000, 0x000081bd} 0439 e006 | | Load 0x0,0x6 043a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 043b 4800 |H | Short_Literal 0x0 043c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043d 0000 0000 | | .XXX[0x3] 043f 0000 | | 0440 0000 0000 | | .LITERAL {0x00000000, 0x000081bd} 0444 0000 0000 | | .LITERAL {0x00000000, 0x000081bc} 0448 0000 0000 | | .LITERAL {0x00000000, 0x000081ba} 044c 0000 0000 | | .LITERAL {0x00000000, 0x000081be} 0450 ; -------------------------------------------------------------------------------------- 0450 ; Debug Table 0450 ; -------------------------------------------------------------------------------------- 0450 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dc3,0x0000,0x0001,0x0000 0456 0000 0000 | | .BLANK 0000[0x1aa]