|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0268 | h | .CONST 0x0268 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0049 | I | .CONST 0x0049 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000d | | .CONST 0x000d ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c e002 | | Load 0x0,0x2 001d e5f6 | | Load 0x2,-0xa 001e e003 | | Load 0x0,0x3 001f 0387 | | Declare_Variable Package 0020 00d8 | | Load_Top At_Offset_0 0021 020f | | Execute Module,Activate 0022 00e2 | | Load_Encached Integer_Cache 0023 0266 | f | Execute Discrete,Bounds 0024 e5f6 | | Load 0x2,-0xa 0025 02a0 | | Declare_Subprogram Null_Subprogram 0026 4801 |H | Short_Literal 0x1 0027 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0028 00e2 | | Load_Encached Integer_Cache 0029 0266 | f | Execute Discrete,Bounds 002a 00e2 | | Load_Encached Integer_Cache 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c 4801 |H | Short_Literal 0x1 002d 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 002e 4801 |H | Short_Literal 0x1 002f e5f6 | | Load 0x2,-0xa 0030 0269 | i | Execute Discrete,Last 0031 0a01 | | Execute_Immediate Plus,0x1 0032 e5f6 | | Load 0x2,-0xa 0033 026a | j | Execute Discrete,First 0034 0272 | r | Execute Discrete,Minus 0035 00e2 | | Load_Encached Integer_Cache 0036 03f8 | | Declare_Type Discrete,Constrained 0037 4801 |H | Short_Literal 0x1 0038 00d9 | | Load_Top At_Offset_1 0039 0269 | i | Execute Discrete,Last 003a e403 | | Load 0x2,0x3 003b 035b | [ | Declare_Type Array,Constrained 003c 0337 | 7 | Declare_Variable Array 003d 00e1 | | Load_Encached Boolean_Cache 003e 00e1 | | Load_Encached Boolean_Cache 003f 00e2 | | Load_Encached Integer_Cache 0040 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0041 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0043 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0045 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0047 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0049 BODY_0018: 0049 e5fe | | Load 0x2,-0x2 004a e5f2 | | Load 0x2,-0xe 004b 840b | | Call 0x2,0xb 004c e5fd | | Load 0x2,-0x3 004d e5f3 | | Load 0x2,-0xd 004e 840b | | Call 0x2,0xb 004f e5fc | | Load 0x2,-0x4 0050 e5f4 | | Load 0x2,-0xc 0051 840b | | Call 0x2,0xb 0052 840d | | Call 0x2,0xd 0053 450f |E | Exit_Suprogram New_Top_Offset 0xf 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0061 | a | .CONST 0x0061 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c 01dd | | Execute Vector,First 005d 00e2 | | Load_Encached Integer_Cache 005e 03f1 | | Declare_Variable Discrete,With_Value 005f 00e2 | | Load_Encached Integer_Cache 0060 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0061 BODY_0058: 0061 00cf | | Action Mark_Auxiliary 0062 e7ff | | Load 0x3,-0x1 0063 01d9 | | Execute Vector,Reverse_Bounds 0064 0263 | c | Execute Discrete,Above_Bound 0065 7024 |p$ | Jump_Nonzero 0x8a 0066 00d8 | | Load_Top At_Offset_0 0067 e7ff | | Load 0x3,-0x1 0068 01d7 | | Execute Vector,Field_Read 0069 0f20 | | Execute_Immediate Equal,0x20 006a 7005 |p | Jump_Nonzero 0x70 006b 00d8 | | Load_Top At_Offset_0 006c e7ff | | Load 0x3,-0x1 006d 01d7 | | Execute Vector,Field_Read 006e 0f2c | , | Execute_Immediate Equal,0x2c 006f 6818 |h | Jump_Zero 0x88 0070 e602 | | Load 0x3,0x2 0071 00d9 | | Load_Top At_Offset_1 0072 027f | | Execute Discrete,Equal 0073 6804 |h | Jump_Zero 0x78 0074 00d8 | | Load_Top At_Offset_0 0075 0a01 | | Execute_Immediate Plus,0x1 0076 c602 | | Store 0x3,0x2 0077 7810 |x | Jump 0x88 0078 00db | | Load_Top At_Offset_3 0079 0a01 | | Execute_Immediate Plus,0x1 007a c603 | | Store 0x3,0x3 007b 00db | | Load_Top At_Offset_3 007c e7fe | | Load 0x3,-0x2 007d 027f | | Execute Discrete,Equal 007e 6806 |h | Jump_Zero 0x85 007f e602 | | Load 0x3,0x2 0080 00d9 | | Load_Top At_Offset_1 0081 0aff | | Execute_Immediate Plus,-0x1 0082 e7ff | | Load 0x3,-0x1 0083 01cf | | Execute Vector,Slice_Read 0084 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0085 00d8 | | Load_Top At_Offset_0 0086 0a01 | | Execute_Immediate Plus,0x1 0087 c602 | | Store 0x3,0x2 0088 00c8 | | Action Pop_Auxiliary_Range 0089 3fdc |? | Loop_Increasing 0x66 008a 00ce | | Action Pop_Auxiliary 008b 00d8 | | Load_Top At_Offset_0 008c 0a01 | | Execute_Immediate Plus,0x1 008d 0059 | Y | Store_Top Discrete,At_Offset_1 008e 00d8 | | Load_Top At_Offset_0 008f e7fe | | Load 0x3,-0x2 0090 027f | | Execute Discrete,Equal 0091 6806 |h | Jump_Zero 0x98 0092 00d9 | | Load_Top At_Offset_1 0093 e7ff | | Load 0x3,-0x1 0094 01dc | | Execute Vector,Last 0095 e7ff | | Load 0x3,-0x1 0096 01cf | | Execute Vector,Slice_Read 0097 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0098 00ea | | Load_Encached Null_String_Cache 0099 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 4801 |H | Short_Literal 0x1 00a4 0092 0218 | | Action Push_String_Extended,0x218 ; "<DEFAULT>" 00a6 e7ff | | Load 0x3,-0x1 00a7 e004 | | Load 0x0,0x4 00a8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a9 6802 |h | Jump_Zero 0xac 00aa 00db | | Load_Top At_Offset_3 00ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ac 00da | | Load_Top At_Offset_2 00ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00bd | | .CONST 0x00bd ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0005 | | .CONST 0x0005 ; Number of locals 00b3 INIT_00b0: 00b3 00db | | Load_Top At_Offset_3 00b4 01da | | Execute Vector,Bounds 00b5 e404 | | Load 0x2,0x4 00b6 035b | [ | Declare_Type Array,Constrained 00b7 0337 | 7 | Declare_Variable Array 00b8 00e2 | | Load_Encached Integer_Cache 00b9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ba e5f6 | | Load 0x2,-0xa 00bb 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 00bd BODY_00b0: 00bd 00cf | | Action Mark_Auxiliary 00be e602 | | Load 0x3,0x2 00bf 01d9 | | Execute Vector,Reverse_Bounds 00c0 0263 | c | Execute Discrete,Above_Bound 00c1 7003 |p | Jump_Nonzero 0xc5 00c2 8605 | | Call 0x3,0x5 00c3 00c8 | | Action Pop_Auxiliary_Range 00c4 3ffd |? | Loop_Increasing 0xc2 00c5 00ce | | Action Pop_Auxiliary 00c6 4801 |H | Short_Literal 0x1 00c7 00db | | Load_Top At_Offset_3 00c8 e602 | | Load 0x3,0x2 00c9 01cf | | Execute Vector,Slice_Read 00ca e404 | | Load 0x2,0x4 00cb 01c6 | | Execute Vector,Convert_To_Formal 00cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d8 | | .CONST 0x00d8 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0004 | | .CONST 0x0004 ; Number of locals 00d3 INIT_00d0: 00d3 e5f6 | | Load 0x2,-0xa 00d4 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 00d6 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 00d8 BODY_00d0: 00d8 00cf | | Action Mark_Auxiliary 00d9 e406 | | Load 0x2,0x6 00da 01d9 | | Execute Vector,Reverse_Bounds 00db 0263 | c | Execute Discrete,Above_Bound 00dc 7003 |p | Jump_Nonzero 0xe0 00dd 8603 | | Call 0x3,0x3 00de 00c8 | | Action Pop_Auxiliary_Range 00df 3ffd |? | Loop_Increasing 0xdd 00e0 00ce | | Action Pop_Auxiliary 00e1 e409 | | Load 0x2,0x9 00e2 0c01 | | Execute_Immediate Greater_Equal,0x1 00e3 6801 |h | Jump_Zero 0xe5 00e4 8604 | | Call 0x3,0x4 00e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ee | | .CONST 0x00ee ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb e608 | | Load 0x3,0x8 00ec e7ff | | Load 0x3,-0x1 00ed 840a | | Call 0x2,0xa 00ee BODY_00e8: 00ee 00d8 | | Load_Top At_Offset_0 00ef 01db | | Execute Vector,Length 00f0 7003 |p | Jump_Nonzero 0xf4 00f1 00cc | | Action Pop_Block 00f2 00d2 | | Pop_Control Pop_Count_2 00f3 7fd1 | | Jump 0xc5 00f4 00d8 | | Load_Top At_Offset_0 00f5 01dc | | Execute Vector,Last 00f6 00d9 | | Load_Top At_Offset_1 00f7 01d7 | | Execute Vector,Field_Read 00f8 0f2b | + | Execute_Immediate Equal,0x2b 00f9 7006 |p | Jump_Nonzero 0x100 00fa 00d8 | | Load_Top At_Offset_0 00fb 01dc | | Execute Vector,Last 00fc 00d9 | | Load_Top At_Offset_1 00fd 01d7 | | Execute Vector,Field_Read 00fe 0f2d | - | Execute_Immediate Equal,0x2d 00ff 6816 |h | Jump_Zero 0x116 0100 00e1 | | Load_Encached Boolean_Cache 0101 00e1 | | Load_Encached Boolean_Cache 0102 e402 | | Load 0x2,0x2 0103 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0104 00db | | Load_Top At_Offset_3 0105 01dd | | Execute Vector,First 0106 e802 | | Load 0x4,0x2 0107 01dc | | Execute Vector,Last 0108 0aff | | Execute_Immediate Plus,-0x1 0109 00d8 | | Load_Top At_Offset_0 010a 00e2 | | Load_Encached Integer_Cache 010b 0260 | ` | Execute Discrete,In_Type 010c 7001 |p | Jump_Nonzero 0x10e 010d 0801 | | Execute_Immediate Raise,0x1 010e e802 | | Load 0x4,0x2 010f 01cf | | Execute Vector,Slice_Read 0110 e402 | | Load 0x2,0x2 0111 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0112 c604 | | Store 0x3,0x4 0113 c408 | | Store 0x2,0x8 0114 c407 | | Store 0x2,0x7 0115 780a |x | Jump 0x120 0116 00e1 | | Load_Encached Boolean_Cache 0117 00e1 | | Load_Encached Boolean_Cache 0118 e402 | | Load 0x2,0x2 0119 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011a 00db | | Load_Top At_Offset_3 011b e402 | | Load 0x2,0x2 011c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 011d c604 | | Store 0x3,0x4 011e c408 | | Store 0x2,0x8 011f c407 | | Store 0x2,0x7 0120 e407 | | Load 0x2,0x7 0121 7014 |p | Jump_Nonzero 0x136 0122 e408 | | Load 0x2,0x8 0123 6809 |h | Jump_Zero 0x12d 0124 e005 | | Load 0x0,0x5 0125 180e | | Execute Package,Field_Execute,Field_Number 0xe 0126 4807 |H | Short_Literal 0x7 0127 0092 0219 | | Action Push_String_Extended,0x219 ; "Sort_Field_Is_Ambiguous: " 0129 00db | | Load_Top At_Offset_3 012a 01cc | | Execute Vector,Catenate 012b 85fb | | Call 0x2,-0x5 012c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012d e005 | | Load 0x0,0x5 012e 180e | | Execute Package,Field_Execute,Field_Number 0xe 012f 4807 |H | Short_Literal 0x7 0130 0092 021a | | Action Push_String_Extended,0x21a ; "Sort_Field_Is_Undefined: " 0132 00db | | Load_Top At_Offset_3 0133 01cc | | Execute Vector,Catenate 0134 85fb | | Call 0x2,-0x5 0135 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0136 00cf | | Action Mark_Auxiliary 0137 e7fe | | Load 0x3,-0x2 0138 01d9 | | Execute Vector,Reverse_Bounds 0139 0263 | c | Execute Discrete,Above_Bound 013a 702a |p* | Jump_Nonzero 0x165 013b e604 | | Load 0x3,0x4 013c 00d9 | | Load_Top At_Offset_1 013d e7fe | | Load 0x3,-0x2 013e 01d7 | | Execute Vector,Field_Read 013f 027f | | Execute Discrete,Equal 0140 6815 |h | Jump_Zero 0x156 0141 e603 | | Load 0x3,0x3 0142 0a01 | | Execute_Immediate Plus,0x1 0143 c603 | | Store 0x3,0x3 0144 00db | | Load_Top At_Offset_3 0145 01dc | | Execute Vector,Last 0146 e802 | | Load 0x4,0x2 0147 01d7 | | Execute Vector,Field_Read 0148 0f2d | - | Execute_Immediate Equal,0x2d 0149 6806 |h | Jump_Zero 0x150 014a 00d8 | | Load_Top At_Offset_0 014b 0275 | u | Execute Discrete,Unary_Minus 014c e603 | | Load 0x3,0x3 014d e602 | | Load 0x3,0x2 014e 01d6 | | Execute Vector,Field_Write 014f 7804 |x | Jump 0x154 0150 00d8 | | Load_Top At_Offset_0 0151 e603 | | Load 0x3,0x3 0152 e602 | | Load 0x3,0x2 0153 01d6 | | Execute Vector,Field_Write 0154 00d2 | | Pop_Control Pop_Count_2 0155 780f |x | Jump 0x165 0156 00d8 | | Load_Top At_Offset_0 0157 e7fe | | Load 0x3,-0x2 0158 01dc | | Execute Vector,Last 0159 027f | | Execute Discrete,Equal 015a 6808 |h | Jump_Zero 0x163 015b e005 | | Load 0x0,0x5 015c 180e | | Execute Package,Field_Execute,Field_Number 0xe 015d 4807 |H | Short_Literal 0x7 015e 0092 021b | | Action Push_String_Extended,0x21b ; "Sort_Field_Not_In_Table: " 0160 e802 | | Load 0x4,0x2 0161 01cc | | Execute Vector,Catenate 0162 85fb | | Call 0x2,-0x5 0163 00c8 | | Action Pop_Auxiliary_Range 0164 3fd6 |? | Loop_Increasing 0x13b 0165 00ce | | Action Pop_Auxiliary 0166 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016e | n | .CONST 0x016e ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b e607 | | Load 0x3,0x7 016c e7ff | | Load 0x3,-0x1 016d 840a | | Call 0x2,0xa 016e BODY_0168: 016e 00d8 | | Load_Top At_Offset_0 016f 01db | | Execute Vector,Length 0170 7003 |p | Jump_Nonzero 0x174 0171 00cc | | Action Pop_Block 0172 00d2 | | Pop_Control Pop_Count_2 0173 7f6c | l | Jump 0xe0 0174 00e1 | | Load_Encached Boolean_Cache 0175 00e1 | | Load_Encached Boolean_Cache 0176 e402 | | Load 0x2,0x2 0177 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0178 00db | | Load_Top At_Offset_3 0179 e402 | | Load 0x2,0x2 017a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017b c602 | | Store 0x3,0x2 017c c408 | | Store 0x2,0x8 017d c407 | | Store 0x2,0x7 017e e407 | | Load 0x2,0x7 017f 7014 |p | Jump_Nonzero 0x194 0180 e408 | | Load 0x2,0x8 0181 6809 |h | Jump_Zero 0x18b 0182 e005 | | Load 0x0,0x5 0183 180e | | Execute Package,Field_Execute,Field_Number 0xe 0184 4807 |H | Short_Literal 0x7 0185 0092 021c | | Action Push_String_Extended,0x21c ; "Field_Name_Is_Ambiguous: " 0187 00db | | Load_Top At_Offset_3 0188 01cc | | Execute Vector,Catenate 0189 85fb | | Call 0x2,-0x5 018a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018b e005 | | Load 0x0,0x5 018c 180e | | Execute Package,Field_Execute,Field_Number 0xe 018d 4807 |H | Short_Literal 0x7 018e 0092 021d | | Action Push_String_Extended,0x21d ; "Field_Name_Is_Undefined: " 0190 00db | | Load_Top At_Offset_3 0191 01cc | | Execute Vector,Catenate 0192 85fb | | Call 0x2,-0x5 0193 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0194 e409 | | Load 0x2,0x9 0195 0a01 | | Execute_Immediate Plus,0x1 0196 c409 | | Store 0x2,0x9 0197 e602 | | Load 0x3,0x2 0198 e409 | | Load 0x2,0x9 0199 e406 | | Load 0x2,0x6 019a 01d6 | | Execute Vector,Field_Write 019b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01b1 | | .CONST 0x01b1 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e006 | | Load 0x0,0x6 01a4 e007 | | Load 0x0,0x7 01a5 e409 | | Load 0x2,0x9 01a6 00d8 | | Load_Top At_Offset_0 01a7 00e4 | | Load_Encached Positive_Cache 01a8 0260 | ` | Execute Discrete,In_Type 01a9 7001 |p | Jump_Nonzero 0x1ab 01aa 0801 | | Execute_Immediate Raise,0x1 01ab 0092 021e | | Action Push_String_Extended,0x21e ; " " 01ad e008 | | Load 0x0,0x8 01ae 0387 | | Declare_Variable Package 01af 00d8 | | Load_Top At_Offset_0 01b0 020f | | Execute Module,Activate 01b1 BODY_01a0: 01b1 00cf | | Action Mark_Auxiliary 01b2 e409 | | Load 0x2,0x9 01b3 4801 |H | Short_Literal 0x1 01b4 0263 | c | Execute Discrete,Above_Bound 01b5 700e |p | Jump_Nonzero 0x1c4 01b6 4800 |H | Short_Literal 0x0 01b7 00d9 | | Load_Top At_Offset_1 01b8 e406 | | Load 0x2,0x6 01b9 01d7 | | Execute Vector,Field_Read 01ba 00d8 | | Load_Top At_Offset_0 01bb e5f6 | | Load 0x2,-0xa 01bc 0260 | ` | Execute Discrete,In_Type 01bd 7001 |p | Jump_Nonzero 0x1bf 01be 0801 | | Execute_Immediate Raise,0x1 01bf 85f9 | | Call 0x2,-0x7 01c0 e802 | | Load 0x4,0x2 01c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c2 00c8 | | Action Pop_Auxiliary_Range 01c3 3ff2 |? | Loop_Increasing 0x1b6 01c4 00c9 | | Action Pop_Auxiliary_Loop 01c5 e5f5 | | Load 0x2,-0xb 01c6 01d9 | | Execute Vector,Reverse_Bounds 01c7 0263 | c | Execute Discrete,Above_Bound 01c8 701a |p | Jump_Nonzero 0x1e3 01c9 00cf | | Action Mark_Auxiliary 01ca e409 | | Load 0x2,0x9 01cb 4801 |H | Short_Literal 0x1 01cc 0263 | c | Execute Discrete,Above_Bound 01cd 7012 |p | Jump_Nonzero 0x1e0 01ce 00d8 | | Load_Top At_Offset_0 01cf e406 | | Load 0x2,0x6 01d0 01d7 | | Execute Vector,Field_Read 01d1 00d8 | | Load_Top At_Offset_0 01d2 e5f6 | | Load 0x2,-0xa 01d3 0260 | ` | Execute Discrete,In_Type 01d4 7001 |p | Jump_Nonzero 0x1d6 01d5 0801 | | Execute_Immediate Raise,0x1 01d6 e805 | | Load 0x4,0x5 01d7 e5f5 | | Load 0x2,-0xb 01d8 01d7 | | Execute Vector,Field_Read 01d9 e5f7 | | Load 0x2,-0x9 01da 0119 | | Execute Any,Check_In_Formal_Type 01db 85fa | | Call 0x2,-0x6 01dc e802 | | Load 0x4,0x2 01dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01de 00c8 | | Action Pop_Auxiliary_Range 01df 3fee |? | Loop_Increasing 0x1ce 01e0 00ce | | Action Pop_Auxiliary 01e1 00c8 | | Action Pop_Auxiliary_Range 01e2 3fe6 |? | Loop_Increasing 0x1c9 01e3 00ce | | Action Pop_Auxiliary 01e4 e7fe | | Load 0x3,-0x2 01e5 01db | | Execute Vector,Length 01e6 6822 |h" | Jump_Zero 0x209 01e7 4801 |H | Short_Literal 0x1 01e8 e409 | | Load 0x2,0x9 01e9 e406 | | Load 0x2,0x6 01ea 01cf | | Execute Vector,Slice_Read 01eb e7fe | | Load 0x3,-0x2 01ec 840c | | Call 0x2,0xc 01ed 00d8 | | Load_Top At_Offset_0 01ee 01da | | Execute Vector,Bounds 01ef 00db | | Load_Top At_Offset_3 01f0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01f1 0334 | 4 | Declare_Variable Array,With_Constraint 01f2 00d0 | | Action Swap_Control 01f3 00d8 | | Load_Top At_Offset_0 01f4 01dd | | Execute Vector,First 01f5 00da | | Load_Top At_Offset_2 01f6 01dd | | Execute Vector,First 01f7 0272 | r | Execute Discrete,Minus 01f8 00da | | Load_Top At_Offset_2 01f9 01d9 | | Execute Vector,Reverse_Bounds 01fa 0263 | c | Execute Discrete,Above_Bound 01fb 700a |p | Jump_Nonzero 0x206 01fc 00d8 | | Load_Top At_Offset_0 01fd 00db | | Load_Top At_Offset_3 01fe 0273 | s | Execute Discrete,Plus 01ff e804 | | Load 0x4,0x4 0200 01d7 | | Execute Vector,Field_Read 0201 00d9 | | Load_Top At_Offset_1 0202 e803 | | Load 0x4,0x3 0203 01d5 | | Execute Vector,Field_Reference 0204 0118 | | Execute Any,Write_Unchecked 0205 3ff6 |? | Loop_Increasing 0x1fc 0206 00d2 | | Pop_Control Pop_Count_2 0207 00d9 | | Load_Top At_Offset_1 0208 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0209 4801 |H | Short_Literal 0x1 020a e009 | | Load 0x0,0x9 020b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 020c e009 | | Load 0x0,0x9 020d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 020e e009 | | Load 0x0,0x9 020f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0210 00d9 | | Load_Top At_Offset_1 0211 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0212 4801 |H | Short_Literal 0x1 0213 e009 | | Load 0x0,0x9 0214 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0215 e009 | | Load 0x0,0x9 0216 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0217 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0218 ; -------------------------------------------------------------------------------------- 0218 ; STRING TABLE 0218 ; -------------------------------------------------------------------------------------- 0218 0010 | | .STRTAB 0x0010->0x0220 ; "<DEFAULT>" 0219 0017 | | .STRTAB 0x0017->0x0224 ; "Sort_Field_Is_Ambiguous: " 021a 002e | . | .STRTAB 0x002e->0x0231 ; "Sort_Field_Is_Undefined: " 021b 0045 | E | .STRTAB 0x0045->0x023d ; "Sort_Field_Not_In_Table: " 021c 005c | \ | .STRTAB 0x005c->0x024a ; "Field_Name_Is_Ambiguous: " 021d 0073 | s | .STRTAB 0x0073->0x0256 ; "Field_Name_Is_Undefined: " 021e 008a | | .STRTAB 0x008a->0x0263 ; " " 021f 0089 | | .STREND 0x0089->0x0263 0220 3c44 4546 |<DEF| .STRTAB_STRINGS 0264 0000 0000 | | .BLANK 0000[0x4] 0268 ; -------------------------------------------------------------------------------------- 0268 ; Debug Table 0268 ; -------------------------------------------------------------------------------------- 0268 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8b5e,0x0000,0x0001,0x0000 026e 0000 0000 | | .BLANK 0000[0x11] 027f 0600 023d | =| .XXX[0x22] 0281 8e85 c37c | || 0283 a680 0025 | %| 0285 16b4 7180 | q | 0287 8008 0005 | | 0289 0800 0002 | | 028b 508e 0000 |P | 028d 5000 0000 |P | 028f 2801 4000 |( @ | 0291 0000 4000 | @ | 0293 0010 0000 | | 0295 0088 0000 | | 0297 0000 4000 | @ | 0299 0002 9000 | | 029b 0280 edb0 | | 029d d000 0180 | | 029f ed2f c000 | / | 02a1 0000 0000 | | .BLANK 0000[0x17] 02b8 00c0 0047 | G| .XXX[0x22] 02ba b1d0 b86f | o| 02bc 94d0 0004 | | 02be a2d6 8e30 | 0| 02c0 1001 0000 | | 02c2 a100 0000 | | 02c4 4a11 c000 |J | 02c6 0a00 0000 | | 02c8 0500 2800 | ( | 02ca 0000 0800 | | 02cc 0002 0000 | | 02ce 0011 0000 | | 02d0 0000 0800 | | 02d2 0000 5200 | R | 02d4 0050 1db6 | P | 02d6 1a00 0030 | 0| 02d8 1da5 f800 | | 02da 0000 0000 | | .BLANK 0000[0x17] 02f1 0018 0008 | | .XXX[0x3] 02f3 f638 | 8 | 02f4 0000 0000 | | .BLANK 0000[0xd] 0301 0020 0500 | | .XXX[0xc] 0303 0000 0000 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a00 | | 030d 0000 0000 | | .BLANK 0000[0x2d] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]