|
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 6f6f 703d |oop=| .XXX[0x3b]
0270 1053 686f | Sho|
0272 756c 645f |uld_|
0274 4265 5f44 |Be_D|
0276 6973 706c |ispl|
0278 6179 6564 |ayed|
027a 2028 532c | (S,|
027c 204e 616d | Nam|
027e 6527 2843 |e'(C|
0280 616c 6c65 |alle|
0282 725f 4e61 |r_Na|
0284 6d65 7320 |mes |
0286 2849 292c |(I),|
0288 2049 292c | I),|
028a 2046 6f75 | Fou|
028c 6e64 293b |nd);|
028e 0000 0000 | |
0290 000a bf7b | {|
0292 6520 0000 |e |
0294 0000 8013 | |
0296 0000 71db | q |
0298 0000 0000 | |
029a 0000 c72b | +|
029c 0000 0002 | |
029e 0000 0004 | |
02a0 002b feac | + |
02a2 002b feac | + |
02a4 002b fdec | + |
02a6 0000 0000 | |
02a8 01e7 | |
02a9 0000 0000 | | .BLANK 0000[0x4]
02ad 000c 63b7 | c | .XXX[0x47]
02af d054 9490 | T |
02b1 5657 d1d1 |VW |
02b3 5391 5492 |S T |
02b5 50c9 d4d4 |P |
02b7 1150 d553 | P S|
02b9 9255 14cb | U |
02bb 9154 94d0 | T |
02bd 5516 97d0 |U |
02bf 5494 9056 |T V|
02c1 57d1 d153 |W S|
02c3 9154 9250 | T P|
02c5 c9d4 d411 | |
02c7 50e0 07e0 |P |
02c9 06a0 04a0 | |
02cb 05a0 06e0 | |
02cd 06c0 0000 | |
02cf 7640 3fff |v@? |
02d1 ffc0 0000 | |
02d3 1540 0000 | @ |
02d5 0020 0000 | |
02d7 07c0 0031 | 1|
02d9 cac0 0000 | |
02db 0000 0000 | |
02dd 1000 0000 | |
02df 4e00 0000 |N |
02e1 0040 0000 | @ |
02e3 07d5 5392 | S |
02e5 5514 cb91 |U |
02e7 5494 d055 |T U|
02e9 1697 d054 | T|
02eb 9490 5657 | VW|
02ed d1d1 5391 | S |
02ef 5492 50c9 |T P |
02f1 d4d4 1150 | P|
02f3 d010 | |
02f4 1010 1010 | | .BLANK 1010[0x7e]
0372 0008 | | .XXX[0x1]
0373 0808 0808 | | .BLANK 0808[0x81]
03f4 0000 0000 | | .XXX[0x5]
03f6 4000 0000 |@ |
03f8 4000 |@ |
03f9 0000 0000 | | .BLANK 0000[0x5]
03fe 8000 0000 | | .XXX[0x2]