|
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_664cf7
└─⟦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 03d0 | | .CONST 0x03d0 ; 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 00a1 | | .CONST 0x00a1 ; 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 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 035e | ^ | Declare_Type Array,Defined,Visible
0022 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0024 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0026 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0028 0007 | | Action Break_Optional
0029 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
002b 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
002d 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
002f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0031 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0033 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0035 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0037 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0039 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
003b 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
003d 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
003f 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0041 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0043 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0045 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0047 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0049 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
004b 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
004d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
004f 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0051 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0053 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0055 0093 0000 | | push_full_address 0x0
0057 6074 |`t | Indirect_Literal Discrete,0xcc,{0x80000000, 0x00030000}
0058 0273 | s | Execute Discrete,Plus
0059 e20d | | Load 0x1,0xd
005a 606d |`m | Indirect_Literal Discrete,0xc8,{0x00000000, 0x0000ffff}
005b 0279 | y | Execute Discrete,And
005c 0273 | s | Execute Discrete,Plus
005d 0129 | ) | Execute Any,Make_Visible
005e 00bf | | Action Accept_Activation
005f e005 | | Load 0x0,0x5
0060 0007 | | Action Break_Optional
0061 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call
0063 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call
0065 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
0067 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call
0069 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
006b 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
006d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006e 00c7 | | Action Elaborate_Subprogram
006f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0070 00c7 | | Action Elaborate_Subprogram
0071 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0072 00c7 | | Action Elaborate_Subprogram
0073 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0074 00c7 | | Action Elaborate_Subprogram
0075 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call
0077 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0078 00c7 | | Action Elaborate_Subprogram
0079 1d18 | | Execute_Immediate Reference_Lex_1,0x18
007a 00c7 | | Action Elaborate_Subprogram
007b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
007c 00c7 | | Action Elaborate_Subprogram
007d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007e 00c7 | | Action Elaborate_Subprogram
007f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0080 00c7 | | Action Elaborate_Subprogram
0081 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0082 00c7 | | Action Elaborate_Subprogram
0083 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0084 00c7 | | Action Elaborate_Subprogram
0085 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0086 00c7 | | Action Elaborate_Subprogram
0087 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0088 00c7 | | Action Elaborate_Subprogram
0089 1d20 | | Execute_Immediate Reference_Lex_1,0x20
008a 00c7 | | Action Elaborate_Subprogram
008b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
008c 00c7 | | Action Elaborate_Subprogram
008d 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
008e 00c7 | | Action Elaborate_Subprogram
008f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0090 00c7 | | Action Elaborate_Subprogram
0091 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0092 00c7 | | Action Elaborate_Subprogram
0093 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0094 00c7 | | Action Elaborate_Subprogram
0095 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0096 00c7 | | Action Elaborate_Subprogram
0097 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0098 00c7 | | Action Elaborate_Subprogram
0099 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
009a 00c7 | | Action Elaborate_Subprogram
009b 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
009c 00c7 | | Action Elaborate_Subprogram
009d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
009e 00c7 | | Action Elaborate_Subprogram
009f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00a0 00c7 | | Action Elaborate_Subprogram
00a1 BODY_0008:
00a1 8233 | 3 | Call 0x1,0x33
00a2 e20f | | Load 0x1,0xf
00a3 e20e | | Load 0x1,0xe
00a4 00d8 | | Load_Top At_Offset_0
00a5 e006 | | Load 0x0,0x6
00a6 0260 | ` | Execute Discrete,In_Type
00a7 7001 |p | Jump_Nonzero 0xa9
00a8 0801 | | Execute_Immediate Raise,0x1
00a9 8007 | | Call 0x0,0x7
00aa a22d | - | Store_Unchecked 0x1,0x2d
00ab e22d | - | Load 0x1,0x2d
00ac 8008 | | Call 0x0,0x8
00ad 00bc | | Action Signal_Activated
00ae 00bb | | Action Signal_Completion
00af 0000 | | .XXX[0x1]
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, 0x00030000}
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 e22d | - | Load 0x1,0x2d
00d4 00ca | | Action Exit_Nullary_Function
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 822e | . | Call 0x1,0x2e
00dc 4800 |H | Short_Literal 0x0
00dd e009 | | Load 0x0,0x9
00de 1c08 | | Execute_Immediate Run_Utility,0x8
00df e22d | - | Load 0x1,0x2d
00e0 800a | | Call 0x0,0xa
00e1 00d9 | | Load_Top At_Offset_1
00e2 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00e3 00db | | Load_Top At_Offset_3
00e4 8231 | 1 | Call 0x1,0x31
00e5 00d9 | | Load_Top At_Offset_1
00e6 00d8 | | Load_Top At_Offset_0
00e7 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
00e8 00da | | Load_Top At_Offset_2
00e9 01da | | Execute Vector,Bounds
00ea 00da | | Load_Top At_Offset_2
00eb 01da | | Execute Vector,Bounds
00ec 00da | | Load_Top At_Offset_2
00ed 027f | | Execute Discrete,Equal
00ee 7001 |p | Jump_Nonzero 0xf0
00ef 08e0 | | Execute_Immediate Raise,0xe0
00f0 00cd | | Action Spare6_Action
00f1 027f | | Execute Discrete,Equal
00f2 7001 |p | Jump_Nonzero 0xf4
00f3 08e0 | | Execute_Immediate Raise,0xe0
00f4 00d2 | | Pop_Control Pop_Count_2
00f5 00d9 | | Load_Top At_Offset_1
00f6 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 822e | . | Call 0x1,0x2e
00fc 4801 |H | Short_Literal 0x1
00fd e009 | | Load 0x0,0x9
00fe 1c08 | | Execute_Immediate Run_Utility,0x8
00ff e22d | - | Load 0x1,0x2d
0100 800a | | Call 0x0,0xa
0101 00d9 | | Load_Top At_Offset_1
0102 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0103 00db | | Load_Top At_Offset_3
0104 8231 | 1 | Call 0x1,0x31
0105 00d9 | | Load_Top At_Offset_1
0106 00d8 | | Load_Top At_Offset_0
0107 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0108 00da | | Load_Top At_Offset_2
0109 01da | | Execute Vector,Bounds
010a 00da | | Load_Top At_Offset_2
010b 01da | | Execute Vector,Bounds
010c 00da | | Load_Top At_Offset_2
010d 027f | | Execute Discrete,Equal
010e 7001 |p | Jump_Nonzero 0x110
010f 08e0 | | Execute_Immediate Raise,0xe0
0110 00cd | | Action Spare6_Action
0111 027f | | Execute Discrete,Equal
0112 7001 |p | Jump_Nonzero 0x114
0113 08e0 | | Execute_Immediate Raise,0xe0
0114 00d2 | | Pop_Control Pop_Count_2
0115 00d9 | | Load_Top At_Offset_1
0116 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 8231 | 1 | Call 0x1,0x31
011d 800b | | Call 0x0,0xb
011e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0127 | ' | .CONST 0x0127 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 e211 | | Load 0x1,0x11
0124 0337 | 7 | Declare_Variable Array
0125 00d8 | | Load_Top At_Offset_0
0126 1c00 | | Execute_Immediate Run_Utility,0x0
0127 BODY_0120:
0127 00db | | Load_Top At_Offset_3
0128 8234 | 4 | Call 0x1,0x34
0129 00cf | | Action Mark_Auxiliary
012a e210 | | Load 0x1,0x10
012b 0265 | e | Execute Discrete,Reverse_Bounds
012c 0263 | c | Execute Discrete,Above_Bound
012d 7018 |p | Jump_Nonzero 0x146
012e 00d8 | | Load_Top At_Offset_0
012f 00d8 | | Load_Top At_Offset_0
0130 e210 | | Load 0x1,0x10
0131 0260 | ` | Execute Discrete,In_Type
0132 7001 |p | Jump_Nonzero 0x134
0133 0801 | | Execute_Immediate Raise,0x1
0134 8230 | 0 | Call 0x1,0x30
0135 e5ff | | Load 0x2,-0x1
0136 800c | | Call 0x0,0xc
0137 00d9 | | Load_Top At_Offset_1
0138 e210 | | Load 0x1,0x10
0139 1c04 | | Execute_Immediate Run_Utility,0x4
013a e402 | | Load 0x2,0x2
013b 01d6 | | Execute Vector,Field_Write
013c 00c8 | | Action Pop_Auxiliary_Range
013d 00d9 | | Load_Top At_Offset_1
013e 00d9 | | Load_Top At_Offset_1
013f 027f | | Execute Discrete,Equal
0140 7004 |p | Jump_Nonzero 0x145
0141 e210 | | Load 0x1,0x10
0142 0122 | " | Execute Any,Make_Root_Type
0143 1c07 | | Execute_Immediate Run_Utility,0x7
0144 7fe9 | | Jump 0x12e
0145 00d2 | | Pop_Control Pop_Count_2
0146 00ce | | Action Pop_Auxiliary
0147 00d8 | | Load_Top At_Offset_0
0148 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 8234 | 4 | Call 0x1,0x34
0155 00db | | Load_Top At_Offset_3
0156 00d8 | | Load_Top At_Offset_0
0157 e210 | | Load 0x1,0x10
0158 0260 | ` | Execute Discrete,In_Type
0159 7001 |p | Jump_Nonzero 0x15b
015a 0801 | | Execute_Immediate Raise,0x1
015b 8230 | 0 | Call 0x1,0x30
015c 00db | | Load_Top At_Offset_3
015d 800c | | Call 0x0,0xc
015e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00db | | Load_Top At_Offset_3
0164 00d8 | | Load_Top At_Offset_0
0165 e210 | | Load 0x1,0x10
0166 0260 | ` | Execute Discrete,In_Type
0167 7001 |p | Jump_Nonzero 0x169
0168 0801 | | Execute_Immediate Raise,0x1
0169 00db | | Load_Top At_Offset_3
016a 8218 | | Call 0x1,0x18
016b 800d | | Call 0x0,0xd
016c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
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 00db | | Load_Top At_Offset_3
0174 00d8 | | Load_Top At_Offset_0
0175 e210 | | Load 0x1,0x10
0176 0260 | ` | Execute Discrete,In_Type
0177 7001 |p | Jump_Nonzero 0x179
0178 0801 | | Execute_Immediate Raise,0x1
0179 00db | | Load_Top At_Offset_3
017a 8218 | | Call 0x1,0x18
017b 800e | | Call 0x0,0xe
017c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
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 800f | | Call 0x0,0xf
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 8010 | | Call 0x0,0x10
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 8011 | | Call 0x0,0x11
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 8012 | | Call 0x0,0x12
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 8013 | | Call 0x0,0x13
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 00db | | Load_Top At_Offset_3
01d5 8232 | 2 | Call 0x1,0x32
01d6 e22d | - | Load 0x1,0x2d
01d7 8014 | | Call 0x0,0x14
01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e7 | | .CONST 0x01e7 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e003 | | Load 0x0,0x3
01e4 02ff | | Declare_Variable Variant_Record
01e5 00d8 | | Load_Top At_Offset_0
01e6 1c00 | | Execute_Immediate Run_Utility,0x0
01e7 BODY_01e0:
01e7 00d8 | | Load_Top At_Offset_0
01e8 e5ff | | Load 0x2,-0x1
01e9 8232 | 2 | Call 0x1,0x32
01ea e22d | - | Load 0x1,0x2d
01eb 8014 | | Call 0x0,0x14
01ec 4502 |E | Exit_Suprogram 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 00da | | Load_Top At_Offset_2
01f4 8234 | 4 | Call 0x1,0x34
01f5 00da | | Load_Top At_Offset_2
01f6 8015 | | Call 0x0,0x15
01f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 8234 | 4 | Call 0x1,0x34
01fd 00db | | Load_Top At_Offset_3
01fe 8232 | 2 | Call 0x1,0x32
01ff 00db | | Load_Top At_Offset_3
0200 8016 | | Call 0x0,0x16
0201 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0202 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
020c 8234 | 4 | Call 0x1,0x34
020d e5fd | | Load 0x2,-0x3
020e e5fe | | Load 0x2,-0x2
020f 00d8 | | Load_Top At_Offset_0
0210 e210 | | Load 0x1,0x10
0211 0260 | ` | Execute Discrete,In_Type
0212 7001 |p | Jump_Nonzero 0x214
0213 0801 | | Execute_Immediate Raise,0x1
0214 8230 | 0 | Call 0x1,0x30
0215 e5ff | | Load 0x2,-0x1
0216 8017 | | Call 0x0,0x17
0217 4504 |E | Exit_Suprogram New_Top_Offset 0x4
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 8018 | | Call 0x0,0x18
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 8224 | $ | Call 0x1,0x24
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 8019 | | Call 0x0,0x19
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 8224 | $ | Call 0x1,0x24
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 801a | | Call 0x0,0x1a
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 801b | | Call 0x0,0x1b
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 801c | | Call 0x0,0x1c
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 801d | | Call 0x0,0x1d
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 0285 | | .CONST 0x0285 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b 00e1 | | Load_Encached Boolean_Cache
027c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
027d e22d | - | Load 0x1,0x2d
027e 800a | | Call 0x0,0xa
027f e006 | | Load 0x0,0x6
0280 1c04 | | Execute_Immediate Run_Utility,0x4
0281 e006 | | Load 0x0,0x6
0282 0122 | " | Execute Any,Make_Root_Type
0283 011c | | Execute Any,Convert_Unchecked
0284 1c01 | | Execute_Immediate Run_Utility,0x1
0285 BODY_0278:
0285 e5fd | | Load 0x2,-0x3
0286 8234 | 4 | Call 0x1,0x34
0287 e5fc | | Load 0x2,-0x4
0288 00d9 | | Load_Top At_Offset_1
0289 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "'("
028b 01cc | | Execute Vector,Catenate
028c 801e | | Call 0x0,0x1e
028d e5fc | | Load 0x2,-0x4
028e 801f | | Call 0x0,0x1f
028f 4801 |H | Short_Literal 0x1
0290 e5fc | | Load 0x2,-0x4
0291 8020 | | Call 0x0,0x20
0292 00cf | | Action Mark_Auxiliary
0293 e210 | | Load 0x1,0x10
0294 0265 | e | Execute Discrete,Reverse_Bounds
0295 0263 | c | Execute Discrete,Above_Bound
0296 702b |p+ | Jump_Nonzero 0x2c2
0297 e402 | | Load 0x2,0x2
0298 7005 |p | Jump_Nonzero 0x29e
0299 e5fc | | Load 0x2,-0x4
029a 0092 03c4 | | Action Push_String_Extended,0x3c4 ; ", "
029c 8021 | ! | Call 0x0,0x21
029d 7802 |x | Jump 0x2a0
029e 4800 |H | Short_Literal 0x0
029f a402 | | Store_Unchecked 0x2,0x2
02a0 e5fc | | Load 0x2,-0x4
02a1 00d9 | | Load_Top At_Offset_1
02a2 e210 | | Load 0x1,0x10
02a3 1c04 | | Execute_Immediate Run_Utility,0x4
02a4 e210 | | Load 0x1,0x10
02a5 0122 | " | Execute Any,Make_Root_Type
02a6 011c | | Execute Any,Convert_Unchecked
02a7 1c01 | | Execute_Immediate Run_Utility,0x1
02a8 0092 03c5 | | Action Push_String_Extended,0x3c5 ; " =>"
02aa 01cc | | Execute Vector,Catenate
02ab 801e | | Call 0x0,0x1e
02ac e5fc | | Load 0x2,-0x4
02ad 00d9 | | Load_Top At_Offset_1
02ae 00d8 | | Load_Top At_Offset_0
02af e210 | | Load 0x1,0x10
02b0 0260 | ` | Execute Discrete,In_Type
02b1 7001 |p | Jump_Nonzero 0x2b3
02b2 0801 | | Execute_Immediate Raise,0x1
02b3 e5fd | | Load 0x2,-0x3
02b4 8218 | | Call 0x1,0x18
02b5 00da | | Load_Top At_Offset_2
02b6 85fe | | Call 0x2,-0x2
02b7 801e | | Call 0x0,0x1e
02b8 00c8 | | Action Pop_Auxiliary_Range
02b9 00d9 | | Load_Top At_Offset_1
02ba 00d9 | | Load_Top At_Offset_1
02bb 027f | | Execute Discrete,Equal
02bc 7004 |p | Jump_Nonzero 0x2c1
02bd e210 | | Load 0x1,0x10
02be 0122 | " | Execute Any,Make_Root_Type
02bf 1c07 | | Execute_Immediate Run_Utility,0x7
02c0 7fd6 | | Jump 0x297
02c1 00d2 | | Pop_Control Pop_Count_2
02c2 00ce | | Action Pop_Auxiliary
02c3 e5fc | | Load 0x2,-0x4
02c4 8022 | " | Call 0x0,0x22
02c5 e5fc | | Load 0x2,-0x4
02c6 0092 03c6 | | Action Push_String_Extended,0x3c6 ; ")"
02c8 8021 | ! | Call 0x0,0x21
02c9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02ca 0000 0000 | | .BLANK 0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02df | | .CONST 0x02df ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0003 | | .CONST 0x0003 ; Number of locals
02d3 INIT_02d0:
02d3 e210 | | Load 0x1,0x10
02d4 026a | j | Execute Discrete,First
02d5 e210 | | Load 0x1,0x10
02d6 1c04 | | Execute_Immediate Run_Utility,0x4
02d7 00e3 | | Load_Encached Natural_Cache
02d8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02d9 e210 | | Load 0x1,0x10
02da 0269 | i | Execute Discrete,Last
02db e210 | | Load 0x1,0x10
02dc 1c04 | | Execute_Immediate Run_Utility,0x4
02dd 00e3 | | Load_Encached Natural_Cache
02de 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02df BODY_02d0:
02df 00d8 | | Load_Top At_Offset_0
02e0 00da | | Load_Top At_Offset_2
02e1 0272 | r | Execute Discrete,Minus
02e2 0a01 | | Execute_Immediate Plus,0x1
02e3 00d8 | | Load_Top At_Offset_0
02e4 00e3 | | Load_Encached Natural_Cache
02e5 0260 | ` | Execute Discrete,In_Type
02e6 7001 |p | Jump_Nonzero 0x2e8
02e7 0801 | | Execute_Immediate Raise,0x1
02e8 00ca | | Action Exit_Nullary_Function
02e9 0000 0000 | | .BLANK 0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 e210 | | Load 0x1,0x10
02f5 1c04 | | Execute_Immediate Run_Utility,0x4
02f6 e210 | | Load 0x1,0x10
02f7 026a | j | Execute Discrete,First
02f8 e210 | | Load 0x1,0x10
02f9 1c04 | | Execute_Immediate Run_Utility,0x4
02fa 0272 | r | Execute Discrete,Minus
02fb 0a01 | | Execute_Immediate Plus,0x1
02fc 00d8 | | Load_Top At_Offset_0
02fd e023 | # | Load 0x0,0x23
02fe 0260 | ` | Execute Discrete,In_Type
02ff 7001 |p | Jump_Nonzero 0x301
0300 0801 | | Execute_Immediate Raise,0x1
0301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c e210 | | Load 0x1,0x10
030d 1c04 | | Execute_Immediate Run_Utility,0x4
030e e210 | | Load 0x1,0x10
030f 026a | j | Execute Discrete,First
0310 e210 | | Load 0x1,0x10
0311 1c04 | | Execute_Immediate Run_Utility,0x4
0312 0272 | r | Execute Discrete,Minus
0313 0a01 | | Execute_Immediate Plus,0x1
0314 00d8 | | Load_Top At_Offset_0
0315 e024 | $ | Load 0x0,0x24
0316 0260 | ` | Execute Discrete,In_Type
0317 7001 |p | Jump_Nonzero 0x319
0318 0801 | | Execute_Immediate Raise,0x1
0319 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031a 0000 0000 | | .BLANK 0000[0x6]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0328 | ( | .CONST 0x0328 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0002 | | .CONST 0x0002 ; Number of locals
0323 INIT_0320:
0323 4801 |H | Short_Literal 0x1
0324 822e | . | Call 0x1,0x2e
0325 e025 | % | Load 0x0,0x25
0326 035b | [ | Declare_Type Array,Constrained
0327 0337 | 7 | Declare_Variable Array
0328 BODY_0320:
0328 00cf | | Action Mark_Auxiliary
0329 e5ff | | Load 0x2,-0x1
032a 01da | | Execute Vector,Bounds
032b e210 | | Load 0x1,0x10
032c 1c05 | | Execute_Immediate Run_Utility,0x5
032d 00d0 | | Action Swap_Control
032e e210 | | Load 0x1,0x10
032f 1c05 | | Execute_Immediate Run_Utility,0x5
0330 0263 | c | Execute Discrete,Above_Bound
0331 7018 |p | Jump_Nonzero 0x34a
0332 00d8 | | Load_Top At_Offset_0
0333 e210 | | Load 0x1,0x10
0334 1c04 | | Execute_Immediate Run_Utility,0x4
0335 e5ff | | Load 0x2,-0x1
0336 01d7 | | Execute Vector,Field_Read
0337 00d9 | | Load_Top At_Offset_1
0338 00d8 | | Load_Top At_Offset_0
0339 e210 | | Load 0x1,0x10
033a 0260 | ` | Execute Discrete,In_Type
033b 7001 |p | Jump_Nonzero 0x33d
033c 0801 | | Execute_Immediate Raise,0x1
033d 822f | / | Call 0x1,0x2f
033e e402 | | Load 0x2,0x2
033f 01d6 | | Execute Vector,Field_Write
0340 00c8 | | Action Pop_Auxiliary_Range
0341 00d9 | | Load_Top At_Offset_1
0342 00d9 | | Load_Top At_Offset_1
0343 027f | | Execute Discrete,Equal
0344 7004 |p | Jump_Nonzero 0x349
0345 e210 | | Load 0x1,0x10
0346 0122 | " | Execute Any,Make_Root_Type
0347 1c07 | | Execute_Immediate Run_Utility,0x7
0348 7fe9 | | Jump 0x332
0349 00d2 | | Pop_Control Pop_Count_2
034a 00ce | | Action Pop_Auxiliary
034b 00d8 | | Load_Top At_Offset_0
034c e025 | % | Load 0x0,0x25
034d 01c6 | | Execute Vector,Convert_To_Formal
034e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034f 0000 | | .XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035a | Z | .CONST 0x035a ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 4801 |H | Short_Literal 0x1
0354 822e | . | Call 0x1,0x2e
0355 e026 | & | Load 0x0,0x26
0356 035b | [ | Declare_Type Array,Constrained
0357 0337 | 7 | Declare_Variable Array
0358 00d8 | | Load_Top At_Offset_0
0359 1c00 | | Execute_Immediate Run_Utility,0x0
035a BODY_0350:
035a 00cf | | Action Mark_Auxiliary
035b e5ff | | Load 0x2,-0x1
035c 01da | | Execute Vector,Bounds
035d e210 | | Load 0x1,0x10
035e 1c05 | | Execute_Immediate Run_Utility,0x5
035f 00d0 | | Action Swap_Control
0360 e210 | | Load 0x1,0x10
0361 1c05 | | Execute_Immediate Run_Utility,0x5
0362 0263 | c | Execute Discrete,Above_Bound
0363 7018 |p | Jump_Nonzero 0x37c
0364 00d8 | | Load_Top At_Offset_0
0365 e210 | | Load 0x1,0x10
0366 1c04 | | Execute_Immediate Run_Utility,0x4
0367 e5ff | | Load 0x2,-0x1
0368 01d5 | | Execute Vector,Field_Reference
0369 00d9 | | Load_Top At_Offset_1
036a 00d8 | | Load_Top At_Offset_0
036b e210 | | Load 0x1,0x10
036c 0260 | ` | Execute Discrete,In_Type
036d 7001 |p | Jump_Nonzero 0x36f
036e 0801 | | Execute_Immediate Raise,0x1
036f 8230 | 0 | Call 0x1,0x30
0370 e402 | | Load 0x2,0x2
0371 01d6 | | Execute Vector,Field_Write
0372 00c8 | | Action Pop_Auxiliary_Range
0373 00d9 | | Load_Top At_Offset_1
0374 00d9 | | Load_Top At_Offset_1
0375 027f | | Execute Discrete,Equal
0376 7004 |p | Jump_Nonzero 0x37b
0377 e210 | | Load 0x1,0x10
0378 0122 | " | Execute Any,Make_Root_Type
0379 1c07 | | Execute_Immediate Run_Utility,0x7
037a 7fe9 | | Jump 0x364
037b 00d2 | | Pop_Control Pop_Count_2
037c 00ce | | Action Pop_Auxiliary
037d 00d8 | | Load_Top At_Offset_0
037e e026 | & | Load 0x0,0x26
037f 01c6 | | Execute Vector,Convert_To_Formal
0380 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0381 0000 0000 | | .BLANK 0000[0x7]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0390 | | .CONST 0x0390 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0002 | | .CONST 0x0002 ; Number of locals
038b INIT_0388:
038b 4801 |H | Short_Literal 0x1
038c 822e | . | Call 0x1,0x2e
038d e027 | ' | Load 0x0,0x27
038e 035b | [ | Declare_Type Array,Constrained
038f 0337 | 7 | Declare_Variable Array
0390 BODY_0388:
0390 00cf | | Action Mark_Auxiliary
0391 e210 | | Load 0x1,0x10
0392 0265 | e | Execute Discrete,Reverse_Bounds
0393 0263 | c | Execute Discrete,Above_Bound
0394 701b |p | Jump_Nonzero 0x3b0
0395 00d8 | | Load_Top At_Offset_0
0396 e210 | | Load 0x1,0x10
0397 1c04 | | Execute_Immediate Run_Utility,0x4
0398 e210 | | Load 0x1,0x10
0399 0122 | " | Execute Any,Make_Root_Type
039a 011c | | Execute Any,Convert_Unchecked
039b 1c01 | | Execute_Immediate Run_Utility,0x1
039c 8028 | ( | Call 0x0,0x28
039d 00d9 | | Load_Top At_Offset_1
039e 00d8 | | Load_Top At_Offset_0
039f e210 | | Load 0x1,0x10
03a0 0260 | ` | Execute Discrete,In_Type
03a1 7001 |p | Jump_Nonzero 0x3a3
03a2 0801 | | Execute_Immediate Raise,0x1
03a3 8230 | 0 | Call 0x1,0x30
03a4 e402 | | Load 0x2,0x2
03a5 01d6 | | Execute Vector,Field_Write
03a6 00c8 | | Action Pop_Auxiliary_Range
03a7 00d9 | | Load_Top At_Offset_1
03a8 00d9 | | Load_Top At_Offset_1
03a9 027f | | Execute Discrete,Equal
03aa 7004 |p | Jump_Nonzero 0x3af
03ab e210 | | Load 0x1,0x10
03ac 0122 | " | Execute Any,Make_Root_Type
03ad 1c07 | | Execute_Immediate Run_Utility,0x7
03ae 7fe6 | | Jump 0x395
03af 00d2 | | Pop_Control Pop_Count_2
03b0 00ce | | Action Pop_Auxiliary
03b1 00d8 | | Load_Top At_Offset_0
03b2 e027 | ' | Load 0x0,0x27
03b3 01c6 | | Execute Vector,Convert_To_Formal
03b4 00ca | | Action Exit_Nullary_Function
03b5 0000 0000 | | .XXX[0x3]
03b7 0000 | |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 00da | | Load_Top At_Offset_2
03bc 8029 | ) | Call 0x0,0x29
03bd e22d | - | Load 0x1,0x2d
03be 022e | . | Execute Access,Not_Equal
03bf 6802 |h | Jump_Zero 0x3c2
03c0 e22c | , | Load 0x1,0x2c
03c1 0257 | W | Execute Discrete,Raise
03c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c3 ; --------------------------------------------------------------------------------------
03c3 ; STRING TABLE
03c3 ; --------------------------------------------------------------------------------------
03c3 000a | | .STRTAB 0x000a->0x03c8 ; "'("
03c4 000a | | .STRTAB 0x000a->0x03c9 ; ", "
03c5 000a | | .STRTAB 0x000a->0x03ca ; " =>"
03c6 000b | | .STRTAB 0x000b->0x03cb ; ")"
03c7 000a | | .STREND 0x000a->0x03cc
03c8 2728 2c20 |'(, | .STRTAB_STRINGS
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug Table
03d0 ; --------------------------------------------------------------------------------------
03d0 0004 0006 | | .DEBUG4 0x0004,0x0006,0xad82,0x0000,0x0001,0x0023
03d6 000b 0462 | b| .DBG4T 0x000b,0x0462,0x4000,0x0000
03da 005f 0481 | _ | .DBG4T 0x005f,0x0481,0x4000,0x0000
03de 00b3 0000 | | .DBG4T 0x00b3,0x0000,0x1005,0x0000
03e2 00d3 04a6 | | .DBG4T 0x00d3,0x04a6,0x1002,0x0000
03e6 00db 04a9 | | .DBG4T 0x00db,0x04a9,0x1002,0x0000
03ea 00fb 04ac | | .DBG4T 0x00fb,0x04ac,0x1002,0x0000
03ee 011b 04af | | .DBG4T 0x011b,0x04af,0x1002,0x0000
03f2 0123 04b2 | # | .DBG4T 0x0123,0x04b2,0x1002,0x0000
03f6 0153 04b9 | S | .DBG4T 0x0153,0x04b9,0x1002,0x0000
03fa 0163 04bd | c | .DBG4T 0x0163,0x04bd,0x1002,0x0000
03fe 0173 04c0 | s | .DBG4T 0x0173,0x04c0,0x1002,0x0000
0402 0183 04c3 | | .DBG4T 0x0183,0x04c3,0x1002,0x0000
0406 0193 04c6 | | .DBG4T 0x0193,0x04c6,0x1002,0x0000
040a 01a3 04c9 | | .DBG4T 0x01a3,0x04c9,0x1002,0x0000
040e 01b3 04cc | | .DBG4T 0x01b3,0x04cc,0x1002,0x0000
0412 01c3 04cf | | .DBG4T 0x01c3,0x04cf,0x1002,0x0000
0416 01d3 04d2 | | .DBG4T 0x01d3,0x04d2,0x1001,0x0000
041a 01e3 04d5 | | .DBG4T 0x01e3,0x04d5,0x1001,0x0000
041e 01f3 04d9 | | .DBG4T 0x01f3,0x04d9,0x1001,0x0000
0422 01fb 04dd | | .DBG4T 0x01fb,0x04dd,0x1001,0x0000
0426 020b 04e1 | | .DBG4T 0x020b,0x04e1,0x1001,0x0000
042a 021b 04e5 | | .DBG4T 0x021b,0x04e5,0x1001,0x0000
042e 022b 04e8 | + | .DBG4T 0x022b,0x04e8,0x1001,0x0000
0432 023b 04eb | ; | .DBG4T 0x023b,0x04eb,0x1001,0x0000
0436 024b 04ee | K | .DBG4T 0x024b,0x04ee,0x1001,0x0000
043a 025b 04f1 | [ | .DBG4T 0x025b,0x04f1,0x1001,0x0000
043e 026b 04f4 | k | .DBG4T 0x026b,0x04f4,0x1001,0x0000
0442 027b 04f7 | { | .DBG4T 0x027b,0x04f7,0x3801,0x0002
0446 02d3 0507 | | .DBG4T 0x02d3,0x0507,0x1002,0x0000
044a 02f3 050c | | .DBG4T 0x02f3,0x050c,0x1002,0x0000
044e 030b 050f | | .DBG4T 0x030b,0x050f,0x1002,0x0000
0452 0323 0512 | # | .DBG4T 0x0323,0x0512,0x1002,0x0000
0456 0353 0518 | S | .DBG4T 0x0353,0x0518,0x1002,0x0000
045a 038b 051e | | .DBG4T 0x038b,0x051e,0x1002,0x0000
045e 03bb 0524 | $| .DBG4T 0x03bb,0x0524,0x1001,0x0000
0462 ; --------------------------------------------------------------------------------------
0462 ; Debug chain
0462 ; --------------------------------------------------------------------------------------
0462 001d 0000 | | .DBGLEN 0x001d,0x0000
0464 000b 0017 | | .DBGLNO 0x000b,0x0017,0x0022,0x0024,0x0026,0x0028,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055
0481 ; --------------------------------------------------------------------------------------
0481 ; Debug chain
0481 ; --------------------------------------------------------------------------------------
0481 0021 0002 | ! | .DBGLEN 0x0021,0x0002
0483 005f 0061 | _ a| .DBGLNO 0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00ab
04a6 ; --------------------------------------------------------------------------------------
04a6 ; Debug chain
04a6 ; --------------------------------------------------------------------------------------
04a6 0000 0001 | | .DBGLEN 0x0000,0x0001
04a8 00d3 | | .DBGLNO 0x00d3
04a9 ; --------------------------------------------------------------------------------------
04a9 ; Debug chain
04a9 ; --------------------------------------------------------------------------------------
04a9 0000 0001 | | .DBGLEN 0x0000,0x0001
04ab 00db | | .DBGLNO 0x00db
04ac ; --------------------------------------------------------------------------------------
04ac ; Debug chain
04ac ; --------------------------------------------------------------------------------------
04ac 0000 0001 | | .DBGLEN 0x0000,0x0001
04ae 00fb | | .DBGLNO 0x00fb
04af ; --------------------------------------------------------------------------------------
04af ; Debug chain
04af ; --------------------------------------------------------------------------------------
04af 0000 0001 | | .DBGLEN 0x0000,0x0001
04b1 011b | | .DBGLNO 0x011b
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug chain
04b2 ; --------------------------------------------------------------------------------------
04b2 0001 0004 | | .DBGLEN 0x0001,0x0004
04b4 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x012a,0x012e,0x0147
04b9 ; --------------------------------------------------------------------------------------
04b9 ; Debug chain
04b9 ; --------------------------------------------------------------------------------------
04b9 0000 0002 | | .DBGLEN 0x0000,0x0002
04bb 0153 0155 | S U| .DBGLNO 0x0153,0x0155
04bd ; --------------------------------------------------------------------------------------
04bd ; Debug chain
04bd ; --------------------------------------------------------------------------------------
04bd 0000 0001 | | .DBGLEN 0x0000,0x0001
04bf 0163 | c | .DBGLNO 0x0163
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug chain
04c0 ; --------------------------------------------------------------------------------------
04c0 0000 0001 | | .DBGLEN 0x0000,0x0001
04c2 0173 | s | .DBGLNO 0x0173
04c3 ; --------------------------------------------------------------------------------------
04c3 ; Debug chain
04c3 ; --------------------------------------------------------------------------------------
04c3 0000 0001 | | .DBGLEN 0x0000,0x0001
04c5 0183 | | .DBGLNO 0x0183
04c6 ; --------------------------------------------------------------------------------------
04c6 ; Debug chain
04c6 ; --------------------------------------------------------------------------------------
04c6 0000 0001 | | .DBGLEN 0x0000,0x0001
04c8 0193 | | .DBGLNO 0x0193
04c9 ; --------------------------------------------------------------------------------------
04c9 ; Debug chain
04c9 ; --------------------------------------------------------------------------------------
04c9 0000 0001 | | .DBGLEN 0x0000,0x0001
04cb 01a3 | | .DBGLNO 0x01a3
04cc ; --------------------------------------------------------------------------------------
04cc ; Debug chain
04cc ; --------------------------------------------------------------------------------------
04cc 0000 0001 | | .DBGLEN 0x0000,0x0001
04ce 01b3 | | .DBGLNO 0x01b3
04cf ; --------------------------------------------------------------------------------------
04cf ; Debug chain
04cf ; --------------------------------------------------------------------------------------
04cf 0000 0001 | | .DBGLEN 0x0000,0x0001
04d1 01c3 | | .DBGLNO 0x01c3
04d2 ; --------------------------------------------------------------------------------------
04d2 ; Debug chain
04d2 ; --------------------------------------------------------------------------------------
04d2 0000 0001 | | .DBGLEN 0x0000,0x0001
04d4 01d3 | | .DBGLNO 0x01d3
04d5 ; --------------------------------------------------------------------------------------
04d5 ; Debug chain
04d5 ; --------------------------------------------------------------------------------------
04d5 0001 0001 | | .DBGLEN 0x0001,0x0001
04d7 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7
04d9 ; --------------------------------------------------------------------------------------
04d9 ; Debug chain
04d9 ; --------------------------------------------------------------------------------------
04d9 0000 0002 | | .DBGLEN 0x0000,0x0002
04db 01f3 01f5 | | .DBGLNO 0x01f3,0x01f5
04dd ; --------------------------------------------------------------------------------------
04dd ; Debug chain
04dd ; --------------------------------------------------------------------------------------
04dd 0000 0002 | | .DBGLEN 0x0000,0x0002
04df 01fb 01fd | | .DBGLNO 0x01fb,0x01fd
04e1 ; --------------------------------------------------------------------------------------
04e1 ; Debug chain
04e1 ; --------------------------------------------------------------------------------------
04e1 0000 0002 | | .DBGLEN 0x0000,0x0002
04e3 020b 020d | | .DBGLNO 0x020b,0x020d
04e5 ; --------------------------------------------------------------------------------------
04e5 ; Debug chain
04e5 ; --------------------------------------------------------------------------------------
04e5 0000 0001 | | .DBGLEN 0x0000,0x0001
04e7 021b | | .DBGLNO 0x021b
04e8 ; --------------------------------------------------------------------------------------
04e8 ; Debug chain
04e8 ; --------------------------------------------------------------------------------------
04e8 0000 0001 | | .DBGLEN 0x0000,0x0001
04ea 022b | + | .DBGLNO 0x022b
04eb ; --------------------------------------------------------------------------------------
04eb ; Debug chain
04eb ; --------------------------------------------------------------------------------------
04eb 0000 0001 | | .DBGLEN 0x0000,0x0001
04ed 023b | ; | .DBGLNO 0x023b
04ee ; --------------------------------------------------------------------------------------
04ee ; Debug chain
04ee ; --------------------------------------------------------------------------------------
04ee 0000 0001 | | .DBGLEN 0x0000,0x0001
04f0 024b | K | .DBGLNO 0x024b
04f1 ; --------------------------------------------------------------------------------------
04f1 ; Debug chain
04f1 ; --------------------------------------------------------------------------------------
04f1 0000 0001 | | .DBGLEN 0x0000,0x0001
04f3 025b | [ | .DBGLNO 0x025b
04f4 ; --------------------------------------------------------------------------------------
04f4 ; Debug chain
04f4 ; --------------------------------------------------------------------------------------
04f4 0000 0001 | | .DBGLEN 0x0000,0x0001
04f6 026b | k | .DBGLNO 0x026b
04f7 ; --------------------------------------------------------------------------------------
04f7 ; Debug chain
04f7 ; --------------------------------------------------------------------------------------
04f7 0002 000c | | .DBGLEN 0x0002,0x000c
04f9 027b 027d | { }| .DBGLNO 0x027b,0x027d,0x0285,0x0287,0x028d,0x028f,0x0293,0x0297,0x0299,0x029e,0x02a0,0x02ac,0x02c3,0x02c5
0507 ; --------------------------------------------------------------------------------------
0507 ; Debug chain
0507 ; --------------------------------------------------------------------------------------
0507 0002 0001 | | .DBGLEN 0x0002,0x0001
0509 02d3 02d9 | | .DBGLNO 0x02d3,0x02d9,0x02df
050c ; --------------------------------------------------------------------------------------
050c ; Debug chain
050c ; --------------------------------------------------------------------------------------
050c 0000 0001 | | .DBGLEN 0x0000,0x0001
050e 02f3 | | .DBGLNO 0x02f3
050f ; --------------------------------------------------------------------------------------
050f ; Debug chain
050f ; --------------------------------------------------------------------------------------
050f 0000 0001 | | .DBGLEN 0x0000,0x0001
0511 030b | | .DBGLNO 0x030b
0512 ; --------------------------------------------------------------------------------------
0512 ; Debug chain
0512 ; --------------------------------------------------------------------------------------
0512 0001 0003 | | .DBGLEN 0x0001,0x0003
0514 0323 0329 | # )| .DBGLNO 0x0323,0x0329,0x0332,0x034b
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug chain
0518 ; --------------------------------------------------------------------------------------
0518 0001 0003 | | .DBGLEN 0x0001,0x0003
051a 0353 035b | S [| .DBGLNO 0x0353,0x035b,0x0364,0x037d
051e ; --------------------------------------------------------------------------------------
051e ; Debug chain
051e ; --------------------------------------------------------------------------------------
051e 0001 0003 | | .DBGLEN 0x0001,0x0003
0520 038b 0391 | | .DBGLNO 0x038b,0x0391,0x0395,0x03b1
0524 ; --------------------------------------------------------------------------------------
0524 ; Debug chain
0524 ; --------------------------------------------------------------------------------------
0524 0000 0002 | | .DBGLEN 0x0000,0x0002
0526 03bb 03c0 | | .DBGLNO 0x03bb,0x03c0
0528 0000 0000 | | .BLANK 0000[0xd8]