|
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_0bf8df
└─⟦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 0258 | X | .CONST 0x0258 ; 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 004d | M | .CONST 0x004d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000d | | .CONST 0x000d ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c e003 | | Load 0x0,0x3 001d e5f6 | | Load 0x2,-0xa 001e e004 | | Load 0x0,0x4 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 e5f6 | | Load 0x2,-0xa 0032 1c04 | | Execute_Immediate Run_Utility,0x4 0033 0a01 | | Execute_Immediate Plus,0x1 0034 e5f6 | | Load 0x2,-0xa 0035 026a | j | Execute Discrete,First 0036 e5f6 | | Load 0x2,-0xa 0037 1c04 | | Execute_Immediate Run_Utility,0x4 0038 0272 | r | Execute Discrete,Minus 0039 00e2 | | Load_Encached Integer_Cache 003a 03f8 | | Declare_Type Discrete,Constrained 003b 4801 |H | Short_Literal 0x1 003c 00d9 | | Load_Top At_Offset_1 003d 0269 | i | Execute Discrete,Last 003e e403 | | Load 0x2,0x3 003f 035b | [ | Declare_Type Array,Constrained 0040 0337 | 7 | Declare_Variable Array 0041 00e1 | | Load_Encached Boolean_Cache 0042 00e1 | | Load_Encached Boolean_Cache 0043 00e2 | | Load_Encached Integer_Cache 0044 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0045 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0047 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0049 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 004b 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 004d BODY_0018: 004d e5fe | | Load 0x2,-0x2 004e e5f2 | | Load 0x2,-0xe 004f 840b | | Call 0x2,0xb 0050 e5fd | | Load 0x2,-0x3 0051 e5f3 | | Load 0x2,-0xd 0052 840b | | Call 0x2,0xb 0053 e5fc | | Load 0x2,-0x4 0054 e5f4 | | Load 0x2,-0xc 0055 840b | | Call 0x2,0xb 0056 840d | | Call 0x2,0xd 0057 450f |E | Exit_Suprogram New_Top_Offset 0xf 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 020c | | Action Push_String_Extended,0x20c ; "<DEFAULT>" 00a6 e7ff | | Load 0x3,-0x1 00a7 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 0125 180e | | Execute Package,Field_Execute,Field_Number 0xe 0126 4807 |H | Short_Literal 0x7 0127 0092 020d | | Action Push_String_Extended,0x20d ; "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 e006 | | Load 0x0,0x6 012e 180e | | Execute Package,Field_Execute,Field_Number 0xe 012f 4807 |H | Short_Literal 0x7 0130 0092 020e | | Action Push_String_Extended,0x20e ; "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 e006 | | Load 0x0,0x6 015c 180e | | Execute Package,Field_Execute,Field_Number 0xe 015d 4807 |H | Short_Literal 0x7 015e 0092 020f | | Action Push_String_Extended,0x20f ; "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 e006 | | Load 0x0,0x6 0183 180e | | Execute Package,Field_Execute,Field_Number 0xe 0184 4807 |H | Short_Literal 0x7 0185 0092 0210 | | Action Push_String_Extended,0x210 ; "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 e006 | | Load 0x0,0x6 018c 180e | | Execute Package,Field_Execute,Field_Number 0xe 018d 4807 |H | Short_Literal 0x7 018e 0092 0211 | | Action Push_String_Extended,0x211 ; "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 e007 | | Load 0x0,0x7 01a4 e008 | | Load 0x0,0x8 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 0212 | | Action Push_String_Extended,0x212 ; " " 01ad e009 | | Load 0x0,0x9 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 7009 |p | Jump_Nonzero 0x1bf 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 85f9 | | Call 0x2,-0x7 01bb e802 | | Load 0x4,0x2 01bc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01bd 00c8 | | Action Pop_Auxiliary_Range 01be 3ff7 |? | Loop_Increasing 0x1b6 01bf 00c9 | | Action Pop_Auxiliary_Loop 01c0 e5f5 | | Load 0x2,-0xb 01c1 01d9 | | Execute Vector,Reverse_Bounds 01c2 0263 | c | Execute Discrete,Above_Bound 01c3 7013 |p | Jump_Nonzero 0x1d7 01c4 00cf | | Action Mark_Auxiliary 01c5 e409 | | Load 0x2,0x9 01c6 4801 |H | Short_Literal 0x1 01c7 0263 | c | Execute Discrete,Above_Bound 01c8 700b |p | Jump_Nonzero 0x1d4 01c9 00d8 | | Load_Top At_Offset_0 01ca e406 | | Load 0x2,0x6 01cb 01d7 | | Execute Vector,Field_Read 01cc e805 | | Load 0x4,0x5 01cd e5f5 | | Load 0x2,-0xb 01ce 01d7 | | Execute Vector,Field_Read 01cf 85fa | | Call 0x2,-0x6 01d0 e802 | | Load 0x4,0x2 01d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d2 00c8 | | Action Pop_Auxiliary_Range 01d3 3ff5 |? | Loop_Increasing 0x1c9 01d4 00ce | | Action Pop_Auxiliary 01d5 00c8 | | Action Pop_Auxiliary_Range 01d6 3fed |? | Loop_Increasing 0x1c4 01d7 00ce | | Action Pop_Auxiliary 01d8 e7fe | | Load 0x3,-0x2 01d9 01db | | Execute Vector,Length 01da 6822 |h" | Jump_Zero 0x1fd 01db 4801 |H | Short_Literal 0x1 01dc e409 | | Load 0x2,0x9 01dd e406 | | Load 0x2,0x6 01de 01cf | | Execute Vector,Slice_Read 01df e7fe | | Load 0x3,-0x2 01e0 840c | | Call 0x2,0xc 01e1 00d8 | | Load_Top At_Offset_0 01e2 01da | | Execute Vector,Bounds 01e3 00db | | Load_Top At_Offset_3 01e4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01e5 0334 | 4 | Declare_Variable Array,With_Constraint 01e6 00d0 | | Action Swap_Control 01e7 00d8 | | Load_Top At_Offset_0 01e8 01dd | | Execute Vector,First 01e9 00da | | Load_Top At_Offset_2 01ea 01dd | | Execute Vector,First 01eb 0272 | r | Execute Discrete,Minus 01ec 00da | | Load_Top At_Offset_2 01ed 01d9 | | Execute Vector,Reverse_Bounds 01ee 0263 | c | Execute Discrete,Above_Bound 01ef 700a |p | Jump_Nonzero 0x1fa 01f0 00d8 | | Load_Top At_Offset_0 01f1 00db | | Load_Top At_Offset_3 01f2 0273 | s | Execute Discrete,Plus 01f3 e804 | | Load 0x4,0x4 01f4 01d7 | | Execute Vector,Field_Read 01f5 00d9 | | Load_Top At_Offset_1 01f6 e803 | | Load 0x4,0x3 01f7 01d5 | | Execute Vector,Field_Reference 01f8 0118 | | Execute Any,Write_Unchecked 01f9 3ff6 |? | Loop_Increasing 0x1f0 01fa 00d2 | | Pop_Control Pop_Count_2 01fb 00d9 | | Load_Top At_Offset_1 01fc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01fd 4801 |H | Short_Literal 0x1 01fe e00a | | Load 0x0,0xa 01ff 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0200 e00a | | Load 0x0,0xa 0201 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0202 e00a | | Load 0x0,0xa 0203 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0204 00d9 | | Load_Top At_Offset_1 0205 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0206 4801 |H | Short_Literal 0x1 0207 e00a | | Load 0x0,0xa 0208 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0209 e00a | | Load 0x0,0xa 020a 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 020b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020c ; -------------------------------------------------------------------------------------- 020c ; STRING TABLE 020c ; -------------------------------------------------------------------------------------- 020c 0010 | | .STRTAB 0x0010->0x0214 ; "<DEFAULT>" 020d 0017 | | .STRTAB 0x0017->0x0218 ; "Sort_Field_Is_Ambiguous: " 020e 002e | . | .STRTAB 0x002e->0x0225 ; "Sort_Field_Is_Undefined: " 020f 0045 | E | .STRTAB 0x0045->0x0231 ; "Sort_Field_Not_In_Table: " 0210 005c | \ | .STRTAB 0x005c->0x023e ; "Field_Name_Is_Ambiguous: " 0211 0073 | s | .STRTAB 0x0073->0x024a ; "Field_Name_Is_Undefined: " 0212 008a | | .STRTAB 0x008a->0x0257 ; " " 0213 0089 | | .STREND 0x0089->0x0257 0214 3c44 4546 |<DEF| .STRTAB_STRINGS 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug Table 0258 ; -------------------------------------------------------------------------------------- 0258 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf235,0x0000,0x0001,0x0000 025e c001 6119 | a | .XXX[0x1a2] 0260 c995 9541 | A| 0262 a5e1 b585 | | 0264 c001 611d | a | 0266 95bd b595 | | 0268 d1c9 e401 | | 026a 611d 95d1 |a | 026c 15c9 c9bd | | 026e c911 85d1 | | 0270 8589 85cd | | 0272 9551 95e1 | Q | 0274 d001 611d | a | 0276 95d1 15c9 | | 0278 c9bd c951 | Q| 027a 95e1 d001 | | 027c 611d 95d1 |a | 027e 19bd b9d1 | | 0280 41c9 bdc1 |A | 0282 95c9 d1e4 | | 0284 0161 1d95 | a | 0286 d11d 0d59 | Y| 0288 85b1 d595 | | 028a cc01 611d | a | 028c 95d1 1d95 | | 028e bdb5 95d1 | | 0290 c9e4 0161 | a| 0292 1d95 d125 | %| 0294 8dbd b939 | 9| 0296 85b5 9401 | | 0298 611d 95d1 |a | 029a 25b9 c1d5 |% | 029c d119 bd8d | | 029e d5cc 0161 | a| 02a0 1d95 d12d | -| 02a2 95e5 89bd | | 02a4 85c9 910d | | 02a6 bdb9 d1c9 | | 02a8 bdb0 0161 | a| 02aa 1d95 d141 | A| 02ac bda5 b9d1 | | 02ae 95c9 0dbd | | 02b0 b9d1 c9bd | | 02b2 b001 611d | a | 02b4 95d1 41bd | A | 02b6 a5b9 d195 | | 02b8 c935 85c1 | 5 | 02ba c1a5 b99c | | 02bc 0161 1d95 | a | 02be d14d 8dc9 | M | 02c0 9595 b94d | M| 02c2 85d9 95c8 | | 02c4 0161 1d95 | a | 02c6 d151 c985 | Q | 02c8 b9cd a595 | | 02ca b9d1 19bd | | 02cc c921 a5b9 | ! | 02ce d001 611d | a | 02d0 95d1 5da5 | ] | 02d2 b991 bddd | | 02d4 41c9 bdc1 |A | 02d6 95c9 d1e4 | | 02d8 0161 1d95 | a | 02da d15d a5b9 | ] | 02dc 91bd dd05 | | 02de d1d1 c9a5 | | 02e0 89d5 d195 | | 02e2 cc01 611d | a | 02e4 c985 8909 | | 02e6 d5d1 d1bd | | 02e8 b801 611d | a | 02ea c985 892d | -| 02ec 95e4 0161 | a| 02ee 1dc9 8589 | | 02f0 2d95 e589 |- | 02f2 bd85 c990 | | 02f4 0161 1dc9 | a | 02f6 8589 41bd | A | 02f8 a5b9 d195 | | 02fa c801 611d | a | 02fc c985 894d | M| 02fe 95c9 d995 | | 0300 c801 6121 | a!| 0302 95a5 9da1 | | 0304 d135 353d | 55=| 0306 994d 8dc9 | M | 0308 9595 b801 | | 030a 6121 95a5 |a! | 030c 9da1 d13d | =| 030e 994d 8dc9 | M | 0310 9595 b801 | | 0312 6125 9915 |a% | 0314 d995 b9d0 | | 0316 0161 25b5 | a% | 0318 859d 9509 | | 031a e5d1 953d | =| 031c c991 95c8 | | 031e 0161 25b9 | a% | 0320 cdd1 85b1 | | 0322 b10d bdb1 | | 0324 bdc9 b585 | | 0326 c001 612d | a-| 0328 95e5 cde5 | | 032a b551 bd2d | Q -| 032c 95e5 8dbd | | 032e 9194 0161 | a| 0330 2da5 b1b1 |- | 0332 0db1 a595 | | 0334 b9d0 0161 | a| 0336 31bd bdad |1 | 0338 d5c1 0dbd | | 033a b1bd c801 | | 033c 6131 bddd |a1 | 033e 95c9 5da5 | ] | 0340 b991 bddc | | 0342 0161 3585 | a5 | 0344 c149 85a5 | I | 0346 cd95 9001 | | 0348 6135 85c1 |a5 | 034a 4dd5 89dd |M | 034c a5b9 91bd | | 034e ddcc 0161 | a| 0350 3585 c15d |5 ]| 0352 a5b9 91bd | | 0354 dc01 6135 | a5| 0356 85cd ad15 | | 0358 d995 b9d0 | | 035a 0161 3585 | a5 | 035c e10d b585 | | 035e c1cd 3d99 | = | 0360 4d8d c995 |M | 0362 95b8 0161 | a| 0364 35a5 b90d |5 | 0366 b585 c1cd | | 0368 3d99 4d8d |= M | 036a c995 95b8 | | 036c 0161 35bd | a5 | 036e d995 4995 | I | 0370 cda5 e995 | | 0372 5da5 b991 |] | 0374 bddc 0161 | a| 0376 35bd d995 |5 | 0378 5da5 b991 |] | 037a bddc 0161 | a| 037c 3995 e1d1 |9 | 037e 15d9 95b9 | | 0380 d001 6139 | a9| 0382 bd3d c001 | = | 0384 6141 85c9 |aA | 0386 cd95 0dbd | | 0388 b1bd c801 | | 038a 6141 85c9 |aA | 038c cd95 1d95 | | 038e bdb5 95d1 | | 0390 c9e4 0161 | a| 0392 4195 95ad |A | 0394 15d9 95b9 | | 0396 d001 6141 | aA| 0398 9595 ad25 | %| 039a 9915 d995 | | 039c b9d0 0161 | a| 039e 4195 b991 |A | 03a0 a5b9 9c01 | | 03a2 6141 b185 |aA | 03a4 b995 cd3d | =| 03a6 994d 8dc9 | M | 03a8 9595 b801 | | 03aa 6141 c9bd |aA | 03ac d1bd 8dbd | | 03ae b149 95d9 | I | 03b0 a5cd a5bd | | 03b2 b801 6141 | aA| 03b4 c9bd d1bd | | 03b6 8dbd b159 | Y| 03b8 95c9 cda5 | | 03ba bdb8 0161 | a| 03bc 41d5 d109 |A | 03be 858d ad15 | | 03c0 d995 b9d0 | | 03c2 0161 41d5 | aA | 03c4 d125 b585 | % | 03c6 9d94 0161 | a| 03c8 4531 95b9 |E1 | 03ca 9dd1 a001 | | 03cc 6145 d595 |aE | 03ce c9e5 0995 | | 03d0 cdd1 0dc0 | | 03d2 0000 0040 | @| 03d4 0002 7dd4 | } | 03d6 0114 3d41 | =A| 03d8 5549 1d15 |UI | 03da 7d3d 3111 |}=1 | 03dc 7d59 2515 |}Y% | 03de 5d4c 0088 |]L | 03e0 2d15 1919 |- | 03e2 3d49 517d |=IQ}| 03e4 3d39 3164 |=91d| 03e6 0020 1d09 | | 03e8 3d3d 3115 |==1 | 03ea 0538 0038 | 8 8| 03ec 1151 4955 | QIU| 03ee 1402 0021 | !| 03f0 5149 657d |QIe}| 03f2 2105 4910 |! I | 03f4 0068 1519 | h | 03f6 0531 4d14 | 1M | 03f8 0090 3d05 | = | 03fa 314d 3d7d |1M=}| 03fc 2d15 1541 |- A| 03fe 7d59 2515 |}Y% |