|
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: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0900ea
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03f8 | | .CONST 0x03f8 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a2 | | .CONST 0x00a2 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0034 | 4 | .CONST 0x0034 ; Number of locals
000b INIT_0008:
000b 00d8 | | Load_Top At_Offset_0
000c 0265 | e | Execute Discrete,Reverse_Bounds
000d 00da | | Load_Top At_Offset_2
000e 1c04 | | Execute_Immediate Run_Utility,0x4
000f 00d0 | | Action Swap_Control
0010 00da | | Load_Top At_Offset_2
0011 1c04 | | Execute_Immediate Run_Utility,0x4
0012 e003 | | Load 0x0,0x3
0013 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0015 4801 |H | Short_Literal 0x1
0016 035e | ^ | Declare_Type Array,Defined,Visible
0017 00d9 | | Load_Top At_Offset_1
0018 0265 | e | Execute Discrete,Reverse_Bounds
0019 00db | | Load_Top At_Offset_3
001a 1c04 | | Execute_Immediate Run_Utility,0x4
001b 00d0 | | Action Swap_Control
001c 00db | | Load_Top At_Offset_3
001d 1c04 | | Execute_Immediate Run_Utility,0x4
001e e004 | | Load 0x0,0x4
001f 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0021 4801 |H | Short_Literal 0x1
0022 035e | ^ | Declare_Type Array,Defined,Visible
0023 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0025 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0027 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0029 0007 | | Action Break_Optional
002a 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
002c 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
002e 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0030 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0032 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0034 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0036 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0038 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
003a 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
003c 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
003e 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0040 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0042 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0044 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0046 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0048 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
004a 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
004c 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
004e 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0050 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0052 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0054 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0056 0093 0000 | | push_full_address 0x0
0058 6073 |`s | Indirect_Literal Discrete,0xcc,{0x80000000, 0x00020000}
0059 0273 | s | Execute Discrete,Plus
005a e20d | | Load 0x1,0xd
005b 606c |`l | Indirect_Literal Discrete,0xc8,{0x00000000, 0x0000ffff}
005c 0279 | y | Execute Discrete,And
005d 0273 | s | Execute Discrete,Plus
005e 0129 | ) | Execute Any,Make_Visible
005f 00bf | | Action Accept_Activation
0060 e005 | | Load 0x0,0x5
0061 0007 | | Action Break_Optional
0062 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call
0064 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0066 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0068 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
006a 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
006c 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
006e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006f 00c7 | | Action Elaborate_Subprogram
0070 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0071 00c7 | | Action Elaborate_Subprogram
0072 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0073 00c7 | | Action Elaborate_Subprogram
0074 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0075 00c7 | | Action Elaborate_Subprogram
0076 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call
0078 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0079 00c7 | | Action Elaborate_Subprogram
007a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
007b 00c7 | | Action Elaborate_Subprogram
007c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007f 00c7 | | Action Elaborate_Subprogram
0080 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0081 00c7 | | Action Elaborate_Subprogram
0082 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0083 00c7 | | Action Elaborate_Subprogram
0084 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0085 00c7 | | Action Elaborate_Subprogram
0086 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0087 00c7 | | Action Elaborate_Subprogram
0088 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0089 00c7 | | Action Elaborate_Subprogram
008a 1d20 | | Execute_Immediate Reference_Lex_1,0x20
008b 00c7 | | Action Elaborate_Subprogram
008c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
008d 00c7 | | Action Elaborate_Subprogram
008e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
008f 00c7 | | Action Elaborate_Subprogram
0090 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0091 00c7 | | Action Elaborate_Subprogram
0092 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0093 00c7 | | Action Elaborate_Subprogram
0094 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0095 00c7 | | Action Elaborate_Subprogram
0096 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0097 00c7 | | Action Elaborate_Subprogram
0098 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0099 00c7 | | Action Elaborate_Subprogram
009a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
009b 00c7 | | Action Elaborate_Subprogram
009c 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
009d 00c7 | | Action Elaborate_Subprogram
009e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00a1 00c7 | | Action Elaborate_Subprogram
00a2 BODY_0008:
00a2 8233 | 3 | Call 0x1,0x33
00a3 e20f | | Load 0x1,0xf
00a4 e20e | | Load 0x1,0xe
00a5 00d8 | | Load_Top At_Offset_0
00a6 e006 | | Load 0x0,0x6
00a7 0260 | ` | Execute Discrete,In_Type
00a8 7001 |p | Jump_Nonzero 0xaa
00a9 0801 | | Execute_Immediate Raise,0x1
00aa 8007 | | Call 0x0,0x7
00ab a22d | - | Store_Unchecked 0x1,0x2d
00ac e22d | - | Load 0x1,0x2d
00ad 8008 | | Call 0x0,0x8
00ae 00bc | | Action Signal_Activated
00af 00bb | | Action Signal_Completion
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00d1 | | Pop_Control Pop_Count_1
00b4 00da | | Load_Top At_Offset_2
00b5 01d8 | | Execute Vector,Element_Type
00b6 02ff | | Declare_Variable Variant_Record
00b7 00d8 | | Load_Top At_Offset_0
00b8 1c00 | | Execute_Immediate Run_Utility,0x0
00b9 00db | | Load_Top At_Offset_3
00ba 01dc | | Execute Vector,Last
00bb e5ff | | Load 0x2,-0x1
00bc 01dd | | Execute Vector,First
00bd 0263 | c | Execute Discrete,Above_Bound
00be 7006 |p | Jump_Nonzero 0xc5
00bf 00da | | Load_Top At_Offset_2
00c0 00d9 | | Load_Top At_Offset_1
00c1 e5ff | | Load 0x2,-0x1
00c2 01d6 | | Execute Vector,Field_Write
00c3 0a01 | | Execute_Immediate Plus,0x1
00c4 7ff8 | | Jump 0xbd
00c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00c6 0000 0000 | | .XXX[0x2]
00c8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00cc 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00d1 | | Pop_Control Pop_Count_1
00d4 00da | | Load_Top At_Offset_2
00d5 01dc | | Execute Vector,Last
00d6 00db | | Load_Top At_Offset_3
00d7 01dd | | Execute Vector,First
00d8 0263 | c | Execute Discrete,Above_Bound
00d9 700a |p | Jump_Nonzero 0xe4
00da 00d8 | | Load_Top At_Offset_0
00db e5ff | | Load 0x2,-0x1
00dc 01d5 | | Execute Vector,Field_Reference
00dd 0125 | % | Execute Any,Set_Constraint
00de 00d8 | | Load_Top At_Offset_0
00df e5ff | | Load 0x2,-0x1
00e0 01d5 | | Execute Vector,Field_Reference
00e1 1c00 | | Execute_Immediate Run_Utility,0x0
00e2 0a01 | | Execute_Immediate Plus,0x1
00e3 7ff4 | | Jump 0xd8
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e22d | - | Load 0x1,0x2d
00ec 00ca | | Action Exit_Nullary_Function
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 822e | . | Call 0x1,0x2e
00f4 4800 |H | Short_Literal 0x0
00f5 e009 | | Load 0x0,0x9
00f6 1c08 | | Execute_Immediate Run_Utility,0x8
00f7 e22d | - | Load 0x1,0x2d
00f8 800a | | Call 0x0,0xa
00f9 00d9 | | Load_Top At_Offset_1
00fa 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00fb 00db | | Load_Top At_Offset_3
00fc 8231 | 1 | Call 0x1,0x31
00fd 00d9 | | Load_Top At_Offset_1
00fe 00d8 | | Load_Top At_Offset_0
00ff 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0100 00da | | Load_Top At_Offset_2
0101 01da | | Execute Vector,Bounds
0102 00da | | Load_Top At_Offset_2
0103 01da | | Execute Vector,Bounds
0104 00da | | Load_Top At_Offset_2
0105 027f | | Execute Discrete,Equal
0106 7001 |p | Jump_Nonzero 0x108
0107 08e0 | | Execute_Immediate Raise,0xe0
0108 00cd | | Action Spare6_Action
0109 027f | | Execute Discrete,Equal
010a 7001 |p | Jump_Nonzero 0x10c
010b 08e0 | | Execute_Immediate Raise,0xe0
010c 00d2 | | Pop_Control Pop_Count_2
010d 00d9 | | Load_Top At_Offset_1
010e 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 822e | . | Call 0x1,0x2e
0114 4801 |H | Short_Literal 0x1
0115 e009 | | Load 0x0,0x9
0116 1c08 | | Execute_Immediate Run_Utility,0x8
0117 e22d | - | Load 0x1,0x2d
0118 800a | | Call 0x0,0xa
0119 00d9 | | Load_Top At_Offset_1
011a 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
011b 00db | | Load_Top At_Offset_3
011c 8231 | 1 | Call 0x1,0x31
011d 00d9 | | Load_Top At_Offset_1
011e 00d8 | | Load_Top At_Offset_0
011f 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0120 00da | | Load_Top At_Offset_2
0121 01da | | Execute Vector,Bounds
0122 00da | | Load_Top At_Offset_2
0123 01da | | Execute Vector,Bounds
0124 00da | | Load_Top At_Offset_2
0125 027f | | Execute Discrete,Equal
0126 7001 |p | Jump_Nonzero 0x128
0127 08e0 | | Execute_Immediate Raise,0xe0
0128 00cd | | Action Spare6_Action
0129 027f | | Execute Discrete,Equal
012a 7001 |p | Jump_Nonzero 0x12c
012b 08e0 | | Execute_Immediate Raise,0xe0
012c 00d2 | | Pop_Control Pop_Count_2
012d 00d9 | | Load_Top At_Offset_1
012e 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 8231 | 1 | Call 0x1,0x31
0135 800b | | Call 0x0,0xb
0136 e004 | | Load 0x0,0x4
0137 0119 | | Execute Any,Check_In_Formal_Type
0138 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0147 | G | .CONST 0x0147 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e211 | | Load 0x1,0x11
0144 0337 | 7 | Declare_Variable Array
0145 00d8 | | Load_Top At_Offset_0
0146 1c00 | | Execute_Immediate Run_Utility,0x0
0147 BODY_0140:
0147 00db | | Load_Top At_Offset_3
0148 8234 | 4 | Call 0x1,0x34
0149 00cf | | Action Mark_Auxiliary
014a e210 | | Load 0x1,0x10
014b 0265 | e | Execute Discrete,Reverse_Bounds
014c 0263 | c | Execute Discrete,Above_Bound
014d 7018 |p | Jump_Nonzero 0x166
014e 00d8 | | Load_Top At_Offset_0
014f 00d8 | | Load_Top At_Offset_0
0150 e210 | | Load 0x1,0x10
0151 0260 | ` | Execute Discrete,In_Type
0152 7001 |p | Jump_Nonzero 0x154
0153 0801 | | Execute_Immediate Raise,0x1
0154 8230 | 0 | Call 0x1,0x30
0155 e5ff | | Load 0x2,-0x1
0156 800c | | Call 0x0,0xc
0157 00d9 | | Load_Top At_Offset_1
0158 e210 | | Load 0x1,0x10
0159 1c04 | | Execute_Immediate Run_Utility,0x4
015a e402 | | Load 0x2,0x2
015b 01d6 | | Execute Vector,Field_Write
015c 00c8 | | Action Pop_Auxiliary_Range
015d 00d9 | | Load_Top At_Offset_1
015e 00d9 | | Load_Top At_Offset_1
015f 027f | | Execute Discrete,Equal
0160 7004 |p | Jump_Nonzero 0x165
0161 e210 | | Load 0x1,0x10
0162 0122 | " | Execute Any,Make_Root_Type
0163 1c07 | | Execute_Immediate Run_Utility,0x7
0164 7fe9 | | Jump 0x14e
0165 00d2 | | Pop_Control Pop_Count_2
0166 00ce | | Action Pop_Auxiliary
0167 00d8 | | Load_Top At_Offset_0
0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 8234 | 4 | Call 0x1,0x34
0175 00db | | Load_Top At_Offset_3
0176 00d8 | | Load_Top At_Offset_0
0177 e210 | | Load 0x1,0x10
0178 0260 | ` | Execute Discrete,In_Type
0179 7001 |p | Jump_Nonzero 0x17b
017a 0801 | | Execute_Immediate Raise,0x1
017b 8230 | 0 | Call 0x1,0x30
017c 00db | | Load_Top At_Offset_3
017d 800c | | Call 0x0,0xc
017e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017f 0000 | | .XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00db | | Load_Top At_Offset_3
0184 00d8 | | Load_Top At_Offset_0
0185 e210 | | Load 0x1,0x10
0186 0260 | ` | Execute Discrete,In_Type
0187 7001 |p | Jump_Nonzero 0x189
0188 0801 | | Execute_Immediate Raise,0x1
0189 00db | | Load_Top At_Offset_3
018a 8218 | | Call 0x1,0x18
018b 800d | | Call 0x0,0xd
018c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00db | | Load_Top At_Offset_3
0194 00d8 | | Load_Top At_Offset_0
0195 e210 | | Load 0x1,0x10
0196 0260 | ` | Execute Discrete,In_Type
0197 7001 |p | Jump_Nonzero 0x199
0198 0801 | | Execute_Immediate Raise,0x1
0199 00db | | Load_Top At_Offset_3
019a 8218 | | Call 0x1,0x18
019b 800e | | Call 0x0,0xe
019c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00db | | Load_Top At_Offset_3
01a4 00d8 | | Load_Top At_Offset_0
01a5 e210 | | Load 0x1,0x10
01a6 0260 | ` | Execute Discrete,In_Type
01a7 7001 |p | Jump_Nonzero 0x1a9
01a8 0801 | | Execute_Immediate Raise,0x1
01a9 00db | | Load_Top At_Offset_3
01aa 8218 | | Call 0x1,0x18
01ab 800f | | Call 0x0,0xf
01ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 00d8 | | Load_Top At_Offset_0
01b5 e210 | | Load 0x1,0x10
01b6 0260 | ` | Execute Discrete,In_Type
01b7 7001 |p | Jump_Nonzero 0x1b9
01b8 0801 | | Execute_Immediate Raise,0x1
01b9 00db | | Load_Top At_Offset_3
01ba 8218 | | Call 0x1,0x18
01bb 8010 | | Call 0x0,0x10
01bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00db | | Load_Top At_Offset_3
01c4 00d8 | | Load_Top At_Offset_0
01c5 e210 | | Load 0x1,0x10
01c6 0260 | ` | Execute Discrete,In_Type
01c7 7001 |p | Jump_Nonzero 0x1c9
01c8 0801 | | Execute_Immediate Raise,0x1
01c9 00db | | Load_Top At_Offset_3
01ca 8218 | | Call 0x1,0x18
01cb 8011 | | Call 0x0,0x11
01cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00db | | Load_Top At_Offset_3
01d4 00d8 | | Load_Top At_Offset_0
01d5 e210 | | Load 0x1,0x10
01d6 0260 | ` | Execute Discrete,In_Type
01d7 7001 |p | Jump_Nonzero 0x1d9
01d8 0801 | | Execute_Immediate Raise,0x1
01d9 00db | | Load_Top At_Offset_3
01da 8218 | | Call 0x1,0x18
01db 8012 | | Call 0x0,0x12
01dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00db | | Load_Top At_Offset_3
01e4 00d8 | | Load_Top At_Offset_0
01e5 e210 | | Load 0x1,0x10
01e6 0260 | ` | Execute Discrete,In_Type
01e7 7001 |p | Jump_Nonzero 0x1e9
01e8 0801 | | Execute_Immediate Raise,0x1
01e9 00db | | Load_Top At_Offset_3
01ea 8218 | | Call 0x1,0x18
01eb 8013 | | Call 0x0,0x13
01ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00db | | Load_Top At_Offset_3
01f4 00db | | Load_Top At_Offset_3
01f5 8232 | 2 | Call 0x1,0x32
01f6 e22d | - | Load 0x1,0x2d
01f7 8014 | | Call 0x0,0x14
01f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207 | | .CONST 0x0207 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e003 | | Load 0x0,0x3
0204 02ff | | Declare_Variable Variant_Record
0205 00d8 | | Load_Top At_Offset_0
0206 1c00 | | Execute_Immediate Run_Utility,0x0
0207 BODY_0200:
0207 00d8 | | Load_Top At_Offset_0
0208 e5ff | | Load 0x2,-0x1
0209 8232 | 2 | Call 0x1,0x32
020a e22d | - | Load 0x1,0x2d
020b 8014 | | Call 0x0,0x14
020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 8234 | 4 | Call 0x1,0x34
0215 00da | | Load_Top At_Offset_2
0216 8015 | | Call 0x0,0x15
0217 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 8234 | 4 | Call 0x1,0x34
021d 00db | | Load_Top At_Offset_3
021e 8232 | 2 | Call 0x1,0x32
021f 00db | | Load_Top At_Offset_3
0220 8016 | | Call 0x0,0x16
0221 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0222 0000 0000 | | .BLANK 0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c 8234 | 4 | Call 0x1,0x34
022d e5fd | | Load 0x2,-0x3
022e e5fe | | Load 0x2,-0x2
022f 00d8 | | Load_Top At_Offset_0
0230 e210 | | Load 0x1,0x10
0231 0260 | ` | Execute Discrete,In_Type
0232 7001 |p | Jump_Nonzero 0x234
0233 0801 | | Execute_Immediate Raise,0x1
0234 8230 | 0 | Call 0x1,0x30
0235 e5ff | | Load 0x2,-0x1
0236 8017 | | Call 0x0,0x17
0237 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e5fd | | Load 0x2,-0x3
023c 8018 | | Call 0x0,0x18
023d e5fe | | Load 0x2,-0x2
023e 00d8 | | Load_Top At_Offset_0
023f e210 | | Load 0x1,0x10
0240 0260 | ` | Execute Discrete,In_Type
0241 7001 |p | Jump_Nonzero 0x243
0242 0801 | | Execute_Immediate Raise,0x1
0243 e5ff | | Load 0x2,-0x1
0244 8224 | $ | Call 0x1,0x24
0245 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e5fd | | Load 0x2,-0x3
024c 8019 | | Call 0x0,0x19
024d e5fe | | Load 0x2,-0x2
024e 00d8 | | Load_Top At_Offset_0
024f e210 | | Load 0x1,0x10
0250 0260 | ` | Execute Discrete,In_Type
0251 7001 |p | Jump_Nonzero 0x253
0252 0801 | | Execute_Immediate Raise,0x1
0253 e5ff | | Load 0x2,-0x1
0254 8224 | $ | Call 0x1,0x24
0255 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e5fd | | Load 0x2,-0x3
025c 801a | | Call 0x0,0x1a
025d e5fe | | Load 0x2,-0x2
025e 00d8 | | Load_Top At_Offset_0
025f e210 | | Load 0x1,0x10
0260 0260 | ` | Execute Discrete,In_Type
0261 7001 |p | Jump_Nonzero 0x263
0262 0801 | | Execute_Immediate Raise,0x1
0263 e5ff | | Load 0x2,-0x1
0264 8224 | $ | Call 0x1,0x24
0265 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e5fd | | Load 0x2,-0x3
026c 801b | | Call 0x0,0x1b
026d e5fe | | Load 0x2,-0x2
026e 00d8 | | Load_Top At_Offset_0
026f e210 | | Load 0x1,0x10
0270 0260 | ` | Execute Discrete,In_Type
0271 7001 |p | Jump_Nonzero 0x273
0272 0801 | | Execute_Immediate Raise,0x1
0273 e5ff | | Load 0x2,-0x1
0274 8224 | $ | Call 0x1,0x24
0275 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b e5fd | | Load 0x2,-0x3
027c 801c | | Call 0x0,0x1c
027d e5fe | | Load 0x2,-0x2
027e 00d8 | | Load_Top At_Offset_0
027f e210 | | Load 0x1,0x10
0280 0260 | ` | Execute Discrete,In_Type
0281 7001 |p | Jump_Nonzero 0x283
0282 0801 | | Execute_Immediate Raise,0x1
0283 e5ff | | Load 0x2,-0x1
0284 8224 | $ | Call 0x1,0x24
0285 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e5fd | | Load 0x2,-0x3
028c 801d | | Call 0x0,0x1d
028d e5fe | | Load 0x2,-0x2
028e 00d8 | | Load_Top At_Offset_0
028f e210 | | Load 0x1,0x10
0290 0260 | ` | Execute Discrete,In_Type
0291 7001 |p | Jump_Nonzero 0x293
0292 0801 | | Execute_Immediate Raise,0x1
0293 e5ff | | Load 0x2,-0x1
0294 8224 | $ | Call 0x1,0x24
0295 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a5 | | .CONST 0x02a5 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b 00e1 | | Load_Encached Boolean_Cache
029c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
029d e22d | - | Load 0x1,0x2d
029e 800a | | Call 0x0,0xa
029f e006 | | Load 0x0,0x6
02a0 1c04 | | Execute_Immediate Run_Utility,0x4
02a1 e006 | | Load 0x0,0x6
02a2 0122 | " | Execute Any,Make_Root_Type
02a3 011c | | Execute Any,Convert_Unchecked
02a4 1c01 | | Execute_Immediate Run_Utility,0x1
02a5 BODY_0298:
02a5 e5fd | | Load 0x2,-0x3
02a6 8234 | 4 | Call 0x1,0x34
02a7 e5fc | | Load 0x2,-0x4
02a8 00d9 | | Load_Top At_Offset_1
02a9 0092 03eb | | Action Push_String_Extended,0x3eb ; "'("
02ab 01cc | | Execute Vector,Catenate
02ac 801e | | Call 0x0,0x1e
02ad e5fc | | Load 0x2,-0x4
02ae 801f | | Call 0x0,0x1f
02af 4801 |H | Short_Literal 0x1
02b0 e5fc | | Load 0x2,-0x4
02b1 8020 | | Call 0x0,0x20
02b2 00cf | | Action Mark_Auxiliary
02b3 e210 | | Load 0x1,0x10
02b4 0265 | e | Execute Discrete,Reverse_Bounds
02b5 0263 | c | Execute Discrete,Above_Bound
02b6 702b |p+ | Jump_Nonzero 0x2e2
02b7 e402 | | Load 0x2,0x2
02b8 7005 |p | Jump_Nonzero 0x2be
02b9 e5fc | | Load 0x2,-0x4
02ba 0092 03ec | | Action Push_String_Extended,0x3ec ; ", "
02bc 8021 | ! | Call 0x0,0x21
02bd 7802 |x | Jump 0x2c0
02be 4800 |H | Short_Literal 0x0
02bf a402 | | Store_Unchecked 0x2,0x2
02c0 e5fc | | Load 0x2,-0x4
02c1 00d9 | | Load_Top At_Offset_1
02c2 e210 | | Load 0x1,0x10
02c3 1c04 | | Execute_Immediate Run_Utility,0x4
02c4 e210 | | Load 0x1,0x10
02c5 0122 | " | Execute Any,Make_Root_Type
02c6 011c | | Execute Any,Convert_Unchecked
02c7 1c01 | | Execute_Immediate Run_Utility,0x1
02c8 0092 03ed | | Action Push_String_Extended,0x3ed ; " =>"
02ca 01cc | | Execute Vector,Catenate
02cb 801e | | Call 0x0,0x1e
02cc e5fc | | Load 0x2,-0x4
02cd 00d9 | | Load_Top At_Offset_1
02ce 00d8 | | Load_Top At_Offset_0
02cf e210 | | Load 0x1,0x10
02d0 0260 | ` | Execute Discrete,In_Type
02d1 7001 |p | Jump_Nonzero 0x2d3
02d2 0801 | | Execute_Immediate Raise,0x1
02d3 e5fd | | Load 0x2,-0x3
02d4 8218 | | Call 0x1,0x18
02d5 00da | | Load_Top At_Offset_2
02d6 85fe | | Call 0x2,-0x2
02d7 801e | | Call 0x0,0x1e
02d8 00c8 | | Action Pop_Auxiliary_Range
02d9 00d9 | | Load_Top At_Offset_1
02da 00d9 | | Load_Top At_Offset_1
02db 027f | | Execute Discrete,Equal
02dc 7004 |p | Jump_Nonzero 0x2e1
02dd e210 | | Load 0x1,0x10
02de 0122 | " | Execute Any,Make_Root_Type
02df 1c07 | | Execute_Immediate Run_Utility,0x7
02e0 7fd6 | | Jump 0x2b7
02e1 00d2 | | Pop_Control Pop_Count_2
02e2 00ce | | Action Pop_Auxiliary
02e3 e5fc | | Load 0x2,-0x4
02e4 8022 | " | Call 0x0,0x22
02e5 e5fc | | Load 0x2,-0x4
02e6 0092 03ee | | Action Push_String_Extended,0x3ee ; ")"
02e8 8021 | ! | Call 0x0,0x21
02e9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02ff | | .CONST 0x02ff ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0003 | | .CONST 0x0003 ; Number of locals
02f3 INIT_02f0:
02f3 e210 | | Load 0x1,0x10
02f4 026a | j | Execute Discrete,First
02f5 e210 | | Load 0x1,0x10
02f6 1c04 | | Execute_Immediate Run_Utility,0x4
02f7 00e3 | | Load_Encached Natural_Cache
02f8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02f9 e210 | | Load 0x1,0x10
02fa 0269 | i | Execute Discrete,Last
02fb e210 | | Load 0x1,0x10
02fc 1c04 | | Execute_Immediate Run_Utility,0x4
02fd 00e3 | | Load_Encached Natural_Cache
02fe 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02ff BODY_02f0:
02ff 00d8 | | Load_Top At_Offset_0
0300 00da | | Load_Top At_Offset_2
0301 0272 | r | Execute Discrete,Minus
0302 0a01 | | Execute_Immediate Plus,0x1
0303 00d8 | | Load_Top At_Offset_0
0304 00e3 | | Load_Encached Natural_Cache
0305 0260 | ` | Execute Discrete,In_Type
0306 7001 |p | Jump_Nonzero 0x308
0307 0801 | | Execute_Immediate Raise,0x1
0308 00ca | | Action Exit_Nullary_Function
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 e210 | | Load 0x1,0x10
0315 1c04 | | Execute_Immediate Run_Utility,0x4
0316 e210 | | Load 0x1,0x10
0317 026a | j | Execute Discrete,First
0318 e210 | | Load 0x1,0x10
0319 1c04 | | Execute_Immediate Run_Utility,0x4
031a 0272 | r | Execute Discrete,Minus
031b 0a01 | | Execute_Immediate Plus,0x1
031c 00d8 | | Load_Top At_Offset_0
031d e023 | # | Load 0x0,0x23
031e 0260 | ` | Execute Discrete,In_Type
031f 7001 |p | Jump_Nonzero 0x321
0320 0801 | | Execute_Immediate Raise,0x1
0321 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0322 0000 0000 | | .BLANK 0000[0x6]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c e210 | | Load 0x1,0x10
032d 1c04 | | Execute_Immediate Run_Utility,0x4
032e e210 | | Load 0x1,0x10
032f 026a | j | Execute Discrete,First
0330 e210 | | Load 0x1,0x10
0331 1c04 | | Execute_Immediate Run_Utility,0x4
0332 0272 | r | Execute Discrete,Minus
0333 0a01 | | Execute_Immediate Plus,0x1
0334 00d8 | | Load_Top At_Offset_0
0335 e024 | $ | Load 0x0,0x24
0336 0260 | ` | Execute Discrete,In_Type
0337 7001 |p | Jump_Nonzero 0x339
0338 0801 | | Execute_Immediate Raise,0x1
0339 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033a 0000 0000 | | .BLANK 0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034a | J | .CONST 0x034a ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0002 | | .CONST 0x0002 ; Number of locals
0343 INIT_0340:
0343 4801 |H | Short_Literal 0x1
0344 822e | . | Call 0x1,0x2e
0345 e025 | % | Load 0x0,0x25
0346 035b | [ | Declare_Type Array,Constrained
0347 0337 | 7 | Declare_Variable Array
0348 00d8 | | Load_Top At_Offset_0
0349 1c00 | | Execute_Immediate Run_Utility,0x0
034a BODY_0340:
034a 00cf | | Action Mark_Auxiliary
034b e5ff | | Load 0x2,-0x1
034c 01da | | Execute Vector,Bounds
034d e210 | | Load 0x1,0x10
034e 1c05 | | Execute_Immediate Run_Utility,0x5
034f 00d0 | | Action Swap_Control
0350 e210 | | Load 0x1,0x10
0351 1c05 | | Execute_Immediate Run_Utility,0x5
0352 0263 | c | Execute Discrete,Above_Bound
0353 7018 |p | Jump_Nonzero 0x36c
0354 00d8 | | Load_Top At_Offset_0
0355 e210 | | Load 0x1,0x10
0356 1c04 | | Execute_Immediate Run_Utility,0x4
0357 e5ff | | Load 0x2,-0x1
0358 01d7 | | Execute Vector,Field_Read
0359 00d9 | | Load_Top At_Offset_1
035a 00d8 | | Load_Top At_Offset_0
035b e210 | | Load 0x1,0x10
035c 0260 | ` | Execute Discrete,In_Type
035d 7001 |p | Jump_Nonzero 0x35f
035e 0801 | | Execute_Immediate Raise,0x1
035f 822f | / | Call 0x1,0x2f
0360 e402 | | Load 0x2,0x2
0361 01d6 | | Execute Vector,Field_Write
0362 00c8 | | Action Pop_Auxiliary_Range
0363 00d9 | | Load_Top At_Offset_1
0364 00d9 | | Load_Top At_Offset_1
0365 027f | | Execute Discrete,Equal
0366 7004 |p | Jump_Nonzero 0x36b
0367 e210 | | Load 0x1,0x10
0368 0122 | " | Execute Any,Make_Root_Type
0369 1c07 | | Execute_Immediate Run_Utility,0x7
036a 7fe9 | | Jump 0x354
036b 00d2 | | Pop_Control Pop_Count_2
036c 00ce | | Action Pop_Auxiliary
036d 00d8 | | Load_Top At_Offset_0
036e e025 | % | Load 0x0,0x25
036f 01c6 | | Execute Vector,Convert_To_Formal
0370 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0371 0000 0000 | | .BLANK 0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0382 | | .CONST 0x0382 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0002 | | .CONST 0x0002 ; Number of locals
037b INIT_0378:
037b 4801 |H | Short_Literal 0x1
037c 822e | . | Call 0x1,0x2e
037d e026 | & | Load 0x0,0x26
037e 035b | [ | Declare_Type Array,Constrained
037f 0337 | 7 | Declare_Variable Array
0380 00d8 | | Load_Top At_Offset_0
0381 1c00 | | Execute_Immediate Run_Utility,0x0
0382 BODY_0378:
0382 00cf | | Action Mark_Auxiliary
0383 e5ff | | Load 0x2,-0x1
0384 01da | | Execute Vector,Bounds
0385 e210 | | Load 0x1,0x10
0386 1c05 | | Execute_Immediate Run_Utility,0x5
0387 00d0 | | Action Swap_Control
0388 e210 | | Load 0x1,0x10
0389 1c05 | | Execute_Immediate Run_Utility,0x5
038a 0263 | c | Execute Discrete,Above_Bound
038b 7018 |p | Jump_Nonzero 0x3a4
038c 00d8 | | Load_Top At_Offset_0
038d e210 | | Load 0x1,0x10
038e 1c04 | | Execute_Immediate Run_Utility,0x4
038f e5ff | | Load 0x2,-0x1
0390 01d5 | | Execute Vector,Field_Reference
0391 00d9 | | Load_Top At_Offset_1
0392 00d8 | | Load_Top At_Offset_0
0393 e210 | | Load 0x1,0x10
0394 0260 | ` | Execute Discrete,In_Type
0395 7001 |p | Jump_Nonzero 0x397
0396 0801 | | Execute_Immediate Raise,0x1
0397 8230 | 0 | Call 0x1,0x30
0398 e402 | | Load 0x2,0x2
0399 01d6 | | Execute Vector,Field_Write
039a 00c8 | | Action Pop_Auxiliary_Range
039b 00d9 | | Load_Top At_Offset_1
039c 00d9 | | Load_Top At_Offset_1
039d 027f | | Execute Discrete,Equal
039e 7004 |p | Jump_Nonzero 0x3a3
039f e210 | | Load 0x1,0x10
03a0 0122 | " | Execute Any,Make_Root_Type
03a1 1c07 | | Execute_Immediate Run_Utility,0x7
03a2 7fe9 | | Jump 0x38c
03a3 00d2 | | Pop_Control Pop_Count_2
03a4 00ce | | Action Pop_Auxiliary
03a5 00d8 | | Load_Top At_Offset_0
03a6 e026 | & | Load 0x0,0x26
03a7 01c6 | | Execute Vector,Convert_To_Formal
03a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a9 0000 0000 | | .BLANK 0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b8 | | .CONST 0x03b8 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0002 | | .CONST 0x0002 ; Number of locals
03b3 INIT_03b0:
03b3 4801 |H | Short_Literal 0x1
03b4 822e | . | Call 0x1,0x2e
03b5 e027 | ' | Load 0x0,0x27
03b6 035b | [ | Declare_Type Array,Constrained
03b7 0337 | 7 | Declare_Variable Array
03b8 BODY_03b0:
03b8 00cf | | Action Mark_Auxiliary
03b9 e210 | | Load 0x1,0x10
03ba 0265 | e | Execute Discrete,Reverse_Bounds
03bb 0263 | c | Execute Discrete,Above_Bound
03bc 701b |p | Jump_Nonzero 0x3d8
03bd 00d8 | | Load_Top At_Offset_0
03be e210 | | Load 0x1,0x10
03bf 1c04 | | Execute_Immediate Run_Utility,0x4
03c0 e210 | | Load 0x1,0x10
03c1 0122 | " | Execute Any,Make_Root_Type
03c2 011c | | Execute Any,Convert_Unchecked
03c3 1c01 | | Execute_Immediate Run_Utility,0x1
03c4 8028 | ( | Call 0x0,0x28
03c5 00d9 | | Load_Top At_Offset_1
03c6 00d8 | | Load_Top At_Offset_0
03c7 e210 | | Load 0x1,0x10
03c8 0260 | ` | Execute Discrete,In_Type
03c9 7001 |p | Jump_Nonzero 0x3cb
03ca 0801 | | Execute_Immediate Raise,0x1
03cb 8230 | 0 | Call 0x1,0x30
03cc e402 | | Load 0x2,0x2
03cd 01d6 | | Execute Vector,Field_Write
03ce 00c8 | | Action Pop_Auxiliary_Range
03cf 00d9 | | Load_Top At_Offset_1
03d0 00d9 | | Load_Top At_Offset_1
03d1 027f | | Execute Discrete,Equal
03d2 7004 |p | Jump_Nonzero 0x3d7
03d3 e210 | | Load 0x1,0x10
03d4 0122 | " | Execute Any,Make_Root_Type
03d5 1c07 | | Execute_Immediate Run_Utility,0x7
03d6 7fe6 | | Jump 0x3bd
03d7 00d2 | | Pop_Control Pop_Count_2
03d8 00ce | | Action Pop_Auxiliary
03d9 00d8 | | Load_Top At_Offset_0
03da e027 | ' | Load 0x0,0x27
03db 01c6 | | Execute Vector,Convert_To_Formal
03dc 00ca | | Action Exit_Nullary_Function
03dd 0000 0000 | | .XXX[0x3]
03df 0000 | |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 8029 | ) | Call 0x0,0x29
03e5 e22d | - | Load 0x1,0x2d
03e6 022e | . | Execute Access,Not_Equal
03e7 6802 |h | Jump_Zero 0x3ea
03e8 e22c | , | Load 0x1,0x2c
03e9 0257 | W | Execute Discrete,Raise
03ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03eb ; --------------------------------------------------------------------------------------
03eb ; STRING TABLE
03eb ; --------------------------------------------------------------------------------------
03eb 000a | | .STRTAB 0x000a->0x03f0 ; "'("
03ec 000a | | .STRTAB 0x000a->0x03f1 ; ", "
03ed 000a | | .STRTAB 0x000a->0x03f2 ; " =>"
03ee 000b | | .STRTAB 0x000b->0x03f3 ; ")"
03ef 000a | | .STREND 0x000a->0x03f4
03f0 2728 2c20 |'(, | .STRTAB_STRINGS
03f4 0000 0000 | | .BLANK 0000[0x4]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug Table
03f8 ; --------------------------------------------------------------------------------------
03f8 0004 0006 | | .DEBUG4 0x0004,0x0006,0x8807,0x0000,0x0001,0x0024
03fe 000b 048e | | .DBG4T 0x000b,0x048e,0x4000,0x0000
0402 0060 04ad | ` | .DBG4T 0x0060,0x04ad,0x4000,0x0000
0406 00b3 0000 | | .DBG4T 0x00b3,0x0000,0x1005,0x0000
040a 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x1005,0x0000
040e 00eb 04d2 | | .DBG4T 0x00eb,0x04d2,0x1002,0x0000
0412 00f3 04d5 | | .DBG4T 0x00f3,0x04d5,0x1002,0x0000
0416 0113 04d8 | | .DBG4T 0x0113,0x04d8,0x1002,0x0000
041a 0133 04db | 3 | .DBG4T 0x0133,0x04db,0x1002,0x0000
041e 0143 04de | C | .DBG4T 0x0143,0x04de,0x1002,0x0000
0422 0173 04e5 | s | .DBG4T 0x0173,0x04e5,0x1002,0x0000
0426 0183 04e9 | | .DBG4T 0x0183,0x04e9,0x1002,0x0000
042a 0193 04ec | | .DBG4T 0x0193,0x04ec,0x1002,0x0000
042e 01a3 04ef | | .DBG4T 0x01a3,0x04ef,0x1002,0x0000
0432 01b3 04f2 | | .DBG4T 0x01b3,0x04f2,0x1002,0x0000
0436 01c3 04f5 | | .DBG4T 0x01c3,0x04f5,0x1002,0x0000
043a 01d3 04f8 | | .DBG4T 0x01d3,0x04f8,0x1002,0x0000
043e 01e3 04fb | | .DBG4T 0x01e3,0x04fb,0x1002,0x0000
0442 01f3 04fe | | .DBG4T 0x01f3,0x04fe,0x1001,0x0000
0446 0203 0501 | | .DBG4T 0x0203,0x0501,0x1001,0x0000
044a 0213 0505 | | .DBG4T 0x0213,0x0505,0x1001,0x0000
044e 021b 0509 | | .DBG4T 0x021b,0x0509,0x1001,0x0000
0452 022b 050d | + | .DBG4T 0x022b,0x050d,0x1001,0x0000
0456 023b 0511 | ; | .DBG4T 0x023b,0x0511,0x1001,0x0000
045a 024b 0514 | K | .DBG4T 0x024b,0x0514,0x1001,0x0000
045e 025b 0517 | [ | .DBG4T 0x025b,0x0517,0x1001,0x0000
0462 026b 051a | k | .DBG4T 0x026b,0x051a,0x1001,0x0000
0466 027b 051d | { | .DBG4T 0x027b,0x051d,0x1001,0x0000
046a 028b 0520 | | .DBG4T 0x028b,0x0520,0x1001,0x0000
046e 029b 0523 | #| .DBG4T 0x029b,0x0523,0x3801,0x0002
0472 02f3 0533 | 3| .DBG4T 0x02f3,0x0533,0x1002,0x0000
0476 0313 0538 | 8| .DBG4T 0x0313,0x0538,0x1002,0x0000
047a 032b 053b | + ;| .DBG4T 0x032b,0x053b,0x1002,0x0000
047e 0343 053e | C >| .DBG4T 0x0343,0x053e,0x1002,0x0000
0482 037b 0544 | { D| .DBG4T 0x037b,0x0544,0x1002,0x0000
0486 03b3 054a | J| .DBG4T 0x03b3,0x054a,0x1002,0x0000
048a 03e3 0550 | P| .DBG4T 0x03e3,0x0550,0x1001,0x0000
048e ; --------------------------------------------------------------------------------------
048e ; Debug chain
048e ; --------------------------------------------------------------------------------------
048e 001d 0000 | | .DBGLEN 0x001d,0x0000
0490 000b 0017 | | .DBGLNO 0x000b,0x0017,0x0023,0x0025,0x0027,0x0029,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056
04ad ; --------------------------------------------------------------------------------------
04ad ; Debug chain
04ad ; --------------------------------------------------------------------------------------
04ad 0021 0002 | ! | .DBGLEN 0x0021,0x0002
04af 0060 0062 | ` b| .DBGLNO 0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00ac
04d2 ; --------------------------------------------------------------------------------------
04d2 ; Debug chain
04d2 ; --------------------------------------------------------------------------------------
04d2 0000 0001 | | .DBGLEN 0x0000,0x0001
04d4 00eb | | .DBGLNO 0x00eb
04d5 ; --------------------------------------------------------------------------------------
04d5 ; Debug chain
04d5 ; --------------------------------------------------------------------------------------
04d5 0000 0001 | | .DBGLEN 0x0000,0x0001
04d7 00f3 | | .DBGLNO 0x00f3
04d8 ; --------------------------------------------------------------------------------------
04d8 ; Debug chain
04d8 ; --------------------------------------------------------------------------------------
04d8 0000 0001 | | .DBGLEN 0x0000,0x0001
04da 0113 | | .DBGLNO 0x0113
04db ; --------------------------------------------------------------------------------------
04db ; Debug chain
04db ; --------------------------------------------------------------------------------------
04db 0000 0001 | | .DBGLEN 0x0000,0x0001
04dd 0133 | 3 | .DBGLNO 0x0133
04de ; --------------------------------------------------------------------------------------
04de ; Debug chain
04de ; --------------------------------------------------------------------------------------
04de 0001 0004 | | .DBGLEN 0x0001,0x0004
04e0 0143 0147 | C G| .DBGLNO 0x0143,0x0147,0x014a,0x014e,0x0167
04e5 ; --------------------------------------------------------------------------------------
04e5 ; Debug chain
04e5 ; --------------------------------------------------------------------------------------
04e5 0000 0002 | | .DBGLEN 0x0000,0x0002
04e7 0173 0175 | s u| .DBGLNO 0x0173,0x0175
04e9 ; --------------------------------------------------------------------------------------
04e9 ; Debug chain
04e9 ; --------------------------------------------------------------------------------------
04e9 0000 0001 | | .DBGLEN 0x0000,0x0001
04eb 0183 | | .DBGLNO 0x0183
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug chain
04ec ; --------------------------------------------------------------------------------------
04ec 0000 0001 | | .DBGLEN 0x0000,0x0001
04ee 0193 | | .DBGLNO 0x0193
04ef ; --------------------------------------------------------------------------------------
04ef ; Debug chain
04ef ; --------------------------------------------------------------------------------------
04ef 0000 0001 | | .DBGLEN 0x0000,0x0001
04f1 01a3 | | .DBGLNO 0x01a3
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug chain
04f2 ; --------------------------------------------------------------------------------------
04f2 0000 0001 | | .DBGLEN 0x0000,0x0001
04f4 01b3 | | .DBGLNO 0x01b3
04f5 ; --------------------------------------------------------------------------------------
04f5 ; Debug chain
04f5 ; --------------------------------------------------------------------------------------
04f5 0000 0001 | | .DBGLEN 0x0000,0x0001
04f7 01c3 | | .DBGLNO 0x01c3
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug chain
04f8 ; --------------------------------------------------------------------------------------
04f8 0000 0001 | | .DBGLEN 0x0000,0x0001
04fa 01d3 | | .DBGLNO 0x01d3
04fb ; --------------------------------------------------------------------------------------
04fb ; Debug chain
04fb ; --------------------------------------------------------------------------------------
04fb 0000 0001 | | .DBGLEN 0x0000,0x0001
04fd 01e3 | | .DBGLNO 0x01e3
04fe ; --------------------------------------------------------------------------------------
04fe ; Debug chain
04fe ; --------------------------------------------------------------------------------------
04fe 0000 0001 | | .DBGLEN 0x0000,0x0001
0500 01f3 | | .DBGLNO 0x01f3
0501 ; --------------------------------------------------------------------------------------
0501 ; Debug chain
0501 ; --------------------------------------------------------------------------------------
0501 0001 0001 | | .DBGLEN 0x0001,0x0001
0503 0203 0207 | | .DBGLNO 0x0203,0x0207
0505 ; --------------------------------------------------------------------------------------
0505 ; Debug chain
0505 ; --------------------------------------------------------------------------------------
0505 0000 0002 | | .DBGLEN 0x0000,0x0002
0507 0213 0215 | | .DBGLNO 0x0213,0x0215
0509 ; --------------------------------------------------------------------------------------
0509 ; Debug chain
0509 ; --------------------------------------------------------------------------------------
0509 0000 0002 | | .DBGLEN 0x0000,0x0002
050b 021b 021d | | .DBGLNO 0x021b,0x021d
050d ; --------------------------------------------------------------------------------------
050d ; Debug chain
050d ; --------------------------------------------------------------------------------------
050d 0000 0002 | | .DBGLEN 0x0000,0x0002
050f 022b 022d | + -| .DBGLNO 0x022b,0x022d
0511 ; --------------------------------------------------------------------------------------
0511 ; Debug chain
0511 ; --------------------------------------------------------------------------------------
0511 0000 0001 | | .DBGLEN 0x0000,0x0001
0513 023b | ; | .DBGLNO 0x023b
0514 ; --------------------------------------------------------------------------------------
0514 ; Debug chain
0514 ; --------------------------------------------------------------------------------------
0514 0000 0001 | | .DBGLEN 0x0000,0x0001
0516 024b | K | .DBGLNO 0x024b
0517 ; --------------------------------------------------------------------------------------
0517 ; Debug chain
0517 ; --------------------------------------------------------------------------------------
0517 0000 0001 | | .DBGLEN 0x0000,0x0001
0519 025b | [ | .DBGLNO 0x025b
051a ; --------------------------------------------------------------------------------------
051a ; Debug chain
051a ; --------------------------------------------------------------------------------------
051a 0000 0001 | | .DBGLEN 0x0000,0x0001
051c 026b | k | .DBGLNO 0x026b
051d ; --------------------------------------------------------------------------------------
051d ; Debug chain
051d ; --------------------------------------------------------------------------------------
051d 0000 0001 | | .DBGLEN 0x0000,0x0001
051f 027b | { | .DBGLNO 0x027b
0520 ; --------------------------------------------------------------------------------------
0520 ; Debug chain
0520 ; --------------------------------------------------------------------------------------
0520 0000 0001 | | .DBGLEN 0x0000,0x0001
0522 028b | | .DBGLNO 0x028b
0523 ; --------------------------------------------------------------------------------------
0523 ; Debug chain
0523 ; --------------------------------------------------------------------------------------
0523 0002 000c | | .DBGLEN 0x0002,0x000c
0525 029b 029d | | .DBGLNO 0x029b,0x029d,0x02a5,0x02a7,0x02ad,0x02af,0x02b3,0x02b7,0x02b9,0x02be,0x02c0,0x02cc,0x02e3,0x02e5
0533 ; --------------------------------------------------------------------------------------
0533 ; Debug chain
0533 ; --------------------------------------------------------------------------------------
0533 0002 0001 | | .DBGLEN 0x0002,0x0001
0535 02f3 02f9 | | .DBGLNO 0x02f3,0x02f9,0x02ff
0538 ; --------------------------------------------------------------------------------------
0538 ; Debug chain
0538 ; --------------------------------------------------------------------------------------
0538 0000 0001 | | .DBGLEN 0x0000,0x0001
053a 0313 | | .DBGLNO 0x0313
053b ; --------------------------------------------------------------------------------------
053b ; Debug chain
053b ; --------------------------------------------------------------------------------------
053b 0000 0001 | | .DBGLEN 0x0000,0x0001
053d 032b | + | .DBGLNO 0x032b
053e ; --------------------------------------------------------------------------------------
053e ; Debug chain
053e ; --------------------------------------------------------------------------------------
053e 0001 0003 | | .DBGLEN 0x0001,0x0003
0540 0343 034b | C K| .DBGLNO 0x0343,0x034b,0x0354,0x036d
0544 ; --------------------------------------------------------------------------------------
0544 ; Debug chain
0544 ; --------------------------------------------------------------------------------------
0544 0001 0003 | | .DBGLEN 0x0001,0x0003
0546 037b 0383 | { | .DBGLNO 0x037b,0x0383,0x038c,0x03a5
054a ; --------------------------------------------------------------------------------------
054a ; Debug chain
054a ; --------------------------------------------------------------------------------------
054a 0001 0003 | | .DBGLEN 0x0001,0x0003
054c 03b3 03b9 | | .DBGLNO 0x03b3,0x03b9,0x03bd,0x03d9
0550 ; --------------------------------------------------------------------------------------
0550 ; Debug chain
0550 ; --------------------------------------------------------------------------------------
0550 0000 0002 | | .DBGLEN 0x0000,0x0002
0552 03e3 03e8 | | .DBGLNO 0x03e3,0x03e8
0554 0000 0000 | | .BLANK 0000[0xac]