|
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_1ee28c5
└─⟦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 03c8 | | .CONST 0x03c8 ; 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 0096 | | .CONST 0x0096 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; 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 00ab | | Declare_Subprogram INIT_00a8,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 00cb | | Declare_Subprogram INIT_00c8,For_Call
0021 4801 |H | Short_Literal 0x1
0022 035e | ^ | Declare_Type Array,Defined,Visible
0023 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0025 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0027 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0029 0007 | | Action Break_Optional
002a 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
002c 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
002e 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0030 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0032 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0034 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0036 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0038 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
003a 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
003c 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
003e 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0040 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0042 029a 020b | | Declare_Subprogram INIT_0208,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 0093 0000 | | push_full_address 0x0
0052 6071 |`q | Indirect_Literal Discrete,0xc4,{0x80000000, 0x00020000}
0053 0273 | s | Execute Discrete,Plus
0054 e20d | | Load 0x1,0xd
0055 606a |`j | Indirect_Literal Discrete,0xc0,{0x00000000, 0x0000ffff}
0056 0279 | y | Execute Discrete,And
0057 0273 | s | Execute Discrete,Plus
0058 0129 | ) | Execute Any,Make_Visible
0059 00bf | | Action Accept_Activation
005a e005 | | Load 0x0,0x5
005b 0007 | | Action Break_Optional
005c 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call
005e 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call
0060 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
0062 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0064 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
0066 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
0068 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0069 00c7 | | Action Elaborate_Subprogram
006a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006b 00c7 | | Action Elaborate_Subprogram
006c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006d 00c7 | | Action Elaborate_Subprogram
006e 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
0070 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0071 00c7 | | Action Elaborate_Subprogram
0072 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0073 00c7 | | Action Elaborate_Subprogram
0074 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0075 00c7 | | Action Elaborate_Subprogram
0076 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
007f 00c7 | | Action Elaborate_Subprogram
0080 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0081 00c7 | | Action Elaborate_Subprogram
0082 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0083 00c7 | | Action Elaborate_Subprogram
0084 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0085 00c7 | | Action Elaborate_Subprogram
0086 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0087 00c7 | | Action Elaborate_Subprogram
0088 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0089 00c7 | | Action Elaborate_Subprogram
008a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
008b 00c7 | | Action Elaborate_Subprogram
008c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
008d 00c7 | | Action Elaborate_Subprogram
008e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
008f 00c7 | | Action Elaborate_Subprogram
0090 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0091 00c7 | | Action Elaborate_Subprogram
0092 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0093 00c7 | | Action Elaborate_Subprogram
0094 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0095 00c7 | | Action Elaborate_Subprogram
0096 BODY_0008:
0096 8230 | 0 | Call 0x1,0x30
0097 e20f | | Load 0x1,0xf
0098 e20e | | Load 0x1,0xe
0099 00d8 | | Load_Top At_Offset_0
009a e006 | | Load 0x0,0x6
009b 0260 | ` | Execute Discrete,In_Type
009c 7001 |p | Jump_Nonzero 0x9e
009d 0801 | | Execute_Immediate Raise,0x1
009e 8007 | | Call 0x0,0x7
009f a22a | * | Store_Unchecked 0x1,0x2a
00a0 e22a | * | Load 0x1,0x2a
00a1 8008 | | Call 0x0,0x8
00a2 00bc | | Action Signal_Activated
00a3 00bb | | Action Signal_Completion
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00d1 | | Pop_Control Pop_Count_1
00ac 00da | | Load_Top At_Offset_2
00ad 01d8 | | Execute Vector,Element_Type
00ae 02ff | | Declare_Variable Variant_Record
00af 00d8 | | Load_Top At_Offset_0
00b0 1c00 | | Execute_Immediate Run_Utility,0x0
00b1 00db | | Load_Top At_Offset_3
00b2 01dc | | Execute Vector,Last
00b3 e5ff | | Load 0x2,-0x1
00b4 01dd | | Execute Vector,First
00b5 0263 | c | Execute Discrete,Above_Bound
00b6 7006 |p | Jump_Nonzero 0xbd
00b7 00da | | Load_Top At_Offset_2
00b8 00d9 | | Load_Top At_Offset_1
00b9 e5ff | | Load 0x2,-0x1
00ba 01d6 | | Execute Vector,Field_Write
00bb 0a01 | | Execute_Immediate Plus,0x1
00bc 7ff8 | | Jump 0xb5
00bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00be 0000 0000 | | .XXX[0x2]
00c0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00c4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00d1 | | Pop_Control Pop_Count_1
00cc 00da | | Load_Top At_Offset_2
00cd 01dc | | Execute Vector,Last
00ce 00db | | Load_Top At_Offset_3
00cf 01dd | | Execute Vector,First
00d0 0263 | c | Execute Discrete,Above_Bound
00d1 700a |p | Jump_Nonzero 0xdc
00d2 00d8 | | Load_Top At_Offset_0
00d3 e5ff | | Load 0x2,-0x1
00d4 01d5 | | Execute Vector,Field_Reference
00d5 0125 | % | Execute Any,Set_Constraint
00d6 00d8 | | Load_Top At_Offset_0
00d7 e5ff | | Load 0x2,-0x1
00d8 01d5 | | Execute Vector,Field_Reference
00d9 1c00 | | Execute_Immediate Run_Utility,0x0
00da 0a01 | | Execute_Immediate Plus,0x1
00db 7ff4 | | Jump 0xd0
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e22a | * | Load 0x1,0x2a
00e4 00ca | | Action Exit_Nullary_Function
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 822b | + | Call 0x1,0x2b
00ec e009 | | Load 0x0,0x9
00ed 1c08 | | Execute_Immediate Run_Utility,0x8
00ee 4800 |H | Short_Literal 0x0
00ef 00d9 | | Load_Top At_Offset_1
00f0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f1 e22a | * | Load 0x1,0x2a
00f2 800a | | Call 0x0,0xa
00f3 00d9 | | Load_Top At_Offset_1
00f4 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00f5 00db | | Load_Top At_Offset_3
00f6 822e | . | Call 0x1,0x2e
00f7 00d9 | | Load_Top At_Offset_1
00f8 00d8 | | Load_Top At_Offset_0
00f9 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00fa 00da | | Load_Top At_Offset_2
00fb 01da | | Execute Vector,Bounds
00fc 00da | | Load_Top At_Offset_2
00fd 01da | | Execute Vector,Bounds
00fe 00da | | Load_Top At_Offset_2
00ff 027f | | Execute Discrete,Equal
0100 7001 |p | Jump_Nonzero 0x102
0101 08e0 | | Execute_Immediate Raise,0xe0
0102 00cd | | Action Spare6_Action
0103 027f | | Execute Discrete,Equal
0104 7001 |p | Jump_Nonzero 0x106
0105 08e0 | | Execute_Immediate Raise,0xe0
0106 00d2 | | Pop_Control Pop_Count_2
0107 00d9 | | Load_Top At_Offset_1
0108 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010a 0000 0000 | | .BLANK 0000[0x6]
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 822b | + | Call 0x1,0x2b
0114 e009 | | Load 0x0,0x9
0115 1c08 | | Execute_Immediate Run_Utility,0x8
0116 4801 |H | Short_Literal 0x1
0117 00d9 | | Load_Top At_Offset_1
0118 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0119 e22a | * | Load 0x1,0x2a
011a 800a | | Call 0x0,0xa
011b 00d9 | | Load_Top At_Offset_1
011c 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
011d 00db | | Load_Top At_Offset_3
011e 822e | . | Call 0x1,0x2e
011f 00d9 | | Load_Top At_Offset_1
0120 00d8 | | Load_Top At_Offset_0
0121 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0122 00da | | Load_Top At_Offset_2
0123 01da | | Execute Vector,Bounds
0124 00da | | Load_Top At_Offset_2
0125 01da | | Execute Vector,Bounds
0126 00da | | Load_Top At_Offset_2
0127 027f | | Execute Discrete,Equal
0128 7001 |p | Jump_Nonzero 0x12a
0129 08e0 | | Execute_Immediate Raise,0xe0
012a 00cd | | Action Spare6_Action
012b 027f | | Execute Discrete,Equal
012c 7001 |p | Jump_Nonzero 0x12e
012d 08e0 | | Execute_Immediate Raise,0xe0
012e 00d2 | | Pop_Control Pop_Count_2
012f 00d9 | | Load_Top At_Offset_1
0130 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0131 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013f | ? | .CONST 0x013f ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b e211 | | Load 0x1,0x11
013c 0337 | 7 | Declare_Variable Array
013d 00d8 | | Load_Top At_Offset_0
013e 1c00 | | Execute_Immediate Run_Utility,0x0
013f BODY_0138:
013f 00db | | Load_Top At_Offset_3
0140 8231 | 1 | Call 0x1,0x31
0141 00cf | | Action Mark_Auxiliary
0142 e210 | | Load 0x1,0x10
0143 0265 | e | Execute Discrete,Reverse_Bounds
0144 0263 | c | Execute Discrete,Above_Bound
0145 7018 |p | Jump_Nonzero 0x15e
0146 00d8 | | Load_Top At_Offset_0
0147 00d8 | | Load_Top At_Offset_0
0148 e210 | | Load 0x1,0x10
0149 0260 | ` | Execute Discrete,In_Type
014a 7001 |p | Jump_Nonzero 0x14c
014b 0801 | | Execute_Immediate Raise,0x1
014c 822d | - | Call 0x1,0x2d
014d e5ff | | Load 0x2,-0x1
014e 800b | | Call 0x0,0xb
014f 00d9 | | Load_Top At_Offset_1
0150 e210 | | Load 0x1,0x10
0151 1c04 | | Execute_Immediate Run_Utility,0x4
0152 e402 | | Load 0x2,0x2
0153 01d6 | | Execute Vector,Field_Write
0154 00c8 | | Action Pop_Auxiliary_Range
0155 00d9 | | Load_Top At_Offset_1
0156 00d9 | | Load_Top At_Offset_1
0157 027f | | Execute Discrete,Equal
0158 7004 |p | Jump_Nonzero 0x15d
0159 e210 | | Load 0x1,0x10
015a 0122 | " | Execute Any,Make_Root_Type
015b 1c07 | | Execute_Immediate Run_Utility,0x7
015c 7fe9 | | Jump 0x146
015d 00d2 | | Pop_Control Pop_Count_2
015e 00ce | | Action Pop_Auxiliary
015f 00d8 | | Load_Top At_Offset_0
0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 8231 | 1 | Call 0x1,0x31
016d 00db | | Load_Top At_Offset_3
016e 00d8 | | Load_Top At_Offset_0
016f e210 | | Load 0x1,0x10
0170 0260 | ` | Execute Discrete,In_Type
0171 7001 |p | Jump_Nonzero 0x173
0172 0801 | | Execute_Immediate Raise,0x1
0173 822d | - | Call 0x1,0x2d
0174 00db | | Load_Top At_Offset_3
0175 800b | | Call 0x0,0xb
0176 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00db | | Load_Top At_Offset_3
017c 00d8 | | Load_Top At_Offset_0
017d e210 | | Load 0x1,0x10
017e 0260 | ` | Execute Discrete,In_Type
017f 7001 |p | Jump_Nonzero 0x181
0180 0801 | | Execute_Immediate Raise,0x1
0181 00db | | Load_Top At_Offset_3
0182 8217 | | Call 0x1,0x17
0183 800c | | Call 0x0,0xc
0184 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00db | | Load_Top At_Offset_3
018c 00d8 | | Load_Top At_Offset_0
018d e210 | | Load 0x1,0x10
018e 0260 | ` | Execute Discrete,In_Type
018f 7001 |p | Jump_Nonzero 0x191
0190 0801 | | Execute_Immediate Raise,0x1
0191 00db | | Load_Top At_Offset_3
0192 8217 | | Call 0x1,0x17
0193 800d | | Call 0x0,0xd
0194 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00db | | Load_Top At_Offset_3
019c 00d8 | | Load_Top At_Offset_0
019d e210 | | Load 0x1,0x10
019e 0260 | ` | Execute Discrete,In_Type
019f 7001 |p | Jump_Nonzero 0x1a1
01a0 0801 | | Execute_Immediate Raise,0x1
01a1 00db | | Load_Top At_Offset_3
01a2 8217 | | Call 0x1,0x17
01a3 800e | | Call 0x0,0xe
01a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00db | | Load_Top At_Offset_3
01ac 00d8 | | Load_Top At_Offset_0
01ad e210 | | Load 0x1,0x10
01ae 0260 | ` | Execute Discrete,In_Type
01af 7001 |p | Jump_Nonzero 0x1b1
01b0 0801 | | Execute_Immediate Raise,0x1
01b1 00db | | Load_Top At_Offset_3
01b2 8217 | | Call 0x1,0x17
01b3 800f | | Call 0x0,0xf
01b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00db | | Load_Top At_Offset_3
01bc 00d8 | | Load_Top At_Offset_0
01bd e210 | | Load 0x1,0x10
01be 0260 | ` | Execute Discrete,In_Type
01bf 7001 |p | Jump_Nonzero 0x1c1
01c0 0801 | | Execute_Immediate Raise,0x1
01c1 00db | | Load_Top At_Offset_3
01c2 8217 | | Call 0x1,0x17
01c3 8010 | | Call 0x0,0x10
01c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00db | | Load_Top At_Offset_3
01cc 00d8 | | Load_Top At_Offset_0
01cd e210 | | Load 0x1,0x10
01ce 0260 | ` | Execute Discrete,In_Type
01cf 7001 |p | Jump_Nonzero 0x1d1
01d0 0801 | | Execute_Immediate Raise,0x1
01d1 00db | | Load_Top At_Offset_3
01d2 8217 | | Call 0x1,0x17
01d3 8011 | | Call 0x0,0x11
01d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc 822f | / | Call 0x1,0x2f
01dd e22a | * | Load 0x1,0x2a
01de 8012 | | Call 0x0,0x12
01df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
01e4 8231 | 1 | Call 0x1,0x31
01e5 00da | | Load_Top At_Offset_2
01e6 8013 | | Call 0x0,0x13
01e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 8231 | 1 | Call 0x1,0x31
01ed 00db | | Load_Top At_Offset_3
01ee 822f | / | Call 0x1,0x2f
01ef 00db | | Load_Top At_Offset_3
01f0 8014 | | Call 0x0,0x14
01f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 8231 | 1 | Call 0x1,0x31
01fd e5fd | | Load 0x2,-0x3
01fe e5fe | | Load 0x2,-0x2
01ff 00d8 | | Load_Top At_Offset_0
0200 e210 | | Load 0x1,0x10
0201 0260 | ` | Execute Discrete,In_Type
0202 7001 |p | Jump_Nonzero 0x204
0203 0801 | | Execute_Immediate Raise,0x1
0204 822d | - | Call 0x1,0x2d
0205 e5ff | | Load 0x2,-0x1
0206 8015 | | Call 0x0,0x15
0207 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b e5fd | | Load 0x2,-0x3
020c 8016 | | Call 0x0,0x16
020d e5fe | | Load 0x2,-0x2
020e 00d8 | | Load_Top At_Offset_0
020f e210 | | Load 0x1,0x10
0210 0260 | ` | Execute Discrete,In_Type
0211 7001 |p | Jump_Nonzero 0x213
0212 0801 | | Execute_Immediate Raise,0x1
0213 e5ff | | Load 0x2,-0x1
0214 8221 | ! | Call 0x1,0x21
0215 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0216 0000 0000 | | .XXX[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 e5fd | | Load 0x2,-0x3
021c 8017 | | Call 0x0,0x17
021d e5fe | | Load 0x2,-0x2
021e 00d8 | | Load_Top At_Offset_0
021f e210 | | Load 0x1,0x10
0220 0260 | ` | Execute Discrete,In_Type
0221 7001 |p | Jump_Nonzero 0x223
0222 0801 | | Execute_Immediate Raise,0x1
0223 e5ff | | Load 0x2,-0x1
0224 8221 | ! | Call 0x1,0x21
0225 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0226 0000 0000 | | .XXX[0x2]
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 e5fd | | Load 0x2,-0x3
022c 8018 | | Call 0x0,0x18
022d e5fe | | Load 0x2,-0x2
022e 00d8 | | Load_Top At_Offset_0
022f e210 | | Load 0x1,0x10
0230 0260 | ` | Execute Discrete,In_Type
0231 7001 |p | Jump_Nonzero 0x233
0232 0801 | | Execute_Immediate Raise,0x1
0233 e5ff | | Load 0x2,-0x1
0234 8221 | ! | Call 0x1,0x21
0235 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0236 0000 0000 | | .XXX[0x2]
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 8019 | | Call 0x0,0x19
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 8221 | ! | Call 0x1,0x21
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 801a | | Call 0x0,0x1a
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 8221 | ! | Call 0x1,0x21
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 801b | | Call 0x0,0x1b
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 8221 | ! | Call 0x1,0x21
0265 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0275 | u | .CONST 0x0275 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b 00e1 | | Load_Encached Boolean_Cache
026c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
026d e22a | * | Load 0x1,0x2a
026e 800a | | Call 0x0,0xa
026f e006 | | Load 0x0,0x6
0270 1c04 | | Execute_Immediate Run_Utility,0x4
0271 e006 | | Load 0x0,0x6
0272 0122 | " | Execute Any,Make_Root_Type
0273 011c | | Execute Any,Convert_Unchecked
0274 1c01 | | Execute_Immediate Run_Utility,0x1
0275 BODY_0268:
0275 e5fd | | Load 0x2,-0x3
0276 8231 | 1 | Call 0x1,0x31
0277 e5fc | | Load 0x2,-0x4
0278 00d9 | | Load_Top At_Offset_1
0279 0092 03bb | | Action Push_String_Extended,0x3bb ; "'("
027b 01cc | | Execute Vector,Catenate
027c 801c | | Call 0x0,0x1c
027d e5fc | | Load 0x2,-0x4
027e 801d | | Call 0x0,0x1d
027f 4801 |H | Short_Literal 0x1
0280 e5fc | | Load 0x2,-0x4
0281 801e | | Call 0x0,0x1e
0282 00cf | | Action Mark_Auxiliary
0283 e210 | | Load 0x1,0x10
0284 0265 | e | Execute Discrete,Reverse_Bounds
0285 0263 | c | Execute Discrete,Above_Bound
0286 702b |p+ | Jump_Nonzero 0x2b2
0287 e402 | | Load 0x2,0x2
0288 7005 |p | Jump_Nonzero 0x28e
0289 e5fc | | Load 0x2,-0x4
028a 0092 03bc | | Action Push_String_Extended,0x3bc ; ", "
028c 801f | | Call 0x0,0x1f
028d 7802 |x | Jump 0x290
028e 4800 |H | Short_Literal 0x0
028f a402 | | Store_Unchecked 0x2,0x2
0290 e5fc | | Load 0x2,-0x4
0291 00d9 | | Load_Top At_Offset_1
0292 e210 | | Load 0x1,0x10
0293 1c04 | | Execute_Immediate Run_Utility,0x4
0294 e210 | | Load 0x1,0x10
0295 0122 | " | Execute Any,Make_Root_Type
0296 011c | | Execute Any,Convert_Unchecked
0297 1c01 | | Execute_Immediate Run_Utility,0x1
0298 0092 03bd | | Action Push_String_Extended,0x3bd ; " =>"
029a 01cc | | Execute Vector,Catenate
029b 801c | | Call 0x0,0x1c
029c e5fc | | Load 0x2,-0x4
029d 00d9 | | Load_Top At_Offset_1
029e 00d8 | | Load_Top At_Offset_0
029f e210 | | Load 0x1,0x10
02a0 0260 | ` | Execute Discrete,In_Type
02a1 7001 |p | Jump_Nonzero 0x2a3
02a2 0801 | | Execute_Immediate Raise,0x1
02a3 e5fd | | Load 0x2,-0x3
02a4 8217 | | Call 0x1,0x17
02a5 00da | | Load_Top At_Offset_2
02a6 85fe | | Call 0x2,-0x2
02a7 801c | | Call 0x0,0x1c
02a8 00c8 | | Action Pop_Auxiliary_Range
02a9 00d9 | | Load_Top At_Offset_1
02aa 00d9 | | Load_Top At_Offset_1
02ab 027f | | Execute Discrete,Equal
02ac 7004 |p | Jump_Nonzero 0x2b1
02ad e210 | | Load 0x1,0x10
02ae 0122 | " | Execute Any,Make_Root_Type
02af 1c07 | | Execute_Immediate Run_Utility,0x7
02b0 7fd6 | | Jump 0x287
02b1 00d2 | | Pop_Control Pop_Count_2
02b2 00ce | | Action Pop_Auxiliary
02b3 e5fc | | Load 0x2,-0x4
02b4 8020 | | Call 0x0,0x20
02b5 e5fc | | Load 0x2,-0x4
02b6 0092 03be | | Action Push_String_Extended,0x3be ; ")"
02b8 801f | | Call 0x0,0x1f
02b9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02ba 0000 0000 | | .BLANK 0000[0x6]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02cf | | .CONST 0x02cf ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0003 | | .CONST 0x0003 ; Number of locals
02c3 INIT_02c0:
02c3 e210 | | Load 0x1,0x10
02c4 026a | j | Execute Discrete,First
02c5 e210 | | Load 0x1,0x10
02c6 1c04 | | Execute_Immediate Run_Utility,0x4
02c7 00e3 | | Load_Encached Natural_Cache
02c8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02c9 e210 | | Load 0x1,0x10
02ca 0269 | i | Execute Discrete,Last
02cb e210 | | Load 0x1,0x10
02cc 1c04 | | Execute_Immediate Run_Utility,0x4
02cd 00e3 | | Load_Encached Natural_Cache
02ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02cf BODY_02c0:
02cf 00d8 | | Load_Top At_Offset_0
02d0 00da | | Load_Top At_Offset_2
02d1 0272 | r | Execute Discrete,Minus
02d2 0a01 | | Execute_Immediate Plus,0x1
02d3 00d8 | | Load_Top At_Offset_0
02d4 00e3 | | Load_Encached Natural_Cache
02d5 0260 | ` | Execute Discrete,In_Type
02d6 7001 |p | Jump_Nonzero 0x2d8
02d7 0801 | | Execute_Immediate Raise,0x1
02d8 00ca | | Action Exit_Nullary_Function
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 e210 | | Load 0x1,0x10
02e5 1c04 | | Execute_Immediate Run_Utility,0x4
02e6 e210 | | Load 0x1,0x10
02e7 026a | j | Execute Discrete,First
02e8 e210 | | Load 0x1,0x10
02e9 1c04 | | Execute_Immediate Run_Utility,0x4
02ea 0272 | r | Execute Discrete,Minus
02eb 0a01 | | Execute_Immediate Plus,0x1
02ec 00d8 | | Load_Top At_Offset_0
02ed e021 | ! | Load 0x0,0x21
02ee 0260 | ` | Execute Discrete,In_Type
02ef 7001 |p | Jump_Nonzero 0x2f1
02f0 0801 | | Execute_Immediate Raise,0x1
02f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f2 0000 0000 | | .BLANK 0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc e210 | | Load 0x1,0x10
02fd 1c04 | | Execute_Immediate Run_Utility,0x4
02fe e210 | | Load 0x1,0x10
02ff 026a | j | Execute Discrete,First
0300 e210 | | Load 0x1,0x10
0301 1c04 | | Execute_Immediate Run_Utility,0x4
0302 0272 | r | Execute Discrete,Minus
0303 0a01 | | Execute_Immediate Plus,0x1
0304 00d8 | | Load_Top At_Offset_0
0305 e022 | " | Load 0x0,0x22
0306 0260 | ` | Execute Discrete,In_Type
0307 7001 |p | Jump_Nonzero 0x309
0308 0801 | | Execute_Immediate Raise,0x1
0309 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030a 0000 0000 | | .BLANK 0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031a | | .CONST 0x031a ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0002 | | .CONST 0x0002 ; Number of locals
0313 INIT_0310:
0313 4801 |H | Short_Literal 0x1
0314 822b | + | Call 0x1,0x2b
0315 e023 | # | Load 0x0,0x23
0316 035b | [ | Declare_Type Array,Constrained
0317 0337 | 7 | Declare_Variable Array
0318 00d8 | | Load_Top At_Offset_0
0319 1c00 | | Execute_Immediate Run_Utility,0x0
031a BODY_0310:
031a 00cf | | Action Mark_Auxiliary
031b e5ff | | Load 0x2,-0x1
031c 01da | | Execute Vector,Bounds
031d e210 | | Load 0x1,0x10
031e 1c05 | | Execute_Immediate Run_Utility,0x5
031f 00d0 | | Action Swap_Control
0320 e210 | | Load 0x1,0x10
0321 1c05 | | Execute_Immediate Run_Utility,0x5
0322 0263 | c | Execute Discrete,Above_Bound
0323 7018 |p | Jump_Nonzero 0x33c
0324 00d8 | | Load_Top At_Offset_0
0325 e210 | | Load 0x1,0x10
0326 1c04 | | Execute_Immediate Run_Utility,0x4
0327 e5ff | | Load 0x2,-0x1
0328 01d7 | | Execute Vector,Field_Read
0329 00d9 | | Load_Top At_Offset_1
032a 00d8 | | Load_Top At_Offset_0
032b e210 | | Load 0x1,0x10
032c 0260 | ` | Execute Discrete,In_Type
032d 7001 |p | Jump_Nonzero 0x32f
032e 0801 | | Execute_Immediate Raise,0x1
032f 822c | , | Call 0x1,0x2c
0330 e402 | | Load 0x2,0x2
0331 01d6 | | Execute Vector,Field_Write
0332 00c8 | | Action Pop_Auxiliary_Range
0333 00d9 | | Load_Top At_Offset_1
0334 00d9 | | Load_Top At_Offset_1
0335 027f | | Execute Discrete,Equal
0336 7004 |p | Jump_Nonzero 0x33b
0337 e210 | | Load 0x1,0x10
0338 0122 | " | Execute Any,Make_Root_Type
0339 1c07 | | Execute_Immediate Run_Utility,0x7
033a 7fe9 | | Jump 0x324
033b 00d2 | | Pop_Control Pop_Count_2
033c 00ce | | Action Pop_Auxiliary
033d 00d8 | | Load_Top At_Offset_0
033e e023 | # | Load 0x0,0x23
033f 01c6 | | Execute Vector,Convert_To_Formal
0340 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0341 0000 0000 | | .BLANK 0000[0x7]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0352 | R | .CONST 0x0352 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b 4801 |H | Short_Literal 0x1
034c 822b | + | Call 0x1,0x2b
034d e024 | $ | Load 0x0,0x24
034e 035b | [ | Declare_Type Array,Constrained
034f 0337 | 7 | Declare_Variable Array
0350 00d8 | | Load_Top At_Offset_0
0351 1c00 | | Execute_Immediate Run_Utility,0x0
0352 BODY_0348:
0352 00cf | | Action Mark_Auxiliary
0353 e5ff | | Load 0x2,-0x1
0354 01da | | Execute Vector,Bounds
0355 e210 | | Load 0x1,0x10
0356 1c05 | | Execute_Immediate Run_Utility,0x5
0357 00d0 | | Action Swap_Control
0358 e210 | | Load 0x1,0x10
0359 1c05 | | Execute_Immediate Run_Utility,0x5
035a 0263 | c | Execute Discrete,Above_Bound
035b 7018 |p | Jump_Nonzero 0x374
035c 00d8 | | Load_Top At_Offset_0
035d e210 | | Load 0x1,0x10
035e 1c04 | | Execute_Immediate Run_Utility,0x4
035f e5ff | | Load 0x2,-0x1
0360 01d5 | | Execute Vector,Field_Reference
0361 00d9 | | Load_Top At_Offset_1
0362 00d8 | | Load_Top At_Offset_0
0363 e210 | | Load 0x1,0x10
0364 0260 | ` | Execute Discrete,In_Type
0365 7001 |p | Jump_Nonzero 0x367
0366 0801 | | Execute_Immediate Raise,0x1
0367 822d | - | Call 0x1,0x2d
0368 e402 | | Load 0x2,0x2
0369 01d6 | | Execute Vector,Field_Write
036a 00c8 | | Action Pop_Auxiliary_Range
036b 00d9 | | Load_Top At_Offset_1
036c 00d9 | | Load_Top At_Offset_1
036d 027f | | Execute Discrete,Equal
036e 7004 |p | Jump_Nonzero 0x373
036f e210 | | Load 0x1,0x10
0370 0122 | " | Execute Any,Make_Root_Type
0371 1c07 | | Execute_Immediate Run_Utility,0x7
0372 7fe9 | | Jump 0x35c
0373 00d2 | | Pop_Control Pop_Count_2
0374 00ce | | Action Pop_Auxiliary
0375 00d8 | | Load_Top At_Offset_0
0376 e024 | $ | Load 0x0,0x24
0377 01c6 | | Execute Vector,Convert_To_Formal
0378 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0379 0000 0000 | | .BLANK 0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0388 | | .CONST 0x0388 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0002 | | .CONST 0x0002 ; Number of locals
0383 INIT_0380:
0383 4801 |H | Short_Literal 0x1
0384 822b | + | Call 0x1,0x2b
0385 e025 | % | Load 0x0,0x25
0386 035b | [ | Declare_Type Array,Constrained
0387 0337 | 7 | Declare_Variable Array
0388 BODY_0380:
0388 00cf | | Action Mark_Auxiliary
0389 e210 | | Load 0x1,0x10
038a 0265 | e | Execute Discrete,Reverse_Bounds
038b 0263 | c | Execute Discrete,Above_Bound
038c 701b |p | Jump_Nonzero 0x3a8
038d 00d8 | | Load_Top At_Offset_0
038e e210 | | Load 0x1,0x10
038f 1c04 | | Execute_Immediate Run_Utility,0x4
0390 e210 | | Load 0x1,0x10
0391 0122 | " | Execute Any,Make_Root_Type
0392 011c | | Execute Any,Convert_Unchecked
0393 1c01 | | Execute_Immediate Run_Utility,0x1
0394 8026 | & | Call 0x0,0x26
0395 00d9 | | Load_Top At_Offset_1
0396 00d8 | | Load_Top At_Offset_0
0397 e210 | | Load 0x1,0x10
0398 0260 | ` | Execute Discrete,In_Type
0399 7001 |p | Jump_Nonzero 0x39b
039a 0801 | | Execute_Immediate Raise,0x1
039b 822d | - | Call 0x1,0x2d
039c e402 | | Load 0x2,0x2
039d 01d6 | | Execute Vector,Field_Write
039e 00c8 | | Action Pop_Auxiliary_Range
039f 00d9 | | Load_Top At_Offset_1
03a0 00d9 | | Load_Top At_Offset_1
03a1 027f | | Execute Discrete,Equal
03a2 7004 |p | Jump_Nonzero 0x3a7
03a3 e210 | | Load 0x1,0x10
03a4 0122 | " | Execute Any,Make_Root_Type
03a5 1c07 | | Execute_Immediate Run_Utility,0x7
03a6 7fe6 | | Jump 0x38d
03a7 00d2 | | Pop_Control Pop_Count_2
03a8 00ce | | Action Pop_Auxiliary
03a9 00d8 | | Load_Top At_Offset_0
03aa e025 | % | Load 0x0,0x25
03ab 01c6 | | Execute Vector,Convert_To_Formal
03ac 00ca | | Action Exit_Nullary_Function
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 8027 | ' | Call 0x0,0x27
03b5 e22a | * | Load 0x1,0x2a
03b6 022e | . | Execute Access,Not_Equal
03b7 6802 |h | Jump_Zero 0x3ba
03b8 e229 | ) | Load 0x1,0x29
03b9 0257 | W | Execute Discrete,Raise
03ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bb ; --------------------------------------------------------------------------------------
03bb ; STRING TABLE
03bb ; --------------------------------------------------------------------------------------
03bb 000a | | .STRTAB 0x000a->0x03c0 ; "'("
03bc 000a | | .STRTAB 0x000a->0x03c1 ; ", "
03bd 000a | | .STRTAB 0x000a->0x03c2 ; " =>"
03be 000b | | .STRTAB 0x000b->0x03c3 ; ")"
03bf 000a | | .STREND 0x000a->0x03c4
03c0 2728 2c20 |'(, | .STRTAB_STRINGS
03c4 0000 0000 | | .BLANK 0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug Table
03c8 ; --------------------------------------------------------------------------------------
03c8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9c04,0x0000,0x0001,0x0021
03ce 000b 0452 | R| .DBG4T 0x000b,0x0452,0x4000,0x0000
03d2 005a 046e | Z n| .DBG4T 0x005a,0x046e,0x4000,0x0000
03d6 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x1005,0x0000
03da 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x1005,0x0000
03de 00e3 0490 | | .DBG4T 0x00e3,0x0490,0x1002,0x0000
03e2 00eb 0493 | | .DBG4T 0x00eb,0x0493,0x1002,0x0000
03e6 0113 0496 | | .DBG4T 0x0113,0x0496,0x1002,0x0000
03ea 013b 0499 | ; | .DBG4T 0x013b,0x0499,0x1002,0x0000
03ee 016b 04a0 | k | .DBG4T 0x016b,0x04a0,0x1002,0x0000
03f2 017b 04a4 | { | .DBG4T 0x017b,0x04a4,0x1002,0x0000
03f6 018b 04a7 | | .DBG4T 0x018b,0x04a7,0x1002,0x0000
03fa 019b 04aa | | .DBG4T 0x019b,0x04aa,0x1002,0x0000
03fe 01ab 04ad | | .DBG4T 0x01ab,0x04ad,0x1002,0x0000
0402 01bb 04b0 | | .DBG4T 0x01bb,0x04b0,0x1002,0x0000
0406 01cb 04b3 | | .DBG4T 0x01cb,0x04b3,0x1002,0x0000
040a 01db 04b6 | | .DBG4T 0x01db,0x04b6,0x1001,0x0000
040e 01e3 04b9 | | .DBG4T 0x01e3,0x04b9,0x1001,0x0000
0412 01eb 04bd | | .DBG4T 0x01eb,0x04bd,0x1001,0x0000
0416 01fb 04c1 | | .DBG4T 0x01fb,0x04c1,0x1001,0x0000
041a 020b 04c5 | | .DBG4T 0x020b,0x04c5,0x1001,0x0000
041e 021b 04c8 | | .DBG4T 0x021b,0x04c8,0x1001,0x0000
0422 022b 04cb | + | .DBG4T 0x022b,0x04cb,0x1001,0x0000
0426 023b 04ce | ; | .DBG4T 0x023b,0x04ce,0x1001,0x0000
042a 024b 04d1 | K | .DBG4T 0x024b,0x04d1,0x1001,0x0000
042e 025b 04d4 | [ | .DBG4T 0x025b,0x04d4,0x1001,0x0000
0432 026b 04d7 | k | .DBG4T 0x026b,0x04d7,0x3801,0x0002
0436 02c3 04e7 | | .DBG4T 0x02c3,0x04e7,0x1002,0x0000
043a 02e3 04ec | | .DBG4T 0x02e3,0x04ec,0x1002,0x0000
043e 02fb 04ef | | .DBG4T 0x02fb,0x04ef,0x1002,0x0000
0442 0313 04f2 | | .DBG4T 0x0313,0x04f2,0x1002,0x0000
0446 034b 04f8 | K | .DBG4T 0x034b,0x04f8,0x1002,0x0000
044a 0383 04fe | | .DBG4T 0x0383,0x04fe,0x1002,0x0000
044e 03b3 0504 | | .DBG4T 0x03b3,0x0504,0x1001,0x0000
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug chain
0452 ; --------------------------------------------------------------------------------------
0452 001a 0000 | | .DBGLEN 0x001a,0x0000
0454 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
046e ; --------------------------------------------------------------------------------------
046e ; Debug chain
046e ; --------------------------------------------------------------------------------------
046e 001e 0002 | | .DBGLEN 0x001e,0x0002
0470 005a 005c | Z \| .DBGLNO 0x005a,0x005c,0x005e,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,0x00a0
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug chain
0490 ; --------------------------------------------------------------------------------------
0490 0000 0001 | | .DBGLEN 0x0000,0x0001
0492 00e3 | | .DBGLNO 0x00e3
0493 ; --------------------------------------------------------------------------------------
0493 ; Debug chain
0493 ; --------------------------------------------------------------------------------------
0493 0000 0001 | | .DBGLEN 0x0000,0x0001
0495 00eb | | .DBGLNO 0x00eb
0496 ; --------------------------------------------------------------------------------------
0496 ; Debug chain
0496 ; --------------------------------------------------------------------------------------
0496 0000 0001 | | .DBGLEN 0x0000,0x0001
0498 0113 | | .DBGLNO 0x0113
0499 ; --------------------------------------------------------------------------------------
0499 ; Debug chain
0499 ; --------------------------------------------------------------------------------------
0499 0001 0004 | | .DBGLEN 0x0001,0x0004
049b 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0142,0x0146,0x015f
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug chain
04a0 ; --------------------------------------------------------------------------------------
04a0 0000 0002 | | .DBGLEN 0x0000,0x0002
04a2 016b 016d | k m| .DBGLNO 0x016b,0x016d
04a4 ; --------------------------------------------------------------------------------------
04a4 ; Debug chain
04a4 ; --------------------------------------------------------------------------------------
04a4 0000 0001 | | .DBGLEN 0x0000,0x0001
04a6 017b | { | .DBGLNO 0x017b
04a7 ; --------------------------------------------------------------------------------------
04a7 ; Debug chain
04a7 ; --------------------------------------------------------------------------------------
04a7 0000 0001 | | .DBGLEN 0x0000,0x0001
04a9 018b | | .DBGLNO 0x018b
04aa ; --------------------------------------------------------------------------------------
04aa ; Debug chain
04aa ; --------------------------------------------------------------------------------------
04aa 0000 0001 | | .DBGLEN 0x0000,0x0001
04ac 019b | | .DBGLNO 0x019b
04ad ; --------------------------------------------------------------------------------------
04ad ; Debug chain
04ad ; --------------------------------------------------------------------------------------
04ad 0000 0001 | | .DBGLEN 0x0000,0x0001
04af 01ab | | .DBGLNO 0x01ab
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug chain
04b0 ; --------------------------------------------------------------------------------------
04b0 0000 0001 | | .DBGLEN 0x0000,0x0001
04b2 01bb | | .DBGLNO 0x01bb
04b3 ; --------------------------------------------------------------------------------------
04b3 ; Debug chain
04b3 ; --------------------------------------------------------------------------------------
04b3 0000 0001 | | .DBGLEN 0x0000,0x0001
04b5 01cb | | .DBGLNO 0x01cb
04b6 ; --------------------------------------------------------------------------------------
04b6 ; Debug chain
04b6 ; --------------------------------------------------------------------------------------
04b6 0000 0001 | | .DBGLEN 0x0000,0x0001
04b8 01db | | .DBGLNO 0x01db
04b9 ; --------------------------------------------------------------------------------------
04b9 ; Debug chain
04b9 ; --------------------------------------------------------------------------------------
04b9 0000 0002 | | .DBGLEN 0x0000,0x0002
04bb 01e3 01e5 | | .DBGLNO 0x01e3,0x01e5
04bd ; --------------------------------------------------------------------------------------
04bd ; Debug chain
04bd ; --------------------------------------------------------------------------------------
04bd 0000 0002 | | .DBGLEN 0x0000,0x0002
04bf 01eb 01ed | | .DBGLNO 0x01eb,0x01ed
04c1 ; --------------------------------------------------------------------------------------
04c1 ; Debug chain
04c1 ; --------------------------------------------------------------------------------------
04c1 0000 0002 | | .DBGLEN 0x0000,0x0002
04c3 01fb 01fd | | .DBGLNO 0x01fb,0x01fd
04c5 ; --------------------------------------------------------------------------------------
04c5 ; Debug chain
04c5 ; --------------------------------------------------------------------------------------
04c5 0000 0001 | | .DBGLEN 0x0000,0x0001
04c7 020b | | .DBGLNO 0x020b
04c8 ; --------------------------------------------------------------------------------------
04c8 ; Debug chain
04c8 ; --------------------------------------------------------------------------------------
04c8 0000 0001 | | .DBGLEN 0x0000,0x0001
04ca 021b | | .DBGLNO 0x021b
04cb ; --------------------------------------------------------------------------------------
04cb ; Debug chain
04cb ; --------------------------------------------------------------------------------------
04cb 0000 0001 | | .DBGLEN 0x0000,0x0001
04cd 022b | + | .DBGLNO 0x022b
04ce ; --------------------------------------------------------------------------------------
04ce ; Debug chain
04ce ; --------------------------------------------------------------------------------------
04ce 0000 0001 | | .DBGLEN 0x0000,0x0001
04d0 023b | ; | .DBGLNO 0x023b
04d1 ; --------------------------------------------------------------------------------------
04d1 ; Debug chain
04d1 ; --------------------------------------------------------------------------------------
04d1 0000 0001 | | .DBGLEN 0x0000,0x0001
04d3 024b | K | .DBGLNO 0x024b
04d4 ; --------------------------------------------------------------------------------------
04d4 ; Debug chain
04d4 ; --------------------------------------------------------------------------------------
04d4 0000 0001 | | .DBGLEN 0x0000,0x0001
04d6 025b | [ | .DBGLNO 0x025b
04d7 ; --------------------------------------------------------------------------------------
04d7 ; Debug chain
04d7 ; --------------------------------------------------------------------------------------
04d7 0002 000c | | .DBGLEN 0x0002,0x000c
04d9 026b 026d | k m| .DBGLNO 0x026b,0x026d,0x0275,0x0277,0x027d,0x027f,0x0283,0x0287,0x0289,0x028e,0x0290,0x029c,0x02b3,0x02b5
04e7 ; --------------------------------------------------------------------------------------
04e7 ; Debug chain
04e7 ; --------------------------------------------------------------------------------------
04e7 0002 0001 | | .DBGLEN 0x0002,0x0001
04e9 02c3 02c9 | | .DBGLNO 0x02c3,0x02c9,0x02cf
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug chain
04ec ; --------------------------------------------------------------------------------------
04ec 0000 0001 | | .DBGLEN 0x0000,0x0001
04ee 02e3 | | .DBGLNO 0x02e3
04ef ; --------------------------------------------------------------------------------------
04ef ; Debug chain
04ef ; --------------------------------------------------------------------------------------
04ef 0000 0001 | | .DBGLEN 0x0000,0x0001
04f1 02fb | | .DBGLNO 0x02fb
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug chain
04f2 ; --------------------------------------------------------------------------------------
04f2 0001 0003 | | .DBGLEN 0x0001,0x0003
04f4 0313 031b | | .DBGLNO 0x0313,0x031b,0x0324,0x033d
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug chain
04f8 ; --------------------------------------------------------------------------------------
04f8 0001 0003 | | .DBGLEN 0x0001,0x0003
04fa 034b 0353 | K S| .DBGLNO 0x034b,0x0353,0x035c,0x0375
04fe ; --------------------------------------------------------------------------------------
04fe ; Debug chain
04fe ; --------------------------------------------------------------------------------------
04fe 0001 0003 | | .DBGLEN 0x0001,0x0003
0500 0383 0389 | | .DBGLNO 0x0383,0x0389,0x038d,0x03a9
0504 ; --------------------------------------------------------------------------------------
0504 ; Debug chain
0504 ; --------------------------------------------------------------------------------------
0504 0000 0002 | | .DBGLEN 0x0000,0x0002
0506 03b3 03b8 | | .DBGLNO 0x03b3,0x03b8
0508 0000 0000 | | .BLANK 0000[0xf8]