|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_bdfc99
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03e8 | | .CONST 0x03e8 ; 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 00ba | | .CONST 0x00ba ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0035 | 5 | .CONST 0x0035 ; 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 00cb | | Declare_Subprogram For_Call,INIT_00c8
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 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0024 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
0026 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110
0028 0007 | | Action Break_Optional
0029 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130
002b 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
002d 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
002f 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
0031 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0033 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
0035 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0037 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
0039 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
003b 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
003d 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
003f 029a 01fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f8
0041 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
0043 029a 0213 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0210
0045 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
0047 029a 0233 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0230
0049 029a 0243 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0240
004b 029a 0253 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0250
004d 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
004f 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
0051 029a 0283 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0280
0053 029a 0293 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0290
0055 0093 0000 | | PushFullAddress InMicrocode
0057 608c |` | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00030000}
0058 0273 | s | Execute Discrete,Plus
0059 e20d | | Load 0x1,0xd
005a 6085 |` | Indirect_Literal Discrete,0xe0,{0x00000000, 0x0000ffff}
005b 0279 | y | Execute Discrete,And
005c 0273 | s | Execute Discrete,Plus
005d 0129 | ) | Execute Any,Make_Visible
005e 4803 |H | Short_Literal 0x3
005f e002 | | Load 0x0,0x2
0060 0a01 | | Execute_Immediate Plus,0x1
0061 e001 | | Load 0x0,0x1
0062 01d7 | | Execute Vector,Field_Read
0063 02a0 | | Declare_Subprogram Null_Subprogram
0064 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0065 e001 | | Load 0x0,0x1
0066 e002 | | Load 0x0,0x2
0067 e001 | | Load 0x0,0x1
0068 01d7 | | Execute Vector,Field_Read
0069 4802 |H | Short_Literal 0x2
006a 00db | | Load_Top At_Offset_3
006b 020e | | Execute Module,Augment_Imports
006c 00bf | | Action Accept_Activation
006d e005 | | Load 0x0,0x5
006e 0007 | | Action Break_Optional
006f 029d 02eb | | Declare_Subprogram For_Outer_Call,INIT_02e8
0071 029d 030b | | Declare_Subprogram For_Outer_Call,INIT_0308
0073 029d 0323 | #| Declare_Subprogram For_Outer_Call,INIT_0320
0075 029d 033b | ;| Declare_Subprogram For_Outer_Call,INIT_0338
0077 029d 036b | k| Declare_Subprogram For_Outer_Call,INIT_0368
0079 029d 03a3 | | Declare_Subprogram For_Outer_Call,INIT_03a0
007b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007c 00c7 | | Action Elaborate_Subprogram
007d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
007e 00c7 | | Action Elaborate_Subprogram
007f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0080 00c7 | | Action Elaborate_Subprogram
0081 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0082 00c7 | | Action Elaborate_Subprogram
0083 029d 03d3 | | Declare_Subprogram For_Outer_Call,INIT_03d0
0085 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0086 00c7 | | Action Elaborate_Subprogram
0087 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0088 00c7 | | Action Elaborate_Subprogram
0089 1d19 | | Execute_Immediate Reference_Lex_1,0x19
008a 00c7 | | Action Elaborate_Subprogram
008b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
008c 00c7 | | Action Elaborate_Subprogram
008d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
008e 00c7 | | Action Elaborate_Subprogram
008f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0090 00c7 | | Action Elaborate_Subprogram
0091 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0092 00c7 | | Action Elaborate_Subprogram
0093 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0094 00c7 | | Action Elaborate_Subprogram
0095 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0096 00c7 | | Action Elaborate_Subprogram
0097 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0098 00c7 | | Action Elaborate_Subprogram
0099 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
009a 00c7 | | Action Elaborate_Subprogram
009b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
009c 00c7 | | Action Elaborate_Subprogram
009d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
009e 00c7 | | Action Elaborate_Subprogram
009f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00ae 00c7 | | Action Elaborate_Subprogram
00af e006 | | Load 0x0,0x6
00b0 e210 | | Load 0x1,0x10
00b1 e003 | | Load 0x0,0x3
00b2 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00b3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00b4 4805 |H | Short_Literal 0x5
00b5 e22d | - | Load 0x1,0x2d
00b6 020e | | Execute Module,Augment_Imports
00b7 e22d | - | Load 0x1,0x2d
00b8 020d | | Execute Module,Elaborate
00b9 0007 | | Action Break_Optional
00ba BODY_0008:
00ba 8234 | 4 | Call 0x1,0x34
00bb e20f | | Load 0x1,0xf
00bc e20e | | Load 0x1,0xe
00bd 00d8 | | Load_Top At_Offset_0
00be e007 | | Load 0x0,0x7
00bf 0260 | ` | Execute Discrete,In_Type
00c0 7001 |p | Jump_Nonzero 0xc2
00c1 0801 | | Execute_Immediate Raise,0x1
00c2 8008 | | Call 0x0,0x8
00c3 a22e | . | Store_Unchecked 0x1,0x2e
00c4 e22e | . | Load 0x1,0x2e
00c5 8009 | | Call 0x0,0x9
00c6 00bc | | Action Signal_Activated
00c7 00bb | | Action Signal_Completion
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 01d8 | | Execute Vector,Element_Type
00ce 02ff | | Declare_Variable Variant_Record
00cf 00d8 | | Load_Top At_Offset_0
00d0 1c00 | | Execute_Immediate Run_Utility,0x0
00d1 00db | | Load_Top At_Offset_3
00d2 01dc | | Execute Vector,Last
00d3 e5ff | | Load 0x2,-0x1
00d4 01dd | | Execute Vector,First
00d5 0263 | c | Execute Discrete,Above_Bound
00d6 7006 |p | Jump_Nonzero 0xdd
00d7 00da | | Load_Top At_Offset_2
00d8 00d9 | | Load_Top At_Offset_1
00d9 e5ff | | Load 0x2,-0x1
00da 01d6 | | Execute Vector,Field_Write
00db 0a01 | | Execute_Immediate Plus,0x1
00dc 7ff8 | | Jump 0xd5
00dd 4302 |C | Exit_Subprogram From_Utility,0x2
00de 0000 0000 | | .XXX[0x2]
00e0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00e4 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
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 e22e | . | Load 0x1,0x2e
00ec 00ca | | Action Exit_Nullary_Function
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 822f | / | Call 0x1,0x2f
00f4 4800 |H | Short_Literal 0x0
00f5 e00a | | Load 0x0,0xa
00f6 1c08 | | Execute_Immediate Run_Utility,0x8
00f7 e22e | . | Load 0x1,0x2e
00f8 800b | | Call 0x0,0xb
00f9 00d9 | | Load_Top At_Offset_1
00fa 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00fb 00db | | Load_Top At_Offset_3
00fc 8232 | 2 | Call 0x1,0x32
00fd 00d9 | | Load_Top At_Offset_1
00fe 00d8 | | Load_Top At_Offset_0
00ff 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0100 00da | | Load_Top At_Offset_2
0101 01da | | Execute Vector,Bounds
0102 00da | | Load_Top At_Offset_2
0103 01da | | Execute Vector,Bounds
0104 00da | | Load_Top At_Offset_2
0105 027f | | Execute Discrete,Equal
0106 7001 |p | Jump_Nonzero 0x108
0107 08e0 | | Execute_Immediate Raise,0xe0
0108 00cd | | Action Spare6_Action
0109 027f | | Execute Discrete,Equal
010a 7001 |p | Jump_Nonzero 0x10c
010b 08e0 | | Execute_Immediate Raise,0xe0
010c 00d2 | | Pop_Control Pop_Count_2
010d 00d9 | | Load_Top At_Offset_1
010e 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
010f 4401 |D | Exit_Subprogram With_Result,0x1
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 822f | / | Call 0x1,0x2f
0114 4801 |H | Short_Literal 0x1
0115 e00a | | Load 0x0,0xa
0116 1c08 | | Execute_Immediate Run_Utility,0x8
0117 e22e | . | Load 0x1,0x2e
0118 800b | | Call 0x0,0xb
0119 00d9 | | Load_Top At_Offset_1
011a 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
011b 00db | | Load_Top At_Offset_3
011c 8232 | 2 | Call 0x1,0x32
011d 00d9 | | Load_Top At_Offset_1
011e 00d8 | | Load_Top At_Offset_0
011f 2704 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x4
0120 00da | | Load_Top At_Offset_2
0121 01da | | Execute Vector,Bounds
0122 00da | | Load_Top At_Offset_2
0123 01da | | Execute Vector,Bounds
0124 00da | | Load_Top At_Offset_2
0125 027f | | Execute Discrete,Equal
0126 7001 |p | Jump_Nonzero 0x128
0127 08e0 | | Execute_Immediate Raise,0xe0
0128 00cd | | Action Spare6_Action
0129 027f | | Execute Discrete,Equal
012a 7001 |p | Jump_Nonzero 0x12c
012b 08e0 | | Execute_Immediate Raise,0xe0
012c 00d2 | | Pop_Control Pop_Count_2
012d 00d9 | | Load_Top At_Offset_1
012e 2b04 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x4
012f 4401 |D | Exit_Subprogram With_Result,0x1
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 8232 | 2 | Call 0x1,0x32
0135 800c | | Call 0x0,0xc
0136 4401 |D | Exit_Subprogram With_Result,0x1
0137 0000 | | .XXX[0x1]
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 8235 | 5 | Call 0x1,0x35
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 8231 | 1 | Call 0x1,0x31
014d e5ff | | Load 0x2,-0x1
014e 800d | | Call 0x0,0xd
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_Result,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 8235 | 5 | Call 0x1,0x35
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 8231 | 1 | Call 0x1,0x31
0174 00db | | Load_Top At_Offset_3
0175 800d | | Call 0x0,0xd
0176 4402 |D | Exit_Subprogram With_Result,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 8218 | | Call 0x1,0x18
0183 800e | | Call 0x0,0xe
0184 4402 |D | Exit_Subprogram With_Result,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 8218 | | Call 0x1,0x18
0193 800f | | Call 0x0,0xf
0194 4402 |D | Exit_Subprogram With_Result,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 8218 | | Call 0x1,0x18
01a3 8010 | | Call 0x0,0x10
01a4 4402 |D | Exit_Subprogram With_Result,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 8218 | | Call 0x1,0x18
01b3 8011 | | Call 0x0,0x11
01b4 4402 |D | Exit_Subprogram With_Result,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 8218 | | Call 0x1,0x18
01c3 8012 | | Call 0x0,0x12
01c4 4402 |D | Exit_Subprogram With_Result,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 8218 | | Call 0x1,0x18
01d3 8013 | | Call 0x0,0x13
01d4 4402 |D | Exit_Subprogram With_Result,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 00db | | Load_Top At_Offset_3
01dc 00d8 | | Load_Top At_Offset_0
01dd e210 | | Load 0x1,0x10
01de 0260 | ` | Execute Discrete,In_Type
01df 7001 |p | Jump_Nonzero 0x1e1
01e0 0801 | | Execute_Immediate Raise,0x1
01e1 00db | | Load_Top At_Offset_3
01e2 8218 | | Call 0x1,0x18
01e3 8014 | | Call 0x0,0x14
01e4 4402 |D | Exit_Subprogram With_Result,0x2
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
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 00db | | Load_Top At_Offset_3
01ec 00db | | Load_Top At_Offset_3
01ed 8233 | 3 | Call 0x1,0x33
01ee e22e | . | Load 0x1,0x2e
01ef 8015 | | Call 0x0,0x15
01f0 4502 |E | Exit_Subprogram 0x2
01f1 0000 0000 | | .BLANK 0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01ff | | .CONST 0x01ff ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e003 | | Load 0x0,0x3
01fc 02ff | | Declare_Variable Variant_Record
01fd 00d8 | | Load_Top At_Offset_0
01fe 1c00 | | Execute_Immediate Run_Utility,0x0
01ff BODY_01f8:
01ff 00d8 | | Load_Top At_Offset_0
0200 e5ff | | Load 0x2,-0x1
0201 8233 | 3 | Call 0x1,0x33
0202 e22e | . | Load 0x1,0x2e
0203 8015 | | Call 0x0,0x15
0204 4502 |E | Exit_Subprogram 0x2
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
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 8235 | 5 | Call 0x1,0x35
020d 00da | | Load_Top At_Offset_2
020e 8016 | | Call 0x0,0x16
020f 4502 |E | Exit_Subprogram 0x2
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 8235 | 5 | Call 0x1,0x35
0215 00db | | Load_Top At_Offset_3
0216 8233 | 3 | Call 0x1,0x33
0217 00db | | Load_Top At_Offset_3
0218 8017 | | Call 0x0,0x17
0219 4503 |E | Exit_Subprogram 0x3
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 8235 | 5 | Call 0x1,0x35
0225 e5fd | | Load 0x2,-0x3
0226 e5fe | | Load 0x2,-0x2
0227 00d8 | | Load_Top At_Offset_0
0228 e210 | | Load 0x1,0x10
0229 0260 | ` | Execute Discrete,In_Type
022a 7001 |p | Jump_Nonzero 0x22c
022b 0801 | | Execute_Immediate Raise,0x1
022c 8231 | 1 | Call 0x1,0x31
022d e5ff | | Load 0x2,-0x1
022e 8018 | | Call 0x0,0x18
022f 4504 |E | Exit_Subprogram 0x4
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e5fd | | Load 0x2,-0x3
0234 8019 | | Call 0x0,0x19
0235 e5fe | | Load 0x2,-0x2
0236 00d8 | | Load_Top At_Offset_0
0237 e210 | | Load 0x1,0x10
0238 0260 | ` | Execute Discrete,In_Type
0239 7001 |p | Jump_Nonzero 0x23b
023a 0801 | | Execute_Immediate Raise,0x1
023b e5ff | | Load 0x2,-0x1
023c 8224 | $ | Call 0x1,0x24
023d 4504 |E | Exit_Subprogram 0x4
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e5fd | | Load 0x2,-0x3
0244 801a | | Call 0x0,0x1a
0245 e5fe | | Load 0x2,-0x2
0246 00d8 | | Load_Top At_Offset_0
0247 e210 | | Load 0x1,0x10
0248 0260 | ` | Execute Discrete,In_Type
0249 7001 |p | Jump_Nonzero 0x24b
024a 0801 | | Execute_Immediate Raise,0x1
024b e5ff | | Load 0x2,-0x1
024c 8224 | $ | Call 0x1,0x24
024d 4504 |E | Exit_Subprogram 0x4
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e5fd | | Load 0x2,-0x3
0254 801b | | Call 0x0,0x1b
0255 e5fe | | Load 0x2,-0x2
0256 00d8 | | Load_Top At_Offset_0
0257 e210 | | Load 0x1,0x10
0258 0260 | ` | Execute Discrete,In_Type
0259 7001 |p | Jump_Nonzero 0x25b
025a 0801 | | Execute_Immediate Raise,0x1
025b e5ff | | Load 0x2,-0x1
025c 8224 | $ | Call 0x1,0x24
025d 4504 |E | Exit_Subprogram 0x4
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 e5fd | | Load 0x2,-0x3
0264 801c | | Call 0x0,0x1c
0265 e5fe | | Load 0x2,-0x2
0266 00d8 | | Load_Top At_Offset_0
0267 e210 | | Load 0x1,0x10
0268 0260 | ` | Execute Discrete,In_Type
0269 7001 |p | Jump_Nonzero 0x26b
026a 0801 | | Execute_Immediate Raise,0x1
026b e5ff | | Load 0x2,-0x1
026c 8224 | $ | Call 0x1,0x24
026d 4504 |E | Exit_Subprogram 0x4
026e 0000 0000 | | .XXX[0x2]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 e5fd | | Load 0x2,-0x3
0274 801d | | Call 0x0,0x1d
0275 e5fe | | Load 0x2,-0x2
0276 00d8 | | Load_Top At_Offset_0
0277 e210 | | Load 0x1,0x10
0278 0260 | ` | Execute Discrete,In_Type
0279 7001 |p | Jump_Nonzero 0x27b
027a 0801 | | Execute_Immediate Raise,0x1
027b e5ff | | Load 0x2,-0x1
027c 8224 | $ | Call 0x1,0x24
027d 4504 |E | Exit_Subprogram 0x4
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 e5fd | | Load 0x2,-0x3
0284 801e | | Call 0x0,0x1e
0285 e5fe | | Load 0x2,-0x2
0286 00d8 | | Load_Top At_Offset_0
0287 e210 | | Load 0x1,0x10
0288 0260 | ` | Execute Discrete,In_Type
0289 7001 |p | Jump_Nonzero 0x28b
028a 0801 | | Execute_Immediate Raise,0x1
028b e5ff | | Load 0x2,-0x1
028c 8224 | $ | Call 0x1,0x24
028d 4504 |E | Exit_Subprogram 0x4
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029d | | .CONST 0x029d ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0003 | | .CONST 0x0003 ; Number of locals
0293 INIT_0290:
0293 00e1 | | Load_Encached Boolean_Cache
0294 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0295 e22e | . | Load 0x1,0x2e
0296 800b | | Call 0x0,0xb
0297 e007 | | Load 0x0,0x7
0298 1c04 | | Execute_Immediate Run_Utility,0x4
0299 e007 | | Load 0x0,0x7
029a 0122 | " | Execute Any,Make_Root_Type
029b 011c | | Execute Any,Convert_Unchecked
029c 1c01 | | Execute_Immediate Run_Utility,0x1
029d BODY_0290:
029d e5fd | | Load 0x2,-0x3
029e 8235 | 5 | Call 0x1,0x35
029f e5fc | | Load 0x2,-0x4
02a0 00d9 | | Load_Top At_Offset_1
02a1 0092 03db | | Action Push_String_Extended,0x3db ; "'("
02a3 01cc | | Execute Vector,Catenate
02a4 801f | | Call 0x0,0x1f
02a5 e5fc | | Load 0x2,-0x4
02a6 8020 | | Call 0x0,0x20
02a7 4801 |H | Short_Literal 0x1
02a8 e5fc | | Load 0x2,-0x4
02a9 8021 | ! | Call 0x0,0x21
02aa 00cf | | Action Mark_Auxiliary
02ab e210 | | Load 0x1,0x10
02ac 0265 | e | Execute Discrete,Reverse_Bounds
02ad 0263 | c | Execute Discrete,Above_Bound
02ae 702b |p+ | Jump_Nonzero 0x2da
02af e402 | | Load 0x2,0x2
02b0 7005 |p | Jump_Nonzero 0x2b6
02b1 e5fc | | Load 0x2,-0x4
02b2 0092 03dc | | Action Push_String_Extended,0x3dc ; ", "
02b4 8022 | " | Call 0x0,0x22
02b5 7802 |x | Jump 0x2b8
02b6 4800 |H | Short_Literal 0x0
02b7 a402 | | Store_Unchecked 0x2,0x2
02b8 e5fc | | Load 0x2,-0x4
02b9 00d9 | | Load_Top At_Offset_1
02ba e210 | | Load 0x1,0x10
02bb 1c04 | | Execute_Immediate Run_Utility,0x4
02bc e210 | | Load 0x1,0x10
02bd 0122 | " | Execute Any,Make_Root_Type
02be 011c | | Execute Any,Convert_Unchecked
02bf 1c01 | | Execute_Immediate Run_Utility,0x1
02c0 0092 03dd | | Action Push_String_Extended,0x3dd ; " =>"
02c2 01cc | | Execute Vector,Catenate
02c3 801f | | Call 0x0,0x1f
02c4 e5fc | | Load 0x2,-0x4
02c5 00d9 | | Load_Top At_Offset_1
02c6 00d8 | | Load_Top At_Offset_0
02c7 e210 | | Load 0x1,0x10
02c8 0260 | ` | Execute Discrete,In_Type
02c9 7001 |p | Jump_Nonzero 0x2cb
02ca 0801 | | Execute_Immediate Raise,0x1
02cb e5fd | | Load 0x2,-0x3
02cc 8218 | | Call 0x1,0x18
02cd 00da | | Load_Top At_Offset_2
02ce 85fe | | Call 0x2,-0x2
02cf 801f | | Call 0x0,0x1f
02d0 00c8 | | Action Pop_Auxiliary_Range
02d1 00d9 | | Load_Top At_Offset_1
02d2 00d9 | | Load_Top At_Offset_1
02d3 027f | | Execute Discrete,Equal
02d4 7004 |p | Jump_Nonzero 0x2d9
02d5 e210 | | Load 0x1,0x10
02d6 0122 | " | Execute Any,Make_Root_Type
02d7 1c07 | | Execute_Immediate Run_Utility,0x7
02d8 7fd6 | | Jump 0x2af
02d9 00d2 | | Pop_Control Pop_Count_2
02da 00ce | | Action Pop_Auxiliary
02db e5fc | | Load 0x2,-0x4
02dc 8023 | # | Call 0x0,0x23
02dd e5fc | | Load 0x2,-0x4
02de 0092 03de | | Action Push_String_Extended,0x3de ; ")"
02e0 8022 | " | Call 0x0,0x22
02e1 4505 |E | Exit_Subprogram 0x5
02e2 0000 0000 | | .BLANK 0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f7 | | .CONST 0x02f7 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb e210 | | Load 0x1,0x10
02ec 026a | j | Execute Discrete,First
02ed e210 | | Load 0x1,0x10
02ee 1c04 | | Execute_Immediate Run_Utility,0x4
02ef 00e3 | | Load_Encached Natural_Cache
02f0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02f1 e210 | | Load 0x1,0x10
02f2 0269 | i | Execute Discrete,Last
02f3 e210 | | Load 0x1,0x10
02f4 1c04 | | Execute_Immediate Run_Utility,0x4
02f5 00e3 | | Load_Encached Natural_Cache
02f6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02f7 BODY_02e8:
02f7 00d8 | | Load_Top At_Offset_0
02f8 00da | | Load_Top At_Offset_2
02f9 0272 | r | Execute Discrete,Minus
02fa 0a01 | | Execute_Immediate Plus,0x1
02fb 00d8 | | Load_Top At_Offset_0
02fc 00e3 | | Load_Encached Natural_Cache
02fd 0260 | ` | Execute Discrete,In_Type
02fe 7001 |p | Jump_Nonzero 0x300
02ff 0801 | | Execute_Immediate Raise,0x1
0300 00ca | | Action Exit_Nullary_Function
0301 0000 0000 | | .BLANK 0000[0x7]
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_Result,0x1
031a 0000 0000 | | .BLANK 0000[0x6]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 e210 | | Load 0x1,0x10
0325 1c04 | | Execute_Immediate Run_Utility,0x4
0326 e210 | | Load 0x1,0x10
0327 026a | j | Execute Discrete,First
0328 e210 | | Load 0x1,0x10
0329 1c04 | | Execute_Immediate Run_Utility,0x4
032a 0272 | r | Execute Discrete,Minus
032b 0a01 | | Execute_Immediate Plus,0x1
032c 00d8 | | Load_Top At_Offset_0
032d e025 | % | Load 0x0,0x25
032e 0260 | ` | Execute Discrete,In_Type
032f 7001 |p | Jump_Nonzero 0x331
0330 0801 | | Execute_Immediate Raise,0x1
0331 4401 |D | Exit_Subprogram With_Result,0x1
0332 0000 0000 | | .BLANK 0000[0x6]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0340 | @ | .CONST 0x0340 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0002 | | .CONST 0x0002 ; Number of locals
033b INIT_0338:
033b 4801 |H | Short_Literal 0x1
033c 822f | / | Call 0x1,0x2f
033d e026 | & | Load 0x0,0x26
033e 035b | [ | Declare_Type Array,Constrained
033f 0337 | 7 | Declare_Variable Array
0340 BODY_0338:
0340 00cf | | Action Mark_Auxiliary
0341 e5ff | | Load 0x2,-0x1
0342 01da | | Execute Vector,Bounds
0343 e210 | | Load 0x1,0x10
0344 1c05 | | Execute_Immediate Run_Utility,0x5
0345 00d0 | | Action Swap_Control
0346 e210 | | Load 0x1,0x10
0347 1c05 | | Execute_Immediate Run_Utility,0x5
0348 0263 | c | Execute Discrete,Above_Bound
0349 7018 |p | Jump_Nonzero 0x362
034a 00d8 | | Load_Top At_Offset_0
034b e210 | | Load 0x1,0x10
034c 1c04 | | Execute_Immediate Run_Utility,0x4
034d e5ff | | Load 0x2,-0x1
034e 01d7 | | Execute Vector,Field_Read
034f 00d9 | | Load_Top At_Offset_1
0350 00d8 | | Load_Top At_Offset_0
0351 e210 | | Load 0x1,0x10
0352 0260 | ` | Execute Discrete,In_Type
0353 7001 |p | Jump_Nonzero 0x355
0354 0801 | | Execute_Immediate Raise,0x1
0355 8230 | 0 | Call 0x1,0x30
0356 e402 | | Load 0x2,0x2
0357 01d6 | | Execute Vector,Field_Write
0358 00c8 | | Action Pop_Auxiliary_Range
0359 00d9 | | Load_Top At_Offset_1
035a 00d9 | | Load_Top At_Offset_1
035b 027f | | Execute Discrete,Equal
035c 7004 |p | Jump_Nonzero 0x361
035d e210 | | Load 0x1,0x10
035e 0122 | " | Execute Any,Make_Root_Type
035f 1c07 | | Execute_Immediate Run_Utility,0x7
0360 7fe9 | | Jump 0x34a
0361 00d2 | | Pop_Control Pop_Count_2
0362 00ce | | Action Pop_Auxiliary
0363 00d8 | | Load_Top At_Offset_0
0364 e026 | & | Load 0x0,0x26
0365 01c6 | | Execute Vector,Convert_To_Formal
0366 4401 |D | Exit_Subprogram With_Result,0x1
0367 0000 | | .XXX[0x1]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0372 | r | .CONST 0x0372 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b 4801 |H | Short_Literal 0x1
036c 822f | / | Call 0x1,0x2f
036d e027 | ' | Load 0x0,0x27
036e 035b | [ | Declare_Type Array,Constrained
036f 0337 | 7 | Declare_Variable Array
0370 00d8 | | Load_Top At_Offset_0
0371 1c00 | | Execute_Immediate Run_Utility,0x0
0372 BODY_0368:
0372 00cf | | Action Mark_Auxiliary
0373 e5ff | | Load 0x2,-0x1
0374 01da | | Execute Vector,Bounds
0375 e210 | | Load 0x1,0x10
0376 1c05 | | Execute_Immediate Run_Utility,0x5
0377 00d0 | | Action Swap_Control
0378 e210 | | Load 0x1,0x10
0379 1c05 | | Execute_Immediate Run_Utility,0x5
037a 0263 | c | Execute Discrete,Above_Bound
037b 7018 |p | Jump_Nonzero 0x394
037c 00d8 | | Load_Top At_Offset_0
037d e210 | | Load 0x1,0x10
037e 1c04 | | Execute_Immediate Run_Utility,0x4
037f e5ff | | Load 0x2,-0x1
0380 01d5 | | Execute Vector,Field_Reference
0381 00d9 | | Load_Top At_Offset_1
0382 00d8 | | Load_Top At_Offset_0
0383 e210 | | Load 0x1,0x10
0384 0260 | ` | Execute Discrete,In_Type
0385 7001 |p | Jump_Nonzero 0x387
0386 0801 | | Execute_Immediate Raise,0x1
0387 8231 | 1 | Call 0x1,0x31
0388 e402 | | Load 0x2,0x2
0389 01d6 | | Execute Vector,Field_Write
038a 00c8 | | Action Pop_Auxiliary_Range
038b 00d9 | | Load_Top At_Offset_1
038c 00d9 | | Load_Top At_Offset_1
038d 027f | | Execute Discrete,Equal
038e 7004 |p | Jump_Nonzero 0x393
038f e210 | | Load 0x1,0x10
0390 0122 | " | Execute Any,Make_Root_Type
0391 1c07 | | Execute_Immediate Run_Utility,0x7
0392 7fe9 | | Jump 0x37c
0393 00d2 | | Pop_Control Pop_Count_2
0394 00ce | | Action Pop_Auxiliary
0395 00d8 | | Load_Top At_Offset_0
0396 e027 | ' | Load 0x0,0x27
0397 01c6 | | Execute Vector,Convert_To_Formal
0398 4401 |D | Exit_Subprogram With_Result,0x1
0399 0000 0000 | | .BLANK 0000[0x7]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a8 | | .CONST 0x03a8 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0002 | | .CONST 0x0002 ; Number of locals
03a3 INIT_03a0:
03a3 4801 |H | Short_Literal 0x1
03a4 822f | / | Call 0x1,0x2f
03a5 e028 | ( | Load 0x0,0x28
03a6 035b | [ | Declare_Type Array,Constrained
03a7 0337 | 7 | Declare_Variable Array
03a8 BODY_03a0:
03a8 00cf | | Action Mark_Auxiliary
03a9 e210 | | Load 0x1,0x10
03aa 0265 | e | Execute Discrete,Reverse_Bounds
03ab 0263 | c | Execute Discrete,Above_Bound
03ac 701b |p | Jump_Nonzero 0x3c8
03ad 00d8 | | Load_Top At_Offset_0
03ae e210 | | Load 0x1,0x10
03af 1c04 | | Execute_Immediate Run_Utility,0x4
03b0 e210 | | Load 0x1,0x10
03b1 0122 | " | Execute Any,Make_Root_Type
03b2 011c | | Execute Any,Convert_Unchecked
03b3 1c01 | | Execute_Immediate Run_Utility,0x1
03b4 8029 | ) | Call 0x0,0x29
03b5 00d9 | | Load_Top At_Offset_1
03b6 00d8 | | Load_Top At_Offset_0
03b7 e210 | | Load 0x1,0x10
03b8 0260 | ` | Execute Discrete,In_Type
03b9 7001 |p | Jump_Nonzero 0x3bb
03ba 0801 | | Execute_Immediate Raise,0x1
03bb 8231 | 1 | Call 0x1,0x31
03bc e402 | | Load 0x2,0x2
03bd 01d6 | | Execute Vector,Field_Write
03be 00c8 | | Action Pop_Auxiliary_Range
03bf 00d9 | | Load_Top At_Offset_1
03c0 00d9 | | Load_Top At_Offset_1
03c1 027f | | Execute Discrete,Equal
03c2 7004 |p | Jump_Nonzero 0x3c7
03c3 e210 | | Load 0x1,0x10
03c4 0122 | " | Execute Any,Make_Root_Type
03c5 1c07 | | Execute_Immediate Run_Utility,0x7
03c6 7fe6 | | Jump 0x3ad
03c7 00d2 | | Pop_Control Pop_Count_2
03c8 00ce | | Action Pop_Auxiliary
03c9 00d8 | | Load_Top At_Offset_0
03ca e028 | ( | Load 0x0,0x28
03cb 01c6 | | Execute Vector,Convert_To_Formal
03cc 00ca | | Action Exit_Nullary_Function
03cd 0000 0000 | | .XXX[0x3]
03cf 0000 | |
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 802a | * | Call 0x0,0x2a
03d5 e22e | . | Load 0x1,0x2e
03d6 022e | . | Execute Access,Not_Equal
03d7 6802 |h | Jump_Zero 0x3da
03d8 e22c | , | Load 0x1,0x2c
03d9 0257 | W | Execute Discrete,Raise
03da 4502 |E | Exit_Subprogram 0x2
03db ; --------------------------------------------------------------------------------------
03db ; STRING TABLE
03db ; --------------------------------------------------------------------------------------
03db 000a | | .STRTAB 0x000a->0x03e0 ; "'("
03dc 000a | | .STRTAB 0x000a->0x03e1 ; ", "
03dd 000a | | .STRTAB 0x000a->0x03e2 ; " =>"
03de 000b | | .STRTAB 0x000b->0x03e3 ; ")"
03df 000a | | .STREND 0x000a->0x03e4
03e0 2728 2c20 |'(, | .STRTAB_STRINGS
03e4 0000 0000 | | .BLANK 0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug Table
03e8 ; --------------------------------------------------------------------------------------
03e8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0dfb,0x0000,0x0001,0x0023
03ee 000b 047a | z| .DBG4T 0x000b,0x047a,0x4000,0x0000
03f2 006d 049a | m | .DBG4T 0x006d,0x049a,0x4000,0x0000
03f6 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x1005,0x0000
03fa 00eb 04c0 | | .DBG4T 0x00eb,0x04c0,0x1002,0x0000
03fe 00f3 04c3 | | .DBG4T 0x00f3,0x04c3,0x1002,0x0000
0402 0113 04c6 | | .DBG4T 0x0113,0x04c6,0x1002,0x0000
0406 0133 04c9 | 3 | .DBG4T 0x0133,0x04c9,0x1002,0x0000
040a 013b 04cc | ; | .DBG4T 0x013b,0x04cc,0x1002,0x0000
040e 016b 04d3 | k | .DBG4T 0x016b,0x04d3,0x1002,0x0000
0412 017b 04d7 | { | .DBG4T 0x017b,0x04d7,0x1002,0x0000
0416 018b 04da | | .DBG4T 0x018b,0x04da,0x1002,0x0000
041a 019b 04dd | | .DBG4T 0x019b,0x04dd,0x1002,0x0000
041e 01ab 04e0 | | .DBG4T 0x01ab,0x04e0,0x1002,0x0000
0422 01bb 04e3 | | .DBG4T 0x01bb,0x04e3,0x1002,0x0000
0426 01cb 04e6 | | .DBG4T 0x01cb,0x04e6,0x1002,0x0000
042a 01db 04e9 | | .DBG4T 0x01db,0x04e9,0x1002,0x0000
042e 01eb 04ec | | .DBG4T 0x01eb,0x04ec,0x1001,0x0000
0432 01fb 04ef | | .DBG4T 0x01fb,0x04ef,0x1001,0x0000
0436 020b 04f3 | | .DBG4T 0x020b,0x04f3,0x1001,0x0000
043a 0213 04f7 | | .DBG4T 0x0213,0x04f7,0x1001,0x0000
043e 0223 04fb | # | .DBG4T 0x0223,0x04fb,0x1001,0x0000
0442 0233 04ff | 3 | .DBG4T 0x0233,0x04ff,0x1001,0x0000
0446 0243 0502 | C | .DBG4T 0x0243,0x0502,0x1001,0x0000
044a 0253 0505 | S | .DBG4T 0x0253,0x0505,0x1001,0x0000
044e 0263 0508 | c | .DBG4T 0x0263,0x0508,0x1001,0x0000
0452 0273 050b | s | .DBG4T 0x0273,0x050b,0x1001,0x0000
0456 0283 050e | | .DBG4T 0x0283,0x050e,0x1001,0x0000
045a 0293 0511 | | .DBG4T 0x0293,0x0511,0x3801,0x0002
045e 02eb 0521 | !| .DBG4T 0x02eb,0x0521,0x1002,0x0000
0462 030b 0526 | &| .DBG4T 0x030b,0x0526,0x1002,0x0000
0466 0323 0529 | # )| .DBG4T 0x0323,0x0529,0x1002,0x0000
046a 033b 052c | ; ,| .DBG4T 0x033b,0x052c,0x1002,0x0000
046e 036b 0532 | k 2| .DBG4T 0x036b,0x0532,0x1002,0x0000
0472 03a3 0538 | 8| .DBG4T 0x03a3,0x0538,0x1002,0x0000
0476 03d3 053e | >| .DBG4T 0x03d3,0x053e,0x1001,0x0000
047a ; --------------------------------------------------------------------------------------
047a ; Debug chain
047a ; --------------------------------------------------------------------------------------
047a 001e 0000 | | .DBGLEN 0x001e,0x0000
047c 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,0x005e
049a ; --------------------------------------------------------------------------------------
049a ; Debug chain
049a ; --------------------------------------------------------------------------------------
049a 0022 0002 | " | .DBGLEN 0x0022,0x0002
049c 006d 006f | m o| .DBGLNO 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,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00ba,0x00c4
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug chain
04c0 ; --------------------------------------------------------------------------------------
04c0 0000 0001 | | .DBGLEN 0x0000,0x0001
04c2 00eb | | .DBGLNO 0x00eb
04c3 ; --------------------------------------------------------------------------------------
04c3 ; Debug chain
04c3 ; --------------------------------------------------------------------------------------
04c3 0000 0001 | | .DBGLEN 0x0000,0x0001
04c5 00f3 | | .DBGLNO 0x00f3
04c6 ; --------------------------------------------------------------------------------------
04c6 ; Debug chain
04c6 ; --------------------------------------------------------------------------------------
04c6 0000 0001 | | .DBGLEN 0x0000,0x0001
04c8 0113 | | .DBGLNO 0x0113
04c9 ; --------------------------------------------------------------------------------------
04c9 ; Debug chain
04c9 ; --------------------------------------------------------------------------------------
04c9 0000 0001 | | .DBGLEN 0x0000,0x0001
04cb 0133 | 3 | .DBGLNO 0x0133
04cc ; --------------------------------------------------------------------------------------
04cc ; Debug chain
04cc ; --------------------------------------------------------------------------------------
04cc 0001 0004 | | .DBGLEN 0x0001,0x0004
04ce 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0142,0x0146,0x015f
04d3 ; --------------------------------------------------------------------------------------
04d3 ; Debug chain
04d3 ; --------------------------------------------------------------------------------------
04d3 0000 0002 | | .DBGLEN 0x0000,0x0002
04d5 016b 016d | k m| .DBGLNO 0x016b,0x016d
04d7 ; --------------------------------------------------------------------------------------
04d7 ; Debug chain
04d7 ; --------------------------------------------------------------------------------------
04d7 0000 0001 | | .DBGLEN 0x0000,0x0001
04d9 017b | { | .DBGLNO 0x017b
04da ; --------------------------------------------------------------------------------------
04da ; Debug chain
04da ; --------------------------------------------------------------------------------------
04da 0000 0001 | | .DBGLEN 0x0000,0x0001
04dc 018b | | .DBGLNO 0x018b
04dd ; --------------------------------------------------------------------------------------
04dd ; Debug chain
04dd ; --------------------------------------------------------------------------------------
04dd 0000 0001 | | .DBGLEN 0x0000,0x0001
04df 019b | | .DBGLNO 0x019b
04e0 ; --------------------------------------------------------------------------------------
04e0 ; Debug chain
04e0 ; --------------------------------------------------------------------------------------
04e0 0000 0001 | | .DBGLEN 0x0000,0x0001
04e2 01ab | | .DBGLNO 0x01ab
04e3 ; --------------------------------------------------------------------------------------
04e3 ; Debug chain
04e3 ; --------------------------------------------------------------------------------------
04e3 0000 0001 | | .DBGLEN 0x0000,0x0001
04e5 01bb | | .DBGLNO 0x01bb
04e6 ; --------------------------------------------------------------------------------------
04e6 ; Debug chain
04e6 ; --------------------------------------------------------------------------------------
04e6 0000 0001 | | .DBGLEN 0x0000,0x0001
04e8 01cb | | .DBGLNO 0x01cb
04e9 ; --------------------------------------------------------------------------------------
04e9 ; Debug chain
04e9 ; --------------------------------------------------------------------------------------
04e9 0000 0001 | | .DBGLEN 0x0000,0x0001
04eb 01db | | .DBGLNO 0x01db
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug chain
04ec ; --------------------------------------------------------------------------------------
04ec 0000 0001 | | .DBGLEN 0x0000,0x0001
04ee 01eb | | .DBGLNO 0x01eb
04ef ; --------------------------------------------------------------------------------------
04ef ; Debug chain
04ef ; --------------------------------------------------------------------------------------
04ef 0001 0001 | | .DBGLEN 0x0001,0x0001
04f1 01fb 01ff | | .DBGLNO 0x01fb,0x01ff
04f3 ; --------------------------------------------------------------------------------------
04f3 ; Debug chain
04f3 ; --------------------------------------------------------------------------------------
04f3 0000 0002 | | .DBGLEN 0x0000,0x0002
04f5 020b 020d | | .DBGLNO 0x020b,0x020d
04f7 ; --------------------------------------------------------------------------------------
04f7 ; Debug chain
04f7 ; --------------------------------------------------------------------------------------
04f7 0000 0002 | | .DBGLEN 0x0000,0x0002
04f9 0213 0215 | | .DBGLNO 0x0213,0x0215
04fb ; --------------------------------------------------------------------------------------
04fb ; Debug chain
04fb ; --------------------------------------------------------------------------------------
04fb 0000 0002 | | .DBGLEN 0x0000,0x0002
04fd 0223 0225 | # %| .DBGLNO 0x0223,0x0225
04ff ; --------------------------------------------------------------------------------------
04ff ; Debug chain
04ff ; --------------------------------------------------------------------------------------
04ff 0000 0001 | | .DBGLEN 0x0000,0x0001
0501 0233 | 3 | .DBGLNO 0x0233
0502 ; --------------------------------------------------------------------------------------
0502 ; Debug chain
0502 ; --------------------------------------------------------------------------------------
0502 0000 0001 | | .DBGLEN 0x0000,0x0001
0504 0243 | C | .DBGLNO 0x0243
0505 ; --------------------------------------------------------------------------------------
0505 ; Debug chain
0505 ; --------------------------------------------------------------------------------------
0505 0000 0001 | | .DBGLEN 0x0000,0x0001
0507 0253 | S | .DBGLNO 0x0253
0508 ; --------------------------------------------------------------------------------------
0508 ; Debug chain
0508 ; --------------------------------------------------------------------------------------
0508 0000 0001 | | .DBGLEN 0x0000,0x0001
050a 0263 | c | .DBGLNO 0x0263
050b ; --------------------------------------------------------------------------------------
050b ; Debug chain
050b ; --------------------------------------------------------------------------------------
050b 0000 0001 | | .DBGLEN 0x0000,0x0001
050d 0273 | s | .DBGLNO 0x0273
050e ; --------------------------------------------------------------------------------------
050e ; Debug chain
050e ; --------------------------------------------------------------------------------------
050e 0000 0001 | | .DBGLEN 0x0000,0x0001
0510 0283 | | .DBGLNO 0x0283
0511 ; --------------------------------------------------------------------------------------
0511 ; Debug chain
0511 ; --------------------------------------------------------------------------------------
0511 0002 000c | | .DBGLEN 0x0002,0x000c
0513 0293 0295 | | .DBGLNO 0x0293,0x0295,0x029d,0x029f,0x02a5,0x02a7,0x02ab,0x02af,0x02b1,0x02b6,0x02b8,0x02c4,0x02db,0x02dd
0521 ; --------------------------------------------------------------------------------------
0521 ; Debug chain
0521 ; --------------------------------------------------------------------------------------
0521 0002 0001 | | .DBGLEN 0x0002,0x0001
0523 02eb 02f1 | | .DBGLNO 0x02eb,0x02f1,0x02f7
0526 ; --------------------------------------------------------------------------------------
0526 ; Debug chain
0526 ; --------------------------------------------------------------------------------------
0526 0000 0001 | | .DBGLEN 0x0000,0x0001
0528 030b | | .DBGLNO 0x030b
0529 ; --------------------------------------------------------------------------------------
0529 ; Debug chain
0529 ; --------------------------------------------------------------------------------------
0529 0000 0001 | | .DBGLEN 0x0000,0x0001
052b 0323 | # | .DBGLNO 0x0323
052c ; --------------------------------------------------------------------------------------
052c ; Debug chain
052c ; --------------------------------------------------------------------------------------
052c 0001 0003 | | .DBGLEN 0x0001,0x0003
052e 033b 0341 | ; A| .DBGLNO 0x033b,0x0341,0x034a,0x0363
0532 ; --------------------------------------------------------------------------------------
0532 ; Debug chain
0532 ; --------------------------------------------------------------------------------------
0532 0001 0003 | | .DBGLEN 0x0001,0x0003
0534 036b 0373 | k s| .DBGLNO 0x036b,0x0373,0x037c,0x0395
0538 ; --------------------------------------------------------------------------------------
0538 ; Debug chain
0538 ; --------------------------------------------------------------------------------------
0538 0001 0003 | | .DBGLEN 0x0001,0x0003
053a 03a3 03a9 | | .DBGLNO 0x03a3,0x03a9,0x03ad,0x03c9
053e ; --------------------------------------------------------------------------------------
053e ; Debug chain
053e ; --------------------------------------------------------------------------------------
053e 0000 0002 | | .DBGLEN 0x0000,0x0002
0540 03d3 03d8 | | .DBGLNO 0x03d3,0x03d8
0542 0000 0000 | | .BLANK 0000[0xbe]