|
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]