|
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_02f8e7
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0350 | P | .CONST 0x0350 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00d1 | | .CONST 0x00d1 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4809 |H | Short_Literal 0x9 000d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00e8 | | Load_Encached Character_Cache 0011 0266 | f | Execute Discrete,Bounds 0012 e20d | | Load 0x1,0xd 0013 02a0 | | Declare_Subprogram Null_Subprogram 0014 4801 |H | Short_Literal 0x1 0015 035e | ^ | Declare_Type Array,Defined,Visible 0016 00e8 | | Load_Encached Character_Cache 0017 0266 | f | Execute Discrete,Bounds 0018 00e1 | | Load_Encached Boolean_Cache 0019 02a0 | | Declare_Subprogram Null_Subprogram 001a 4801 |H | Short_Literal 0x1 001b 035e | ^ | Declare_Type Array,Defined,Visible 001c e20e | | Load 0x1,0xe 001d 0336 | 6 | Declare_Variable Array,Visible 001e e20e | | Load 0x1,0xe 001f 0337 | 7 | Declare_Variable Array 0020 487e |H~ | Short_Literal 0x7e 0021 4820 |H | Short_Literal 0x20 0022 4801 |H | Short_Literal 0x1 0023 e213 | | Load 0x1,0x13 0024 e211 | | Load 0x1,0x11 0025 01d6 | | Execute Vector,Field_Write 0026 3ffb |? | Loop_Increasing 0x22 0027 4802 |H | Short_Literal 0x2 0028 480d |H | Short_Literal 0xd 0029 e211 | | Load 0x1,0x11 002a 01d6 | | Execute Vector,Field_Write 002b 4802 |H | Short_Literal 0x2 002c 480a |H | Short_Literal 0xa 002d e211 | | Load 0x1,0x11 002e 01d6 | | Execute Vector,Field_Write 002f 4802 |H | Short_Literal 0x2 0030 480c |H | Short_Literal 0xc 0031 e211 | | Load 0x1,0x11 0032 01d6 | | Execute Vector,Field_Write 0033 4803 |H | Short_Literal 0x3 0034 4808 |H | Short_Literal 0x8 0035 e211 | | Load 0x1,0x11 0036 01d6 | | Execute Vector,Field_Write 0037 4803 |H | Short_Literal 0x3 0038 487f |H | Short_Literal 0x7f 0039 e211 | | Load 0x1,0x11 003a 01d6 | | Execute Vector,Field_Write 003b 4804 |H | Short_Literal 0x4 003c 4815 |H | Short_Literal 0x15 003d e211 | | Load 0x1,0x11 003e 01d6 | | Execute Vector,Field_Write 003f 4804 |H | Short_Literal 0x4 0040 4818 |H | Short_Literal 0x18 0041 e211 | | Load 0x1,0x11 0042 01d6 | | Execute Vector,Field_Write 0043 4804 |H | Short_Literal 0x4 0044 480e |H | Short_Literal 0xe 0045 e211 | | Load 0x1,0x11 0046 01d6 | | Execute Vector,Field_Write 0047 4805 |H | Short_Literal 0x5 0048 4801 |H | Short_Literal 0x1 0049 e211 | | Load 0x1,0x11 004a 01d6 | | Execute Vector,Field_Write 004b 4805 |H | Short_Literal 0x5 004c 4802 |H | Short_Literal 0x2 004d e211 | | Load 0x1,0x11 004e 01d6 | | Execute Vector,Field_Write 004f 4805 |H | Short_Literal 0x5 0050 4810 |H | Short_Literal 0x10 0051 e211 | | Load 0x1,0x11 0052 01d6 | | Execute Vector,Field_Write 0053 4800 |H | Short_Literal 0x0 0054 4800 |H | Short_Literal 0x0 0055 e211 | | Load 0x1,0x11 0056 01d6 | | Execute Vector,Field_Write 0057 4807 |H | Short_Literal 0x7 0058 4803 |H | Short_Literal 0x3 0059 4800 |H | Short_Literal 0x0 005a e213 | | Load 0x1,0x13 005b e211 | | Load 0x1,0x11 005c 01d6 | | Execute Vector,Field_Write 005d 3ffb |? | Loop_Increasing 0x59 005e 4800 |H | Short_Literal 0x0 005f 4809 |H | Short_Literal 0x9 0060 e211 | | Load 0x1,0x11 0061 01d6 | | Execute Vector,Field_Write 0062 4800 |H | Short_Literal 0x0 0063 480b |H | Short_Literal 0xb 0064 e211 | | Load 0x1,0x11 0065 01d6 | | Execute Vector,Field_Write 0066 4800 |H | Short_Literal 0x0 0067 480f |H | Short_Literal 0xf 0068 e211 | | Load 0x1,0x11 0069 01d6 | | Execute Vector,Field_Write 006a 4814 |H | Short_Literal 0x14 006b 4811 |H | Short_Literal 0x11 006c 4800 |H | Short_Literal 0x0 006d e213 | | Load 0x1,0x13 006e e211 | | Load 0x1,0x11 006f 01d6 | | Execute Vector,Field_Write 0070 3ffb |? | Loop_Increasing 0x6c 0071 4800 |H | Short_Literal 0x0 0072 4816 |H | Short_Literal 0x16 0073 e211 | | Load 0x1,0x11 0074 01d6 | | Execute Vector,Field_Write 0075 4800 |H | Short_Literal 0x0 0076 4817 |H | Short_Literal 0x17 0077 e211 | | Load 0x1,0x11 0078 01d6 | | Execute Vector,Field_Write 0079 481f |H | Short_Literal 0x1f 007a 4819 |H | Short_Literal 0x19 007b 4800 |H | Short_Literal 0x0 007c e213 | | Load 0x1,0x13 007d e211 | | Load 0x1,0x11 007e 01d6 | | Execute Vector,Field_Write 007f 3ffb |? | Loop_Increasing 0x7b 0080 e20e | | Load 0x1,0xe 0081 01c3 | | Execute Vector,Check_In_Type 0082 e210 | | Load 0x1,0x10 0083 01d4 | | Execute Vector,Structure_Write 0084 e20f | | Load 0x1,0xf 0085 0336 | 6 | Declare_Variable Array,Visible 0086 e20f | | Load 0x1,0xf 0087 0337 | 7 | Declare_Variable Array 0088 4801 |H | Short_Literal 0x1 0089 480d |H | Short_Literal 0xd 008a e212 | | Load 0x1,0x12 008b 01d6 | | Execute Vector,Field_Write 008c 4801 |H | Short_Literal 0x1 008d 480a |H | Short_Literal 0xa 008e e212 | | Load 0x1,0x12 008f 01d6 | | Execute Vector,Field_Write 0090 4801 |H | Short_Literal 0x1 0091 480c |H | Short_Literal 0xc 0092 e212 | | Load 0x1,0x12 0093 01d6 | | Execute Vector,Field_Write 0094 4801 |H | Short_Literal 0x1 0095 4807 |H | Short_Literal 0x7 0096 e212 | | Load 0x1,0x12 0097 01d6 | | Execute Vector,Field_Write 0098 4806 |H | Short_Literal 0x6 0099 4800 |H | Short_Literal 0x0 009a 4800 |H | Short_Literal 0x0 009b e214 | | Load 0x1,0x14 009c e212 | | Load 0x1,0x12 009d 01d6 | | Execute Vector,Field_Write 009e 3ffb |? | Loop_Increasing 0x9a 009f 4800 |H | Short_Literal 0x0 00a0 4808 |H | Short_Literal 0x8 00a1 e212 | | Load 0x1,0x12 00a2 01d6 | | Execute Vector,Field_Write 00a3 4800 |H | Short_Literal 0x0 00a4 4809 |H | Short_Literal 0x9 00a5 e212 | | Load 0x1,0x12 00a6 01d6 | | Execute Vector,Field_Write 00a7 4800 |H | Short_Literal 0x0 00a8 480b |H | Short_Literal 0xb 00a9 e212 | | Load 0x1,0x12 00aa 01d6 | | Execute Vector,Field_Write 00ab 487f |H | Short_Literal 0x7f 00ac 480e |H | Short_Literal 0xe 00ad 4800 |H | Short_Literal 0x0 00ae e214 | | Load 0x1,0x14 00af e212 | | Load 0x1,0x12 00b0 01d6 | | Execute Vector,Field_Write 00b1 3ffb |? | Loop_Increasing 0xad 00b2 e20f | | Load 0x1,0xf 00b3 01c3 | | Execute Vector,Check_In_Type 00b4 e211 | | Load 0x1,0x11 00b5 01d4 | | Execute Vector,Structure_Write 00b6 00e4 | | Load_Encached Positive_Cache 00b7 4800 |H | Short_Literal 0x0 00b8 4802 |H | Short_Literal 0x2 00b9 4801 |H | Short_Literal 0x1 00ba 4806 |H | Short_Literal 0x6 00bb 0319 | | Declare_Type Variant_Record,Incomplete,Visible 00bc 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 00be 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 00c0 00e4 | | Load_Encached Positive_Cache 00c1 00e3 | | Load_Encached Natural_Cache 00c2 00e3 | | Load_Encached Natural_Cache 00c3 00e9 | | Load_Encached String_Cache 00c4 00e9 | | Load_Encached String_Cache 00c5 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 00c7 4800 |H | Short_Literal 0x0 00c8 4802 |H | Short_Literal 0x2 00c9 4803 |H | Short_Literal 0x3 00ca e212 | | Load 0x1,0x12 00cb 0307 | | Complete_Type Variant_Record,By_Defining 00cc 00bf | | Action Accept_Activation 00cd 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00ce 00c7 | | Action Elaborate_Subprogram 00cf 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d0 00c7 | | Action Elaborate_Subprogram 00d1 BODY_0008: 00d1 00bc | | Action Signal_Activated 00d2 00bb | | Action Signal_Completion 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4603 |F | Jump_Case 0x4 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00dd 7802 |x | Jump 0xe0 ; case 0x1 00de 7805 |x | Jump 0xe4 ; case 0x2 00df 7809 |x | Jump 0xe9 ; case 0x3 00e0 e5ff | | Load 0x2,-0x1 00e1 0091 0311 | | Action Push_String_Extended_Indexed,0x311 ; "IGNORE" 00e3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e4 e5fe | | Load 0x2,-0x2 00e5 e5ff | | Load 0x2,-0x1 00e6 00e0 | | Load_Encached Standard_Cache 00e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e9 e5ff | | Load 0x2,-0x1 00ea 00e0 | | Load_Encached Standard_Cache 00eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ec 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4801 |H | Short_Literal 0x1 00f4 e5ff | | Load 0x2,-0x1 00f5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00f6 4800 |H | Short_Literal 0x0 00f7 e5ff | | Load 0x2,-0x1 00f8 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fa 0000 0000 | | .BLANK 0000[0x6] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 011e | | .CONST 0x011e ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 000e | | .CONST 0x000e ; Number of locals 0103 INIT_0100: 0103 e5f4 | | Load 0x2,-0xc 0104 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0105 0007 | | Action Break_Optional 0106 e5f4 | | Load 0x2,-0xc 0107 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0108 0007 | | Action Break_Optional 0109 e5f4 | | Load 0x2,-0xc 010a 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 010b 0007 | | Action Break_Optional 010c 00e4 | | Load_Encached Positive_Cache 010d 00e3 | | Load_Encached Natural_Cache 010e 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0110 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 0112 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 0114 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 0116 029f 029b | | Declare_Subprogram INIT_0298,For_Call 0118 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 011a 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 011c 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 011e BODY_0100: 011e 8407 | | Call 0x2,0x7 011f 00cf | | Action Mark_Auxiliary 0120 0007 | | Action Break_Optional 0121 e406 | | Load 0x2,0x6 0122 e402 | | Load 0x2,0x2 0123 01dc | | Execute Vector,Last 0124 027d | } | Execute Discrete,Greater 0125 6803 |h | Jump_Zero 0x129 0126 4801 |H | Short_Literal 0x1 0127 a406 | | Store_Unchecked 0x2,0x6 0128 7867 |xg | Jump 0x190 0129 00cf | | Action Mark_Auxiliary 012a 7810 |x | Jump 0x13b 012b e406 | | Load 0x2,0x6 012c e404 | | Load 0x2,0x4 012d 0a01 | | Execute_Immediate Plus,0x1 012e 027f | | Execute Discrete,Equal 012f 7002 |p | Jump_Nonzero 0x132 0130 4887 |H | Short_Literal 0x87 0131 0257 | W | Execute Discrete,Raise 0132 e405 | | Load 0x2,0x5 0133 e404 | | Load 0x2,0x4 0134 e402 | | Load 0x2,0x2 0135 01cf | | Execute Vector,Slice_Read 0136 8408 | | Call 0x2,0x8 0137 e406 | | Load 0x2,0x6 0138 c405 | | Store 0x2,0x5 0139 840e | | Call 0x2,0xe 013a 00c9 | | Action Pop_Auxiliary_Loop 013b e406 | | Load 0x2,0x6 013c e404 | | Load 0x2,0x4 013d 027d | } | Execute Discrete,Greater 013e 77ec |w | Jump_Nonzero 0x12b 013f 00c9 | | Action Pop_Auxiliary_Loop 0140 7848 |xH | Jump 0x189 0141 e406 | | Load 0x2,0x6 0142 e402 | | Load 0x2,0x2 0143 01d7 | | Execute Vector,Field_Read 0144 e5fa | | Load 0x2,-0x6 0145 01d7 | | Execute Vector,Field_Read 0146 0f02 | | Execute_Immediate Equal,0x2 0147 681d |h | Jump_Zero 0x165 0148 e5f8 | | Load 0x2,-0x8 0149 e406 | | Load 0x2,0x6 014a e402 | | Load 0x2,0x2 014b 01d6 | | Execute Vector,Field_Write 014c e406 | | Load 0x2,0x6 014d 0aff | | Execute_Immediate Plus,-0x1 014e e5f4 | | Load 0x2,-0xc 014f 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0150 e5f4 | | Load 0x2,-0xc 0151 00d8 | | Load_Top At_Offset_0 0152 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0153 00d8 | | Load_Top At_Offset_0 0154 4801 |H | Short_Literal 0x1 0155 e406 | | Load 0x2,0x6 0156 0aff | | Execute_Immediate Plus,-0x1 0157 0248 | H | Execute Discrete,Check_In_Integer 0158 4801 |H | Short_Literal 0x1 0159 e406 | | Load 0x2,0x6 015a 0aff | | Execute_Immediate Plus,-0x1 015b 0248 | H | Execute Discrete,Check_In_Integer 015c e402 | | Load 0x2,0x2 015d 01cf | | Execute Vector,Slice_Read 015e e414 | | Load 0x2,0x14 015f e415 | | Load 0x2,0x15 0160 e413 | | Load 0x2,0x13 0161 01ce | | Execute Vector,Slice_Write 0162 00d3 | | Pop_Control Pop_Count_3 0163 00d0 | | Action Swap_Control 0164 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6 0165 e406 | | Load 0x2,0x6 0166 e402 | | Load 0x2,0x2 0167 01d7 | | Execute Vector,Field_Read 0168 e5f9 | | Load 0x2,-0x7 0169 01d7 | | Execute Vector,Field_Read 016a 6802 |h | Jump_Zero 0x16d 016b 00ce | | Action Pop_Auxiliary 016c 7823 |x# | Jump 0x190 016d e406 | | Load 0x2,0x6 016e e402 | | Load 0x2,0x2 016f 01d7 | | Execute Vector,Field_Read 0170 e5fa | | Load 0x2,-0x6 0171 01d7 | | Execute Vector,Field_Read 0172 4609 |F | Jump_Case 0xa 0173 7813 |x | Jump 0x187 ; case 0x0 0174 7808 |x | Jump 0x17d ; case 0x1 0175 7807 |x | Jump 0x17d ; case 0x2 0176 780a |x | Jump 0x181 ; case 0x3 0177 780b |x | Jump 0x183 ; case 0x4 0178 780c |x | Jump 0x185 ; case 0x5 0179 780d |x | Jump 0x187 ; case 0x6 017a 780c |x | Jump 0x187 ; case 0x7 017b 780b |x | Jump 0x187 ; case 0x8 017c 780a |x | Jump 0x187 ; case 0x9 017d e406 | | Load 0x2,0x6 017e 0a01 | | Execute_Immediate Plus,0x1 017f c406 | | Store 0x2,0x6 0180 7807 |x | Jump 0x188 0181 840b | | Call 0x2,0xb 0182 7805 |x | Jump 0x188 0183 840c | | Call 0x2,0xc 0184 7803 |x | Jump 0x188 0185 840d | | Call 0x2,0xd 0186 7801 |x | Jump 0x188 0187 8409 | | Call 0x2,0x9 0188 00c9 | | Action Pop_Auxiliary_Loop 0189 e406 | | Load 0x2,0x6 018a e404 | | Load 0x2,0x4 018b 027a | z | Execute Discrete,Less_Equal 018c 77b4 |w | Jump_Nonzero 0x141 018d 00ce | | Action Pop_Auxiliary 018e 00c9 | | Action Pop_Auxiliary_Loop 018f 7f91 | | Jump 0x121 0190 00ce | | Action Pop_Auxiliary 0191 e405 | | Load 0x2,0x5 0192 e406 | | Load 0x2,0x6 0193 e402 | | Load 0x2,0x2 0194 01cf | | Execute Vector,Slice_Read 0195 8408 | | Call 0x2,0x8 0196 e406 | | Load 0x2,0x6 0197 0a01 | | Execute_Immediate Plus,0x1 0198 c405 | | Store 0x2,0x5 0199 e406 | | Load 0x2,0x6 019a e5f6 | | Load 0x2,-0xa 019b 01db | | Execute Vector,Length 019c 027b | { | Execute Discrete,Greater_Equal 019d 681f |h | Jump_Zero 0x1bd 019e e5f6 | | Load 0x2,-0xa 019f 01db | | Execute Vector,Length 01a0 c5f5 | | Store 0x2,-0xb 01a1 4801 |H | Short_Literal 0x1 01a2 e5f6 | | Load 0x2,-0xa 01a3 01db | | Execute Vector,Length 01a4 e402 | | Load 0x2,0x2 01a5 01cf | | Execute Vector,Slice_Read 01a6 e5f6 | | Load 0x2,-0xa 01a7 01d4 | | Execute Vector,Structure_Write 01a8 e5f6 | | Load 0x2,-0xa 01a9 01db | | Execute Vector,Length 01aa 0a01 | | Execute_Immediate Plus,0x1 01ab 0248 | H | Execute Discrete,Check_In_Integer 01ac e404 | | Load 0x2,0x4 01ad e402 | | Load 0x2,0x2 01ae 01cf | | Execute Vector,Slice_Read 01af 4801 |H | Short_Literal 0x1 01b0 e404 | | Load 0x2,0x4 01b1 e5f6 | | Load 0x2,-0xa 01b2 01db | | Execute Vector,Length 01b3 0272 | r | Execute Discrete,Minus 01b4 0248 | H | Execute Discrete,Check_In_Integer 01b5 e402 | | Load 0x2,0x2 01b6 01ce | | Execute Vector,Slice_Write 01b7 e404 | | Load 0x2,0x4 01b8 e5f6 | | Load 0x2,-0xa 01b9 01db | | Execute Vector,Length 01ba 0272 | r | Execute Discrete,Minus 01bb c404 | | Store 0x2,0x4 01bc 4509 |E | Exit_Suprogram New_Top_Offset 0x9 01bd e406 | | Load 0x2,0x6 01be 0c01 | | Execute_Immediate Greater_Equal,0x1 01bf 6822 |h" | Jump_Zero 0x1e2 01c0 e406 | | Load 0x2,0x6 01c1 a5f5 | | Store_Unchecked 0x2,-0xb 01c2 4801 |H | Short_Literal 0x1 01c3 e406 | | Load 0x2,0x6 01c4 e402 | | Load 0x2,0x2 01c5 01cf | | Execute Vector,Slice_Read 01c6 e5f6 | | Load 0x2,-0xa 01c7 01dd | | Execute Vector,First 01c8 e5f6 | | Load 0x2,-0xa 01c9 01dd | | Execute Vector,First 01ca e406 | | Load 0x2,0x6 01cb 0273 | s | Execute Discrete,Plus 01cc 0aff | | Execute_Immediate Plus,-0x1 01cd 0248 | H | Execute Discrete,Check_In_Integer 01ce e5f6 | | Load 0x2,-0xa 01cf 01ce | | Execute Vector,Slice_Write 01d0 e406 | | Load 0x2,0x6 01d1 0a01 | | Execute_Immediate Plus,0x1 01d2 0248 | H | Execute Discrete,Check_In_Integer 01d3 e404 | | Load 0x2,0x4 01d4 e402 | | Load 0x2,0x2 01d5 01cf | | Execute Vector,Slice_Read 01d6 4801 |H | Short_Literal 0x1 01d7 e404 | | Load 0x2,0x4 01d8 e406 | | Load 0x2,0x6 01d9 0272 | r | Execute Discrete,Minus 01da 0248 | H | Execute Discrete,Check_In_Integer 01db e402 | | Load 0x2,0x2 01dc 01ce | | Execute Vector,Slice_Write 01dd e404 | | Load 0x2,0x4 01de e406 | | Load 0x2,0x6 01df 0272 | r | Execute Discrete,Minus 01e0 c404 | | Store 0x2,0x4 01e1 4509 |E | Exit_Suprogram New_Top_Offset 0x9 01e2 e406 | | Load 0x2,0x6 01e3 a5f5 | | Store_Unchecked 0x2,-0xb 01e4 4509 |E | Exit_Suprogram New_Top_Offset 0x9 01e5 0000 0000 | | .XXX[0x3] 01e7 0000 | | 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4608 |F | Jump_Case 0x9 01ec 7808 |x | Jump 0x1f5 ; case 0x0 01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ee 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 01ef 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 01f0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 01f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 01f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 01f3 780b |x | Jump 0x1ff ; case 0x7 01f4 7817 |x | Jump 0x20c ; case 0x8 01f5 4801 |H | Short_Literal 0x1 01f6 e5ff | | Load 0x2,-0x1 01f7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01f8 4800 |H | Short_Literal 0x0 01f9 e5ff | | Load 0x2,-0x1 01fa 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 01fb 4800 |H | Short_Literal 0x0 01fc e5ff | | Load 0x2,-0x1 01fd 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 01fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ff e5fe | | Load 0x2,-0x2 0200 4801 |H | Short_Literal 0x1 0201 e5fe | | Load 0x2,-0x2 0202 00e9 | | Load_Encached String_Cache 0203 035b | [ | Declare_Type Array,Constrained 0204 4801 |H | Short_Literal 0x1 0205 e5fe | | Load 0x2,-0x2 0206 00e9 | | Load_Encached String_Cache 0207 035b | [ | Declare_Type Array,Constrained 0208 4802 |H | Short_Literal 0x2 0209 e5ff | | Load 0x2,-0x1 020a 031b | | Declare_Type Variant_Record,Constrained 020b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 020c e5fe | | Load 0x2,-0x2 020d e5ff | | Load 0x2,-0x1 020e 02fc | | Declare_Variable Variant_Record,With_Constraint 020f 4801 |H | Short_Literal 0x1 0210 e5fe | | Load 0x2,-0x2 0211 00e9 | | Load_Encached String_Cache 0212 0334 | 4 | Declare_Variable Array,With_Constraint 0213 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5 0214 4801 |H | Short_Literal 0x1 0215 e5fe | | Load 0x2,-0x2 0216 00e9 | | Load_Encached String_Cache 0217 0334 | 4 | Declare_Variable Array,With_Constraint 0218 2d06 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6 0219 016a | j | QQ_execute Variant_Record,XXX 021a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021b 0000 0000 | | .BLANK 0000[0x5] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e404 | | Load 0x2,0x4 0224 0a01 | | Execute_Immediate Plus,0x1 0225 c405 | | Store 0x2,0x5 0226 e405 | | Load 0x2,0x5 0227 a406 | | Store_Unchecked 0x2,0x6 0228 00cf | | Action Mark_Auxiliary 0229 e404 | | Load 0x2,0x4 022a 4801 |H | Short_Literal 0x1 022b 0263 | c | Execute Discrete,Above_Bound 022c 7010 |p | Jump_Nonzero 0x23d 022d 00d8 | | Load_Top At_Offset_0 022e e402 | | Load 0x2,0x2 022f 01d7 | | Execute Vector,Field_Read 0230 e5fa | | Load 0x2,-0x6 0231 01d7 | | Execute Vector,Field_Read 0232 0e01 | | Execute_Immediate Not_Equal,0x1 0233 6807 |h | Jump_Zero 0x23b 0234 00d8 | | Load_Top At_Offset_0 0235 a406 | | Store_Unchecked 0x2,0x6 0236 00d8 | | Load_Top At_Offset_0 0237 0a01 | | Execute_Immediate Plus,0x1 0238 c405 | | Store 0x2,0x5 0239 00d2 | | Pop_Control Pop_Count_2 023a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023b 00c8 | | Action Pop_Auxiliary_Range 023c 3ff0 |? | Loop_Increasing 0x22d 023d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023e 0000 0000 | | .XXX[0x2] 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 e5f7 | | Load 0x2,-0x9 0244 e5fb | | Load 0x2,-0x5 0245 e7ff | | Load 0x3,-0x1 0246 85fe | | Call 0x2,-0x2 0247 c5f7 | | Store 0x2,-0x9 0248 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0249 0000 0000 | | .BLANK 0000[0x7] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e406 | | Load 0x2,0x6 0254 0a01 | | Execute_Immediate Plus,0x1 0255 0248 | H | Execute Discrete,Check_In_Integer 0256 e404 | | Load 0x2,0x4 0257 e402 | | Load 0x2,0x2 0258 01cf | | Execute Vector,Slice_Read 0259 e406 | | Load 0x2,0x6 025a e404 | | Load 0x2,0x4 025b 0aff | | Execute_Immediate Plus,-0x1 025c 0248 | H | Execute Discrete,Check_In_Integer 025d e402 | | Load 0x2,0x2 025e 01ce | | Execute Vector,Slice_Write 025f e404 | | Load 0x2,0x4 0260 0aff | | Execute_Immediate Plus,-0x1 0261 c404 | | Store 0x2,0x4 0262 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0263 0000 0000 | | .BLANK 0000[0x5] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0281 | | .CONST 0x0281 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b 4801 |H | Short_Literal 0x1 026c 4803 |H | Short_Literal 0x3 026d 00e9 | | Load_Encached String_Cache 026e 0334 | 4 | Declare_Variable Array,With_Constraint 026f 4801 |H | Short_Literal 0x1 0270 4803 |H | Short_Literal 0x3 0271 00e9 | | Load_Encached String_Cache 0272 0334 | 4 | Declare_Variable Array,With_Constraint 0273 4808 |H | Short_Literal 0x8 0274 4801 |H | Short_Literal 0x1 0275 e603 | | Load 0x3,0x3 0276 01d6 | | Execute Vector,Field_Write 0277 4820 |H | Short_Literal 0x20 0278 4802 |H | Short_Literal 0x2 0279 e603 | | Load 0x3,0x3 027a 01d6 | | Execute Vector,Field_Write 027b 4808 |H | Short_Literal 0x8 027c 4803 |H | Short_Literal 0x3 027d e603 | | Load 0x3,0x3 027e 01d6 | | Execute Vector,Field_Write 027f e602 | | Load 0x3,0x2 0280 01d4 | | Execute Vector,Structure_Write 0281 BODY_0268: 0281 e405 | | Load 0x2,0x5 0282 e406 | | Load 0x2,0x6 0283 027d | } | Execute Discrete,Greater 0284 680e |h | Jump_Zero 0x293 0285 00cf | | Action Mark_Auxiliary 0286 e405 | | Load 0x2,0x5 0287 0aff | | Execute_Immediate Plus,-0x1 0288 0248 | H | Execute Discrete,Check_In_Integer 0289 e406 | | Load 0x2,0x6 028a 0263 | c | Execute Discrete,Above_Bound 028b 7004 |p | Jump_Nonzero 0x290 028c e602 | | Load 0x3,0x2 028d 8408 | | Call 0x2,0x8 028e 00c8 | | Action Pop_Auxiliary_Range 028f 3ffc |? | Loop_Increasing 0x28c 0290 00ce | | Action Pop_Auxiliary 0291 e406 | | Load 0x2,0x6 0292 c405 | | Store 0x2,0x5 0293 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0294 0000 0000 | | .BLANK 0000[0x4] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e406 | | Load 0x2,0x6 029c 0c02 | | Execute_Immediate Greater_Equal,0x2 029d 6816 |h | Jump_Zero 0x2b4 029e e406 | | Load 0x2,0x6 029f 0a01 | | Execute_Immediate Plus,0x1 02a0 0248 | H | Execute Discrete,Check_In_Integer 02a1 e404 | | Load 0x2,0x4 02a2 e402 | | Load 0x2,0x2 02a3 01cf | | Execute Vector,Slice_Read 02a4 e406 | | Load 0x2,0x6 02a5 0aff | | Execute_Immediate Plus,-0x1 02a6 0248 | H | Execute Discrete,Check_In_Integer 02a7 e404 | | Load 0x2,0x4 02a8 0afe | | Execute_Immediate Plus,-0x2 02a9 0248 | H | Execute Discrete,Check_In_Integer 02aa e402 | | Load 0x2,0x2 02ab 01ce | | Execute Vector,Slice_Write 02ac e404 | | Load 0x2,0x4 02ad 0afe | | Execute_Immediate Plus,-0x2 02ae c404 | | Store 0x2,0x4 02af e406 | | Load 0x2,0x6 02b0 0aff | | Execute_Immediate Plus,-0x1 02b1 c406 | | Store 0x2,0x6 02b2 840a | | Call 0x2,0xa 02b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b4 8409 | | Call 0x2,0x9 02b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b6 0000 0000 | | .XXX[0x2] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb e406 | | Load 0x2,0x6 02bc 0c02 | | Execute_Immediate Greater_Equal,0x2 02bd 6815 |h | Jump_Zero 0x2d3 02be e406 | | Load 0x2,0x6 02bf 0a01 | | Execute_Immediate Plus,0x1 02c0 0248 | H | Execute Discrete,Check_In_Integer 02c1 e404 | | Load 0x2,0x4 02c2 e402 | | Load 0x2,0x2 02c3 01cf | | Execute Vector,Slice_Read 02c4 4801 |H | Short_Literal 0x1 02c5 e404 | | Load 0x2,0x4 02c6 e406 | | Load 0x2,0x6 02c7 0272 | r | Execute Discrete,Minus 02c8 0248 | H | Execute Discrete,Check_In_Integer 02c9 e402 | | Load 0x2,0x2 02ca 01ce | | Execute Vector,Slice_Write 02cb e404 | | Load 0x2,0x4 02cc e406 | | Load 0x2,0x6 02cd 0272 | r | Execute Discrete,Minus 02ce c404 | | Store 0x2,0x4 02cf 4801 |H | Short_Literal 0x1 02d0 a406 | | Store_Unchecked 0x2,0x6 02d1 840a | | Call 0x2,0xa 02d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d3 8409 | | Call 0x2,0x9 02d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d5 0000 0000 | | .XXX[0x3] 02d7 0000 | | 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 840c | | Call 0x2,0xc 02dc e5f4 | | Load 0x2,-0xc 02dd 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 02de a404 | | Store_Unchecked 0x2,0x4 02df 4801 |H | Short_Literal 0x1 02e0 e404 | | Load 0x2,0x4 02e1 e5f4 | | Load 0x2,-0xc 02e2 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 02e3 01cf | | Execute Vector,Slice_Read 02e4 4801 |H | Short_Literal 0x1 02e5 e404 | | Load 0x2,0x4 02e6 e402 | | Load 0x2,0x2 02e7 01ce | | Execute Vector,Slice_Write 02e8 4801 |H | Short_Literal 0x1 02e9 a405 | | Store_Unchecked 0x2,0x5 02ea e404 | | Load 0x2,0x4 02eb 0a01 | | Execute_Immediate Plus,0x1 02ec c406 | | Store 0x2,0x6 02ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ee 0000 0000 | | .XXX[0x2] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f4 | | .CONST 0x02f4 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0002 | | .CONST 0x0002 ; Number of locals 02f3 INIT_02f0: 02f3 00e3 | | Load_Encached Natural_Cache 02f4 BODY_02f0: 02f4 e402 | | Load 0x2,0x2 02f5 e406 | | Load 0x2,0x6 02f6 e402 | | Load 0x2,0x2 02f7 01dc | | Execute Vector,Last 02f8 e603 | | Load 0x3,0x3 02f9 035b | [ | Declare_Type Array,Constrained 02fa 00d0 | | Action Swap_Control 02fb 01cd | | Execute Vector,Slice_Reference 02fc 00e3 | | Load_Encached Natural_Cache 02fd e603 | | Load 0x3,0x3 02fe e5f7 | | Load 0x2,-0x9 02ff e5fb | | Load 0x2,-0x5 0300 85fd | | Call 0x2,-0x3 0301 c5f7 | | Store 0x2,-0x9 0302 00d1 | | Pop_Control Pop_Count_1 0303 c602 | | Store 0x3,0x2 0304 00d1 | | Pop_Control Pop_Count_1 0305 00d8 | | Load_Top At_Offset_0 0306 7005 |p | Jump_Nonzero 0x30c 0307 4800 |H | Short_Literal 0x0 0308 a406 | | Store_Unchecked 0x2,0x6 0309 00cc | | Action Pop_Block 030a 00ce | | Action Pop_Auxiliary 030b 7e84 |~ | Jump 0x190 030c e404 | | Load 0x2,0x4 030d e602 | | Load 0x3,0x2 030e 0273 | s | Execute Discrete,Plus 030f c404 | | Store 0x2,0x4 0310 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0311 ; -------------------------------------------------------------------------------------- 0311 ; STRING TABLE 0311 ; -------------------------------------------------------------------------------------- 0311 0016 | | .STRTAB 0x0016->0x031c ; "IGNORE" 0312 001a | | .STRTAB 0x001a->0x031f ; "DATA" 0313 001c | | .STRTAB 0x001c->0x0321 ; "END_OF_LINE" 0314 0025 | % | .STRTAB 0x0025->0x0326 ; "ERASE_CHAR" 0315 002d | - | .STRTAB 0x002d->0x032b ; "ERASE_LINE" 0316 0035 | 5 | .STRTAB 0x0035->0x0330 ; "PREVIOUS_LINE" 0317 0040 | @ | .STRTAB 0x0040->0x0337 ; "CURSOR_LEFT" 0318 0049 | I | .STRTAB 0x0049->0x033c ; "CURSOR_RIGHT" 0319 0053 | S | .STRTAB 0x0053->0x0342 ; "CURSOR_BEGINNING" 031a 0061 | a | .STRTAB 0x0061->0x034a ; "CURSOR_END" 031b 0069 | i | .STREND 0x0069->0x034f 031c 4947 4e4f |IGNO| .STRTAB_STRINGS 0350 ; -------------------------------------------------------------------------------------- 0350 ; Debug Table 0350 ; -------------------------------------------------------------------------------------- 0350 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb059,0x0000,0x0001,0x0000 0356 0000 0000 | | .BLANK 0000[0x7d] 03d3 0040 0002 | @ | .XXX[0x8] 03d5 7dc0 01b0 |} | 03d7 1d15 6141 | aA| 03d9 3d49 514c |=IQL| 03db 0000 0000 | | .BLANK 0000[0x25]