|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0250 | P | .CONST 0x0250 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01aa | | .CONST 0x01aa ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003f | ? | .CONST 0x003f ; Number of locals 000b INIT_0008: 000b e20f | | Load 0x1,0xf 000c 0266 | f | Execute Discrete,Bounds 000d 00e1 | | Load_Encached Boolean_Cache 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 4801 |H | Short_Literal 0x1 0010 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0011 e20f | | Load 0x1,0xf 0012 0266 | f | Execute Discrete,Bounds 0013 00da | | Load_Top At_Offset_2 0014 035b | [ | Declare_Type Array,Constrained 0015 0337 | 7 | Declare_Variable Array 0016 00d8 | | Load_Top At_Offset_0 0017 01d9 | | Execute Vector,Reverse_Bounds 0018 0263 | c | Execute Discrete,Above_Bound 0019 7005 |p | Jump_Nonzero 0x1f 001a 4801 |H | Short_Literal 0x1 001b 00d9 | | Load_Top At_Offset_1 001c e21d | | Load 0x1,0x1d 001d 01d6 | | Execute Vector,Field_Write 001e 3ffb |? | Loop_Increasing 0x1a 001f 0129 | ) | Execute Any,Make_Visible 0020 e210 | | Load 0x1,0x10 0021 0266 | f | Execute Discrete,Bounds 0022 00e1 | | Load_Encached Boolean_Cache 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4801 |H | Short_Literal 0x1 0025 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0026 e210 | | Load 0x1,0x10 0027 0266 | f | Execute Discrete,Bounds 0028 00da | | Load_Top At_Offset_2 0029 035b | [ | Declare_Type Array,Constrained 002a 0337 | 7 | Declare_Variable Array 002b 00d8 | | Load_Top At_Offset_0 002c 01d9 | | Execute Vector,Reverse_Bounds 002d 0263 | c | Execute Discrete,Above_Bound 002e 7005 |p | Jump_Nonzero 0x34 002f 4801 |H | Short_Literal 0x1 0030 00d9 | | Load_Top At_Offset_1 0031 e21f | | Load 0x1,0x1f 0032 01d6 | | Execute Vector,Field_Write 0033 3ffb |? | Loop_Increasing 0x2f 0034 0129 | ) | Execute Any,Make_Visible 0035 4800 |H | Short_Literal 0x0 0036 e001 | | Load 0x0,0x1 0037 02a0 | | Declare_Subprogram Null_Subprogram 0038 038f | | Declare_Type Package,Defined,Visible 0039 e002 | | Load 0x0,0x2 003a e003 | | Load 0x0,0x3 003b 4802 |H | Short_Literal 0x2 003c 00db | | Load_Top At_Offset_3 003d 020e | | Execute Module,Augment_Imports 003e 0386 | | Declare_Variable Package,Visible 003f 4800 |H | Short_Literal 0x0 0040 e004 | | Load 0x0,0x4 0041 02a0 | | Declare_Subprogram Null_Subprogram 0042 038f | | Declare_Type Package,Defined,Visible 0043 e002 | | Load 0x0,0x2 0044 e005 | | Load 0x0,0x5 0045 e003 | | Load 0x0,0x3 0046 4803 |H | Short_Literal 0x3 0047 e221 | ! | Load 0x1,0x21 0048 020e | | Execute Module,Augment_Imports 0049 0386 | | Declare_Variable Package,Visible 004a 4800 |H | Short_Literal 0x0 004b e006 | | Load 0x0,0x6 004c 02a0 | | Declare_Subprogram Null_Subprogram 004d 038f | | Declare_Type Package,Defined,Visible 004e e002 | | Load 0x0,0x2 004f e003 | | Load 0x0,0x3 0050 e005 | | Load 0x0,0x5 0051 e007 | | Load 0x0,0x7 0052 4804 |H | Short_Literal 0x4 0053 e222 | " | Load 0x1,0x22 0054 020e | | Execute Module,Augment_Imports 0055 0386 | | Declare_Variable Package,Visible 0056 4800 |H | Short_Literal 0x0 0057 e008 | | Load 0x0,0x8 0058 02a0 | | Declare_Subprogram Null_Subprogram 0059 038f | | Declare_Type Package,Defined,Visible 005a e002 | | Load 0x0,0x2 005b e005 | | Load 0x0,0x5 005c e003 | | Load 0x0,0x3 005d 4803 |H | Short_Literal 0x3 005e e223 | # | Load 0x1,0x23 005f 020e | | Execute Module,Augment_Imports 0060 0386 | | Declare_Variable Package,Visible 0061 4800 |H | Short_Literal 0x0 0062 e009 | | Load 0x0,0x9 0063 02a0 | | Declare_Subprogram Null_Subprogram 0064 038f | | Declare_Type Package,Defined,Visible 0065 e002 | | Load 0x0,0x2 0066 e003 | | Load 0x0,0x3 0067 4802 |H | Short_Literal 0x2 0068 00db | | Load_Top At_Offset_3 0069 020e | | Execute Module,Augment_Imports 006a 0386 | | Declare_Variable Package,Visible 006b 4800 |H | Short_Literal 0x0 006c e00a | | Load 0x0,0xa 006d 02a0 | | Declare_Subprogram Null_Subprogram 006e 038f | | Declare_Type Package,Defined,Visible 006f e007 | | Load 0x0,0x7 0070 4801 |H | Short_Literal 0x1 0071 00da | | Load_Top At_Offset_2 0072 020e | | Execute Module,Augment_Imports 0073 0386 | | Declare_Variable Package,Visible 0074 4800 |H | Short_Literal 0x0 0075 e00b | | Load 0x0,0xb 0076 02a0 | | Declare_Subprogram Null_Subprogram 0077 038f | | Declare_Type Package,Defined,Visible 0078 0386 | | Declare_Variable Package,Visible 0079 4800 |H | Short_Literal 0x0 007a e00c | | Load 0x0,0xc 007b 02a0 | | Declare_Subprogram Null_Subprogram 007c 038f | | Declare_Type Package,Defined,Visible 007d 0386 | | Declare_Variable Package,Visible 007e 00bf | | Action Accept_Activation 007f e00d | | Load 0x0,0xd 0080 e00e | | Load 0x0,0xe 0081 e21e | | Load 0x1,0x1e 0082 e00f | | Load 0x0,0xf 0083 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0084 e010 | | Load 0x0,0x10 0085 0387 | | Declare_Variable Package 0086 00d8 | | Load_Top At_Offset_0 0087 020f | | Execute Module,Activate 0088 e011 | | Load 0x0,0x11 0089 e012 | | Load 0x0,0x12 008a e00f | | Load 0x0,0xf 008b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 008c e21e | | Load 0x1,0x1e 008d e010 | | Load 0x0,0x10 008e 0387 | | Declare_Variable Package 008f 00d8 | | Load_Top At_Offset_0 0090 020f | | Execute Module,Activate 0091 e013 | | Load 0x0,0x13 0092 e014 | | Load 0x0,0x14 0093 e222 | " | Load 0x1,0x22 0094 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0095 e015 | | Load 0x0,0x15 0096 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0097 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0098 e010 | | Load 0x0,0x10 0099 0387 | | Declare_Variable Package 009a 00d8 | | Load_Top At_Offset_0 009b 020f | | Execute Module,Activate 009c e016 | | Load 0x0,0x16 009d e017 | | Load 0x0,0x17 009e e015 | | Load 0x0,0x15 009f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a0 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00a1 e222 | " | Load 0x1,0x22 00a2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00a3 e010 | | Load 0x0,0x10 00a4 0387 | | Declare_Variable Package 00a5 00d8 | | Load_Top At_Offset_0 00a6 020f | | Execute Module,Activate 00a7 e018 | | Load 0x0,0x18 00a8 e019 | | Load 0x0,0x19 00a9 e221 | ! | Load 0x1,0x21 00aa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ab e015 | | Load 0x0,0x15 00ac 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ad 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ae e010 | | Load 0x0,0x10 00af 0387 | | Declare_Variable Package 00b0 00d8 | | Load_Top At_Offset_0 00b1 020f | | Execute Module,Activate 00b2 e01a | | Load 0x0,0x1a 00b3 e01b | | Load 0x0,0x1b 00b4 e015 | | Load 0x0,0x15 00b5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b7 e221 | ! | Load 0x1,0x21 00b8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b9 e010 | | Load 0x0,0x10 00ba 0387 | | Declare_Variable Package 00bb 00d8 | | Load_Top At_Offset_0 00bc 020f | | Execute Module,Activate 00bd e01c | | Load 0x0,0x1c 00be e01d | | Load 0x0,0x1d 00bf e223 | # | Load 0x1,0x23 00c0 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00c1 e015 | | Load 0x0,0x15 00c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00c3 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 00c4 e010 | | Load 0x0,0x10 00c5 0387 | | Declare_Variable Package 00c6 00d8 | | Load_Top At_Offset_0 00c7 020f | | Execute Module,Activate 00c8 e01e | | Load 0x0,0x1e 00c9 e01f | | Load 0x0,0x1f 00ca e015 | | Load 0x0,0x15 00cb 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00cc 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 00cd e223 | # | Load 0x1,0x23 00ce 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00cf e010 | | Load 0x0,0x10 00d0 0387 | | Declare_Variable Package 00d1 00d8 | | Load_Top At_Offset_0 00d2 020f | | Execute Module,Activate 00d3 e020 | | Load 0x0,0x20 00d4 e021 | ! | Load 0x0,0x21 00d5 e223 | # | Load 0x1,0x23 00d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d7 e015 | | Load 0x0,0x15 00d8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00da e010 | | Load 0x0,0x10 00db 0387 | | Declare_Variable Package 00dc 00d8 | | Load_Top At_Offset_0 00dd 020f | | Execute Module,Activate 00de e022 | " | Load 0x0,0x22 00df e023 | # | Load 0x0,0x23 00e0 e015 | | Load 0x0,0x15 00e1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00e2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00e3 e223 | # | Load 0x1,0x23 00e4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00e5 e010 | | Load 0x0,0x10 00e6 0387 | | Declare_Variable Package 00e7 00d8 | | Load_Top At_Offset_0 00e8 020f | | Execute Module,Activate 00e9 e024 | $ | Load 0x0,0x24 00ea e025 | % | Load 0x0,0x25 00eb e220 | | Load 0x1,0x20 00ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ed e026 | & | Load 0x0,0x26 00ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ef e010 | | Load 0x0,0x10 00f0 0387 | | Declare_Variable Package 00f1 00d8 | | Load_Top At_Offset_0 00f2 020f | | Execute Module,Activate 00f3 e027 | ' | Load 0x0,0x27 00f4 e028 | ( | Load 0x0,0x28 00f5 e026 | & | Load 0x0,0x26 00f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f7 e220 | | Load 0x1,0x20 00f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f9 e010 | | Load 0x0,0x10 00fa 0387 | | Declare_Variable Package 00fb 00d8 | | Load_Top At_Offset_0 00fc 020f | | Execute Module,Activate 00fd e029 | ) | Load 0x0,0x29 00fe e02a | * | Load 0x0,0x2a 00ff e220 | | Load 0x1,0x20 0100 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0101 e026 | & | Load 0x0,0x26 0102 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0103 e010 | | Load 0x0,0x10 0104 0387 | | Declare_Variable Package 0105 00d8 | | Load_Top At_Offset_0 0106 020f | | Execute Module,Activate 0107 e02b | + | Load 0x0,0x2b 0108 e02c | , | Load 0x0,0x2c 0109 e026 | & | Load 0x0,0x26 010a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 010b e220 | | Load 0x1,0x20 010c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 010d e010 | | Load 0x0,0x10 010e 0387 | | Declare_Variable Package 010f 00d8 | | Load_Top At_Offset_0 0110 020f | | Execute Module,Activate 0111 e02d | - | Load 0x0,0x2d 0112 e02e | . | Load 0x0,0x2e 0113 e222 | " | Load 0x1,0x22 0114 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0115 e015 | | Load 0x0,0x15 0116 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0117 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0118 e010 | | Load 0x0,0x10 0119 0387 | | Declare_Variable Package 011a 00d8 | | Load_Top At_Offset_0 011b 020f | | Execute Module,Activate 011c e02f | / | Load 0x0,0x2f 011d e030 | 0 | Load 0x0,0x30 011e e015 | | Load 0x0,0x15 011f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0120 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0121 e222 | " | Load 0x1,0x22 0122 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0123 e010 | | Load 0x0,0x10 0124 0387 | | Declare_Variable Package 0125 00d8 | | Load_Top At_Offset_0 0126 020f | | Execute Module,Activate 0127 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0129 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 012b 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 012d 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 012f 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 0131 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0133 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 0135 e031 | 1 | Load 0x0,0x31 0136 e032 | 2 | Load 0x0,0x32 0137 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0138 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0139 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 013a 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 013b 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 013c 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 013d 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 013e e00f | | Load 0x0,0xf 013f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0140 0387 | | Declare_Variable Package 0141 00d8 | | Load_Top At_Offset_0 0142 020f | | Execute Module,Activate 0143 e026 | & | Load 0x0,0x26 0144 e00f | | Load 0x0,0xf 0145 00b6 | | Action Make_Scope 0146 e233 | 3 | Load 0x1,0x33 0147 4804 |H | Short_Literal 0x4 0148 e220 | | Load 0x1,0x20 0149 020e | | Execute Module,Augment_Imports 014a e220 | | Load 0x1,0x20 014b 020f | | Execute Module,Activate 014c e033 | 3 | Load 0x0,0x33 014d e22d | - | Load 0x1,0x2d 014e e22c | , | Load 0x1,0x2c 014f e026 | & | Load 0x0,0x26 0150 e228 | ( | Load 0x1,0x28 0151 e034 | 4 | Load 0x0,0x34 0152 e035 | 5 | Load 0x0,0x35 0153 e005 | | Load 0x0,0x5 0154 e234 | 4 | Load 0x1,0x34 0155 4809 |H | Short_Literal 0x9 0156 e225 | % | Load 0x1,0x25 0157 020e | | Execute Module,Augment_Imports 0158 e225 | % | Load 0x1,0x25 0159 020f | | Execute Module,Activate 015a e036 | 6 | Load 0x0,0x36 015b e037 | 7 | Load 0x0,0x37 015c e038 | 8 | Load 0x0,0x38 015d e039 | 9 | Load 0x0,0x39 015e e00f | | Load 0x0,0xf 015f 00b6 | | Action Make_Scope 0160 e005 | | Load 0x0,0x5 0161 e03a | : | Load 0x0,0x3a 0162 e03b | ; | Load 0x0,0x3b 0163 e03c | < | Load 0x0,0x3c 0164 e03d | = | Load 0x0,0x3d 0165 e03e | > | Load 0x0,0x3e 0166 e03f | ? | Load 0x0,0x3f 0167 e040 | @ | Load 0x0,0x40 0168 e041 | A | Load 0x0,0x41 0169 480f |H | Short_Literal 0xf 016a e226 | & | Load 0x1,0x26 016b 020e | | Execute Module,Augment_Imports 016c e226 | & | Load 0x1,0x26 016d 020f | | Execute Module,Activate 016e e042 | B | Load 0x0,0x42 016f e005 | | Load 0x0,0x5 0170 e00f | | Load 0x0,0xf 0171 e22c | , | Load 0x1,0x2c 0172 4804 |H | Short_Literal 0x4 0173 e227 | ' | Load 0x1,0x27 0174 020e | | Execute Module,Augment_Imports 0175 e227 | ' | Load 0x1,0x27 0176 020f | | Execute Module,Activate 0177 e015 | | Load 0x0,0x15 0178 e22d | - | Load 0x1,0x2d 0179 e236 | 6 | Load 0x1,0x36 017a e22b | + | Load 0x1,0x2b 017b 4804 |H | Short_Literal 0x4 017c e222 | " | Load 0x1,0x22 017d 020e | | Execute Module,Augment_Imports 017e e222 | " | Load 0x1,0x22 017f 020f | | Execute Module,Activate 0180 e043 | C | Load 0x0,0x43 0181 e044 | D | Load 0x0,0x44 0182 e00f | | Load 0x0,0xf 0183 e015 | | Load 0x0,0x15 0184 e22d | - | Load 0x1,0x2d 0185 e22c | , | Load 0x1,0x2c 0186 e007 | | Load 0x0,0x7 0187 4807 |H | Short_Literal 0x7 0188 e221 | ! | Load 0x1,0x21 0189 020e | | Execute Module,Augment_Imports 018a e221 | ! | Load 0x1,0x21 018b 020f | | Execute Module,Activate 018c e045 | E | Load 0x0,0x45 018d e046 | F | Load 0x0,0x46 018e e00f | | Load 0x0,0xf 018f e015 | | Load 0x0,0x15 0190 e228 | ( | Load 0x1,0x28 0191 e007 | | Load 0x0,0x7 0192 e22d | - | Load 0x1,0x2d 0193 e22c | , | Load 0x1,0x2c 0194 00b6 | | Action Make_Scope 0195 e22f | / | Load 0x1,0x2f 0196 e22b | + | Load 0x1,0x2b 0197 e229 | ) | Load 0x1,0x29 0198 480c |H | Short_Literal 0xc 0199 e223 | # | Load 0x1,0x23 019a 020e | | Execute Module,Augment_Imports 019b e223 | # | Load 0x1,0x23 019c 020f | | Execute Module,Activate 019d e047 | G | Load 0x0,0x47 019e e048 | H | Load 0x0,0x48 019f e049 | I | Load 0x0,0x49 01a0 e00f | | Load 0x0,0xf 01a1 00b6 | | Action Make_Scope 01a2 e22d | - | Load 0x1,0x2d 01a3 e231 | 1 | Load 0x1,0x31 01a4 e22a | * | Load 0x1,0x2a 01a5 4808 |H | Short_Literal 0x8 01a6 e224 | $ | Load 0x1,0x24 01a7 020e | | Execute Module,Augment_Imports 01a8 e224 | $ | Load 0x1,0x24 01a9 020f | | Execute Module,Activate 01aa BODY_0008: 01aa e210 | | Load 0x1,0x10 01ab 0269 | i | Execute Discrete,Last 01ac e00f | | Load 0x0,0xf 01ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ae 00d9 | | Load_Top At_Offset_1 01af 00d0 | | Action Swap_Control 01b0 0260 | ` | Execute Discrete,In_Type 01b1 7001 |p | Jump_Nonzero 0x1b3 01b2 0801 | | Execute_Immediate Raise,0x1 01b3 e20f | | Load 0x1,0xf 01b4 0269 | i | Execute Discrete,Last 01b5 e00f | | Load 0x0,0xf 01b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b7 00d9 | | Load_Top At_Offset_1 01b8 00d0 | | Action Swap_Control 01b9 0260 | ` | Execute Discrete,In_Type 01ba 7001 |p | Jump_Nonzero 0x1bc 01bb 0801 | | Execute_Immediate Raise,0x1 01bc 00da | | Load_Top At_Offset_2 01bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01be e00f | | Load 0x0,0xf 01bf 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01c0 e21a | | Load 0x1,0x1a 01c1 e005 | | Load 0x0,0x5 01c2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01c3 e21b | | Load 0x1,0x1b 01c4 e005 | | Load 0x0,0x5 01c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01c6 00bc | | Action Signal_Activated 01c7 00bb | | Action Signal_Completion 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 00d8 | | Load_Top At_Offset_0 01cd e20f | | Load 0x1,0xf 01ce 0122 | " | Execute Any,Make_Root_Type 01cf 0260 | ` | Execute Discrete,In_Type 01d0 7001 |p | Jump_Nonzero 0x1d2 01d1 0801 | | Execute_Immediate Raise,0x1 01d2 00d8 | | Load_Top At_Offset_0 01d3 e20f | | Load 0x1,0xf 01d4 0260 | ` | Execute Discrete,In_Type 01d5 7001 |p | Jump_Nonzero 0x1d7 01d6 0801 | | Execute_Immediate Raise,0x1 01d7 8213 | | Call 0x1,0x13 01d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 00d8 | | Load_Top At_Offset_0 01e5 e20f | | Load 0x1,0xf 01e6 0122 | " | Execute Any,Make_Root_Type 01e7 0260 | ` | Execute Discrete,In_Type 01e8 7001 |p | Jump_Nonzero 0x1ea 01e9 0801 | | Execute_Immediate Raise,0x1 01ea 00d8 | | Load_Top At_Offset_0 01eb e20f | | Load 0x1,0xf 01ec 0260 | ` | Execute Discrete,In_Type 01ed 7001 |p | Jump_Nonzero 0x1ef 01ee 0801 | | Execute_Immediate Raise,0x1 01ef 8214 | | Call 0x1,0x14 01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc 00d8 | | Load_Top At_Offset_0 01fd e20f | | Load 0x1,0xf 01fe 0122 | " | Execute Any,Make_Root_Type 01ff 0260 | ` | Execute Discrete,In_Type 0200 7001 |p | Jump_Nonzero 0x202 0201 0801 | | Execute_Immediate Raise,0x1 0202 00d8 | | Load_Top At_Offset_0 0203 e20f | | Load 0x1,0xf 0204 0260 | ` | Execute Discrete,In_Type 0205 7001 |p | Jump_Nonzero 0x207 0206 0801 | | Execute_Immediate Raise,0x1 0207 8215 | | Call 0x1,0x15 0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 00d8 | | Load_Top At_Offset_0 0215 e210 | | Load 0x1,0x10 0216 0122 | " | Execute Any,Make_Root_Type 0217 0260 | ` | Execute Discrete,In_Type 0218 7001 |p | Jump_Nonzero 0x21a 0219 0801 | | Execute_Immediate Raise,0x1 021a 00d8 | | Load_Top At_Offset_0 021b e210 | | Load 0x1,0x10 021c 0260 | ` | Execute Discrete,In_Type 021d 7001 |p | Jump_Nonzero 0x21f 021e 0801 | | Execute_Immediate Raise,0x1 021f 8216 | | Call 0x1,0x16 0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0221 0000 0000 | | .BLANK 0000[0x7] 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 00d8 | | Load_Top At_Offset_0 022d e20f | | Load 0x1,0xf 022e 0122 | " | Execute Any,Make_Root_Type 022f 0260 | ` | Execute Discrete,In_Type 0230 7001 |p | Jump_Nonzero 0x232 0231 0801 | | Execute_Immediate Raise,0x1 0232 00d8 | | Load_Top At_Offset_0 0233 e20f | | Load 0x1,0xf 0234 0260 | ` | Execute Discrete,In_Type 0235 7001 |p | Jump_Nonzero 0x237 0236 0801 | | Execute_Immediate Raise,0x1 0237 8217 | | Call 0x1,0x17 0238 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0239 0000 0000 | | .BLANK 0000[0x7] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e218 | | Load 0x1,0x18 0244 0335 | 5 | Declare_Variable Array,Duplicate 0245 00cd | | Action Spare6_Action 0246 00ca | | Action Exit_Nullary_Function 0247 0000 | | .XXX[0x1] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e219 | | Load 0x1,0x19 024c 0335 | 5 | Declare_Variable Array,Duplicate 024d 00cd | | Action Spare6_Action 024e 00ca | | Action Exit_Nullary_Function 024f 0000 | | .XXX[0x1] 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug Table 0250 ; -------------------------------------------------------------------------------------- 0250 0004 000d | | .DEBUG4 0x0004,0x000d,0xd94f,0x0000,0x0001,0x0000 0256 400a 0000 |@ | .XXX[0x17] 0258 0002 0000 | | 025a 0080 0000 | | 025c 0440 0000 | @ | 025e 0002 0000 | | 0260 0014 8000 | | 0262 0407 e4ee | | 0264 8000 0407 | | 0266 e4f6 8000 | | 0268 0407 e4fa | | 026a 8000 0407 | | 026c e4fc | | 026d 0000 0000 | | .BLANK 0000[0x13] 0280 0a01 c007 | | .XXX[0x21] 0282 0008 c380 | | 0284 0035 feb4 | 5 | 0286 3a80 8004 |: | 0288 0005 6800 | h | 028a 0000 5428 | T(| 028c 0000 1000 | | 028e 0000 2801 | ( | 0290 4000 0000 |@ | 0292 4000 0010 |@ | 0294 0000 0088 | | 0296 0000 0000 | | 0298 4000 0002 |@ | 029a 9000 0080 | | 029c fca0 5000 | P | 029e 0080 fca0 | | 02a0 8000 | | 02a1 0000 0000 | | .BLANK 0000[0x18] 02b9 0140 3800 | @8 | .XXX[0x21] 02bb e001 1880 | | 02bd 0006 bfd6 | | 02bf 8750 1000 | P | 02c1 8000 ad00 | | 02c3 0000 0a85 | | 02c5 c000 0200 | | 02c7 0000 0500 | | 02c9 2800 0000 |( | 02cb 0800 0002 | | 02cd 0000 0011 | | 02cf 0000 0000 | | 02d1 0800 0000 | | 02d3 5200 0010 |R | 02d5 1f94 9a00 | | 02d7 0010 1f94 | | 02d9 a000 | | 02da 0000 0000 | | .BLANK 0000[0x18] 02f2 0028 0700 | ( | .XXX[0x2] 02f4 0000 0000 | | .BLANK 0000[0xd] 0301 0020 0500 | | .XXX[0xc] 0303 0000 0000 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a00 | | 030d 0000 0000 | | .BLANK 0000[0x2d] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]