|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1c4cec
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01f0 | | .CONST 0x01f0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0063 | c | .CONST 0x0063 ; Number of locals 000b INIT_0008: 000b 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call 0010 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 0012 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 e211 | | Load 0x1,0x11 0015 e210 | | Load 0x1,0x10 0016 027e | ~ | Execute Discrete,Not_Equal 0017 6809 |h | Jump_Zero 0x21 0018 e213 | | Load 0x1,0x13 0019 e212 | | Load 0x1,0x12 001a e211 | | Load 0x1,0x11 001b 00d8 | | Load_Top At_Offset_0 001c e20f | | Load 0x1,0xf 001d 0260 | ` | Execute Discrete,In_Type 001e 7001 |p | Jump_Nonzero 0x20 001f 0801 | | Execute_Immediate Raise,0x1 0020 8263 | c | Call 0x1,0x63 0021 e215 | | Load 0x1,0x15 0022 e210 | | Load 0x1,0x10 0023 027e | ~ | Execute Discrete,Not_Equal 0024 6809 |h | Jump_Zero 0x2e 0025 e217 | | Load 0x1,0x17 0026 e216 | | Load 0x1,0x16 0027 e215 | | Load 0x1,0x15 0028 00d8 | | Load_Top At_Offset_0 0029 e20f | | Load 0x1,0xf 002a 0260 | ` | Execute Discrete,In_Type 002b 7001 |p | Jump_Nonzero 0x2d 002c 0801 | | Execute_Immediate Raise,0x1 002d 8263 | c | Call 0x1,0x63 002e e219 | | Load 0x1,0x19 002f e210 | | Load 0x1,0x10 0030 027e | ~ | Execute Discrete,Not_Equal 0031 6809 |h | Jump_Zero 0x3b 0032 e21b | | Load 0x1,0x1b 0033 e21a | | Load 0x1,0x1a 0034 e219 | | Load 0x1,0x19 0035 00d8 | | Load_Top At_Offset_0 0036 e20f | | Load 0x1,0xf 0037 0260 | ` | Execute Discrete,In_Type 0038 7001 |p | Jump_Nonzero 0x3a 0039 0801 | | Execute_Immediate Raise,0x1 003a 8263 | c | Call 0x1,0x63 003b e21d | | Load 0x1,0x1d 003c e210 | | Load 0x1,0x10 003d 027e | ~ | Execute Discrete,Not_Equal 003e 6809 |h | Jump_Zero 0x48 003f e21f | | Load 0x1,0x1f 0040 e21e | | Load 0x1,0x1e 0041 e21d | | Load 0x1,0x1d 0042 00d8 | | Load_Top At_Offset_0 0043 e20f | | Load 0x1,0xf 0044 0260 | ` | Execute Discrete,In_Type 0045 7001 |p | Jump_Nonzero 0x47 0046 0801 | | Execute_Immediate Raise,0x1 0047 8263 | c | Call 0x1,0x63 0048 e221 | ! | Load 0x1,0x21 0049 e210 | | Load 0x1,0x10 004a 027e | ~ | Execute Discrete,Not_Equal 004b 6809 |h | Jump_Zero 0x55 004c e223 | # | Load 0x1,0x23 004d e222 | " | Load 0x1,0x22 004e e221 | ! | Load 0x1,0x21 004f 00d8 | | Load_Top At_Offset_0 0050 e20f | | Load 0x1,0xf 0051 0260 | ` | Execute Discrete,In_Type 0052 7001 |p | Jump_Nonzero 0x54 0053 0801 | | Execute_Immediate Raise,0x1 0054 8263 | c | Call 0x1,0x63 0055 e225 | % | Load 0x1,0x25 0056 e210 | | Load 0x1,0x10 0057 027e | ~ | Execute Discrete,Not_Equal 0058 6809 |h | Jump_Zero 0x62 0059 e227 | ' | Load 0x1,0x27 005a e226 | & | Load 0x1,0x26 005b e225 | % | Load 0x1,0x25 005c 00d8 | | Load_Top At_Offset_0 005d e20f | | Load 0x1,0xf 005e 0260 | ` | Execute Discrete,In_Type 005f 7001 |p | Jump_Nonzero 0x61 0060 0801 | | Execute_Immediate Raise,0x1 0061 8263 | c | Call 0x1,0x63 0062 e229 | ) | Load 0x1,0x29 0063 e210 | | Load 0x1,0x10 0064 027e | ~ | Execute Discrete,Not_Equal 0065 6809 |h | Jump_Zero 0x6f 0066 e22b | + | Load 0x1,0x2b 0067 e22a | * | Load 0x1,0x2a 0068 e229 | ) | Load 0x1,0x29 0069 00d8 | | Load_Top At_Offset_0 006a e20f | | Load 0x1,0xf 006b 0260 | ` | Execute Discrete,In_Type 006c 7001 |p | Jump_Nonzero 0x6e 006d 0801 | | Execute_Immediate Raise,0x1 006e 8263 | c | Call 0x1,0x63 006f e22d | - | Load 0x1,0x2d 0070 e210 | | Load 0x1,0x10 0071 027e | ~ | Execute Discrete,Not_Equal 0072 6809 |h | Jump_Zero 0x7c 0073 e22f | / | Load 0x1,0x2f 0074 e22e | . | Load 0x1,0x2e 0075 e22d | - | Load 0x1,0x2d 0076 00d8 | | Load_Top At_Offset_0 0077 e20f | | Load 0x1,0xf 0078 0260 | ` | Execute Discrete,In_Type 0079 7001 |p | Jump_Nonzero 0x7b 007a 0801 | | Execute_Immediate Raise,0x1 007b 8263 | c | Call 0x1,0x63 007c e231 | 1 | Load 0x1,0x31 007d e210 | | Load 0x1,0x10 007e 027e | ~ | Execute Discrete,Not_Equal 007f 6809 |h | Jump_Zero 0x89 0080 e233 | 3 | Load 0x1,0x33 0081 e232 | 2 | Load 0x1,0x32 0082 e231 | 1 | Load 0x1,0x31 0083 00d8 | | Load_Top At_Offset_0 0084 e20f | | Load 0x1,0xf 0085 0260 | ` | Execute Discrete,In_Type 0086 7001 |p | Jump_Nonzero 0x88 0087 0801 | | Execute_Immediate Raise,0x1 0088 8263 | c | Call 0x1,0x63 0089 e235 | 5 | Load 0x1,0x35 008a e210 | | Load 0x1,0x10 008b 027e | ~ | Execute Discrete,Not_Equal 008c 6809 |h | Jump_Zero 0x96 008d e237 | 7 | Load 0x1,0x37 008e e236 | 6 | Load 0x1,0x36 008f e235 | 5 | Load 0x1,0x35 0090 00d8 | | Load_Top At_Offset_0 0091 e20f | | Load 0x1,0xf 0092 0260 | ` | Execute Discrete,In_Type 0093 7001 |p | Jump_Nonzero 0x95 0094 0801 | | Execute_Immediate Raise,0x1 0095 8263 | c | Call 0x1,0x63 0096 e239 | 9 | Load 0x1,0x39 0097 e210 | | Load 0x1,0x10 0098 027e | ~ | Execute Discrete,Not_Equal 0099 6809 |h | Jump_Zero 0xa3 009a e23b | ; | Load 0x1,0x3b 009b e23a | : | Load 0x1,0x3a 009c e239 | 9 | Load 0x1,0x39 009d 00d8 | | Load_Top At_Offset_0 009e e20f | | Load 0x1,0xf 009f 0260 | ` | Execute Discrete,In_Type 00a0 7001 |p | Jump_Nonzero 0xa2 00a1 0801 | | Execute_Immediate Raise,0x1 00a2 8263 | c | Call 0x1,0x63 00a3 e23d | = | Load 0x1,0x3d 00a4 e210 | | Load 0x1,0x10 00a5 027e | ~ | Execute Discrete,Not_Equal 00a6 6809 |h | Jump_Zero 0xb0 00a7 e23f | ? | Load 0x1,0x3f 00a8 e23e | > | Load 0x1,0x3e 00a9 e23d | = | Load 0x1,0x3d 00aa 00d8 | | Load_Top At_Offset_0 00ab e20f | | Load 0x1,0xf 00ac 0260 | ` | Execute Discrete,In_Type 00ad 7001 |p | Jump_Nonzero 0xaf 00ae 0801 | | Execute_Immediate Raise,0x1 00af 8263 | c | Call 0x1,0x63 00b0 e241 | A | Load 0x1,0x41 00b1 e210 | | Load 0x1,0x10 00b2 027e | ~ | Execute Discrete,Not_Equal 00b3 6809 |h | Jump_Zero 0xbd 00b4 e243 | C | Load 0x1,0x43 00b5 e242 | B | Load 0x1,0x42 00b6 e241 | A | Load 0x1,0x41 00b7 00d8 | | Load_Top At_Offset_0 00b8 e20f | | Load 0x1,0xf 00b9 0260 | ` | Execute Discrete,In_Type 00ba 7001 |p | Jump_Nonzero 0xbc 00bb 0801 | | Execute_Immediate Raise,0x1 00bc 8263 | c | Call 0x1,0x63 00bd e245 | E | Load 0x1,0x45 00be e210 | | Load 0x1,0x10 00bf 027e | ~ | Execute Discrete,Not_Equal 00c0 6809 |h | Jump_Zero 0xca 00c1 e247 | G | Load 0x1,0x47 00c2 e246 | F | Load 0x1,0x46 00c3 e245 | E | Load 0x1,0x45 00c4 00d8 | | Load_Top At_Offset_0 00c5 e20f | | Load 0x1,0xf 00c6 0260 | ` | Execute Discrete,In_Type 00c7 7001 |p | Jump_Nonzero 0xc9 00c8 0801 | | Execute_Immediate Raise,0x1 00c9 8263 | c | Call 0x1,0x63 00ca e249 | I | Load 0x1,0x49 00cb e210 | | Load 0x1,0x10 00cc 027e | ~ | Execute Discrete,Not_Equal 00cd 6809 |h | Jump_Zero 0xd7 00ce e24b | K | Load 0x1,0x4b 00cf e24a | J | Load 0x1,0x4a 00d0 e249 | I | Load 0x1,0x49 00d1 00d8 | | Load_Top At_Offset_0 00d2 e20f | | Load 0x1,0xf 00d3 0260 | ` | Execute Discrete,In_Type 00d4 7001 |p | Jump_Nonzero 0xd6 00d5 0801 | | Execute_Immediate Raise,0x1 00d6 8263 | c | Call 0x1,0x63 00d7 e24d | M | Load 0x1,0x4d 00d8 e210 | | Load 0x1,0x10 00d9 027e | ~ | Execute Discrete,Not_Equal 00da 6809 |h | Jump_Zero 0xe4 00db e24f | O | Load 0x1,0x4f 00dc e24e | N | Load 0x1,0x4e 00dd e24d | M | Load 0x1,0x4d 00de 00d8 | | Load_Top At_Offset_0 00df e20f | | Load 0x1,0xf 00e0 0260 | ` | Execute Discrete,In_Type 00e1 7001 |p | Jump_Nonzero 0xe3 00e2 0801 | | Execute_Immediate Raise,0x1 00e3 8263 | c | Call 0x1,0x63 00e4 e251 | Q | Load 0x1,0x51 00e5 e210 | | Load 0x1,0x10 00e6 027e | ~ | Execute Discrete,Not_Equal 00e7 6809 |h | Jump_Zero 0xf1 00e8 e253 | S | Load 0x1,0x53 00e9 e252 | R | Load 0x1,0x52 00ea e251 | Q | Load 0x1,0x51 00eb 00d8 | | Load_Top At_Offset_0 00ec e20f | | Load 0x1,0xf 00ed 0260 | ` | Execute Discrete,In_Type 00ee 7001 |p | Jump_Nonzero 0xf0 00ef 0801 | | Execute_Immediate Raise,0x1 00f0 8263 | c | Call 0x1,0x63 00f1 e255 | U | Load 0x1,0x55 00f2 e210 | | Load 0x1,0x10 00f3 027e | ~ | Execute Discrete,Not_Equal 00f4 6809 |h | Jump_Zero 0xfe 00f5 e257 | W | Load 0x1,0x57 00f6 e256 | V | Load 0x1,0x56 00f7 e255 | U | Load 0x1,0x55 00f8 00d8 | | Load_Top At_Offset_0 00f9 e20f | | Load 0x1,0xf 00fa 0260 | ` | Execute Discrete,In_Type 00fb 7001 |p | Jump_Nonzero 0xfd 00fc 0801 | | Execute_Immediate Raise,0x1 00fd 8263 | c | Call 0x1,0x63 00fe e259 | Y | Load 0x1,0x59 00ff e210 | | Load 0x1,0x10 0100 027e | ~ | Execute Discrete,Not_Equal 0101 6809 |h | Jump_Zero 0x10b 0102 e25b | [ | Load 0x1,0x5b 0103 e25a | Z | Load 0x1,0x5a 0104 e259 | Y | Load 0x1,0x59 0105 00d8 | | Load_Top At_Offset_0 0106 e20f | | Load 0x1,0xf 0107 0260 | ` | Execute Discrete,In_Type 0108 7001 |p | Jump_Nonzero 0x10a 0109 0801 | | Execute_Immediate Raise,0x1 010a 8263 | c | Call 0x1,0x63 010b e25d | ] | Load 0x1,0x5d 010c e210 | | Load 0x1,0x10 010d 027e | ~ | Execute Discrete,Not_Equal 010e 6809 |h | Jump_Zero 0x118 010f e25f | _ | Load 0x1,0x5f 0110 e25e | ^ | Load 0x1,0x5e 0111 e25d | ] | Load 0x1,0x5d 0112 00d8 | | Load_Top At_Offset_0 0113 e20f | | Load 0x1,0xf 0114 0260 | ` | Execute Discrete,In_Type 0115 7001 |p | Jump_Nonzero 0x117 0116 0801 | | Execute_Immediate Raise,0x1 0117 8263 | c | Call 0x1,0x63 0118 00bc | | Action Signal_Activated 0119 00bb | | Action Signal_Completion 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012d | - | .CONST 0x012d ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e003 | | Load 0x0,0x3 0125 01d5 | | Execute Vector,Field_Reference 0126 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 0127 0007 | | Action Break_Optional 0128 00db | | Load_Top At_Offset_3 0129 e003 | | Load 0x0,0x3 012a 01d5 | | Execute Vector,Field_Reference 012b 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 012c 0007 | | Action Break_Optional 012d BODY_0120: 012d 00d9 | | Load_Top At_Offset_1 012e e20e | | Load 0x1,0xe 012f 027f | | Execute Discrete,Equal 0130 6859 |hY | Jump_Zero 0x18a 0131 00d8 | | Load_Top At_Offset_0 0132 00d8 | | Load_Top At_Offset_0 0133 0c15 | | Execute_Immediate Greater_Equal,0x15 0134 7019 |p | Jump_Nonzero 0x14e 0135 4614 |F | Jump_Case 0x15 0136 7818 |x | Jump 0x14f ; case 0x0 0137 7819 |x | Jump 0x151 ; case 0x1 0138 781b |x | Jump 0x154 ; case 0x2 0139 781d |x | Jump 0x157 ; case 0x3 013a 781f |x | Jump 0x15a ; case 0x4 013b 7821 |x! | Jump 0x15d ; case 0x5 013c 7823 |x# | Jump 0x160 ; case 0x6 013d 7825 |x% | Jump 0x163 ; case 0x7 013e 7827 |x' | Jump 0x166 ; case 0x8 013f 7829 |x) | Jump 0x169 ; case 0x9 0140 782b |x+ | Jump 0x16c ; case 0xa 0141 782d |x- | Jump 0x16f ; case 0xb 0142 782f |x/ | Jump 0x172 ; case 0xc 0143 7831 |x1 | Jump 0x175 ; case 0xd 0144 7833 |x3 | Jump 0x178 ; case 0xe 0145 7835 |x5 | Jump 0x17b ; case 0xf 0146 7837 |x7 | Jump 0x17e ; case 0x10 0147 7839 |x9 | Jump 0x181 ; case 0x11 0148 783b |x; | Jump 0x184 ; case 0x12 0149 783d |x= | Jump 0x187 ; case 0x13 014a 7800 |x | Jump 0x14b ; case 0x14 014b e5fe | | Load 0x2,-0x2 014c 8260 | ` | Call 0x1,0x60 014d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 014e 00d1 | | Pop_Control Pop_Count_1 014f 0008 | | Action Idle 0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0151 e5fe | | Load 0x2,-0x2 0152 8214 | | Call 0x1,0x14 0153 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0154 e5fe | | Load 0x2,-0x2 0155 8218 | | Call 0x1,0x18 0156 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0157 e5fe | | Load 0x2,-0x2 0158 821c | | Call 0x1,0x1c 0159 4503 |E | Exit_Suprogram New_Top_Offset 0x3 015a e5fe | | Load 0x2,-0x2 015b 8220 | | Call 0x1,0x20 015c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 015d e5fe | | Load 0x2,-0x2 015e 8224 | $ | Call 0x1,0x24 015f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0160 e5fe | | Load 0x2,-0x2 0161 8228 | ( | Call 0x1,0x28 0162 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0163 e5fe | | Load 0x2,-0x2 0164 822c | , | Call 0x1,0x2c 0165 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0166 e5fe | | Load 0x2,-0x2 0167 8230 | 0 | Call 0x1,0x30 0168 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0169 e5fe | | Load 0x2,-0x2 016a 8234 | 4 | Call 0x1,0x34 016b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016c e5fe | | Load 0x2,-0x2 016d 8238 | 8 | Call 0x1,0x38 016e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016f e5fe | | Load 0x2,-0x2 0170 823c | < | Call 0x1,0x3c 0171 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0172 e5fe | | Load 0x2,-0x2 0173 8240 | @ | Call 0x1,0x40 0174 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0175 e5fe | | Load 0x2,-0x2 0176 8244 | D | Call 0x1,0x44 0177 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0178 e5fe | | Load 0x2,-0x2 0179 8248 | H | Call 0x1,0x48 017a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017b e5fe | | Load 0x2,-0x2 017c 824c | L | Call 0x1,0x4c 017d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017e e5fe | | Load 0x2,-0x2 017f 8250 | P | Call 0x1,0x50 0180 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0181 e5fe | | Load 0x2,-0x2 0182 8254 | T | Call 0x1,0x54 0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0184 e5fe | | Load 0x2,-0x2 0185 8258 | X | Call 0x1,0x58 0186 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0187 e5fe | | Load 0x2,-0x2 0188 825c | \ | Call 0x1,0x5c 0189 4503 |E | Exit_Suprogram New_Top_Offset 0x3 018a e004 | | Load 0x0,0x4 018b 0257 | W | Execute Discrete,Raise 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 e20f | | Load 0x1,0xf 0195 1c04 | | Execute_Immediate Run_Utility,0x4 0196 0a01 | | Execute_Immediate Plus,0x1 0197 00d8 | | Load_Top At_Offset_0 0198 00e3 | | Load_Encached Natural_Cache 0199 0260 | ` | Execute Discrete,In_Type 019a 7001 |p | Jump_Nonzero 0x19c 019b 0801 | | Execute_Immediate Raise,0x1 019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ac | | .CONST 0x01ac ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 e5fd | | Load 0x2,-0x3 01a4 01da | | Execute Vector,Bounds 01a5 e005 | | Load 0x0,0x5 01a6 035b | [ | Declare_Type Array,Constrained 01a7 0337 | 7 | Declare_Variable Array 01a8 e006 | | Load 0x0,0x6 01a9 02ff | | Declare_Variable Variant_Record 01aa 00d8 | | Load_Top At_Offset_0 01ab 1c00 | | Execute_Immediate Run_Utility,0x0 01ac BODY_01a0: 01ac e007 | | Load 0x0,0x7 01ad e008 | | Load 0x0,0x8 01ae 027f | | Execute Discrete,Equal 01af 6802 |h | Jump_Zero 0x1b2 01b0 e009 | | Load 0x0,0x9 01b1 0257 | W | Execute Discrete,Raise 01b2 00d9 | | Load_Top At_Offset_1 01b3 e5fd | | Load 0x2,-0x3 01b4 800a | | Call 0x0,0xa 01b5 00d1 | | Pop_Control Pop_Count_1 01b6 e007 | | Load 0x0,0x7 01b7 0a01 | | Execute_Immediate Plus,0x1 01b8 c007 | | Store 0x0,0x7 01b9 00d8 | | Load_Top At_Offset_0 01ba 800b | | Call 0x0,0xb 01bb 00d1 | | Pop_Control Pop_Count_1 01bc e5fd | | Load 0x2,-0x3 01bd 01db | | Execute Vector,Length 01be e00c | | Load 0x0,0xc 01bf 1c08 | | Execute_Immediate Run_Utility,0x8 01c0 00d9 | | Load_Top At_Offset_1 01c1 00d9 | | Load_Top At_Offset_1 01c2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01c3 e20e | | Load 0x1,0xe 01c4 00d9 | | Load_Top At_Offset_1 01c5 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01c6 e5ff | | Load 0x2,-0x1 01c7 00d8 | | Load_Top At_Offset_0 01c8 e20f | | Load 0x1,0xf 01c9 0260 | ` | Execute Discrete,In_Type 01ca 7001 |p | Jump_Nonzero 0x1cc 01cb 0801 | | Execute_Immediate Raise,0x1 01cc 8262 | b | Call 0x1,0x62 01cd 00d9 | | Load_Top At_Offset_1 01ce 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 01cf e5fe | | Load 0x2,-0x2 01d0 800d | | Call 0x0,0xd 01d1 00d9 | | Load_Top At_Offset_1 01d2 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 01d3 00da | | Load_Top At_Offset_2 01d4 00d9 | | Load_Top At_Offset_1 01d5 00d8 | | Load_Top At_Offset_0 01d6 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 01d7 00da | | Load_Top At_Offset_2 01d8 01da | | Execute Vector,Bounds 01d9 00da | | Load_Top At_Offset_2 01da 01da | | Execute Vector,Bounds 01db 00da | | Load_Top At_Offset_2 01dc 027f | | Execute Discrete,Equal 01dd 7001 |p | Jump_Nonzero 0x1df 01de 08e0 | | Execute_Immediate Raise,0xe0 01df 00cd | | Action Spare6_Action 01e0 027f | | Execute Discrete,Equal 01e1 7001 |p | Jump_Nonzero 0x1e3 01e2 08e0 | | Execute_Immediate Raise,0xe0 01e3 00d2 | | Pop_Control Pop_Count_2 01e4 00d9 | | Load_Top At_Offset_1 01e5 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6 01e6 e007 | | Load 0x0,0x7 01e7 e003 | | Load 0x0,0x3 01e8 01d6 | | Execute Vector,Field_Write 01e9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug Table 01f0 ; -------------------------------------------------------------------------------------- 01f0 0004 0006 | | .DEBUG4 0x0004,0x0006,0xb33b,0x0000,0x0001,0x0005 01f6 000b 020a | | .DBG4T 0x000b,0x020a,0x4000,0x0000 01fa 000e 020d | | .DBG4T 0x000e,0x020d,0x4000,0x0000 01fe 0123 023a | # :| .DBG4T 0x0123,0x023a,0x1001,0x4000 0202 0193 026e | n| .DBG4T 0x0193,0x026e,0x1002,0x0000 0206 01a3 0271 | q| .DBG4T 0x01a3,0x0271,0x1001,0x0000 020a ; -------------------------------------------------------------------------------------- 020a ; Debug chain 020a ; -------------------------------------------------------------------------------------- 020a 0001 0000 | | .DBGLEN 0x0001,0x0000 020c 000b | | .DBGLNO 0x000b 020d ; -------------------------------------------------------------------------------------- 020d ; Debug chain 020d ; -------------------------------------------------------------------------------------- 020d 0003 0028 | (| .DBGLEN 0x0003,0x0028 020f 000e 0010 | | .DBGLNO 0x000e,0x0010,0x0012,0x0014,0x0018,0x0021,0x0025,0x002e,0x0032,0x003b,0x003f,0x0048,0x004c,0x0055,0x0059,0x0062,0x0066,0x006f,0x0073,0x007c,0x0080,0x0089,0x008d,0x0096,0x009a,0x00a3,0x00a7,0x00b0,0x00b4,0x00bd,0x00c1,0x00ca,0x00ce,0x00d7,0x00db,0x00e4,0x00e8,0x00f1,0x00f5,0x00fe,0x0102,0x010b,0x010f 023a ; -------------------------------------------------------------------------------------- 023a ; Debug chain 023a ; -------------------------------------------------------------------------------------- 023a 0002 0018 | | .DBGLEN 0x0002,0x0018 023c 0123 0128 | # (| .DBGLNO 0x0123,0x0128,0x012d,0x0131,0x014b,0x014f,0x0151,0x0154,0x0157,0x015a,0x015d,0x0160,0x0163,0x0166,0x0169,0x016c,0x016f,0x0172,0x0175,0x0178,0x017b,0x017e,0x0181,0x0184,0x0187,0x018a 0256 0001 0002 | | .XXX[0x18] 0258 0016 0017 | | 025a 0003 0004 | | 025c 0005 0006 | | 025e 0007 0008 | | 0260 0009 000a | | 0262 000b 000c | | 0264 000d 000e | | 0266 000f 0010 | | 0268 0011 0012 | | 026a 0013 0014 | | 026c 0015 0018 | | 026e ; -------------------------------------------------------------------------------------- 026e ; Debug chain 026e ; -------------------------------------------------------------------------------------- 026e 0000 0001 | | .DBGLEN 0x0000,0x0001 0270 0193 | | .DBGLNO 0x0193 0271 ; -------------------------------------------------------------------------------------- 0271 ; Debug chain 0271 ; -------------------------------------------------------------------------------------- 0271 0002 0006 | | .DBGLEN 0x0002,0x0006 0273 01a3 01a8 | | .DBGLNO 0x01a3,0x01a8,0x01ac,0x01b0,0x01b2,0x01b6,0x01b9,0x01bc 027b 0000 0000 | | .BLANK 0000[0x185]