|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_13388c9
└─⟦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 02b0 | | .CONST 0x02b0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0065 | e | .CONST 0x0065 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; 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 00e2 | | Load_Encached Integer_Cache
0013 02a0 | | Declare_Subprogram Null_Subprogram
0014 4801 |H | Short_Literal 0x1
0015 035e | ^ | Declare_Type Array,Defined,Visible
0016 00d9 | | Load_Top At_Offset_1
0017 0265 | e | Execute Discrete,Reverse_Bounds
0018 00db | | Load_Top At_Offset_3
0019 1c04 | | Execute_Immediate Run_Utility,0x4
001a 00d0 | | Action Swap_Control
001b 00db | | Load_Top At_Offset_3
001c 1c04 | | Execute_Immediate Run_Utility,0x4
001d e003 | | Load 0x0,0x3
001e 029f 007b | {| Declare_Subprogram For_Call,INIT_0078
0020 4801 |H | Short_Literal 0x1
0021 035e | ^ | Declare_Type Array,Defined,Visible
0022 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
0024 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
0026 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
0028 0007 | | Action Break_Optional
0029 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
002b 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
002d 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
002f 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130
0031 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
0033 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
0035 029a 015b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0158
0037 0093 0000 | | PushFullAddress InMicrocode
0039 605a |`Z | Indirect_Literal Discrete,0x94,{0x80000000, 0x00020000}
003a 0273 | s | Execute Discrete,Plus
003b e20d | | Load 0x1,0xd
003c 6053 |`S | Indirect_Literal Discrete,0x90,{0x00000000, 0x0000ffff}
003d 0279 | y | Execute Discrete,And
003e 0273 | s | Execute Discrete,Plus
003f 0129 | ) | Execute Any,Make_Visible
0040 00bf | | Action Accept_Activation
0041 e004 | | Load 0x0,0x4
0042 0007 | | Action Break_Optional
0043 029d 01b3 | | Declare_Subprogram For_Outer_Call,INIT_01b0
0045 029d 01d3 | | Declare_Subprogram For_Outer_Call,INIT_01d0
0047 029d 01eb | | Declare_Subprogram For_Outer_Call,INIT_01e8
0049 029d 0203 | | Declare_Subprogram For_Outer_Call,INIT_0200
004b 029d 023b | ;| Declare_Subprogram For_Outer_Call,INIT_0238
004d 029d 026b | k| Declare_Subprogram For_Outer_Call,INIT_0268
004f 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0050 00c7 | | Action Elaborate_Subprogram
0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0052 00c7 | | Action Elaborate_Subprogram
0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0054 00c7 | | Action Elaborate_Subprogram
0055 029d 029b | | Declare_Subprogram For_Outer_Call,INIT_0298
0057 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0058 00c7 | | Action Elaborate_Subprogram
0059 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005a 00c7 | | Action Elaborate_Subprogram
005b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005c 00c7 | | Action Elaborate_Subprogram
005d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
005e 00c7 | | Action Elaborate_Subprogram
005f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0060 00c7 | | Action Elaborate_Subprogram
0061 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0062 00c7 | | Action Elaborate_Subprogram
0063 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0064 00c7 | | Action Elaborate_Subprogram
0065 BODY_0008:
0065 8224 | $ | Call 0x1,0x24
0066 e20f | | Load 0x1,0xf
0067 e20e | | Load 0x1,0xe
0068 00d8 | | Load_Top At_Offset_0
0069 e005 | | Load 0x0,0x5
006a 0260 | ` | Execute Discrete,In_Type
006b 7001 |p | Jump_Nonzero 0x6d
006c 0801 | | Execute_Immediate Raise,0x1
006d 8006 | | Call 0x0,0x6
006e a21e | | Store_Unchecked 0x1,0x1e
006f e21e | | Load 0x1,0x1e
0070 8007 | | Call 0x0,0x7
0071 00bc | | Action Signal_Activated
0072 00bb | | Action Signal_Completion
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00d1 | | Pop_Control Pop_Count_1
007c 00da | | Load_Top At_Offset_2
007d 01dc | | Execute Vector,Last
007e 00db | | Load_Top At_Offset_3
007f 01dd | | Execute Vector,First
0080 0263 | c | Execute Discrete,Above_Bound
0081 700a |p | Jump_Nonzero 0x8c
0082 00d8 | | Load_Top At_Offset_0
0083 e5ff | | Load 0x2,-0x1
0084 01d5 | | Execute Vector,Field_Reference
0085 0125 | % | Execute Any,Set_Constraint
0086 00d8 | | Load_Top At_Offset_0
0087 e5ff | | Load 0x2,-0x1
0088 01d5 | | Execute Vector,Field_Reference
0089 1c00 | | Execute_Immediate Run_Utility,0x0
008a 0a01 | | Execute_Immediate Plus,0x1
008b 7ff4 | | Jump 0x80
008c 4302 |C | Exit_Subprogram From_Utility,0x2
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0094 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e21e | | Load 0x1,0x1e
009c 00ca | | Action Exit_Nullary_Function
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 821f | | Call 0x1,0x1f
00a4 e008 | | Load 0x0,0x8
00a5 1c08 | | Execute_Immediate Run_Utility,0x8
00a6 4800 |H | Short_Literal 0x0
00a7 00d9 | | Load_Top At_Offset_1
00a8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a9 e21e | | Load 0x1,0x1e
00aa 8009 | | Call 0x0,0x9
00ab 00d9 | | Load_Top At_Offset_1
00ac 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00ad 00db | | Load_Top At_Offset_3
00ae 8222 | " | Call 0x1,0x22
00af 00d9 | | Load_Top At_Offset_1
00b0 00d8 | | Load_Top At_Offset_0
00b1 2504 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x4
00b2 00da | | Load_Top At_Offset_2
00b3 01da | | Execute Vector,Bounds
00b4 00da | | Load_Top At_Offset_2
00b5 01da | | Execute Vector,Bounds
00b6 00da | | Load_Top At_Offset_2
00b7 027f | | Execute Discrete,Equal
00b8 7001 |p | Jump_Nonzero 0xba
00b9 08e0 | | Execute_Immediate Raise,0xe0
00ba 00cd | | Action Spare6_Action
00bb 027f | | Execute Discrete,Equal
00bc 7001 |p | Jump_Nonzero 0xbe
00bd 08e0 | | Execute_Immediate Raise,0xe0
00be 00d2 | | Pop_Control Pop_Count_2
00bf 00d9 | | Load_Top At_Offset_1
00c0 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
00c1 4401 |D | Exit_Subprogram With_Result,0x1
00c2 0000 0000 | | .BLANK 0000[0x6]
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 821f | | Call 0x1,0x1f
00cc e008 | | Load 0x0,0x8
00cd 1c08 | | Execute_Immediate Run_Utility,0x8
00ce 4801 |H | Short_Literal 0x1
00cf 00d9 | | Load_Top At_Offset_1
00d0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00d1 e21e | | Load 0x1,0x1e
00d2 8009 | | Call 0x0,0x9
00d3 00d9 | | Load_Top At_Offset_1
00d4 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00d5 00db | | Load_Top At_Offset_3
00d6 8222 | " | Call 0x1,0x22
00d7 00d9 | | Load_Top At_Offset_1
00d8 00d8 | | Load_Top At_Offset_0
00d9 2504 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x4
00da 00da | | Load_Top At_Offset_2
00db 01da | | Execute Vector,Bounds
00dc 00da | | Load_Top At_Offset_2
00dd 01da | | Execute Vector,Bounds
00de 00da | | Load_Top At_Offset_2
00df 027f | | Execute Discrete,Equal
00e0 7001 |p | Jump_Nonzero 0xe2
00e1 08e0 | | Execute_Immediate Raise,0xe0
00e2 00cd | | Action Spare6_Action
00e3 027f | | Execute Discrete,Equal
00e4 7001 |p | Jump_Nonzero 0xe6
00e5 08e0 | | Execute_Immediate Raise,0xe0
00e6 00d2 | | Pop_Control Pop_Count_2
00e7 00d9 | | Load_Top At_Offset_1
00e8 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
00e9 4401 |D | Exit_Subprogram With_Result,0x1
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5 | | .CONST 0x00f5 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e211 | | Load 0x1,0x11
00f4 0337 | 7 | Declare_Variable Array
00f5 BODY_00f0:
00f5 00db | | Load_Top At_Offset_3
00f6 8225 | % | Call 0x1,0x25
00f7 00cf | | Action Mark_Auxiliary
00f8 e210 | | Load 0x1,0x10
00f9 0265 | e | Execute Discrete,Reverse_Bounds
00fa 0263 | c | Execute Discrete,Above_Bound
00fb 7018 |p | Jump_Nonzero 0x114
00fc 00d8 | | Load_Top At_Offset_0
00fd 00d8 | | Load_Top At_Offset_0
00fe e210 | | Load 0x1,0x10
00ff 0260 | ` | Execute Discrete,In_Type
0100 7001 |p | Jump_Nonzero 0x102
0101 0801 | | Execute_Immediate Raise,0x1
0102 8221 | ! | Call 0x1,0x21
0103 e5ff | | Load 0x2,-0x1
0104 800a | | Call 0x0,0xa
0105 00d9 | | Load_Top At_Offset_1
0106 e210 | | Load 0x1,0x10
0107 1c04 | | Execute_Immediate Run_Utility,0x4
0108 e402 | | Load 0x2,0x2
0109 01d6 | | Execute Vector,Field_Write
010a 00c8 | | Action Pop_Auxiliary_Range
010b 00d9 | | Load_Top At_Offset_1
010c 00d9 | | Load_Top At_Offset_1
010d 027f | | Execute Discrete,Equal
010e 7004 |p | Jump_Nonzero 0x113
010f e210 | | Load 0x1,0x10
0110 0122 | " | Execute Any,Make_Root_Type
0111 1c07 | | Execute_Immediate Run_Utility,0x7
0112 7fe9 | | Jump 0xfc
0113 00d2 | | Pop_Control Pop_Count_2
0114 00ce | | Action Pop_Auxiliary
0115 00d8 | | Load_Top At_Offset_0
0116 4401 |D | Exit_Subprogram With_Result,0x1
0117 0000 | | .XXX[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 8225 | % | Call 0x1,0x25
011d 00db | | Load_Top At_Offset_3
011e 00d8 | | Load_Top At_Offset_0
011f e210 | | Load 0x1,0x10
0120 0260 | ` | Execute Discrete,In_Type
0121 7001 |p | Jump_Nonzero 0x123
0122 0801 | | Execute_Immediate Raise,0x1
0123 8221 | ! | Call 0x1,0x21
0124 00db | | Load_Top At_Offset_3
0125 800a | | Call 0x0,0xa
0126 4402 |D | Exit_Subprogram With_Result,0x2
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 8223 | # | Call 0x1,0x23
012d e21e | | Load 0x1,0x1e
012e 800b | | Call 0x0,0xb
012f 4502 |E | Exit_Subprogram 0x2
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 8225 | % | Call 0x1,0x25
0135 00da | | Load_Top At_Offset_2
0136 800c | | Call 0x0,0xc
0137 4502 |E | Exit_Subprogram 0x2
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 8225 | % | Call 0x1,0x25
013d 00db | | Load_Top At_Offset_3
013e 8223 | # | Call 0x1,0x23
013f 00db | | Load_Top At_Offset_3
0140 800d | | Call 0x0,0xd
0141 4503 |E | Exit_Subprogram 0x3
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 8225 | % | Call 0x1,0x25
014d e5fd | | Load 0x2,-0x3
014e e5fe | | Load 0x2,-0x2
014f 00d8 | | Load_Top At_Offset_0
0150 e210 | | Load 0x1,0x10
0151 0260 | ` | Execute Discrete,In_Type
0152 7001 |p | Jump_Nonzero 0x154
0153 0801 | | Execute_Immediate Raise,0x1
0154 8221 | ! | Call 0x1,0x21
0155 e5ff | | Load 0x2,-0x1
0156 800e | | Call 0x0,0xe
0157 4504 |E | Exit_Subprogram 0x4
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0165 | e | .CONST 0x0165 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0003 | | .CONST 0x0003 ; Number of locals
015b INIT_0158:
015b 00e1 | | Load_Encached Boolean_Cache
015c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
015d e21e | | Load 0x1,0x1e
015e 8009 | | Call 0x0,0x9
015f e005 | | Load 0x0,0x5
0160 1c04 | | Execute_Immediate Run_Utility,0x4
0161 e005 | | Load 0x0,0x5
0162 0122 | " | Execute Any,Make_Root_Type
0163 011c | | Execute Any,Convert_Unchecked
0164 1c01 | | Execute_Immediate Run_Utility,0x1
0165 BODY_0158:
0165 e5fd | | Load 0x2,-0x3
0166 8225 | % | Call 0x1,0x25
0167 e5fc | | Load 0x2,-0x4
0168 00d9 | | Load_Top At_Offset_1
0169 0092 02a3 | | Action Push_String_Extended,0x2a3 ; "'("
016b 01cc | | Execute Vector,Catenate
016c 800f | | Call 0x0,0xf
016d e5fc | | Load 0x2,-0x4
016e 8010 | | Call 0x0,0x10
016f 4801 |H | Short_Literal 0x1
0170 e5fc | | Load 0x2,-0x4
0171 8011 | | Call 0x0,0x11
0172 00cf | | Action Mark_Auxiliary
0173 e210 | | Load 0x1,0x10
0174 0265 | e | Execute Discrete,Reverse_Bounds
0175 0263 | c | Execute Discrete,Above_Bound
0176 702b |p+ | Jump_Nonzero 0x1a2
0177 e402 | | Load 0x2,0x2
0178 7005 |p | Jump_Nonzero 0x17e
0179 e5fc | | Load 0x2,-0x4
017a 0092 02a4 | | Action Push_String_Extended,0x2a4 ; ", "
017c 8012 | | Call 0x0,0x12
017d 7802 |x | Jump 0x180
017e 4800 |H | Short_Literal 0x0
017f a402 | | Store_Unchecked 0x2,0x2
0180 e5fc | | Load 0x2,-0x4
0181 00d9 | | Load_Top At_Offset_1
0182 e210 | | Load 0x1,0x10
0183 1c04 | | Execute_Immediate Run_Utility,0x4
0184 e210 | | Load 0x1,0x10
0185 0122 | " | Execute Any,Make_Root_Type
0186 011c | | Execute Any,Convert_Unchecked
0187 1c01 | | Execute_Immediate Run_Utility,0x1
0188 0092 02a5 | | Action Push_String_Extended,0x2a5 ; " =>"
018a 01cc | | Execute Vector,Catenate
018b 800f | | Call 0x0,0xf
018c e5fc | | Load 0x2,-0x4
018d 00d9 | | Load_Top At_Offset_1
018e 00d8 | | Load_Top At_Offset_0
018f e210 | | Load 0x1,0x10
0190 0260 | ` | Execute Discrete,In_Type
0191 7001 |p | Jump_Nonzero 0x193
0192 0801 | | Execute_Immediate Raise,0x1
0193 e5fd | | Load 0x2,-0x3
0194 8217 | | Call 0x1,0x17
0195 00da | | Load_Top At_Offset_2
0196 85fe | | Call 0x2,-0x2
0197 800f | | Call 0x0,0xf
0198 00c8 | | Action Pop_Auxiliary_Range
0199 00d9 | | Load_Top At_Offset_1
019a 00d9 | | Load_Top At_Offset_1
019b 027f | | Execute Discrete,Equal
019c 7004 |p | Jump_Nonzero 0x1a1
019d e210 | | Load 0x1,0x10
019e 0122 | " | Execute Any,Make_Root_Type
019f 1c07 | | Execute_Immediate Run_Utility,0x7
01a0 7fd6 | | Jump 0x177
01a1 00d2 | | Pop_Control Pop_Count_2
01a2 00ce | | Action Pop_Auxiliary
01a3 e5fc | | Load 0x2,-0x4
01a4 8013 | | Call 0x0,0x13
01a5 e5fc | | Load 0x2,-0x4
01a6 0092 02a6 | | Action Push_String_Extended,0x2a6 ; ")"
01a8 8012 | | Call 0x0,0x12
01a9 4505 |E | Exit_Subprogram 0x5
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bf | | .CONST 0x01bf ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 e210 | | Load 0x1,0x10
01b4 026a | j | Execute Discrete,First
01b5 e210 | | Load 0x1,0x10
01b6 1c04 | | Execute_Immediate Run_Utility,0x4
01b7 00e3 | | Load_Encached Natural_Cache
01b8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01b9 e210 | | Load 0x1,0x10
01ba 0269 | i | Execute Discrete,Last
01bb e210 | | Load 0x1,0x10
01bc 1c04 | | Execute_Immediate Run_Utility,0x4
01bd 00e3 | | Load_Encached Natural_Cache
01be 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01bf BODY_01b0:
01bf 00d8 | | Load_Top At_Offset_0
01c0 00da | | Load_Top At_Offset_2
01c1 0272 | r | Execute Discrete,Minus
01c2 0a01 | | Execute_Immediate Plus,0x1
01c3 00d8 | | Load_Top At_Offset_0
01c4 00e3 | | Load_Encached Natural_Cache
01c5 0260 | ` | Execute Discrete,In_Type
01c6 7001 |p | Jump_Nonzero 0x1c8
01c7 0801 | | Execute_Immediate Raise,0x1
01c8 00ca | | Action Exit_Nullary_Function
01c9 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
01d4 e210 | | Load 0x1,0x10
01d5 1c04 | | Execute_Immediate Run_Utility,0x4
01d6 e210 | | Load 0x1,0x10
01d7 026a | j | Execute Discrete,First
01d8 e210 | | Load 0x1,0x10
01d9 1c04 | | Execute_Immediate Run_Utility,0x4
01da 0272 | r | Execute Discrete,Minus
01db 0a01 | | Execute_Immediate Plus,0x1
01dc 00d8 | | Load_Top At_Offset_0
01dd e014 | | Load 0x0,0x14
01de 0260 | ` | Execute Discrete,In_Type
01df 7001 |p | Jump_Nonzero 0x1e1
01e0 0801 | | Execute_Immediate Raise,0x1
01e1 4401 |D | Exit_Subprogram With_Result,0x1
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e210 | | Load 0x1,0x10
01ed 1c04 | | Execute_Immediate Run_Utility,0x4
01ee e210 | | Load 0x1,0x10
01ef 026a | j | Execute Discrete,First
01f0 e210 | | Load 0x1,0x10
01f1 1c04 | | Execute_Immediate Run_Utility,0x4
01f2 0272 | r | Execute Discrete,Minus
01f3 0a01 | | Execute_Immediate Plus,0x1
01f4 00d8 | | Load_Top At_Offset_0
01f5 e015 | | Load 0x0,0x15
01f6 0260 | ` | Execute Discrete,In_Type
01f7 7001 |p | Jump_Nonzero 0x1f9
01f8 0801 | | Execute_Immediate Raise,0x1
01f9 4401 |D | Exit_Subprogram With_Result,0x1
01fa 0000 0000 | | .BLANK 0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020a | | .CONST 0x020a ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 4801 |H | Short_Literal 0x1
0204 821f | | Call 0x1,0x1f
0205 e016 | | Load 0x0,0x16
0206 035b | [ | Declare_Type Array,Constrained
0207 0337 | 7 | Declare_Variable Array
0208 00d8 | | Load_Top At_Offset_0
0209 1c00 | | Execute_Immediate Run_Utility,0x0
020a BODY_0200:
020a 00cf | | Action Mark_Auxiliary
020b e5ff | | Load 0x2,-0x1
020c 01da | | Execute Vector,Bounds
020d e210 | | Load 0x1,0x10
020e 1c05 | | Execute_Immediate Run_Utility,0x5
020f 00d0 | | Action Swap_Control
0210 e210 | | Load 0x1,0x10
0211 1c05 | | Execute_Immediate Run_Utility,0x5
0212 0263 | c | Execute Discrete,Above_Bound
0213 7018 |p | Jump_Nonzero 0x22c
0214 00d8 | | Load_Top At_Offset_0
0215 e210 | | Load 0x1,0x10
0216 1c04 | | Execute_Immediate Run_Utility,0x4
0217 e5ff | | Load 0x2,-0x1
0218 01d7 | | Execute Vector,Field_Read
0219 00d9 | | Load_Top At_Offset_1
021a 00d8 | | Load_Top At_Offset_0
021b e210 | | Load 0x1,0x10
021c 0260 | ` | Execute Discrete,In_Type
021d 7001 |p | Jump_Nonzero 0x21f
021e 0801 | | Execute_Immediate Raise,0x1
021f 8220 | | Call 0x1,0x20
0220 e402 | | Load 0x2,0x2
0221 01d6 | | Execute Vector,Field_Write
0222 00c8 | | Action Pop_Auxiliary_Range
0223 00d9 | | Load_Top At_Offset_1
0224 00d9 | | Load_Top At_Offset_1
0225 027f | | Execute Discrete,Equal
0226 7004 |p | Jump_Nonzero 0x22b
0227 e210 | | Load 0x1,0x10
0228 0122 | " | Execute Any,Make_Root_Type
0229 1c07 | | Execute_Immediate Run_Utility,0x7
022a 7fe9 | | Jump 0x214
022b 00d2 | | Pop_Control Pop_Count_2
022c 00ce | | Action Pop_Auxiliary
022d 00d8 | | Load_Top At_Offset_0
022e e016 | | Load 0x0,0x16
022f 01c6 | | Execute Vector,Convert_To_Formal
0230 4401 |D | Exit_Subprogram With_Result,0x1
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0240 | @ | .CONST 0x0240 ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b 4801 |H | Short_Literal 0x1
023c 821f | | Call 0x1,0x1f
023d e017 | | Load 0x0,0x17
023e 035b | [ | Declare_Type Array,Constrained
023f 0337 | 7 | Declare_Variable Array
0240 BODY_0238:
0240 00cf | | Action Mark_Auxiliary
0241 e5ff | | Load 0x2,-0x1
0242 01da | | Execute Vector,Bounds
0243 e210 | | Load 0x1,0x10
0244 1c05 | | Execute_Immediate Run_Utility,0x5
0245 00d0 | | Action Swap_Control
0246 e210 | | Load 0x1,0x10
0247 1c05 | | Execute_Immediate Run_Utility,0x5
0248 0263 | c | Execute Discrete,Above_Bound
0249 7018 |p | Jump_Nonzero 0x262
024a 00d8 | | Load_Top At_Offset_0
024b e210 | | Load 0x1,0x10
024c 1c04 | | Execute_Immediate Run_Utility,0x4
024d e5ff | | Load 0x2,-0x1
024e 01d7 | | Execute Vector,Field_Read
024f 00d9 | | Load_Top At_Offset_1
0250 00d8 | | Load_Top At_Offset_0
0251 e210 | | Load 0x1,0x10
0252 0260 | ` | Execute Discrete,In_Type
0253 7001 |p | Jump_Nonzero 0x255
0254 0801 | | Execute_Immediate Raise,0x1
0255 8221 | ! | Call 0x1,0x21
0256 e402 | | Load 0x2,0x2
0257 01d6 | | Execute Vector,Field_Write
0258 00c8 | | Action Pop_Auxiliary_Range
0259 00d9 | | Load_Top At_Offset_1
025a 00d9 | | Load_Top At_Offset_1
025b 027f | | Execute Discrete,Equal
025c 7004 |p | Jump_Nonzero 0x261
025d e210 | | Load 0x1,0x10
025e 0122 | " | Execute Any,Make_Root_Type
025f 1c07 | | Execute_Immediate Run_Utility,0x7
0260 7fe9 | | Jump 0x24a
0261 00d2 | | Pop_Control Pop_Count_2
0262 00ce | | Action Pop_Auxiliary
0263 00d8 | | Load_Top At_Offset_0
0264 e017 | | Load 0x0,0x17
0265 01c6 | | Execute Vector,Convert_To_Formal
0266 4401 |D | Exit_Subprogram With_Result,0x1
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0270 | p | .CONST 0x0270 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b 4801 |H | Short_Literal 0x1
026c 821f | | Call 0x1,0x1f
026d e018 | | Load 0x0,0x18
026e 035b | [ | Declare_Type Array,Constrained
026f 0337 | 7 | Declare_Variable Array
0270 BODY_0268:
0270 00cf | | Action Mark_Auxiliary
0271 e210 | | Load 0x1,0x10
0272 0265 | e | Execute Discrete,Reverse_Bounds
0273 0263 | c | Execute Discrete,Above_Bound
0274 701b |p | Jump_Nonzero 0x290
0275 00d8 | | Load_Top At_Offset_0
0276 e210 | | Load 0x1,0x10
0277 1c04 | | Execute_Immediate Run_Utility,0x4
0278 e210 | | Load 0x1,0x10
0279 0122 | " | Execute Any,Make_Root_Type
027a 011c | | Execute Any,Convert_Unchecked
027b 1c01 | | Execute_Immediate Run_Utility,0x1
027c 8019 | | Call 0x0,0x19
027d 00d9 | | Load_Top At_Offset_1
027e 00d8 | | Load_Top At_Offset_0
027f e210 | | Load 0x1,0x10
0280 0260 | ` | Execute Discrete,In_Type
0281 7001 |p | Jump_Nonzero 0x283
0282 0801 | | Execute_Immediate Raise,0x1
0283 8221 | ! | Call 0x1,0x21
0284 e402 | | Load 0x2,0x2
0285 01d6 | | Execute Vector,Field_Write
0286 00c8 | | Action Pop_Auxiliary_Range
0287 00d9 | | Load_Top At_Offset_1
0288 00d9 | | Load_Top At_Offset_1
0289 027f | | Execute Discrete,Equal
028a 7004 |p | Jump_Nonzero 0x28f
028b e210 | | Load 0x1,0x10
028c 0122 | " | Execute Any,Make_Root_Type
028d 1c07 | | Execute_Immediate Run_Utility,0x7
028e 7fe6 | | Jump 0x275
028f 00d2 | | Pop_Control Pop_Count_2
0290 00ce | | Action Pop_Auxiliary
0291 00d8 | | Load_Top At_Offset_0
0292 e018 | | Load 0x0,0x18
0293 01c6 | | Execute Vector,Convert_To_Formal
0294 00ca | | Action Exit_Nullary_Function
0295 0000 0000 | | .XXX[0x3]
0297 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 801a | | Call 0x0,0x1a
029d e21e | | Load 0x1,0x1e
029e 022e | . | Execute Access,Not_Equal
029f 6802 |h | Jump_Zero 0x2a2
02a0 e21d | | Load 0x1,0x1d
02a1 0257 | W | Execute Discrete,Raise
02a2 4502 |E | Exit_Subprogram 0x2
02a3 ; --------------------------------------------------------------------------------------
02a3 ; STRING TABLE
02a3 ; --------------------------------------------------------------------------------------
02a3 000a | | .STRTAB 0x000a->0x02a8 ; "'("
02a4 000a | | .STRTAB 0x000a->0x02a9 ; ", "
02a5 000a | | .STRTAB 0x000a->0x02aa ; " =>"
02a6 000b | | .STRTAB 0x000b->0x02ab ; ")"
02a7 000a | | .STREND 0x000a->0x02ac
02a8 2728 2c20 |'(, | .STRTAB_STRINGS
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug Table
02b0 ; --------------------------------------------------------------------------------------
02b0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9603,0x0000,0x0001,0x0014
02b6 000b 0306 | | .DBG4T 0x000b,0x0306,0x4000,0x0000
02ba 0041 0316 | A | .DBG4T 0x0041,0x0316,0x4000,0x0000
02be 007b 0000 | { | .DBG4T 0x007b,0x0000,0x1005,0x0000
02c2 009b 032c | ,| .DBG4T 0x009b,0x032c,0x1002,0x0000
02c6 00a3 032f | /| .DBG4T 0x00a3,0x032f,0x1002,0x0000
02ca 00cb 0332 | 2| .DBG4T 0x00cb,0x0332,0x1002,0x0000
02ce 00f3 0335 | 5| .DBG4T 0x00f3,0x0335,0x1002,0x0000
02d2 011b 033c | <| .DBG4T 0x011b,0x033c,0x1002,0x0000
02d6 012b 0340 | + @| .DBG4T 0x012b,0x0340,0x1001,0x0000
02da 0133 0343 | 3 C| .DBG4T 0x0133,0x0343,0x1001,0x0000
02de 013b 0347 | ; G| .DBG4T 0x013b,0x0347,0x1001,0x0000
02e2 014b 034b | K K| .DBG4T 0x014b,0x034b,0x1001,0x0000
02e6 015b 034f | [ O| .DBG4T 0x015b,0x034f,0x3801,0x0002
02ea 01b3 035f | _| .DBG4T 0x01b3,0x035f,0x1002,0x0000
02ee 01d3 0364 | d| .DBG4T 0x01d3,0x0364,0x1002,0x0000
02f2 01eb 0367 | g| .DBG4T 0x01eb,0x0367,0x1002,0x0000
02f6 0203 036a | j| .DBG4T 0x0203,0x036a,0x1002,0x0000
02fa 023b 0370 | ; p| .DBG4T 0x023b,0x0370,0x1002,0x0000
02fe 026b 0376 | k v| .DBG4T 0x026b,0x0376,0x1002,0x0000
0302 029b 037c | || .DBG4T 0x029b,0x037c,0x1001,0x0000
0306 ; --------------------------------------------------------------------------------------
0306 ; Debug chain
0306 ; --------------------------------------------------------------------------------------
0306 000e 0000 | | .DBGLEN 0x000e,0x0000
0308 000b 0016 | | .DBGLNO 0x000b,0x0016,0x0022,0x0024,0x0026,0x0028,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037
0316 ; --------------------------------------------------------------------------------------
0316 ; Debug chain
0316 ; --------------------------------------------------------------------------------------
0316 0012 0002 | | .DBGLEN 0x0012,0x0002
0318 0041 0043 | A C| .DBGLNO 0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x006f
032c ; --------------------------------------------------------------------------------------
032c ; Debug chain
032c ; --------------------------------------------------------------------------------------
032c 0000 0001 | | .DBGLEN 0x0000,0x0001
032e 009b | | .DBGLNO 0x009b
032f ; --------------------------------------------------------------------------------------
032f ; Debug chain
032f ; --------------------------------------------------------------------------------------
032f 0000 0001 | | .DBGLEN 0x0000,0x0001
0331 00a3 | | .DBGLNO 0x00a3
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug chain
0332 ; --------------------------------------------------------------------------------------
0332 0000 0001 | | .DBGLEN 0x0000,0x0001
0334 00cb | | .DBGLNO 0x00cb
0335 ; --------------------------------------------------------------------------------------
0335 ; Debug chain
0335 ; --------------------------------------------------------------------------------------
0335 0001 0004 | | .DBGLEN 0x0001,0x0004
0337 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5,0x00f8,0x00fc,0x0115
033c ; --------------------------------------------------------------------------------------
033c ; Debug chain
033c ; --------------------------------------------------------------------------------------
033c 0000 0002 | | .DBGLEN 0x0000,0x0002
033e 011b 011d | | .DBGLNO 0x011b,0x011d
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug chain
0340 ; --------------------------------------------------------------------------------------
0340 0000 0001 | | .DBGLEN 0x0000,0x0001
0342 012b | + | .DBGLNO 0x012b
0343 ; --------------------------------------------------------------------------------------
0343 ; Debug chain
0343 ; --------------------------------------------------------------------------------------
0343 0000 0002 | | .DBGLEN 0x0000,0x0002
0345 0133 0135 | 3 5| .DBGLNO 0x0133,0x0135
0347 ; --------------------------------------------------------------------------------------
0347 ; Debug chain
0347 ; --------------------------------------------------------------------------------------
0347 0000 0002 | | .DBGLEN 0x0000,0x0002
0349 013b 013d | ; =| .DBGLNO 0x013b,0x013d
034b ; --------------------------------------------------------------------------------------
034b ; Debug chain
034b ; --------------------------------------------------------------------------------------
034b 0000 0002 | | .DBGLEN 0x0000,0x0002
034d 014b 014d | K M| .DBGLNO 0x014b,0x014d
034f ; --------------------------------------------------------------------------------------
034f ; Debug chain
034f ; --------------------------------------------------------------------------------------
034f 0002 000c | | .DBGLEN 0x0002,0x000c
0351 015b 015d | [ ]| .DBGLNO 0x015b,0x015d,0x0165,0x0167,0x016d,0x016f,0x0173,0x0177,0x0179,0x017e,0x0180,0x018c,0x01a3,0x01a5
035f ; --------------------------------------------------------------------------------------
035f ; Debug chain
035f ; --------------------------------------------------------------------------------------
035f 0002 0001 | | .DBGLEN 0x0002,0x0001
0361 01b3 01b9 | | .DBGLNO 0x01b3,0x01b9,0x01bf
0364 ; --------------------------------------------------------------------------------------
0364 ; Debug chain
0364 ; --------------------------------------------------------------------------------------
0364 0000 0001 | | .DBGLEN 0x0000,0x0001
0366 01d3 | | .DBGLNO 0x01d3
0367 ; --------------------------------------------------------------------------------------
0367 ; Debug chain
0367 ; --------------------------------------------------------------------------------------
0367 0000 0001 | | .DBGLEN 0x0000,0x0001
0369 01eb | | .DBGLNO 0x01eb
036a ; --------------------------------------------------------------------------------------
036a ; Debug chain
036a ; --------------------------------------------------------------------------------------
036a 0001 0003 | | .DBGLEN 0x0001,0x0003
036c 0203 020b | | .DBGLNO 0x0203,0x020b,0x0214,0x022d
0370 ; --------------------------------------------------------------------------------------
0370 ; Debug chain
0370 ; --------------------------------------------------------------------------------------
0370 0001 0003 | | .DBGLEN 0x0001,0x0003
0372 023b 0241 | ; A| .DBGLNO 0x023b,0x0241,0x024a,0x0263
0376 ; --------------------------------------------------------------------------------------
0376 ; Debug chain
0376 ; --------------------------------------------------------------------------------------
0376 0001 0003 | | .DBGLEN 0x0001,0x0003
0378 026b 0271 | k q| .DBGLNO 0x026b,0x0271,0x0275,0x0291
037c ; --------------------------------------------------------------------------------------
037c ; Debug chain
037c ; --------------------------------------------------------------------------------------
037c 0000 0002 | | .DBGLEN 0x0000,0x0002
037e 029b 02a0 | | .DBGLNO 0x029b,0x02a0
0380 0000 0000 | | .BLANK 0000[0x80]