|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0534f8
└─⟦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 0558 | X | .CONST 0x0558 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0167 | g | .CONST 0x0167 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c e001 | | Load 0x0,0x1 000d 02a0 | | Declare_Subprogram Null_Subprogram 000e 038f | | Declare_Type Package,Defined,Visible 000f e002 | | Load 0x0,0x2 0010 4801 |H | Short_Literal 0x1 0011 00da | | Load_Top At_Offset_2 0012 020e | | Execute Module,Augment_Imports 0013 0386 | | Declare_Variable Package,Visible 0014 4801 |H | Short_Literal 0x1 0015 483f |H? | Short_Literal 0x3f 0016 00e3 | | Load_Encached Natural_Cache 0017 03f9 | | Declare_Type Discrete,Constrained,Visible 0018 e003 | | Load 0x0,0x3 0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001a 00d9 | | Load_Top At_Offset_1 001b e003 | | Load 0x0,0x3 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d e003 | | Load 0x0,0x3 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f e003 | | Load 0x0,0x3 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 e003 | | Load 0x0,0x3 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 00e4 | | Load_Encached Positive_Cache 0024 00e4 | | Load_Encached Positive_Cache 0025 e003 | | Load 0x0,0x3 0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0027 00e1 | | Load_Encached Boolean_Cache 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 480a |H | Short_Literal 0xa 002a 032e | . | Declare_Type Record,Defined,Visible 002b 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 002d 4800 |H | Short_Literal 0x0 002e 4801 |H | Short_Literal 0x1 002f 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 0031 03fe | | Declare_Type Discrete,Defined,Visible 0032 00d8 | | Load_Top At_Offset_0 0033 e003 | | Load 0x0,0x3 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 e003 | | Load 0x0,0x3 0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0037 02a0 | | Declare_Subprogram Null_Subprogram 0038 4803 |H | Short_Literal 0x3 0039 032e | . | Declare_Type Record,Defined,Visible 003a 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 003c 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 003e 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 0040 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 0042 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 0044 00bf | | Action Accept_Activation 0045 00e4 | | Load_Encached Positive_Cache 0046 0266 | f | Execute Discrete,Bounds 0047 e212 | | Load 0x1,0x12 0048 02a0 | | Declare_Subprogram Null_Subprogram 0049 4801 |H | Short_Literal 0x1 004a 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 004b 00d8 | | Load_Top At_Offset_0 004c 02a0 | | Declare_Subprogram Null_Subprogram 004d 4818 |H | Short_Literal 0x18 004e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 004f 4800 |H | Short_Literal 0x0 0050 e004 | | Load 0x0,0x4 0051 02a0 | | Declare_Subprogram Null_Subprogram 0052 038e | | Declare_Type Package,Defined 0053 00b6 | | Action Make_Scope 0054 00da | | Load_Top At_Offset_2 0055 4802 |H | Short_Literal 0x2 0056 00db | | Load_Top At_Offset_3 0057 020e | | Execute Module,Augment_Imports 0058 0387 | | Declare_Variable Package 0059 e003 | | Load 0x0,0x3 005a 00db | | Load_Top At_Offset_3 005b 4802 |H | Short_Literal 0x2 005c 00db | | Load_Top At_Offset_3 005d 020e | | Execute Module,Augment_Imports 005e 00d8 | | Load_Top At_Offset_0 005f 020f | | Execute Module,Activate 0060 4800 |H | Short_Literal 0x0 0061 e005 | | Load 0x0,0x5 0062 02a0 | | Declare_Subprogram Null_Subprogram 0063 038e | | Declare_Type Package,Defined 0064 00b6 | | Action Make_Scope 0065 00da | | Load_Top At_Offset_2 0066 4802 |H | Short_Literal 0x2 0067 00db | | Load_Top At_Offset_3 0068 020e | | Execute Module,Augment_Imports 0069 0387 | | Declare_Variable Package 006a e003 | | Load 0x0,0x3 006b 4801 |H | Short_Literal 0x1 006c 00da | | Load_Top At_Offset_2 006d 020e | | Execute Module,Augment_Imports 006e 00d8 | | Load_Top At_Offset_0 006f 020f | | Execute Module,Activate 0070 4800 |H | Short_Literal 0x0 0071 e006 | | Load 0x0,0x6 0072 02a0 | | Declare_Subprogram Null_Subprogram 0073 038e | | Declare_Type Package,Defined 0074 00b6 | | Action Make_Scope 0075 e219 | | Load 0x1,0x19 0076 4802 |H | Short_Literal 0x2 0077 00db | | Load_Top At_Offset_3 0078 020e | | Execute Module,Augment_Imports 0079 0387 | | Declare_Variable Package 007a e003 | | Load 0x0,0x3 007b e218 | | Load 0x1,0x18 007c 4802 |H | Short_Literal 0x2 007d 00db | | Load_Top At_Offset_3 007e 020e | | Execute Module,Augment_Imports 007f 00d8 | | Load_Top At_Offset_0 0080 020f | | Execute Module,Activate 0081 4800 |H | Short_Literal 0x0 0082 e007 | | Load 0x0,0x7 0083 02a0 | | Declare_Subprogram Null_Subprogram 0084 038e | | Declare_Type Package,Defined 0085 00b6 | | Action Make_Scope 0086 00da | | Load_Top At_Offset_2 0087 4802 |H | Short_Literal 0x2 0088 00db | | Load_Top At_Offset_3 0089 020e | | Execute Module,Augment_Imports 008a 0387 | | Declare_Variable Package 008b e003 | | Load 0x0,0x3 008c 4801 |H | Short_Literal 0x1 008d 00da | | Load_Top At_Offset_2 008e 020e | | Execute Module,Augment_Imports 008f 00d8 | | Load_Top At_Offset_0 0090 020f | | Execute Module,Activate 0091 4800 |H | Short_Literal 0x0 0092 e008 | | Load 0x0,0x8 0093 02a0 | | Declare_Subprogram Null_Subprogram 0094 038e | | Declare_Type Package,Defined 0095 00b6 | | Action Make_Scope 0096 e21a | | Load 0x1,0x1a 0097 4802 |H | Short_Literal 0x2 0098 00db | | Load_Top At_Offset_3 0099 020e | | Execute Module,Augment_Imports 009a 0387 | | Declare_Variable Package 009b e003 | | Load 0x0,0x3 009c 4801 |H | Short_Literal 0x1 009d 00da | | Load_Top At_Offset_2 009e 020e | | Execute Module,Augment_Imports 009f 00d8 | | Load_Top At_Offset_0 00a0 020f | | Execute Module,Activate 00a1 4800 |H | Short_Literal 0x0 00a2 e009 | | Load 0x0,0x9 00a3 02a0 | | Declare_Subprogram Null_Subprogram 00a4 038e | | Declare_Type Package,Defined 00a5 00b6 | | Action Make_Scope 00a6 e21a | | Load 0x1,0x1a 00a7 4802 |H | Short_Literal 0x2 00a8 00db | | Load_Top At_Offset_3 00a9 020e | | Execute Module,Augment_Imports 00aa 0387 | | Declare_Variable Package 00ab e003 | | Load 0x0,0x3 00ac 4801 |H | Short_Literal 0x1 00ad 00da | | Load_Top At_Offset_2 00ae 020e | | Execute Module,Augment_Imports 00af 00d8 | | Load_Top At_Offset_0 00b0 020f | | Execute Module,Activate 00b1 4800 |H | Short_Literal 0x0 00b2 e00a | | Load 0x0,0xa 00b3 02a0 | | Declare_Subprogram Null_Subprogram 00b4 038e | | Declare_Type Package,Defined 00b5 00b6 | | Action Make_Scope 00b6 e21c | | Load 0x1,0x1c 00b7 4802 |H | Short_Literal 0x2 00b8 00db | | Load_Top At_Offset_3 00b9 020e | | Execute Module,Augment_Imports 00ba 0387 | | Declare_Variable Package 00bb e003 | | Load 0x0,0x3 00bc 4801 |H | Short_Literal 0x1 00bd 00da | | Load_Top At_Offset_2 00be 020e | | Execute Module,Augment_Imports 00bf 00d8 | | Load_Top At_Offset_0 00c0 020f | | Execute Module,Activate 00c1 4800 |H | Short_Literal 0x0 00c2 e00b | | Load 0x0,0xb 00c3 02a0 | | Declare_Subprogram Null_Subprogram 00c4 038e | | Declare_Type Package,Defined 00c5 00b6 | | Action Make_Scope 00c6 e21c | | Load 0x1,0x1c 00c7 4802 |H | Short_Literal 0x2 00c8 00db | | Load_Top At_Offset_3 00c9 020e | | Execute Module,Augment_Imports 00ca 0387 | | Declare_Variable Package 00cb e003 | | Load 0x0,0x3 00cc 4801 |H | Short_Literal 0x1 00cd 00da | | Load_Top At_Offset_2 00ce 020e | | Execute Module,Augment_Imports 00cf 00d8 | | Load_Top At_Offset_0 00d0 020f | | Execute Module,Activate 00d1 4800 |H | Short_Literal 0x0 00d2 e00c | | Load 0x0,0xc 00d3 02a0 | | Declare_Subprogram Null_Subprogram 00d4 038e | | Declare_Type Package,Defined 00d5 00b6 | | Action Make_Scope 00d6 e219 | | Load 0x1,0x19 00d7 4802 |H | Short_Literal 0x2 00d8 00db | | Load_Top At_Offset_3 00d9 020e | | Execute Module,Augment_Imports 00da 0387 | | Declare_Variable Package 00db e003 | | Load 0x0,0x3 00dc e218 | | Load 0x1,0x18 00dd 4802 |H | Short_Literal 0x2 00de 00db | | Load_Top At_Offset_3 00df 020e | | Execute Module,Augment_Imports 00e0 00d8 | | Load_Top At_Offset_0 00e1 020f | | Execute Module,Activate 00e2 4800 |H | Short_Literal 0x0 00e3 e00d | | Load 0x0,0xd 00e4 02a0 | | Declare_Subprogram Null_Subprogram 00e5 038e | | Declare_Type Package,Defined 00e6 00b6 | | Action Make_Scope 00e7 e219 | | Load 0x1,0x19 00e8 4802 |H | Short_Literal 0x2 00e9 00db | | Load_Top At_Offset_3 00ea 020e | | Execute Module,Augment_Imports 00eb 0387 | | Declare_Variable Package 00ec e003 | | Load 0x0,0x3 00ed e218 | | Load 0x1,0x18 00ee 4802 |H | Short_Literal 0x2 00ef 00db | | Load_Top At_Offset_3 00f0 020e | | Execute Module,Augment_Imports 00f1 00d8 | | Load_Top At_Offset_0 00f2 020f | | Execute Module,Activate 00f3 4800 |H | Short_Literal 0x0 00f4 0093 051b | | push_full_address INIT_0518 00f6 02a0 | | Declare_Subprogram Null_Subprogram 00f7 038e | | Declare_Type Package,Defined 00f8 00b6 | | Action Make_Scope 00f9 00da | | Load_Top At_Offset_2 00fa 4802 |H | Short_Literal 0x2 00fb 00db | | Load_Top At_Offset_3 00fc 020e | | Execute Module,Augment_Imports 00fd 0387 | | Declare_Variable Package 00fe e003 | | Load 0x0,0x3 00ff 4801 |H | Short_Literal 0x1 0100 00da | | Load_Top At_Offset_2 0101 020e | | Execute Module,Augment_Imports 0102 00d8 | | Load_Top At_Offset_0 0103 020f | | Execute Module,Activate 0104 4800 |H | Short_Literal 0x0 0105 e00e | | Load 0x0,0xe 0106 02a0 | | Declare_Subprogram Null_Subprogram 0107 038e | | Declare_Type Package,Defined 0108 00b6 | | Action Make_Scope 0109 e219 | | Load 0x1,0x19 010a 4802 |H | Short_Literal 0x2 010b 00db | | Load_Top At_Offset_3 010c 020e | | Execute Module,Augment_Imports 010d 0387 | | Declare_Variable Package 010e e003 | | Load 0x0,0x3 010f e218 | | Load 0x1,0x18 0110 4802 |H | Short_Literal 0x2 0111 00db | | Load_Top At_Offset_3 0112 020e | | Execute Module,Augment_Imports 0113 00d8 | | Load_Top At_Offset_0 0114 020f | | Execute Module,Activate 0115 4800 |H | Short_Literal 0x0 0116 e00f | | Load 0x0,0xf 0117 02a0 | | Declare_Subprogram Null_Subprogram 0118 038e | | Declare_Type Package,Defined 0119 00b6 | | Action Make_Scope 011a e219 | | Load 0x1,0x19 011b 4802 |H | Short_Literal 0x2 011c 00db | | Load_Top At_Offset_3 011d 020e | | Execute Module,Augment_Imports 011e 0387 | | Declare_Variable Package 011f e003 | | Load 0x0,0x3 0120 e218 | | Load 0x1,0x18 0121 4802 |H | Short_Literal 0x2 0122 00db | | Load_Top At_Offset_3 0123 020e | | Execute Module,Augment_Imports 0124 00d8 | | Load_Top At_Offset_0 0125 020f | | Execute Module,Activate 0126 4800 |H | Short_Literal 0x0 0127 e010 | | Load 0x0,0x10 0128 02a0 | | Declare_Subprogram Null_Subprogram 0129 038e | | Declare_Type Package,Defined 012a 00b6 | | Action Make_Scope 012b e219 | | Load 0x1,0x19 012c 4802 |H | Short_Literal 0x2 012d 00db | | Load_Top At_Offset_3 012e 020e | | Execute Module,Augment_Imports 012f 0387 | | Declare_Variable Package 0130 e003 | | Load 0x0,0x3 0131 e218 | | Load 0x1,0x18 0132 4802 |H | Short_Literal 0x2 0133 00db | | Load_Top At_Offset_3 0134 020e | | Execute Module,Augment_Imports 0135 00d8 | | Load_Top At_Offset_0 0136 020f | | Execute Module,Activate 0137 4800 |H | Short_Literal 0x0 0138 e011 | | Load 0x0,0x11 0139 02a0 | | Declare_Subprogram Null_Subprogram 013a 038e | | Declare_Type Package,Defined 013b 00b6 | | Action Make_Scope 013c 4801 |H | Short_Literal 0x1 013d 00da | | Load_Top At_Offset_2 013e 020e | | Execute Module,Augment_Imports 013f 0387 | | Declare_Variable Package 0140 e003 | | Load 0x0,0x3 0141 e21a | | Load 0x1,0x1a 0142 e21b | | Load 0x1,0x1b 0143 e21c | | Load 0x1,0x1c 0144 e21d | | Load 0x1,0x1d 0145 e222 | " | Load 0x1,0x22 0146 e223 | # | Load 0x1,0x23 0147 e224 | $ | Load 0x1,0x24 0148 e225 | % | Load 0x1,0x25 0149 e226 | & | Load 0x1,0x26 014a 480a |H | Short_Literal 0xa 014b e228 | ( | Load 0x1,0x28 014c 020e | | Execute Module,Augment_Imports 014d 00d8 | | Load_Top At_Offset_0 014e 020f | | Execute Module,Activate 014f 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call 0151 e003 | | Load 0x0,0x3 0152 e012 | | Load 0x0,0x12 0153 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0154 e013 | | Load 0x0,0x13 0155 e014 | | Load 0x0,0x14 0156 4805 |H | Short_Literal 0x5 0157 e20d | | Load 0x1,0xd 0158 020e | | Execute Module,Augment_Imports 0159 e20d | | Load 0x1,0xd 015a 020f | | Execute Module,Activate 015b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 015c 00c7 | | Action Elaborate_Subprogram 015d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 015e 00c7 | | Action Elaborate_Subprogram 015f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0160 00c7 | | Action Elaborate_Subprogram 0161 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0162 00c7 | | Action Elaborate_Subprogram 0163 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0164 00c7 | | Action Elaborate_Subprogram 0165 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0166 00c7 | | Action Elaborate_Subprogram 0167 BODY_0008: 0167 00bc | | Action Signal_Activated 0168 00bb | | Action Signal_Completion 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 4616 |F | Jump_Case 0x17 0175 782f |x/ | Jump 0x1a5 ; case 0x0 0176 7833 |x3 | Jump 0x1aa ; case 0x1 0177 7837 |x7 | Jump 0x1af ; case 0x2 0178 783b |x; | Jump 0x1b4 ; case 0x3 0179 7817 |x | Jump 0x191 ; case 0x4 017a 781b |x | Jump 0x196 ; case 0x5 017b 781f |x | Jump 0x19b ; case 0x6 017c 7823 |x# | Jump 0x1a0 ; case 0x7 017d 783b |x; | Jump 0x1b9 ; case 0x8 017e 783f |x? | Jump 0x1be ; case 0x9 017f 7843 |xC | Jump 0x1c3 ; case 0xa 0180 7847 |xG | Jump 0x1c8 ; case 0xb 0181 784b |xK | Jump 0x1cd ; case 0xc 0182 784f |xO | Jump 0x1d2 ; case 0xd 0183 785d |x] | Jump 0x1e1 ; case 0xe 0184 7861 |xa | Jump 0x1e6 ; case 0xf 0185 7851 |xQ | Jump 0x1d7 ; case 0x10 0186 7855 |xU | Jump 0x1dc ; case 0x11 0187 7863 |xc | Jump 0x1eb ; case 0x12 0188 7867 |xg | Jump 0x1f0 ; case 0x13 0189 786b |xk | Jump 0x1f5 ; case 0x14 018a 786f |xo | Jump 0x1fa ; case 0x15 018b 7800 |x | Jump 0x18c ; case 0x16 018c e228 | ( | Load 0x1,0x28 018d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 018e 0320 | | Declare_Variable Record,Duplicate 018f 00cd | | Action Spare6_Action 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 e21a | | Load 0x1,0x1a 0192 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0193 0320 | | Declare_Variable Record,Duplicate 0194 00cd | | Action Spare6_Action 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 e21b | | Load 0x1,0x1b 0197 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0198 0320 | | Declare_Variable Record,Duplicate 0199 00cd | | Action Spare6_Action 019a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019b e21e | | Load 0x1,0x1e 019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019d 0320 | | Declare_Variable Record,Duplicate 019e 00cd | | Action Spare6_Action 019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a0 e21f | | Load 0x1,0x1f 01a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a2 0320 | | Declare_Variable Record,Duplicate 01a3 00cd | | Action Spare6_Action 01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a5 e21c | | Load 0x1,0x1c 01a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a7 0320 | | Declare_Variable Record,Duplicate 01a8 00cd | | Action Spare6_Action 01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01aa e21d | | Load 0x1,0x1d 01ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ac 0320 | | Declare_Variable Record,Duplicate 01ad 00cd | | Action Spare6_Action 01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01af e220 | | Load 0x1,0x20 01b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b1 0320 | | Declare_Variable Record,Duplicate 01b2 00cd | | Action Spare6_Action 01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b4 e221 | ! | Load 0x1,0x21 01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b6 0320 | | Declare_Variable Record,Duplicate 01b7 00cd | | Action Spare6_Action 01b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b9 e222 | " | Load 0x1,0x22 01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bb 0320 | | Declare_Variable Record,Duplicate 01bc 00cd | | Action Spare6_Action 01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01be e223 | # | Load 0x1,0x23 01bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c0 0320 | | Declare_Variable Record,Duplicate 01c1 00cd | | Action Spare6_Action 01c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c3 e224 | $ | Load 0x1,0x24 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 0320 | | Declare_Variable Record,Duplicate 01c6 00cd | | Action Spare6_Action 01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c8 e225 | % | Load 0x1,0x25 01c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ca 0320 | | Declare_Variable Record,Duplicate 01cb 00cd | | Action Spare6_Action 01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cd e226 | & | Load 0x1,0x26 01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cf 0320 | | Declare_Variable Record,Duplicate 01d0 00cd | | Action Spare6_Action 01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d2 e227 | ' | Load 0x1,0x27 01d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d4 0320 | | Declare_Variable Record,Duplicate 01d5 00cd | | Action Spare6_Action 01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d7 e228 | ( | Load 0x1,0x28 01d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d9 0320 | | Declare_Variable Record,Duplicate 01da 00cd | | Action Spare6_Action 01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dc e228 | ( | Load 0x1,0x28 01dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01de 0320 | | Declare_Variable Record,Duplicate 01df 00cd | | Action Spare6_Action 01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e1 e228 | ( | Load 0x1,0x28 01e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e3 0320 | | Declare_Variable Record,Duplicate 01e4 00cd | | Action Spare6_Action 01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e6 e228 | ( | Load 0x1,0x28 01e7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01e8 0320 | | Declare_Variable Record,Duplicate 01e9 00cd | | Action Spare6_Action 01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01eb e228 | ( | Load 0x1,0x28 01ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ed 0320 | | Declare_Variable Record,Duplicate 01ee 00cd | | Action Spare6_Action 01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f0 e228 | ( | Load 0x1,0x28 01f1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01f2 0320 | | Declare_Variable Record,Duplicate 01f3 00cd | | Action Spare6_Action 01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f5 e228 | ( | Load 0x1,0x28 01f6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01f7 0320 | | Declare_Variable Record,Duplicate 01f8 00cd | | Action Spare6_Action 01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fa e228 | ( | Load 0x1,0x28 01fb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01fc 0320 | | Declare_Variable Record,Duplicate 01fd 00cd | | Action Spare6_Action 01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 4607 |F | Jump_Case 0x8 0204 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0205 7806 |x | Jump 0x20c ; case 0x1 0206 7809 |x | Jump 0x210 ; case 0x2 0207 780d |x | Jump 0x215 ; case 0x3 0208 7810 |x | Jump 0x219 ; case 0x4 0209 7811 |x | Jump 0x21b ; case 0x5 020a 7812 |x | Jump 0x21d ; case 0x6 020b 7815 |x | Jump 0x221 ; case 0x7 020c 00da | | Load_Top At_Offset_2 020d 0091 0538 | 8| Action Push_String_Extended_Indexed,0x538 ; "TEXT" 020f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0210 00db | | Load_Top At_Offset_3 0211 00db | | Load_Top At_Offset_3 0212 00e0 | | Load_Encached Standard_Cache 0213 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0214 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0215 00da | | Load_Top At_Offset_2 0216 00e0 | | Load_Encached Standard_Cache 0217 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0218 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0219 00db | | Load_Top At_Offset_3 021a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021b 00db | | Load_Top At_Offset_3 021c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021d e211 | | Load 0x1,0x11 021e 00dc | | Load_Top At_Offset_4 021f 0267 | g | Execute Discrete,Predecessor 0220 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0221 e211 | | Load 0x1,0x11 0222 00dc | | Load_Top At_Offset_4 0223 0268 | h | Execute Discrete,Successor 0224 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 4616 |F | Jump_Case 0x17 022d 782f |x/ | Jump 0x25d ; case 0x0 022e 7833 |x3 | Jump 0x262 ; case 0x1 022f 7837 |x7 | Jump 0x267 ; case 0x2 0230 783b |x; | Jump 0x26c ; case 0x3 0231 7817 |x | Jump 0x249 ; case 0x4 0232 781b |x | Jump 0x24e ; case 0x5 0233 781f |x | Jump 0x253 ; case 0x6 0234 7823 |x# | Jump 0x258 ; case 0x7 0235 783b |x; | Jump 0x271 ; case 0x8 0236 783f |x? | Jump 0x276 ; case 0x9 0237 7843 |xC | Jump 0x27b ; case 0xa 0238 7847 |xG | Jump 0x280 ; case 0xb 0239 780a |x | Jump 0x244 ; case 0xc 023a 784a |xJ | Jump 0x285 ; case 0xd 023b 7821 |x! | Jump 0x25d ; case 0xe 023c 7825 |x% | Jump 0x262 ; case 0xf 023d 780b |x | Jump 0x249 ; case 0x10 023e 780f |x | Jump 0x24e ; case 0x11 023f 7831 |x1 | Jump 0x271 ; case 0x12 0240 7835 |x5 | Jump 0x276 ; case 0x13 0241 7839 |x9 | Jump 0x27b ; case 0x14 0242 783d |x= | Jump 0x280 ; case 0x15 0243 7800 |x | Jump 0x244 ; case 0x16 0244 e226 | & | Load 0x1,0x26 0245 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0246 0320 | | Declare_Variable Record,Duplicate 0247 00cd | | Action Spare6_Action 0248 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0249 e21a | | Load 0x1,0x1a 024a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024b 0320 | | Declare_Variable Record,Duplicate 024c 00cd | | Action Spare6_Action 024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024e e21b | | Load 0x1,0x1b 024f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0250 0320 | | Declare_Variable Record,Duplicate 0251 00cd | | Action Spare6_Action 0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0253 e21e | | Load 0x1,0x1e 0254 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0255 0320 | | Declare_Variable Record,Duplicate 0256 00cd | | Action Spare6_Action 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 e21f | | Load 0x1,0x1f 0259 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025a 0320 | | Declare_Variable Record,Duplicate 025b 00cd | | Action Spare6_Action 025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025d e21c | | Load 0x1,0x1c 025e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025f 0320 | | Declare_Variable Record,Duplicate 0260 00cd | | Action Spare6_Action 0261 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0262 e21d | | Load 0x1,0x1d 0263 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0264 0320 | | Declare_Variable Record,Duplicate 0265 00cd | | Action Spare6_Action 0266 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0267 e220 | | Load 0x1,0x20 0268 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0269 0320 | | Declare_Variable Record,Duplicate 026a 00cd | | Action Spare6_Action 026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026c e221 | ! | Load 0x1,0x21 026d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026e 0320 | | Declare_Variable Record,Duplicate 026f 00cd | | Action Spare6_Action 0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0271 e222 | " | Load 0x1,0x22 0272 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0273 0320 | | Declare_Variable Record,Duplicate 0274 00cd | | Action Spare6_Action 0275 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0276 e223 | # | Load 0x1,0x23 0277 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0278 0320 | | Declare_Variable Record,Duplicate 0279 00cd | | Action Spare6_Action 027a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027b e224 | $ | Load 0x1,0x24 027c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 027d 0320 | | Declare_Variable Record,Duplicate 027e 00cd | | Action Spare6_Action 027f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0280 e225 | % | Load 0x1,0x25 0281 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0282 0320 | | Declare_Variable Record,Duplicate 0283 00cd | | Action Spare6_Action 0284 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0285 e227 | ' | Load 0x1,0x27 0286 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0287 0320 | | Declare_Variable Record,Duplicate 0288 00cd | | Action Spare6_Action 0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028a 0000 0000 | | .BLANK 0000[0x6] 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 4616 |F | Jump_Case 0x17 0295 7848 |xH | Jump 0x2de ; case 0x0 0296 7851 |xQ | Jump 0x2e8 ; case 0x1 0297 785a |xZ | Jump 0x2f2 ; case 0x2 0298 7863 |xc | Jump 0x2fc ; case 0x3 0299 781c |x | Jump 0x2b6 ; case 0x4 029a 7825 |x% | Jump 0x2c0 ; case 0x5 029b 782e |x. | Jump 0x2ca ; case 0x6 029c 7837 |x7 | Jump 0x2d4 ; case 0x7 029d 7868 |xh | Jump 0x306 ; case 0x8 029e 7871 |xq | Jump 0x310 ; case 0x9 029f 787a |xz | Jump 0x31a ; case 0xa 02a0 7883 |x | Jump 0x324 ; case 0xb 02a1 780a |x | Jump 0x2ac ; case 0xc 02a2 788b |x | Jump 0x32e ; case 0xd 02a3 783a |x: | Jump 0x2de ; case 0xe 02a4 7843 |xC | Jump 0x2e8 ; case 0xf 02a5 7810 |x | Jump 0x2b6 ; case 0x10 02a6 7819 |x | Jump 0x2c0 ; case 0x11 02a7 785e |x^ | Jump 0x306 ; case 0x12 02a8 7867 |xg | Jump 0x310 ; case 0x13 02a9 7870 |xp | Jump 0x31a ; case 0x14 02aa 7879 |xy | Jump 0x324 ; case 0x15 02ab 7800 |x | Jump 0x2ac ; case 0x16 02ac e226 | & | Load 0x1,0x26 02ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ae 0227 | ' | Execute Access,All_Reference 02af 01db | | Execute Vector,Length 02b0 00d8 | | Load_Top At_Offset_0 02b1 00e3 | | Load_Encached Natural_Cache 02b2 0260 | ` | Execute Discrete,In_Type 02b3 7001 |p | Jump_Nonzero 0x2b5 02b4 0801 | | Execute_Immediate Raise,0x1 02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b6 e21a | | Load 0x1,0x1a 02b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b8 0227 | ' | Execute Access,All_Reference 02b9 01db | | Execute Vector,Length 02ba 00d8 | | Load_Top At_Offset_0 02bb 00e3 | | Load_Encached Natural_Cache 02bc 0260 | ` | Execute Discrete,In_Type 02bd 7001 |p | Jump_Nonzero 0x2bf 02be 0801 | | Execute_Immediate Raise,0x1 02bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c0 e21b | | Load 0x1,0x1b 02c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c2 0227 | ' | Execute Access,All_Reference 02c3 01db | | Execute Vector,Length 02c4 00d8 | | Load_Top At_Offset_0 02c5 00e3 | | Load_Encached Natural_Cache 02c6 0260 | ` | Execute Discrete,In_Type 02c7 7001 |p | Jump_Nonzero 0x2c9 02c8 0801 | | Execute_Immediate Raise,0x1 02c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ca e21e | | Load 0x1,0x1e 02cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02cc 0227 | ' | Execute Access,All_Reference 02cd 01db | | Execute Vector,Length 02ce 00d8 | | Load_Top At_Offset_0 02cf 00e3 | | Load_Encached Natural_Cache 02d0 0260 | ` | Execute Discrete,In_Type 02d1 7001 |p | Jump_Nonzero 0x2d3 02d2 0801 | | Execute_Immediate Raise,0x1 02d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d4 e21f | | Load 0x1,0x1f 02d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02d6 0227 | ' | Execute Access,All_Reference 02d7 01db | | Execute Vector,Length 02d8 00d8 | | Load_Top At_Offset_0 02d9 00e3 | | Load_Encached Natural_Cache 02da 0260 | ` | Execute Discrete,In_Type 02db 7001 |p | Jump_Nonzero 0x2dd 02dc 0801 | | Execute_Immediate Raise,0x1 02dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02de e21c | | Load 0x1,0x1c 02df 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02e0 0227 | ' | Execute Access,All_Reference 02e1 01db | | Execute Vector,Length 02e2 00d8 | | Load_Top At_Offset_0 02e3 00e3 | | Load_Encached Natural_Cache 02e4 0260 | ` | Execute Discrete,In_Type 02e5 7001 |p | Jump_Nonzero 0x2e7 02e6 0801 | | Execute_Immediate Raise,0x1 02e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e8 e21d | | Load 0x1,0x1d 02e9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ea 0227 | ' | Execute Access,All_Reference 02eb 01db | | Execute Vector,Length 02ec 00d8 | | Load_Top At_Offset_0 02ed 00e3 | | Load_Encached Natural_Cache 02ee 0260 | ` | Execute Discrete,In_Type 02ef 7001 |p | Jump_Nonzero 0x2f1 02f0 0801 | | Execute_Immediate Raise,0x1 02f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f2 e220 | | Load 0x1,0x20 02f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02f4 0227 | ' | Execute Access,All_Reference 02f5 01db | | Execute Vector,Length 02f6 00d8 | | Load_Top At_Offset_0 02f7 00e3 | | Load_Encached Natural_Cache 02f8 0260 | ` | Execute Discrete,In_Type 02f9 7001 |p | Jump_Nonzero 0x2fb 02fa 0801 | | Execute_Immediate Raise,0x1 02fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fc e221 | ! | Load 0x1,0x21 02fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02fe 0227 | ' | Execute Access,All_Reference 02ff 01db | | Execute Vector,Length 0300 00d8 | | Load_Top At_Offset_0 0301 00e3 | | Load_Encached Natural_Cache 0302 0260 | ` | Execute Discrete,In_Type 0303 7001 |p | Jump_Nonzero 0x305 0304 0801 | | Execute_Immediate Raise,0x1 0305 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0306 e222 | " | Load 0x1,0x22 0307 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0308 0227 | ' | Execute Access,All_Reference 0309 01db | | Execute Vector,Length 030a 00d8 | | Load_Top At_Offset_0 030b 00e3 | | Load_Encached Natural_Cache 030c 0260 | ` | Execute Discrete,In_Type 030d 7001 |p | Jump_Nonzero 0x30f 030e 0801 | | Execute_Immediate Raise,0x1 030f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0310 e223 | # | Load 0x1,0x23 0311 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0312 0227 | ' | Execute Access,All_Reference 0313 01db | | Execute Vector,Length 0314 00d8 | | Load_Top At_Offset_0 0315 00e3 | | Load_Encached Natural_Cache 0316 0260 | ` | Execute Discrete,In_Type 0317 7001 |p | Jump_Nonzero 0x319 0318 0801 | | Execute_Immediate Raise,0x1 0319 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031a e224 | $ | Load 0x1,0x24 031b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 031c 0227 | ' | Execute Access,All_Reference 031d 01db | | Execute Vector,Length 031e 00d8 | | Load_Top At_Offset_0 031f 00e3 | | Load_Encached Natural_Cache 0320 0260 | ` | Execute Discrete,In_Type 0321 7001 |p | Jump_Nonzero 0x323 0322 0801 | | Execute_Immediate Raise,0x1 0323 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0324 e225 | % | Load 0x1,0x25 0325 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0326 0227 | ' | Execute Access,All_Reference 0327 01db | | Execute Vector,Length 0328 00d8 | | Load_Top At_Offset_0 0329 00e3 | | Load_Encached Natural_Cache 032a 0260 | ` | Execute Discrete,In_Type 032b 7001 |p | Jump_Nonzero 0x32d 032c 0801 | | Execute_Immediate Raise,0x1 032d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032e e227 | ' | Load 0x1,0x27 032f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0330 0227 | ' | Execute Access,All_Reference 0331 01db | | Execute Vector,Length 0332 00d8 | | Load_Top At_Offset_0 0333 00e3 | | Load_Encached Natural_Cache 0334 0260 | ` | Execute Discrete,In_Type 0335 7001 |p | Jump_Nonzero 0x337 0336 0801 | | Execute_Immediate Raise,0x1 0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c 4616 |F | Jump_Case 0x17 033d 783e |x> | Jump 0x37c ; case 0x0 033e 7845 |xE | Jump 0x384 ; case 0x1 033f 784c |xL | Jump 0x38c ; case 0x2 0340 7853 |xS | Jump 0x394 ; case 0x3 0341 781a |x | Jump 0x35c ; case 0x4 0342 7821 |x! | Jump 0x364 ; case 0x5 0343 7828 |x( | Jump 0x36c ; case 0x6 0344 782f |x/ | Jump 0x374 ; case 0x7 0345 7856 |xV | Jump 0x39c ; case 0x8 0346 785d |x] | Jump 0x3a4 ; case 0x9 0347 7864 |xd | Jump 0x3ac ; case 0xa 0348 786b |xk | Jump 0x3b4 ; case 0xb 0349 780a |x | Jump 0x354 ; case 0xc 034a 7871 |xq | Jump 0x3bc ; case 0xd 034b 7830 |x0 | Jump 0x37c ; case 0xe 034c 7837 |x7 | Jump 0x384 ; case 0xf 034d 780e |x | Jump 0x35c ; case 0x10 034e 7815 |x | Jump 0x364 ; case 0x11 034f 784c |xL | Jump 0x39c ; case 0x12 0350 7853 |xS | Jump 0x3a4 ; case 0x13 0351 785a |xZ | Jump 0x3ac ; case 0x14 0352 7861 |xa | Jump 0x3b4 ; case 0x15 0353 7800 |x | Jump 0x354 ; case 0x16 0354 00db | | Load_Top At_Offset_3 0355 e226 | & | Load 0x1,0x26 0356 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0357 0227 | ' | Execute Access,All_Reference 0358 01d5 | | Execute Vector,Field_Reference 0359 0320 | | Declare_Variable Record,Duplicate 035a 00cd | | Action Spare6_Action 035b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 035c 00db | | Load_Top At_Offset_3 035d e21a | | Load 0x1,0x1a 035e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 035f 0227 | ' | Execute Access,All_Reference 0360 01d5 | | Execute Vector,Field_Reference 0361 0320 | | Declare_Variable Record,Duplicate 0362 00cd | | Action Spare6_Action 0363 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0364 00db | | Load_Top At_Offset_3 0365 e21b | | Load 0x1,0x1b 0366 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0367 0227 | ' | Execute Access,All_Reference 0368 01d5 | | Execute Vector,Field_Reference 0369 0320 | | Declare_Variable Record,Duplicate 036a 00cd | | Action Spare6_Action 036b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 036c 00db | | Load_Top At_Offset_3 036d e21e | | Load 0x1,0x1e 036e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036f 0227 | ' | Execute Access,All_Reference 0370 01d5 | | Execute Vector,Field_Reference 0371 0320 | | Declare_Variable Record,Duplicate 0372 00cd | | Action Spare6_Action 0373 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0374 00db | | Load_Top At_Offset_3 0375 e21f | | Load 0x1,0x1f 0376 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0377 0227 | ' | Execute Access,All_Reference 0378 01d5 | | Execute Vector,Field_Reference 0379 0320 | | Declare_Variable Record,Duplicate 037a 00cd | | Action Spare6_Action 037b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 037c 00db | | Load_Top At_Offset_3 037d e21c | | Load 0x1,0x1c 037e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 037f 0227 | ' | Execute Access,All_Reference 0380 01d5 | | Execute Vector,Field_Reference 0381 0320 | | Declare_Variable Record,Duplicate 0382 00cd | | Action Spare6_Action 0383 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0384 00db | | Load_Top At_Offset_3 0385 e21d | | Load 0x1,0x1d 0386 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0387 0227 | ' | Execute Access,All_Reference 0388 01d5 | | Execute Vector,Field_Reference 0389 0320 | | Declare_Variable Record,Duplicate 038a 00cd | | Action Spare6_Action 038b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 038c 00db | | Load_Top At_Offset_3 038d e220 | | Load 0x1,0x20 038e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 038f 0227 | ' | Execute Access,All_Reference 0390 01d5 | | Execute Vector,Field_Reference 0391 0320 | | Declare_Variable Record,Duplicate 0392 00cd | | Action Spare6_Action 0393 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0394 00db | | Load_Top At_Offset_3 0395 e221 | ! | Load 0x1,0x21 0396 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0397 0227 | ' | Execute Access,All_Reference 0398 01d5 | | Execute Vector,Field_Reference 0399 0320 | | Declare_Variable Record,Duplicate 039a 00cd | | Action Spare6_Action 039b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 039c 00db | | Load_Top At_Offset_3 039d e222 | " | Load 0x1,0x22 039e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 039f 0227 | ' | Execute Access,All_Reference 03a0 01d5 | | Execute Vector,Field_Reference 03a1 0320 | | Declare_Variable Record,Duplicate 03a2 00cd | | Action Spare6_Action 03a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a4 00db | | Load_Top At_Offset_3 03a5 e223 | # | Load 0x1,0x23 03a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03a7 0227 | ' | Execute Access,All_Reference 03a8 01d5 | | Execute Vector,Field_Reference 03a9 0320 | | Declare_Variable Record,Duplicate 03aa 00cd | | Action Spare6_Action 03ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ac 00db | | Load_Top At_Offset_3 03ad e224 | $ | Load 0x1,0x24 03ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03af 0227 | ' | Execute Access,All_Reference 03b0 01d5 | | Execute Vector,Field_Reference 03b1 0320 | | Declare_Variable Record,Duplicate 03b2 00cd | | Action Spare6_Action 03b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b4 00db | | Load_Top At_Offset_3 03b5 e225 | % | Load 0x1,0x25 03b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b7 0227 | ' | Execute Access,All_Reference 03b8 01d5 | | Execute Vector,Field_Reference 03b9 0320 | | Declare_Variable Record,Duplicate 03ba 00cd | | Action Spare6_Action 03bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03bc 00db | | Load_Top At_Offset_3 03bd e227 | ' | Load 0x1,0x27 03be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03bf 0227 | ' | Execute Access,All_Reference 03c0 01d5 | | Execute Vector,Field_Reference 03c1 0320 | | Declare_Variable Record,Duplicate 03c2 00cd | | Action Spare6_Action 03c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c4 0000 0000 | | .BLANK 0000[0x4] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 00da | | Load_Top At_Offset_2 03cc 4616 |F | Jump_Case 0x17 03cd 7848 |xH | Jump 0x416 ; case 0x0 03ce 7851 |xQ | Jump 0x420 ; case 0x1 03cf 785a |xZ | Jump 0x42a ; case 0x2 03d0 7863 |xc | Jump 0x434 ; case 0x3 03d1 781c |x | Jump 0x3ee ; case 0x4 03d2 7825 |x% | Jump 0x3f8 ; case 0x5 03d3 782e |x. | Jump 0x402 ; case 0x6 03d4 7837 |x7 | Jump 0x40c ; case 0x7 03d5 7868 |xh | Jump 0x43e ; case 0x8 03d6 7871 |xq | Jump 0x448 ; case 0x9 03d7 787a |xz | Jump 0x452 ; case 0xa 03d8 7883 |x | Jump 0x45c ; case 0xb 03d9 780a |x | Jump 0x3e4 ; case 0xc 03da 788b |x | Jump 0x466 ; case 0xd 03db 783a |x: | Jump 0x416 ; case 0xe 03dc 7843 |xC | Jump 0x420 ; case 0xf 03dd 7810 |x | Jump 0x3ee ; case 0x10 03de 7819 |x | Jump 0x3f8 ; case 0x11 03df 785e |x^ | Jump 0x43e ; case 0x12 03e0 7867 |xg | Jump 0x448 ; case 0x13 03e1 7870 |xp | Jump 0x452 ; case 0x14 03e2 7879 |xy | Jump 0x45c ; case 0x15 03e3 7800 |x | Jump 0x3e4 ; case 0x16 03e4 e226 | & | Load 0x1,0x26 03e5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03e6 0227 | ' | Execute Access,All_Reference 03e7 01db | | Execute Vector,Length 03e8 00d8 | | Load_Top At_Offset_0 03e9 00e3 | | Load_Encached Natural_Cache 03ea 0260 | ` | Execute Discrete,In_Type 03eb 7001 |p | Jump_Nonzero 0x3ed 03ec 0801 | | Execute_Immediate Raise,0x1 03ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ee e21a | | Load 0x1,0x1a 03ef 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03f0 0227 | ' | Execute Access,All_Reference 03f1 01db | | Execute Vector,Length 03f2 00d8 | | Load_Top At_Offset_0 03f3 00e3 | | Load_Encached Natural_Cache 03f4 0260 | ` | Execute Discrete,In_Type 03f5 7001 |p | Jump_Nonzero 0x3f7 03f6 0801 | | Execute_Immediate Raise,0x1 03f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f8 e21b | | Load 0x1,0x1b 03f9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03fa 0227 | ' | Execute Access,All_Reference 03fb 01db | | Execute Vector,Length 03fc 00d8 | | Load_Top At_Offset_0 03fd 00e3 | | Load_Encached Natural_Cache 03fe 0260 | ` | Execute Discrete,In_Type 03ff 7001 |p | Jump_Nonzero 0x401 0400 0801 | | Execute_Immediate Raise,0x1 0401 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0402 e21e | | Load 0x1,0x1e 0403 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0404 0227 | ' | Execute Access,All_Reference 0405 01db | | Execute Vector,Length 0406 00d8 | | Load_Top At_Offset_0 0407 00e3 | | Load_Encached Natural_Cache 0408 0260 | ` | Execute Discrete,In_Type 0409 7001 |p | Jump_Nonzero 0x40b 040a 0801 | | Execute_Immediate Raise,0x1 040b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 040c e21f | | Load 0x1,0x1f 040d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 040e 0227 | ' | Execute Access,All_Reference 040f 01db | | Execute Vector,Length 0410 00d8 | | Load_Top At_Offset_0 0411 00e3 | | Load_Encached Natural_Cache 0412 0260 | ` | Execute Discrete,In_Type 0413 7001 |p | Jump_Nonzero 0x415 0414 0801 | | Execute_Immediate Raise,0x1 0415 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0416 e21c | | Load 0x1,0x1c 0417 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0418 0227 | ' | Execute Access,All_Reference 0419 01db | | Execute Vector,Length 041a 00d8 | | Load_Top At_Offset_0 041b 00e3 | | Load_Encached Natural_Cache 041c 0260 | ` | Execute Discrete,In_Type 041d 7001 |p | Jump_Nonzero 0x41f 041e 0801 | | Execute_Immediate Raise,0x1 041f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0420 e21d | | Load 0x1,0x1d 0421 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0422 0227 | ' | Execute Access,All_Reference 0423 01db | | Execute Vector,Length 0424 00d8 | | Load_Top At_Offset_0 0425 00e3 | | Load_Encached Natural_Cache 0426 0260 | ` | Execute Discrete,In_Type 0427 7001 |p | Jump_Nonzero 0x429 0428 0801 | | Execute_Immediate Raise,0x1 0429 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 042a e220 | | Load 0x1,0x20 042b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 042c 0227 | ' | Execute Access,All_Reference 042d 01db | | Execute Vector,Length 042e 00d8 | | Load_Top At_Offset_0 042f 00e3 | | Load_Encached Natural_Cache 0430 0260 | ` | Execute Discrete,In_Type 0431 7001 |p | Jump_Nonzero 0x433 0432 0801 | | Execute_Immediate Raise,0x1 0433 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0434 e221 | ! | Load 0x1,0x21 0435 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0436 0227 | ' | Execute Access,All_Reference 0437 01db | | Execute Vector,Length 0438 00d8 | | Load_Top At_Offset_0 0439 00e3 | | Load_Encached Natural_Cache 043a 0260 | ` | Execute Discrete,In_Type 043b 7001 |p | Jump_Nonzero 0x43d 043c 0801 | | Execute_Immediate Raise,0x1 043d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 043e e222 | " | Load 0x1,0x22 043f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0440 0227 | ' | Execute Access,All_Reference 0441 01db | | Execute Vector,Length 0442 00d8 | | Load_Top At_Offset_0 0443 00e3 | | Load_Encached Natural_Cache 0444 0260 | ` | Execute Discrete,In_Type 0445 7001 |p | Jump_Nonzero 0x447 0446 0801 | | Execute_Immediate Raise,0x1 0447 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0448 e223 | # | Load 0x1,0x23 0449 1b10 | | Execute Package,Field_Read,Field_Number 0x10 044a 0227 | ' | Execute Access,All_Reference 044b 01db | | Execute Vector,Length 044c 00d8 | | Load_Top At_Offset_0 044d 00e3 | | Load_Encached Natural_Cache 044e 0260 | ` | Execute Discrete,In_Type 044f 7001 |p | Jump_Nonzero 0x451 0450 0801 | | Execute_Immediate Raise,0x1 0451 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0452 e224 | $ | Load 0x1,0x24 0453 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0454 0227 | ' | Execute Access,All_Reference 0455 01db | | Execute Vector,Length 0456 00d8 | | Load_Top At_Offset_0 0457 00e3 | | Load_Encached Natural_Cache 0458 0260 | ` | Execute Discrete,In_Type 0459 7001 |p | Jump_Nonzero 0x45b 045a 0801 | | Execute_Immediate Raise,0x1 045b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045c e225 | % | Load 0x1,0x25 045d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 045e 0227 | ' | Execute Access,All_Reference 045f 01db | | Execute Vector,Length 0460 00d8 | | Load_Top At_Offset_0 0461 00e3 | | Load_Encached Natural_Cache 0462 0260 | ` | Execute Discrete,In_Type 0463 7001 |p | Jump_Nonzero 0x465 0464 0801 | | Execute_Immediate Raise,0x1 0465 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0466 e227 | ' | Load 0x1,0x27 0467 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0468 0227 | ' | Execute Access,All_Reference 0469 01db | | Execute Vector,Length 046a 00d8 | | Load_Top At_Offset_0 046b 00e3 | | Load_Encached Natural_Cache 046c 0260 | ` | Execute Discrete,In_Type 046d 7001 |p | Jump_Nonzero 0x46f 046e 0801 | | Execute_Immediate Raise,0x1 046f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 00da | | Load_Top At_Offset_2 0474 4616 |F | Jump_Case 0x17 0475 783e |x> | Jump 0x4b4 ; case 0x0 0476 7845 |xE | Jump 0x4bc ; case 0x1 0477 784c |xL | Jump 0x4c4 ; case 0x2 0478 7853 |xS | Jump 0x4cc ; case 0x3 0479 781a |x | Jump 0x494 ; case 0x4 047a 7821 |x! | Jump 0x49c ; case 0x5 047b 7828 |x( | Jump 0x4a4 ; case 0x6 047c 782f |x/ | Jump 0x4ac ; case 0x7 047d 7856 |xV | Jump 0x4d4 ; case 0x8 047e 785d |x] | Jump 0x4dc ; case 0x9 047f 7864 |xd | Jump 0x4e4 ; case 0xa 0480 786b |xk | Jump 0x4ec ; case 0xb 0481 780a |x | Jump 0x48c ; case 0xc 0482 7871 |xq | Jump 0x4f4 ; case 0xd 0483 7830 |x0 | Jump 0x4b4 ; case 0xe 0484 7837 |x7 | Jump 0x4bc ; case 0xf 0485 780e |x | Jump 0x494 ; case 0x10 0486 7815 |x | Jump 0x49c ; case 0x11 0487 784c |xL | Jump 0x4d4 ; case 0x12 0488 7853 |xS | Jump 0x4dc ; case 0x13 0489 785a |xZ | Jump 0x4e4 ; case 0x14 048a 7861 |xa | Jump 0x4ec ; case 0x15 048b 7800 |x | Jump 0x48c ; case 0x16 048c 00db | | Load_Top At_Offset_3 048d e226 | & | Load 0x1,0x26 048e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 048f 0227 | ' | Execute Access,All_Reference 0490 01d5 | | Execute Vector,Field_Reference 0491 0320 | | Declare_Variable Record,Duplicate 0492 00cd | | Action Spare6_Action 0493 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0494 00db | | Load_Top At_Offset_3 0495 e21a | | Load 0x1,0x1a 0496 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0497 0227 | ' | Execute Access,All_Reference 0498 01d5 | | Execute Vector,Field_Reference 0499 0320 | | Declare_Variable Record,Duplicate 049a 00cd | | Action Spare6_Action 049b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 049c 00db | | Load_Top At_Offset_3 049d e21b | | Load 0x1,0x1b 049e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 049f 0227 | ' | Execute Access,All_Reference 04a0 01d5 | | Execute Vector,Field_Reference 04a1 0320 | | Declare_Variable Record,Duplicate 04a2 00cd | | Action Spare6_Action 04a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a4 00db | | Load_Top At_Offset_3 04a5 e21e | | Load 0x1,0x1e 04a6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04a7 0227 | ' | Execute Access,All_Reference 04a8 01d5 | | Execute Vector,Field_Reference 04a9 0320 | | Declare_Variable Record,Duplicate 04aa 00cd | | Action Spare6_Action 04ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ac 00db | | Load_Top At_Offset_3 04ad e21f | | Load 0x1,0x1f 04ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04af 0227 | ' | Execute Access,All_Reference 04b0 01d5 | | Execute Vector,Field_Reference 04b1 0320 | | Declare_Variable Record,Duplicate 04b2 00cd | | Action Spare6_Action 04b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b4 00db | | Load_Top At_Offset_3 04b5 e21c | | Load 0x1,0x1c 04b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04b7 0227 | ' | Execute Access,All_Reference 04b8 01d5 | | Execute Vector,Field_Reference 04b9 0320 | | Declare_Variable Record,Duplicate 04ba 00cd | | Action Spare6_Action 04bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04bc 00db | | Load_Top At_Offset_3 04bd e21d | | Load 0x1,0x1d 04be 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04bf 0227 | ' | Execute Access,All_Reference 04c0 01d5 | | Execute Vector,Field_Reference 04c1 0320 | | Declare_Variable Record,Duplicate 04c2 00cd | | Action Spare6_Action 04c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04c4 00db | | Load_Top At_Offset_3 04c5 e220 | | Load 0x1,0x20 04c6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04c7 0227 | ' | Execute Access,All_Reference 04c8 01d5 | | Execute Vector,Field_Reference 04c9 0320 | | Declare_Variable Record,Duplicate 04ca 00cd | | Action Spare6_Action 04cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04cc 00db | | Load_Top At_Offset_3 04cd e221 | ! | Load 0x1,0x21 04ce 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04cf 0227 | ' | Execute Access,All_Reference 04d0 01d5 | | Execute Vector,Field_Reference 04d1 0320 | | Declare_Variable Record,Duplicate 04d2 00cd | | Action Spare6_Action 04d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04d4 00db | | Load_Top At_Offset_3 04d5 e222 | " | Load 0x1,0x22 04d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04d7 0227 | ' | Execute Access,All_Reference 04d8 01d5 | | Execute Vector,Field_Reference 04d9 0320 | | Declare_Variable Record,Duplicate 04da 00cd | | Action Spare6_Action 04db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04dc 00db | | Load_Top At_Offset_3 04dd e223 | # | Load 0x1,0x23 04de 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04df 0227 | ' | Execute Access,All_Reference 04e0 01d5 | | Execute Vector,Field_Reference 04e1 0320 | | Declare_Variable Record,Duplicate 04e2 00cd | | Action Spare6_Action 04e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e4 00db | | Load_Top At_Offset_3 04e5 e224 | $ | Load 0x1,0x24 04e6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04e7 0227 | ' | Execute Access,All_Reference 04e8 01d5 | | Execute Vector,Field_Reference 04e9 0320 | | Declare_Variable Record,Duplicate 04ea 00cd | | Action Spare6_Action 04eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ec 00db | | Load_Top At_Offset_3 04ed e225 | % | Load 0x1,0x25 04ee 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04ef 0227 | ' | Execute Access,All_Reference 04f0 01d5 | | Execute Vector,Field_Reference 04f1 0320 | | Declare_Variable Record,Duplicate 04f2 00cd | | Action Spare6_Action 04f3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04f4 00db | | Load_Top At_Offset_3 04f5 e227 | ' | Load 0x1,0x27 04f6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04f7 0227 | ' | Execute Access,All_Reference 04f8 01d5 | | Execute Vector,Field_Reference 04f9 0320 | | Declare_Variable Record,Duplicate 04fa 00cd | | Action Spare6_Action 04fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04fc 0000 0000 | | .BLANK 0000[0x4] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0503 | | .CONST 0x0503 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0001 | | .CONST 0x0001 ; Number of locals 0503 BODY_0500: 0503 INIT_0500: 0503 e015 | | Load 0x0,0x15 0504 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0505 e015 | | Load 0x0,0x15 0506 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0507 0092 053a | :| Action Push_String_Extended,0x53a ; "GEB" 0509 01df | | Execute Vector,Equal 050a 6803 |h | Jump_Zero 0x50e 050b 0092 053b | ;| Action Push_String_Extended,0x53b ; "amber" 050d 00ca | | Action Exit_Nullary_Function 050e 0092 053c | <| Action Push_String_Extended,0x53c ; "rutabaga" 0510 00ca | | Action Exit_Nullary_Function 0511 0000 0000 | | .BLANK 0000[0x7] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 052c | , | .CONST 0x052c ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0010 | | .CONST 0x0010 ; Number of locals 051b INIT_0518: 051b e001 | | Load 0x0,0x1 051c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 051d 0321 | ! | Declare_Variable Record,Visible 051e e001 | | Load 0x0,0x1 051f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0520 0321 | ! | Declare_Variable Record,Visible 0521 e002 | | Load 0x0,0x2 0522 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0523 00d9 | | Load_Top At_Offset_1 0524 017d | } | Execute Record,Structure_Write 0525 e002 | | Load 0x0,0x2 0526 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0527 0129 | ) | Execute Any,Make_Visible 0528 e002 | | Load 0x0,0x2 0529 1b10 | | Execute Package,Field_Read,Field_Number 0x10 052a 0129 | ) | Execute Any,Make_Visible 052b 00bf | | Action Accept_Activation 052c BODY_0518: 052c e002 | | Load 0x0,0x2 052d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052e e20d | | Load 0x1,0xd 052f 017d | } | Execute Record,Structure_Write 0530 0092 053d | =| Action Push_String_Extended,0x53d ; "X_Vms5_1_Wollongong502" 0532 e003 | | Load 0x0,0x3 0533 180e | | Execute Package,Field_Execute,Field_Number 0xe 0534 e20d | | Load 0x1,0xd 0535 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0536 00bc | | Action Signal_Activated 0537 00bb | | Action Signal_Completion 0538 ; -------------------------------------------------------------------------------------- 0538 ; STRING TABLE 0538 ; -------------------------------------------------------------------------------------- 0538 000e | | .STRTAB 0x000e->0x053f ; "TEXT" 0539 0010 | | .STRTAB 0x0010->0x0541 ; "BINARY" 053a 0014 | | .STRTAB 0x0014->0x0544 ; "GEB" 053b 0015 | | .STRTAB 0x0015->0x0545 ; "amber" 053c 0018 | | .STRTAB 0x0018->0x0548 ; "rutabaga" 053d 001e | | .STRTAB 0x001e->0x054c ; "X_Vms5_1_Wollongong502" 053e 0032 | 2 | .STREND 0x0032->0x0557 053f 5445 5854 |TEXT| .STRTAB_STRINGS 0557 0000 | | .XXX[0x1] 0558 ; -------------------------------------------------------------------------------------- 0558 ; Debug Table 0558 ; -------------------------------------------------------------------------------------- 0558 0004 0000 | | .DEBUG4 0x0004,0x0000,0x39ee,0x0000,0x0001,0x000c 055e 000b 058e | | .DBG4T 0x000b,0x058e,0x8000,0x0000 0562 0045 059b | E | .DBG4T 0x0045,0x059b,0x8000,0x8000 0566 0173 05ed | s | .DBG4T 0x0173,0x05ed,0x0002,0x4000 056a 0203 0000 | | .DBG4T 0x0203,0x0000,0x0005,0x0000 056e 022b 061f | + | .DBG4T 0x022b,0x061f,0x0002,0x4000 0572 0293 063f | ?| .DBG4T 0x0293,0x063f,0x0002,0x4000 0576 033b 065f | ; _| .DBG4T 0x033b,0x065f,0x0002,0x4000 057a 03cb 067f | | .DBG4T 0x03cb,0x067f,0x0002,0x4000 057e 0473 069f | s | .DBG4T 0x0473,0x069f,0x0002,0x4000 0582 0503 06bf | | .DBG4T 0x0503,0x06bf,0x0002,0x0000 0586 051b 06c4 | | .DBG4T 0x051b,0x06c4,0x0000,0x0000 058a 052c 06ca | , | .DBG4T 0x052c,0x06ca,0x0000,0x0000 058e ; -------------------------------------------------------------------------------------- 058e ; Debug chain 058e ; -------------------------------------------------------------------------------------- 058e 000b 0000 | | .DBGLEN 0x000b,0x0000 0590 000b 0014 | | .DBGLNO 0x000b,0x0014,0x0018,0x002b,0x002d,0x0032,0x003a,0x003c,0x003e,0x0040,0x0042 059b ; -------------------------------------------------------------------------------------- 059b ; Debug chain 059b ; -------------------------------------------------------------------------------------- 059b 0028 0000 | ( | .DBGLEN 0x0028,0x0000 059d 0045 004b | E K| .DBGLNO 0x0045,0x004b,0x004f,0x0059,0x0060,0x006a,0x0070,0x007a,0x0081,0x008b,0x0091,0x009b,0x00a1,0x00ab,0x00b1,0x00bb,0x00c1,0x00cb,0x00d1,0x00db,0x00e2,0x00ec,0x00f3,0x00fe,0x0104,0x010e,0x0115,0x011f,0x0126,0x0130,0x0137,0x0140,0x014f,0x0151,0x015b,0x015d,0x015f,0x0161,0x0163,0x0165 05c5 0003 0004 | | .XXX[0x28] 05c7 0012 0013 | | 05c9 0014 0015 | | 05cb 0016 0017 | | 05cd 0018 0019 | | 05cf 001a 001b | | 05d1 001c 001d | | 05d3 001e 001f | | 05d5 0020 0021 | !| 05d7 0022 0023 | " #| 05d9 0024 0025 | $ %| 05db 0026 0027 | & '| 05dd 0028 0029 | ( )| 05df 002a 002b | * +| 05e1 002c 002d | , -| 05e3 002e 002f | . /| 05e5 0030 0031 | 0 1| 05e7 0032 0033 | 2 3| 05e9 0034 0035 | 4 5| 05eb 0036 0037 | 6 7| 05ed ; -------------------------------------------------------------------------------------- 05ed ; Debug chain 05ed ; -------------------------------------------------------------------------------------- 05ed 0000 0018 | | .DBGLEN 0x0000,0x0018 05ef 0173 018c | s | .DBGLNO 0x0173,0x018c,0x0191,0x0196,0x019b,0x01a0,0x01a5,0x01aa,0x01af,0x01b4,0x01b9,0x01be,0x01c3,0x01c8,0x01cd,0x01d2,0x01d7,0x01dc,0x01e1,0x01e6,0x01eb,0x01f0,0x01f5,0x01fa 0607 0001 0018 | | .XXX[0x18] 0609 0002 0003 | | 060b 0004 0005 | | 060d 0006 0007 | | 060f 0008 0009 | | 0611 000a 000b | | 0613 000c 000d | | 0615 000e 000f | | 0617 0010 0011 | | 0619 0012 0013 | | 061b 0014 0015 | | 061d 0016 0017 | | 061f ; -------------------------------------------------------------------------------------- 061f ; Debug chain 061f ; -------------------------------------------------------------------------------------- 061f 0000 000f | | .DBGLEN 0x0000,0x000f 0621 022b 0244 | + D| .DBGLNO 0x022b,0x0244,0x0249,0x024e,0x0253,0x0258,0x025d,0x0262,0x0267,0x026c,0x0271,0x0276,0x027b,0x0280,0x0285 0630 0001 000e | | .XXX[0xf] 0632 0002 0003 | | 0634 0004 0005 | | 0636 0006 0007 | | 0638 0008 0009 | | 063a 000a 000b | | 063c 000c 000d | | 063e 000f | | 063f ; -------------------------------------------------------------------------------------- 063f ; Debug chain 063f ; -------------------------------------------------------------------------------------- 063f 0000 000f | | .DBGLEN 0x0000,0x000f 0641 0293 02ac | | .DBGLNO 0x0293,0x02ac,0x02b6,0x02c0,0x02ca,0x02d4,0x02de,0x02e8,0x02f2,0x02fc,0x0306,0x0310,0x031a,0x0324,0x032e 0650 0001 000e | | .XXX[0xf] 0652 0002 0003 | | 0654 0004 0005 | | 0656 0006 0007 | | 0658 0008 0009 | | 065a 000a 000b | | 065c 000c 000d | | 065e 000f | | 065f ; -------------------------------------------------------------------------------------- 065f ; Debug chain 065f ; -------------------------------------------------------------------------------------- 065f 0000 000f | | .DBGLEN 0x0000,0x000f 0661 033b 0354 | ; T| .DBGLNO 0x033b,0x0354,0x035c,0x0364,0x036c,0x0374,0x037c,0x0384,0x038c,0x0394,0x039c,0x03a4,0x03ac,0x03b4,0x03bc 0670 0001 000e | | .XXX[0xf] 0672 0002 0003 | | 0674 0004 0005 | | 0676 0006 0007 | | 0678 0008 0009 | | 067a 000a 000b | | 067c 000c 000d | | 067e 000f | | 067f ; -------------------------------------------------------------------------------------- 067f ; Debug chain 067f ; -------------------------------------------------------------------------------------- 067f 0000 000f | | .DBGLEN 0x0000,0x000f 0681 03cb 03e4 | | .DBGLNO 0x03cb,0x03e4,0x03ee,0x03f8,0x0402,0x040c,0x0416,0x0420,0x042a,0x0434,0x043e,0x0448,0x0452,0x045c,0x0466 0690 0001 000e | | .XXX[0xf] 0692 0002 0003 | | 0694 0004 0005 | | 0696 0006 0007 | | 0698 0008 0009 | | 069a 000a 000b | | 069c 000c 000d | | 069e 000f | | 069f ; -------------------------------------------------------------------------------------- 069f ; Debug chain 069f ; -------------------------------------------------------------------------------------- 069f 0000 000f | | .DBGLEN 0x0000,0x000f 06a1 0473 048c | s | .DBGLNO 0x0473,0x048c,0x0494,0x049c,0x04a4,0x04ac,0x04b4,0x04bc,0x04c4,0x04cc,0x04d4,0x04dc,0x04e4,0x04ec,0x04f4 06b0 0001 000e | | .XXX[0xf] 06b2 0002 0003 | | 06b4 0004 0005 | | 06b6 0006 0007 | | 06b8 0008 0009 | | 06ba 000a 000b | | 06bc 000c 000d | | 06be 000f | | 06bf ; -------------------------------------------------------------------------------------- 06bf ; Debug chain 06bf ; -------------------------------------------------------------------------------------- 06bf 0000 0003 | | .DBGLEN 0x0000,0x0003 06c1 0503 050b | | .DBGLNO 0x0503,0x050b,0x050e 06c4 ; -------------------------------------------------------------------------------------- 06c4 ; Debug chain 06c4 ; -------------------------------------------------------------------------------------- 06c4 0004 0000 | | .DBGLEN 0x0004,0x0000 06c6 051b 051e | | .DBGLNO 0x051b,0x051e,0x0525,0x0528 06ca ; -------------------------------------------------------------------------------------- 06ca ; Debug chain 06ca ; -------------------------------------------------------------------------------------- 06ca 0000 0002 | | .DBGLEN 0x0000,0x0002 06cc 052c 0530 | , 0| .DBGLNO 0x052c,0x0530 06ce 0000 0000 | | .BLANK 0000[0x132]