|
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_03bcfe
└─⟦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,0x34d4,0x0000,0x0001,0x0000 025e 0000 0000 | | .BLANK 0000[0x1a2]