|
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_1884fe
└─⟦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 02a0 | | .CONST 0x02a0 ; 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 00e8 | | .CONST 0x00e8 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0039 | 9 | .CONST 0x0039 ; Number of locals 000b INIT_0008: 000b 0092 0258 | X| Action Push_String_Extended,0x258 ; "Rev2.0" 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0010 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0012 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0014 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0015 0129 | ) | Execute Any,Make_Visible 0016 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0018 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001a 4800 |H | Short_Literal 0x0 001b e001 | | Load 0x0,0x1 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 038f | | Declare_Type Package,Defined,Visible 001e 0386 | | Declare_Variable Package,Visible 001f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0021 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0023 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0025 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0027 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0029 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 002b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 002d 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 002f 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0031 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0033 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0035 e002 | | Load 0x0,0x2 0036 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0037 00bf | | Action Accept_Activation 0038 e210 | | Load 0x1,0x10 0039 0269 | i | Execute Discrete,Last 003a e210 | | Load 0x1,0x10 003b 026a | j | Execute Discrete,First 003c 0272 | r | Execute Discrete,Minus 003d 0a01 | | Execute_Immediate Plus,0x1 003e 00e4 | | Load_Encached Positive_Cache 003f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0040 e20f | | Load 0x1,0xf 0041 0269 | i | Execute Discrete,Last 0042 e20f | | Load 0x1,0xf 0043 026a | j | Execute Discrete,First 0044 0272 | r | Execute Discrete,Minus 0045 0a01 | | Execute_Immediate Plus,0x1 0046 00e4 | | Load_Encached Positive_Cache 0047 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0048 4801 |H | Short_Literal 0x1 0049 00da | | Load_Top At_Offset_2 004a 00e2 | | Load_Encached Integer_Cache 004b 03f8 | | Declare_Type Discrete,Constrained 004c 4801 |H | Short_Literal 0x1 004d 00da | | Load_Top At_Offset_2 004e 00e2 | | Load_Encached Integer_Cache 004f 03f8 | | Declare_Type Discrete,Constrained 0050 4801 |H | Short_Literal 0x1 0051 00da | | Load_Top At_Offset_2 0052 0269 | i | Execute Discrete,Last 0053 00e3 | | Load_Encached Natural_Cache 0054 02a0 | | Declare_Subprogram Null_Subprogram 0055 4801 |H | Short_Literal 0x1 0056 035d | ] | Declare_Type Array,Defined 0057 4850 |HP | Short_Literal 0x50 0058 e227 | ' | Load 0x1,0x27 0059 0270 | p | Execute Discrete,Divide 005a 00e4 | | Load_Encached Positive_Cache 005b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 005c 00d9 | | Load_Top At_Offset_1 005d 0337 | 7 | Declare_Variable Array 005e 00da | | Load_Top At_Offset_2 005f 0337 | 7 | Declare_Variable Array 0060 00e9 | | Load_Encached String_Cache 0061 02a0 | | Declare_Subprogram Null_Subprogram 0062 4818 |H | Short_Literal 0x18 0063 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0064 4801 |H | Short_Literal 0x1 0065 e22a | * | Load 0x1,0x2a 0066 0269 | i | Execute Discrete,Last 0067 4801 |H | Short_Literal 0x1 0068 e229 | ) | Load 0x1,0x29 0069 0269 | i | Execute Discrete,Last 006a e22f | / | Load 0x1,0x2f 006b 02a0 | | Declare_Subprogram Null_Subprogram 006c 4802 |H | Short_Literal 0x2 006d 035d | ] | Declare_Type Array,Defined 006e 00d8 | | Load_Top At_Offset_0 006f 0337 | 7 | Declare_Variable Array 0070 e20f | | Load 0x1,0xf 0071 026a | j | Execute Discrete,First 0072 e20f | | Load 0x1,0xf 0073 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0074 e210 | | Load 0x1,0x10 0075 026a | j | Execute Discrete,First 0076 e210 | | Load 0x1,0x10 0077 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0078 4800 |H | Short_Literal 0x0 0079 4801 |H | Short_Literal 0x1 007a 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 007c 03fd | | Declare_Type Discrete,Defined 007d 029b 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Unelaborated 007f 029b 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Unelaborated 0081 4800 |H | Short_Literal 0x0 0082 e003 | | Load 0x0,0x3 0083 02a0 | | Declare_Subprogram Null_Subprogram 0084 038e | | Declare_Type Package,Defined 0085 0387 | | Declare_Variable Package 0086 4800 |H | Short_Literal 0x0 0087 e004 | | Load 0x0,0x4 0088 02a0 | | Declare_Subprogram Null_Subprogram 0089 038e | | Declare_Type Package,Defined 008a 0387 | | Declare_Variable Package 008b 4800 |H | Short_Literal 0x0 008c e005 | | Load 0x0,0x5 008d 02a0 | | Declare_Subprogram Null_Subprogram 008e 038e | | Declare_Type Package,Defined 008f 0387 | | Declare_Variable Package 0090 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0091 00c7 | | Action Elaborate_Subprogram 0092 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0093 00c7 | | Action Elaborate_Subprogram 0094 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0097 00c7 | | Action Elaborate_Subprogram 0098 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0099 00c7 | | Action Elaborate_Subprogram 009a 1d20 | | Execute_Immediate Reference_Lex_1,0x20 009b 00c7 | | Action Elaborate_Subprogram 009c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 009d 00c7 | | Action Elaborate_Subprogram 009e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00b3 00c7 | | Action Elaborate_Subprogram 00b4 00b6 | | Action Make_Scope 00b5 00da | | Load_Top At_Offset_2 00b6 4802 |H | Short_Literal 0x2 00b7 e237 | 7 | Load 0x1,0x37 00b8 020e | | Execute Module,Augment_Imports 00b9 00da | | Load_Top At_Offset_2 00ba 020f | | Execute Module,Activate 00bb e006 | | Load 0x0,0x6 00bc e007 | | Load 0x0,0x7 00bd e008 | | Load 0x0,0x8 00be e009 | | Load 0x0,0x9 00bf e00a | | Load 0x0,0xa 00c0 e00b | | Load 0x0,0xb 00c1 4806 |H | Short_Literal 0x6 00c2 e239 | 9 | Load 0x1,0x39 00c3 020e | | Execute Module,Augment_Imports 00c4 00d8 | | Load_Top At_Offset_0 00c5 020f | | Execute Module,Activate 00c6 e007 | | Load 0x0,0x7 00c7 00b6 | | Action Make_Scope 00c8 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00c9 e22e | . | Load 0x1,0x2e 00ca 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00cb e229 | ) | Load 0x1,0x29 00cc e22d | - | Load 0x1,0x2d 00cd e22a | * | Load 0x1,0x2a 00ce e231 | 1 | Load 0x1,0x31 00cf e00c | | Load 0x0,0xc 00d0 480a |H | Short_Literal 0xa 00d1 e238 | 8 | Load 0x1,0x38 00d2 020e | | Execute Module,Augment_Imports 00d3 00d9 | | Load_Top At_Offset_1 00d4 020f | | Execute Module,Activate 00d5 e00d | | Load 0x0,0xd 00d6 e00e | | Load 0x0,0xe 00d7 e00c | | Load 0x0,0xc 00d8 e00f | | Load 0x0,0xf 00d9 e010 | | Load 0x0,0x10 00da e011 | | Load 0x0,0x11 00db e012 | | Load 0x0,0x12 00dc e013 | | Load 0x0,0x13 00dd e014 | | Load 0x0,0x14 00de e015 | | Load 0x0,0x15 00df e016 | | Load 0x0,0x16 00e0 e238 | 8 | Load 0x1,0x38 00e1 480c |H | Short_Literal 0xc 00e2 e21a | | Load 0x1,0x1a 00e3 020e | | Execute Module,Augment_Imports 00e4 e21a | | Load 0x1,0x1a 00e5 020f | | Execute Module,Activate 00e6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00e7 00c7 | | Action Elaborate_Subprogram 00e8 BODY_0008: 00e8 00bc | | Action Signal_Activated 00e9 00bb | | Action Signal_Completion 00ea 0000 0000 | | .BLANK 0000[0x6] 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 e232 | 2 | Load 0x1,0x32 00f4 00d8 | | Load_Top At_Offset_0 00f5 e20f | | Load 0x1,0xf 00f6 0260 | ` | Execute Discrete,In_Type 00f7 7001 |p | Jump_Nonzero 0xf9 00f8 0801 | | Execute_Immediate Raise,0x1 00f9 00ca | | Action Exit_Nullary_Function 00fa 0000 0000 | | .BLANK 0000[0x6] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e233 | 3 | Load 0x1,0x33 0104 00d8 | | Load_Top At_Offset_0 0105 e210 | | Load 0x1,0x10 0106 0260 | ` | Execute Discrete,In_Type 0107 7001 |p | Jump_Nonzero 0x109 0108 0801 | | Execute_Immediate Raise,0x1 0109 00ca | | Action Exit_Nullary_Function 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 e5fd | | Load 0x2,-0x3 0114 e5fe | | Load 0x2,-0x2 0115 00d8 | | Load_Top At_Offset_0 0116 e210 | | Load 0x1,0x10 0117 0260 | ` | Execute Discrete,In_Type 0118 7001 |p | Jump_Nonzero 0x11a 0119 0801 | | Execute_Immediate Raise,0x1 011a 8236 | 6 | Call 0x1,0x36 011b e5ff | | Load 0x2,-0x1 011c 00d8 | | Load_Top At_Offset_0 011d e20f | | Load 0x1,0xf 011e 0260 | ` | Execute Discrete,In_Type 011f 7001 |p | Jump_Nonzero 0x121 0120 0801 | | Execute_Immediate Raise,0x1 0121 8235 | 5 | Call 0x1,0x35 0122 e231 | 1 | Load 0x1,0x31 0123 01a7 | | Execute Matrix,Field_Read 0124 0228 | ( | Execute Access,All_Write 0125 e5fc | | Load 0x2,-0x4 0126 6810 |h | Jump_Zero 0x137 0127 00db | | Load_Top At_Offset_3 0128 00d8 | | Load_Top At_Offset_0 0129 e210 | | Load 0x1,0x10 012a 0260 | ` | Execute Discrete,In_Type 012b 7001 |p | Jump_Nonzero 0x12d 012c 0801 | | Execute_Immediate Raise,0x1 012d 8236 | 6 | Call 0x1,0x36 012e 00db | | Load_Top At_Offset_3 012f 00d8 | | Load_Top At_Offset_0 0130 e20f | | Load 0x1,0xf 0131 0260 | ` | Execute Discrete,In_Type 0132 7001 |p | Jump_Nonzero 0x134 0133 0801 | | Execute_Immediate Raise,0x1 0134 8235 | 5 | Call 0x1,0x35 0135 e238 | 8 | Load 0x1,0x38 0136 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0137 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00db | | Load_Top At_Offset_3 013c 00d8 | | Load_Top At_Offset_0 013d e210 | | Load 0x1,0x10 013e 0260 | ` | Execute Discrete,In_Type 013f 7001 |p | Jump_Nonzero 0x141 0140 0801 | | Execute_Immediate Raise,0x1 0141 8236 | 6 | Call 0x1,0x36 0142 00db | | Load_Top At_Offset_3 0143 00d8 | | Load_Top At_Offset_0 0144 e20f | | Load 0x1,0xf 0145 0260 | ` | Execute Discrete,In_Type 0146 7001 |p | Jump_Nonzero 0x148 0147 0801 | | Execute_Immediate Raise,0x1 0148 8235 | 5 | Call 0x1,0x35 0149 e231 | 1 | Load 0x1,0x31 014a 01a7 | | Execute Matrix,Field_Read 014b 0227 | ' | Execute Access,All_Reference 014c 0335 | 5 | Declare_Variable Array,Duplicate 014d 00cd | | Action Spare6_Action 014e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 00d8 | | Load_Top At_Offset_0 0155 e210 | | Load 0x1,0x10 0156 0260 | ` | Execute Discrete,In_Type 0157 7001 |p | Jump_Nonzero 0x159 0158 0801 | | Execute_Immediate Raise,0x1 0159 8236 | 6 | Call 0x1,0x36 015a e22d | - | Load 0x1,0x2d 015b 01d7 | | Execute Vector,Field_Read 015c 00d8 | | Load_Top At_Offset_0 015d 00e4 | | Load_Encached Positive_Cache 015e 0260 | ` | Execute Discrete,In_Type 015f 7001 |p | Jump_Nonzero 0x161 0160 0801 | | Execute_Immediate Raise,0x1 0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e22c | , | Load 0x1,0x2c 016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 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 4801 |H | Short_Literal 0x1 0174 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4800 |H | Short_Literal 0x0 017c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 0092 0259 | Y| Action Push_String_Extended,0x259 ; "Sorry, no help available" 0185 00ca | | Action Exit_Nullary_Function 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 0092 025a | Z| Action Push_String_Extended,0x25a ; "Sorry, no definition available" 018d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018e 0000 0000 | | .XXX[0x2] 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 0092 025b | [| Action Push_String_Extended,0x25b ; "Sorry, no error message" 0195 00ca | | Action Exit_Nullary_Function 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00cf | | Action Mark_Auxiliary 019c e20f | | Load 0x1,0xf 019d 0265 | e | Execute Discrete,Reverse_Bounds 019e 0263 | c | Execute Discrete,Above_Bound 019f 701d |p | Jump_Nonzero 0x1bd 01a0 4800 |H | Short_Literal 0x0 01a1 4801 |H | Short_Literal 0x1 01a2 e22d | - | Load 0x1,0x2d 01a3 01d7 | | Execute Vector,Field_Read 01a4 00da | | Load_Top At_Offset_2 01a5 e20f | | Load 0x1,0xf 01a6 0122 | " | Execute Any,Make_Root_Type 01a7 011c | | Execute Any,Convert_Unchecked 01a8 1c01 | | Execute_Immediate Run_Utility,0x1 01a9 e21a | | Load 0x1,0x1a 01aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ab e21a | | Load 0x1,0x1a 01ac 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ad e210 | | Load 0x1,0x10 01ae 026a | j | Execute Discrete,First 01af 00d8 | | Load_Top At_Offset_0 01b0 e210 | | Load 0x1,0x10 01b1 0260 | ` | Execute Discrete,In_Type 01b2 7001 |p | Jump_Nonzero 0x1b4 01b3 0801 | | Execute_Immediate Raise,0x1 01b4 00db | | Load_Top At_Offset_3 01b5 00d8 | | Load_Top At_Offset_0 01b6 e20f | | Load 0x1,0xf 01b7 0260 | ` | Execute Discrete,In_Type 01b8 7001 |p | Jump_Nonzero 0x1ba 01b9 0801 | | Execute_Immediate Raise,0x1 01ba 8216 | | Call 0x1,0x16 01bb 00c8 | | Action Pop_Auxiliary_Range 01bc 3fe3 |? | Loop_Increasing 0x1a0 01bd 00c9 | | Action Pop_Auxiliary_Loop 01be e210 | | Load 0x1,0x10 01bf 0265 | e | Execute Discrete,Reverse_Bounds 01c0 0263 | c | Execute Discrete,Above_Bound 01c1 7023 |p# | Jump_Nonzero 0x1e5 01c2 4800 |H | Short_Literal 0x0 01c3 00d9 | | Load_Top At_Offset_1 01c4 00d8 | | Load_Top At_Offset_0 01c5 e210 | | Load 0x1,0x10 01c6 0260 | ` | Execute Discrete,In_Type 01c7 7001 |p | Jump_Nonzero 0x1c9 01c8 0801 | | Execute_Immediate Raise,0x1 01c9 8236 | 6 | Call 0x1,0x36 01ca e22d | - | Load 0x1,0x2d 01cb 01d7 | | Execute Vector,Field_Read 01cc 00da | | Load_Top At_Offset_2 01cd e210 | | Load 0x1,0x10 01ce 0122 | " | Execute Any,Make_Root_Type 01cf 011c | | Execute Any,Convert_Unchecked 01d0 1c01 | | Execute_Immediate Run_Utility,0x1 01d1 e21a | | Load 0x1,0x1a 01d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d3 e21a | | Load 0x1,0x1a 01d4 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d5 00da | | Load_Top At_Offset_2 01d6 00d8 | | Load_Top At_Offset_0 01d7 e210 | | Load 0x1,0x10 01d8 0260 | ` | Execute Discrete,In_Type 01d9 7001 |p | Jump_Nonzero 0x1db 01da 0801 | | Execute_Immediate Raise,0x1 01db e20f | | Load 0x1,0xf 01dc 026a | j | Execute Discrete,First 01dd 00d8 | | Load_Top At_Offset_0 01de e20f | | Load 0x1,0xf 01df 0260 | ` | Execute Discrete,In_Type 01e0 7001 |p | Jump_Nonzero 0x1e2 01e1 0801 | | Execute_Immediate Raise,0x1 01e2 8216 | | Call 0x1,0x16 01e3 00c8 | | Action Pop_Auxiliary_Range 01e4 3fdd |? | Loop_Increasing 0x1c2 01e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e6 0000 0000 | | .XXX[0x2] 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 e20f | | Load 0x1,0xf 01ec 026a | j | Execute Discrete,First 01ed 005b | [ | Store_Top Discrete,At_Offset_3 01ee e210 | | Load 0x1,0x10 01ef 026a | j | Execute Discrete,First 01f0 c5fe | | Store 0x2,-0x2 01f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f2 0000 0000 | | .BLANK 0000[0x6] 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 0092 025c | \| Action Push_String_Extended,0x25c ; "<None>" 01fd 00ca | | Action Exit_Nullary_Function 01fe 0000 0000 | | .XXX[0x2] 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 0092 025d | ]| Action Push_String_Extended,0x25d ; "<Default>" 0205 00ca | | Action Exit_Nullary_Function 0206 0000 0000 | | .XXX[0x2] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 4801 |H | Short_Literal 0x1 020c 00ea | | Load_Encached Null_String_Cache 020d e21a | | Load 0x1,0x1a 020e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 020f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 4607 |F | Jump_Case 0x8 0214 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0215 7806 |x | Jump 0x21c ; case 0x1 0216 7809 |x | Jump 0x220 ; case 0x2 0217 780d |x | Jump 0x225 ; case 0x3 0218 7810 |x | Jump 0x229 ; case 0x4 0219 7811 |x | Jump 0x22b ; case 0x5 021a 7812 |x | Jump 0x22d ; case 0x6 021b 7815 |x | Jump 0x231 ; case 0x7 021c 00da | | Load_Top At_Offset_2 021d 0091 0256 | V| Action Push_String_Extended_Indexed,0x256 ; "CURSOR_LOCATION" 021f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0220 00db | | Load_Top At_Offset_3 0221 00db | | Load_Top At_Offset_3 0222 00e0 | | Load_Encached Standard_Cache 0223 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0224 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0225 00da | | Load_Top At_Offset_2 0226 00e0 | | Load_Encached Standard_Cache 0227 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0228 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0229 00db | | Load_Top At_Offset_3 022a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022b 00db | | Load_Top At_Offset_3 022c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022d e234 | 4 | Load 0x1,0x34 022e 00dc | | Load_Top At_Offset_4 022f 0267 | g | Execute Discrete,Predecessor 0230 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0231 e234 | 4 | Load 0x1,0x34 0232 00dc | | Load_Top At_Offset_4 0233 0268 | h | Execute Discrete,Successor 0234 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c e20f | | Load 0x1,0xf 023d 026a | j | Execute Discrete,First 023e 0272 | r | Execute Discrete,Minus 023f 0a01 | | Execute_Immediate Plus,0x1 0240 00d8 | | Load_Top At_Offset_0 0241 e22a | * | Load 0x1,0x2a 0242 0260 | ` | Execute Discrete,In_Type 0243 7001 |p | Jump_Nonzero 0x245 0244 0801 | | Execute_Immediate Raise,0x1 0245 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0246 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 024c e210 | | Load 0x1,0x10 024d 026a | j | Execute Discrete,First 024e 0272 | r | Execute Discrete,Minus 024f 0a01 | | Execute_Immediate Plus,0x1 0250 00d8 | | Load_Top At_Offset_0 0251 e229 | ) | Load 0x1,0x29 0252 0260 | ` | Execute Discrete,In_Type 0253 7001 |p | Jump_Nonzero 0x255 0254 0801 | | Execute_Immediate Raise,0x1 0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0256 ; -------------------------------------------------------------------------------------- 0256 ; STRING TABLE 0256 ; -------------------------------------------------------------------------------------- 0256 0012 | | .STRTAB 0x0012->0x025f ; "CURSOR_LOCATION" 0257 001f | | .STRTAB 0x001f->0x0266 ; "STATUS" 0258 0023 | # | .STRTAB 0x0023->0x0269 ; "Rev2.0" 0259 0027 | ' | .STRTAB 0x0027->0x026c ; "Sorry, no help available" 025a 003d | = | .STRTAB 0x003d->0x0278 ; "Sorry, no definition available" 025b 0059 | Y | .STRTAB 0x0059->0x0287 ; "Sorry, no error message" 025c 006e | n | .STRTAB 0x006e->0x0293 ; "<None>" 025d 0072 | r | .STRTAB 0x0072->0x0296 ; "<Default>" 025e 0079 | y | .STREND 0x0079->0x029a 025f 4355 5253 |CURS| .STRTAB_STRINGS 029b 0000 0000 | | .BLANK 0000[0x5] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug Table 02a0 ; -------------------------------------------------------------------------------------- 02a0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x713e,0x0000,0x0001,0x0015 02a6 000b 02fa | | .DBG4T 0x000b,0x02fa,0xc000,0x0000 02aa 0038 0310 | 8 | .DBG4T 0x0038,0x0310,0xc000,0x8000 02ae 00f3 0364 | d| .DBG4T 0x00f3,0x0364,0x1002,0x0000 02b2 0103 0367 | g| .DBG4T 0x0103,0x0367,0x1002,0x0000 02b6 0113 036a | j| .DBG4T 0x0113,0x036a,0x1001,0x0000 02ba 013b 036f | ; o| .DBG4T 0x013b,0x036f,0x1002,0x0000 02be 0153 0372 | S r| .DBG4T 0x0153,0x0372,0x1002,0x0000 02c2 016b 0375 | k u| .DBG4T 0x016b,0x0375,0x1002,0x0000 02c6 0173 0378 | s x| .DBG4T 0x0173,0x0378,0x1002,0x0000 02ca 017b 037b | { {| .DBG4T 0x017b,0x037b,0x1002,0x0000 02ce 0183 037e | ~| .DBG4T 0x0183,0x037e,0x1002,0x0000 02d2 018b 0381 | | .DBG4T 0x018b,0x0381,0x1002,0x0000 02d6 0193 0384 | | .DBG4T 0x0193,0x0384,0x1002,0x0000 02da 019b 0387 | | .DBG4T 0x019b,0x0387,0x1001,0x0000 02de 01eb 038d | | .DBG4T 0x01eb,0x038d,0x1001,0x0000 02e2 01fb 0391 | | .DBG4T 0x01fb,0x0391,0x1002,0x0000 02e6 0203 0394 | | .DBG4T 0x0203,0x0394,0x1002,0x0000 02ea 020b 0397 | | .DBG4T 0x020b,0x0397,0x1001,0x0000 02ee 0213 0000 | | .DBG4T 0x0213,0x0000,0x1005,0x0000 02f2 023b 039a | ; | .DBG4T 0x023b,0x039a,0x1002,0x0000 02f6 024b 039d | K | .DBG4T 0x024b,0x039d,0x1002,0x0000 02fa ; -------------------------------------------------------------------------------------- 02fa ; Debug chain 02fa ; -------------------------------------------------------------------------------------- 02fa 0014 0000 | | .DBGLEN 0x0014,0x0000 02fc 000b 000e | | .DBGLNO 0x000b,0x000e,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035 0310 ; -------------------------------------------------------------------------------------- 0310 ; Debug chain 0310 ; -------------------------------------------------------------------------------------- 0310 0029 0000 | ) | .DBGLEN 0x0029,0x0000 0312 0038 0040 | 8 @| .DBGLNO 0x0038,0x0040,0x0048,0x004c,0x0050,0x0057,0x005c,0x005e,0x0060,0x0064,0x0070,0x0074,0x0078,0x007d,0x007f,0x0081,0x0086,0x008b,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00bb,0x00c6,0x00d5,0x00e6 033b 0001 0002 | | .XXX[0x29] 033d 0003 0004 | | 033f 0006 0007 | | 0341 0008 0009 | | 0343 000a 000b | | 0345 000c 000d | | 0347 000e 000f | | 0349 0010 0011 | | 034b 0012 0013 | | 034d 0014 0015 | | 034f 0016 0017 | | 0351 0018 0019 | | 0353 001a 001b | | 0355 001c 001d | | 0357 001e 001f | | 0359 0020 0021 | !| 035b 0022 0023 | " #| 035d 0024 0025 | $ %| 035f 0026 0027 | & '| 0361 0028 0029 | ( )| 0363 002a | * | 0364 ; -------------------------------------------------------------------------------------- 0364 ; Debug chain 0364 ; -------------------------------------------------------------------------------------- 0364 0000 0001 | | .DBGLEN 0x0000,0x0001 0366 00f3 | | .DBGLNO 0x00f3 0367 ; -------------------------------------------------------------------------------------- 0367 ; Debug chain 0367 ; -------------------------------------------------------------------------------------- 0367 0000 0001 | | .DBGLEN 0x0000,0x0001 0369 0103 | | .DBGLNO 0x0103 036a ; -------------------------------------------------------------------------------------- 036a ; Debug chain 036a ; -------------------------------------------------------------------------------------- 036a 0000 0003 | | .DBGLEN 0x0000,0x0003 036c 0113 0125 | %| .DBGLNO 0x0113,0x0125,0x0127 036f ; -------------------------------------------------------------------------------------- 036f ; Debug chain 036f ; -------------------------------------------------------------------------------------- 036f 0000 0001 | | .DBGLEN 0x0000,0x0001 0371 013b | ; | .DBGLNO 0x013b 0372 ; -------------------------------------------------------------------------------------- 0372 ; Debug chain 0372 ; -------------------------------------------------------------------------------------- 0372 0000 0001 | | .DBGLEN 0x0000,0x0001 0374 0153 | S | .DBGLNO 0x0153 0375 ; -------------------------------------------------------------------------------------- 0375 ; Debug chain 0375 ; -------------------------------------------------------------------------------------- 0375 0000 0001 | | .DBGLEN 0x0000,0x0001 0377 016b | k | .DBGLNO 0x016b 0378 ; -------------------------------------------------------------------------------------- 0378 ; Debug chain 0378 ; -------------------------------------------------------------------------------------- 0378 0000 0001 | | .DBGLEN 0x0000,0x0001 037a 0173 | s | .DBGLNO 0x0173 037b ; -------------------------------------------------------------------------------------- 037b ; Debug chain 037b ; -------------------------------------------------------------------------------------- 037b 0000 0001 | | .DBGLEN 0x0000,0x0001 037d 017b | { | .DBGLNO 0x017b 037e ; -------------------------------------------------------------------------------------- 037e ; Debug chain 037e ; -------------------------------------------------------------------------------------- 037e 0000 0001 | | .DBGLEN 0x0000,0x0001 0380 0183 | | .DBGLNO 0x0183 0381 ; -------------------------------------------------------------------------------------- 0381 ; Debug chain 0381 ; -------------------------------------------------------------------------------------- 0381 0000 0001 | | .DBGLEN 0x0000,0x0001 0383 018b | | .DBGLNO 0x018b 0384 ; -------------------------------------------------------------------------------------- 0384 ; Debug chain 0384 ; -------------------------------------------------------------------------------------- 0384 0000 0001 | | .DBGLEN 0x0000,0x0001 0386 0193 | | .DBGLNO 0x0193 0387 ; -------------------------------------------------------------------------------------- 0387 ; Debug chain 0387 ; -------------------------------------------------------------------------------------- 0387 0000 0004 | | .DBGLEN 0x0000,0x0004 0389 019c 01a0 | | .DBGLNO 0x019c,0x01a0,0x01be,0x01c2 038d ; -------------------------------------------------------------------------------------- 038d ; Debug chain 038d ; -------------------------------------------------------------------------------------- 038d 0000 0002 | | .DBGLEN 0x0000,0x0002 038f 01eb 01ee | | .DBGLNO 0x01eb,0x01ee 0391 ; -------------------------------------------------------------------------------------- 0391 ; Debug chain 0391 ; -------------------------------------------------------------------------------------- 0391 0000 0001 | | .DBGLEN 0x0000,0x0001 0393 01fb | | .DBGLNO 0x01fb 0394 ; -------------------------------------------------------------------------------------- 0394 ; Debug chain 0394 ; -------------------------------------------------------------------------------------- 0394 0000 0001 | | .DBGLEN 0x0000,0x0001 0396 0203 | | .DBGLNO 0x0203 0397 ; -------------------------------------------------------------------------------------- 0397 ; Debug chain 0397 ; -------------------------------------------------------------------------------------- 0397 0000 0001 | | .DBGLEN 0x0000,0x0001 0399 020b | | .DBGLNO 0x020b 039a ; -------------------------------------------------------------------------------------- 039a ; Debug chain 039a ; -------------------------------------------------------------------------------------- 039a 0000 0001 | | .DBGLEN 0x0000,0x0001 039c 023b | ; | .DBGLNO 0x023b 039d ; -------------------------------------------------------------------------------------- 039d ; Debug chain 039d ; -------------------------------------------------------------------------------------- 039d 0000 0001 | | .DBGLEN 0x0000,0x0001 039f 024b | K | .DBGLNO 0x024b 03a0 0000 0000 | | .BLANK 0000[0x60]